/* Generated from srfi-13.scm by the CHICKEN compiler http://www.call-cc.org 2017-02-19 13:16 Version 4.12.0 (rev 6ea24b6) linux-unix-gnu-x86-64 [ 64bit manyargs ptables ] compiled 2017-02-19 on yves.more-magic.net (Linux) command line: srfi-13.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -explicit-use -no-trace -output-file srfi-13.c unit: srfi_2d13 */ #include "chicken.h" static C_PTABLE_ENTRY *create_ptable(void); C_noret_decl(C_srfi_2d14_toplevel) C_externimport void C_ccall C_srfi_2d14_toplevel(C_word c,C_word *av) C_noret; static C_TLS C_word lf[154]; static double C_possibly_force_alignment; static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,7),40,97,50,52,57,51,41,0}; static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,22),40,97,50,53,50,55,32,101,110,100,49,52,53,32,97,114,103,115,49,52,54,41,0,0}; static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,112,97,114,115,101,45,115,116,97,114,116,43,101,110,100,32,112,114,111,99,49,51,53,32,115,49,51,54,32,97,114,103,115,49,51,55,41,0,0,0}; static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,7),40,97,50,53,54,51,41,0}; static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,31),40,97,50,53,54,57,32,114,101,115,116,49,53,50,32,115,116,97,114,116,49,53,51,32,101,110,100,49,53,52,41,0}; static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,112,97,114,115,101,45,102,105,110,97,108,45,115,116,97,114,116,43,101,110,100,32,112,114,111,99,49,52,57,32,115,49,53,48,32,97,114,103,115,49,53,49,41,0,0,0,0,0}; static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,41),40,115,117,98,115,116,114,105,110,103,45,115,112,101,99,45,111,107,63,32,115,49,53,54,32,115,116,97,114,116,49,53,55,32,101,110,100,49,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,51),40,99,104,101,99,107,45,115,117,98,115,116,114,105,110,103,45,115,112,101,99,32,112,114,111,99,49,54,53,32,115,49,54,54,32,115,116,97,114,116,49,54,55,32,101,110,100,49,54,56,41,0,0,0,0,0}; static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,47),40,115,117,98,115,116,114,105,110,103,47,115,104,97,114,101,100,32,115,49,55,48,32,115,116,97,114,116,49,55,49,32,46,32,109,97,121,98,101,45,101,110,100,49,55,50,41,0}; static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,40),40,37,115,117,98,115,116,114,105,110,103,47,115,104,97,114,101,100,32,115,49,56,50,32,115,116,97,114,116,49,56,51,32,101,110,100,49,56,52,41}; static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,7),40,97,50,54,57,56,41,0}; static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,23),40,97,50,55,48,52,32,115,116,97,114,116,49,57,50,32,101,110,100,49,57,51,41,0}; static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,39),40,115,116,114,105,110,103,45,99,111,112,121,32,115,49,56,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,56,56,41,0}; static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,7),40,97,50,55,49,54,41,0}; static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,23),40,97,50,55,50,50,32,115,116,97,114,116,50,48,49,32,101,110,100,50,48,50,41,0}; static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,46),40,115,116,114,105,110,103,45,109,97,112,32,112,114,111,99,49,57,53,32,115,49,57,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,57,55,41,0,0}; static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,50,49,48,32,105,50,49,50,32,106,50,49,51,41,0,0,0}; static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,42),40,37,115,116,114,105,110,103,45,109,97,112,32,112,114,111,99,50,48,52,32,115,50,48,53,32,115,116,97,114,116,50,48,54,32,101,110,100,50,48,55,41,0,0,0,0,0,0}; static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,7),40,97,50,55,55,55,41,0}; static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,23),40,97,50,55,56,51,32,115,116,97,114,116,50,50,52,32,101,110,100,50,50,53,41,0}; static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,109,97,112,33,32,112,114,111,99,50,49,56,32,115,50,49,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,50,50,48,41,0}; static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,51,49,32,105,50,51,51,41}; static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,43),40,37,115,116,114,105,110,103,45,109,97,112,33,32,112,114,111,99,50,50,55,32,115,50,50,56,32,115,116,97,114,116,50,50,57,32,101,110,100,50,51,48,41,0,0,0,0,0}; static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,50,56,50,56,41,0}; static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,14),40,108,112,32,118,50,52,55,32,105,50,52,56,41,0,0}; static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,23),40,97,50,56,51,52,32,115,116,97,114,116,50,52,52,32,101,110,100,50,52,53,41,0}; static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,55),40,115,116,114,105,110,103,45,102,111,108,100,32,107,111,110,115,50,51,55,32,107,110,105,108,50,51,56,32,115,50,51,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,50,52,48,41,0}; static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,7),40,97,50,56,55,48,41,0}; static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,14),40,108,112,32,118,50,54,49,32,105,50,54,50,41,0,0}; static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,23),40,97,50,56,55,54,32,115,116,97,114,116,50,53,56,32,101,110,100,50,53,57,41,0}; static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,61),40,115,116,114,105,110,103,45,102,111,108,100,45,114,105,103,104,116,32,107,111,110,115,50,53,49,32,107,110,105,108,50,53,50,32,115,50,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,50,53,52,41,0,0,0}; static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,13),40,102,95,51,48,54,51,32,120,50,56,48,41,0,0,0}; static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,14),40,108,112,32,99,104,117,110,107,115,51,48,54,41,0,0}; static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,105,50,56,57,32,115,101,101,100,50,57,48,41,0,0,0,0,0,0}; static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,59),40,108,112,32,99,104,117,110,107,115,50,56,50,32,110,99,104,97,114,115,50,56,51,32,99,104,117,110,107,50,56,52,32,99,104,117,110,107,45,108,101,110,50,56,53,32,105,50,56,54,32,115,101,101,100,50,56,55,41,0,0,0,0,0}; static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,59),40,115,116,114,105,110,103,45,117,110,102,111,108,100,32,112,50,54,53,32,102,50,54,54,32,103,50,54,55,32,115,101,101,100,50,54,56,32,46,32,98,97,115,101,43,109,97,107,101,45,102,105,110,97,108,50,54,57,41,0,0,0,0,0}; static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,13),40,102,95,51,50,52,48,32,120,51,51,53,41,0,0,0}; static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,19),40,108,112,32,106,51,54,50,32,99,104,117,110,107,115,51,54,51,41,0,0,0,0,0}; static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,105,51,52,52,32,115,101,101,100,51,52,53,41,0,0,0,0,0,0}; static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,59),40,108,112,32,99,104,117,110,107,115,51,51,55,32,110,99,104,97,114,115,51,51,56,32,99,104,117,110,107,51,51,57,32,99,104,117,110,107,45,108,101,110,51,52,48,32,105,51,52,49,32,115,101,101,100,51,52,50,41,0,0,0,0,0}; static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,65),40,115,116,114,105,110,103,45,117,110,102,111,108,100,45,114,105,103,104,116,32,112,51,50,48,32,102,51,50,49,32,103,51,50,50,32,115,101,101,100,51,50,51,32,46,32,98,97,115,101,43,109,97,107,101,45,102,105,110,97,108,51,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,7),40,97,51,50,54,51,41,0}; static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,56,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,23),40,97,51,50,54,57,32,115,116,97,114,116,51,56,49,32,101,110,100,51,56,50,41,0}; static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,102,111,114,45,101,97,99,104,32,112,114,111,99,51,55,53,32,115,51,55,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,51,55,55,41,0,0,0,0,0}; static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,7),40,97,51,51,48,52,41,0}; static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,51,57,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,23),40,97,51,51,49,48,32,115,116,97,114,116,51,57,52,32,101,110,100,51,57,53,41,0}; static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,102,111,114,45,101,97,99,104,45,105,110,100,101,120,32,112,114,111,99,51,56,56,32,115,51,56,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,51,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,7),40,97,51,51,52,49,41,0}; static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,50,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,51,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,23),40,97,51,51,52,55,32,115,116,97,114,116,52,48,55,32,101,110,100,52,48,56,41,0}; static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,52),40,115,116,114,105,110,103,45,101,118,101,114,121,32,99,114,105,116,101,114,105,97,52,48,49,32,115,52,48,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,52,48,51,41,0,0,0,0}; static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,7),40,97,51,52,55,49,41,0}; static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,53,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,52,54,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,23),40,97,51,52,55,55,32,115,116,97,114,116,52,52,51,32,101,110,100,52,52,52,41,0}; static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,97,110,121,32,99,114,105,116,101,114,105,97,52,51,55,32,115,52,51,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,52,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,52,55,54,32,105,52,55,56,41}; static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,116,97,98,117,108,97,116,101,32,112,114,111,99,52,55,51,32,108,101,110,52,55,52,41}; static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,52,57,52,32,106,52,57,53,41,0,0}; static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,71),40,37,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,32,115,49,52,56,52,32,115,116,97,114,116,49,52,56,53,32,101,110,100,49,52,56,54,32,115,50,52,56,55,32,115,116,97,114,116,50,52,56,56,32,101,110,100,50,52,56,57,41,0}; static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,53,49,49,32,106,53,49,50,41,0,0}; static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,71),40,37,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,32,115,49,53,48,49,32,115,116,97,114,116,49,53,48,50,32,101,110,100,49,53,48,51,32,115,50,53,48,52,32,115,116,97,114,116,50,53,48,53,32,101,110,100,50,53,48,54,41,0}; static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,53,50,56,32,106,53,50,57,41,0,0}; static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,74),40,37,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,53,49,56,32,115,116,97,114,116,49,53,49,57,32,101,110,100,49,53,50,48,32,115,50,53,50,49,32,115,116,97,114,116,50,53,50,50,32,101,110,100,50,53,50,51,41,0,0,0,0,0,0}; static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,14),40,108,112,32,105,53,52,53,32,106,53,52,54,41,0,0}; static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,74),40,37,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,53,51,53,32,115,116,97,114,116,49,53,51,54,32,101,110,100,49,53,51,55,32,115,50,53,51,56,32,115,116,97,114,116,50,53,51,57,32,101,110,100,50,53,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,7),40,97,51,57,53,49,41,0}; static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,7),40,97,51,57,54,51,41,0}; static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,25),40,97,51,57,54,57,32,115,116,97,114,116,50,53,54,57,32,101,110,100,50,53,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,36),40,97,51,57,53,55,32,114,101,115,116,53,53,56,53,54,51,32,115,116,97,114,116,49,53,54,52,32,101,110,100,49,53,54,53,41,0,0,0,0}; static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,32,115,49,53,53,50,32,115,50,53,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,53,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,97,51,57,56,49,41,0}; static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,7),40,97,51,57,57,51,41,0}; static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,25),40,97,51,57,57,57,32,115,116,97,114,116,50,53,56,57,32,101,110,100,50,53,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,36),40,97,51,57,56,55,32,114,101,115,116,53,55,56,53,56,51,32,115,116,97,114,116,49,53,56,52,32,101,110,100,49,53,56,53,41,0,0,0,0}; static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,32,115,49,53,55,50,32,115,50,53,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,53,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,7),40,97,52,48,49,49,41,0}; static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,7),40,97,52,48,50,51,41,0}; static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,25),40,97,52,48,50,57,32,115,116,97,114,116,50,54,48,57,32,101,110,100,50,54,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,36),40,97,52,48,49,55,32,114,101,115,116,53,57,56,54,48,51,32,115,116,97,114,116,49,54,48,52,32,101,110,100,49,54,48,53,41,0,0,0,0}; static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,60),40,115,116,114,105,110,103,45,112,114,101,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,53,57,50,32,115,50,53,57,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,53,57,52,41,0,0,0,0}; static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,97,52,48,52,49,41,0}; static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,7),40,97,52,48,53,51,41,0}; static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,25),40,97,52,48,53,57,32,115,116,97,114,116,50,54,50,57,32,101,110,100,50,54,51,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,36),40,97,52,48,52,55,32,114,101,115,116,54,49,56,54,50,51,32,115,116,97,114,116,49,54,50,52,32,101,110,100,49,54,50,53,41,0,0,0,0}; static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,60),40,115,116,114,105,110,103,45,115,117,102,102,105,120,45,108,101,110,103,116,104,45,99,105,32,115,49,54,49,50,32,115,50,54,49,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,49,52,41,0,0,0,0}; static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,7),40,97,52,48,55,49,41,0}; static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,7),40,97,52,48,56,51,41,0}; static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,25),40,97,52,48,56,57,32,115,116,97,114,116,50,54,52,57,32,101,110,100,50,54,53,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,36),40,97,52,48,55,55,32,114,101,115,116,54,51,56,54,52,51,32,115,116,97,114,116,49,54,52,52,32,101,110,100,49,54,52,53,41,0,0,0,0}; static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,112,114,101,102,105,120,63,32,115,49,54,51,50,32,115,50,54,51,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,51,52,41,0,0,0,0,0}; static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,7),40,97,52,49,48,49,41,0}; static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,7),40,97,52,49,49,51,41,0}; static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,25),40,97,52,49,49,57,32,115,116,97,114,116,50,54,54,57,32,101,110,100,50,54,55,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,36),40,97,52,49,48,55,32,114,101,115,116,54,53,56,54,54,51,32,115,116,97,114,116,49,54,54,52,32,101,110,100,49,54,54,53,41,0,0,0,0}; static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,115,117,102,102,105,120,63,32,115,49,54,53,50,32,115,50,54,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,53,52,41,0,0,0,0,0}; static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,7),40,97,52,49,51,49,41,0}; static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,7),40,97,52,49,52,51,41,0}; static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,25),40,97,52,49,52,57,32,115,116,97,114,116,50,54,56,57,32,101,110,100,50,54,57,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,36),40,97,52,49,51,55,32,114,101,115,116,54,55,56,54,56,51,32,115,116,97,114,116,49,54,56,52,32,101,110,100,49,54,56,53,41,0,0,0,0}; static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,54),40,115,116,114,105,110,103,45,112,114,101,102,105,120,45,99,105,63,32,115,49,54,55,50,32,115,50,54,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,55,52,41,0,0}; static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,7),40,97,52,49,54,49,41,0}; static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,7),40,97,52,49,55,51,41,0}; static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,25),40,97,52,49,55,57,32,115,116,97,114,116,50,55,48,57,32,101,110,100,50,55,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,36),40,97,52,49,54,55,32,114,101,115,116,54,57,56,55,48,51,32,115,116,97,114,116,49,55,48,52,32,101,110,100,49,55,48,53,41,0,0,0,0}; static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,54),40,115,116,114,105,110,103,45,115,117,102,102,105,120,45,99,105,63,32,115,49,54,57,50,32,115,50,54,57,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,54,57,52,41,0,0}; static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,92),40,37,115,116,114,105,110,103,45,99,111,109,112,97,114,101,32,115,49,55,52,56,32,115,116,97,114,116,49,55,52,57,32,101,110,100,49,55,53,48,32,115,50,55,53,49,32,115,116,97,114,116,50,55,53,50,32,101,110,100,50,55,53,51,32,112,114,111,99,60,55,53,52,32,112,114,111,99,61,55,53,53,32,112,114,111,99,62,55,53,54,41,0,0,0,0}; static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,95),40,37,115,116,114,105,110,103,45,99,111,109,112,97,114,101,45,99,105,32,115,49,55,54,53,32,115,116,97,114,116,49,55,54,54,32,101,110,100,49,55,54,55,32,115,50,55,54,56,32,115,116,97,114,116,50,55,54,57,32,101,110,100,50,55,55,48,32,112,114,111,99,60,55,55,49,32,112,114,111,99,61,55,55,50,32,112,114,111,99,62,55,55,51,41,0}; static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,7),40,97,52,52,48,52,41,0}; static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,7),40,97,52,52,49,54,41,0}; static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,25),40,97,52,52,50,50,32,115,116,97,114,116,50,56,48,50,32,101,110,100,50,56,48,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,36),40,97,52,52,49,48,32,114,101,115,116,55,57,49,55,57,54,32,115,116,97,114,116,49,55,57,55,32,101,110,100,49,55,57,56,41,0,0,0,0}; static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,78),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,32,115,49,55,56,50,32,115,50,55,56,51,32,112,114,111,99,60,55,56,52,32,112,114,111,99,61,55,56,53,32,112,114,111,99,62,55,56,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,55,56,55,41,0,0}; static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,7),40,97,52,52,51,52,41,0}; static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,7),40,97,52,52,52,54,41,0}; static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,25),40,97,52,52,53,50,32,115,116,97,114,116,50,56,50,53,32,101,110,100,50,56,50,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,36),40,97,52,52,52,48,32,114,101,115,116,56,49,52,56,49,57,32,115,116,97,114,116,49,56,50,48,32,101,110,100,49,56,50,49,41,0,0,0,0}; static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,81),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,45,99,105,32,115,49,56,48,53,32,115,50,56,48,54,32,112,114,111,99,60,56,48,55,32,112,114,111,99,61,56,48,56,32,112,114,111,99,62,56,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,7),40,97,52,52,54,52,41,0}; static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,7),40,97,52,52,55,54,41,0}; static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,12),40,97,52,53,48,48,32,105,56,53,50,41,0,0,0,0}; static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,12),40,97,52,53,48,51,32,105,56,53,51,41,0,0,0,0}; static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,12),40,97,52,53,48,57,32,105,56,53,52,41,0,0,0,0}; static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,25),40,97,52,52,56,50,32,115,116,97,114,116,50,56,52,53,32,101,110,100,50,56,52,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,36),40,97,52,52,55,48,32,114,101,115,116,56,51,52,56,51,57,32,115,116,97,114,116,49,56,52,48,32,101,110,100,49,56,52,49,41,0,0,0,0}; static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,61,32,115,49,56,50,56,32,115,50,56,50,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,51,48,41,0,0,0,0}; static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,7),40,97,52,53,51,50,41,0}; static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,7),40,97,52,53,52,52,41,0}; static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,12),40,97,52,53,54,56,32,105,56,56,48,41,0,0,0,0}; static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,12),40,97,52,53,55,52,32,105,56,56,49,41,0,0,0,0}; static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,12),40,97,52,53,55,55,32,105,56,56,50,41,0,0,0,0}; static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,25),40,97,52,53,53,48,32,115,116,97,114,116,50,56,55,51,32,101,110,100,50,56,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,36),40,97,52,53,51,56,32,114,101,115,116,56,54,50,56,54,55,32,115,116,97,114,116,49,56,54,56,32,101,110,100,49,56,54,57,41,0,0,0,0}; static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,60,62,32,115,49,56,53,54,32,115,50,56,53,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,53,56,41,0,0,0}; static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,7),40,97,52,54,49,49,41,0}; static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,7),40,97,52,54,50,51,41,0}; static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,12),40,97,52,54,52,52,32,105,57,48,52,41,0,0,0,0}; static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,12),40,97,52,54,53,48,32,105,57,48,53,41,0,0,0,0}; static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,12),40,97,52,54,53,51,32,105,57,48,54,41,0,0,0,0}; static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,25),40,97,52,54,50,57,32,115,116,97,114,116,50,57,48,49,32,101,110,100,50,57,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,36),40,97,52,54,49,55,32,114,101,115,116,56,57,48,56,57,53,32,115,116,97,114,116,49,56,57,54,32,101,110,100,49,56,57,55,41,0,0,0,0}; static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,60,32,115,49,56,56,52,32,115,50,56,56,53,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,56,56,54,41,0,0,0,0}; static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,7),40,97,52,54,54,56,41,0}; static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,7),40,97,52,54,56,48,41,0}; static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,12),40,97,52,55,48,49,32,105,57,50,56,41,0,0,0,0}; static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,12),40,97,52,55,48,52,32,105,57,50,57,41,0,0,0,0}; static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,12),40,97,52,55,48,55,32,105,57,51,48,41,0,0,0,0}; static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,25),40,97,52,54,56,54,32,115,116,97,114,116,50,57,50,53,32,101,110,100,50,57,50,54,41,0,0,0,0,0,0,0}; static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,36),40,97,52,54,55,52,32,114,101,115,116,57,49,52,57,49,57,32,115,116,97,114,116,49,57,50,48,32,101,110,100,49,57,50,49,41,0,0,0,0}; static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,62,32,115,49,57,48,56,32,115,50,57,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,49,48,41,0,0,0,0}; static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,7),40,97,52,55,50,53,41,0}; static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,7),40,97,52,55,51,55,41,0}; static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,12),40,97,52,55,53,56,32,105,57,53,50,41,0,0,0,0}; static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,12),40,97,52,55,54,52,32,105,57,53,51,41,0,0,0,0}; static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,12),40,97,52,55,55,48,32,105,57,53,52,41,0,0,0,0}; static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,25),40,97,52,55,52,51,32,115,116,97,114,116,50,57,52,57,32,101,110,100,50,57,53,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,36),40,97,52,55,51,49,32,114,101,115,116,57,51,56,57,52,51,32,115,116,97,114,116,49,57,52,52,32,101,110,100,49,57,52,53,41,0,0,0,0}; static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,60,61,32,115,49,57,51,50,32,115,50,57,51,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,51,52,41,0,0,0}; static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,7),40,97,52,55,56,53,41,0}; static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,7),40,97,52,55,57,55,41,0}; static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,12),40,97,52,56,49,56,32,105,57,55,54,41,0,0,0,0}; static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,12),40,97,52,56,50,49,32,105,57,55,55,41,0,0,0,0}; static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,12),40,97,52,56,50,55,32,105,57,55,56,41,0,0,0,0}; static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,25),40,97,52,56,48,51,32,115,116,97,114,116,50,57,55,51,32,101,110,100,50,57,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,36),40,97,52,55,57,49,32,114,101,115,116,57,54,50,57,54,55,32,115,116,97,114,116,49,57,54,56,32,101,110,100,49,57,54,57,41,0,0,0,0}; static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,62,61,32,115,49,57,53,54,32,115,50,57,53,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,53,56,41,0,0,0}; static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,7),40,97,52,56,52,53,41,0}; static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,7),40,97,52,56,53,55,41,0}; static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,13),40,97,52,56,56,49,32,105,49,48,48,52,41,0,0,0}; static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,13),40,97,52,56,56,52,32,105,49,48,48,53,41,0,0,0}; static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,13),40,97,52,56,57,48,32,105,49,48,48,54,41,0,0,0}; static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,25),40,97,52,56,54,51,32,115,116,97,114,116,50,57,57,55,32,101,110,100,50,57,57,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,36),40,97,52,56,53,49,32,114,101,115,116,57,56,54,57,57,49,32,115,116,97,114,116,49,57,57,50,32,101,110,100,49,57,57,51,41,0,0,0,0}; static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,99,105,61,32,115,49,57,56,48,32,115,50,57,56,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,57,56,50,41,0}; static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,7),40,97,52,57,49,51,41,0}; static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,7),40,97,52,57,50,53,41,0}; static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,13),40,97,52,57,52,57,32,105,49,48,51,50,41,0,0,0}; static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,13),40,97,52,57,53,53,32,105,49,48,51,51,41,0,0,0}; static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,13),40,97,52,57,53,56,32,105,49,48,51,52,41,0,0,0}; static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,27),40,97,52,57,51,49,32,115,116,97,114,116,50,49,48,50,53,32,101,110,100,50,49,48,50,54,41,0,0,0,0,0}; static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,40),40,97,52,57,49,57,32,114,101,115,116,49,48,49,52,49,48,49,57,32,115,116,97,114,116,49,49,48,50,48,32,101,110,100,49,49,48,50,49,41}; static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,99,105,60,62,32,115,49,49,48,48,56,32,115,50,49,48,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,49,48,41,0,0,0,0,0}; static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,7),40,97,52,57,57,50,41,0}; static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,7),40,97,53,48,48,52,41,0}; static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,13),40,97,53,48,50,53,32,105,49,48,53,54,41,0,0,0}; static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,13),40,97,53,48,51,49,32,105,49,48,53,55,41,0,0,0}; static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,13),40,97,53,48,51,52,32,105,49,48,53,56,41,0,0,0}; static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,27),40,97,53,48,49,48,32,115,116,97,114,116,50,49,48,53,51,32,101,110,100,50,49,48,53,52,41,0,0,0,0,0}; static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,40),40,97,52,57,57,56,32,114,101,115,116,49,48,52,50,49,48,52,55,32,115,116,97,114,116,49,49,48,52,56,32,101,110,100,49,49,48,52,57,41}; static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,99,105,60,32,115,49,49,48,51,54,32,115,50,49,48,51,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,51,56,41,0,0,0,0,0,0}; static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,7),40,97,53,48,52,57,41,0}; static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,7),40,97,53,48,54,49,41,0}; static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,13),40,97,53,48,56,50,32,105,49,48,56,48,41,0,0,0}; static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,13),40,97,53,48,56,53,32,105,49,48,56,49,41,0,0,0}; static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,13),40,97,53,48,56,56,32,105,49,48,56,50,41,0,0,0}; static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,27),40,97,53,48,54,55,32,115,116,97,114,116,50,49,48,55,55,32,101,110,100,50,49,48,55,56,41,0,0,0,0,0}; static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,40),40,97,53,48,53,53,32,114,101,115,116,49,48,54,54,49,48,55,49,32,115,116,97,114,116,49,49,48,55,50,32,101,110,100,49,49,48,55,51,41}; static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,99,105,62,32,115,49,49,48,54,48,32,115,50,49,48,54,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,54,50,41,0,0,0,0,0,0}; static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,7),40,97,53,49,48,54,41,0}; static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,7),40,97,53,49,49,56,41,0}; static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,13),40,97,53,49,51,57,32,105,49,49,48,52,41,0,0,0}; static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,13),40,97,53,49,52,53,32,105,49,49,48,53,41,0,0,0}; static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,13),40,97,53,49,53,49,32,105,49,49,48,54,41,0,0,0}; static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,27),40,97,53,49,50,52,32,115,116,97,114,116,50,49,49,48,49,32,101,110,100,50,49,49,48,50,41,0,0,0,0,0}; static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,40),40,97,53,49,49,50,32,114,101,115,116,49,48,57,48,49,48,57,53,32,115,116,97,114,116,49,49,48,57,54,32,101,110,100,49,49,48,57,55,41}; static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,99,105,60,61,32,115,49,49,48,56,52,32,115,50,49,48,56,53,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,48,56,54,41,0,0,0,0,0}; static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,7),40,97,53,49,54,54,41,0}; static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,7),40,97,53,49,55,56,41,0}; static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,13),40,97,53,49,57,57,32,105,49,49,50,56,41,0,0,0}; static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,13),40,97,53,50,48,50,32,105,49,49,50,57,41,0,0,0}; static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,13),40,97,53,50,48,56,32,105,49,49,51,48,41,0,0,0}; static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,27),40,97,53,49,56,52,32,115,116,97,114,116,50,49,49,50,53,32,101,110,100,50,49,49,50,54,41,0,0,0,0,0}; static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,40),40,97,53,49,55,50,32,114,101,115,116,49,49,49,52,49,49,49,57,32,115,116,97,114,116,49,49,49,50,48,32,101,110,100,49,49,49,50,49,41}; static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,99,105,62,61,32,115,49,49,49,48,56,32,115,50,49,49,48,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,49,49,48,41,0,0,0,0,0}; static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,18),40,105,114,101,102,32,115,49,49,51,57,32,105,49,49,52,48,41,0,0,0,0,0,0}; static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,49,49,52,53,32,97,110,115,49,49,52,54,41,0,0,0,0,0,0}; static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,62),40,37,115,116,114,105,110,103,45,104,97,115,104,32,115,49,49,51,50,32,99,104,97,114,45,62,105,110,116,49,49,51,51,32,98,111,117,110,100,49,49,51,52,32,115,116,97,114,116,49,49,51,53,32,101,110,100,49,49,51,54,41,0,0}; static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,7),40,97,53,51,49,48,41,0}; static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,25),40,97,53,51,49,54,32,115,116,97,114,116,49,49,54,51,32,101,110,100,49,49,54,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,104,97,115,104,32,115,49,49,52,57,32,46,32,109,97,121,98,101,45,98,111,117,110,100,43,115,116,97,114,116,43,101,110,100,49,49,53,48,41,0}; static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,7),40,97,53,51,53,54,41,0}; static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,13),40,97,53,51,54,56,32,99,49,49,56,52,41,0,0,0}; static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,25),40,97,53,51,54,50,32,115,116,97,114,116,49,49,56,50,32,101,110,100,49,49,56,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,104,97,115,104,45,99,105,32,115,49,49,54,56,32,46,32,109,97,121,98,101,45,98,111,117,110,100,43,115,116,97,114,116,43,101,110,100,49,49,54,57,41,0,0,0,0,0,0}; static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,7),40,97,53,52,48,48,41,0}; static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,25),40,97,53,52,48,54,32,115,116,97,114,116,49,49,57,51,32,101,110,100,49,49,57,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,43),40,115,116,114,105,110,103,45,117,112,99,97,115,101,32,115,49,49,56,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,49,56,57,41,0,0,0,0,0}; static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,7),40,97,53,52,49,56,41,0}; static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,25),40,97,53,52,50,52,32,115,116,97,114,116,49,50,48,49,32,101,110,100,49,50,48,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,45,117,112,99,97,115,101,33,32,115,49,49,57,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,49,57,55,41,0,0,0,0}; static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,7),40,97,53,52,51,54,41,0}; static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,25),40,97,53,52,52,50,32,115,116,97,114,116,49,50,48,57,32,101,110,100,49,50,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,100,111,119,110,99,97,115,101,32,115,49,50,48,52,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,48,53,41,0,0,0}; static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,7),40,97,53,52,53,52,41,0}; static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,25),40,97,53,52,54,48,32,115,116,97,114,116,49,50,49,55,32,101,110,100,49,50,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,46),40,115,116,114,105,110,103,45,100,111,119,110,99,97,115,101,33,32,115,49,50,49,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,49,51,41,0,0}; static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,13),40,103,49,50,52,54,32,106,49,50,52,56,41,0,0,0}; static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,13),40,97,53,53,49,51,32,99,49,50,52,53,41,0,0,0}; static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,13),40,103,49,50,51,50,32,105,49,50,51,52,41,0,0,0}; static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,13),40,97,53,53,51,53,32,99,49,50,51,49,41,0,0,0}; static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,50,50,52,41,0,0,0,0,0,0}; static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,44),40,37,115,116,114,105,110,103,45,116,105,116,108,101,99,97,115,101,33,32,115,49,50,50,48,32,115,116,97,114,116,49,50,50,49,32,101,110,100,49,50,50,50,41,0,0,0,0}; static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,7),40,97,53,53,52,55,41,0}; static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,25),40,97,53,53,53,51,32,115,116,97,114,116,49,50,53,56,32,101,110,100,49,50,53,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,47),40,115,116,114,105,110,103,45,116,105,116,108,101,99,97,115,101,33,32,115,49,50,53,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,53,52,41,0}; static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,7),40,97,53,53,54,53,41,0}; static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,25),40,97,53,53,55,49,32,115,116,97,114,116,49,50,54,54,32,101,110,100,49,50,54,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,46),40,115,116,114,105,110,103,45,116,105,116,108,101,99,97,115,101,32,115,49,50,54,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,50,54,50,41,0,0}; static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,25),40,115,116,114,105,110,103,45,116,97,107,101,32,115,49,50,55,49,32,110,49,50,55,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,31),40,115,116,114,105,110,103,45,116,97,107,101,45,114,105,103,104,116,32,115,49,50,55,54,32,110,49,50,55,55,41,0}; static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,25),40,115,116,114,105,110,103,45,100,114,111,112,32,115,49,50,56,50,32,110,49,50,56,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,31),40,115,116,114,105,110,103,45,100,114,111,112,45,114,105,103,104,116,32,115,49,50,56,56,32,110,49,50,56,57,41,0}; static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,7),40,97,53,54,57,51,41,0}; static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,13),40,103,49,51,49,54,32,105,49,51,49,56,41,0,0,0}; static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,25),40,97,53,54,57,57,32,115,116,97,114,116,49,51,48,56,32,101,110,100,49,51,48,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,45,116,114,105,109,32,115,49,50,57,52,32,46,32,99,114,105,116,101,114,105,97,43,115,116,97,114,116,43,101,110,100,49,50,57,53,41,0,0,0,0}; static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,7),40,97,53,55,52,48,41,0}; static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,13),40,103,49,51,52,50,32,105,49,51,52,52,41,0,0,0}; static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,25),40,97,53,55,52,54,32,115,116,97,114,116,49,51,51,52,32,101,110,100,49,51,51,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,50),40,115,116,114,105,110,103,45,116,114,105,109,45,114,105,103,104,116,32,115,49,51,50,48,32,46,32,99,114,105,116,101,114,105,97,43,115,116,97,114,116,43,101,110,100,49,51,50,49,41,0,0,0,0,0,0}; static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,7),40,97,53,55,57,49,41,0}; static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,13),40,103,49,51,54,56,32,105,49,51,55,48,41,0,0,0}; static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,25),40,97,53,55,57,55,32,115,116,97,114,116,49,51,54,48,32,101,110,100,49,51,54,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,49),40,115,116,114,105,110,103,45,116,114,105,109,45,98,111,116,104,32,115,49,51,52,54,32,46,32,99,114,105,116,101,114,105,97,43,115,116,97,114,116,43,101,110,100,49,51,52,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,7),40,97,53,56,52,57,41,0}; static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,25),40,97,53,56,53,53,32,115,116,97,114,116,49,51,56,55,32,101,110,100,49,51,56,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,112,97,100,45,114,105,103,104,116,32,115,49,51,55,50,32,110,49,51,55,51,32,46,32,99,104,97,114,43,115,116,97,114,116,43,101,110,100,49,51,55,52,41,0,0,0,0,0}; static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,7),40,97,53,57,48,55,41,0}; static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,25),40,97,53,57,49,51,32,115,116,97,114,116,49,52,48,57,32,101,110,100,49,52,49,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,112,97,100,32,115,49,51,57,52,32,110,49,51,57,53,32,46,32,99,104,97,114,43,115,116,97,114,116,43,101,110,100,49,51,57,54,41,0,0,0}; static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,7),40,97,53,57,54,48,41,0}; static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,19),40,97,53,57,57,51,32,99,49,52,50,55,32,105,49,52,50,56,41,0,0,0,0,0}; static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,19),40,97,54,48,50,48,32,99,49,52,51,57,32,105,49,52,52,48,41,0,0,0,0,0}; static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,19),40,97,54,48,51,53,32,99,49,52,51,54,32,105,49,52,51,55,41,0,0,0,0,0}; static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,25),40,97,53,57,54,54,32,115,116,97,114,116,49,52,50,50,32,101,110,100,49,52,50,51,41,0,0,0,0,0,0,0}; static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,56),40,115,116,114,105,110,103,45,100,101,108,101,116,101,32,99,114,105,116,101,114,105,97,49,52,49,54,32,115,49,52,49,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,49,56,41}; static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,7),40,97,54,48,54,56,41,0}; static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,19),40,97,54,49,48,49,32,99,49,52,53,53,32,105,49,52,53,54,41,0,0,0,0,0}; static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,19),40,97,54,49,50,56,32,99,49,52,54,55,32,105,49,52,54,56,41,0,0,0,0,0}; static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,19),40,97,54,49,52,51,32,99,49,52,54,52,32,105,49,52,54,53,41,0,0,0,0,0}; static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,25),40,97,54,48,55,52,32,115,116,97,114,116,49,52,53,48,32,101,110,100,49,52,53,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,56),40,115,116,114,105,110,103,45,102,105,108,116,101,114,32,99,114,105,116,101,114,105,97,49,52,52,52,32,115,49,52,52,53,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,52,54,41}; static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,7),40,97,54,49,55,54,41,0}; static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,52,56,57,41,0,0,0,0,0,0}; static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,52,57,51,41,0,0,0,0,0,0}; static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,25),40,97,54,49,56,50,32,115,116,97,114,116,49,52,55,56,32,101,110,100,49,52,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,57),40,115,116,114,105,110,103,45,105,110,100,101,120,32,115,116,114,49,52,55,50,32,99,114,105,116,101,114,105,97,49,52,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,55,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,7),40,97,54,50,57,57,41,0}; static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,49,52,41,0,0,0,0,0,0}; static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,49,56,41,0,0,0,0,0,0}; static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,25),40,97,54,51,48,53,32,115,116,97,114,116,49,53,48,51,32,101,110,100,49,53,48,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,63),40,115,116,114,105,110,103,45,105,110,100,101,120,45,114,105,103,104,116,32,115,116,114,49,52,57,55,32,99,114,105,116,101,114,105,97,49,52,57,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,52,57,57,41,0}; static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,7),40,97,54,52,51,52,41,0}; static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,51,57,41,0,0,0,0,0,0}; static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,52,51,41,0,0,0,0,0,0}; static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,25),40,97,54,52,52,48,32,115,116,97,114,116,49,53,50,56,32,101,110,100,49,53,50,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,56),40,115,116,114,105,110,103,45,115,107,105,112,32,115,116,114,49,53,50,50,32,99,114,105,116,101,114,105,97,49,53,50,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,53,50,52,41}; static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,7),40,97,54,53,53,55,41,0}; static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,54,52,41,0,0,0,0,0,0}; static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,53,54,56,41,0,0,0,0,0,0}; static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,25),40,97,54,53,54,51,32,115,116,97,114,116,49,53,53,51,32,101,110,100,49,53,53,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,62),40,115,116,114,105,110,103,45,115,107,105,112,45,114,105,103,104,116,32,115,116,114,49,53,52,55,32,99,114,105,116,101,114,105,97,49,53,52,56,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,53,52,57,41,0,0}; static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,7),40,97,54,54,57,50,41,0}; static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,49,53,56,52,32,99,111,117,110,116,49,53,56,55,41,0,0}; static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,28),40,100,111,108,111,111,112,49,53,56,57,32,105,49,53,57,49,32,99,111,117,110,116,49,53,57,50,41,0,0,0,0}; static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,28),40,100,111,108,111,111,112,49,53,57,52,32,105,49,53,57,54,32,99,111,117,110,116,49,53,57,55,41,0,0,0,0}; static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,25),40,97,54,54,57,56,32,115,116,97,114,116,49,53,55,56,32,101,110,100,49,53,55,57,41,0,0,0,0,0,0,0}; static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,55),40,115,116,114,105,110,103,45,99,111,117,110,116,32,115,49,53,55,50,32,99,114,105,116,101,114,105,97,49,53,55,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,53,55,52,41,0}; static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,7),40,97,54,56,50,55,41,0}; static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,54,48,56,41,0,0,0,0}; static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,25),40,97,54,56,51,51,32,115,116,97,114,116,49,54,48,54,32,101,110,100,49,54,48,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,102,105,108,108,33,32,115,49,54,48,48,32,99,104,97,114,49,54,48,49,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,54,48,50,41,0,0,0,0,0}; static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,7),40,97,54,56,54,56,41,0}; static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,27),40,97,54,56,55,52,32,102,115,116,97,114,116,49,54,50,49,32,102,101,110,100,49,54,50,50,41,0,0,0,0,0}; static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,65),40,115,116,114,105,110,103,45,99,111,112,121,33,32,116,111,49,54,49,52,32,116,115,116,97,114,116,49,54,49,53,32,102,114,111,109,49,54,49,54,32,46,32,109,97,121,98,101,45,102,115,116,97,114,116,43,102,101,110,100,49,54,49,55,41,0,0,0,0,0,0,0}; static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,7),40,97,54,57,48,51,41,0}; static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,7),40,97,54,57,49,53,41,0}; static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,54,53,52,41,0,0,0,0,0,0}; static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,27),40,97,54,57,50,49,32,115,116,97,114,116,50,49,54,52,57,32,101,110,100,50,49,54,53,48,41,0,0,0,0,0}; static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,40),40,97,54,57,48,57,32,114,101,115,116,49,54,51,56,49,54,52,51,32,115,116,97,114,116,49,49,54,52,52,32,101,110,100,49,49,54,52,53,41}; static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,66),40,115,116,114,105,110,103,45,99,111,110,116,97,105,110,115,32,115,116,114,105,110,103,49,54,51,50,32,115,117,98,115,116,114,105,110,103,49,54,51,51,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,54,51,52,41,0,0,0,0,0,0}; static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,7),40,97,54,57,54,53,41,0}; static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,7),40,97,54,57,55,55,41,0}; static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,54,56,48,41,0,0,0,0,0,0}; static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,27),40,97,54,57,56,51,32,115,116,97,114,116,50,49,54,55,53,32,101,110,100,50,49,54,55,54,41,0,0,0,0,0}; static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,40),40,97,54,57,55,49,32,114,101,115,116,49,54,54,52,49,54,54,57,32,115,116,97,114,116,49,49,54,55,48,32,101,110,100,49,49,54,55,49,41}; static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,69),40,115,116,114,105,110,103,45,99,111,110,116,97,105,110,115,45,99,105,32,115,116,114,105,110,103,49,54,53,56,32,115,117,98,115,116,114,105,110,103,49,54,53,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,115,43,101,110,100,115,49,54,54,48,41,0,0,0}; static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,7),40,97,55,48,51,51,41,0}; static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,106,49,55,48,55,41,0,0,0,0,0}; static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,23),40,108,112,49,32,105,49,55,48,51,32,106,49,55,48,52,32,107,49,55,48,53,41,0}; static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,35),40,97,55,48,51,57,32,114,101,115,116,50,49,54,57,53,32,115,116,97,114,116,49,54,57,54,32,101,110,100,49,54,57,55,41,0,0,0,0,0}; static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,62),40,109,97,107,101,45,107,109,112,45,114,101,115,116,97,114,116,45,118,101,99,116,111,114,32,112,97,116,116,101,114,110,49,54,56,52,32,46,32,109,97,121,98,101,45,99,61,43,115,116,97,114,116,43,101,110,100,49,54,56,53,41,0,0}; static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,55,50,57,41,0,0,0,0,0,0}; static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,56),40,107,109,112,45,115,116,101,112,32,112,97,116,49,55,50,50,32,114,118,49,55,50,51,32,99,49,55,50,52,32,105,49,55,50,53,32,99,61,49,55,50,54,32,112,45,115,116,97,114,116,49,55,50,55,41}; static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,7),40,97,55,50,50,50,41,0}; static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,12),40,108,112,50,32,118,105,49,55,54,50,41,0,0,0,0}; static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,18),40,108,112,32,115,105,49,55,53,52,32,118,105,49,55,53,53,41,0,0,0,0,0,0}; static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,39),40,97,55,50,50,56,32,114,101,115,116,50,49,55,52,57,32,115,45,115,116,97,114,116,49,55,53,48,32,115,45,101,110,100,49,55,53,49,41,0}; static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,85),40,115,116,114,105,110,103,45,107,109,112,45,112,97,114,116,105,97,108,45,115,101,97,114,99,104,32,112,97,116,49,55,51,51,32,114,118,49,55,51,52,32,115,49,55,51,53,32,105,49,55,51,54,32,46,32,99,61,43,112,45,115,116,97,114,116,43,115,45,115,116,97,114,116,43,115,45,101,110,100,49,55,51,55,41,0,0,0}; static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,20),40,115,116,114,105,110,103,45,110,117,108,108,63,32,115,49,55,54,55,41,0,0,0,0}; static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,7),40,97,55,51,51,52,41,0}; static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,55,55,56,32,106,49,55,56,49,41,0,0,0,0,0,0}; static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,25),40,97,55,51,52,48,32,115,116,97,114,116,49,55,55,52,32,101,110,100,49,55,55,53,41,0,0,0,0,0,0,0}; static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,44),40,115,116,114,105,110,103,45,114,101,118,101,114,115,101,32,115,49,55,54,57,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,55,55,48,41,0,0,0,0}; static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,7),40,97,55,51,56,57,41,0}; static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,55,57,51,32,106,49,55,57,54,41,0,0,0,0,0,0}; static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,25),40,97,55,51,57,53,32,115,116,97,114,116,49,55,57,49,32,101,110,100,49,55,57,50,41,0,0,0,0,0,0,0}; static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,114,101,118,101,114,115,101,33,32,115,49,55,56,54,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,55,56,55,41,0,0,0}; static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,7),40,97,55,52,52,51,41,0}; static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,26),40,100,111,108,111,111,112,49,56,48,57,32,105,49,56,49,49,32,97,110,115,49,56,49,50,41,0,0,0,0,0,0}; static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,25),40,97,55,52,52,57,32,115,116,97,114,116,49,56,48,55,32,101,110,100,49,56,48,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,42),40,115,116,114,105,110,103,45,62,108,105,115,116,32,115,49,56,48,50,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,56,48,51,41,0,0,0,0,0,0}; static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,36),40,115,116,114,105,110,103,45,97,112,112,101,110,100,47,115,104,97,114,101,100,32,46,32,115,116,114,105,110,103,115,49,56,49,53,41,0,0,0,0}; static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,49,56,51,53,41,0,0,0,0,0,0}; static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,37),40,108,112,32,115,116,114,105,110,103,115,49,56,49,57,32,110,99,104,97,114,115,49,56,50,48,32,102,105,114,115,116,49,56,50,49,41,0,0,0}; static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,39),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,47,115,104,97,114,101,100,32,115,116,114,105,110,103,115,49,56,49,55,41,0}; static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,49,56,52,53,32,105,49,56,52,56,41,0,0,0,0,0,0}; static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,116,114,105,110,103,115,49,56,53,51,41}; static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,32,115,116,114,105,110,103,115,49,56,52,51,41}; static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,105,115,49,56,55,53,41,0,0,0,0}; static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,66),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,45,114,101,118,101,114,115,101,32,115,116,114,105,110,103,45,108,105,115,116,49,56,54,48,32,46,32,109,97,121,98,101,45,102,105,110,97,108,43,101,110,100,49,56,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,31),40,108,112,32,108,101,110,49,56,57,50,32,110,122,108,105,115,116,49,56,57,51,32,108,105,115,49,56,57,52,41,0}; static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,73),40,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,45,114,101,118,101,114,115,101,47,115,104,97,114,101,100,32,115,116,114,105,110,103,45,108,105,115,116,49,56,55,57,32,46,32,109,97,121,98,101,45,102,105,110,97,108,43,101,110,100,49,56,56,48,41,0,0,0,0,0,0,0}; static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,12),40,108,112,32,108,105,115,49,57,49,52,41,0,0,0,0}; static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,78),40,37,102,105,110,105,115,104,45,115,116,114,105,110,103,45,99,111,110,99,97,116,101,110,97,116,101,45,114,101,118,101,114,115,101,32,108,101,110,49,57,48,55,32,115,116,114,105,110,103,45,108,105,115,116,49,57,48,56,32,102,105,110,97,108,49,57,48,57,32,101,110,100,49,57,49,48,41,0,0}; static C_char C_TLS li375[] C_aligned={C_lihdr(0,0,7),40,97,55,56,56,57,41,0}; static C_char C_TLS li376[] C_aligned={C_lihdr(0,0,27),40,97,55,56,57,53,32,115,116,97,114,116,50,49,57,51,50,32,101,110,100,50,49,57,51,51,41,0,0,0,0,0}; static C_char C_TLS li377[] C_aligned={C_lihdr(0,0,72),40,115,116,114,105,110,103,45,114,101,112,108,97,99,101,32,115,49,49,57,50,52,32,115,50,49,57,50,53,32,115,116,97,114,116,49,49,57,50,54,32,101,110,100,49,49,57,50,55,32,46,32,109,97,121,98,101,45,115,116,97,114,116,43,101,110,100,49,57,50,56,41}; static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,7),40,97,55,57,52,51,41,0}; static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,20),40,103,49,57,55,57,32,116,115,116,97,114,116,45,49,49,57,56,49,41,0,0,0,0}; static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,18),40,103,49,57,54,57,32,116,101,110,100,45,49,49,57,55,49,41,0,0,0,0,0,0}; static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,18),40,108,112,32,105,49,57,54,48,32,97,110,115,49,57,54,49,41,0,0,0,0,0,0}; static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,25),40,97,55,57,52,57,32,115,116,97,114,116,49,57,53,55,32,101,110,100,49,57,53,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,51),40,115,116,114,105,110,103,45,116,111,107,101,110,105,122,101,32,115,49,57,52,51,32,46,32,116,111,107,101,110,45,99,104,97,114,115,43,115,116,97,114,116,43,101,110,100,49,57,52,52,41,0,0,0,0,0}; static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,7),40,97,56,48,52,52,41,0}; static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,25),40,97,56,48,53,52,32,115,116,97,114,116,49,57,57,48,32,101,110,100,49,57,57,49,41,0,0,0,0,0,0,0}; static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,7),40,97,56,48,51,50,41,0}; static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,32),40,97,56,48,55,54,32,116,111,49,57,57,53,32,115,116,97,114,116,49,57,57,54,32,101,110,100,49,57,57,55,41}; static C_char C_TLS li388[] C_aligned={C_lihdr(0,0,52),40,120,115,117,98,115,116,114,105,110,103,32,115,49,57,56,52,32,102,114,111,109,49,57,56,53,32,46,32,109,97,121,98,101,45,116,111,43,115,116,97,114,116,43,101,110,100,49,57,56,54,41,0,0,0,0}; static C_char C_TLS li389[] C_aligned={C_lihdr(0,0,7),40,97,56,49,51,55,41,0}; static C_char C_TLS li390[] C_aligned={C_lihdr(0,0,25),40,97,56,49,52,55,32,115,116,97,114,116,50,48,49,55,32,101,110,100,50,48,49,56,41,0,0,0,0,0,0,0}; static C_char C_TLS li391[] C_aligned={C_lihdr(0,0,7),40,97,56,49,50,53,41,0}; static C_char C_TLS li392[] C_aligned={C_lihdr(0,0,33),40,97,56,49,54,57,32,115,116,111,50,48,50,50,32,115,116,97,114,116,50,48,50,51,32,101,110,100,50,48,50,52,41,0,0,0,0,0,0,0}; static C_char C_TLS li393[] C_aligned={C_lihdr(0,0,79),40,115,116,114,105,110,103,45,120,99,111,112,121,33,32,116,97,114,103,101,116,50,48,48,57,32,116,115,116,97,114,116,50,48,49,48,32,115,50,48,49,49,32,115,102,114,111,109,50,48,49,50,32,46,32,109,97,121,98,101,45,115,116,111,43,115,116,97,114,116,43,101,110,100,50,48,49,51,41,0}; static C_char C_TLS li394[] C_aligned={C_lihdr(0,0,29),40,100,111,108,111,111,112,50,48,53,49,32,105,50,48,53,51,32,110,115,112,97,110,115,50,48,53,52,41,0,0,0}; static C_char C_TLS li395[] C_aligned={C_lihdr(0,0,85),40,37,109,117,108,116,105,115,112,97,110,45,114,101,112,99,111,112,121,33,32,116,97,114,103,101,116,50,48,51,56,32,116,115,116,97,114,116,50,48,51,57,32,115,50,48,52,48,32,115,102,114,111,109,50,48,52,49,32,115,116,111,50,48,52,50,32,115,116,97,114,116,50,48,52,51,32,101,110,100,50,48,52,52,41,0,0,0}; static C_char C_TLS li396[] C_aligned={C_lihdr(0,0,15),40,114,101,99,117,114,32,108,105,115,50,48,55,53,41,0}; static C_char C_TLS li397[] C_aligned={C_lihdr(0,0,27),40,98,117,105,108,100,105,116,32,108,105,115,50,48,55,50,32,102,105,110,97,108,50,48,55,51,41,0,0,0,0,0}; static C_char C_TLS li398[] C_aligned={C_lihdr(0,0,45),40,115,116,114,105,110,103,45,106,111,105,110,32,115,116,114,105,110,103,115,50,48,53,57,32,46,32,100,101,108,105,109,43,103,114,97,109,109,97,114,50,48,54,48,41,0,0,0}; static C_char C_TLS li399[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; C_noret_decl(f_5514) static void C_ccall f_5514(C_word c,C_word *av) C_noret; C_noret_decl(f_7076) static void C_fcall f_7076(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6789) static void C_fcall f_6789(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3816) static void C_fcall f_3816(C_word t0,C_word t1) C_noret; C_noret_decl(f_5536) static void C_ccall f_5536(C_word c,C_word *av) C_noret; C_noret_decl(f_3801) static void C_fcall f_3801(C_word t0,C_word t1) C_noret; C_noret_decl(f_3806) static void C_fcall f_3806(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5994) static void C_ccall f_5994(C_word c,C_word *av) C_noret; C_noret_decl(f_3874) static void C_fcall f_3874(C_word t0,C_word t1) C_noret; C_noret_decl(f_7064) static void C_fcall f_7064(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7034) static void C_ccall f_7034(C_word c,C_word *av) C_noret; C_noret_decl(f_7050) static void C_ccall f_7050(C_word c,C_word *av) C_noret; C_noret_decl(f_3837) static void C_ccall f_3837(C_word c,C_word *av) C_noret; C_noret_decl(f_5303) static void C_fcall f_5303(C_word t0,C_word t1) C_noret; C_noret_decl(f_7746) static void C_fcall f_7746(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7793) static void C_fcall f_7793(C_word t0,C_word t1) C_noret; C_noret_decl(f_5311) static void C_ccall f_5311(C_word c,C_word *av) C_noret; C_noret_decl(f_5317) static void C_ccall f_5317(C_word c,C_word *av) C_noret; C_noret_decl(f_6483) static void C_ccall f_6483(C_word c,C_word *av) C_noret; C_noret_decl(f_6632) static void C_ccall f_6632(C_word c,C_word *av) C_noret; C_noret_decl(f_5339) static void C_ccall f_5339(C_word c,C_word *av) C_noret; C_noret_decl(f_6488) static void C_fcall f_6488(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3633) static void C_ccall f_3633(C_word c,C_word *av) C_noret; C_noret_decl(f_3636) static void C_fcall f_3636(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_2564) static void C_ccall f_2564(C_word c,C_word *av) C_noret; C_noret_decl(f_3664) static void C_fcall f_3664(C_word t0,C_word t1) C_noret; C_noret_decl(f_4493) static void C_fcall f_4493(C_word t0,C_word t1) C_noret; C_noret_decl(f_7944) static void C_ccall f_7944(C_word c,C_word *av) C_noret; C_noret_decl(f_6102) static void C_ccall f_6102(C_word c,C_word *av) C_noret; C_noret_decl(f_6109) static void C_ccall f_6109(C_word c,C_word *av) C_noret; C_noret_decl(f_3640) static void C_ccall f_3640(C_word c,C_word *av) C_noret; C_noret_decl(f_3649) static void C_fcall f_3649(C_word t0,C_word t1) C_noret; C_noret_decl(f_7950) static void C_ccall f_7950(C_word c,C_word *av) C_noret; C_noret_decl(f_7956) static void C_fcall f_7956(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2558) static void C_ccall f_2558(C_word c,C_word *av) C_noret; C_noret_decl(f_4477) static void C_ccall f_4477(C_word c,C_word *av) C_noret; C_noret_decl(f_4471) static void C_ccall f_4471(C_word c,C_word *av) C_noret; C_noret_decl(f_7960) static void C_ccall f_7960(C_word c,C_word *av) C_noret; C_noret_decl(f_6127) static void C_ccall f_6127(C_word c,C_word *av) C_noret; C_noret_decl(f_7964) static void C_fcall f_7964(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6129) static void C_ccall f_6129(C_word c,C_word *av) C_noret; C_noret_decl(f_6124) static void C_ccall f_6124(C_word c,C_word *av) C_noret; C_noret_decl(f_2528) static void C_ccall f_2528(C_word c,C_word *av) C_noret; C_noret_decl(f_8024) static void C_ccall f_8024(C_word c,C_word *av) C_noret; C_noret_decl(f_6121) static void C_ccall f_6121(C_word c,C_word *av) C_noret; C_noret_decl(f_4483) static void C_ccall f_4483(C_word c,C_word *av) C_noret; C_noret_decl(f_6118) static void C_ccall f_6118(C_word c,C_word *av) C_noret; C_noret_decl(f_3654) static void C_fcall f_3654(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4956) static void C_ccall f_4956(C_word c,C_word *av) C_noret; C_noret_decl(f_4950) static void C_ccall f_4950(C_word c,C_word *av) C_noret; C_noret_decl(f_4959) static void C_ccall f_4959(C_word c,C_word *av) C_noret; C_noret_decl(f_5293) static void C_ccall f_5293(C_word c,C_word *av) C_noret; C_noret_decl(f_7909) static void C_ccall f_7909(C_word c,C_word *av) C_noret; C_noret_decl(f_6144) static void C_ccall f_6144(C_word c,C_word *av) C_noret; C_noret_decl(f_8001) static void C_ccall f_8001(C_word c,C_word *av) C_noret; C_noret_decl(f_3603) static void C_ccall f_3603(C_word c,C_word *av) C_noret; C_noret_decl(f_3606) static void C_ccall f_3606(C_word c,C_word *av) C_noret; C_noret_decl(f_2766) static void C_ccall f_2766(C_word c,C_word *av) C_noret; C_noret_decl(f_4967) static void C_fcall f_4967(C_word t0,C_word t1) C_noret; C_noret_decl(f_6136) static void C_ccall f_6136(C_word c,C_word *av) C_noret; C_noret_decl(f_6658) static void C_fcall f_6658(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5349) static void C_fcall f_5349(C_word t0,C_word t1) C_noret; C_noret_decl(f_2772) static void C_ccall f_2772(C_word c,C_word *av) C_noret; C_noret_decl(f_2778) static void C_ccall f_2778(C_word c,C_word *av) C_noret; C_noret_decl(f_5357) static void C_ccall f_5357(C_word c,C_word *av) C_noret; C_noret_decl(f_2741) static void C_fcall f_2741(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4908) static void C_ccall f_4908(C_word c,C_word *av) C_noret; C_noret_decl(f_7932) static void C_ccall f_7932(C_word c,C_word *av) C_noret; C_noret_decl(f_6157) static void C_ccall f_6157(C_word c,C_word *av) C_noret; C_noret_decl(f_3612) static void C_fcall f_3612(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5363) static void C_ccall f_5363(C_word c,C_word *av) C_noret; C_noret_decl(f_7854) static C_word C_fcall f_7854(C_word t0,C_word t1,C_word t2); C_noret_decl(f_6151) static void C_ccall f_6151(C_word c,C_word *av) C_noret; C_noret_decl(f_5369) static void C_ccall f_5369(C_word c,C_word *av) C_noret; C_noret_decl(f_4914) static void C_ccall f_4914(C_word c,C_word *av) C_noret; C_noret_decl(f_6671) static void C_ccall f_6671(C_word c,C_word *av) C_noret; C_noret_decl(f_6183) static void C_ccall f_6183(C_word c,C_word *av) C_noret; C_noret_decl(f_2723) static void C_ccall f_2723(C_word c,C_word *av) C_noret; C_noret_decl(f_4920) static void C_ccall f_4920(C_word c,C_word *av) C_noret; C_noret_decl(f_4926) static void C_ccall f_4926(C_word c,C_word *av) C_noret; C_noret_decl(f_2729) static void C_fcall f_2729(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_6177) static void C_ccall f_6177(C_word c,C_word *av) C_noret; C_noret_decl(f_6619) static void C_fcall f_6619(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6171) static void C_ccall f_6171(C_word c,C_word *av) C_noret; C_noret_decl(f_3994) static void C_ccall f_3994(C_word c,C_word *av) C_noret; C_noret_decl(f_3276) static void C_fcall f_3276(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4932) static void C_ccall f_4932(C_word c,C_word *av) C_noret; C_noret_decl(f_3270) static void C_ccall f_3270(C_word c,C_word *av) C_noret; C_noret_decl(f_2736) static void C_ccall f_2736(C_word c,C_word *av) C_noret; C_noret_decl(f_2739) static void C_ccall f_2739(C_word c,C_word *av) C_noret; C_noret_decl(f_6898) static void C_ccall f_6898(C_word c,C_word *av) C_noret; C_noret_decl(f_2994) static void C_ccall f_2994(C_word c,C_word *av) C_noret; C_noret_decl(f_6610) static void C_ccall f_6610(C_word c,C_word *av) C_noret; C_noret_decl(f_7842) static void C_fcall f_7842(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_7846) static void C_ccall f_7846(C_word c,C_word *av) C_noret; C_noret_decl(f_3264) static void C_ccall f_3264(C_word c,C_word *av) C_noret; C_noret_decl(f_2705) static void C_ccall f_2705(C_word c,C_word *av) C_noret; C_noret_decl(f_6195) static C_word C_fcall f_6195(C_word t0,C_word t1); C_noret_decl(f_2711) static void C_ccall f_2711(C_word c,C_word *av) C_noret; C_noret_decl(f_2717) static void C_ccall f_2717(C_word c,C_word *av) C_noret; C_noret_decl(f_3258) static void C_ccall f_3258(C_word c,C_word *av) C_noret; C_noret_decl(f_3742) static void C_fcall f_3742(C_word t0,C_word t1) C_noret; C_noret_decl(f_3240) static void C_ccall f_3240(C_word c,C_word *av) C_noret; C_noret_decl(f_8077) static void C_ccall f_8077(C_word c,C_word *av) C_noret; C_noret_decl(f_6882) static void C_ccall f_6882(C_word c,C_word *av) C_noret; C_noret_decl(f_3229) static void C_ccall f_3229(C_word c,C_word *av) C_noret; C_noret_decl(f_3710) static void C_ccall f_3710(C_word c,C_word *av) C_noret; C_noret_decl(f_8055) static void C_ccall f_8055(C_word c,C_word *av) C_noret; C_noret_decl(f_3719) static void C_fcall f_3719(C_word t0,C_word t1) C_noret; C_noret_decl(f_3122) static void C_ccall f_3122(C_word c,C_word *av) C_noret; C_noret_decl(f_6875) static void C_ccall f_6875(C_word c,C_word *av) C_noret; C_noret_decl(f_3706) static void C_fcall f_3706(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_8045) static void C_ccall f_8045(C_word c,C_word *av) C_noret; C_noret_decl(f_2463) static void C_ccall f_2463(C_word c,C_word *av) C_noret; C_noret_decl(f_2466) static void C_ccall f_2466(C_word c,C_word *av) C_noret; C_noret_decl(f_3732) static void C_fcall f_3732(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8033) static void C_ccall f_8033(C_word c,C_word *av) C_noret; C_noret_decl(f_3143) static void C_ccall f_3143(C_word c,C_word *av) C_noret; C_noret_decl(f_3146) static void C_ccall f_3146(C_word c,C_word *av) C_noret; C_noret_decl(f_2468) static void C_ccall f_2468(C_word c,C_word *av) C_noret; C_noret_decl(f_5704) static void C_ccall f_5704(C_word c,C_word *av) C_noret; C_noret_decl(f_5708) static void C_fcall f_5708(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4347) static void C_ccall f_4347(C_word c,C_word *av) C_noret; C_noret_decl(f_3166) static void C_ccall f_3166(C_word c,C_word *av) C_noret; C_noret_decl(f_5700) static void C_ccall f_5700(C_word c,C_word *av) C_noret; C_noret_decl(f_5729) static void C_ccall f_5729(C_word c,C_word *av) C_noret; C_noret_decl(f_3181) static void C_ccall f_3181(C_word c,C_word *av) C_noret; C_noret_decl(f_3299) static void C_ccall f_3299(C_word c,C_word *av) C_noret; C_noret_decl(f_3196) static void C_fcall f_3196(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3190) static void C_ccall f_3190(C_word c,C_word *av) C_noret; C_noret_decl(f_3286) static void C_ccall f_3286(C_word c,C_word *av) C_noret; C_noret_decl(f_7438) static void C_ccall f_7438(C_word c,C_word *av) C_noret; C_noret_decl(f_4337) static void C_fcall f_4337(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9) C_noret; C_noret_decl(f_4786) static void C_ccall f_4786(C_word c,C_word *av) C_noret; C_noret_decl(f_4780) static void C_ccall f_4780(C_word c,C_word *av) C_noret; C_noret_decl(f_6230) static void C_fcall f_6230(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4798) static void C_ccall f_4798(C_word c,C_word *av) C_noret; C_noret_decl(f_3109) static void C_fcall f_3109(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4792) static void C_ccall f_4792(C_word c,C_word *av) C_noret; C_noret_decl(f_3103) static void C_fcall f_3103(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_3101) static void C_ccall f_3101(C_word c,C_word *av) C_noret; C_noret_decl(f_6225) static void C_ccall f_6225(C_word c,C_word *av) C_noret; C_noret_decl(f_8111) static void C_ccall f_8111(C_word c,C_word *av) C_noret; C_noret_decl(f_8117) static void C_ccall f_8117(C_word c,C_word *av) C_noret; C_noret_decl(f_8114) static void C_ccall f_8114(C_word c,C_word *av) C_noret; C_noret_decl(f_8148) static void C_ccall f_8148(C_word c,C_word *av) C_noret; C_noret_decl(f_4612) static void C_ccall f_4612(C_word c,C_word *av) C_noret; C_noret_decl(f_4618) static void C_ccall f_4618(C_word c,C_word *av) C_noret; C_noret_decl(f_3119) static void C_ccall f_3119(C_word c,C_word *av) C_noret; C_noret_decl(f_3466) static void C_ccall f_3466(C_word c,C_word *av) C_noret; C_noret_decl(f_4624) static void C_ccall f_4624(C_word c,C_word *av) C_noret; C_noret_decl(f_3458) static void C_ccall f_3458(C_word c,C_word *av) C_noret; C_noret_decl(f_8126) static void C_ccall f_8126(C_word c,C_word *av) C_noret; C_noret_decl(f_4144) static void C_ccall f_4144(C_word c,C_word *av) C_noret; C_noret_decl(f_7326) static void C_ccall f_7326(C_word c,C_word *av) C_noret; C_noret_decl(f_7444) static void C_ccall f_7444(C_word c,C_word *av) C_noret; C_noret_decl(f_7329) static void C_ccall f_7329(C_word c,C_word *av) C_noret; C_noret_decl(f_6413) static void C_ccall f_6413(C_word c,C_word *av) C_noret; C_noret_decl(f_4606) static void C_ccall f_4606(C_word c,C_word *av) C_noret; C_noret_decl(f_4150) static void C_ccall f_4150(C_word c,C_word *av) C_noret; C_noret_decl(f_4156) static void C_ccall f_4156(C_word c,C_word *av) C_noret; C_noret_decl(f_7450) static void C_ccall f_7450(C_word c,C_word *av) C_noret; C_noret_decl(f_6294) static void C_ccall f_6294(C_word c,C_word *av) C_noret; C_noret_decl(f_7335) static void C_ccall f_7335(C_word c,C_word *av) C_noret; C_noret_decl(f_6400) static void C_fcall f_6400(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3436) static void C_fcall f_3436(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4651) static void C_ccall f_4651(C_word c,C_word *av) C_noret; C_noret_decl(f_4162) static void C_ccall f_4162(C_word c,C_word *av) C_noret; C_noret_decl(f_4654) static void C_ccall f_4654(C_word c,C_word *av) C_noret; C_noret_decl(f_4168) static void C_ccall f_4168(C_word c,C_word *av) C_noret; C_noret_decl(f_7460) static void C_fcall f_7460(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_7341) static void C_ccall f_7341(C_word c,C_word *av) C_noret; C_noret_decl(f_7348) static void C_ccall f_7348(C_word c,C_word *av) C_noret; C_noret_decl(f_6435) static void C_ccall f_6435(C_word c,C_word *av) C_noret; C_noret_decl(f_4663) static void C_ccall f_4663(C_word c,C_word *av) C_noret; C_noret_decl(f_4669) static void C_ccall f_4669(C_word c,C_word *av) C_noret; C_noret_decl(f_4174) static void C_ccall f_4174(C_word c,C_word *av) C_noret; C_noret_decl(f_7357) static C_word C_fcall f_7357(C_word t0,C_word t1,C_word t2); C_noret_decl(f_4630) static void C_ccall f_4630(C_word c,C_word *av) C_noret; C_noret_decl(f_4637) static void C_fcall f_4637(C_word t0,C_word t1) C_noret; C_noret_decl(f_7406) static C_word C_fcall f_7406(C_word t0,C_word t1,C_word t2); C_noret_decl(f_6453) static C_word C_fcall f_6453(C_word t0,C_word t1); C_noret_decl(f_6429) static void C_ccall f_6429(C_word c,C_word *av) C_noret; C_noret_decl(f_3408) static void C_ccall f_3408(C_word c,C_word *av) C_noret; C_noret_decl(f_4645) static void C_ccall f_4645(C_word c,C_word *av) C_noret; C_noret_decl(f_7725) static void C_ccall f_7725(C_word c,C_word *av) C_noret; C_noret_decl(f_6441) static void C_ccall f_6441(C_word c,C_word *av) C_noret; C_noret_decl(f_6243) static void C_ccall f_6243(C_word c,C_word *av) C_noret; C_noret_decl(f_5835) static void C_ccall f_5835(C_word c,C_word *av) C_noret; C_noret_decl(f_4120) static void C_ccall f_4120(C_word c,C_word *av) C_noret; C_noret_decl(f_4126) static void C_ccall f_4126(C_word c,C_word *av) C_noret; C_noret_decl(f_5850) static void C_ccall f_5850(C_word c,C_word *av) C_noret; C_noret_decl(f_7384) static void C_ccall f_7384(C_word c,C_word *av) C_noret; C_noret_decl(f_6278) static void C_ccall f_6278(C_word c,C_word *av) C_noret; C_noret_decl(f_8170) static void C_ccall f_8170(C_word c,C_word *av) C_noret; C_noret_decl(f_4132) static void C_ccall f_4132(C_word c,C_word *av) C_noret; C_noret_decl(f_4138) static void C_ccall f_4138(C_word c,C_word *av) C_noret; C_noret_decl(f_6265) static void C_fcall f_6265(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5856) static void C_ccall f_5856(C_word c,C_word *av) C_noret; C_noret_decl(f_3897) static void C_fcall f_3897(C_word t0,C_word t1) C_noret; C_noret_decl(f_5491) static void C_ccall f_5491(C_word c,C_word *av) C_noret; C_noret_decl(f_5802) static void C_ccall f_5802(C_word c,C_word *av) C_noret; C_noret_decl(f_7987) static void C_ccall f_7987(C_word c,C_word *av) C_noret; C_noret_decl(f_3887) static void C_fcall f_3887(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8183) static void C_ccall f_8183(C_word c,C_word *av) C_noret; C_noret_decl(f_2585) static void C_ccall f_2585(C_word c,C_word *av) C_noret; C_noret_decl(f_5495) static void C_fcall f_5495(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5499) static void C_ccall f_5499(C_word c,C_word *av) C_noret; C_noret_decl(f_5806) static void C_fcall f_5806(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8138) static void C_ccall f_8138(C_word c,C_word *av) C_noret; C_noret_decl(f_3023) static C_word C_fcall f_3023(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5818) static void C_ccall f_5818(C_word c,C_word *av) C_noret; C_noret_decl(f_4180) static void C_ccall f_4180(C_word c,C_word *av) C_noret; C_noret_decl(f_2570) static void C_ccall f_2570(C_word c,C_word *av) C_noret; C_noret_decl(f_3081) static void C_ccall f_3081(C_word c,C_word *av) C_noret; C_noret_decl(f_3520) static void C_ccall f_3520(C_word c,C_word *av) C_noret; C_noret_decl(f_5449) static void C_ccall f_5449(C_word c,C_word *av) C_noret; C_noret_decl(f_3525) static void C_fcall f_3525(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5443) static void C_ccall f_5443(C_word c,C_word *av) C_noret; C_noret_decl(f_5461) static void C_ccall f_5461(C_word c,C_word *av) C_noret; C_noret_decl(f_5455) static void C_ccall f_5455(C_word c,C_word *av) C_noret; C_noret_decl(f_6699) static void C_ccall f_6699(C_word c,C_word *av) C_noret; C_noret_decl(f_5467) static void C_fcall f_5467(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5481) static void C_fcall f_5481(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3052) static void C_ccall f_3052(C_word c,C_word *av) C_noret; C_noret_decl(f_6693) static void C_ccall f_6693(C_word c,C_word *av) C_noret; C_noret_decl(f_6687) static void C_ccall f_6687(C_word c,C_word *av) C_noret; C_noret_decl(f_3535) static void C_ccall f_3535(C_word c,C_word *av) C_noret; C_noret_decl(f_5477) static void C_ccall f_5477(C_word c,C_word *av) C_noret; C_noret_decl(f_5473) static void C_fcall f_5473(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7975) static void C_fcall f_7975(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7971) static void C_ccall f_7971(C_word c,C_word *av) C_noret; C_noret_decl(f_7896) static void C_ccall f_7896(C_word c,C_word *av) C_noret; C_noret_decl(f_7890) static void C_ccall f_7890(C_word c,C_word *av) C_noret; C_noret_decl(f_3566) static void C_fcall f_3566(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4545) static void C_ccall f_4545(C_word c,C_word *av) C_noret; C_noret_decl(f_4108) static void C_ccall f_4108(C_word c,C_word *av) C_noret; C_noret_decl(f_4102) static void C_ccall f_4102(C_word c,C_word *av) C_noret; C_noret_decl(f_7885) static void C_ccall f_7885(C_word c,C_word *av) C_noret; C_noret_decl(f_7881) static void C_ccall f_7881(C_word c,C_word *av) C_noret; C_noret_decl(f_4114) static void C_ccall f_4114(C_word c,C_word *av) C_noret; C_noret_decl(f_3006) static void C_ccall f_3006(C_word c,C_word *av) C_noret; C_noret_decl(f_4569) static void C_ccall f_4569(C_word c,C_word *av) C_noret; C_noret_decl(f_4533) static void C_ccall f_4533(C_word c,C_word *av) C_noret; C_noret_decl(f_4539) static void C_ccall f_4539(C_word c,C_word *av) C_noret; C_noret_decl(f_3063) static void C_ccall f_3063(C_word c,C_word *av) C_noret; C_noret_decl(f_5035) static void C_ccall f_5035(C_word c,C_word *av) C_noret; C_noret_decl(f_5032) static void C_ccall f_5032(C_word c,C_word *av) C_noret; C_noret_decl(f_4504) static void C_ccall f_4504(C_word c,C_word *av) C_noret; C_noret_decl(f_4501) static void C_ccall f_4501(C_word c,C_word *av) C_noret; C_noret_decl(f_5044) static void C_ccall f_5044(C_word c,C_word *av) C_noret; C_noret_decl(f_4551) static void C_ccall f_4551(C_word c,C_word *av) C_noret; C_noret_decl(f_4527) static void C_ccall f_4527(C_word c,C_word *av) C_noret; C_noret_decl(f_6947) static void C_ccall f_6947(C_word c,C_word *av) C_noret; C_noret_decl(f_3336) static void C_ccall f_3336(C_word c,C_word *av) C_noret; C_noret_decl(f_5005) static void C_ccall f_5005(C_word c,C_word *av) C_noret; C_noret_decl(f_6001) static void C_ccall f_6001(C_word c,C_word *av) C_noret; C_noret_decl(f_4987) static void C_ccall f_4987(C_word c,C_word *av) C_noret; C_noret_decl(f_4510) static void C_ccall f_4510(C_word c,C_word *av) C_noret; C_noret_decl(f_6934) static void C_fcall f_6934(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3360) static C_word C_fcall f_3360(C_word t0,C_word t1); C_noret_decl(f_4381) static void C_ccall f_4381(C_word c,C_word *av) C_noret; C_noret_decl(f_4999) static void C_ccall f_4999(C_word c,C_word *av) C_noret; C_noret_decl(f_4993) static void C_ccall f_4993(C_word c,C_word *av) C_noret; C_noret_decl(f_4399) static void C_ccall f_4399(C_word c,C_word *av) C_noret; C_noret_decl(f_7106) static void C_ccall f_7106(C_word c,C_word *av) C_noret; C_noret_decl(f_6010) static void C_ccall f_6010(C_word c,C_word *av) C_noret; C_noret_decl(f_7116) static void C_ccall f_7116(C_word c,C_word *av) C_noret; C_noret_decl(f_6028) static void C_ccall f_6028(C_word c,C_word *av) C_noret; C_noret_decl(f_2784) static void C_ccall f_2784(C_word c,C_word *av) C_noret; C_noret_decl(f_3327) static void C_ccall f_3327(C_word c,C_word *av) C_noret; C_noret_decl(f_6019) static void C_ccall f_6019(C_word c,C_word *av) C_noret; C_noret_decl(f_6013) static void C_ccall f_6013(C_word c,C_word *av) C_noret; C_noret_decl(f_6016) static void C_ccall f_6016(C_word c,C_word *av) C_noret; C_noret_decl(f_4874) static void C_fcall f_4874(C_word t0,C_word t1) C_noret; C_noret_decl(f_5050) static void C_ccall f_5050(C_word c,C_word *av) C_noret; C_noret_decl(f_2790) static void C_fcall f_2790(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5056) static void C_ccall f_5056(C_word c,C_word *av) C_noret; C_noret_decl(f_2494) static void C_ccall f_2494(C_word c,C_word *av) C_noret; C_noret_decl(f_2796) static void C_fcall f_2796(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6922) static void C_ccall f_6922(C_word c,C_word *av) C_noret; C_noret_decl(f_3311) static void C_ccall f_3311(C_word c,C_word *av) C_noret; C_noret_decl(f_3317) static void C_fcall f_3317(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6049) static void C_ccall f_6049(C_word c,C_word *av) C_noret; C_noret_decl(f_6043) static void C_ccall f_6043(C_word c,C_word *av) C_noret; C_noret_decl(f_4846) static void C_ccall f_4846(C_word c,C_word *av) C_noret; C_noret_decl(f_4840) static void C_ccall f_4840(C_word c,C_word *av) C_noret; C_noret_decl(f_5062) static void C_ccall f_5062(C_word c,C_word *av) C_noret; C_noret_decl(f_6916) static void C_ccall f_6916(C_word c,C_word *av) C_noret; C_noret_decl(f_6910) static void C_ccall f_6910(C_word c,C_word *av) C_noret; C_noret_decl(f_3342) static void C_ccall f_3342(C_word c,C_word *av) C_noret; C_noret_decl(f_3348) static void C_ccall f_3348(C_word c,C_word *av) C_noret; C_noret_decl(f_6036) static void C_ccall f_6036(C_word c,C_word *av) C_noret; C_noret_decl(f_4852) static void C_ccall f_4852(C_word c,C_word *av) C_noret; C_noret_decl(f_5075) static void C_fcall f_5075(C_word t0,C_word t1) C_noret; C_noret_decl(f_4858) static void C_ccall f_4858(C_word c,C_word *av) C_noret; C_noret_decl(f_5068) static void C_ccall f_5068(C_word c,C_word *av) C_noret; C_noret_decl(f_6069) static void C_ccall f_6069(C_word c,C_word *av) C_noret; C_noret_decl(f_5083) static void C_ccall f_5083(C_word c,C_word *av) C_noret; C_noret_decl(f_5086) static void C_ccall f_5086(C_word c,C_word *av) C_noret; C_noret_decl(f_3792) static void C_ccall f_3792(C_word c,C_word *av) C_noret; C_noret_decl(f_5011) static void C_ccall f_5011(C_word c,C_word *av) C_noret; C_noret_decl(f_5089) static void C_ccall f_5089(C_word c,C_word *av) C_noret; C_noret_decl(f_6960) static void C_ccall f_6960(C_word c,C_word *av) C_noret; C_noret_decl(f_6966) static void C_ccall f_6966(C_word c,C_word *av) C_noret; C_noret_decl(f_3788) static void C_fcall f_3788(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_6088) static void C_ccall f_6088(C_word c,C_word *av) C_noret; C_noret_decl(f_4804) static void C_ccall f_4804(C_word c,C_word *av) C_noret; C_noret_decl(f_5026) static void C_ccall f_5026(C_word c,C_word *av) C_noret; C_noret_decl(f_6021) static void C_ccall f_6021(C_word c,C_word *av) C_noret; C_noret_decl(f_5018) static void C_fcall f_5018(C_word t0,C_word t1) C_noret; C_noret_decl(f_7180) static void C_ccall f_7180(C_word c,C_word *av) C_noret; C_noret_decl(f_3305) static void C_ccall f_3305(C_word c,C_word *av) C_noret; C_noret_decl(f_6075) static void C_ccall f_6075(C_word c,C_word *av) C_noret; C_noret_decl(f_4811) static void C_fcall f_4811(C_word t0,C_word t1) C_noret; C_noret_decl(f_4819) static void C_ccall f_4819(C_word c,C_word *av) C_noret; C_noret_decl(f_6091) static void C_ccall f_6091(C_word c,C_word *av) C_noret; C_noret_decl(f_6904) static void C_ccall f_6904(C_word c,C_word *av) C_noret; C_noret_decl(f_4864) static void C_ccall f_4864(C_word c,C_word *av) C_noret; C_noret_decl(f_7545) static void C_ccall f_7545(C_word c,C_word *av) C_noret; C_noret_decl(f_6063) static void C_ccall f_6063(C_word c,C_word *av) C_noret; C_noret_decl(f_7550) static C_word C_fcall f_7550(C_word t0,C_word t1,C_word t2); C_noret_decl(f_3490) static C_word C_fcall f_3490(C_word t0,C_word t1); C_noret_decl(f_7484) static void C_ccall f_7484(C_word c,C_word *av) C_noret; C_noret_decl(f_5682) static void C_ccall f_5682(C_word c,C_word *av) C_noret; C_noret_decl(f_4822) static void C_ccall f_4822(C_word c,C_word *av) C_noret; C_noret_decl(f_4828) static void C_ccall f_4828(C_word c,C_word *av) C_noret; C_noret_decl(f_7167) static void C_ccall f_7167(C_word c,C_word *av) C_noret; C_noret_decl(f_7496) static void C_fcall f_7496(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; C_noret_decl(f_5694) static void C_ccall f_5694(C_word c,C_word *av) C_noret; C_noret_decl(f_7490) static void C_ccall f_7490(C_word c,C_word *av) C_noret; C_noret_decl(f_3478) static void C_ccall f_3478(C_word c,C_word *av) C_noret; C_noret_decl(f_7173) static void C_fcall f_7173(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3472) static void C_ccall f_3472(C_word c,C_word *av) C_noret; C_noret_decl(f_2823) static void C_ccall f_2823(C_word c,C_word *av) C_noret; C_noret_decl(f_2835) static void C_ccall f_2835(C_word c,C_word *av) C_noret; C_noret_decl(f_2829) static void C_ccall f_2829(C_word c,C_word *av) C_noret; C_noret_decl(f_2841) static void C_fcall f_2841(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5413) static void C_ccall f_5413(C_word c,C_word *av) C_noret; C_noret_decl(f_5655) static void C_ccall f_5655(C_word c,C_word *av) C_noret; C_noret_decl(f_5407) static void C_ccall f_5407(C_word c,C_word *av) C_noret; C_noret_decl(f_2855) static void C_ccall f_2855(C_word c,C_word *av) C_noret; C_noret_decl(f_5876) static void C_ccall f_5876(C_word c,C_word *av) C_noret; C_noret_decl(f_5662) static void C_ccall f_5662(C_word c,C_word *av) C_noret; C_noret_decl(f_5419) static void C_ccall f_5419(C_word c,C_word *av) C_noret; C_noret_decl(f_2865) static void C_ccall f_2865(C_word c,C_word *av) C_noret; C_noret_decl(f_5431) static void C_ccall f_5431(C_word c,C_word *av) C_noret; C_noret_decl(f_5425) static void C_ccall f_5425(C_word c,C_word *av) C_noret; C_noret_decl(f_2871) static void C_ccall f_2871(C_word c,C_word *av) C_noret; C_noret_decl(f_5893) static void C_ccall f_5893(C_word c,C_word *av) C_noret; C_noret_decl(f_5437) static void C_ccall f_5437(C_word c,C_word *av) C_noret; C_noret_decl(f_8243) static void C_fcall f_8243(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_2877) static void C_ccall f_2877(C_word c,C_word *av) C_noret; C_noret_decl(f_4694) static void C_fcall f_4694(C_word t0,C_word t1) C_noret; C_noret_decl(f_2887) static void C_fcall f_2887(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_8305) static void C_fcall f_8305(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_8212) static void C_fcall f_8212(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_4675) static void C_ccall f_4675(C_word c,C_word *av) C_noret; C_noret_decl(f_5401) static void C_ccall f_5401(C_word c,C_word *av) C_noret; C_noret_decl(f_8283) static void C_ccall f_8283(C_word c,C_word *av) C_noret; C_noret_decl(f_8285) static void C_ccall f_8285(C_word c,C_word *av) C_noret; C_noret_decl(f_4687) static void C_ccall f_4687(C_word c,C_word *av) C_noret; C_noret_decl(f_4681) static void C_ccall f_4681(C_word c,C_word *av) C_noret; C_noret_decl(f_6564) static void C_ccall f_6564(C_word c,C_word *av) C_noret; C_noret_decl(f_7674) static C_word C_fcall f_7674(C_word t0,C_word t1); C_noret_decl(f_6552) static void C_ccall f_6552(C_word c,C_word *av) C_noret; C_noret_decl(f_6558) static void C_ccall f_6558(C_word c,C_word *av) C_noret; C_noret_decl(f_5223) static void C_fcall f_5223(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5221) static void C_fcall f_5221(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; C_noret_decl(f_8340) static void C_ccall f_8340(C_word c,C_word *av) C_noret; C_noret_decl(f_6580) static C_word C_fcall f_6580(C_word t0,C_word t1); C_noret_decl(f_8325) static void C_ccall f_8325(C_word c,C_word *av) C_noret; C_noret_decl(f_2817) static void C_ccall f_2817(C_word c,C_word *av) C_noret; C_noret_decl(f_2660) static void C_ccall f_2660(C_word c,C_word *av) C_noret; C_noret_decl(f_8381) static void C_ccall f_8381(C_word c,C_word *av) C_noret; C_noret_decl(f_4586) static void C_fcall f_4586(C_word t0,C_word t1) C_noret; C_noret_decl(f_8299) static void C_fcall f_8299(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5209) static void C_ccall f_5209(C_word c,C_word *av) C_noret; C_noret_decl(f_2631) static void C_ccall f_2631(C_word c,C_word *av) C_noret; C_noret_decl(f_4030) static void C_ccall f_4030(C_word c,C_word *av) C_noret; C_noret_decl(f_4036) static void C_ccall f_4036(C_word c,C_word *av) C_noret; C_noret_decl(f_5200) static void C_ccall f_5200(C_word c,C_word *av) C_noret; C_noret_decl(f_5203) static void C_ccall f_5203(C_word c,C_word *av) C_noret; C_noret_decl(f_4084) static void C_ccall f_4084(C_word c,C_word *av) C_noret; C_noret_decl(f_4090) static void C_ccall f_4090(C_word c,C_word *av) C_noret; C_noret_decl(f_4096) static void C_ccall f_4096(C_word c,C_word *av) C_noret; C_noret_decl(f_8355) static void C_ccall f_8355(C_word c,C_word *av) C_noret; C_noret_decl(f_4575) static void C_ccall f_4575(C_word c,C_word *av) C_noret; C_noret_decl(f_4578) static void C_ccall f_4578(C_word c,C_word *av) C_noret; C_noret_decl(f_4060) static void C_ccall f_4060(C_word c,C_word *av) C_noret; C_noret_decl(f_4066) static void C_ccall f_4066(C_word c,C_word *av) C_noret; C_noret_decl(f_3585) static void C_ccall f_3585(C_word c,C_word *av) C_noret; C_noret_decl(f_5272) static void C_ccall f_5272(C_word c,C_word *av) C_noret; C_noret_decl(f_5274) static C_word C_fcall f_5274(C_word t0,C_word t1); C_noret_decl(f_5192) static void C_fcall f_5192(C_word t0,C_word t1) C_noret; C_noret_decl(f_4042) static void C_ccall f_4042(C_word c,C_word *av) C_noret; C_noret_decl(f_2647) static void C_ccall f_2647(C_word c,C_word *av) C_noret; C_noret_decl(f_2645) static void C_ccall f_2645(C_word c,C_word *av) C_noret; C_noret_decl(f_4048) static void C_ccall f_4048(C_word c,C_word *av) C_noret; C_noret_decl(f_4054) static void C_ccall f_4054(C_word c,C_word *av) C_noret; C_noret_decl(f_6750) static void C_fcall f_6750(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_3596) static void C_ccall f_3596(C_word c,C_word *av) C_noret; C_noret_decl(f_5967) static void C_ccall f_5967(C_word c,C_word *av) C_noret; C_noret_decl(f_5961) static void C_ccall f_5961(C_word c,C_word *av) C_noret; C_noret_decl(f_5239) static void C_fcall f_5239(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4024) static void C_ccall f_4024(C_word c,C_word *av) C_noret; C_noret_decl(f_6745) static void C_ccall f_6745(C_word c,C_word *av) C_noret; C_noret_decl(f_5934) static void C_ccall f_5934(C_word c,C_word *av) C_noret; C_noret_decl(f_7396) static void C_ccall f_7396(C_word c,C_word *av) C_noret; C_noret_decl(f_7390) static void C_ccall f_7390(C_word c,C_word *av) C_noret; C_noret_decl(f_6771) static void C_ccall f_6771(C_word c,C_word *av) C_noret; C_noret_decl(f_5908) static void C_ccall f_5908(C_word c,C_word *av) C_noret; C_noret_decl(f_4006) static void C_ccall f_4006(C_word c,C_word *av) C_noret; C_noret_decl(f_4000) static void C_ccall f_4000(C_word c,C_word *av) C_noret; C_noret_decl(f_5585) static void C_ccall f_5585(C_word c,C_word *av) C_noret; C_noret_decl(f_5955) static void C_ccall f_5955(C_word c,C_word *av) C_noret; C_noret_decl(f_3395) static void C_fcall f_3395(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_3390) static void C_ccall f_3390(C_word c,C_word *av) C_noret; C_noret_decl(f_4018) static void C_ccall f_4018(C_word c,C_word *av) C_noret; C_noret_decl(f_4012) static void C_ccall f_4012(C_word c,C_word *av) C_noret; C_noret_decl(f_6711) static C_word C_fcall f_6711(C_word t0,C_word t1,C_word t2); C_noret_decl(f_5592) static void C_ccall f_5592(C_word c,C_word *av) C_noret; C_noret_decl(f_6996) static void C_fcall f_6996(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_4072) static void C_ccall f_4072(C_word c,C_word *av) C_noret; C_noret_decl(f_4078) static void C_ccall f_4078(C_word c,C_word *av) C_noret; C_noret_decl(f_2974) static void C_ccall f_2974(C_word c,C_word *av) C_noret; C_noret_decl(f_2977) static void C_ccall f_2977(C_word c,C_word *av) C_noret; C_noret_decl(f_5548) static void C_ccall f_5548(C_word c,C_word *av) C_noret; C_noret_decl(f_5914) static void C_ccall f_5914(C_word c,C_word *av) C_noret; C_noret_decl(f_5542) static void C_ccall f_5542(C_word c,C_word *av) C_noret; C_noret_decl(f_2949) static void C_ccall f_2949(C_word c,C_word *av) C_noret; C_noret_decl(f_5554) static void C_ccall f_5554(C_word c,C_word *av) C_noret; C_noret_decl(f_2952) static void C_ccall f_2952(C_word c,C_word *av) C_noret; C_noret_decl(f_5566) static void C_ccall f_5566(C_word c,C_word *av) C_noret; C_noret_decl(f_6984) static void C_ccall f_6984(C_word c,C_word *av) C_noret; C_noret_decl(f_5560) static void C_ccall f_5560(C_word c,C_word *av) C_noret; C_noret_decl(f_5579) static void C_ccall f_5579(C_word c,C_word *av) C_noret; C_noret_decl(f_5576) static void C_ccall f_5576(C_word c,C_word *av) C_noret; C_noret_decl(f_6972) static void C_ccall f_6972(C_word c,C_word *av) C_noret; C_noret_decl(f_5572) static void C_ccall f_5572(C_word c,C_word *av) C_noret; C_noret_decl(C_srfi_2d13_toplevel) C_externexport void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av) C_noret; C_noret_decl(f_2931) static void C_ccall f_2931(C_word c,C_word *av) C_noret; C_noret_decl(f_2933) static void C_fcall f_2933(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret; C_noret_decl(f_2939) static void C_fcall f_2939(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_6978) static void C_ccall f_6978(C_word c,C_word *av) C_noret; C_noret_decl(f_3922) static void C_ccall f_3922(C_word c,C_word *av) C_noret; C_noret_decl(f_2901) static void C_ccall f_2901(C_word c,C_word *av) C_noret; C_noret_decl(f_2911) static void C_ccall f_2911(C_word c,C_word *av) C_noret; C_noret_decl(f_3946) static void C_ccall f_3946(C_word c,C_word *av) C_noret; C_noret_decl(f_5605) static void C_ccall f_5605(C_word c,C_word *av) C_noret; C_noret_decl(f_4453) static void C_ccall f_4453(C_word c,C_word *av) C_noret; C_noret_decl(f_4459) static void C_ccall f_4459(C_word c,C_word *av) C_noret; C_noret_decl(f_4465) static void C_ccall f_4465(C_word c,C_word *av) C_noret; C_noret_decl(f_5612) static void C_ccall f_5612(C_word c,C_word *av) C_noret; C_noret_decl(f_3964) static void C_ccall f_3964(C_word c,C_word *av) C_noret; C_noret_decl(f_7583) static void C_ccall f_7583(C_word c,C_word *av) C_noret; C_noret_decl(f_4435) static void C_ccall f_4435(C_word c,C_word *av) C_noret; C_noret_decl(f_3952) static void C_ccall f_3952(C_word c,C_word *av) C_noret; C_noret_decl(f_3958) static void C_ccall f_3958(C_word c,C_word *av) C_noret; C_noret_decl(f_7595) static C_word C_fcall f_7595(C_word t0,C_word t1,C_word t2); C_noret_decl(f_7590) static void C_ccall f_7590(C_word c,C_word *av) C_noret; C_noret_decl(f_5639) static void C_ccall f_5639(C_word c,C_word *av) C_noret; C_noret_decl(f_4441) static void C_ccall f_4441(C_word c,C_word *av) C_noret; C_noret_decl(f_4447) static void C_ccall f_4447(C_word c,C_word *av) C_noret; C_noret_decl(f_3982) static void C_ccall f_3982(C_word c,C_word *av) C_noret; C_noret_decl(f_3988) static void C_ccall f_3988(C_word c,C_word *av) C_noret; C_noret_decl(f_5632) static void C_ccall f_5632(C_word c,C_word *av) C_noret; C_noret_decl(f_5146) static void C_ccall f_5146(C_word c,C_word *av) C_noret; C_noret_decl(f_5140) static void C_ccall f_5140(C_word c,C_word *av) C_noret; C_noret_decl(f_4411) static void C_ccall f_4411(C_word c,C_word *av) C_noret; C_noret_decl(f_4417) static void C_ccall f_4417(C_word c,C_word *av) C_noret; C_noret_decl(f_3970) static void C_ccall f_3970(C_word c,C_word *av) C_noret; C_noret_decl(f_3976) static void C_ccall f_3976(C_word c,C_word *av) C_noret; C_noret_decl(f_5113) static void C_ccall f_5113(C_word c,C_word *av) C_noret; C_noret_decl(f_5119) static void C_ccall f_5119(C_word c,C_word *av) C_noret; C_noret_decl(f_4423) static void C_ccall f_4423(C_word c,C_word *av) C_noret; C_noret_decl(f_4429) static void C_ccall f_4429(C_word c,C_word *av) C_noret; C_noret_decl(f_6844) static C_word C_fcall f_6844(C_word t0,C_word t1); C_noret_decl(f_5132) static void C_fcall f_5132(C_word t0,C_word t1) C_noret; C_noret_decl(f_4405) static void C_ccall f_4405(C_word c,C_word *av) C_noret; C_noret_decl(f_5101) static void C_ccall f_5101(C_word c,C_word *av) C_noret; C_noret_decl(f_6834) static void C_ccall f_6834(C_word c,C_word *av) C_noret; C_noret_decl(f_5107) static void C_ccall f_5107(C_word c,C_word *av) C_noret; C_noret_decl(f_6863) static void C_ccall f_6863(C_word c,C_word *av) C_noret; C_noret_decl(f_6322) static C_word C_fcall f_6322(C_word t0,C_word t1); C_noret_decl(f_4885) static void C_ccall f_4885(C_word c,C_word *av) C_noret; C_noret_decl(f_4882) static void C_ccall f_4882(C_word c,C_word *av) C_noret; C_noret_decl(f_4891) static void C_ccall f_4891(C_word c,C_word *av) C_noret; C_noret_decl(f_7205) static void C_ccall f_7205(C_word c,C_word *av) C_noret; C_noret_decl(f_4744) static void C_ccall f_4744(C_word c,C_word *av) C_noret; C_noret_decl(f_6810) static void C_ccall f_6810(C_word c,C_word *av) C_noret; C_noret_decl(f_5161) static void C_ccall f_5161(C_word c,C_word *av) C_noret; C_noret_decl(f_5167) static void C_ccall f_5167(C_word c,C_word *av) C_noret; C_noret_decl(f_6828) static void C_ccall f_6828(C_word c,C_word *av) C_noret; C_noret_decl(f_4751) static void C_fcall f_4751(C_word t0,C_word t1) C_noret; C_noret_decl(f_4759) static void C_ccall f_4759(C_word c,C_word *av) C_noret; C_noret_decl(f_6306) static void C_ccall f_6306(C_word c,C_word *av) C_noret; C_noret_decl(f_6300) static void C_ccall f_6300(C_word c,C_word *av) C_noret; C_noret_decl(f_7223) static void C_ccall f_7223(C_word c,C_word *av) C_noret; C_noret_decl(f_4765) static void C_ccall f_4765(C_word c,C_word *av) C_noret; C_noret_decl(f_7229) static void C_ccall f_7229(C_word c,C_word *av) C_noret; C_noret_decl(f_6374) static void C_ccall f_6374(C_word c,C_word *av) C_noret; C_noret_decl(f_6501) static void C_ccall f_6501(C_word c,C_word *av) C_noret; C_noret_decl(f_5185) static void C_ccall f_5185(C_word c,C_word *av) C_noret; C_noret_decl(f_4249) static void C_ccall f_4249(C_word c,C_word *av) C_noret; C_noret_decl(f_7238) static void C_fcall f_7238(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_4771) static void C_ccall f_4771(C_word c,C_word *av) C_noret; C_noret_decl(f_5152) static void C_ccall f_5152(C_word c,C_word *av) C_noret; C_noret_decl(f_4702) static void C_ccall f_4702(C_word c,C_word *av) C_noret; C_noret_decl(f_4705) static void C_ccall f_4705(C_word c,C_word *av) C_noret; C_noret_decl(f_4708) static void C_ccall f_4708(C_word c,C_word *av) C_noret; C_noret_decl(f_7620) static C_word C_fcall f_7620(C_word t0,C_word t1); C_noret_decl(f_6523) static void C_fcall f_6523(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5125) static void C_ccall f_5125(C_word c,C_word *av) C_noret; C_noret_decl(f_6869) static void C_ccall f_6869(C_word c,C_word *av) C_noret; C_noret_decl(f_4226) static void C_ccall f_4226(C_word c,C_word *av) C_noret; C_noret_decl(f_4272) static void C_ccall f_4272(C_word c,C_word *av) C_noret; C_noret_decl(f_5173) static void C_ccall f_5173(C_word c,C_word *av) C_noret; C_noret_decl(f_4278) static void C_fcall f_4278(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9) C_noret; C_noret_decl(f_5179) static void C_ccall f_5179(C_word c,C_word *av) C_noret; C_noret_decl(f_7268) static void C_ccall f_7268(C_word c,C_word *av) C_noret; C_noret_decl(f_4720) static void C_ccall f_4720(C_word c,C_word *av) C_noret; C_noret_decl(f_4726) static void C_ccall f_4726(C_word c,C_word *av) C_noret; C_noret_decl(f_4288) static void C_ccall f_4288(C_word c,C_word *av) C_noret; C_noret_decl(f_7270) static void C_fcall f_7270(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_7277) static void C_ccall f_7277(C_word c,C_word *av) C_noret; C_noret_decl(f_4732) static void C_ccall f_4732(C_word c,C_word *av) C_noret; C_noret_decl(f_4738) static void C_ccall f_4738(C_word c,C_word *av) C_noret; C_noret_decl(f_7650) static void C_ccall f_7650(C_word c,C_word *av) C_noret; C_noret_decl(f_6822) static void C_ccall f_6822(C_word c,C_word *av) C_noret; C_noret_decl(f_6536) static void C_ccall f_6536(C_word c,C_word *av) C_noret; C_noret_decl(f_6361) static void C_fcall f_6361(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_6352) static void C_ccall f_6352(C_word c,C_word *av) C_noret; C_noret_decl(f_7022) static void C_ccall f_7022(C_word c,C_word *av) C_noret; C_noret_decl(f_2678) static void C_fcall f_2678(C_word t0,C_word t1) C_noret; C_noret_decl(f_5395) static void C_ccall f_5395(C_word c,C_word *av) C_noret; C_noret_decl(f_2671) static void C_fcall f_2671(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; C_noret_decl(f_5780) static void C_ccall f_5780(C_word c,C_word *av) C_noret; C_noret_decl(f_7040) static void C_ccall f_7040(C_word c,C_word *av) C_noret; C_noret_decl(f_7047) static void C_ccall f_7047(C_word c,C_word *av) C_noret; C_noret_decl(f_5792) static void C_ccall f_5792(C_word c,C_word *av) C_noret; C_noret_decl(f_5798) static void C_ccall f_5798(C_word c,C_word *av) C_noret; C_noret_decl(f_2699) static void C_ccall f_2699(C_word c,C_word *av) C_noret; C_noret_decl(f_2693) static void C_ccall f_2693(C_word c,C_word *av) C_noret; C_noret_decl(f_3861) static void C_fcall f_3861(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret; C_noret_decl(f_3865) static void C_ccall f_3865(C_word c,C_word *av) C_noret; C_noret_decl(f_4203) static void C_ccall f_4203(C_word c,C_word *av) C_noret; C_noret_decl(f_5747) static void C_ccall f_5747(C_word c,C_word *av) C_noret; C_noret_decl(f_5741) static void C_ccall f_5741(C_word c,C_word *av) C_noret; C_noret_decl(f_7009) static void C_ccall f_7009(C_word c,C_word *av) C_noret; C_noret_decl(f_5983) static void C_ccall f_5983(C_word c,C_word *av) C_noret; C_noret_decl(f_5980) static void C_ccall f_5980(C_word c,C_word *av) C_noret; C_noret_decl(f_5755) static void C_fcall f_5755(C_word t0,C_word t1,C_word t2) C_noret; C_noret_decl(f_5751) static void C_ccall f_5751(C_word c,C_word *av) C_noret; C_noret_decl(trf_7076) static void C_ccall trf_7076(C_word c,C_word *av) C_noret; static void C_ccall trf_7076(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7076(t0,t1,t2);} C_noret_decl(trf_6789) static void C_ccall trf_6789(C_word c,C_word *av) C_noret; static void C_ccall trf_6789(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6789(t0,t1,t2,t3);} C_noret_decl(trf_3816) static void C_ccall trf_3816(C_word c,C_word *av) C_noret; static void C_ccall trf_3816(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3816(t0,t1);} C_noret_decl(trf_3801) static void C_ccall trf_3801(C_word c,C_word *av) C_noret; static void C_ccall trf_3801(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3801(t0,t1);} C_noret_decl(trf_3806) static void C_ccall trf_3806(C_word c,C_word *av) C_noret; static void C_ccall trf_3806(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3806(t0,t1,t2,t3);} C_noret_decl(trf_3874) static void C_ccall trf_3874(C_word c,C_word *av) C_noret; static void C_ccall trf_3874(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3874(t0,t1);} C_noret_decl(trf_7064) static void C_ccall trf_7064(C_word c,C_word *av) C_noret; static void C_ccall trf_7064(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7064(t0,t1,t2,t3,t4);} C_noret_decl(trf_5303) static void C_ccall trf_5303(C_word c,C_word *av) C_noret; static void C_ccall trf_5303(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5303(t0,t1);} C_noret_decl(trf_7746) static void C_ccall trf_7746(C_word c,C_word *av) C_noret; static void C_ccall trf_7746(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7746(t0,t1,t2,t3,t4);} C_noret_decl(trf_7793) static void C_ccall trf_7793(C_word c,C_word *av) C_noret; static void C_ccall trf_7793(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_7793(t0,t1);} C_noret_decl(trf_6488) static void C_ccall trf_6488(C_word c,C_word *av) C_noret; static void C_ccall trf_6488(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6488(t0,t1,t2);} C_noret_decl(trf_3636) static void C_ccall trf_3636(C_word c,C_word *av) C_noret; static void C_ccall trf_3636(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_3636(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3664) static void C_ccall trf_3664(C_word c,C_word *av) C_noret; static void C_ccall trf_3664(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3664(t0,t1);} C_noret_decl(trf_4493) static void C_ccall trf_4493(C_word c,C_word *av) C_noret; static void C_ccall trf_4493(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4493(t0,t1);} C_noret_decl(trf_3649) static void C_ccall trf_3649(C_word c,C_word *av) C_noret; static void C_ccall trf_3649(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3649(t0,t1);} C_noret_decl(trf_7956) static void C_ccall trf_7956(C_word c,C_word *av) C_noret; static void C_ccall trf_7956(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7956(t0,t1,t2,t3);} C_noret_decl(trf_7964) static void C_ccall trf_7964(C_word c,C_word *av) C_noret; static void C_ccall trf_7964(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7964(t0,t1,t2);} C_noret_decl(trf_3654) static void C_ccall trf_3654(C_word c,C_word *av) C_noret; static void C_ccall trf_3654(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3654(t0,t1,t2,t3);} C_noret_decl(trf_4967) static void C_ccall trf_4967(C_word c,C_word *av) C_noret; static void C_ccall trf_4967(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4967(t0,t1);} C_noret_decl(trf_6658) static void C_ccall trf_6658(C_word c,C_word *av) C_noret; static void C_ccall trf_6658(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6658(t0,t1,t2);} C_noret_decl(trf_5349) static void C_ccall trf_5349(C_word c,C_word *av) C_noret; static void C_ccall trf_5349(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5349(t0,t1);} C_noret_decl(trf_2741) static void C_ccall trf_2741(C_word c,C_word *av) C_noret; static void C_ccall trf_2741(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2741(t0,t1,t2,t3);} C_noret_decl(trf_3612) static void C_ccall trf_3612(C_word c,C_word *av) C_noret; static void C_ccall trf_3612(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3612(t0,t1,t2);} C_noret_decl(trf_2729) static void C_ccall trf_2729(C_word c,C_word *av) C_noret; static void C_ccall trf_2729(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2729(t0,t1,t2,t3,t4);} C_noret_decl(trf_6619) static void C_ccall trf_6619(C_word c,C_word *av) C_noret; static void C_ccall trf_6619(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6619(t0,t1,t2);} C_noret_decl(trf_3276) static void C_ccall trf_3276(C_word c,C_word *av) C_noret; static void C_ccall trf_3276(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3276(t0,t1,t2);} C_noret_decl(trf_7842) static void C_ccall trf_7842(C_word c,C_word *av) C_noret; static void C_ccall trf_7842(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7842(t0,t1,t2,t3,t4);} C_noret_decl(trf_3742) static void C_ccall trf_3742(C_word c,C_word *av) C_noret; static void C_ccall trf_3742(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3742(t0,t1);} C_noret_decl(trf_3719) static void C_ccall trf_3719(C_word c,C_word *av) C_noret; static void C_ccall trf_3719(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3719(t0,t1);} C_noret_decl(trf_3706) static void C_ccall trf_3706(C_word c,C_word *av) C_noret; static void C_ccall trf_3706(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_3706(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_3732) static void C_ccall trf_3732(C_word c,C_word *av) C_noret; static void C_ccall trf_3732(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3732(t0,t1,t2,t3);} C_noret_decl(trf_5708) static void C_ccall trf_5708(C_word c,C_word *av) C_noret; static void C_ccall trf_5708(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5708(t0,t1,t2);} C_noret_decl(trf_3196) static void C_ccall trf_3196(C_word c,C_word *av) C_noret; static void C_ccall trf_3196(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3196(t0,t1,t2,t3);} C_noret_decl(trf_4337) static void C_ccall trf_4337(C_word c,C_word *av) C_noret; static void C_ccall trf_4337(C_word c,C_word *av){ C_word t0=av[9]; C_word t1=av[8]; C_word t2=av[7]; C_word t3=av[6]; C_word t4=av[5]; C_word t5=av[4]; C_word t6=av[3]; C_word t7=av[2]; C_word t8=av[1]; C_word t9=av[0]; f_4337(t0,t1,t2,t3,t4,t5,t6,t7,t8,t9);} C_noret_decl(trf_6230) static void C_ccall trf_6230(C_word c,C_word *av) C_noret; static void C_ccall trf_6230(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6230(t0,t1,t2);} C_noret_decl(trf_3109) static void C_ccall trf_3109(C_word c,C_word *av) C_noret; static void C_ccall trf_3109(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3109(t0,t1,t2,t3);} C_noret_decl(trf_3103) static void C_ccall trf_3103(C_word c,C_word *av) C_noret; static void C_ccall trf_3103(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_3103(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_6400) static void C_ccall trf_6400(C_word c,C_word *av) C_noret; static void C_ccall trf_6400(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6400(t0,t1,t2);} C_noret_decl(trf_3436) static void C_ccall trf_3436(C_word c,C_word *av) C_noret; static void C_ccall trf_3436(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3436(t0,t1,t2);} C_noret_decl(trf_7460) static void C_ccall trf_7460(C_word c,C_word *av) C_noret; static void C_ccall trf_7460(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7460(t0,t1,t2,t3);} C_noret_decl(trf_4637) static void C_ccall trf_4637(C_word c,C_word *av) C_noret; static void C_ccall trf_4637(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4637(t0,t1);} C_noret_decl(trf_6265) static void C_ccall trf_6265(C_word c,C_word *av) C_noret; static void C_ccall trf_6265(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6265(t0,t1,t2);} C_noret_decl(trf_3897) static void C_ccall trf_3897(C_word c,C_word *av) C_noret; static void C_ccall trf_3897(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_3897(t0,t1);} C_noret_decl(trf_3887) static void C_ccall trf_3887(C_word c,C_word *av) C_noret; static void C_ccall trf_3887(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_3887(t0,t1,t2,t3);} C_noret_decl(trf_5495) static void C_ccall trf_5495(C_word c,C_word *av) C_noret; static void C_ccall trf_5495(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5495(t0,t1,t2);} C_noret_decl(trf_5806) static void C_ccall trf_5806(C_word c,C_word *av) C_noret; static void C_ccall trf_5806(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5806(t0,t1,t2);} C_noret_decl(trf_3525) static void C_ccall trf_3525(C_word c,C_word *av) C_noret; static void C_ccall trf_3525(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3525(t0,t1,t2);} C_noret_decl(trf_5467) static void C_ccall trf_5467(C_word c,C_word *av) C_noret; static void C_ccall trf_5467(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5467(t0,t1,t2,t3);} C_noret_decl(trf_5481) static void C_ccall trf_5481(C_word c,C_word *av) C_noret; static void C_ccall trf_5481(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5481(t0,t1,t2);} C_noret_decl(trf_5473) static void C_ccall trf_5473(C_word c,C_word *av) C_noret; static void C_ccall trf_5473(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5473(t0,t1,t2);} C_noret_decl(trf_7975) static void C_ccall trf_7975(C_word c,C_word *av) C_noret; static void C_ccall trf_7975(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7975(t0,t1,t2);} C_noret_decl(trf_3566) static void C_ccall trf_3566(C_word c,C_word *av) C_noret; static void C_ccall trf_3566(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3566(t0,t1,t2);} C_noret_decl(trf_6934) static void C_ccall trf_6934(C_word c,C_word *av) C_noret; static void C_ccall trf_6934(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6934(t0,t1,t2);} C_noret_decl(trf_4874) static void C_ccall trf_4874(C_word c,C_word *av) C_noret; static void C_ccall trf_4874(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4874(t0,t1);} C_noret_decl(trf_2790) static void C_ccall trf_2790(C_word c,C_word *av) C_noret; static void C_ccall trf_2790(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_2790(t0,t1,t2,t3,t4);} C_noret_decl(trf_2796) static void C_ccall trf_2796(C_word c,C_word *av) C_noret; static void C_ccall trf_2796(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_2796(t0,t1,t2);} C_noret_decl(trf_3317) static void C_ccall trf_3317(C_word c,C_word *av) C_noret; static void C_ccall trf_3317(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3317(t0,t1,t2);} C_noret_decl(trf_5075) static void C_ccall trf_5075(C_word c,C_word *av) C_noret; static void C_ccall trf_5075(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5075(t0,t1);} C_noret_decl(trf_3788) static void C_ccall trf_3788(C_word c,C_word *av) C_noret; static void C_ccall trf_3788(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_3788(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_5018) static void C_ccall trf_5018(C_word c,C_word *av) C_noret; static void C_ccall trf_5018(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5018(t0,t1);} C_noret_decl(trf_4811) static void C_ccall trf_4811(C_word c,C_word *av) C_noret; static void C_ccall trf_4811(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4811(t0,t1);} C_noret_decl(trf_7496) static void C_ccall trf_7496(C_word c,C_word *av) C_noret; static void C_ccall trf_7496(C_word c,C_word *av){ C_word t0=av[4]; C_word t1=av[3]; C_word t2=av[2]; C_word t3=av[1]; C_word t4=av[0]; f_7496(t0,t1,t2,t3,t4);} C_noret_decl(trf_7173) static void C_ccall trf_7173(C_word c,C_word *av) C_noret; static void C_ccall trf_7173(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7173(t0,t1,t2);} C_noret_decl(trf_2841) static void C_ccall trf_2841(C_word c,C_word *av) C_noret; static void C_ccall trf_2841(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2841(t0,t1,t2,t3);} C_noret_decl(trf_8243) static void C_ccall trf_8243(C_word c,C_word *av) C_noret; static void C_ccall trf_8243(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8243(t0,t1,t2,t3);} C_noret_decl(trf_4694) static void C_ccall trf_4694(C_word c,C_word *av) C_noret; static void C_ccall trf_4694(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4694(t0,t1);} C_noret_decl(trf_2887) static void C_ccall trf_2887(C_word c,C_word *av) C_noret; static void C_ccall trf_2887(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2887(t0,t1,t2,t3);} C_noret_decl(trf_8305) static void C_ccall trf_8305(C_word c,C_word *av) C_noret; static void C_ccall trf_8305(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_8305(t0,t1,t2);} C_noret_decl(trf_8212) static void C_ccall trf_8212(C_word c,C_word *av) C_noret; static void C_ccall trf_8212(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_8212(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_5223) static void C_ccall trf_5223(C_word c,C_word *av) C_noret; static void C_ccall trf_5223(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5223(t0,t1,t2,t3);} C_noret_decl(trf_5221) static void C_ccall trf_5221(C_word c,C_word *av) C_noret; static void C_ccall trf_5221(C_word c,C_word *av){ C_word t0=av[5]; C_word t1=av[4]; C_word t2=av[3]; C_word t3=av[2]; C_word t4=av[1]; C_word t5=av[0]; f_5221(t0,t1,t2,t3,t4,t5);} C_noret_decl(trf_4586) static void C_ccall trf_4586(C_word c,C_word *av) C_noret; static void C_ccall trf_4586(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4586(t0,t1);} C_noret_decl(trf_8299) static void C_ccall trf_8299(C_word c,C_word *av) C_noret; static void C_ccall trf_8299(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_8299(t0,t1,t2,t3);} C_noret_decl(trf_5192) static void C_ccall trf_5192(C_word c,C_word *av) C_noret; static void C_ccall trf_5192(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5192(t0,t1);} C_noret_decl(trf_6750) static void C_ccall trf_6750(C_word c,C_word *av) C_noret; static void C_ccall trf_6750(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_6750(t0,t1,t2,t3);} C_noret_decl(trf_5239) static void C_ccall trf_5239(C_word c,C_word *av) C_noret; static void C_ccall trf_5239(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_5239(t0,t1,t2,t3);} C_noret_decl(trf_3395) static void C_ccall trf_3395(C_word c,C_word *av) C_noret; static void C_ccall trf_3395(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_3395(t0,t1,t2);} C_noret_decl(trf_6996) static void C_ccall trf_6996(C_word c,C_word *av) C_noret; static void C_ccall trf_6996(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6996(t0,t1,t2);} C_noret_decl(trf_2933) static void C_ccall trf_2933(C_word c,C_word *av) C_noret; static void C_ccall trf_2933(C_word c,C_word *av){ C_word t0=av[7]; C_word t1=av[6]; C_word t2=av[5]; C_word t3=av[4]; C_word t4=av[3]; C_word t5=av[2]; C_word t6=av[1]; C_word t7=av[0]; f_2933(t0,t1,t2,t3,t4,t5,t6,t7);} C_noret_decl(trf_2939) static void C_ccall trf_2939(C_word c,C_word *av) C_noret; static void C_ccall trf_2939(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2939(t0,t1,t2,t3);} C_noret_decl(trf_5132) static void C_ccall trf_5132(C_word c,C_word *av) C_noret; static void C_ccall trf_5132(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_5132(t0,t1);} C_noret_decl(trf_4751) static void C_ccall trf_4751(C_word c,C_word *av) C_noret; static void C_ccall trf_4751(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_4751(t0,t1);} C_noret_decl(trf_7238) static void C_ccall trf_7238(C_word c,C_word *av) C_noret; static void C_ccall trf_7238(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_7238(t0,t1,t2,t3);} C_noret_decl(trf_6523) static void C_ccall trf_6523(C_word c,C_word *av) C_noret; static void C_ccall trf_6523(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6523(t0,t1,t2);} C_noret_decl(trf_4278) static void C_ccall trf_4278(C_word c,C_word *av) C_noret; static void C_ccall trf_4278(C_word c,C_word *av){ C_word t0=av[9]; C_word t1=av[8]; C_word t2=av[7]; C_word t3=av[6]; C_word t4=av[5]; C_word t5=av[4]; C_word t6=av[3]; C_word t7=av[2]; C_word t8=av[1]; C_word t9=av[0]; f_4278(t0,t1,t2,t3,t4,t5,t6,t7,t8,t9);} C_noret_decl(trf_7270) static void C_ccall trf_7270(C_word c,C_word *av) C_noret; static void C_ccall trf_7270(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_7270(t0,t1,t2);} C_noret_decl(trf_6361) static void C_ccall trf_6361(C_word c,C_word *av) C_noret; static void C_ccall trf_6361(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_6361(t0,t1,t2);} C_noret_decl(trf_2678) static void C_ccall trf_2678(C_word c,C_word *av) C_noret; static void C_ccall trf_2678(C_word c,C_word *av){ C_word t0=av[1]; C_word t1=av[0]; f_2678(t0,t1);} C_noret_decl(trf_2671) static void C_ccall trf_2671(C_word c,C_word *av) C_noret; static void C_ccall trf_2671(C_word c,C_word *av){ C_word t0=av[3]; C_word t1=av[2]; C_word t2=av[1]; C_word t3=av[0]; f_2671(t0,t1,t2,t3);} C_noret_decl(trf_3861) static void C_ccall trf_3861(C_word c,C_word *av) C_noret; static void C_ccall trf_3861(C_word c,C_word *av){ C_word t0=av[6]; C_word t1=av[5]; C_word t2=av[4]; C_word t3=av[3]; C_word t4=av[2]; C_word t5=av[1]; C_word t6=av[0]; f_3861(t0,t1,t2,t3,t4,t5,t6);} C_noret_decl(trf_5755) static void C_ccall trf_5755(C_word c,C_word *av) C_noret; static void C_ccall trf_5755(C_word c,C_word *av){ C_word t0=av[2]; C_word t1=av[1]; C_word t2=av[0]; f_5755(t0,t1,t2);} /* a5513 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5514(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5514,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_char_alphabeticp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp2 in lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_fcall f_7076(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_7076,3,t0,t1,t2);} a=C_alloc(9); t3=t2; t4=C_eqp(t3,C_fix(-1)); if(C_truep(t4)){ t5=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t6=t5; t7=C_fixnum_increase(((C_word*)t0)[3]); t8=C_i_string_ref(((C_word*)t0)[4],t7); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7106,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1425: c= */ t10=((C_word*)t0)[7];{ C_word av2[4]; av2[0]=t10; av2[1]=t9; av2[2]=t8; av2[3]=((C_word*)t0)[8]; ((C_proc)C_fast_retrieve_proc(t10))(4,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7116,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); t6=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[3]); t7=C_fixnum_plus(t2,((C_word*)t0)[10]); t8=C_i_string_ref(((C_word*)t0)[4],t7); /* srfi-13.scm:1429: c= */ t9=((C_word*)t0)[7];{ C_word av2[4]; av2[0]=t9; av2[1]=t5; av2[2]=t6; av2[3]=t8; ((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}} /* doloop1594 in k6743 in a6698 in string-count in k2464 in k2461 */ static void C_fcall f_6789(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_6789,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6810,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1292: criteria */ t10=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t10; av2[1]=t8; av2[2]=t9; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}} /* k3814 in lp in k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3816(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3816,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:626: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3806(t4,((C_word*)t0)[2],t2,t3);}} /* a5535 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5536,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_u_i_char_alphabeticp(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3801(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3801,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3806,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li67),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_3806(t5,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* lp in k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3806(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_3806,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3816,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_3816(t7,t5);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3837,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_i_string_ref(((C_word*)t0)[5],t2); t9=C_i_string_ref(((C_word*)t0)[6],t3); /* srfi-13.scm:623: char-ci=? */ t10=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* a5993 in k5978 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_5994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_5994,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6001,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1125: criteria */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3874(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3874,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3887,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li69),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_3887(t7,((C_word*)t0)[2],t2,t3);}} /* lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_fcall f_7064(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ C_save_and_reclaim_args((void *)trf_7064,5,t0,t1,t2,t3,t4);} a=C_alloc(14); t5=t2; if(C_truep(C_fixnum_lessp(t5,((C_word*)t0)[2]))){ t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7076,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t7,a[10]=((C_word*)t0)[8],a[11]=((C_word)li338),tmp=(C_word)a,a+=12,tmp)); t9=((C_word*)t7)[1]; f_7076(t9,t1,t3);} else{ t6=C_SCHEME_UNDEFINED; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* a7033 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7034(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7034,2,av);} /* srfi-13.scm:1405: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[115]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7048 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7050,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3835 in lp in k3799 in k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_3837(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3837,2,av);} t2=((C_word*)t0)[2]; f_3816(t2,C_i_not(t1));} /* k5301 in string-hash in k2464 in k2461 */ static void C_fcall f_5303(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5303,2,t0,t1);} a=C_alloc(10); t2=C_i_check_exact_2(((C_word*)((C_word*)t0)[2])[1],lf[70]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5311,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li223),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5317,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li224),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:938: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* lp in string-concatenate-reverse/shared in k2464 in k2461 */ static void C_fcall f_7746(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ C_save_and_reclaim_args((void *)trf_7746,5,t0,t1,t2,t3,t4);} a=C_alloc(7); if(C_truep(C_i_pairp(t4))){ t5=t4; t6=C_u_i_car(t5); t7=C_i_string_length(t6); t8=C_fixnum_plus(t2,t7); t9=t3; t10=(C_truep(t9)?t9:C_eqp(t7,C_fix(0))); if(C_truep(t10)){ t11=t3; t12=t4; t13=C_u_i_cdr(t12); /* srfi-13.scm:1649: lp */ t15=t1; t16=t8; t17=t11; t18=t13; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t11=t4; t12=t4; t13=C_u_i_cdr(t12); /* srfi-13.scm:1649: lp */ t15=t1; t16=t8; t17=t11; t18=t13; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}} else{ t5=C_eqp(t2,C_fix(0)); if(C_truep(t5)){ /* srfi-13.scm:1653: substring/shared */ t6=*((C_word*)lf[10]+1);{ C_word av2[5]; av2[0]=t6; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7793,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t7=C_eqp(((C_word*)t0)[4],C_fix(0)); if(C_truep(t7)){ t8=C_i_car(t3); t9=C_i_string_length(t8); t10=t2; t11=t6; f_7793(t11,C_eqp(t10,t9));} else{ t8=t6; f_7793(t8,C_SCHEME_FALSE);}}}} /* k7791 in lp in string-concatenate-reverse/shared in k2464 in k2461 */ static void C_fcall f_7793(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ C_save_and_reclaim_args((void *)trf_7793,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_i_car(((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* srfi-13.scm:1660: %finish-string-concatenate-reverse */ f_7842(((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6]);}} /* a5310 in k5301 in string-hash in k2464 in k2461 */ static void C_ccall f_5311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5311,2,av);} /* srfi-13.scm:938: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[70]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5316 in k5301 in string-hash in k2464 in k2461 */ static void C_ccall f_5317(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_5317,4,av);} /* srfi-13.scm:939: %string-hash */ f_5221(t1,((C_word*)t0)[2],*((C_word*)lf[71]+1),((C_word*)((C_word*)t0)[3])[1],t2,t3);} /* k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_ccall f_6483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6483,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6488,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li302),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6488(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6523,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li303),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6523(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* srfi-13.scm:1246: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[80]; av2[3]=lf[107]; av2[4]=*((C_word*)lf[80]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k6630 in lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6632,2,av);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1261: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6619(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* string-hash-ci in k2464 in k2461 */ static void C_ccall f_5339(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_5339,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(4194304):C_i_car(t3)); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_i_nullp(t3); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5349,a[2]=t7,a[3]=t2,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t12=C_eqp(((C_word*)t7)[1],C_fix(0)); if(C_truep(t12)){ t13=C_set_block_item(t7,0,C_fix(4194304)); t14=t11; f_5349(t14,t13);} else{ t13=t11; f_5349(t13,C_SCHEME_UNDEFINED);}} /* lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_fcall f_6488(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6488,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6501,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1238: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k3631 in doloop476 in k3601 in string-tabulate in k2464 in k2461 */ static void C_ccall f_3633(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3633,2,av);} t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_3612(t4,((C_word*)t0)[5],t3);} /* %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3636(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3636,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3640,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:587: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* a2563 in string-parse-final-start+end in k2464 in k2461 */ static void C_ccall f_2564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2564,2,av);} /* srfi-13.scm:201: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3662 in lp in k3647 in k3638 in %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3664(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3664,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:598: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3654(t4,((C_word*)t0)[2],t2,t3);}} /* k4491 in a4482 in a4470 in string= in k2464 in k2461 */ static void C_fcall f_4493(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4493,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4501,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4504,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4510,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:785: %string-compare */ f_4278(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* a7943 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7944(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7944,2,av);} /* srfi-13.scm:1701: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[134]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6101 in k6086 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6102,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6109,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1152: criteria */ t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* k6107 in a6101 in k6086 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6109(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6109,2,av);} if(C_truep(t1)){ t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k3638 in %string-prefix-length in k2464 in k2461 */ static void C_ccall f_3640(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3640,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3649,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[6]; t9=t5; f_3649(t9,C_eqp(t7,t8));} else{ t7=t5; f_3649(t7,C_SCHEME_FALSE);}} /* k3647 in k3638 in %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3649(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3649,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3654,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li63),tmp=(C_word)a,a+=8,tmp)); t5=((C_word*)t3)[1]; f_3654(t5,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[8]);}} /* a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_7950,4,av);} a=C_alloc(9); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7956,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word)li381),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_7956(t7,t1,t3,C_SCHEME_END_OF_LIST);} /* lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_fcall f_7956(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_7956,4,t0,t1,t2,t3);} a=C_alloc(8); t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7960,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp); t5=((C_word*)t0)[4]; t6=t2; if(C_truep(C_fixnum_lessp(t5,t6))){ /* srfi-13.scm:1706: string-index-right */ t7=*((C_word*)lf[105]+1);{ C_word av2[6]; av2[0]=t7; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[5]; av2[4]=((C_word*)t0)[4]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} else{ t7=t4;{ C_word av2[2]; av2[0]=t7; av2[1]=C_SCHEME_FALSE; f_7960(2,av2);}}} /* string-parse-final-start+end in k2464 in k2461 */ static void C_ccall f_2558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ C_save_and_reclaim((void *)f_2558,5,av);} a=C_alloc(10); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2564,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word)li3),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2570,a[2]=t2,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:200: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4476 in a4470 in string= in k2464 in k2461 */ static void C_ccall f_4477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4477,2,av);} /* srfi-13.scm:780: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4470 in string= in k2464 in k2461 */ static void C_ccall f_4471(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4471,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li124),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4483,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li128),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:780: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_7960,2,av);} a=C_alloc(8); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li380),tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1701: g1969 */ t3=t2; f_7964(t3,((C_word*)t0)[7],t1);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* k6125 in k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6127(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6127,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_fcall f_7964(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){ C_save_and_reclaim_args((void *)trf_7964,3,t0,t1,t2);} a=C_alloc(8); t3=C_fixnum_plus(C_fix(1),t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t1,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1709: string-skip-right */ t6=*((C_word*)lf[94]+1);{ C_word av2[6]; av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[6]; av2[4]=((C_word*)t0)[5]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} /* a6128 in k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6129(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6129,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6136,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1168: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6124(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_6124,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6127,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6129,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li284),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1168: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* a2527 in string-parse-start+end in k2464 in k2461 */ static void C_ccall f_2528(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_2528,4,av);} t4=t2; if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],t4))){ /* srfi-13.scm:193: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[2]; av2[4]=t2; C_values(5,av2);}} else{ /* srfi-13.scm:194: ##sys#error */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t5; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[3]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[2]; av2[6]=t2; av2[7]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}}} /* xsubstring in k2464 in k2461 */ static void C_ccall f_8024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,5)))){ C_save_and_reclaim((void*)f_8024,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+11); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=C_i_check_exact_2(t3,lf[136]); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8033,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li386),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8077,a[2]=t3,a[3]=t2,a[4]=((C_word)li387),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1749: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6121(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6121,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6124,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1167: make-string */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a4482 in a4470 in string= in k2464 in k2461 */ static void C_ccall f_4483(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4483,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4493,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t8=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t8)){ t9=((C_word*)t0)[3]; t10=t2; t11=t7; f_4493(t11,C_eqp(t9,t10));} else{ t9=t7; f_4493(t9,C_SCHEME_FALSE);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6118(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_6118,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6121,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6144,a[2]=t2,a[3]=((C_word)li285),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1163: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* lp in k3647 in k3638 in %string-prefix-length in k2464 in k2461 */ static void C_fcall f_3654(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3654,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; t5=C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3664,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_3664(t7,t5);} else{ t7=C_i_string_ref(((C_word*)t0)[5],t2); t8=C_i_string_ref(((C_word*)t0)[6],t3); t9=C_u_i_char_equalp(t7,t8); t10=t6; f_3664(t10,C_i_not(t9));}} /* a4955 in k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4956(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4956,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4949 in k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4950(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4950,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4958 in k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4959(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4959,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-hash in k2464 in k2461 */ static void C_ccall f_5293(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){ C_save_and_reclaim((void*)f_5293,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t4=C_i_nullp(t3); t5=(C_truep(t4)?C_fix(4194304):C_i_car(t3)); t6=t5; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_i_nullp(t3); t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t10=t9; t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5303,a[2]=t7,a[3]=t2,a[4]=t10,a[5]=t1,tmp=(C_word)a,a+=6,tmp); t12=C_eqp(((C_word*)t7)[1],C_fix(0)); if(C_truep(t12)){ t13=C_set_block_item(t7,0,C_fix(4194304)); t14=t11; f_5303(t14,t13);} else{ t13=t11; f_5303(t13,C_SCHEME_UNDEFINED);}} /* k7907 in a7895 in k7883 in string-replace in k2464 in k2461 */ static void C_ccall f_7909(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7909,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=C_substring_copy(t2,t1,C_fix(0),t3,C_fix(0)); t5=((C_word*)t0)[3]; t6=((C_word*)t0)[4]; t7=((C_word*)t0)[5]; t8=((C_word*)t0)[6]; t9=C_substring_copy(t6,t1,t7,t8,t5); t10=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[7]); t11=((C_word*)t0)[2]; t12=((C_word*)t0)[8]; t13=C_substring_copy(t11,t1,t12,((C_word*)t0)[9],t10); t14=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t14; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} /* a6143 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6144,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6151,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1163: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k7999 in k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_8001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ C_save_and_reclaim((void *)f_8001,2,av);} a=C_alloc(3); t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3601 in string-tabulate in k2464 in k2461 */ static void C_ccall f_3603(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_3603,2,av);} a=C_alloc(12); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3606,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3612,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_3612(t8,t3,t4);} /* k3604 in k3601 in string-tabulate in k2464 in k2461 */ static void C_ccall f_3606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3606,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k2764 in doloop210 in k2734 in %string-map in k2464 in k2461 */ static void C_ccall f_2766(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2766,2,av);} t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); t5=((C_word*)((C_word*)t0)[5])[1]; f_2741(t5,((C_word*)t0)[6],t3,t4);} /* k4965 in a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_fcall f_4967(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4967,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4950,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4956,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4959,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:859: %string-compare-ci */ f_4337(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* k6134 in a6128 in k6122 in k6119 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6136(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6136,2,av);} if(C_truep(t1)){ t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_fcall f_6658(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6658,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6671,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1266: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k5347 in string-hash-ci in k2464 in k2461 */ static void C_fcall f_5349(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_5349,2,t0,t1);} a=C_alloc(10); t2=C_i_check_exact_2(((C_word*)((C_word*)t0)[2])[1],lf[72]); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5357,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li226),tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5363,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li228),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:948: ##sys#call-with-values */{ C_word av2[4]; av2[0]=0; av2[1]=((C_word*)t0)[5]; av2[2]=t3; av2[3]=t4; C_call_with_values(4,av2);}} /* string-map! in k2464 in k2461 */ static void C_ccall f_2772(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_2772,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2778,a[2]=t3,a[3]=t4,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2784,a[2]=t2,a[3]=t3,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:315: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a2777 in string-map! in k2464 in k2461 */ static void C_ccall f_2778(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2778,2,av);} /* srfi-13.scm:315: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[17]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5356 in k5347 in string-hash-ci in k2464 in k2461 */ static void C_ccall f_5357(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5357,2,av);} /* srfi-13.scm:948: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[72]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop210 in k2734 in %string-map in k2464 in k2461 */ static void C_fcall f_2741(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_2741,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]))){ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2766,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); t6=C_i_string_ref(((C_word*)t0)[5],t3); /* srfi-13.scm:312: proc */ t7=((C_word*)t0)[6];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* string-ci<> in k2464 in k2461 */ static void C_ccall f_4908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4908,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[63]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4914,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li179),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4920,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li185),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:854: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* string-tokenize in k2464 in k2461 */ static void C_ccall f_7932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_7932,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[135]+1):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7944,a[2]=t2,a[3]=t9,a[4]=((C_word)li378),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7950,a[2]=t2,a[3]=t6,a[4]=((C_word)li382),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1701: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k6155 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6157(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6157,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6118(2,av2);}} else{ if(C_truep(C_charp(((C_word*)t0)[3]))){ /* srfi-13.scm:1160: char-set */ t2=*((C_word*)lf[100]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* srfi-13.scm:1161: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[102]; av2[3]=lf[103]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* doloop476 in k3601 in string-tabulate in k2464 in k2461 */ static void C_fcall f_3612(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_3612,3,t0,t1,t2);} a=C_alloc(6); t3=t2; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=C_SCHEME_UNDEFINED; t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3633,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:572: proc */ t5=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} /* a5362 in k5347 in string-hash-ci in k2464 in k2461 */ static void C_ccall f_5363(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ C_save_and_reclaim((void *)f_5363,4,av);} a=C_alloc(3); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5369,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:949: %string-hash */ f_5221(t1,((C_word*)t0)[2],t4,((C_word*)((C_word*)t0)[3])[1],t2,t3);} /* lp in k7844 in %finish-string-concatenate-reverse in k2464 in k2461 */ static C_word C_fcall f_7854(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=t2; t6=C_u_i_cdr(t5); t7=C_i_string_length(t4); t8=C_fixnum_difference(t1,t7); t9=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t7,t8); t11=t8; t12=t6; t1=t11; t2=t12; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k6149 in a6143 in k6116 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6151(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6151,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=((C_word*)t0)[3]; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a5368 in a5362 in k5347 in string-hash-ci in k2464 in k2461 */ static void C_ccall f_5369(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5369,3,av);} t3=C_u_i_char_downcase(t2); t4=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(C_character_code(t3)); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} /* a4913 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4914,2,av);} /* srfi-13.scm:854: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6669 in lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6671(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6671,2,av);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1266: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6658(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a6182 in string-index in k2464 in k2461 */ static void C_ccall f_6183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6183,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6195,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li289),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6195(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6225,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1194: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a2722 in string-map in k2464 in k2461 */ static void C_ccall f_2723(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2723,4,av);} /* srfi-13.scm:304: %string-map */ f_2729(t1,((C_word*)t0)[2],((C_word*)t0)[3],t2,t3);} /* a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4920(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4920,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li180),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4932,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li184),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:854: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4925 in a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4926(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4926,2,av);} /* srfi-13.scm:854: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* %string-map in k2464 in k2461 */ static void C_fcall f_2729(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_2729,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=C_fixnum_difference(t5,t4); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2736,a[2]=t1,a[3]=t7,a[4]=t3,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:308: make-string */ t9=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} /* a6176 in string-index in k2464 in k2461 */ static void C_ccall f_6177(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6177,2,av);} /* srfi-13.scm:1187: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[81]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_fcall f_6619(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6619,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6632,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1260: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* string-index in k2464 in k2461 */ static void C_ccall f_6171(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6171,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6177,a[2]=t2,a[3]=t4,a[4]=((C_word)li288),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6183,a[2]=t3,a[3]=t2,a[4]=((C_word)li292),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1187: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a3993 in a3987 in string-suffix-length in k2464 in k2461 */ static void C_ccall f_3994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3994,2,av);} /* srfi-13.scm:648: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in a3269 in string-for-each in k2464 in k2461 */ static void C_fcall f_3276(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3276,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3286,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:503: proc */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* a4931 in a4919 in string-ci<> in k2464 in k2461 */ static void C_ccall f_4932(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4932,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); t7=C_i_not(t6); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4967,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t9=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t9)){ t10=((C_word*)t0)[3]; t11=t2; t12=t8; f_4967(t12,C_eqp(t10,t11));} else{ t10=t8; f_4967(t10,C_SCHEME_FALSE);}}} /* a3269 in string-for-each in k2464 in k2461 */ static void C_ccall f_3270(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ C_save_and_reclaim((void *)f_3270,4,av);} a=C_alloc(9); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3276,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li42),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_3276(t7,t1,t2);} /* k2734 in %string-map in k2464 in k2461 */ static void C_ccall f_2736(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ C_save_and_reclaim((void *)f_2736,2,av);} a=C_alloc(14); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2739,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2741,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li16),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_2741(t7,t3,C_fix(0),((C_word*)t0)[6]);} /* k2737 in k2734 in %string-map in k2464 in k2461 */ static void C_ccall f_2739(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2739,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* string-contains in k2464 in k2461 */ static void C_ccall f_6898(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_6898,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[113]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6904,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li325),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6910,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li329),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1330: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k2992 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2994(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2994,2,av);} a=C_alloc(11); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=C_i_string_length(((C_word*)t0)[2]); t6=t5; t7=C_fixnum_plus(C_fixnum_plus(t6,((C_word*)t0)[3]),((C_word*)t0)[4]); t8=t7; t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3006,a[2]=t2,a[3]=t4,a[4]=t8,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[2],a[9]=t6,a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); t10=C_fixnum_plus(t8,t4); /* srfi-13.scm:435: make-string */ t11=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t11; av2[1]=t9; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} /* k6608 in a6563 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6610(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6610,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6619,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li308),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6619(t6,((C_word*)t0)[6],t2);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[5]))){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6658,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li309),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6658(t6,((C_word*)t0)[6],t2);} else{ /* srfi-13.scm:1268: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=lf[94]; av2[3]=lf[108]; av2[4]=*((C_word*)lf[94]+1); av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* %finish-string-concatenate-reverse in k2464 in k2461 */ static void C_fcall f_7842(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_7842,5,t1,t2,t3,t4,t5);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7846,a[2]=t2,a[3]=t4,a[4]=t5,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); t7=C_fixnum_plus(t5,t2); /* srfi-13.scm:1663: make-string */ t8=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t8; av2[1]=t6; av2[2]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} /* k7844 in %finish-string-concatenate-reverse in k2464 in k2461 */ static void C_ccall f_7846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7846,2,av);} a=C_alloc(4); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; t5=((C_word*)t0)[4]; t6=C_substring_copy(t4,t2,C_fix(0),t5,t3); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7854,a[2]=t2,a[3]=((C_word)li373),tmp=(C_word)a,a+=4,tmp); t8=( f_7854(t7,((C_word*)t0)[2],((C_word*)t0)[5]) ); t9=((C_word*)t0)[6];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} /* a3263 in string-for-each in k2464 in k2461 */ static void C_ccall f_3264(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3264,2,av);} /* srfi-13.scm:498: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[29]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a2704 in string-copy in k2464 in k2461 */ static void C_ccall f_2705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2705,4,av);} /* srfi-13.scm:269: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* lp in a6182 in string-index in k2464 in k2461 */ static C_word C_fcall f_6195(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ return(t1);} else{ t5=C_fixnum_plus(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* string-map in k2464 in k2461 */ static void C_ccall f_2711(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_2711,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2717,a[2]=t3,a[3]=t4,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2723,a[2]=t2,a[3]=t3,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:301: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a2716 in string-map in k2464 in k2461 */ static void C_ccall f_2717(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2717,2,av);} /* srfi-13.scm:301: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[14]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-for-each in k2464 in k2461 */ static void C_ccall f_3258(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_3258,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3264,a[2]=t3,a[3]=t4,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3270,a[2]=t3,a[3]=t2,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:498: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3740 in lp in k3717 in k3708 in %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3742(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3742,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_fixnum_difference(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:612: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3732(t4,((C_word*)t0)[4],t2,t3);}} /* f_3240 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3240(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3240,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[28]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a8076 in xsubstring in k2464 in k2461 */ static void C_ccall f_8077(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){ C_save_and_reclaim((void *)f_8077,5,av);} a=C_alloc(8); t5=C_fixnum_difference(t4,t3); t6=C_fixnum_difference(t2,((C_word*)t0)[2]); if(C_truep(C_u_i_zerop(t6))){ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=lf[137]; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ if(C_truep(C_u_i_zerop(t5))){ /* srfi-13.scm:1765: ##sys#error */ t7=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 10) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(10); } av2[0]=t7; av2[1]=t1; av2[2]=lf[136]; av2[3]=lf[138]; av2[4]=*((C_word*)lf[136]+1); av2[5]=((C_word*)t0)[3]; av2[6]=((C_word*)t0)[2]; av2[7]=t2; av2[8]=t3; av2[9]=t4; ((C_proc)(void*)(*((C_word*)t7+1)))(10,av2);}} else{ t7=C_eqp(C_fix(1),t5); if(C_truep(t7)){ t8=C_i_string_ref(((C_word*)t0)[3],t3); /* srfi-13.scm:1769: make-string */ t9=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t1; av2[2]=t6; av2[3]=t8; ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8111,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1783: make-string */ t9=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t9; av2[1]=t8; av2[2]=t6; ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}} /* k6880 in a6874 in string-copy! in k2464 in k2461 */ static void C_ccall f_6882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6882,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=t2;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_substring_copy(t5,t3,t6,t7,t4); ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} /* k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3229,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:478: make-final */ t3=((C_word*)t0)[9];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3119,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); /* srfi-13.scm:462: f */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[10]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* k3708 in %string-suffix-length in k2464 in k2461 */ static void C_ccall f_3710(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3710,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3719,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[5],((C_word*)t0)[6]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[4]; t9=t5; f_3719(t9,C_eqp(t7,t8));} else{ t7=t5; f_3719(t7,C_SCHEME_FALSE);}} /* a8054 in a8032 in xsubstring in k2464 in k2461 */ static void C_ccall f_8055(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8055,4,av);} t4=C_i_car(((C_word*)t0)[2]); t5=C_i_check_exact_2(t4,lf[136]); /* srfi-13.scm:1758: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t2; av2[4]=t3; C_values(5,av2);}} /* k3717 in k3708 in %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3719(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ C_save_and_reclaim_args((void *)trf_3719,2,t0,t1);} a=C_alloc(10); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[4],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3732,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li65),tmp=(C_word)a,a+=8,tmp)); t7=((C_word*)t5)[1]; f_3732(t7,((C_word*)t0)[2],t2,t3);}} /* k3120 in k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3122(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_3122,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ t4=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t5=C_i_string_set(((C_word*)t0)[3],t4,((C_word*)t0)[4]); /* srfi-13.scm:467: lp2 */ t6=((C_word*)((C_word*)t0)[5])[1]; f_3109(t6,((C_word*)t0)[6],t4,t2);} else{ t4=C_fixnum_plus(((C_word*)t0)[7],((C_word*)t0)[8]); t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_3143,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:470: min */ t6=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t6; av2[1]=t5; av2[2]=C_fix(4096); av2[3]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} /* a6874 in string-copy! in k2464 in k2461 */ static void C_ccall f_6875(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ C_save_and_reclaim((void *)f_6875,4,av);} a=C_alloc(8); t4=C_i_check_exact_2(((C_word*)t0)[2],lf[112]); t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6882,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); t6=C_fixnum_difference(t3,t2); t7=C_fixnum_plus(((C_word*)t0)[2],t6); /* srfi-13.scm:1317: check-substring-spec */ t8=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t8; av2[1]=t5; av2[2]=*((C_word*)lf[112]+1); av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[2]; av2[5]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} /* %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3706(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3706,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3710,a[2]=t4,a[3]=t1,a[4]=t7,a[5]=t2,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:601: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* a8044 in a8032 in xsubstring in k2464 in k2461 */ static void C_ccall f_8045(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8045,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-13.scm:1751: string-parse-final-start+end */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[136]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* k2461 */ static void C_ccall f_2463(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_2463,2,av);} a=C_alloc(3); t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2466,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:18: register-feature! */ t3=*((C_word*)lf[152]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=lf[153]; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k2464 in k2461 */ static void C_ccall f_2466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; C_word t26; C_word t27; C_word t28; C_word t29; C_word t30; C_word t31; C_word t32; C_word t33; C_word t34; C_word t35; C_word t36; C_word t37; C_word t38; C_word t39; C_word t40; C_word t41; C_word t42; C_word t43; C_word t44; C_word t45; C_word t46; C_word t47; C_word t48; C_word t49; C_word t50; C_word t51; C_word t52; C_word t53; C_word t54; C_word t55; C_word t56; C_word t57; C_word t58; C_word t59; C_word t60; C_word t61; C_word t62; C_word t63; C_word t64; C_word t65; C_word t66; C_word t67; C_word t68; C_word t69; C_word t70; C_word t71; C_word t72; C_word t73; C_word t74; C_word t75; C_word t76; C_word t77; C_word t78; C_word t79; C_word t80; C_word t81; C_word t82; C_word t83; C_word t84; C_word t85; C_word t86; C_word t87; C_word t88; C_word t89; C_word t90; C_word t91; C_word t92; C_word t93; C_word t94; C_word t95; C_word t96; C_word t97; C_word t98; C_word t99; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(291,c,11)))){ C_save_and_reclaim((void *)f_2466,2,av);} a=C_alloc(291); t2=C_mutate2((C_word*)lf[0]+1 /* (set! string-parse-start+end ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2468,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); t3=C_mutate2((C_word*)lf[5]+1 /* (set! string-parse-final-start+end ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2558,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); t4=C_mutate2((C_word*)lf[7]+1 /* (set! substring-spec-ok? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2585,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); t5=C_mutate2((C_word*)lf[8]+1 /* (set! check-substring-spec ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2631,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); t6=C_mutate2((C_word*)lf[10]+1 /* (set! substring/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2647,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); t7=C_mutate2(&lf[11] /* (set! %substring/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2671,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); t8=C_mutate2((C_word*)lf[13]+1 /* (set! string-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2693,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); t9=C_mutate2((C_word*)lf[14]+1 /* (set! string-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2711,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); t10=C_mutate2(&lf[15] /* (set! %string-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2729,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); t11=C_mutate2((C_word*)lf[17]+1 /* (set! string-map! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2772,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); t12=C_mutate2(&lf[18] /* (set! %string-map! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2790,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); t13=C_mutate2((C_word*)lf[19]+1 /* (set! string-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2823,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); t14=C_mutate2((C_word*)lf[20]+1 /* (set! string-fold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2865,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); t15=C_mutate2((C_word*)lf[21]+1 /* (set! string-unfold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2911,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); t16=C_mutate2((C_word*)lf[26]+1 /* (set! string-unfold-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3081,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); t17=C_mutate2((C_word*)lf[29]+1 /* (set! string-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3258,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); t18=C_mutate2((C_word*)lf[30]+1 /* (set! string-for-each-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3299,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); t19=C_mutate2((C_word*)lf[31]+1 /* (set! string-every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3336,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); t20=C_mutate2((C_word*)lf[35]+1 /* (set! string-any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3466,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); t21=C_mutate2((C_word*)lf[37]+1 /* (set! string-tabulate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3596,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); t22=C_mutate2(&lf[38] /* (set! %string-prefix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3636,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); t23=C_mutate2(&lf[39] /* (set! %string-suffix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3706,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); t24=C_mutate2(&lf[40] /* (set! %string-prefix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3788,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); t25=C_mutate2(&lf[42] /* (set! %string-suffix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3861,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); t26=C_mutate2((C_word*)lf[43]+1 /* (set! string-prefix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3946,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); t27=C_mutate2((C_word*)lf[44]+1 /* (set! string-suffix-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3976,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); t28=C_mutate2((C_word*)lf[45]+1 /* (set! string-prefix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4006,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); t29=C_mutate2((C_word*)lf[46]+1 /* (set! string-suffix-length-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4036,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); t30=C_mutate2((C_word*)lf[47]+1 /* (set! string-prefix? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4066,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); t31=C_mutate2((C_word*)lf[48]+1 /* (set! string-suffix? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4096,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp)); t32=C_mutate2((C_word*)lf[49]+1 /* (set! string-prefix-ci? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4126,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); t33=C_mutate2((C_word*)lf[50]+1 /* (set! string-suffix-ci? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4156,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); t34=C_mutate2(&lf[51] /* (set! %string-compare ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4278,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); t35=C_mutate2(&lf[52] /* (set! %string-compare-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4337,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); t36=C_mutate2((C_word*)lf[54]+1 /* (set! string-compare ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4399,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); t37=C_mutate2((C_word*)lf[55]+1 /* (set! string-compare-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4429,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); t38=C_mutate2((C_word*)lf[56]+1 /* (set! string= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4459,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); t39=C_mutate2((C_word*)lf[57]+1 /* (set! string<> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4527,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); t40=C_mutate2((C_word*)lf[58]+1 /* (set! string< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4606,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); t41=C_mutate2((C_word*)lf[59]+1 /* (set! string> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4663,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp)); t42=C_mutate2((C_word*)lf[60]+1 /* (set! string<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4720,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp)); t43=C_mutate2((C_word*)lf[61]+1 /* (set! string>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4780,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); t44=C_mutate2((C_word*)lf[62]+1 /* (set! string-ci= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4840,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp)); t45=C_mutate2((C_word*)lf[63]+1 /* (set! string-ci<> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4908,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp)); t46=C_mutate2((C_word*)lf[64]+1 /* (set! string-ci< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4987,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); t47=C_mutate2((C_word*)lf[65]+1 /* (set! string-ci> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5044,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); t48=C_mutate2((C_word*)lf[66]+1 /* (set! string-ci<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5101,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); t49=C_mutate2((C_word*)lf[67]+1 /* (set! string-ci>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5161,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); t50=C_mutate2(&lf[68] /* (set! %string-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5221,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); t51=C_mutate2((C_word*)lf[70]+1 /* (set! string-hash ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5293,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); t52=C_mutate2((C_word*)lf[72]+1 /* (set! string-hash-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5339,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp)); t53=C_mutate2((C_word*)lf[73]+1 /* (set! string-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5395,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); t54=C_mutate2((C_word*)lf[75]+1 /* (set! string-upcase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5413,a[2]=((C_word)li235),tmp=(C_word)a,a+=3,tmp)); t55=C_mutate2((C_word*)lf[76]+1 /* (set! string-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5431,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp)); t56=C_mutate2((C_word*)lf[78]+1 /* (set! string-downcase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5449,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); t57=C_mutate2(&lf[79] /* (set! %string-titlecase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5467,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); t58=C_mutate2((C_word*)lf[82]+1 /* (set! string-titlecase! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5542,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); t59=C_mutate2((C_word*)lf[83]+1 /* (set! string-titlecase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5560,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp)); t60=C_mutate2((C_word*)lf[84]+1 /* (set! string-take ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5585,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); t61=C_mutate2((C_word*)lf[86]+1 /* (set! string-take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5605,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp)); t62=C_mutate2((C_word*)lf[87]+1 /* (set! string-drop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5632,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp)); t63=C_mutate2((C_word*)lf[88]+1 /* (set! string-drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5655,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp)); t64=C_mutate2((C_word*)lf[89]+1 /* (set! string-trim ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5682,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp)); t65=C_mutate2((C_word*)lf[92]+1 /* (set! string-trim-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5729,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); t66=C_mutate2((C_word*)lf[95]+1 /* (set! string-trim-both ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5780,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp)); t67=C_mutate2((C_word*)lf[97]+1 /* (set! string-pad-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5835,a[2]=((C_word)li272),tmp=(C_word)a,a+=3,tmp)); t68=C_mutate2((C_word*)lf[98]+1 /* (set! string-pad ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5893,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp)); t69=C_mutate2((C_word*)lf[99]+1 /* (set! string-delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5955,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp)); t70=C_mutate2((C_word*)lf[102]+1 /* (set! string-filter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6063,a[2]=((C_word)li287),tmp=(C_word)a,a+=3,tmp)); t71=C_mutate2((C_word*)lf[81]+1 /* (set! string-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6171,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp)); t72=C_mutate2((C_word*)lf[105]+1 /* (set! string-index-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6294,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp)); t73=C_mutate2((C_word*)lf[80]+1 /* (set! string-skip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6429,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp)); t74=C_mutate2((C_word*)lf[94]+1 /* (set! string-skip-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6552,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp)); t75=C_mutate2((C_word*)lf[109]+1 /* (set! string-count ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6687,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp)); t76=C_mutate2((C_word*)lf[111]+1 /* (set! string-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6822,a[2]=((C_word)li321),tmp=(C_word)a,a+=3,tmp)); t77=C_mutate2((C_word*)lf[112]+1 /* (set! string-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6863,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp)); t78=C_mutate2((C_word*)lf[113]+1 /* (set! string-contains ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6898,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp)); t79=C_mutate2((C_word*)lf[114]+1 /* (set! string-contains-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6960,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); t80=C_mutate2((C_word*)lf[115]+1 /* (set! make-kmp-restart-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7022,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); t81=C_mutate2((C_word*)lf[118]+1 /* (set! kmp-step ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7167,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp)); t82=C_mutate2((C_word*)lf[119]+1 /* (set! string-kmp-partial-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7205,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp)); t83=C_mutate2((C_word*)lf[120]+1 /* (set! string-null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7326,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp)); t84=C_mutate2((C_word*)lf[121]+1 /* (set! string-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7329,a[2]=((C_word)li353),tmp=(C_word)a,a+=3,tmp)); t85=C_mutate2((C_word*)lf[122]+1 /* (set! string-reverse! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7384,a[2]=((C_word)li357),tmp=(C_word)a,a+=3,tmp)); t86=C_mutate2((C_word*)lf[123]+1 /* (set! string->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7438,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); t87=C_mutate2((C_word*)lf[124]+1 /* (set! string-append/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7484,a[2]=((C_word)li362),tmp=(C_word)a,a+=3,tmp)); t88=C_mutate2((C_word*)lf[125]+1 /* (set! string-concatenate/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7490,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp)); t89=C_mutate2((C_word*)lf[127]+1 /* (set! string-concatenate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7583,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp)); t90=C_mutate2((C_word*)lf[128]+1 /* (set! string-concatenate-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7650,a[2]=((C_word)li370),tmp=(C_word)a,a+=3,tmp)); t91=C_mutate2((C_word*)lf[131]+1 /* (set! string-concatenate-reverse/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7725,a[2]=((C_word)li372),tmp=(C_word)a,a+=3,tmp)); t92=C_mutate2(&lf[130] /* (set! %finish-string-concatenate-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7842,a[2]=((C_word)li374),tmp=(C_word)a,a+=3,tmp)); t93=C_mutate2((C_word*)lf[133]+1 /* (set! string-replace ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7881,a[2]=((C_word)li377),tmp=(C_word)a,a+=3,tmp)); t94=C_mutate2((C_word*)lf[134]+1 /* (set! string-tokenize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7932,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp)); t95=C_mutate2((C_word*)lf[136]+1 /* (set! xsubstring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8024,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp)); t96=C_mutate2((C_word*)lf[140]+1 /* (set! string-xcopy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8117,a[2]=((C_word)li393),tmp=(C_word)a,a+=3,tmp)); t97=C_mutate2(&lf[139] /* (set! %multispan-repcopy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8212,a[2]=((C_word)li395),tmp=(C_word)a,a+=3,tmp)); t98=C_mutate2((C_word*)lf[142]+1 /* (set! string-join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8285,a[2]=((C_word)li398),tmp=(C_word)a,a+=3,tmp)); t99=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t99; av2[1]=C_SCHEME_UNDEFINED; ((C_proc)(void*)(*((C_word*)t99+1)))(2,av2);}} /* lp in k3717 in k3708 in %string-suffix-length in k2464 in k2461 */ static void C_fcall f_3732(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ C_save_and_reclaim_args((void *)trf_3732,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; t5=C_fixnum_lessp(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3742,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_3742(t7,t5);} else{ t7=C_i_string_ref(((C_word*)t0)[5],t2); t8=C_i_string_ref(((C_word*)t0)[6],t3); t9=C_u_i_char_equalp(t7,t8); t10=t6; f_3742(t10,C_i_not(t9));}} /* a8032 in xsubstring in k2464 in k2461 */ static void C_ccall f_8033(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8033,2,av);} a=C_alloc(9); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8045,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li384),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8055,a[2]=((C_word*)t0)[2],a[3]=((C_word)li385),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1751: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_i_string_length(((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],t2); /* srfi-13.scm:1761: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t2; C_values(5,av2);}}} /* k3141 in k3120 in k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3143(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3143,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3146,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:471: make-string */ t4=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k3144 in k3141 in k3120 in k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_3146,2,av);} a=C_alloc(3); t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_i_string_set(t1,t2,((C_word*)t0)[3]); t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); t5=C_fixnum_plus(((C_word*)t0)[6],((C_word*)t0)[7]); /* srfi-13.scm:474: lp */ t6=((C_word*)((C_word*)t0)[8])[1]; f_3103(t6,((C_word*)t0)[9],t4,t5,t1,((C_word*)t0)[2],t2,((C_word*)t0)[10]);} /* string-parse-start+end in k2464 in k2461 */ static void C_ccall f_2468(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){ C_save_and_reclaim((void *)f_2468,5,av);} a=C_alloc(13); t5=C_i_check_string_2(t3,lf[0]); t6=t3; t7=C_block_size(t6); t8=t7; if(C_truep(C_i_pairp(t4))){ t9=t4; t10=C_u_i_car(t9); t11=t4; t12=C_u_i_cdr(t11); t13=C_fixnump(t10); t14=(C_truep(t13)?C_fixnum_greater_or_equal_p(t10,C_fix(0)):C_SCHEME_FALSE); if(C_truep(t14)){ t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2494,a[2]=t12,a[3]=t8,a[4]=t2,a[5]=t3,a[6]=((C_word)li0),tmp=(C_word)a,a+=7,tmp); t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2528,a[2]=t10,a[3]=t2,a[4]=t3,a[5]=((C_word)li1),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:184: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t15; av2[3]=t16; C_call_with_values(4,av2);}} else{ /* srfi-13.scm:196: ##sys#error */ t15=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t15; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[4]; av2[4]=t2; av2[5]=t10; av2[6]=t3; ((C_proc)(void*)(*((C_word*)t15+1)))(7,av2);}}} else{ /* srfi-13.scm:198: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=C_SCHEME_END_OF_LIST; av2[3]=C_fix(0); av2[4]=t8; C_values(5,av2);}}} /* k5702 in a5699 in string-trim in k2464 in k2461 */ static void C_ccall f_5704(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5704,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li259),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1058: g1316 */ t3=t2; f_5708(t3,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[91]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* g1316 in k5702 in a5699 in string-trim in k2464 in k2461 */ static void C_fcall f_5708(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_5708,3,t0,t1,t2);} /* srfi-13.scm:1062: %substring/shared */ f_2671(t1,((C_word*)t0)[2],t2,((C_word*)t0)[3]);} /* k4345 in %string-compare-ci in k2464 in k2461 */ static void C_ccall f_4347(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_4347,2,av);} a=C_alloc(7); t2=t1; t3=C_eqp(t2,((C_word*)t0)[2]); if(C_truep(t3)){ t4=C_eqp(t2,((C_word*)t0)[3]); if(C_truep(t4)){ t5=((C_word*)t0)[4]; /* srfi-13.scm:742: g777 */ t6=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t5=((C_word*)t0)[7]; /* srfi-13.scm:742: g777 */ t6=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} else{ t4=C_eqp(t2,((C_word*)t0)[3]); if(C_truep(t4)){ t5=((C_word*)t0)[8]; t6=C_fixnum_plus(((C_word*)t0)[9],t2); /* srfi-13.scm:742: g779 */ t7=t5;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t7; av2[1]=((C_word*)t0)[5]; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4381,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[9],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); t6=C_fixnum_plus(((C_word*)t0)[9],t2); t7=C_i_string_ref(((C_word*)t0)[10],t6); t8=C_fixnum_plus(((C_word*)t0)[11],t2); t9=C_i_string_ref(((C_word*)t0)[12],t8); /* srfi-13.scm:750: char-ci= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t10; av2[1]=t5; av2[2]=t7; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}} /* k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3166(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3166,2,av);} a=C_alloc(12); t2=t1; t3=C_i_string_length(t2); t4=t3; t5=C_i_string_length(((C_word*)t0)[2]); t6=t5; t7=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t8=t7; t9=C_fixnum_plus(C_fixnum_plus(t6,((C_word*)t0)[5]),t8); t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3181,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=t8,a[9]=((C_word*)t0)[2],a[10]=t6,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); t11=C_fixnum_plus(t9,t4); /* srfi-13.scm:483: make-string */ t12=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t12; av2[1]=t10; av2[2]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* a5699 in string-trim in k2464 in k2461 */ static void C_ccall f_5700(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5700,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5704,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1061: string-skip */ t5=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* string-trim-right in k2464 in k2461 */ static void C_ccall f_5729(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_5729,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[90]+1):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5741,a[2]=t2,a[3]=t9,a[4]=((C_word)li262),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5747,a[2]=t2,a[3]=t6,a[4]=((C_word)li264),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1065: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k3179 in k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3181(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_3181,2,av);} a=C_alloc(13); t2=t1; t3=C_substring_copy(((C_word*)t0)[2],t2,C_fix(0),((C_word*)t0)[3],C_fix(0)); t4=((C_word*)t0)[4]; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=C_substring_copy(t4,t2,t5,t6,((C_word*)t0)[3]); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3190,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t9=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[8]); t10=C_SCHEME_UNDEFINED; t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3196,a[2]=t2,a[3]=t11,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word)li37),tmp=(C_word)a,a+=7,tmp)); t13=((C_word*)t11)[1]; f_3196(t13,t8,t9,((C_word*)t0)[11]);} /* string-for-each-index in k2464 in k2461 */ static void C_ccall f_3299(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_3299,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+9); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3305,a[2]=t3,a[3]=t4,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3311,a[2]=t2,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:506: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k3179 in k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_fcall f_3196(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3196,4,t0,t1,t2,t3);} if(C_truep(C_i_pairp(t3))){ t4=t3; t5=C_u_i_car(t4); t6=t3; t7=C_u_i_cdr(t6); t8=C_i_string_length(t5); t9=t2; t10=C_substring_copy(t5,((C_word*)t0)[2],C_fix(0),t8,t9); t11=C_fixnum_plus(t2,t8); /* srfi-13.scm:493: lp */ t13=t1; t14=t11; t15=t7; t1=t13; t2=t14; t3=t15; goto loop;} else{ t4=t1; t5=t2; t6=t4;{ C_word av2[2]; av2[0]=t6; av2[1]=C_substring_copy(((C_word*)t0)[4],((C_word*)t0)[2],C_fix(0),((C_word*)t0)[5],t5); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k3188 in k3179 in k3164 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3190(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3190,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k3284 in lp in a3269 in string-for-each in k2464 in k2461 */ static void C_ccall f_3286(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3286,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:504: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3276(t3,((C_word*)t0)[4],t2);} /* string->list in k2464 in k2461 */ static void C_ccall f_7438(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_7438,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7444,a[2]=t2,a[3]=t3,a[4]=((C_word)li358),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7450,a[2]=t2,a[3]=((C_word)li360),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1539: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* %string-compare-ci in k2464 in k2461 */ static void C_fcall f_4337(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9,C_word t10){ C_word tmp; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,7)))){ C_save_and_reclaim_args((void *)trf_4337,10,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10);} a=C_alloc(13); t11=C_fixnum_difference(t4,t3); t12=t11; t13=C_fixnum_difference(t7,t6); t14=t13; t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4347,a[2]=t12,a[3]=t14,a[4]=t9,a[5]=t1,a[6]=t4,a[7]=t8,a[8]=t10,a[9]=t3,a[10]=t2,a[11]=t6,a[12]=t5,tmp=(C_word)a,a+=13,tmp); /* srfi-13.scm:746: %string-prefix-length-ci */ f_3788(t15,t2,t3,t4,t5,t6,t7);} /* a4785 in string>= in k2464 in k2461 */ static void C_ccall f_4786(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4786,2,av);} /* srfi-13.scm:833: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string>= in k2464 in k2461 */ static void C_ccall f_4780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4780,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[61]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4786,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li163),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4792,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li169),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:833: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_fcall f_6230(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6230,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6243,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1197: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a4797 in a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4798,2,av);} /* srfi-13.scm:833: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_fcall f_3109(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_3109,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t3,a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); /* srfi-13.scm:461: p */ t5=((C_word*)t0)[12];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4792,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li164),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4804,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li168),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:833: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_fcall f_3103(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_3103,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(16); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_3109,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t3,a[5]=t4,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t9,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word)li38),tmp=(C_word)a,a+=14,tmp)); t11=((C_word*)t9)[1]; f_3109(t11,t1,t6,t7);} /* k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_3101,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3103,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li39),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_3103(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_fix(0),t1,C_fix(40),C_fix(40),((C_word*)t0)[8]);} /* k6223 in a6182 in string-index in k2464 in k2461 */ static void C_ccall f_6225(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6225,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6230,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li290),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6230(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6265,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li291),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6265(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ /* srfi-13.scm:1204: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[81]; av2[3]=lf[104]; av2[4]=*((C_word*)lf[81]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k8109 in a8076 in xsubstring in k2464 in k2461 */ static void C_ccall f_8111(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){ C_save_and_reclaim((void *)f_8111,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8114,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1784: %multispan-repcopy! */ f_8212(t3,t2,C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} /* string-xcopy! in k2464 in k2461 */ static void C_ccall f_8117(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +13,c,5)))){ C_save_and_reclaim((void*)f_8117,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+13); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; C_word t10; t7=C_i_check_exact_2(t5,lf[140]); t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8126,a[2]=t6,a[3]=t4,a[4]=t5,a[5]=((C_word)li391),tmp=(C_word)a,a+=6,tmp); t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8170,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=((C_word)li392),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1801: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t8; av2[3]=t9; C_call_with_values(4,av2);}} /* k8112 in k8109 in a8076 in xsubstring in k2464 in k2461 */ static void C_ccall f_8114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_8114,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a8147 in a8125 in string-xcopy! in k2464 in k2461 */ static void C_ccall f_8148(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8148,4,av);} t4=C_i_car(((C_word*)t0)[2]); t5=C_i_check_exact_2(t4,lf[140]); /* srfi-13.scm:1808: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t2; av2[4]=t3; C_values(5,av2);}} /* a4611 in string< in k2464 in k2461 */ static void C_ccall f_4612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4612,2,av);} /* srfi-13.scm:800: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4617 in string< in k2464 in k2461 */ static void C_ccall f_4618(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4618,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4624,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li140),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4630,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li144),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:800: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3117 in k3227 in lp2 in lp in k3099 in string-unfold-right in k2464 in k2461 */ static void C_ccall f_3119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_3119,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:463: g */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* string-any in k2464 in k2461 */ static void C_ccall f_3466(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_3466,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3472,a[2]=t3,a[3]=t4,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3478,a[2]=t2,a[3]=t3,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:538: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4623 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4624(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4624,2,av);} /* srfi-13.scm:800: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3456 in lp in k3388 in a3347 in string-every in k2464 in k2461 */ static void C_ccall f_3458(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3458,2,av);} if(C_truep(t1)){ /* srfi-13.scm:532: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_3436(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a8125 in string-xcopy! in k2464 in k2461 */ static void C_ccall f_8126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_8126,2,av);} a=C_alloc(9); if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8138,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li389),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8148,a[2]=((C_word*)t0)[2],a[3]=((C_word)li390),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1803: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} else{ t2=C_i_string_length(((C_word*)t0)[3]); t3=C_fixnum_plus(((C_word*)t0)[4],t2); /* srfi-13.scm:1810: values */{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t2; C_values(5,av2);}}} /* a4143 in a4137 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4144(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4144,2,av);} /* srfi-13.scm:681: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-null? in k2464 in k2461 */ static void C_ccall f_7326(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_7326,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_i_string_null_p(t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a7443 in string->list in k2464 in k2461 */ static void C_ccall f_7444(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7444,2,av);} /* srfi-13.scm:1539: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[123]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-reverse in k2464 in k2461 */ static void C_ccall f_7329(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_7329,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7335,a[2]=t2,a[3]=t3,a[4]=((C_word)li350),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7341,a[2]=t2,a[3]=((C_word)li352),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1504: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k6411 in lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_ccall f_6413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6413,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:1223: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6400(t3,((C_word*)t0)[2],t2);}} /* string< in k2464 in k2461 */ static void C_ccall f_4606(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4606,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[58]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4612,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li139),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4618,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li145),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:800: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4149 in a4137 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4150(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4150,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4249,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:710: %string-prefix-length-ci */ f_3788(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* string-suffix-ci? in k2464 in k2461 */ static void C_ccall f_4156(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4156,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[50]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4162,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4168,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:686: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a7449 in string->list in k2464 in k2461 */ static void C_ccall f_7450(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_7450,4,av);} a=C_alloc(8); t4=C_fixnum_difference(t3,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7460,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li359),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_7460(t8,t1,t4,C_SCHEME_END_OF_LIST);} /* string-index-right in k2464 in k2461 */ static void C_ccall f_6294(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6294,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6300,a[2]=t2,a[3]=t4,a[4]=((C_word)li294),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6306,a[2]=t3,a[3]=t2,a[4]=((C_word)li298),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1207: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a7334 in string-reverse in k2464 in k2461 */ static void C_ccall f_7335(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7335,2,av);} /* srfi-13.scm:1504: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[121]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_fcall f_6400(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6400,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6413,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1222: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* lp in k3388 in a3347 in string-every in k2464 in k2461 */ static void C_fcall f_3436(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3436,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_fixnum_plus(t2,C_fix(1)); t5=t4; t6=((C_word*)t0)[3]; t7=C_eqp(t5,t6); if(C_truep(t7)){ /* srfi-13.scm:531: criteria */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3458,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:532: criteria */ t9=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} /* a4650 in k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4651(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4651,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4161 in string-suffix-ci? in k2464 in k2461 */ static void C_ccall f_4162(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4162,2,av);} /* srfi-13.scm:686: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4653 in k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4654(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4654,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4167 in string-suffix-ci? in k2464 in k2461 */ static void C_ccall f_4168(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4168,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4180,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li108),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:686: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* doloop1809 in a7449 in string->list in k2464 in k2461 */ static void C_fcall f_7460(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ C_save_and_reclaim_args((void *)trf_7460,4,t0,t1,t2,t3);} a=C_alloc(3); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t4,t5))){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_difference(t2,C_fix(1)); t7=C_i_string_ref(((C_word*)t0)[3],t2); t8=C_a_i_cons(&a,2,t7,t3); t10=t1; t11=t6; t12=t8; t1=t10; t2=t11; t3=t12; goto loop;}} /* a7340 in string-reverse in k2464 in k2461 */ static void C_ccall f_7341(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_7341,4,av);} a=C_alloc(6); t4=C_fixnum_difference(t3,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7348,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1507: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} /* k7346 in a7340 in string-reverse in k2464 in k2461 */ static void C_ccall f_7348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_7348,2,av);} a=C_alloc(5); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7357,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li351),tmp=(C_word)a,a+=5,tmp); t5=( f_7357(t4,((C_word*)t0)[4],t3) ); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a6434 in string-skip in k2464 in k2461 */ static void C_ccall f_6435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6435,2,av);} /* srfi-13.scm:1227: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[80]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string> in k2464 in k2461 */ static void C_ccall f_4663(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4663,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[59]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4669,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li147),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4675,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li153),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:811: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4668 in string> in k2464 in k2461 */ static void C_ccall f_4669(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4669,2,av);} /* srfi-13.scm:811: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4173 in a4167 in string-suffix-ci? in k2464 in k2461 */ static void C_ccall f_4174(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4174,2,av);} /* srfi-13.scm:686: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop1778 in k7346 in a7340 in string-reverse in k2464 in k2461 */ static C_word C_fcall f_7357(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} t3=t2; if(C_truep(C_fixnum_lessp(t3,C_fix(0)))){ t4=C_SCHEME_UNDEFINED; return(t4);} else{ t4=C_i_string_ref(((C_word*)t0)[2],t1); t5=C_i_string_set(((C_word*)t0)[3],t2,t4); t6=C_fixnum_plus(t1,C_fix(1)); t7=C_fixnum_difference(t2,C_fix(1)); t9=t6; t10=t7; t1=t9; t2=t10; goto loop;}} /* a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4630(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4630,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4637,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4637(t8,C_eqp(t6,t7));} else{ t6=t4; f_4637(t6,C_SCHEME_FALSE);}} /* k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_fcall f_4637(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4637,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4645,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4651,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4654,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:806: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* doloop1793 in a7395 in string-reverse! in k2464 in k2461 */ static C_word C_fcall f_7406(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_stack_overflow_check; loop:{} t3=t1; t4=t2; if(C_truep(C_fixnum_less_or_equal_p(t3,t4))){ t5=C_SCHEME_UNDEFINED; return(t5);} else{ t5=C_i_string_ref(((C_word*)t0)[2],t1); t6=((C_word*)t0)[2]; t7=t1; t8=C_i_string_ref(((C_word*)t0)[2],t2); t9=C_i_string_set(t6,t7,t8); t10=((C_word*)t0)[2]; t11=t2; t12=C_i_string_set(t10,t11,t5); t13=C_fixnum_difference(t1,C_fix(1)); t14=C_fixnum_plus(t2,C_fix(1)); t16=t13; t17=t14; t1=t16; t2=t17; goto loop;}} /* lp in a6440 in string-skip in k2464 in k2461 */ static C_word C_fcall f_6453(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ t5=C_fixnum_plus(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ return(t1);}} else{ return(C_SCHEME_FALSE);}} /* string-skip in k2464 in k2461 */ static void C_ccall f_6429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6429,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6435,a[2]=t2,a[3]=t4,a[4]=((C_word)li300),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6441,a[2]=t3,a[3]=t2,a[4]=((C_word)li304),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1227: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3406 in lp in k3388 in a3347 in string-every in k2464 in k2461 */ static void C_ccall f_3408(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3408,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:524: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3395(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4644 in k4635 in a4629 in a4617 in string< in k2464 in k2461 */ static void C_ccall f_4645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4645,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-concatenate-reverse/shared in k2464 in k2461 */ static void C_ccall f_7725(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_7725,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+8); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[132]:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?C_i_string_length(t6):C_i_car(t8)); t11=t10; t12=C_i_nullp(t8); t13=(C_truep(t12)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t14=C_i_check_exact_2(t11,lf[131]); t15=C_SCHEME_UNDEFINED; t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp); t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7746,a[2]=t16,a[3]=t6,a[4]=t11,a[5]=((C_word)li371),tmp=(C_word)a,a+=6,tmp)); t18=((C_word*)t16)[1]; f_7746(t18,t1,C_fix(0),C_SCHEME_FALSE,t2);} /* a6440 in string-skip in k2464 in k2461 */ static void C_ccall f_6441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6441,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6453,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li301),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6453(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6483,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1235: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* k6241 in lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_ccall f_6243(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6243,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:1198: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6230(t3,((C_word*)t0)[2],t2);}} /* string-pad-right in k2464 in k2461 */ static void C_ccall f_5835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,4)))){ C_save_and_reclaim((void*)f_5835,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+11); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t5=C_i_check_exact_2(t3,lf[97]); t6=C_i_nullp(t4); t7=(C_truep(t6)?C_make_character(32):C_i_car(t4)); t8=t7; t9=C_i_nullp(t4); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t11=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5850,a[2]=t2,a[3]=t11,a[4]=((C_word)li270),tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5856,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li271),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1083: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}} /* a4119 in a4107 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4120(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4120,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4226,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:704: %string-suffix-length */ f_3706(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4126(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4126,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[49]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4132,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li101),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4138,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li104),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:681: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5849 in string-pad-right in k2464 in k2461 */ static void C_ccall f_5850(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5850,2,av);} /* srfi-13.scm:1083: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[97]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-reverse! in k2464 in k2461 */ static void C_ccall f_7384(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_7384,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7390,a[2]=t2,a[3]=t3,a[4]=((C_word)li354),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7396,a[2]=t2,a[3]=((C_word)li356),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1514: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k6276 in lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_ccall f_6278(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6278,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:1203: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6265(t3,((C_word*)t0)[2],t2);}} /* a8169 in string-xcopy! in k2464 in k2461 */ static void C_ccall f_8170(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ C_save_and_reclaim((void *)f_8170,5,av);} a=C_alloc(13); t5=C_fixnum_difference(t2,((C_word*)t0)[2]); t6=t5; t7=C_fixnum_plus(((C_word*)t0)[3],t6); t8=t7; t9=C_fixnum_difference(t4,t3); t10=t9; t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8183,a[2]=t6,a[3]=t1,a[4]=t10,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[2],a[9]=t2,a[10]=t3,a[11]=t4,a[12]=t8,tmp=(C_word)a,a+=13,tmp); /* srfi-13.scm:1815: check-substring-spec */ t12=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t12; av2[1]=t11; av2[2]=*((C_word*)lf[140]+1); av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[3]; av2[5]=t8; ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}} /* a4131 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4132(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4132,2,av);} /* srfi-13.scm:681: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4137 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4138,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li102),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4150,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li103),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:681: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k6223 in a6182 in string-index in k2464 in k2461 */ static void C_fcall f_6265(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6265,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6278,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1202: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a5855 in string-pad-right in k2464 in k2461 */ static void C_ccall f_5856(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5856,4,av);} a=C_alloc(6); t4=C_fixnum_difference(t3,t2); t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_less_or_equal_p(t5,t4))){ t6=C_fixnum_plus(t2,((C_word*)t0)[2]); /* srfi-13.scm:1087: %substring/shared */ f_2671(t1,((C_word*)t0)[3],t2,t6);} else{ t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5876,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1088: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* k3895 in lp in k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3897(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_3897,2,t0,t1);} if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t3; av2[1]=C_fixnum_difference(t2,C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t3=C_fixnum_difference(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:640: lp */ t4=((C_word*)((C_word*)t0)[6])[1]; f_3887(t4,((C_word*)t0)[4],t2,t3);}} /* k5489 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5491(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ C_save_and_reclaim((void *)f_5491,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li242),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:985: g1246 */ t3=t2; f_5495(t3,((C_word*)t0)[5],t1);} else{ /* srfi-13.scm:990: string-downcase! */ t2=*((C_word*)lf[78]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} /* k5800 in a5797 in string-trim-both in k2464 in k2461 */ static void C_ccall f_5802(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5802,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li267),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1072: g1368 */ t3=t2; f_5806(t3,((C_word*)t0)[5],t1);} else{ t2=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[96]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* k7985 in g1979 in k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ C_save_and_reclaim((void *)f_7987,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); /* srfi-13.scm:1711: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_7956(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} /* lp in k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3887(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ C_save_and_reclaim_args((void *)trf_3887,4,t0,t1,t2,t3);} a=C_alloc(10); t4=t2; t5=C_fixnum_lessp(t4,((C_word*)t0)[2]); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3897,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); if(C_truep(t5)){ t7=t6; f_3897(t7,t5);} else{ t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3922,a[2]=t6,tmp=(C_word)a,a+=3,tmp); t8=C_i_string_ref(((C_word*)t0)[5],t2); t9=C_i_string_ref(((C_word*)t0)[6],t3); /* srfi-13.scm:637: char-ci=? */ t10=*((C_word*)lf[41]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t7; av2[2]=t8; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* k8181 in a8169 in string-xcopy! in k2464 in k2461 */ static void C_ccall f_8183(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){ C_save_and_reclaim((void *)f_8183,2,av);} t2=C_u_i_zerop(((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ if(C_truep(C_u_i_zerop(((C_word*)t0)[4]))){ /* srfi-13.scm:1817: ##sys#error */ t3=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 12) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(12); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=lf[140]; av2[3]=lf[141]; av2[4]=*((C_word*)lf[140]+1); av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; av2[7]=((C_word*)t0)[7]; av2[8]=((C_word*)t0)[8]; av2[9]=((C_word*)t0)[9]; av2[10]=((C_word*)t0)[10]; av2[11]=((C_word*)t0)[11]; ((C_proc)(void*)(*((C_word*)t3+1)))(12,av2);}} else{ t3=C_eqp(C_fix(1),((C_word*)t0)[4]); if(C_truep(t3)){ t4=C_i_string_ref(((C_word*)t0)[7],((C_word*)t0)[10]); /* srfi-13.scm:1822: ##srfi13#string-fill! */ t5=*((C_word*)lf[111]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[5]; av2[3]=t4; av2[4]=((C_word*)t0)[6]; av2[5]=((C_word*)t0)[12]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* srfi-13.scm:1837: %multispan-repcopy! */ f_8212(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}}}} /* substring-spec-ok? in k2464 in k2461 */ static void C_ccall f_2585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_2585,5,av);} if(C_truep(C_i_stringp(t2))){ if(C_truep(C_fixnump(t3))){ if(C_truep(C_fixnump(t4))){ t5=t3; if(C_truep(C_fixnum_less_or_equal_p(C_fix(0),t5))){ t6=t3; t7=t4; if(C_truep(C_fixnum_less_or_equal_p(t6,t7))){ t8=t4; t9=t2; t10=C_block_size(t9); t11=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=C_fixnum_less_or_equal_p(t8,t10); ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} else{ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} else{ t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} else{ t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* g1246 in k5489 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5495(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ C_save_and_reclaim_args((void *)trf_5495,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5499,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:988: string-downcase! */ t4=*((C_word*)lf[78]+1);{ C_word av2[5]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[4]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} /* k5497 in g1246 in k5489 in g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5499(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_5499,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:989: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_5473(t3,((C_word*)t0)[4],t2);} /* g1368 in k5800 in a5797 in string-trim-both in k2464 in k2461 */ static void C_fcall f_5806(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){ C_save_and_reclaim_args((void *)trf_5806,3,t0,t1,t2);} a=C_alloc(5); t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5818,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1077: string-skip-right */ t4=*((C_word*)lf[94]+1);{ C_word av2[6]; av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} /* a8137 in a8125 in string-xcopy! in k2464 in k2461 */ static void C_ccall f_8138(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_8138,2,av);} t2=C_i_cdr(((C_word*)t0)[2]); /* srfi-13.scm:1803: string-parse-final-start+end */ t3=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t3; av2[1]=t1; av2[2]=*((C_word*)lf[140]+1); av2[3]=((C_word*)t0)[3]; av2[4]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} /* lp in k3004 in k2992 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static C_word C_fcall f_3023(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=t2; t6=C_u_i_cdr(t5); t7=C_i_string_length(t4); t8=C_fixnum_difference(t1,t7); t9=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t7,t8); t11=t8; t12=t6; t1=t11; t2=t12; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k5816 in g1368 in k5800 in a5797 in string-trim-both in k2464 in k2461 */ static void C_ccall f_5818(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5818,2,av);} t2=C_fixnum_plus(C_fix(1),t1); /* srfi-13.scm:1077: %substring/shared */ f_2671(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t2);} /* a4179 in a4167 in string-suffix-ci? in k2464 in k2461 */ static void C_ccall f_4180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4180,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4272,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:716: %string-suffix-length-ci */ f_3861(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* a2569 in string-parse-final-start+end in k2464 in k2461 */ static void C_ccall f_2570(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2570,5,av);} if(C_truep(C_i_pairp(t2))){ /* srfi-13.scm:202: ##sys#error */ t5=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t1; av2[2]=lf[5]; av2[3]=lf[6]; av2[4]=((C_word*)t0)[2]; av2[5]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} else{ /* srfi-13.scm:203: values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t3; av2[3]=t4; C_values(4,av2);}}} /* string-unfold-right in k2464 in k2461 */ static void C_ccall f_3081(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_3081,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+12); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t7=C_i_nullp(t6); t8=(C_truep(t7)?lf[27]:C_i_car(t6)); t9=t8; t10=C_i_nullp(t6); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t6)); t12=C_i_nullp(t11); t13=(C_truep(t12)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3240,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp):C_i_car(t11)); t14=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3101,a[2]=t9,a[3]=t14,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t1,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t17; av2[2]=C_fix(40); av2[3]=C_make_character(32); tp(4,av2);}} /* k3518 in a3477 in string-any in k2464 in k2461 */ static void C_ccall f_3520(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_3520,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3525,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li57),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_3525(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=((C_word*)t0)[6]; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3566,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li58),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_3566(t7,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ t4=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} else{ /* srfi-13.scm:560: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[35]; av2[3]=lf[36]; av2[4]=*((C_word*)lf[35]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* string-downcase! in k2464 in k2461 */ static void C_ccall f_5449(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_5449,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5455,a[2]=t2,a[3]=t3,a[4]=((C_word)li239),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5461,a[2]=t2,a[3]=((C_word)li240),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:976: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* lp in k3518 in a3477 in string-any in k2464 in k2461 */ static void C_fcall f_3525(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3525,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3535,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:549: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a5442 in string-downcase in k2464 in k2461 */ static void C_ccall f_5443(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5443,4,av);} /* srfi-13.scm:974: %string-map */ f_2729(t1,*((C_word*)lf[77]+1),((C_word*)t0)[2],t2,t3);} /* a5460 in string-downcase! in k2464 in k2461 */ static void C_ccall f_5461(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5461,4,av);} /* srfi-13.scm:978: %string-map! */ f_2790(t1,*((C_word*)lf[77]+1),((C_word*)t0)[2],t2,t3);} /* a5454 in string-downcase! in k2464 in k2461 */ static void C_ccall f_5455(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5455,2,av);} /* srfi-13.scm:976: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[78]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6698 in string-count in k2464 in k2461 */ static void C_ccall f_6699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_6699,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6711,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li313),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_6711(t4,t2,C_fix(0)) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6745,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1283: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5467(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_5467,4,t1,t2,t3,t4);} a=C_alloc(8); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5473,a[2]=t2,a[3]=t6,a[4]=t4,a[5]=((C_word)li246),tmp=(C_word)a,a+=6,tmp)); t8=((C_word*)t6)[1]; f_5473(t8,t1,t3);} /* g1232 in k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5481(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ C_save_and_reclaim_args((void *)trf_5481,3,t0,t1,t2);} a=C_alloc(10); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_u_i_char_upcase(t3); t5=C_i_string_set(((C_word*)t0)[2],t2,t4); t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5491,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t1,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5514,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:986: string-skip */ t10=*((C_word*)lf[80]+1);{ C_word av2[6]; av2[0]=t10; av2[1]=t8; av2[2]=((C_word*)t0)[2]; av2[3]=t9; av2[4]=t7; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}} /* k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_3052(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ C_save_and_reclaim((void *)f_3052,2,av);} a=C_alloc(12); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:431: make-final */ t3=((C_word*)t0)[8];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2949,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); /* srfi-13.scm:417: f */ t3=((C_word*)t0)[14];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=((C_word*)t0)[9]; ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} /* a6692 in string-count in k2464 in k2461 */ static void C_ccall f_6693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6693,2,av);} /* srfi-13.scm:1274: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[109]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-count in k2464 in k2461 */ static void C_ccall f_6687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6687,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6693,a[2]=t2,a[3]=t4,a[4]=((C_word)li312),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6699,a[2]=t3,a[3]=t2,a[4]=((C_word)li316),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1274: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k3533 in lp in k3518 in a3477 in string-any in k2464 in k2461 */ static void C_ccall f_3535(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3535,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:550: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_3525(t3,((C_word*)t0)[2],t2);}} /* k5475 in lp in %string-titlecase! in k2464 in k2461 */ static void C_ccall f_5477(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_5477,2,av);} a=C_alloc(6); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5481,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li244),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:980: g1232 */ t3=t2; f_5481(t3,((C_word*)t0)[5],t1);} else{ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in %string-titlecase! in k2464 in k2461 */ static void C_fcall f_5473(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ C_save_and_reclaim_args((void *)trf_5473,3,t0,t1,t2);} a=C_alloc(9); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5536,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:982: string-index */ t5=*((C_word*)lf[81]+1);{ C_word av2[6]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[2]; av2[3]=t4; av2[4]=t2; av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* g1979 in k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_fcall f_7975(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ C_save_and_reclaim_args((void *)trf_7975,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7987,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); t4=C_fixnum_plus(C_fix(1),t2); /* srfi-13.scm:1712: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+1); av2[1]=t3; av2[2]=((C_word*)t0)[4]; av2[3]=t4; av2[4]=((C_word*)t0)[5]; tp(5,av2);}} /* k7969 in g1969 in k7958 in lp in a7949 in string-tokenize in k2464 in k2461 */ static void C_ccall f_7971(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_7971,2,av);} a=C_alloc(7); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li379),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1707: g1979 */ t3=t2; f_7975(t3,((C_word*)t0)[6],t1);} else{ t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8001,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1714: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t2; av2[2]=((C_word*)t0)[4]; av2[3]=((C_word*)t0)[7]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}}} /* a7895 in k7883 in string-replace in k2464 in k2461 */ static void C_ccall f_7896(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_7896,4,av);} a=C_alloc(11); t4=C_i_string_length(((C_word*)t0)[2]); t5=t4; t6=C_fixnum_difference(t3,t2); t7=t6; t8=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t9=C_fixnum_difference(t5,t8); t10=C_fixnum_plus(t9,t7); t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7909,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t3,a[7]=t7,a[8]=((C_word*)t0)[3],a[9]=t5,a[10]=t1,tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:1688: make-string */ t12=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=t11; av2[2]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} /* a7889 in k7883 in string-replace in k2464 in k2461 */ static void C_ccall f_7890(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7890,2,av);} /* srfi-13.scm:1684: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[133]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in k3518 in a3477 in string-any in k2464 in k2461 */ static void C_fcall f_3566(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3566,3,t0,t1,t2);} a=C_alloc(5); t3=C_i_string_ref(((C_word*)t0)[2],t2); t4=C_fixnum_plus(t2,C_fix(1)); t5=t4; t6=((C_word*)t0)[3]; t7=C_eqp(t5,t6); if(C_truep(t7)){ /* srfi-13.scm:557: criteria */ t8=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t8; av2[1]=t1; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3585,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:558: criteria */ t9=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t9; av2[1]=t8; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} /* a4544 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4545,2,av);} /* srfi-13.scm:790: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4107 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4108(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4108,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li97),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4120,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li98),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:676: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4101 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4102(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4102,2,av);} /* srfi-13.scm:676: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7883 in string-replace in k2464 in k2461 */ static void C_ccall f_7885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ C_save_and_reclaim((void *)f_7885,2,av);} a=C_alloc(12); t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7890,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li375),tmp=(C_word)a,a+=5,tmp); t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7896,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word)li376),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1684: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=((C_word*)t0)[7]; av2[2]=t2; av2[3]=t3; C_call_with_values(4,av2);}} /* string-replace in k2464 in k2461 */ static void C_ccall f_7881(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +8,c,5)))){ C_save_and_reclaim((void*)f_7881,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+8); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7885,a[2]=t3,a[3]=t6,a[4]=t2,a[5]=t5,a[6]=t4,a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1683: check-substring-spec */ t8=*((C_word*)lf[8]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=*((C_word*)lf[133]+1); av2[3]=t2; av2[4]=t4; av2[5]=t5; ((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} /* a4113 in a4107 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4114(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4114,2,av);} /* srfi-13.scm:676: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3004 in k2992 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_3006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_3006,2,av);} a=C_alloc(4); t2=t1; t3=C_substring_copy(((C_word*)t0)[2],t2,C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_fixnum_difference(((C_word*)t0)[4],((C_word*)t0)[5]); t5=((C_word*)t0)[6]; t6=((C_word*)t0)[5]; t7=C_substring_copy(t5,t2,C_fix(0),t6,t4); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3023,a[2]=t2,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); t9=( f_3023(t8,t4,((C_word*)t0)[7]) ); t10=C_substring_copy(((C_word*)t0)[8],t2,C_fix(0),((C_word*)t0)[9],C_fix(0)); t11=((C_word*)t0)[10];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t11; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} /* a4568 in k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4569(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4569,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4532 in string<> in k2464 in k2461 */ static void C_ccall f_4533(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4533,2,av);} /* srfi-13.scm:790: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4539(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4539,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4545,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li132),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4551,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li136),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:790: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* f_3063 in string-unfold in k2464 in k2461 */ static void C_ccall f_3063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3063,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=lf[23]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5034 in k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5035(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5035,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5031 in k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5032(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5032,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4503 in k4491 in a4482 in a4470 in string= in k2464 in k2461 */ static void C_ccall f_4504(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4504,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4500 in k4491 in a4482 in a4470 in string= in k2464 in k2461 */ static void C_ccall f_4501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4501,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-ci> in k2464 in k2461 */ static void C_ccall f_5044(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_5044,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[65]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5050,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li195),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5056,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li201),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:875: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4551(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4551,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); t7=C_i_not(t6); if(C_truep(t7)){ t8=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} else{ t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4586,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t9=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t9)){ t10=((C_word*)t0)[3]; t11=t2; t12=t8; f_4586(t12,C_eqp(t10,t11));} else{ t10=t8; f_4586(t10,C_SCHEME_FALSE);}}} /* string<> in k2464 in k2461 */ static void C_ccall f_4527(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4527,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[57]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4533,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li131),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4539,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li137),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:790: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k6945 in lp in a6921 in a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6947(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6947,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:1339: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6934(t3,((C_word*)t0)[2],t2);}} /* string-every in k2464 in k2461 */ static void C_ccall f_3336(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_3336,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3342,a[2]=t3,a[3]=t4,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3348,a[2]=t2,a[3]=t3,a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:512: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5004 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5005(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5005,2,av);} /* srfi-13.scm:864: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5999 in a5993 in k5978 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6001(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6001,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_string_set(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* string-ci< in k2464 in k2461 */ static void C_ccall f_4987(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4987,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[64]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4993,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li187),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4999,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li193),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:864: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4509 in k4491 in a4482 in a4470 in string= in k2464 in k2461 */ static void C_ccall f_4510(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4510,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* lp in a6921 in a6909 in string-contains in k2464 in k2461 */ static void C_fcall f_6934(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,7)))){ C_save_and_reclaim_args((void *)trf_6934,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_less_or_equal_p(t2,((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6947,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,((C_word*)t0)[4]); /* srfi-13.scm:1337: string= */ t5=*((C_word*)lf[56]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=t2; av2[5]=t4; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* lp in a3347 in string-every in k2464 in k2461 */ static C_word C_fcall f_3360(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; t4=C_fixnum_greater_or_equal_p(t2,t3); if(C_truep(t4)){ return(t4);} else{ t5=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t5))){ t6=C_fixnum_plus(t1,C_fix(1)); t8=t6; t1=t8; goto loop;} else{ return(C_SCHEME_FALSE);}}} /* k4379 in k4345 in %string-compare-ci in k2464 in k2461 */ static void C_ccall f_4381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4381,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]); /* srfi-13.scm:742: g779 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} else{ t2=((C_word*)t0)[6]; t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]); /* srfi-13.scm:742: g779 */ t4=t2;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=((C_word*)t0)[5]; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} /* a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_4999(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4999,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5005,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li188),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5011,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li192),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:864: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4992 in string-ci< in k2464 in k2461 */ static void C_ccall f_4993(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4993,2,av);} /* srfi-13.scm:864: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-compare in k2464 in k2461 */ static void C_ccall f_4399(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(c<7) C_bad_min_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +15,c,5)))){ C_save_and_reclaim((void*)f_4399,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+15); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; C_word t10; C_word t11; t8=*((C_word*)lf[54]+1); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4405,a[2]=t8,a[3]=t2,a[4]=t7,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4411,a[2]=t8,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=((C_word)li116),tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:755: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* k7104 in lp2 in lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7106(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7106,2,av);} t2=(C_truep(t1)?C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(-1)):C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0))); t3=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); /* srfi-13.scm:1426: lp1 */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7064(t4,((C_word*)t0)[6],((C_word*)t0)[3],C_fix(0),t3);} /* k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6010(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){ C_save_and_reclaim((void *)f_6010,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6013,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6036,a[2]=t2,a[3]=((C_word)li279),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1134: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* k7114 in lp2 in lp1 in k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7116(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7116,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(C_fix(1),((C_word*)t0)[2]); t3=C_fixnum_plus(C_fix(1),((C_word*)t0)[3]); t4=C_i_vector_set(((C_word*)t0)[4],t2,t3); t5=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); /* srfi-13.scm:1434: lp1 */ t6=((C_word*)((C_word*)t0)[6])[1]; f_7064(t6,((C_word*)t0)[7],t2,t3,t5);} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[3]); /* srfi-13.scm:1436: lp2 */ t3=((C_word*)((C_word*)t0)[8])[1]; f_7076(t3,((C_word*)t0)[7],t2);}} /* k6026 in a6020 in k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6028(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6028,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=C_i_string_set(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a2783 in string-map! in k2464 in k2461 */ static void C_ccall f_2784(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_2784,4,av);} /* srfi-13.scm:318: %string-map! */ f_2790(t1,((C_word*)t0)[2],((C_word*)t0)[3],t2,t3);} /* k3325 in lp in a3310 in string-for-each-index in k2464 in k2461 */ static void C_ccall f_3327(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3327,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:510: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_3317(t3,((C_word*)t0)[4],t2);} /* k6017 in k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6019(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6019,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6013(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6013,2,av);} a=C_alloc(7); t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6016,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1138: make-string */ t3=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t2; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6016(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){ C_save_and_reclaim((void *)f_6016,2,av);} a=C_alloc(9); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6019,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6021,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li278),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1139: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[4]; av2[5]=((C_word*)t0)[5]; av2[6]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_fcall f_4874(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4874,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4882,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4885,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4891,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:849: %string-compare-ci */ f_4337(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* a5049 in string-ci> in k2464 in k2461 */ static void C_ccall f_5050(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5050,2,av);} /* srfi-13.scm:875: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* %string-map! in k2464 in k2461 */ static void C_fcall f_2790(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ C_word tmp; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ C_save_and_reclaim_args((void *)trf_2790,5,t1,t2,t3,t4,t5);} a=C_alloc(9); t6=C_SCHEME_UNDEFINED; t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2796,a[2]=t5,a[3]=t3,a[4]=t7,a[5]=t2,a[6]=((C_word)li21),tmp=(C_word)a,a+=7,tmp)); t9=((C_word*)t7)[1]; f_2796(t9,t1,t4);} /* a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5056(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5056,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li196),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5068,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li200),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:875: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a2493 in string-parse-start+end in k2464 in k2461 */ static void C_ccall f_2494(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ C_save_and_reclaim((void *)f_2494,2,av);} if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ t2=C_u_i_car(((C_word*)t0)[2]); t3=C_u_i_cdr(((C_word*)t0)[2]); t4=C_fixnump(t2); t5=(C_truep(t4)?C_fixnum_less_or_equal_p(t2,((C_word*)t0)[3]):C_SCHEME_FALSE); if(C_truep(t5)){ /* srfi-13.scm:190: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t2; av2[3]=t3; C_values(4,av2);}} else{ /* srfi-13.scm:191: ##sys#error */ t6=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t6; av2[1]=t1; av2[2]=lf[0]; av2[3]=lf[2]; av2[4]=((C_word*)t0)[4]; av2[5]=t2; av2[6]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}} else{ /* srfi-13.scm:192: values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=((C_word*)t0)[3]; av2[3]=((C_word*)t0)[2]; C_values(4,av2);}}} /* doloop231 in %string-map! in k2464 in k2461 */ static void C_fcall f_2796(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2796,3,t0,t1,t2);} a=C_alloc(6); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=((C_word*)t0)[3]; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2817,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); t6=C_i_string_ref(((C_word*)t0)[3],t2); /* srfi-13.scm:323: proc */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} /* a6921 in a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6922,4,av);} a=C_alloc(12); t4=C_fixnum_difference(t3,t2); t5=t4; t6=C_fixnum_difference(((C_word*)t0)[2],t5); t7=t6; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6934,a[2]=t7,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=t3,a[9]=((C_word)li327),tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_6934(t11,t1,((C_word*)t0)[5]);} /* a3310 in string-for-each-index in k2464 in k2461 */ static void C_ccall f_3311(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ C_save_and_reclaim((void *)f_3311,4,av);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3317,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li46),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_3317(t7,t1,t2);} /* lp in a3310 in string-for-each-index in k2464 in k2461 */ static void C_fcall f_3317(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_3317,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3327,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:510: proc */ t6=((C_word*)t0)[4];{ C_word av2[3]; av2[0]=t6; av2[1]=t5; av2[2]=t2; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} /* k6047 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6049(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6049,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; f_6010(2,av2);}} else{ if(C_truep(C_charp(((C_word*)t0)[3]))){ /* srfi-13.scm:1132: char-set */ t2=*((C_word*)lf[100]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} else{ /* srfi-13.scm:1133: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[99]; av2[3]=lf[101]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}} /* k6041 in a6035 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6043(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_6043,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ t2=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a4845 in string-ci= in k2464 in k2461 */ static void C_ccall f_4846(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4846,2,av);} /* srfi-13.scm:844: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-ci= in k2464 in k2461 */ static void C_ccall f_4840(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4840,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[62]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4846,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li171),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4852,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li177),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:844: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5061 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5062(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5062,2,av);} /* srfi-13.scm:875: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6915 in a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6916(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6916,2,av);} /* srfi-13.scm:1330: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6909 in string-contains in k2464 in k2461 */ static void C_ccall f_6910(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6910,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li326),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6922,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li328),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1330: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a3341 in string-every in k2464 in k2461 */ static void C_ccall f_3342(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3342,2,av);} /* srfi-13.scm:512: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[31]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3347 in string-every in k2464 in k2461 */ static void C_ccall f_3348(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3348,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3360,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_3360(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3390,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:520: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a6035 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_6036,4,av);} a=C_alloc(4); t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6043,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1134: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4852(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4852,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li172),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4864,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word)li176),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:844: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_fcall f_5075(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_5075,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5083,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5086,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5089,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:881: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4857 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4858(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4858,2,av);} /* srfi-13.scm:844: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5068(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5068,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5075,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5075(t8,C_eqp(t6,t7));} else{ t6=t4; f_5075(t6,C_SCHEME_FALSE);}} /* a6068 in string-filter in k2464 in k2461 */ static void C_ccall f_6069(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6069,2,av);} /* srfi-13.scm:1146: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[102]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5082 in k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5083(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5083,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5085 in k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5086(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5086,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k3790 in %string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_3792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3792,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_plus(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3801,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[6]; t9=t5; f_3801(t9,C_eqp(t7,t8));} else{ t7=t5; f_3801(t7,C_SCHEME_FALSE);}} /* a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5011(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5011,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5018,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5018(t8,C_eqp(t6,t7));} else{ t6=t4; f_5018(t6,C_SCHEME_FALSE);}} /* a5088 in k5073 in a5067 in a5055 in string-ci> in k2464 in k2461 */ static void C_ccall f_5089(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5089,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-contains-ci in k2464 in k2461 */ static void C_ccall f_6960(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_6960,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[113]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6966,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li331),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6972,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li335),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1341: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a6965 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_6966(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6966,2,av);} /* srfi-13.scm:1341: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* %string-prefix-length-ci in k2464 in k2461 */ static void C_fcall f_3788(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3788,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3792,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:615: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k6086 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6088(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_6088,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6102,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word)li283),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1151: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* a4803 in a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4804(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4804,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4811,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4811(t8,C_eqp(t6,t7));} else{ t6=t4; f_4811(t6,C_SCHEME_FALSE);}} /* a5025 in k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_ccall f_5026(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5026,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6020 in k6014 in k6011 in k6008 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_6021(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ C_save_and_reclaim((void *)f_6021,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6028,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1139: char-set-contains? */ t5=*((C_word*)lf[32]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[3]; av2[3]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} /* k5016 in a5010 in a4998 in string-ci< in k2464 in k2461 */ static void C_fcall f_5018(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_5018,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_lessp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5026,a[2]=((C_word)li189),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5032,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5035,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:870: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* k7178 in lp in kmp-step in k2464 in k2461 */ static void C_ccall f_7180(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7180,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[3]); t3=C_eqp(t2,C_fix(-1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-13.scm:1458: lp */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7173(t4,((C_word*)t0)[2],t2);}}} /* a3304 in string-for-each-index in k2464 in k2461 */ static void C_ccall f_3305(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3305,2,av);} /* srfi-13.scm:506: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[30]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6075(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_6075,4,av);} a=C_alloc(10); if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6088,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1150: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6118,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6157,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1159: char-set? */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ static void C_fcall f_4811(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4811,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4819,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4822,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4828,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:839: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4818 in k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4819(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4819,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k6089 in k6086 in a6074 in string-filter in k2464 in k2461 */ static void C_ccall f_6091(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6091,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:1157: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* a6903 in string-contains in k2464 in k2461 */ static void C_ccall f_6904(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6904,2,av);} /* srfi-13.scm:1330: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4864(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4864,4,av);} a=C_alloc(9); t4=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t5=C_fixnum_difference(t3,t2); t6=C_eqp(t4,t5); if(C_truep(t6)){ t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4874,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); t8=C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]); if(C_truep(t8)){ t9=((C_word*)t0)[3]; t10=t2; t11=t7; f_4874(t11,C_eqp(t9,t10));} else{ t9=t7; f_4874(t9,C_SCHEME_FALSE);}} else{ t7=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* k7543 in lp in string-concatenate/shared in k2464 in k2461 */ static void C_ccall f_7545(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7545,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7550,a[2]=t2,a[3]=((C_word)li363),tmp=(C_word)a,a+=4,tmp); t4=( f_7550(t3,((C_word*)t0)[2],C_fix(0)) ); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* string-filter in k2464 in k2461 */ static void C_ccall f_6063(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6063,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6069,a[2]=t3,a[3]=t4,a[4]=((C_word)li282),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6075,a[2]=t2,a[3]=t3,a[4]=((C_word)li286),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1146: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k7543 in lp in string-concatenate/shared in k2464 in k2461 */ static C_word C_fcall f_7550(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t3=t1; t4=C_u_i_car(t3); t5=C_i_string_length(t4); t6=t2; t7=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t5,t6); t8=t1; t9=C_u_i_cdr(t8); t10=C_fixnum_plus(t2,t5); t12=t9; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* lp in a3477 in string-any in k2464 in k2461 */ static C_word C_fcall f_3490(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); t5=C_i_char_equalp(((C_word*)t0)[4],t4); if(C_truep(t5)){ return(t5);} else{ t6=C_fixnum_plus(t1,C_fix(1)); t8=t6; t1=t8; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* string-append/shared in k2464 in k2461 */ static void C_ccall f_7484(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){ C_save_and_reclaim((void*)f_7484,c,av);} a=C_alloc((c-2)*C_SIZEOF_PAIR+0); t2=C_build_rest(&a,c,2,av); C_word t3; /* srfi-13.scm:1565: string-concatenate/shared */ t3=*((C_word*)lf[125]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=t1; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* string-trim in k2464 in k2461 */ static void C_ccall f_5682(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_5682,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[90]+1):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5694,a[2]=t2,a[3]=t9,a[4]=((C_word)li258),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5700,a[2]=t2,a[3]=t6,a[4]=((C_word)li260),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1058: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* a4821 in k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4822,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4827 in k4809 in a4803 in a4791 in string>= in k2464 in k2461 */ static void C_ccall f_4828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4828,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* kmp-step in k2464 in k2461 */ static void C_ccall f_7167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7=av[7]; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=8) C_bad_argc_2(c,8,t0); if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ C_save_and_reclaim((void *)f_7167,8,av);} a=C_alloc(11); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7173,a[2]=t3,a[3]=t9,a[4]=t7,a[5]=t2,a[6]=t6,a[7]=t4,a[8]=((C_word)li342),tmp=(C_word)a,a+=9,tmp)); t11=((C_word*)t9)[1]; f_7173(t11,t1,t5);} /* lp in string-concatenate/shared in k2464 in k2461 */ static void C_fcall f_7496(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){ C_save_and_reclaim_args((void *)trf_7496,5,t0,t1,t2,t3,t4);} a=C_alloc(4); if(C_truep(C_i_pairp(t2))){ t5=t2; t6=C_u_i_car(t5); t7=t2; t8=C_u_i_cdr(t7); t9=C_i_string_length(t6); t10=C_eqp(t9,C_fix(0)); if(C_truep(t10)){ /* srfi-13.scm:1574: lp */ t15=t1; t16=t8; t17=t3; t18=t4; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t11=C_fixnum_plus(t3,t9); t12=t4; if(C_truep(t12)){ /* srfi-13.scm:1575: lp */ t15=t1; t16=t8; t17=t11; t18=t12; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;} else{ t13=t2; /* srfi-13.scm:1575: lp */ t15=t1; t16=t8; t17=t11; t18=t13; t1=t15; t2=t16; t3=t17; t4=t18; goto loop;}}} else{ t5=C_eqp(t3,C_fix(0)); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=lf[126]; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=C_i_car(t4); t7=C_i_string_length(t6); t8=t3; t9=C_eqp(t8,t7); if(C_truep(t9)){ t10=t4; t11=C_u_i_car(t10); t12=t1;{ C_word av2[2]; av2[0]=t12; av2[1]=t11; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} else{ t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7545,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1582: make-string */ t11=*((C_word*)lf[16]+1);{ C_word av2[3]; av2[0]=t11; av2[1]=t10; av2[2]=t3; ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}}} /* a5693 in string-trim in k2464 in k2461 */ static void C_ccall f_5694(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5694,2,av);} /* srfi-13.scm:1058: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[89]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-concatenate/shared in k2464 in k2461 */ static void C_ccall f_7490(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_7490,3,av);} a=C_alloc(6); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7496,a[2]=t4,a[3]=((C_word)li364),tmp=(C_word)a,a+=4,tmp)); t6=((C_word*)t4)[1]; f_7496(t6,t1,t2,C_fix(0),C_SCHEME_FALSE);} /* a3477 in string-any in k2464 in k2461 */ static void C_ccall f_3478(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_3478,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3490,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp); t5=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=( f_3490(t4,t2) ); ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3520,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:546: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* lp in kmp-step in k2464 in k2461 */ static void C_fcall f_7173(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7173,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7180,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=C_fixnum_plus(t2,((C_word*)t0)[4]); t5=C_i_string_ref(((C_word*)t0)[5],t4); /* srfi-13.scm:1454: c= */ t6=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* a3471 in string-any in k2464 in k2461 */ static void C_ccall f_3472(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3472,2,av);} /* srfi-13.scm:538: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[35]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-fold in k2464 in k2461 */ static void C_ccall f_2823(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +11,c,4)))){ C_save_and_reclaim((void*)f_2823,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2829,a[2]=t4,a[3]=t5,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2835,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:325: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a2834 in string-fold in k2464 in k2461 */ static void C_ccall f_2835(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_2835,4,av);} a=C_alloc(9); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2841,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li24),tmp=(C_word)a,a+=7,tmp)); t7=((C_word*)t5)[1]; f_2841(t7,t1,((C_word*)t0)[4],t2);} /* a2828 in string-fold in k2464 in k2461 */ static void C_ccall f_2829(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2829,2,av);} /* srfi-13.scm:325: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[19]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in a2834 in string-fold in k2464 in k2461 */ static void C_fcall f_2841(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2841,4,t0,t1,t2,t3);} a=C_alloc(5); t4=t3; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t4,t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2855,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_string_ref(((C_word*)t0)[4],t3); /* srfi-13.scm:329: kons */ t8=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} else{ t6=t2; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* string-upcase! in k2464 in k2461 */ static void C_ccall f_5413(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_5413,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5419,a[2]=t2,a[3]=t3,a[4]=((C_word)li233),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5425,a[2]=t2,a[3]=((C_word)li234),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:968: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* string-drop-right in k2464 in k2461 */ static void C_ccall f_5655(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5655,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[88]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5662,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1051: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[88]; tp(6,av2);}} /* a5406 in string-upcase in k2464 in k2461 */ static void C_ccall f_5407(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5407,4,av);} /* srfi-13.scm:966: %string-map */ f_2729(t1,*((C_word*)lf[74]+1),((C_word*)t0)[2],t2,t3);} /* k2853 in lp in a2834 in string-fold in k2464 in k2461 */ static void C_ccall f_2855(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2855,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:329: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2841(t3,((C_word*)t0)[4],t1,t2);} /* k5874 in a5855 in string-pad-right in k2464 in k2461 */ static void C_ccall f_5876(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5876,2,av);} t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4]; t5=C_substring_copy(t2,t1,t3,t4,C_fix(0)); t6=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* k5660 in string-drop-right in k2464 in k2461 */ static void C_ccall f_5662(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5662,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_fixnum_difference(t2,((C_word*)t0)[3]); /* srfi-13.scm:1055: %substring/shared */ f_2671(((C_word*)t0)[4],((C_word*)t0)[2],C_fix(0),t3);} /* a5418 in string-upcase! in k2464 in k2461 */ static void C_ccall f_5419(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5419,2,av);} /* srfi-13.scm:968: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[75]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-fold-right in k2464 in k2461 */ static void C_ccall f_2865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +11,c,4)))){ C_save_and_reclaim((void*)f_2865,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2871,a[2]=t4,a[3]=t5,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2877,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:332: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* string-downcase in k2464 in k2461 */ static void C_ccall f_5431(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_5431,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5437,a[2]=t2,a[3]=t3,a[4]=((C_word)li236),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5443,a[2]=t2,a[3]=((C_word)li237),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:972: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* a5424 in string-upcase! in k2464 in k2461 */ static void C_ccall f_5425(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ C_save_and_reclaim((void *)f_5425,4,av);} /* srfi-13.scm:970: %string-map! */ f_2790(t1,*((C_word*)lf[74]+1),((C_word*)t0)[2],t2,t3);} /* a2870 in string-fold-right in k2464 in k2461 */ static void C_ccall f_2871(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2871,2,av);} /* srfi-13.scm:332: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[20]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-pad in k2464 in k2461 */ static void C_ccall f_5893(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +11,c,4)))){ C_save_and_reclaim((void*)f_5893,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+11); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; t5=C_i_check_exact_2(t3,lf[98]); t6=C_i_nullp(t4); t7=(C_truep(t6)?C_make_character(32):C_i_car(t4)); t8=t7; t9=C_i_nullp(t4); t10=(C_truep(t9)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); t11=t10; t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5908,a[2]=t2,a[3]=t11,a[4]=((C_word)li273),tmp=(C_word)a,a+=5,tmp); t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5914,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li274),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1094: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t12; av2[3]=t13; C_call_with_values(4,av2);}} /* a5436 in string-downcase in k2464 in k2461 */ static void C_ccall f_5437(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5437,2,av);} /* srfi-13.scm:972: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[76]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop2051 in k8281 in %multispan-repcopy! in k2464 in k2461 */ static void C_fcall f_8243(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ C_save_and_reclaim_args((void *)trf_8243,4,t0,t1,t2,t3);} t4=C_eqp(t3,C_fix(0)); if(C_truep(t4)){ t5=C_fixnum_difference(t2,((C_word*)t0)[2]); t6=C_fixnum_difference(((C_word*)t0)[3],t5); t7=C_fixnum_plus(((C_word*)t0)[4],t6); t8=t1; t9=((C_word*)t0)[5]; t10=t2; t11=((C_word*)t0)[6]; t12=((C_word*)t0)[4]; t13=t8;{ C_word av2[2]; av2[0]=t13; av2[1]=C_substring_copy(t11,t9,t12,t7,t10); ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} else{ t5=((C_word*)t0)[5]; t6=t2; t7=((C_word*)t0)[6]; t8=((C_word*)t0)[4]; t9=((C_word*)t0)[7]; t10=C_substring_copy(t7,t5,t8,t9,t6); t11=C_fixnum_plus(t2,((C_word*)t0)[8]); t12=C_fixnum_difference(t3,C_fix(1)); t14=t1; t15=t11; t16=t12; t1=t14; t2=t15; t3=t16; goto loop;}} /* a2876 in string-fold-right in k2464 in k2461 */ static void C_ccall f_2877(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ C_save_and_reclaim((void *)f_2877,4,av);} a=C_alloc(9); t4=C_fixnum_difference(t3,C_fix(1)); t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2887,a[2]=t2,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li28),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_2887(t8,t1,((C_word*)t0)[4],t4);} /* k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_fcall f_4694(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4694,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greaterp(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4702,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4705,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4708,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:817: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* lp in a2876 in string-fold-right in k2464 in k2461 */ static void C_fcall f_2887(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_2887,4,t0,t1,t2,t3);} a=C_alloc(5); t4=t3; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2901,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_string_ref(((C_word*)t0)[4],t3); /* srfi-13.scm:336: kons */ t8=((C_word*)t0)[5];{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=t7; av2[3]=t2; ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} else{ t6=t2; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} /* recur in buildit in string-join in k2464 in k2461 */ static void C_fcall f_8305(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; loop: if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_8305,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8325,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); t6=t2; t7=C_u_i_cdr(t6); /* srfi-13.scm:1884: recur */ t9=t5; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=((C_word*)t0)[4]; t4=t1;{ C_word av2[2]; av2[0]=t4; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* %multispan-repcopy! in k2464 in k2461 */ static void C_fcall f_8212(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){ C_word tmp; C_word t9; C_word t10; C_word t11; C_word t12; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ C_save_and_reclaim_args((void *)trf_8212,8,t1,t2,t3,t4,t5,t6,t7,t8);} a=C_alloc(11); t9=C_fixnum_difference(t8,t7); t10=t9; t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8283,a[2]=t7,a[3]=t6,a[4]=t5,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t8,a[9]=t10,a[10]=t1,tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:1843: modulo */ t12=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t12; av2[1]=t11; av2[2]=t5; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} /* a4674 in string> in k2464 in k2461 */ static void C_ccall f_4675(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4675,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li148),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4687,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li152),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:811: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5400 in string-upcase in k2464 in k2461 */ static void C_ccall f_5401(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5401,2,av);} /* srfi-13.scm:964: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[73]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k8281 in %multispan-repcopy! in k2464 in k2461 */ static void C_ccall f_8283(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_8283,2,av);} a=C_alloc(13); t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); t4=t3; t5=((C_word*)t0)[5]; t6=((C_word*)t0)[6]; t7=((C_word*)t0)[7]; t8=((C_word*)t0)[8]; t9=C_substring_copy(t7,t5,t2,t8,t6); t10=C_fixnum_difference(((C_word*)t0)[8],t2); t11=C_fixnum_difference(t4,t10); t12=C_fixnum_divide(t11,((C_word*)t0)[9]); t13=C_fixnum_plus(((C_word*)t0)[6],t10); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8243,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=t15,a[10]=((C_word)li394),tmp=(C_word)a,a+=11,tmp)); t17=((C_word*)t15)[1]; f_8243(t17,((C_word*)t0)[10],t13,t12);} /* string-join in k2464 in k2461 */ static void C_ccall f_8285(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +14,c,5)))){ C_save_and_reclaim((void*)f_8285,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+14); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; C_word t21; C_word t22; C_word t23; C_word t24; C_word t25; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[143]:C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=C_i_nullp(t8); t10=(C_truep(t9)?lf[144]:C_i_car(t8)); t11=C_i_nullp(t8); t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8299,a[2]=t6,a[3]=((C_word)li397),tmp=(C_word)a,a+=4,tmp); if(C_truep(C_i_pairp(t2))){ t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8340,a[2]=t1,tmp=(C_word)a,a+=3,tmp); t15=C_eqp(t10,lf[144]); t16=(C_truep(t15)?t15:C_eqp(t10,lf[145])); if(C_truep(t16)){ t17=t2; t18=C_u_i_car(t17); t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8355,a[2]=t18,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t20=t2; t21=C_u_i_cdr(t20); /* srfi-13.scm:1892: buildit */ t22=t13; f_8299(t22,t19,t21,C_SCHEME_END_OF_LIST);} else{ t17=C_eqp(t10,lf[146]); if(C_truep(t17)){ /* srfi-13.scm:1894: buildit */ t18=t13; f_8299(t18,t14,t2,C_SCHEME_END_OF_LIST);} else{ t18=C_eqp(t10,lf[147]); if(C_truep(t18)){ t19=t2; t20=C_u_i_car(t19); t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8381,a[2]=t20,a[3]=t1,tmp=(C_word)a,a+=4,tmp); t22=t2; t23=C_u_i_cdr(t22); t24=C_a_i_list1(&a,1,t6); /* srfi-13.scm:1897: buildit */ t25=t13; f_8299(t25,t21,t23,t24);} else{ /* srfi-13.scm:1899: ##sys#error */ t19=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t19; av2[1]=t14; av2[2]=lf[142]; av2[3]=lf[148]; av2[4]=t10; av2[5]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t19+1)))(6,av2);}}}}} else{ if(C_truep(C_i_nullp(t2))){ t14=C_eqp(t10,lf[145]); if(C_truep(t14)){ /* srfi-13.scm:1908: ##sys#error */ t15=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t15; av2[1]=t1; av2[2]=lf[142]; av2[3]=lf[149]; av2[4]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} else{ t15=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t15; av2[1]=lf[150]; ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}} else{ /* srfi-13.scm:1903: ##sys#error */ t14=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t14; av2[1]=t1; av2[2]=lf[142]; av2[3]=lf[151]; av2[4]=t2; av2[5]=*((C_word*)lf[142]+1); ((C_proc)(void*)(*((C_word*)t14+1)))(6,av2);}}}} /* a4686 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4687(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4687,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4694,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4694(t8,C_eqp(t6,t7));} else{ t6=t4; f_4694(t6,C_SCHEME_FALSE);}} /* a4680 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4681(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4681,2,av);} /* srfi-13.scm:811: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6563 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6564(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6564,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6580,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li307),tmp=(C_word)a,a+=6,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_6580(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6610,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1257: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* lp in string-concatenate-reverse in k2464 in k2461 */ static C_word C_fcall f_7674(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_i_string_length(t4); t6=C_fixnum_plus(t1,t5); t7=t2; t8=C_u_i_cdr(t7); t10=t6; t11=t8; t1=t10; t2=t11; goto loop;} else{ t3=t1; return(t3);}} /* string-skip-right in k2464 in k2461 */ static void C_ccall f_6552(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6552,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6558,a[2]=t2,a[3]=t4,a[4]=((C_word)li306),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6564,a[2]=t3,a[3]=t2,a[4]=((C_word)li310),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1249: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a6557 in string-skip-right in k2464 in k2461 */ static void C_ccall f_6558(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6558,2,av);} /* srfi-13.scm:1249: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[94]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* iref in %string-hash in k2464 in k2461 */ static void C_fcall f_5223(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ C_save_and_reclaim_args((void *)trf_5223,4,t0,t1,t2,t3);} t4=C_i_string_ref(t2,t3); /* srfi-13.scm:923: char->int */ t5=((C_word*)t0)[2];{ C_word av2[3]; av2[0]=t5; av2[1]=t1; av2[2]=t4; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* %string-hash in k2464 in k2461 */ static void C_fcall f_5221(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){ C_word tmp; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ C_save_and_reclaim_args((void *)trf_5221,6,t1,t2,t3,t4,t5,t6);} a=C_alloc(19); t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5223,a[2]=t3,a[3]=((C_word)li219),tmp=(C_word)a,a+=4,tmp); t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5274,a[2]=t4,a[3]=((C_word)li220),tmp=(C_word)a,a+=4,tmp); t9=( f_5274(t8,C_fix(65536)) ); t10=t9; t11=C_SCHEME_UNDEFINED; t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5239,a[2]=t6,a[3]=t4,a[4]=t10,a[5]=t12,a[6]=t7,a[7]=t2,a[8]=((C_word)li221),tmp=(C_word)a,a+=9,tmp)); t14=((C_word*)t12)[1]; f_5239(t14,t1,t5,C_fix(0));} /* k8338 in string-join in k2464 in k2461 */ static void C_ccall f_8340(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_8340,2,av);} /* srfi-13.scm:1888: string-concatenate */ t2=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} /* lp in a6563 in string-skip-right in k2464 in k2461 */ static C_word C_fcall f_6580(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;} else{ return(t1);}} else{ return(C_SCHEME_FALSE);}} /* k8323 in recur in buildit in string-join in k2464 in k2461 */ static void C_ccall f_8325(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ C_save_and_reclaim((void *)f_8325,2,av);} a=C_alloc(6); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* k2815 in doloop231 in %string-map! in k2464 in k2461 */ static void C_ccall f_2817(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_2817,2,av);} t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); t4=((C_word*)((C_word*)t0)[4])[1]; f_2796(t4,((C_word*)t0)[5],t3);} /* k2658 in substring/shared in k2464 in k2461 */ static void C_ccall f_2660(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2660,2,av);} /* srfi-13.scm:251: %substring/shared */ f_2671(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} /* k8379 in string-join in k2464 in k2461 */ static void C_ccall f_8381(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8381,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* srfi-13.scm:1888: string-concatenate */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_fcall f_4586(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4586,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word av2[2]; av2[0]=t2; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4569,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4575,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4578,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:795: %string-compare */ f_4278(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],t2,t3,t4);}} /* buildit in string-join in k2464 in k2461 */ static void C_fcall f_8299(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){ C_save_and_reclaim_args((void *)trf_8299,4,t0,t1,t2,t3);} a=C_alloc(8); t4=C_SCHEME_UNDEFINED; t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8305,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t3,a[5]=((C_word)li396),tmp=(C_word)a,a+=6,tmp)); t7=((C_word*)t5)[1]; f_8305(t7,t1,t2);} /* a5208 in k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5209(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5209,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* check-substring-spec in k2464 in k2461 */ static void C_ccall f_2631(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word t7; C_word *a; if(c!=6) C_bad_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ C_save_and_reclaim((void *)f_2631,6,av);} a=C_alloc(7); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2645,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:218: substring-spec-ok? */ t7=*((C_word*)lf[7]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t3; av2[3]=t4; av2[4]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} /* a4029 in a4017 in string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4030(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4030,4,av);} /* srfi-13.scm:656: %string-prefix-length-ci */ f_3788(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_4036(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4036,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[46]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4042,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4048,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:658: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5199 in k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5200(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5200,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5202 in k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5203,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4083 in a4077 in string-prefix? in k2464 in k2461 */ static void C_ccall f_4084(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4084,2,av);} /* srfi-13.scm:671: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4089 in a4077 in string-prefix? in k2464 in k2461 */ static void C_ccall f_4090(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,7)))){ C_save_and_reclaim((void *)f_4090,4,av);} a=C_alloc(4); t4=t1; t5=((C_word*)t0)[2]; t6=((C_word*)t0)[3]; t7=((C_word*)t0)[4]; t8=((C_word*)t0)[5]; t9=C_fixnum_difference(t7,t6); t10=t9; t11=C_fixnum_difference(t3,t2); if(C_truep(C_fixnum_less_or_equal_p(t10,t11))){ t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4203,a[2]=t4,a[3]=t10,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:697: %string-prefix-length */ f_3636(t12,t5,t6,t7,t8,t2,t3);} else{ t12=t4;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t12; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} /* string-suffix? in k2464 in k2461 */ static void C_ccall f_4096(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4096,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[48]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4102,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li96),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4108,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:676: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k8353 in string-join in k2464 in k2461 */ static void C_ccall f_8355(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void *)f_8355,2,av);} a=C_alloc(3); t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); /* srfi-13.scm:1888: string-concatenate */ t3=*((C_word*)lf[127]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t3; av2[1]=((C_word*)t0)[3]; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} /* a4574 in k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4575(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4575,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4577 in k4584 in a4550 in a4538 in string<> in k2464 in k2461 */ static void C_ccall f_4578(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4578,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4059 in a4047 in string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_4060(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4060,4,av);} /* srfi-13.scm:661: %string-suffix-length-ci */ f_3861(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-prefix? in k2464 in k2461 */ static void C_ccall f_4066(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4066,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[47]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4072,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4078,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:671: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* k3583 in lp in k3518 in a3477 in string-any in k2464 in k2461 */ static void C_ccall f_3585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_3585,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ /* srfi-13.scm:558: lp */ t2=((C_word*)((C_word*)t0)[3])[1]; f_3566(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}} /* k5270 in lp in %string-hash in k2464 in k2461 */ static void C_ccall f_5272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_5272,2,av);} t2=C_fixnum_plus(((C_word*)t0)[2],t1); t3=C_fixnum_and(((C_word*)t0)[3],t2); /* srfi-13.scm:929: lp */ t4=((C_word*)((C_word*)t0)[4])[1]; f_5239(t4,((C_word*)t0)[5],((C_word*)t0)[6],t3);} /* lp in %string-hash in k2464 in k2461 */ static C_word C_fcall f_5274(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ return(C_fixnum_difference(t1,C_fix(1)));} else{ t4=C_fixnum_plus(t1,t1); t6=t4; t1=t6; goto loop;}} /* k5190 in a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_fcall f_5192(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_5192,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_greater_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5200,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5203,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5209,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:903: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4041 in string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_4042(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4042,2,av);} /* srfi-13.scm:658: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* substring/shared in k2464 in k2461 */ static void C_ccall f_2647(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,5)))){ C_save_and_reclaim((void*)f_2647,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+6); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; t5=C_i_string_length(t2); t6=C_i_nullp(t4); t7=(C_truep(t6)?t5:C_i_car(t4)); t8=t7; t9=C_i_check_exact_2(t8,lf[10]); t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2660,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t8,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:250: check-substring-spec */ t11=*((C_word*)lf[8]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t11; av2[1]=t10; av2[2]=lf[10]; av2[3]=t2; av2[4]=t3; av2[5]=t8; ((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} /* k2643 in check-substring-spec in k2464 in k2461 */ static void C_ccall f_2645(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_2645,2,av);} if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:219: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 8) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(8); } av2[0]=t2; av2[1]=((C_word*)t0)[2]; av2[2]=lf[8]; av2[3]=lf[9]; av2[4]=((C_word*)t0)[3]; av2[5]=((C_word*)t0)[4]; av2[6]=((C_word*)t0)[5]; av2[7]=((C_word*)t0)[6]; ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}} /* a4047 in string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_4048(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4048,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4054,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li87),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4060,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li88),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:658: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4053 in a4047 in string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_4054(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4054,2,av);} /* srfi-13.scm:658: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop1589 in k6743 in a6698 in string-count in k2464 in k2461 */ static void C_fcall f_6750(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_6750,4,t0,t1,t2,t3);} a=C_alloc(6); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ t6=t3; t7=t1;{ C_word av2[2]; av2[0]=t7; av2[1]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} else{ t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6771,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); t9=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1285: char-set-contains? */ t10=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t10; av2[1]=t8; av2[2]=((C_word*)t0)[5]; av2[3]=t9; ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} /* string-tabulate in k2464 in k2461 */ static void C_ccall f_3596(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_3596,4,av);} a=C_alloc(5); t4=C_i_check_exact_2(t3,lf[37]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3603,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); t6=t3; /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t5; av2[2]=t6; av2[3]=C_make_character(32); tp(4,av2);}} /* a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_5967(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ C_save_and_reclaim((void *)f_5967,4,av);} a=C_alloc(10); if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,t2); t5=t4; t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5980,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1123: make-string */ t7=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t6; av2[2]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6010,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6049,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1131: char-set? */ t6=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} /* a5960 in string-delete in k2464 in k2461 */ static void C_ccall f_5961(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5961,2,av);} /* srfi-13.scm:1119: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[99]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* lp in %string-hash in k2464 in k2461 */ static void C_fcall f_5239(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_5239,4,t0,t1,t2,t3);} a=C_alloc(7); t4=t2; t5=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ /* srfi-13.scm:928: modulo */ t6=*((C_word*)lf[69]+1);{ C_word av2[4]; av2[0]=t6; av2[1]=t1; av2[2]=t3; av2[3]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} else{ t6=C_fixnum_plus(t2,C_fix(1)); t7=t6; t8=C_fixnum_times(C_fix(37),t3); t9=t8; t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5272,a[2]=t9,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t7,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:929: iref */ t11=((C_word*)t0)[6]; f_5223(t11,t10,((C_word*)t0)[7],t2);}} /* a4023 in a4017 in string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4024(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4024,2,av);} /* srfi-13.scm:653: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6743 in a6698 in string-count in k2464 in k2461 */ static void C_ccall f_6745(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6745,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6750,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li314),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6750(t5,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0));} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6789,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li315),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_6789(t5,((C_word*)t0)[5],((C_word*)t0)[6],C_fix(0));} else{ /* srfi-13.scm:1295: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[109]; av2[3]=lf[110]; av2[4]=*((C_word*)lf[109]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* k5932 in a5913 in string-pad in k2464 in k2461 */ static void C_ccall f_5934(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5934,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); t3=((C_word*)t0)[4]; t4=((C_word*)t0)[5]; t5=((C_word*)t0)[6]; t6=C_substring_copy(t3,t1,t4,t5,t2); t7=((C_word*)t0)[7];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t7; av2[1]=t1; ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} /* a7395 in string-reverse! in k2464 in k2461 */ static void C_ccall f_7396(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7396,4,av);} a=C_alloc(4); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7406,a[2]=((C_word*)t0)[2],a[3]=((C_word)li355),tmp=(C_word)a,a+=4,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_7406(t5,t4,t2) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a7389 in string-reverse! in k2464 in k2461 */ static void C_ccall f_7390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7390,2,av);} /* srfi-13.scm:1514: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[122]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k6769 in doloop1589 in k6743 in a6698 in string-count in k2464 in k2461 */ static void C_ccall f_6771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6771,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6750(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; f_6750(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* a5907 in string-pad in k2464 in k2461 */ static void C_ccall f_5908(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5908,2,av);} /* srfi-13.scm:1094: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[98]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4006(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4006,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[45]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4012,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4018,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:653: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a3999 in a3987 in string-suffix-length in k2464 in k2461 */ static void C_ccall f_4000(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_4000,4,av);} /* srfi-13.scm:651: %string-suffix-length */ f_3706(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-take in k2464 in k2461 */ static void C_ccall f_5585(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5585,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[84]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5592,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1027: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[84]; tp(6,av2);}} /* string-delete in k2464 in k2461 */ static void C_ccall f_5955(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_5955,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5961,a[2]=t3,a[3]=t4,a[4]=((C_word)li276),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5967,a[2]=t2,a[3]=t3,a[4]=((C_word)li280),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1119: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k3388 in a3347 in string-every in k2464 in k2461 */ static void C_fcall f_3395(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_3395,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; t5=C_fixnum_greater_or_equal_p(t3,t4); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=t5; ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3408,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t7=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:523: char-set-contains? */ t8=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t8; av2[1]=t6; av2[2]=((C_word*)t0)[5]; av2[3]=t7; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* k3388 in a3347 in string-every in k2464 in k2461 */ static void C_ccall f_3390(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_3390,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3395,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li51),tmp=(C_word)a,a+=7,tmp)); t5=((C_word*)t3)[1]; f_3395(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[4]))){ t2=((C_word*)t0)[6]; t3=((C_word*)t0)[2]; t4=C_eqp(t2,t3); if(C_truep(t4)){ t5=((C_word*)t0)[5];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} else{ t5=C_SCHEME_UNDEFINED; t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3436,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word)li52),tmp=(C_word)a,a+=7,tmp)); t8=((C_word*)t6)[1]; f_3436(t8,((C_word*)t0)[5],((C_word*)t0)[6]);}} else{ /* srfi-13.scm:534: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[5]; av2[2]=lf[31]; av2[3]=lf[33]; av2[4]=*((C_word*)lf[31]+1); av2[5]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* a4017 in string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4018(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4018,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li82),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4030,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li83),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:653: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4011 in string-prefix-length-ci in k2464 in k2461 */ static void C_ccall f_4012(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4012,2,av);} /* srfi-13.scm:653: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* doloop1584 in a6698 in string-count in k2464 in k2461 */ static C_word C_fcall f_6711(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} t3=t1; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=t2; return(t5);} else{ t5=C_fixnum_plus(t1,C_fix(1)); t6=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t6))){ t7=C_fixnum_plus(t2,C_fix(1)); t9=t5; t10=t7; t1=t9; t2=t10; goto loop;} else{ t7=t2; t9=t5; t10=t7; t1=t9; t2=t10; goto loop;}}} /* k5590 in string-take in k2464 in k2461 */ static void C_ccall f_5592(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5592,2,av);} /* srfi-13.scm:1028: %substring/shared */ f_2671(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),((C_word*)t0)[4]);} /* lp in a6983 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_fcall f_6996(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,7)))){ C_save_and_reclaim_args((void *)trf_6996,3,t0,t1,t2);} a=C_alloc(5); if(C_truep(C_fixnum_less_or_equal_p(t2,((C_word*)t0)[2]))){ t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7009,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t4=C_fixnum_plus(t2,((C_word*)t0)[4]); /* srfi-13.scm:1348: string-ci= */ t5=*((C_word*)lf[62]+1);{ C_word av2[8]; av2[0]=t5; av2[1]=t3; av2[2]=((C_word*)t0)[5]; av2[3]=((C_word*)t0)[6]; av2[4]=t2; av2[5]=t4; av2[6]=((C_word*)t0)[7]; av2[7]=((C_word*)t0)[8]; ((C_proc)(void*)(*((C_word*)t5+1)))(8,av2);}} else{ t3=t1;{ C_word av2[2]; av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} /* a4071 in string-prefix? in k2464 in k2461 */ static void C_ccall f_4072(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4072,2,av);} /* srfi-13.scm:671: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4077 in string-prefix? in k2464 in k2461 */ static void C_ccall f_4078(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4078,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4084,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4090,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li93),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:671: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k2972 in k2950 in k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2974(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2974,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:425: make-string */ t4=*((C_word*)lf[16]+1);{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} /* k2975 in k2972 in k2950 in k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2977(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ C_save_and_reclaim((void *)f_2977,2,av);} a=C_alloc(3); t2=C_i_string_set(t1,C_fix(0),((C_word*)t0)[2]); t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); t4=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]); /* srfi-13.scm:427: lp */ t5=((C_word*)((C_word*)t0)[7])[1]; f_2933(t5,((C_word*)t0)[8],t3,t4,t1,((C_word*)t0)[9],C_fix(1),((C_word*)t0)[10]);} /* a5547 in string-titlecase! in k2464 in k2461 */ static void C_ccall f_5548(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5548,2,av);} /* srfi-13.scm:992: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[82]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5913 in string-pad in k2464 in k2461 */ static void C_ccall f_5914(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ C_save_and_reclaim((void *)f_5914,4,av);} a=C_alloc(8); t4=C_fixnum_difference(t3,t2); t5=t4; t6=((C_word*)t0)[2]; if(C_truep(C_fixnum_less_or_equal_p(t6,t5))){ t7=C_fixnum_difference(t3,((C_word*)t0)[2]); /* srfi-13.scm:1098: %substring/shared */ f_2671(t1,((C_word*)t0)[3],t7,t3);} else{ t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5934,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,a[7]=t1,tmp=(C_word)a,a+=8,tmp); /* srfi-13.scm:1099: make-string */ t8=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} /* string-titlecase! in k2464 in k2461 */ static void C_ccall f_5542(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_5542,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5548,a[2]=t2,a[3]=t3,a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5554,a[2]=t2,a[3]=((C_word)li249),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:992: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2949(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ C_save_and_reclaim((void *)f_2949,2,av);} a=C_alloc(11); t2=t1; t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); /* srfi-13.scm:418: g */ t4=((C_word*)t0)[10];{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t4; av2[1]=t3; av2[2]=((C_word*)t0)[11]; ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} /* a5553 in string-titlecase! in k2464 in k2461 */ static void C_ccall f_5554(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5554,4,av);} /* srfi-13.scm:994: %string-titlecase! */ f_5467(t1,((C_word*)t0)[2],t2,t3);} /* k2950 in k2947 in k3050 in lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ C_save_and_reclaim((void *)f_2952,2,av);} a=C_alloc(10); t2=t1; t3=((C_word*)t0)[2]; t4=((C_word*)t0)[3]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=C_i_string_set(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]); t6=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:421: lp2 */ t7=((C_word*)((C_word*)t0)[6])[1]; f_2939(t7,((C_word*)t0)[7],t6,t2);} else{ t5=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[8]); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2974,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],a[9]=t2,tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:424: min */ t7=*((C_word*)lf[24]+1);{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=t7; av2[1]=t6; av2[2]=C_fix(4096); av2[3]=t5; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} /* a5565 in string-titlecase in k2464 in k2461 */ static void C_ccall f_5566(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5566,2,av);} /* srfi-13.scm:996: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[82]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6983 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_6984(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ C_save_and_reclaim((void *)f_6984,4,av);} a=C_alloc(12); t4=C_fixnum_difference(t3,t2); t5=t4; t6=C_fixnum_difference(((C_word*)t0)[2],t5); t7=t6; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6996,a[2]=t7,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,a[8]=t3,a[9]=((C_word)li333),tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_6996(t11,t1,((C_word*)t0)[5]);} /* string-titlecase in k2464 in k2461 */ static void C_ccall f_5560(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_5560,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5566,a[2]=t2,a[3]=t3,a[4]=((C_word)li251),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5572,a[2]=t2,a[3]=((C_word)li252),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:996: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* k5577 in k5574 in a5571 in string-titlecase in k2464 in k2461 */ static void C_ccall f_5579(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5579,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k5574 in a5571 in string-titlecase in k2464 in k2461 */ static void C_ccall f_5576(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ C_save_and_reclaim((void *)f_5576,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5579,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); t4=C_fixnum_difference(((C_word*)t0)[3],((C_word*)t0)[4]); /* srfi-13.scm:999: %string-titlecase! */ f_5467(t3,t2,C_fix(0),t4);} /* a6971 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_6972(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_6972,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li332),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6984,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li334),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1341: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5571 in string-titlecase in k2464 in k2461 */ static void C_ccall f_5572(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ C_save_and_reclaim((void *)f_5572,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5576,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:998: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=t2; av2[4]=t3; tp(5,av2);}} /* toplevel */ static C_TLS int toplevel_initialized=0; void C_ccall C_srfi_2d13_toplevel(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} else C_toplevel_entry(C_text("srfi_2d13_toplevel")); C_check_nursery_minimum(C_calculate_demand(3,c,2)); if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ C_save_and_reclaim((void*)C_srfi_2d13_toplevel,c,av);} toplevel_initialized=1; if(C_unlikely(!C_demand_2(763))){ C_save(t1); C_rereclaim2(763*sizeof(C_word),1); t1=C_restore;} a=C_alloc(3); C_initialize_lf(lf,154); lf[0]=C_h_intern(&lf[0],22,"string-parse-start+end"); lf[1]=C_h_intern(&lf[1],9,"\003syserror"); lf[2]=C_decode_literal(C_heaptop,"\376B\000\000\032Illegal substring END spec"); lf[3]=C_decode_literal(C_heaptop,"\376B\000\000 Illegal substring START/END spec"); lf[4]=C_decode_literal(C_heaptop,"\376B\000\000\034Illegal substring START spec"); lf[5]=C_h_intern(&lf[5],28,"string-parse-final-start+end"); lf[6]=C_decode_literal(C_heaptop,"\376B\000\000\034Extra arguments to procedure"); lf[7]=C_h_intern(&lf[7],18,"substring-spec-ok\077"); lf[8]=C_h_intern(&lf[8],20,"check-substring-spec"); lf[9]=C_decode_literal(C_heaptop,"\376B\000\000\027Illegal substring spec."); lf[10]=C_h_intern(&lf[10],16,"substring/shared"); lf[12]=C_h_intern(&lf[12],13,"\003syssubstring"); lf[13]=C_h_intern(&lf[13],11,"string-copy"); lf[14]=C_h_intern(&lf[14],10,"string-map"); lf[16]=C_h_intern(&lf[16],11,"make-string"); lf[17]=C_h_intern(&lf[17],11,"string-map!"); lf[19]=C_h_intern(&lf[19],11,"string-fold"); lf[20]=C_h_intern(&lf[20],17,"string-fold-right"); lf[21]=C_h_intern(&lf[21],13,"string-unfold"); lf[22]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[23]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[24]=C_h_intern(&lf[24],3,"min"); lf[25]=C_h_intern(&lf[25],15,"\003sysmake-string"); lf[26]=C_h_intern(&lf[26],19,"string-unfold-right"); lf[27]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[28]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[29]=C_h_intern(&lf[29],15,"string-for-each"); lf[30]=C_h_intern(&lf[30],21,"string-for-each-index"); lf[31]=C_h_intern(&lf[31],12,"string-every"); lf[32]=C_h_intern(&lf[32],18,"char-set-contains\077"); lf[33]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[34]=C_h_intern(&lf[34],9,"char-set\077"); lf[35]=C_h_intern(&lf[35],10,"string-any"); lf[36]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[37]=C_h_intern(&lf[37],15,"string-tabulate"); lf[41]=C_h_intern(&lf[41],9,"char-ci=\077"); lf[43]=C_h_intern(&lf[43],20,"string-prefix-length"); lf[44]=C_h_intern(&lf[44],20,"string-suffix-length"); lf[45]=C_h_intern(&lf[45],23,"string-prefix-length-ci"); lf[46]=C_h_intern(&lf[46],23,"string-suffix-length-ci"); lf[47]=C_h_intern(&lf[47],14,"string-prefix\077"); lf[48]=C_h_intern(&lf[48],14,"string-suffix\077"); lf[49]=C_h_intern(&lf[49],17,"string-prefix-ci\077"); lf[50]=C_h_intern(&lf[50],17,"string-suffix-ci\077"); lf[53]=C_h_intern(&lf[53],9,"char-ci<\077"); lf[54]=C_h_intern(&lf[54],14,"string-compare"); lf[55]=C_h_intern(&lf[55],17,"string-compare-ci"); lf[56]=C_h_intern(&lf[56],7,"string="); lf[57]=C_h_intern(&lf[57],8,"string<>"); lf[58]=C_h_intern(&lf[58],7,"string<"); lf[59]=C_h_intern(&lf[59],7,"string>"); lf[60]=C_h_intern(&lf[60],8,"string<="); lf[61]=C_h_intern(&lf[61],8,"string>="); lf[62]=C_h_intern(&lf[62],10,"string-ci="); lf[63]=C_h_intern(&lf[63],11,"string-ci<>"); lf[64]=C_h_intern(&lf[64],10,"string-ci<"); lf[65]=C_h_intern(&lf[65],10,"string-ci>"); lf[66]=C_h_intern(&lf[66],11,"string-ci<="); lf[67]=C_h_intern(&lf[67],11,"string-ci>="); lf[69]=C_h_intern(&lf[69],6,"modulo"); lf[70]=C_h_intern(&lf[70],11,"string-hash"); lf[71]=C_h_intern(&lf[71],13,"char->integer"); lf[72]=C_h_intern(&lf[72],14,"string-hash-ci"); lf[73]=C_h_intern(&lf[73],13,"string-upcase"); lf[74]=C_h_intern(&lf[74],11,"char-upcase"); lf[75]=C_h_intern(&lf[75],14,"string-upcase!"); lf[76]=C_h_intern(&lf[76],15,"string-downcase"); lf[77]=C_h_intern(&lf[77],13,"char-downcase"); lf[78]=C_h_intern(&lf[78],16,"string-downcase!"); lf[80]=C_h_intern(&lf[80],11,"string-skip"); lf[81]=C_h_intern(&lf[81],12,"string-index"); lf[82]=C_h_intern(&lf[82],17,"string-titlecase!"); lf[83]=C_h_intern(&lf[83],16,"string-titlecase"); lf[84]=C_h_intern(&lf[84],11,"string-take"); lf[85]=C_h_intern(&lf[85],15,"\003syscheck-range"); lf[86]=C_h_intern(&lf[86],17,"string-take-right"); lf[87]=C_h_intern(&lf[87],11,"string-drop"); lf[88]=C_h_intern(&lf[88],17,"string-drop-right"); lf[89]=C_h_intern(&lf[89],11,"string-trim"); lf[90]=C_h_intern(&lf[90],19,"char-set:whitespace"); lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[92]=C_h_intern(&lf[92],17,"string-trim-right"); lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[94]=C_h_intern(&lf[94],17,"string-skip-right"); lf[95]=C_h_intern(&lf[95],16,"string-trim-both"); lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[97]=C_h_intern(&lf[97],16,"string-pad-right"); lf[98]=C_h_intern(&lf[98],10,"string-pad"); lf[99]=C_h_intern(&lf[99],13,"string-delete"); lf[100]=C_h_intern(&lf[100],8,"char-set"); lf[101]=C_decode_literal(C_heaptop,"\376B\000\0006string-delete criteria not predicate, char or char-set"); lf[102]=C_h_intern(&lf[102],13,"string-filter"); lf[103]=C_decode_literal(C_heaptop,"\376B\000\0006string-delete criteria not predicate, char or char-set"); lf[104]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[105]=C_h_intern(&lf[105],18,"string-index-right"); lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\077Second param is neither char-set, char, or predicate procedure."); lf[108]=C_decode_literal(C_heaptop,"\376B\000\000+CRITERIA param is neither char-set or char."); lf[109]=C_h_intern(&lf[109],12,"string-count"); lf[110]=C_decode_literal(C_heaptop,"\376B\000\000+CRITERIA param is neither char-set or char."); lf[111]=C_h_intern(&lf[111],12,"string-fill!"); lf[112]=C_h_intern(&lf[112],12,"string-copy!"); lf[113]=C_h_intern(&lf[113],15,"string-contains"); lf[114]=C_h_intern(&lf[114],18,"string-contains-ci"); lf[115]=C_h_intern(&lf[115],23,"make-kmp-restart-vector"); lf[116]=C_h_intern(&lf[116],6,"char=\077"); lf[117]=C_h_intern(&lf[117],11,"make-vector"); lf[118]=C_h_intern(&lf[118],8,"kmp-step"); lf[119]=C_h_intern(&lf[119],25,"string-kmp-partial-search"); lf[120]=C_h_intern(&lf[120],12,"string-null\077"); lf[121]=C_h_intern(&lf[121],14,"string-reverse"); lf[122]=C_h_intern(&lf[122],15,"string-reverse!"); lf[123]=C_h_intern(&lf[123],12,"string->list"); lf[124]=C_h_intern(&lf[124],20,"string-append/shared"); lf[125]=C_h_intern(&lf[125],25,"string-concatenate/shared"); lf[126]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[127]=C_h_intern(&lf[127],18,"string-concatenate"); lf[128]=C_h_intern(&lf[128],26,"string-concatenate-reverse"); lf[129]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[131]=C_h_intern(&lf[131],33,"string-concatenate-reverse/shared"); lf[132]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[133]=C_h_intern(&lf[133],14,"string-replace"); lf[134]=C_h_intern(&lf[134],15,"string-tokenize"); lf[135]=C_h_intern(&lf[135],16,"char-set:graphic"); lf[136]=C_h_intern(&lf[136],10,"xsubstring"); lf[137]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[138]=C_decode_literal(C_heaptop,"\376B\000\000\042Cannot replicate empty (sub)string"); lf[140]=C_h_intern(&lf[140],13,"string-xcopy!"); lf[141]=C_decode_literal(C_heaptop,"\376B\000\000\042Cannot replicate empty (sub)string"); lf[142]=C_h_intern(&lf[142],11,"string-join"); lf[143]=C_decode_literal(C_heaptop,"\376B\000\000\001 "); lf[144]=C_h_intern(&lf[144],5,"infix"); lf[145]=C_h_intern(&lf[145],12,"strict-infix"); lf[146]=C_h_intern(&lf[146],6,"prefix"); lf[147]=C_h_intern(&lf[147],6,"suffix"); lf[148]=C_decode_literal(C_heaptop,"\376B\000\000\024Illegal join grammar"); lf[149]=C_decode_literal(C_heaptop,"\376B\000\0006Empty list cannot be joined with STRICT-INFIX grammar."); lf[150]=C_decode_literal(C_heaptop,"\376B\000\000\000"); lf[151]=C_decode_literal(C_heaptop,"\376B\000\000\033STRINGS parameter not list."); lf[152]=C_h_intern(&lf[152],17,"register-feature!"); lf[153]=C_h_intern(&lf[153],7,"srfi-13"); C_register_lf2(lf,154,create_ptable());{} t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2463,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=C_SCHEME_UNDEFINED; av2[1]=t2; C_srfi_2d14_toplevel(2,av2);}} /* k2929 in string-unfold in k2464 in k2461 */ static void C_ccall f_2931(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ C_save_and_reclaim((void *)f_2931,2,av);} a=C_alloc(11); t2=C_SCHEME_UNDEFINED; t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li34),tmp=(C_word)a,a+=9,tmp)); t5=((C_word*)t3)[1]; f_2933(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_fix(0),t1,C_fix(40),C_fix(0),((C_word*)t0)[8]);} /* lp in k2929 in string-unfold in k2464 in k2461 */ static void C_fcall f_2933(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ C_save_and_reclaim_args((void *)trf_2933,8,t0,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(16); t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_2939,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=t9,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word)li33),tmp=(C_word)a,a+=14,tmp)); t11=((C_word*)t9)[1]; f_2939(t11,t1,t6,t7);} /* lp2 in lp in k2929 in string-unfold in k2464 in k2461 */ static void C_fcall f_2939(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ C_save_and_reclaim_args((void *)trf_2939,4,t0,t1,t2,t3);} a=C_alloc(15); t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_3052,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=t3,a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); /* srfi-13.scm:416: p */ t5=((C_word*)t0)[12];{ C_word av2[3]; av2[0]=t5; av2[1]=t4; av2[2]=t3; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} /* a6977 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_6978(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6978,2,av);} /* srfi-13.scm:1341: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k3920 in lp in k3872 in k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_3922(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_3922,2,av);} t2=((C_word*)t0)[2]; f_3897(t2,C_i_not(t1));} /* k2899 in lp in a2876 in string-fold-right in k2464 in k2461 */ static void C_ccall f_2901(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_2901,2,av);} t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:336: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_2887(t3,((C_word*)t0)[4],t1,t2);} /* string-unfold in k2464 in k2461 */ static void C_ccall f_2911(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +12,c,3)))){ C_save_and_reclaim((void*)f_2911,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+12); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; t7=C_i_nullp(t6); t8=(C_truep(t7)?lf[22]:C_i_car(t6)); t9=t8; t10=C_i_nullp(t6); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t6)); t12=C_i_nullp(t11); t13=(C_truep(t12)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3063,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp):C_i_car(t11)); t14=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2931,a[2]=t9,a[3]=t14,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t1,a[8]=t5,tmp=(C_word)a,a+=9,tmp); /* ##sys#make-string */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); C_word *av2=av; /* Re-use our own argvector */ av2[0]=*((C_word*)lf[25]+1); av2[1]=t17; av2[2]=C_fix(40); av2[3]=C_make_character(32); tp(4,av2);}} /* string-prefix-length in k2464 in k2461 */ static void C_ccall f_3946(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_3946,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[43]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3952,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3958,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li74),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:643: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* string-take-right in k2464 in k2461 */ static void C_ccall f_5605(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5605,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[86]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5612,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1033: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[86]; tp(6,av2);}} /* a4452 in a4440 in string-compare-ci in k2464 in k2461 */ static void C_ccall f_4453(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_4453,4,av);} /* srfi-13.scm:769: %string-compare-ci */ f_4337(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* string= in k2464 in k2461 */ static void C_ccall f_4459(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4459,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[56]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4465,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li123),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4471,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li129),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:780: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4464 in string= in k2464 in k2461 */ static void C_ccall f_4465(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4465,2,av);} /* srfi-13.scm:780: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k5610 in string-take-right in k2464 in k2461 */ static void C_ccall f_5612(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5612,2,av);} t2=C_block_size(((C_word*)t0)[2]); t3=C_fixnum_difference(t2,((C_word*)t0)[3]); /* srfi-13.scm:1037: %substring/shared */ f_2671(((C_word*)t0)[4],((C_word*)t0)[2],t3,t2);} /* a3963 in a3957 in string-prefix-length in k2464 in k2461 */ static void C_ccall f_3964(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3964,2,av);} /* srfi-13.scm:643: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-concatenate in k2464 in k2461 */ static void C_ccall f_7583(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7583,3,av);} a=C_alloc(7); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7620,a[2]=((C_word)li366),tmp=(C_word)a,a+=3,tmp); t4=( f_7620(t2,C_fix(0)) ); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7590,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:1601: make-string */ t6=*((C_word*)lf[16]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=t5; av2[2]=t4; ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} /* a4434 in string-compare-ci in k2464 in k2461 */ static void C_ccall f_4435(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4435,2,av);} /* srfi-13.scm:763: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3951 in string-prefix-length in k2464 in k2461 */ static void C_ccall f_3952(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3952,2,av);} /* srfi-13.scm:643: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3957 in string-prefix-length in k2464 in k2461 */ static void C_ccall f_3958(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_3958,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3970,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li73),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:643: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* lp in k7588 in string-concatenate in k2464 in k2461 */ static C_word C_fcall f_7595(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t2))){ t3=t2; t4=C_u_i_car(t3); t5=C_i_string_length(t4); t6=t1; t7=C_substring_copy(t4,((C_word*)t0)[2],C_fix(0),t5,t6); t8=C_fixnum_plus(t1,t5); t9=t2; t10=C_u_i_cdr(t9); t12=t8; t13=t10; t1=t12; t2=t13; goto loop;} else{ t3=C_SCHEME_UNDEFINED; return(t3);}} /* k7588 in string-concatenate in k2464 in k2461 */ static void C_ccall f_7590(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ C_save_and_reclaim((void *)f_7590,2,av);} a=C_alloc(4); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7595,a[2]=t2,a[3]=((C_word)li367),tmp=(C_word)a,a+=4,tmp); t4=( f_7595(t3,C_fix(0),((C_word*)t0)[2]) ); t5=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} /* k5637 in string-drop in k2464 in k2461 */ static void C_ccall f_5639(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5639,2,av);} t2=C_block_size(((C_word*)t0)[2]); /* srfi-13.scm:1046: %substring/shared */ f_2671(((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4],t2);} /* a4440 in string-compare-ci in k2464 in k2461 */ static void C_ccall f_4441(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_4441,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li119),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4453,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li120),tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:763: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4446 in a4440 in string-compare-ci in k2464 in k2461 */ static void C_ccall f_4447(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4447,2,av);} /* srfi-13.scm:763: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3981 in string-suffix-length in k2464 in k2461 */ static void C_ccall f_3982(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_3982,2,av);} /* srfi-13.scm:648: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3987 in string-suffix-length in k2464 in k2461 */ static void C_ccall f_3988(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_3988,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4000,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li78),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:648: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* string-drop in k2464 in k2461 */ static void C_ccall f_5632(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5632,4,av);} a=C_alloc(5); t4=C_i_check_string_2(t2,lf[87]); t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5639,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); t6=C_block_size(t2); t7=C_fixnum_plus(C_fix(1),t6); /* srfi-13.scm:1042: ##sys#check-range */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=*((C_word*)lf[85]+1); av2[1]=t5; av2[2]=t3; av2[3]=C_fix(0); av2[4]=t7; av2[5]=lf[87]; tp(6,av2);}} /* a5145 in k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5146(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5146,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5139 in k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5140(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5140,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4410 in string-compare in k2464 in k2461 */ static void C_ccall f_4411(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ C_save_and_reclaim((void *)f_4411,5,av);} a=C_alloc(16); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li114),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4423,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li115),tmp=(C_word)a,a+=10,tmp); /* srfi-13.scm:755: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4416 in a4410 in string-compare in k2464 in k2461 */ static void C_ccall f_4417(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4417,2,av);} /* srfi-13.scm:755: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a3969 in a3957 in string-prefix-length in k2464 in k2461 */ static void C_ccall f_3970(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ C_save_and_reclaim((void *)f_3970,4,av);} /* srfi-13.scm:646: %string-prefix-length */ f_3636(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);} /* string-suffix-length in k2464 in k2461 */ static void C_ccall f_3976(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_3976,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[44]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3982,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3988,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:648: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5113(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5113,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5119,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li204),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5125,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li208),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:886: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a5118 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5119(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5119,2,av);} /* srfi-13.scm:886: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4422 in a4410 in string-compare in k2464 in k2461 */ static void C_ccall f_4423(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ C_save_and_reclaim((void *)f_4423,4,av);} /* srfi-13.scm:761: %string-compare */ f_4278(t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2,t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} /* string-compare-ci in k2464 in k2461 */ static void C_ccall f_4429(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6=av[6]; C_word t7; C_word *a; if(c<7) C_bad_min_argc_2(c,7,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +15,c,5)))){ C_save_and_reclaim((void*)f_4429,c,av);} a=C_alloc((c-7)*C_SIZEOF_PAIR+15); t7=C_build_rest(&a,c,7,av); C_word t8; C_word t9; C_word t10; C_word t11; t8=*((C_word*)lf[55]+1); t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4435,a[2]=t8,a[3]=t2,a[4]=t7,a[5]=((C_word)li118),tmp=(C_word)a,a+=6,tmp); t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4441,a[2]=t8,a[3]=t3,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=((C_word)li121),tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:763: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t9; av2[3]=t10; C_call_with_values(4,av2);}} /* doloop1608 in a6833 in string-fill! in k2464 in k2461 */ static C_word C_fcall f_6844(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t2,t3))){ t4=C_SCHEME_UNDEFINED; return(t4);} else{ t4=C_i_string_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} /* k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_fcall f_5132(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_5132,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5140,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5146,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5152,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:892: %string-compare-ci */ f_4337(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4404 in string-compare in k2464 in k2461 */ static void C_ccall f_4405(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4405,2,av);} /* srfi-13.scm:755: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-ci<= in k2464 in k2461 */ static void C_ccall f_5101(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_5101,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[66]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5107,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li203),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5113,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li209),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:886: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a6833 in string-fill! in k2464 in k2461 */ static void C_ccall f_6834(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ C_save_and_reclaim((void *)f_6834,4,av);} a=C_alloc(6); t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6844,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li319),tmp=(C_word)a,a+=6,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_6844(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} /* a5106 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5107(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5107,2,av);} /* srfi-13.scm:886: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-copy! in k2464 in k2461 */ static void C_ccall f_6863(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word *a; if(c<5) C_bad_min_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +11,c,4)))){ C_save_and_reclaim((void*)f_6863,c,av);} a=C_alloc((c-5)*C_SIZEOF_PAIR+11); t5=C_build_rest(&a,c,5,av); C_word t6; C_word t7; C_word t8; t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6869,a[2]=t4,a[3]=t5,a[4]=((C_word)li322),tmp=(C_word)a,a+=5,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6875,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word)li323),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1313: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* lp in a6305 in string-index-right in k2464 in k2461 */ static C_word C_fcall f_6322(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_stack_overflow_check; loop:{} t2=t1; t3=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t2,t3))){ t4=C_i_string_ref(((C_word*)t0)[3],t1); if(C_truep(C_i_char_equalp(((C_word*)t0)[4],t4))){ return(t1);} else{ t5=C_fixnum_difference(t1,C_fix(1)); t7=t5; t1=t7; goto loop;}} else{ return(C_SCHEME_FALSE);}} /* a4884 in k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4885(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4885,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4881 in k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4882(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4882,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4890 in k4872 in a4863 in a4851 in string-ci= in k2464 in k2461 */ static void C_ccall f_4891(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4891,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* string-kmp-partial-search in k2464 in k2461 */ static void C_ccall f_7205(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5=av[5]; C_word t6; C_word *a; if(c<6) C_bad_min_argc_2(c,6,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +14,c,5)))){ C_save_and_reclaim((void*)f_7205,c,av);} a=C_alloc((c-6)*C_SIZEOF_PAIR+14); t6=C_build_rest(&a,c,6,av); C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word t18; C_word t19; C_word t20; t7=C_i_nullp(t6); t8=(C_truep(t7)?*((C_word*)lf[116]+1):C_i_car(t6)); t9=t8; t10=C_i_nullp(t6); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t6)); t12=C_i_nullp(t11); t13=(C_truep(t12)?C_fix(0):C_i_car(t11)); t14=t13; t15=C_i_nullp(t11); t16=(C_truep(t15)?C_SCHEME_END_OF_LIST:C_i_cdr(t11)); t17=t16; t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7223,a[2]=t4,a[3]=t17,a[4]=((C_word)li344),tmp=(C_word)a,a+=5,tmp); t19=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7229,a[2]=t3,a[3]=t4,a[4]=t14,a[5]=t2,a[6]=t9,a[7]=t5,a[8]=((C_word)li347),tmp=(C_word)a,a+=9,tmp); /* srfi-13.scm:1471: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t18; av2[3]=t19; C_call_with_values(4,av2);}} /* a4743 in a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4744(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_4744,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4751,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_4751(t8,C_eqp(t6,t7));} else{ t6=t4; f_4751(t6,C_SCHEME_FALSE);}} /* k6808 in doloop1594 in k6743 in a6698 in string-count in k2464 in k2461 */ static void C_ccall f_6810(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_6810,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); t3=((C_word*)((C_word*)t0)[3])[1]; f_6789(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} else{ t2=((C_word*)t0)[2]; t3=((C_word*)((C_word*)t0)[3])[1]; f_6789(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}} /* string-ci>= in k2464 in k2461 */ static void C_ccall f_5161(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_5161,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[67]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5167,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li211),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5173,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li217),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:897: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a5166 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5167(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5167,2,av);} /* srfi-13.scm:897: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a6827 in string-fill! in k2464 in k2461 */ static void C_ccall f_6828(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6828,2,av);} /* srfi-13.scm:1306: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[111]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ static void C_fcall f_4751(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,0,10)))){ C_save_and_reclaim_args((void *)trf_4751,2,t0,t1);} a=C_alloc(9); if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3]; t4=((C_word*)t0)[4];{ C_word av2[2]; av2[0]=t4; av2[1]=C_fixnum_less_or_equal_p(t2,t3); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4759,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4765,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp); t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4771,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); /* srfi-13.scm:828: %string-compare */ f_4278(((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],t2,t3,t4);}} /* a4758 in k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4759(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4759,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a6305 in string-index-right in k2464 in k2461 */ static void C_ccall f_6306(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ C_save_and_reclaim((void *)f_6306,4,av);} a=C_alloc(7); if(C_truep(C_charp(((C_word*)t0)[2]))){ t4=C_fixnum_difference(t3,C_fix(1)); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6322,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li295),tmp=(C_word)a,a+=6,tmp); t6=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t6; av2[1]=( f_6322(t5,t4) ); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6352,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1214: char-set? */ t5=*((C_word*)lf[34]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} /* a6299 in string-index-right in k2464 in k2461 */ static void C_ccall f_6300(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6300,2,av);} /* srfi-13.scm:1207: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[105]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a7222 in string-kmp-partial-search in k2464 in k2461 */ static void C_ccall f_7223(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_7223,2,av);} /* srfi-13.scm:1476: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[119]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a4764 in k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4765(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4765,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_ccall f_7229(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_7229,5,av);} a=C_alloc(13); t5=C_i_vector_length(((C_word*)t0)[2]); t6=t5; t7=C_SCHEME_UNDEFINED; t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7238,a[2]=t6,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word)li346),tmp=(C_word)a,a+=11,tmp)); t10=((C_word*)t8)[1]; f_7238(t10,t1,t3,((C_word*)t0)[7]);} /* k6372 in lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_ccall f_6374(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6374,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:1218: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6361(t3,((C_word*)t0)[2],t2);}} /* k6499 in lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_ccall f_6501(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6501,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1239: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6488(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* a5184 in a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5185(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5185,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5192,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5192(t8,C_eqp(t6,t7));} else{ t6=t4; f_5192(t6,C_SCHEME_FALSE);}} /* k4247 in a4149 in a4137 in string-prefix-ci? in k2464 in k2461 */ static void C_ccall f_4249(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4249,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_fcall f_7238(C_word t0,C_word t1,C_word t2,C_word t3){ C_word tmp; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word t17; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ C_save_and_reclaim_args((void *)trf_7238,4,t0,t1,t2,t3);} a=C_alloc(16); t4=t3; t5=C_eqp(t4,((C_word*)t0)[2]); if(C_truep(t5)){ t6=t1;{ C_word av2[2]; av2[0]=t6; av2[1]=C_fixnum_negate(t2); ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} else{ t6=t2; t7=((C_word*)t0)[3]; t8=C_eqp(t6,t7); if(C_truep(t8)){ t9=t1;{ C_word av2[2]; av2[0]=t9; av2[1]=t3; ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} else{ t9=C_i_string_ref(((C_word*)t0)[4],t2); t10=t9; t11=C_fixnum_plus(t2,C_fix(1)); t12=t11; t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7268,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t12,tmp=(C_word)a,a+=5,tmp); t14=C_SCHEME_UNDEFINED; t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp); t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7270,a[2]=((C_word*)t0)[6],a[3]=t15,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=t10,a[8]=((C_word)li345),tmp=(C_word)a,a+=9,tmp)); t17=((C_word*)t15)[1]; f_7270(t17,t13,t3);}}} /* a4770 in k4749 in a4743 in a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4771(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4771,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a5151 in k5130 in a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5152(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_5152,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4701 in k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4702(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4702,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4704 in k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4705(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4705,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* a4707 in k4692 in a4686 in a4674 in string> in k2464 in k2461 */ static void C_ccall f_4708(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c!=3) C_bad_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4708,3,av);} t3=t1;{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} /* doloop1845 in string-concatenate in k2464 in k2461 */ static C_word C_fcall f_7620(C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_stack_overflow_check; loop:{} if(C_truep(C_i_pairp(t1))){ t3=C_i_cdr(t1); t4=t1; t5=C_u_i_car(t4); t6=C_i_string_length(t5); t7=C_fixnum_plus(t2,t6); t9=t3; t10=t7; t1=t9; t2=t10; goto loop;} else{ t3=t2; return(t3);}} /* lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_fcall f_6523(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ C_save_and_reclaim_args((void *)trf_6523,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_lessp(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6536,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1244: criteria */ t7=((C_word*)t0)[5];{ C_word av2[3]; av2[0]=t7; av2[1]=t5; av2[2]=t6; ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* a5124 in a5112 in string-ci<= in k2464 in k2461 */ static void C_ccall f_5125(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_5125,4,av);} a=C_alloc(9); t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5132,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp); t5=C_eqp(((C_word*)t0)[3],((C_word*)t0)[5]); if(C_truep(t5)){ t6=((C_word*)t0)[4]; t7=t2; t8=t4; f_5132(t8,C_eqp(t6,t7));} else{ t6=t4; f_5132(t6,C_SCHEME_FALSE);}} /* a6868 in string-copy! in k2464 in k2461 */ static void C_ccall f_6869(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_6869,2,av);} /* srfi-13.scm:1313: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[112]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4224 in a4119 in a4107 in string-suffix? in k2464 in k2461 */ static void C_ccall f_4226(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4226,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* k4270 in a4179 in a4167 in string-suffix-ci? in k2464 in k2461 */ static void C_ccall f_4272(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4272,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(((C_word*)t0)[3],t1); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5173(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_5173,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li212),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5185,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li216),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:897: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* %string-compare in k2464 in k2461 */ static void C_fcall f_4278(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9,C_word t10){ C_word tmp; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; C_word t16; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(13,0,7)))){ C_save_and_reclaim_args((void *)trf_4278,10,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10);} a=C_alloc(13); t11=C_fixnum_difference(t4,t3); t12=t11; t13=C_fixnum_difference(t7,t6); t14=t13; t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4288,a[2]=t12,a[3]=t14,a[4]=t9,a[5]=t1,a[6]=t4,a[7]=t8,a[8]=t10,a[9]=t3,a[10]=t2,a[11]=t6,a[12]=t5,tmp=(C_word)a,a+=13,tmp); /* srfi-13.scm:732: %string-prefix-length */ f_3636(t15,t2,t3,t4,t5,t6,t7);} /* a5178 in a5172 in string-ci>= in k2464 in k2461 */ static void C_ccall f_5179(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5179,2,av);} /* srfi-13.scm:897: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7266 in lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_ccall f_7268(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ C_save_and_reclaim((void *)f_7268,2,av);} /* srfi-13.scm:1485: lp */ t2=((C_word*)((C_word*)t0)[2])[1]; f_7238(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} /* string<= in k2464 in k2461 */ static void C_ccall f_4720(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +12,c,5)))){ C_save_and_reclaim((void*)f_4720,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+12); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; C_word t8; t5=*((C_word*)lf[60]+1); t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4726,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=((C_word)li155),tmp=(C_word)a,a+=6,tmp); t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4732,a[2]=t5,a[3]=t3,a[4]=t2,a[5]=((C_word)li161),tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:822: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t6; av2[3]=t7; C_call_with_values(4,av2);}} /* a4725 in string<= in k2464 in k2461 */ static void C_ccall f_4726(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4726,2,av);} /* srfi-13.scm:822: string-parse-start+end */ t2=*((C_word*)lf[0]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k4286 in %string-compare in k2464 in k2461 */ static void C_ccall f_4288(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_4288,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=C_eqp(t1,((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[4]; /* srfi-13.scm:728: g760 */ t5=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} else{ t4=((C_word*)t0)[7]; /* srfi-13.scm:728: g760 */ t5=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t5; av2[1]=((C_word*)t0)[5]; av2[2]=((C_word*)t0)[6]; ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} else{ t3=C_eqp(t1,((C_word*)t0)[3]); if(C_truep(t3)){ t4=((C_word*)t0)[8]; t5=C_fixnum_plus(t1,((C_word*)t0)[9]); /* srfi-13.scm:728: g762 */ t6=t4;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t6; av2[1]=((C_word*)t0)[5]; av2[2]=t5; ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} else{ t4=C_fixnum_plus(((C_word*)t0)[9],t1); t5=C_i_string_ref(((C_word*)t0)[10],t4); t6=C_fixnum_plus(((C_word*)t0)[11],t1); t7=C_i_string_ref(((C_word*)t0)[12],t6); if(C_truep(C_u_i_char_lessp(t5,t7))){ t8=((C_word*)t0)[7]; t9=C_fixnum_plus(t1,((C_word*)t0)[9]); /* srfi-13.scm:728: g762 */ t10=t8;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[5]; av2[2]=t9; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}} else{ t8=((C_word*)t0)[8]; t9=C_fixnum_plus(t1,((C_word*)t0)[9]); /* srfi-13.scm:728: g762 */ t10=t8;{ C_word *av2; if(c >= 3) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(3); } av2[0]=t10; av2[1]=((C_word*)t0)[5]; av2[2]=t9; ((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}}}} /* lp2 in lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_fcall f_7270(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ C_save_and_reclaim_args((void *)trf_7270,3,t0,t1,t2);} a=C_alloc(6); t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7277,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); t4=C_fixnum_plus(t2,((C_word*)t0)[4]); t5=C_i_string_ref(((C_word*)t0)[5],t4); /* srfi-13.scm:1487: c= */ t6=((C_word*)t0)[6];{ C_word av2[4]; av2[0]=t6; av2[1]=t3; av2[2]=((C_word*)t0)[7]; av2[3]=t5; ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} /* k7275 in lp2 in lp in a7228 in string-kmp-partial-search in k2464 in k2461 */ static void C_ccall f_7277(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7277,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[3]); t3=C_eqp(t2,C_fix(-1)); if(C_truep(t3)){ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=C_fix(0); ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} else{ /* srfi-13.scm:1491: lp2 */ t4=((C_word*)((C_word*)t0)[5])[1]; f_7270(t4,((C_word*)t0)[2],t2);}}} /* a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4732(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ C_save_and_reclaim((void *)f_4732,5,av);} a=C_alloc(13); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li156),tmp=(C_word)a,a+=6,tmp); t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4744,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li160),tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:822: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* a4737 in a4731 in string<= in k2464 in k2461 */ static void C_ccall f_4738(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_4738,2,av);} /* srfi-13.scm:822: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-concatenate-reverse in k2464 in k2461 */ static void C_ccall f_7650(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +3,c,5)))){ C_save_and_reclaim((void*)f_7650,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+3); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; C_word t13; C_word t14; C_word t15; t4=C_i_nullp(t3); t5=(C_truep(t4)?lf[129]:C_i_car(t3)); t6=C_i_nullp(t3); t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t8=C_i_nullp(t7); t9=(C_truep(t8)?C_i_string_length(t5):C_i_car(t7)); t10=C_i_nullp(t7); t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_i_cdr(t7)); t12=C_i_check_exact_2(t9,lf[128]); t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7674,a[2]=((C_word)li369),tmp=(C_word)a,a+=3,tmp); t14=( f_7674(C_fix(0),t2) ); /* srfi-13.scm:1634: %finish-string-concatenate-reverse */ f_7842(t1,t14,t2,t5,t9);} /* string-fill! in k2464 in k2461 */ static void C_ccall f_6822(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word *a; if(c<4) C_bad_min_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_6822,c,av);} a=C_alloc((c-4)*C_SIZEOF_PAIR+10); t4=C_build_rest(&a,c,4,av); C_word t5; C_word t6; C_word t7; t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6828,a[2]=t2,a[3]=t4,a[4]=((C_word)li318),tmp=(C_word)a,a+=5,tmp); t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6834,a[2]=t2,a[3]=t3,a[4]=((C_word)li320),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1306: ##sys#call-with-values */{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=0; av2[1]=t1; av2[2]=t5; av2[3]=t6; C_call_with_values(4,av2);}} /* k6534 in lp in k6481 in a6440 in string-skip in k2464 in k2461 */ static void C_ccall f_6536(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_6536,2,av);} if(C_truep(t1)){ t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); /* srfi-13.scm:1244: lp */ t3=((C_word*)((C_word*)t0)[3])[1]; f_6523(t3,((C_word*)t0)[4],t2);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[2]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} /* lp in k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_fcall f_6361(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ C_save_and_reclaim_args((void *)trf_6361,3,t0,t1,t2);} a=C_alloc(5); t3=t2; t4=((C_word*)t0)[2]; if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6374,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); t6=C_i_string_ref(((C_word*)t0)[4],t2); /* srfi-13.scm:1217: char-set-contains? */ t7=*((C_word*)lf[32]+1);{ C_word av2[4]; av2[0]=t7; av2[1]=t5; av2[2]=((C_word*)t0)[5]; av2[3]=t6; ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} else{ t5=t1;{ C_word av2[2]; av2[0]=t5; av2[1]=C_SCHEME_FALSE; ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} /* k6350 in a6305 in string-index-right in k2464 in k2461 */ static void C_ccall f_6352(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ C_save_and_reclaim((void *)f_6352,2,av);} a=C_alloc(9); if(C_truep(t1)){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6361,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li296),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6361(t6,((C_word*)t0)[6],t2);} else{ if(C_truep(C_i_closurep(((C_word*)t0)[5]))){ t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); t3=C_SCHEME_UNDEFINED; t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6400,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li297),tmp=(C_word)a,a+=7,tmp)); t6=((C_word*)t4)[1]; f_6400(t6,((C_word*)t0)[6],t2);} else{ /* srfi-13.scm:1224: ##sys#error */ t2=*((C_word*)lf[1]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t2; av2[1]=((C_word*)t0)[6]; av2[2]=lf[105]; av2[3]=lf[106]; av2[4]=*((C_word*)lf[105]+1); av2[5]=((C_word*)t0)[5]; ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} /* make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7022(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,5)))){ C_save_and_reclaim((void*)f_7022,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[116]+1):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7034,a[2]=t2,a[3]=t9,a[4]=((C_word)li337),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7040,a[2]=t2,a[3]=t6,a[4]=((C_word)li340),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1402: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* k2676 in %substring/shared in k2464 in k2461 */ static void C_fcall f_2678(C_word t0,C_word t1){ C_word tmp; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_2678,2,t0,t1);} if(C_truep(t1)){ t2=((C_word*)t0)[2]; t3=((C_word*)t0)[3];{ C_word av2[2]; av2[0]=t3; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:265: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word av2[5]; av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[4]; av2[4]=((C_word*)t0)[5]; tp(5,av2);}}} /* string-upcase in k2464 in k2461 */ static void C_ccall f_5395(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_5395,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5401,a[2]=t2,a[3]=t3,a[4]=((C_word)li230),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5407,a[2]=t2,a[3]=((C_word)li231),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:964: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* %substring/shared in k2464 in k2461 */ static void C_fcall f_2671(C_word t1,C_word t2,C_word t3,C_word t4){ C_word tmp; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ C_save_and_reclaim_args((void *)trf_2671,4,t1,t2,t3,t4);} a=C_alloc(6); t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2678,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); t6=C_eqp(t3,C_fix(0)); if(C_truep(t6)){ t7=C_i_string_length(t2); t8=t4; t9=t5; f_2678(t9,C_eqp(t8,t7));} else{ t7=t5; f_2678(t7,C_SCHEME_FALSE);}} /* string-trim-both in k2464 in k2461 */ static void C_ccall f_5780(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,4)))){ C_save_and_reclaim((void*)f_5780,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+10); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word t12; t4=C_i_nullp(t3); t5=(C_truep(t4)?*((C_word*)lf[90]+1):C_i_car(t3)); t6=t5; t7=C_i_nullp(t3); t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t3)); t9=t8; t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5792,a[2]=t2,a[3]=t9,a[4]=((C_word)li266),tmp=(C_word)a,a+=5,tmp); t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5798,a[2]=t2,a[3]=t6,a[4]=((C_word)li268),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1072: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t10; av2[3]=t11; C_call_with_values(4,av2);}} /* a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7040(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4=av[4]; C_word t5; C_word t6; C_word t7; C_word t8; C_word *a; if(c!=5) C_bad_argc_2(c,5,t0); if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ C_save_and_reclaim((void *)f_7040,5,av);} a=C_alloc(7); t5=C_fixnum_difference(t4,t3); t6=t5; t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7047,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); /* srfi-13.scm:1407: make-vector */ t8=*((C_word*)lf[117]+1);{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t8; av2[1]=t7; av2[2]=t6; av2[3]=C_fix(-1); ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} /* k7045 in a7039 in make-kmp-restart-vector in k2464 in k2461 */ static void C_ccall f_7047(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(16,c,5)))){ C_save_and_reclaim((void *)f_7047,2,av);} a=C_alloc(16); t2=t1; t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7050,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); if(C_truep(C_fixnum_greaterp(((C_word*)t0)[3],C_fix(0)))){ t4=C_fixnum_difference(((C_word*)t0)[3],C_fix(1)); t5=t4; t6=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[5]); t7=t6; t8=C_SCHEME_UNDEFINED; t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7064,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t9,a[6]=((C_word*)t0)[6],a[7]=t7,a[8]=((C_word*)t0)[5],a[9]=((C_word)li339),tmp=(C_word)a,a+=10,tmp)); t11=((C_word*)t9)[1]; f_7064(t11,t3,C_fix(0),C_fix(-1),((C_word*)t0)[5]);} else{ t4=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t4; av2[1]=t2; ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} /* a5791 in string-trim-both in k2464 in k2461 */ static void C_ccall f_5792(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5792,2,av);} /* srfi-13.scm:1072: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[95]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* a5797 in string-trim-both in k2464 in k2461 */ static void C_ccall f_5798(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ C_save_and_reclaim((void *)f_5798,4,av);} a=C_alloc(6); t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); /* srfi-13.scm:1075: string-skip */ t5=*((C_word*)lf[80]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* a2698 in string-copy in k2464 in k2461 */ static void C_ccall f_2699(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_2699,2,av);} /* srfi-13.scm:267: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[13]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* string-copy in k2464 in k2461 */ static void C_ccall f_2693(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3; C_word *a; if(c<3) C_bad_min_argc_2(c,3,t0); if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,4)))){ C_save_and_reclaim((void*)f_2693,c,av);} a=C_alloc((c-3)*C_SIZEOF_PAIR+9); t3=C_build_rest(&a,c,3,av); C_word t4; C_word t5; C_word t6; t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2699,a[2]=t2,a[3]=t3,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp); t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2705,a[2]=t2,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); /* srfi-13.scm:267: ##sys#call-with-values */{ C_word *av2; if(c >= 4) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(4); } av2[0]=0; av2[1]=t1; av2[2]=t4; av2[3]=t5; C_call_with_values(4,av2);}} /* %string-suffix-length-ci in k2464 in k2461 */ static void C_fcall f_3861(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){ C_word tmp; C_word t8; C_word t9; C_word t10; C_word t11; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ C_save_and_reclaim_args((void *)trf_3861,7,t1,t2,t3,t4,t5,t6,t7);} a=C_alloc(7); t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3865,a[2]=t4,a[3]=t1,a[4]=t7,a[5]=t2,a[6]=t5,tmp=(C_word)a,a+=7,tmp); t9=C_fixnum_difference(t4,t3); t10=C_fixnum_difference(t7,t6); /* srfi-13.scm:629: min */ t11=*((C_word*)lf[24]+1);{ C_word av2[4]; av2[0]=t11; av2[1]=t8; av2[2]=t9; av2[3]=t10; ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} /* k3863 in %string-suffix-length-ci in k2464 in k2461 */ static void C_ccall f_3865(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word t6; C_word t7; C_word t8; C_word t9; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ C_save_and_reclaim((void *)f_3865,2,av);} a=C_alloc(9); t2=t1; t3=C_fixnum_difference(((C_word*)t0)[2],t2); t4=t3; t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3874,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); t6=C_eqp(((C_word*)t0)[5],((C_word*)t0)[6]); if(C_truep(t6)){ t7=((C_word*)t0)[2]; t8=((C_word*)t0)[4]; t9=t5; f_3874(t9,C_eqp(t7,t8));} else{ t7=t5; f_3874(t7,C_SCHEME_FALSE);}} /* k4201 in a4089 in a4077 in string-prefix? in k2464 in k2461 */ static void C_ccall f_4203(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ C_save_and_reclaim((void *)f_4203,2,av);} t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=C_eqp(t1,((C_word*)t0)[3]); ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} /* a5746 in string-trim-right in k2464 in k2461 */ static void C_ccall f_5747(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2=av[2]; C_word t3=av[3]; C_word t4; C_word t5; C_word *a; if(c!=4) C_bad_argc_2(c,4,t0); if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ C_save_and_reclaim((void *)f_5747,4,av);} a=C_alloc(5); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5751,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1068: string-skip-right */ t5=*((C_word*)lf[94]+1);{ C_word *av2; if(c >= 6) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(6); } av2[0]=t5; av2[1]=t4; av2[2]=((C_word*)t0)[2]; av2[3]=((C_word*)t0)[3]; av2[4]=t2; av2[5]=t3; ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} /* a5740 in string-trim-right in k2464 in k2461 */ static void C_ccall f_5741(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word *a; if(c!=2) C_bad_argc_2(c,2,t0); if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5741,2,av);} /* srfi-13.scm:1065: string-parse-final-start+end */ t2=*((C_word*)lf[5]+1);{ C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=t2; av2[1]=t1; av2[2]=*((C_word*)lf[92]+1); av2[3]=((C_word*)t0)[2]; av2[4]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} /* k7007 in lp in a6983 in a6971 in string-contains-ci in k2464 in k2461 */ static void C_ccall f_7009(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ C_save_and_reclaim((void *)f_7009,2,av);} if(C_truep(t1)){ t2=((C_word*)t0)[2];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=((C_word*)t0)[3]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} else{ t2=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); /* srfi-13.scm:1350: lp */ t3=((C_word*)((C_word*)t0)[4])[1]; f_6996(t3,((C_word*)t0)[2],t2);}} /* k5981 in k5978 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_5983(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ C_save_and_reclaim((void *)f_5983,2,av);} t2=C_eqp(t1,((C_word*)t0)[2]); if(C_truep(t2)){ t3=((C_word*)t0)[3];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t3; av2[1]=((C_word*)t0)[4]; ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} else{ /* srfi-13.scm:1129: ##sys#substring */ {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); C_word *av2; if(c >= 5) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(5); } av2[0]=*((C_word*)lf[12]+1); av2[1]=((C_word*)t0)[3]; av2[2]=((C_word*)t0)[4]; av2[3]=C_fix(0); av2[4]=t1; tp(5,av2);}}} /* k5978 in a5966 in string-delete in k2464 in k2461 */ static void C_ccall f_5980(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word t4; C_word t5; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ C_save_and_reclaim((void *)f_5980,2,av);} a=C_alloc(10); t2=t1; t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5994,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word)li277),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1124: string-fold */ t5=*((C_word*)lf[19]+1);{ C_word *av2; if(c >= 7) { av2=av; /* Re-use our own argvector */ } else { av2=C_alloc(7); } av2[0]=t5; av2[1]=t3; av2[2]=t4; av2[3]=C_fix(0); av2[4]=((C_word*)t0)[5]; av2[5]=((C_word*)t0)[6]; av2[6]=((C_word*)t0)[7]; ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} /* g1342 in k5749 in a5746 in string-trim-right in k2464 in k2461 */ static void C_fcall f_5755(C_word t0,C_word t1,C_word t2){ C_word tmp; C_word t3; C_word t4; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){ C_save_and_reclaim_args((void *)trf_5755,3,t0,t1,t2);} t3=C_fixnum_plus(C_fix(1),t2); /* srfi-13.scm:1069: %substring/shared */ f_2671(t1,((C_word*)t0)[2],((C_word*)t0)[3],t3);} /* k5749 in a5746 in string-trim-right in k2464 in k2461 */ static void C_ccall f_5751(C_word c,C_word *av){ C_word tmp; C_word t0=av[0]; C_word t1=av[1]; C_word t2; C_word t3; C_word *a; if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ C_save_and_reclaim((void *)f_5751,2,av);} a=C_alloc(5); if(C_truep(t1)){ t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp); /* srfi-13.scm:1065: g1342 */ t3=t2; f_5755(t3,((C_word*)t0)[4],t1);} else{ t2=((C_word*)t0)[4];{ C_word *av2=av; /* Re-use our own argvector */ av2[0]=t2; av2[1]=lf[93]; ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} #ifdef C_ENABLE_PTABLES static C_PTABLE_ENTRY ptable[555] = { {"f_5514:srfi_2d13_2escm",(void*)f_5514}, {"f_7076:srfi_2d13_2escm",(void*)f_7076}, {"f_6789:srfi_2d13_2escm",(void*)f_6789}, {"f_3816:srfi_2d13_2escm",(void*)f_3816}, {"f_5536:srfi_2d13_2escm",(void*)f_5536}, {"f_3801:srfi_2d13_2escm",(void*)f_3801}, {"f_3806:srfi_2d13_2escm",(void*)f_3806}, {"f_5994:srfi_2d13_2escm",(void*)f_5994}, {"f_3874:srfi_2d13_2escm",(void*)f_3874}, {"f_7064:srfi_2d13_2escm",(void*)f_7064}, {"f_7034:srfi_2d13_2escm",(void*)f_7034}, {"f_7050:srfi_2d13_2escm",(void*)f_7050}, {"f_3837:srfi_2d13_2escm",(void*)f_3837}, {"f_5303:srfi_2d13_2escm",(void*)f_5303}, {"f_7746:srfi_2d13_2escm",(void*)f_7746}, {"f_7793:srfi_2d13_2escm",(void*)f_7793}, {"f_5311:srfi_2d13_2escm",(void*)f_5311}, {"f_5317:srfi_2d13_2escm",(void*)f_5317}, {"f_6483:srfi_2d13_2escm",(void*)f_6483}, {"f_6632:srfi_2d13_2escm",(void*)f_6632}, {"f_5339:srfi_2d13_2escm",(void*)f_5339}, {"f_6488:srfi_2d13_2escm",(void*)f_6488}, {"f_3633:srfi_2d13_2escm",(void*)f_3633}, {"f_3636:srfi_2d13_2escm",(void*)f_3636}, {"f_2564:srfi_2d13_2escm",(void*)f_2564}, {"f_3664:srfi_2d13_2escm",(void*)f_3664}, {"f_4493:srfi_2d13_2escm",(void*)f_4493}, {"f_7944:srfi_2d13_2escm",(void*)f_7944}, {"f_6102:srfi_2d13_2escm",(void*)f_6102}, {"f_6109:srfi_2d13_2escm",(void*)f_6109}, {"f_3640:srfi_2d13_2escm",(void*)f_3640}, {"f_3649:srfi_2d13_2escm",(void*)f_3649}, {"f_7950:srfi_2d13_2escm",(void*)f_7950}, {"f_7956:srfi_2d13_2escm",(void*)f_7956}, {"f_2558:srfi_2d13_2escm",(void*)f_2558}, {"f_4477:srfi_2d13_2escm",(void*)f_4477}, {"f_4471:srfi_2d13_2escm",(void*)f_4471}, {"f_7960:srfi_2d13_2escm",(void*)f_7960}, {"f_6127:srfi_2d13_2escm",(void*)f_6127}, {"f_7964:srfi_2d13_2escm",(void*)f_7964}, {"f_6129:srfi_2d13_2escm",(void*)f_6129}, {"f_6124:srfi_2d13_2escm",(void*)f_6124}, {"f_2528:srfi_2d13_2escm",(void*)f_2528}, {"f_8024:srfi_2d13_2escm",(void*)f_8024}, {"f_6121:srfi_2d13_2escm",(void*)f_6121}, {"f_4483:srfi_2d13_2escm",(void*)f_4483}, {"f_6118:srfi_2d13_2escm",(void*)f_6118}, {"f_3654:srfi_2d13_2escm",(void*)f_3654}, {"f_4956:srfi_2d13_2escm",(void*)f_4956}, {"f_4950:srfi_2d13_2escm",(void*)f_4950}, {"f_4959:srfi_2d13_2escm",(void*)f_4959}, {"f_5293:srfi_2d13_2escm",(void*)f_5293}, {"f_7909:srfi_2d13_2escm",(void*)f_7909}, {"f_6144:srfi_2d13_2escm",(void*)f_6144}, {"f_8001:srfi_2d13_2escm",(void*)f_8001}, {"f_3603:srfi_2d13_2escm",(void*)f_3603}, {"f_3606:srfi_2d13_2escm",(void*)f_3606}, {"f_2766:srfi_2d13_2escm",(void*)f_2766}, {"f_4967:srfi_2d13_2escm",(void*)f_4967}, {"f_6136:srfi_2d13_2escm",(void*)f_6136}, {"f_6658:srfi_2d13_2escm",(void*)f_6658}, {"f_5349:srfi_2d13_2escm",(void*)f_5349}, {"f_2772:srfi_2d13_2escm",(void*)f_2772}, {"f_2778:srfi_2d13_2escm",(void*)f_2778}, {"f_5357:srfi_2d13_2escm",(void*)f_5357}, {"f_2741:srfi_2d13_2escm",(void*)f_2741}, {"f_4908:srfi_2d13_2escm",(void*)f_4908}, {"f_7932:srfi_2d13_2escm",(void*)f_7932}, {"f_6157:srfi_2d13_2escm",(void*)f_6157}, {"f_3612:srfi_2d13_2escm",(void*)f_3612}, {"f_5363:srfi_2d13_2escm",(void*)f_5363}, {"f_7854:srfi_2d13_2escm",(void*)f_7854}, {"f_6151:srfi_2d13_2escm",(void*)f_6151}, {"f_5369:srfi_2d13_2escm",(void*)f_5369}, {"f_4914:srfi_2d13_2escm",(void*)f_4914}, {"f_6671:srfi_2d13_2escm",(void*)f_6671}, {"f_6183:srfi_2d13_2escm",(void*)f_6183}, {"f_2723:srfi_2d13_2escm",(void*)f_2723}, {"f_4920:srfi_2d13_2escm",(void*)f_4920}, {"f_4926:srfi_2d13_2escm",(void*)f_4926}, {"f_2729:srfi_2d13_2escm",(void*)f_2729}, {"f_6177:srfi_2d13_2escm",(void*)f_6177}, {"f_6619:srfi_2d13_2escm",(void*)f_6619}, {"f_6171:srfi_2d13_2escm",(void*)f_6171}, {"f_3994:srfi_2d13_2escm",(void*)f_3994}, {"f_3276:srfi_2d13_2escm",(void*)f_3276}, {"f_4932:srfi_2d13_2escm",(void*)f_4932}, {"f_3270:srfi_2d13_2escm",(void*)f_3270}, {"f_2736:srfi_2d13_2escm",(void*)f_2736}, {"f_2739:srfi_2d13_2escm",(void*)f_2739}, {"f_6898:srfi_2d13_2escm",(void*)f_6898}, {"f_2994:srfi_2d13_2escm",(void*)f_2994}, {"f_6610:srfi_2d13_2escm",(void*)f_6610}, {"f_7842:srfi_2d13_2escm",(void*)f_7842}, {"f_7846:srfi_2d13_2escm",(void*)f_7846}, {"f_3264:srfi_2d13_2escm",(void*)f_3264}, {"f_2705:srfi_2d13_2escm",(void*)f_2705}, {"f_6195:srfi_2d13_2escm",(void*)f_6195}, {"f_2711:srfi_2d13_2escm",(void*)f_2711}, {"f_2717:srfi_2d13_2escm",(void*)f_2717}, {"f_3258:srfi_2d13_2escm",(void*)f_3258}, {"f_3742:srfi_2d13_2escm",(void*)f_3742}, {"f_3240:srfi_2d13_2escm",(void*)f_3240}, {"f_8077:srfi_2d13_2escm",(void*)f_8077}, {"f_6882:srfi_2d13_2escm",(void*)f_6882}, {"f_3229:srfi_2d13_2escm",(void*)f_3229}, {"f_3710:srfi_2d13_2escm",(void*)f_3710}, {"f_8055:srfi_2d13_2escm",(void*)f_8055}, {"f_3719:srfi_2d13_2escm",(void*)f_3719}, {"f_3122:srfi_2d13_2escm",(void*)f_3122}, {"f_6875:srfi_2d13_2escm",(void*)f_6875}, {"f_3706:srfi_2d13_2escm",(void*)f_3706}, {"f_8045:srfi_2d13_2escm",(void*)f_8045}, {"f_2463:srfi_2d13_2escm",(void*)f_2463}, {"f_2466:srfi_2d13_2escm",(void*)f_2466}, {"f_3732:srfi_2d13_2escm",(void*)f_3732}, {"f_8033:srfi_2d13_2escm",(void*)f_8033}, {"f_3143:srfi_2d13_2escm",(void*)f_3143}, {"f_3146:srfi_2d13_2escm",(void*)f_3146}, {"f_2468:srfi_2d13_2escm",(void*)f_2468}, {"f_5704:srfi_2d13_2escm",(void*)f_5704}, {"f_5708:srfi_2d13_2escm",(void*)f_5708}, {"f_4347:srfi_2d13_2escm",(void*)f_4347}, {"f_3166:srfi_2d13_2escm",(void*)f_3166}, {"f_5700:srfi_2d13_2escm",(void*)f_5700}, {"f_5729:srfi_2d13_2escm",(void*)f_5729}, {"f_3181:srfi_2d13_2escm",(void*)f_3181}, {"f_3299:srfi_2d13_2escm",(void*)f_3299}, {"f_3196:srfi_2d13_2escm",(void*)f_3196}, {"f_3190:srfi_2d13_2escm",(void*)f_3190}, {"f_3286:srfi_2d13_2escm",(void*)f_3286}, {"f_7438:srfi_2d13_2escm",(void*)f_7438}, {"f_4337:srfi_2d13_2escm",(void*)f_4337}, {"f_4786:srfi_2d13_2escm",(void*)f_4786}, {"f_4780:srfi_2d13_2escm",(void*)f_4780}, {"f_6230:srfi_2d13_2escm",(void*)f_6230}, {"f_4798:srfi_2d13_2escm",(void*)f_4798}, {"f_3109:srfi_2d13_2escm",(void*)f_3109}, {"f_4792:srfi_2d13_2escm",(void*)f_4792}, {"f_3103:srfi_2d13_2escm",(void*)f_3103}, {"f_3101:srfi_2d13_2escm",(void*)f_3101}, {"f_6225:srfi_2d13_2escm",(void*)f_6225}, {"f_8111:srfi_2d13_2escm",(void*)f_8111}, {"f_8117:srfi_2d13_2escm",(void*)f_8117}, {"f_8114:srfi_2d13_2escm",(void*)f_8114}, {"f_8148:srfi_2d13_2escm",(void*)f_8148}, {"f_4612:srfi_2d13_2escm",(void*)f_4612}, {"f_4618:srfi_2d13_2escm",(void*)f_4618}, {"f_3119:srfi_2d13_2escm",(void*)f_3119}, {"f_3466:srfi_2d13_2escm",(void*)f_3466}, {"f_4624:srfi_2d13_2escm",(void*)f_4624}, {"f_3458:srfi_2d13_2escm",(void*)f_3458}, {"f_8126:srfi_2d13_2escm",(void*)f_8126}, {"f_4144:srfi_2d13_2escm",(void*)f_4144}, {"f_7326:srfi_2d13_2escm",(void*)f_7326}, {"f_7444:srfi_2d13_2escm",(void*)f_7444}, {"f_7329:srfi_2d13_2escm",(void*)f_7329}, {"f_6413:srfi_2d13_2escm",(void*)f_6413}, {"f_4606:srfi_2d13_2escm",(void*)f_4606}, {"f_4150:srfi_2d13_2escm",(void*)f_4150}, {"f_4156:srfi_2d13_2escm",(void*)f_4156}, {"f_7450:srfi_2d13_2escm",(void*)f_7450}, {"f_6294:srfi_2d13_2escm",(void*)f_6294}, {"f_7335:srfi_2d13_2escm",(void*)f_7335}, {"f_6400:srfi_2d13_2escm",(void*)f_6400}, {"f_3436:srfi_2d13_2escm",(void*)f_3436}, {"f_4651:srfi_2d13_2escm",(void*)f_4651}, {"f_4162:srfi_2d13_2escm",(void*)f_4162}, {"f_4654:srfi_2d13_2escm",(void*)f_4654}, {"f_4168:srfi_2d13_2escm",(void*)f_4168}, {"f_7460:srfi_2d13_2escm",(void*)f_7460}, {"f_7341:srfi_2d13_2escm",(void*)f_7341}, {"f_7348:srfi_2d13_2escm",(void*)f_7348}, {"f_6435:srfi_2d13_2escm",(void*)f_6435}, {"f_4663:srfi_2d13_2escm",(void*)f_4663}, {"f_4669:srfi_2d13_2escm",(void*)f_4669}, {"f_4174:srfi_2d13_2escm",(void*)f_4174}, {"f_7357:srfi_2d13_2escm",(void*)f_7357}, {"f_4630:srfi_2d13_2escm",(void*)f_4630}, {"f_4637:srfi_2d13_2escm",(void*)f_4637}, {"f_7406:srfi_2d13_2escm",(void*)f_7406}, {"f_6453:srfi_2d13_2escm",(void*)f_6453}, {"f_6429:srfi_2d13_2escm",(void*)f_6429}, {"f_3408:srfi_2d13_2escm",(void*)f_3408}, {"f_4645:srfi_2d13_2escm",(void*)f_4645}, {"f_7725:srfi_2d13_2escm",(void*)f_7725}, {"f_6441:srfi_2d13_2escm",(void*)f_6441}, {"f_6243:srfi_2d13_2escm",(void*)f_6243}, {"f_5835:srfi_2d13_2escm",(void*)f_5835}, {"f_4120:srfi_2d13_2escm",(void*)f_4120}, {"f_4126:srfi_2d13_2escm",(void*)f_4126}, {"f_5850:srfi_2d13_2escm",(void*)f_5850}, {"f_7384:srfi_2d13_2escm",(void*)f_7384}, {"f_6278:srfi_2d13_2escm",(void*)f_6278}, {"f_8170:srfi_2d13_2escm",(void*)f_8170}, {"f_4132:srfi_2d13_2escm",(void*)f_4132}, {"f_4138:srfi_2d13_2escm",(void*)f_4138}, {"f_6265:srfi_2d13_2escm",(void*)f_6265}, {"f_5856:srfi_2d13_2escm",(void*)f_5856}, {"f_3897:srfi_2d13_2escm",(void*)f_3897}, {"f_5491:srfi_2d13_2escm",(void*)f_5491}, {"f_5802:srfi_2d13_2escm",(void*)f_5802}, {"f_7987:srfi_2d13_2escm",(void*)f_7987}, {"f_3887:srfi_2d13_2escm",(void*)f_3887}, {"f_8183:srfi_2d13_2escm",(void*)f_8183}, {"f_2585:srfi_2d13_2escm",(void*)f_2585}, {"f_5495:srfi_2d13_2escm",(void*)f_5495}, {"f_5499:srfi_2d13_2escm",(void*)f_5499}, {"f_5806:srfi_2d13_2escm",(void*)f_5806}, {"f_8138:srfi_2d13_2escm",(void*)f_8138}, {"f_3023:srfi_2d13_2escm",(void*)f_3023}, {"f_5818:srfi_2d13_2escm",(void*)f_5818}, {"f_4180:srfi_2d13_2escm",(void*)f_4180}, {"f_2570:srfi_2d13_2escm",(void*)f_2570}, {"f_3081:srfi_2d13_2escm",(void*)f_3081}, {"f_3520:srfi_2d13_2escm",(void*)f_3520}, {"f_5449:srfi_2d13_2escm",(void*)f_5449}, {"f_3525:srfi_2d13_2escm",(void*)f_3525}, {"f_5443:srfi_2d13_2escm",(void*)f_5443}, {"f_5461:srfi_2d13_2escm",(void*)f_5461}, {"f_5455:srfi_2d13_2escm",(void*)f_5455}, {"f_6699:srfi_2d13_2escm",(void*)f_6699}, {"f_5467:srfi_2d13_2escm",(void*)f_5467}, {"f_5481:srfi_2d13_2escm",(void*)f_5481}, {"f_3052:srfi_2d13_2escm",(void*)f_3052}, {"f_6693:srfi_2d13_2escm",(void*)f_6693}, {"f_6687:srfi_2d13_2escm",(void*)f_6687}, {"f_3535:srfi_2d13_2escm",(void*)f_3535}, {"f_5477:srfi_2d13_2escm",(void*)f_5477}, {"f_5473:srfi_2d13_2escm",(void*)f_5473}, {"f_7975:srfi_2d13_2escm",(void*)f_7975}, {"f_7971:srfi_2d13_2escm",(void*)f_7971}, {"f_7896:srfi_2d13_2escm",(void*)f_7896}, {"f_7890:srfi_2d13_2escm",(void*)f_7890}, {"f_3566:srfi_2d13_2escm",(void*)f_3566}, {"f_4545:srfi_2d13_2escm",(void*)f_4545}, {"f_4108:srfi_2d13_2escm",(void*)f_4108}, {"f_4102:srfi_2d13_2escm",(void*)f_4102}, {"f_7885:srfi_2d13_2escm",(void*)f_7885}, {"f_7881:srfi_2d13_2escm",(void*)f_7881}, {"f_4114:srfi_2d13_2escm",(void*)f_4114}, {"f_3006:srfi_2d13_2escm",(void*)f_3006}, {"f_4569:srfi_2d13_2escm",(void*)f_4569}, {"f_4533:srfi_2d13_2escm",(void*)f_4533}, {"f_4539:srfi_2d13_2escm",(void*)f_4539}, {"f_3063:srfi_2d13_2escm",(void*)f_3063}, {"f_5035:srfi_2d13_2escm",(void*)f_5035}, {"f_5032:srfi_2d13_2escm",(void*)f_5032}, {"f_4504:srfi_2d13_2escm",(void*)f_4504}, {"f_4501:srfi_2d13_2escm",(void*)f_4501}, {"f_5044:srfi_2d13_2escm",(void*)f_5044}, {"f_4551:srfi_2d13_2escm",(void*)f_4551}, {"f_4527:srfi_2d13_2escm",(void*)f_4527}, {"f_6947:srfi_2d13_2escm",(void*)f_6947}, {"f_3336:srfi_2d13_2escm",(void*)f_3336}, {"f_5005:srfi_2d13_2escm",(void*)f_5005}, {"f_6001:srfi_2d13_2escm",(void*)f_6001}, {"f_4987:srfi_2d13_2escm",(void*)f_4987}, {"f_4510:srfi_2d13_2escm",(void*)f_4510}, {"f_6934:srfi_2d13_2escm",(void*)f_6934}, {"f_3360:srfi_2d13_2escm",(void*)f_3360}, {"f_4381:srfi_2d13_2escm",(void*)f_4381}, {"f_4999:srfi_2d13_2escm",(void*)f_4999}, {"f_4993:srfi_2d13_2escm",(void*)f_4993}, {"f_4399:srfi_2d13_2escm",(void*)f_4399}, {"f_7106:srfi_2d13_2escm",(void*)f_7106}, {"f_6010:srfi_2d13_2escm",(void*)f_6010}, {"f_7116:srfi_2d13_2escm",(void*)f_7116}, {"f_6028:srfi_2d13_2escm",(void*)f_6028}, {"f_2784:srfi_2d13_2escm",(void*)f_2784}, {"f_3327:srfi_2d13_2escm",(void*)f_3327}, {"f_6019:srfi_2d13_2escm",(void*)f_6019}, {"f_6013:srfi_2d13_2escm",(void*)f_6013}, {"f_6016:srfi_2d13_2escm",(void*)f_6016}, {"f_4874:srfi_2d13_2escm",(void*)f_4874}, {"f_5050:srfi_2d13_2escm",(void*)f_5050}, {"f_2790:srfi_2d13_2escm",(void*)f_2790}, {"f_5056:srfi_2d13_2escm",(void*)f_5056}, {"f_2494:srfi_2d13_2escm",(void*)f_2494}, {"f_2796:srfi_2d13_2escm",(void*)f_2796}, {"f_6922:srfi_2d13_2escm",(void*)f_6922}, {"f_3311:srfi_2d13_2escm",(void*)f_3311}, {"f_3317:srfi_2d13_2escm",(void*)f_3317}, {"f_6049:srfi_2d13_2escm",(void*)f_6049}, {"f_6043:srfi_2d13_2escm",(void*)f_6043}, {"f_4846:srfi_2d13_2escm",(void*)f_4846}, {"f_4840:srfi_2d13_2escm",(void*)f_4840}, {"f_5062:srfi_2d13_2escm",(void*)f_5062}, {"f_6916:srfi_2d13_2escm",(void*)f_6916}, {"f_6910:srfi_2d13_2escm",(void*)f_6910}, {"f_3342:srfi_2d13_2escm",(void*)f_3342}, {"f_3348:srfi_2d13_2escm",(void*)f_3348}, {"f_6036:srfi_2d13_2escm",(void*)f_6036}, {"f_4852:srfi_2d13_2escm",(void*)f_4852}, {"f_5075:srfi_2d13_2escm",(void*)f_5075}, {"f_4858:srfi_2d13_2escm",(void*)f_4858}, {"f_5068:srfi_2d13_2escm",(void*)f_5068}, {"f_6069:srfi_2d13_2escm",(void*)f_6069}, {"f_5083:srfi_2d13_2escm",(void*)f_5083}, {"f_5086:srfi_2d13_2escm",(void*)f_5086}, {"f_3792:srfi_2d13_2escm",(void*)f_3792}, {"f_5011:srfi_2d13_2escm",(void*)f_5011}, {"f_5089:srfi_2d13_2escm",(void*)f_5089}, {"f_6960:srfi_2d13_2escm",(void*)f_6960}, {"f_6966:srfi_2d13_2escm",(void*)f_6966}, {"f_3788:srfi_2d13_2escm",(void*)f_3788}, {"f_6088:srfi_2d13_2escm",(void*)f_6088}, {"f_4804:srfi_2d13_2escm",(void*)f_4804}, {"f_5026:srfi_2d13_2escm",(void*)f_5026}, {"f_6021:srfi_2d13_2escm",(void*)f_6021}, {"f_5018:srfi_2d13_2escm",(void*)f_5018}, {"f_7180:srfi_2d13_2escm",(void*)f_7180}, {"f_3305:srfi_2d13_2escm",(void*)f_3305}, {"f_6075:srfi_2d13_2escm",(void*)f_6075}, {"f_4811:srfi_2d13_2escm",(void*)f_4811}, {"f_4819:srfi_2d13_2escm",(void*)f_4819}, {"f_6091:srfi_2d13_2escm",(void*)f_6091}, {"f_6904:srfi_2d13_2escm",(void*)f_6904}, {"f_4864:srfi_2d13_2escm",(void*)f_4864}, {"f_7545:srfi_2d13_2escm",(void*)f_7545}, {"f_6063:srfi_2d13_2escm",(void*)f_6063}, {"f_7550:srfi_2d13_2escm",(void*)f_7550}, {"f_3490:srfi_2d13_2escm",(void*)f_3490}, {"f_7484:srfi_2d13_2escm",(void*)f_7484}, {"f_5682:srfi_2d13_2escm",(void*)f_5682}, {"f_4822:srfi_2d13_2escm",(void*)f_4822}, {"f_4828:srfi_2d13_2escm",(void*)f_4828}, {"f_7167:srfi_2d13_2escm",(void*)f_7167}, {"f_7496:srfi_2d13_2escm",(void*)f_7496}, {"f_5694:srfi_2d13_2escm",(void*)f_5694}, {"f_7490:srfi_2d13_2escm",(void*)f_7490}, {"f_3478:srfi_2d13_2escm",(void*)f_3478}, {"f_7173:srfi_2d13_2escm",(void*)f_7173}, {"f_3472:srfi_2d13_2escm",(void*)f_3472}, {"f_2823:srfi_2d13_2escm",(void*)f_2823}, {"f_2835:srfi_2d13_2escm",(void*)f_2835}, {"f_2829:srfi_2d13_2escm",(void*)f_2829}, {"f_2841:srfi_2d13_2escm",(void*)f_2841}, {"f_5413:srfi_2d13_2escm",(void*)f_5413}, {"f_5655:srfi_2d13_2escm",(void*)f_5655}, {"f_5407:srfi_2d13_2escm",(void*)f_5407}, {"f_2855:srfi_2d13_2escm",(void*)f_2855}, {"f_5876:srfi_2d13_2escm",(void*)f_5876}, {"f_5662:srfi_2d13_2escm",(void*)f_5662}, {"f_5419:srfi_2d13_2escm",(void*)f_5419}, {"f_2865:srfi_2d13_2escm",(void*)f_2865}, {"f_5431:srfi_2d13_2escm",(void*)f_5431}, {"f_5425:srfi_2d13_2escm",(void*)f_5425}, {"f_2871:srfi_2d13_2escm",(void*)f_2871}, {"f_5893:srfi_2d13_2escm",(void*)f_5893}, {"f_5437:srfi_2d13_2escm",(void*)f_5437}, {"f_8243:srfi_2d13_2escm",(void*)f_8243}, {"f_2877:srfi_2d13_2escm",(void*)f_2877}, {"f_4694:srfi_2d13_2escm",(void*)f_4694}, {"f_2887:srfi_2d13_2escm",(void*)f_2887}, {"f_8305:srfi_2d13_2escm",(void*)f_8305}, {"f_8212:srfi_2d13_2escm",(void*)f_8212}, {"f_4675:srfi_2d13_2escm",(void*)f_4675}, {"f_5401:srfi_2d13_2escm",(void*)f_5401}, {"f_8283:srfi_2d13_2escm",(void*)f_8283}, {"f_8285:srfi_2d13_2escm",(void*)f_8285}, {"f_4687:srfi_2d13_2escm",(void*)f_4687}, {"f_4681:srfi_2d13_2escm",(void*)f_4681}, {"f_6564:srfi_2d13_2escm",(void*)f_6564}, {"f_7674:srfi_2d13_2escm",(void*)f_7674}, {"f_6552:srfi_2d13_2escm",(void*)f_6552}, {"f_6558:srfi_2d13_2escm",(void*)f_6558}, {"f_5223:srfi_2d13_2escm",(void*)f_5223}, {"f_5221:srfi_2d13_2escm",(void*)f_5221}, {"f_8340:srfi_2d13_2escm",(void*)f_8340}, {"f_6580:srfi_2d13_2escm",(void*)f_6580}, {"f_8325:srfi_2d13_2escm",(void*)f_8325}, {"f_2817:srfi_2d13_2escm",(void*)f_2817}, {"f_2660:srfi_2d13_2escm",(void*)f_2660}, {"f_8381:srfi_2d13_2escm",(void*)f_8381}, {"f_4586:srfi_2d13_2escm",(void*)f_4586}, {"f_8299:srfi_2d13_2escm",(void*)f_8299}, {"f_5209:srfi_2d13_2escm",(void*)f_5209}, {"f_2631:srfi_2d13_2escm",(void*)f_2631}, {"f_4030:srfi_2d13_2escm",(void*)f_4030}, {"f_4036:srfi_2d13_2escm",(void*)f_4036}, {"f_5200:srfi_2d13_2escm",(void*)f_5200}, {"f_5203:srfi_2d13_2escm",(void*)f_5203}, {"f_4084:srfi_2d13_2escm",(void*)f_4084}, {"f_4090:srfi_2d13_2escm",(void*)f_4090}, {"f_4096:srfi_2d13_2escm",(void*)f_4096}, {"f_8355:srfi_2d13_2escm",(void*)f_8355}, {"f_4575:srfi_2d13_2escm",(void*)f_4575}, {"f_4578:srfi_2d13_2escm",(void*)f_4578}, {"f_4060:srfi_2d13_2escm",(void*)f_4060}, {"f_4066:srfi_2d13_2escm",(void*)f_4066}, {"f_3585:srfi_2d13_2escm",(void*)f_3585}, {"f_5272:srfi_2d13_2escm",(void*)f_5272}, {"f_5274:srfi_2d13_2escm",(void*)f_5274}, {"f_5192:srfi_2d13_2escm",(void*)f_5192}, {"f_4042:srfi_2d13_2escm",(void*)f_4042}, {"f_2647:srfi_2d13_2escm",(void*)f_2647}, {"f_2645:srfi_2d13_2escm",(void*)f_2645}, {"f_4048:srfi_2d13_2escm",(void*)f_4048}, {"f_4054:srfi_2d13_2escm",(void*)f_4054}, {"f_6750:srfi_2d13_2escm",(void*)f_6750}, {"f_3596:srfi_2d13_2escm",(void*)f_3596}, {"f_5967:srfi_2d13_2escm",(void*)f_5967}, {"f_5961:srfi_2d13_2escm",(void*)f_5961}, {"f_5239:srfi_2d13_2escm",(void*)f_5239}, {"f_4024:srfi_2d13_2escm",(void*)f_4024}, {"f_6745:srfi_2d13_2escm",(void*)f_6745}, {"f_5934:srfi_2d13_2escm",(void*)f_5934}, {"f_7396:srfi_2d13_2escm",(void*)f_7396}, {"f_7390:srfi_2d13_2escm",(void*)f_7390}, {"f_6771:srfi_2d13_2escm",(void*)f_6771}, {"f_5908:srfi_2d13_2escm",(void*)f_5908}, {"f_4006:srfi_2d13_2escm",(void*)f_4006}, {"f_4000:srfi_2d13_2escm",(void*)f_4000}, {"f_5585:srfi_2d13_2escm",(void*)f_5585}, {"f_5955:srfi_2d13_2escm",(void*)f_5955}, {"f_3395:srfi_2d13_2escm",(void*)f_3395}, {"f_3390:srfi_2d13_2escm",(void*)f_3390}, {"f_4018:srfi_2d13_2escm",(void*)f_4018}, {"f_4012:srfi_2d13_2escm",(void*)f_4012}, {"f_6711:srfi_2d13_2escm",(void*)f_6711}, {"f_5592:srfi_2d13_2escm",(void*)f_5592}, {"f_6996:srfi_2d13_2escm",(void*)f_6996}, {"f_4072:srfi_2d13_2escm",(void*)f_4072}, {"f_4078:srfi_2d13_2escm",(void*)f_4078}, {"f_2974:srfi_2d13_2escm",(void*)f_2974}, {"f_2977:srfi_2d13_2escm",(void*)f_2977}, {"f_5548:srfi_2d13_2escm",(void*)f_5548}, {"f_5914:srfi_2d13_2escm",(void*)f_5914}, {"f_5542:srfi_2d13_2escm",(void*)f_5542}, {"f_2949:srfi_2d13_2escm",(void*)f_2949}, {"f_5554:srfi_2d13_2escm",(void*)f_5554}, {"f_2952:srfi_2d13_2escm",(void*)f_2952}, {"f_5566:srfi_2d13_2escm",(void*)f_5566}, {"f_6984:srfi_2d13_2escm",(void*)f_6984}, {"f_5560:srfi_2d13_2escm",(void*)f_5560}, {"f_5579:srfi_2d13_2escm",(void*)f_5579}, {"f_5576:srfi_2d13_2escm",(void*)f_5576}, {"f_6972:srfi_2d13_2escm",(void*)f_6972}, {"f_5572:srfi_2d13_2escm",(void*)f_5572}, {"toplevel:srfi_2d13_2escm",(void*)C_srfi_2d13_toplevel}, {"f_2931:srfi_2d13_2escm",(void*)f_2931}, {"f_2933:srfi_2d13_2escm",(void*)f_2933}, {"f_2939:srfi_2d13_2escm",(void*)f_2939}, {"f_6978:srfi_2d13_2escm",(void*)f_6978}, {"f_3922:srfi_2d13_2escm",(void*)f_3922}, {"f_2901:srfi_2d13_2escm",(void*)f_2901}, {"f_2911:srfi_2d13_2escm",(void*)f_2911}, {"f_3946:srfi_2d13_2escm",(void*)f_3946}, {"f_5605:srfi_2d13_2escm",(void*)f_5605}, {"f_4453:srfi_2d13_2escm",(void*)f_4453}, {"f_4459:srfi_2d13_2escm",(void*)f_4459}, {"f_4465:srfi_2d13_2escm",(void*)f_4465}, {"f_5612:srfi_2d13_2escm",(void*)f_5612}, {"f_3964:srfi_2d13_2escm",(void*)f_3964}, {"f_7583:srfi_2d13_2escm",(void*)f_7583}, {"f_4435:srfi_2d13_2escm",(void*)f_4435}, {"f_3952:srfi_2d13_2escm",(void*)f_3952}, {"f_3958:srfi_2d13_2escm",(void*)f_3958}, {"f_7595:srfi_2d13_2escm",(void*)f_7595}, {"f_7590:srfi_2d13_2escm",(void*)f_7590}, {"f_5639:srfi_2d13_2escm",(void*)f_5639}, {"f_4441:srfi_2d13_2escm",(void*)f_4441}, {"f_4447:srfi_2d13_2escm",(void*)f_4447}, {"f_3982:srfi_2d13_2escm",(void*)f_3982}, {"f_3988:srfi_2d13_2escm",(void*)f_3988}, {"f_5632:srfi_2d13_2escm",(void*)f_5632}, {"f_5146:srfi_2d13_2escm",(void*)f_5146}, {"f_5140:srfi_2d13_2escm",(void*)f_5140}, {"f_4411:srfi_2d13_2escm",(void*)f_4411}, {"f_4417:srfi_2d13_2escm",(void*)f_4417}, {"f_3970:srfi_2d13_2escm",(void*)f_3970}, {"f_3976:srfi_2d13_2escm",(void*)f_3976}, {"f_5113:srfi_2d13_2escm",(void*)f_5113}, {"f_5119:srfi_2d13_2escm",(void*)f_5119}, {"f_4423:srfi_2d13_2escm",(void*)f_4423}, {"f_4429:srfi_2d13_2escm",(void*)f_4429}, {"f_6844:srfi_2d13_2escm",(void*)f_6844}, {"f_5132:srfi_2d13_2escm",(void*)f_5132}, {"f_4405:srfi_2d13_2escm",(void*)f_4405}, {"f_5101:srfi_2d13_2escm",(void*)f_5101}, {"f_6834:srfi_2d13_2escm",(void*)f_6834}, {"f_5107:srfi_2d13_2escm",(void*)f_5107}, {"f_6863:srfi_2d13_2escm",(void*)f_6863}, {"f_6322:srfi_2d13_2escm",(void*)f_6322}, {"f_4885:srfi_2d13_2escm",(void*)f_4885}, {"f_4882:srfi_2d13_2escm",(void*)f_4882}, {"f_4891:srfi_2d13_2escm",(void*)f_4891}, {"f_7205:srfi_2d13_2escm",(void*)f_7205}, {"f_4744:srfi_2d13_2escm",(void*)f_4744}, {"f_6810:srfi_2d13_2escm",(void*)f_6810}, {"f_5161:srfi_2d13_2escm",(void*)f_5161}, {"f_5167:srfi_2d13_2escm",(void*)f_5167}, {"f_6828:srfi_2d13_2escm",(void*)f_6828}, {"f_4751:srfi_2d13_2escm",(void*)f_4751}, {"f_4759:srfi_2d13_2escm",(void*)f_4759}, {"f_6306:srfi_2d13_2escm",(void*)f_6306}, {"f_6300:srfi_2d13_2escm",(void*)f_6300}, {"f_7223:srfi_2d13_2escm",(void*)f_7223}, {"f_4765:srfi_2d13_2escm",(void*)f_4765}, {"f_7229:srfi_2d13_2escm",(void*)f_7229}, {"f_6374:srfi_2d13_2escm",(void*)f_6374}, {"f_6501:srfi_2d13_2escm",(void*)f_6501}, {"f_5185:srfi_2d13_2escm",(void*)f_5185}, {"f_4249:srfi_2d13_2escm",(void*)f_4249}, {"f_7238:srfi_2d13_2escm",(void*)f_7238}, {"f_4771:srfi_2d13_2escm",(void*)f_4771}, {"f_5152:srfi_2d13_2escm",(void*)f_5152}, {"f_4702:srfi_2d13_2escm",(void*)f_4702}, {"f_4705:srfi_2d13_2escm",(void*)f_4705}, {"f_4708:srfi_2d13_2escm",(void*)f_4708}, {"f_7620:srfi_2d13_2escm",(void*)f_7620}, {"f_6523:srfi_2d13_2escm",(void*)f_6523}, {"f_5125:srfi_2d13_2escm",(void*)f_5125}, {"f_6869:srfi_2d13_2escm",(void*)f_6869}, {"f_4226:srfi_2d13_2escm",(void*)f_4226}, {"f_4272:srfi_2d13_2escm",(void*)f_4272}, {"f_5173:srfi_2d13_2escm",(void*)f_5173}, {"f_4278:srfi_2d13_2escm",(void*)f_4278}, {"f_5179:srfi_2d13_2escm",(void*)f_5179}, {"f_7268:srfi_2d13_2escm",(void*)f_7268}, {"f_4720:srfi_2d13_2escm",(void*)f_4720}, {"f_4726:srfi_2d13_2escm",(void*)f_4726}, {"f_4288:srfi_2d13_2escm",(void*)f_4288}, {"f_7270:srfi_2d13_2escm",(void*)f_7270}, {"f_7277:srfi_2d13_2escm",(void*)f_7277}, {"f_4732:srfi_2d13_2escm",(void*)f_4732}, {"f_4738:srfi_2d13_2escm",(void*)f_4738}, {"f_7650:srfi_2d13_2escm",(void*)f_7650}, {"f_6822:srfi_2d13_2escm",(void*)f_6822}, {"f_6536:srfi_2d13_2escm",(void*)f_6536}, {"f_6361:srfi_2d13_2escm",(void*)f_6361}, {"f_6352:srfi_2d13_2escm",(void*)f_6352}, {"f_7022:srfi_2d13_2escm",(void*)f_7022}, {"f_2678:srfi_2d13_2escm",(void*)f_2678}, {"f_5395:srfi_2d13_2escm",(void*)f_5395}, {"f_2671:srfi_2d13_2escm",(void*)f_2671}, {"f_5780:srfi_2d13_2escm",(void*)f_5780}, {"f_7040:srfi_2d13_2escm",(void*)f_7040}, {"f_7047:srfi_2d13_2escm",(void*)f_7047}, {"f_5792:srfi_2d13_2escm",(void*)f_5792}, {"f_5798:srfi_2d13_2escm",(void*)f_5798}, {"f_2699:srfi_2d13_2escm",(void*)f_2699}, {"f_2693:srfi_2d13_2escm",(void*)f_2693}, {"f_3861:srfi_2d13_2escm",(void*)f_3861}, {"f_3865:srfi_2d13_2escm",(void*)f_3865}, {"f_4203:srfi_2d13_2escm",(void*)f_4203}, {"f_5747:srfi_2d13_2escm",(void*)f_5747}, {"f_5741:srfi_2d13_2escm",(void*)f_5741}, {"f_7009:srfi_2d13_2escm",(void*)f_7009}, {"f_5983:srfi_2d13_2escm",(void*)f_5983}, {"f_5980:srfi_2d13_2escm",(void*)f_5980}, {"f_5755:srfi_2d13_2escm",(void*)f_5755}, {"f_5751:srfi_2d13_2escm",(void*)f_5751}, {NULL,NULL}}; #endif static C_PTABLE_ENTRY *create_ptable(void){ #ifdef C_ENABLE_PTABLES return ptable; #else return NULL; #endif } /* o|eliminated procedure checks: 300 o|specializations: o| 4 (eqv? * (not float)) o| 4 (zero? number) o| 2 (zero? fixnum) o| 2 (string-set! string fixnum char) o| 1 (> fixnum fixnum) o| 1 (char= fixnum fixnum) o| 13 (cdr pair) o| 15 (car pair) o| 2 (string-length string) (o e)|safe calls: 995 (o e)|assignments to immediate values: 2 o|Removed `not' forms: 7 o|inlining procedure: k2476 o|inlining procedure: k2496 o|inlining procedure: k2496 o|inlining procedure: k2530 o|inlining procedure: k2530 o|substituted constant variable: a2552 o|inlining procedure: k2476 o|inlining procedure: k2572 o|inlining procedure: k2572 o|inlining procedure: k2587 o|inlining procedure: k2599 o|inlining procedure: k2611 o|inlining procedure: k2611 o|substituted constant variable: a2628 o|inlining procedure: k2599 o|inlining procedure: k2587 o|contracted procedure: k2636 o|inlining procedure: k2633 o|inlining procedure: k2633 o|inlining procedure: k2673 o|inlining procedure: k2673 o|inlining procedure: k2743 o|inlining procedure: k2743 o|inlining procedure: k2798 o|inlining procedure: k2798 o|inlining procedure: k2843 o|inlining procedure: k2843 o|inlining procedure: k2889 o|inlining procedure: k2889 o|contracted procedure: k2944 o|inlining procedure: k2941 o|inlining procedure: "(srfi-13.scm:447) %string-copy!" o|inlining procedure: k3025 o|inlining procedure: "(srfi-13.scm:445) %string-copy!" o|inlining procedure: k3025 o|inlining procedure: "(srfi-13.scm:438) %string-copy!" o|inlining procedure: "(srfi-13.scm:436) %string-copy!" o|inlining procedure: k2941 o|substituted constant variable: a3053 o|contracted procedure: k3114 o|inlining procedure: k3111 o|inlining procedure: k3198 o|inlining procedure: "(srfi-13.scm:492) %string-copy!" o|inlining procedure: k3198 o|inlining procedure: "(srfi-13.scm:494) %string-copy!" o|inlining procedure: "(srfi-13.scm:485) %string-copy!" o|inlining procedure: "(srfi-13.scm:484) %string-copy!" o|inlining procedure: k3111 o|substituted constant variable: a3230 o|inlining procedure: k3278 o|inlining procedure: k3278 o|inlining procedure: k3319 o|inlining procedure: k3319 o|inlining procedure: k3350 o|inlining procedure: k3365 o|inlining procedure: k3365 o|inlining procedure: k3350 o|inlining procedure: k3400 o|inlining procedure: k3400 o|inlining procedure: k3420 o|inlining procedure: k3444 o|inlining procedure: k3444 o|inlining procedure: k3420 o|inlining procedure: k3480 o|inlining procedure: k3492 o|inlining procedure: k3492 o|inlining procedure: k3480 o|inlining procedure: k3527 o|inlining procedure: k3527 o|inlining procedure: k3550 o|inlining procedure: k3574 o|inlining procedure: k3574 o|inlining procedure: k3550 o|inlining procedure: k3614 o|inlining procedure: k3614 o|inlining procedure: k3644 o|inlining procedure: k3644 o|inlining procedure: k3656 o|inlining procedure: k3656 o|inlining procedure: k3714 o|inlining procedure: k3714 o|inlining procedure: k3734 o|inlining procedure: k3734 o|inlining procedure: k3796 o|inlining procedure: k3796 o|inlining procedure: k3808 o|inlining procedure: k3808 o|inlining procedure: k3869 o|inlining procedure: k3869 o|inlining procedure: k3889 o|inlining procedure: k3889 o|contracted procedure: "(srfi-13.scm:674) %string-prefix?" o|inlining procedure: k4191 o|inlining procedure: k4191 o|contracted procedure: "(srfi-13.scm:679) %string-suffix?" o|inlining procedure: k4214 o|inlining procedure: k4214 o|contracted procedure: "(srfi-13.scm:684) %string-prefix-ci?" o|inlining procedure: k4237 o|inlining procedure: k4237 o|contracted procedure: "(srfi-13.scm:689) %string-suffix-ci?" o|inlining procedure: k4260 o|inlining procedure: k4260 o|inlining procedure: k4289 o|inlining procedure: k4289 o|inlining procedure: k4317 o|inlining procedure: k4317 o|inlining procedure: k4348 o|inlining procedure: k4348 o|inlining procedure: k4376 o|inlining procedure: k4376 o|inlining procedure: k4485 o|inlining procedure: k4506 o|inlining procedure: k4506 o|inlining procedure: k4485 o|inlining procedure: k4556 o|inlining procedure: k4556 o|contracted procedure: k4562 o|inlining procedure: k4571 o|inlining procedure: k4571 o|inlining procedure: k4580 o|inlining procedure: k4580 o|inlining procedure: k4632 o|inlining procedure: k4632 o|inlining procedure: k4647 o|inlining procedure: k4647 o|inlining procedure: k4689 o|inlining procedure: k4689 o|inlining procedure: k4710 o|inlining procedure: k4710 o|inlining procedure: k4746 o|inlining procedure: k4746 o|inlining procedure: k4761 o|inlining procedure: k4761 o|inlining procedure: k4767 o|inlining procedure: k4767 o|inlining procedure: k4806 o|inlining procedure: k4806 o|inlining procedure: k4824 o|inlining procedure: k4824 o|inlining procedure: k4830 o|inlining procedure: k4830 o|inlining procedure: k4866 o|inlining procedure: k4887 o|inlining procedure: k4887 o|inlining procedure: k4866 o|inlining procedure: k4937 o|inlining procedure: k4937 o|contracted procedure: k4943 o|inlining procedure: k4952 o|inlining procedure: k4952 o|inlining procedure: k4961 o|inlining procedure: k4961 o|inlining procedure: k5013 o|inlining procedure: k5013 o|inlining procedure: k5028 o|inlining procedure: k5028 o|inlining procedure: k5070 o|inlining procedure: k5070 o|inlining procedure: k5091 o|inlining procedure: k5091 o|inlining procedure: k5127 o|inlining procedure: k5127 o|inlining procedure: k5142 o|inlining procedure: k5142 o|inlining procedure: k5148 o|inlining procedure: k5148 o|inlining procedure: k5187 o|inlining procedure: k5187 o|inlining procedure: k5205 o|inlining procedure: k5205 o|inlining procedure: k5211 o|inlining procedure: k5211 o|inlining procedure: k5241 o|inlining procedure: k5241 o|inlining procedure: k5276 o|inlining procedure: k5276 o|inlining procedure: k5492 o|inlining procedure: k5492 o|contracted procedure: "(srfi-13.scm:984) g12351236" o|inlining procedure: k5478 o|inlining procedure: k5478 o|inlining procedure: k5705 o|inlining procedure: k5705 o|inlining procedure: k5752 o|inlining procedure: k5752 o|inlining procedure: k5803 o|inlining procedure: k5803 o|inlining procedure: k5861 o|inlining procedure: k5861 o|inlining procedure: "(srfi-13.scm:1089) %string-copy!" o|inlining procedure: k5919 o|inlining procedure: k5919 o|inlining procedure: "(srfi-13.scm:1100) %string-copy!" o|inlining procedure: k5969 o|inlining procedure: k5996 o|inlining procedure: k5996 o|inlining procedure: k5969 o|inlining procedure: k6023 o|inlining procedure: k6023 o|inlining procedure: k6038 o|inlining procedure: k6038 o|inlining procedure: k6050 o|inlining procedure: k6050 o|inlining procedure: k6077 o|inlining procedure: k6104 o|inlining procedure: k6104 o|inlining procedure: k6077 o|inlining procedure: k6131 o|inlining procedure: k6131 o|inlining procedure: k6146 o|inlining procedure: k6146 o|inlining procedure: k6158 o|inlining procedure: k6158 o|inlining procedure: k6185 o|inlining procedure: k6197 o|inlining procedure: k6197 o|inlining procedure: k6185 o|inlining procedure: k6232 o|inlining procedure: k6232 o|inlining procedure: k6255 o|inlining procedure: k6267 o|inlining procedure: k6267 o|inlining procedure: k6255 o|inlining procedure: k6308 o|inlining procedure: k6324 o|inlining procedure: k6324 o|inlining procedure: k6308 o|inlining procedure: k6363 o|inlining procedure: k6363 o|inlining procedure: k6386 o|inlining procedure: k6402 o|inlining procedure: k6402 o|inlining procedure: k6386 o|inlining procedure: k6443 o|inlining procedure: k6455 o|inlining procedure: k6455 o|inlining procedure: k6443 o|inlining procedure: k6490 o|inlining procedure: k6490 o|inlining procedure: k6513 o|inlining procedure: k6525 o|inlining procedure: k6525 o|inlining procedure: k6513 o|inlining procedure: k6566 o|inlining procedure: k6582 o|inlining procedure: k6582 o|inlining procedure: k6566 o|inlining procedure: k6621 o|inlining procedure: k6621 o|inlining procedure: k6644 o|inlining procedure: k6660 o|inlining procedure: k6660 o|inlining procedure: k6644 o|inlining procedure: k6701 o|inlining procedure: k6713 o|inlining procedure: k6713 o|inlining procedure: k6727 o|inlining procedure: k6727 o|inlining procedure: k6701 o|inlining procedure: k6752 o|inlining procedure: k6752 o|inlining procedure: k6766 o|inlining procedure: k6766 o|inlining procedure: k6779 o|inlining procedure: k6791 o|inlining procedure: k6791 o|inlining procedure: k6805 o|inlining procedure: k6805 o|inlining procedure: k6779 o|inlining procedure: k6846 o|inlining procedure: k6846 o|inlining procedure: "(srfi-13.scm:1318) %string-copy!" o|inlining procedure: k6936 o|inlining procedure: k6936 o|inlining procedure: k6998 o|inlining procedure: k6998 o|inlining procedure: k7048 o|inlining procedure: k7066 o|inlining procedure: k7078 o|inlining procedure: k7101 o|inlining procedure: k7101 o|inlining procedure: k7078 o|inlining procedure: k7066 o|inlining procedure: k7048 o|substituted constant variable: a7153 o|inlining procedure: k7175 o|inlining procedure: k7175 o|inlining procedure: k7240 o|inlining procedure: k7240 o|inlining procedure: k7272 o|inlining procedure: k7272 o|inlining procedure: k7359 o|inlining procedure: k7359 o|inlining procedure: k7408 o|inlining procedure: k7408 o|inlining procedure: k7462 o|inlining procedure: k7462 o|inlining procedure: k7498 o|inlining procedure: k7526 o|inlining procedure: k7526 o|inlining procedure: k7498 o|inlining procedure: k7536 o|inlining procedure: k7536 o|inlining procedure: k7552 o|inlining procedure: "(srfi-13.scm:1587) %string-copy!" o|inlining procedure: k7552 o|inlining procedure: k7597 o|inlining procedure: "(srfi-13.scm:1606) %string-copy!" o|inlining procedure: k7597 o|contracted procedure: k7625 o|inlining procedure: k7622 o|inlining procedure: k7622 o|inlining procedure: k7676 o|inlining procedure: k7676 o|inlining procedure: k7748 o|inlining procedure: k7765 o|inlining procedure: k7765 o|inlining procedure: k7748 o|inlining procedure: k7788 o|inlining procedure: k7788 o|inlining procedure: k7856 o|inlining procedure: "(srfi-13.scm:1671) %string-copy!" o|inlining procedure: k7856 o|inlining procedure: "(srfi-13.scm:1664) %string-copy!" o|inlining procedure: "(srfi-13.scm:1691) %string-copy!" o|inlining procedure: "(srfi-13.scm:1690) %string-copy!" o|inlining procedure: "(srfi-13.scm:1689) %string-copy!" o|inlining procedure: k7972 o|inlining procedure: k7972 o|inlining procedure: k7961 o|inlining procedure: k7961 o|inlining procedure: k8035 o|inlining procedure: k8035 o|inlining procedure: k8085 o|inlining procedure: k8085 o|inlining procedure: k8096 o|inlining procedure: k8096 o|inlining procedure: k8128 o|inlining procedure: k8128 o|inlining procedure: k8185 o|inlining procedure: k8185 o|inlining procedure: k8195 o|inlining procedure: k8195 o|inlining procedure: k8245 o|inlining procedure: "(srfi-13.scm:1858) %string-copy!" o|inlining procedure: k8245 o|inlining procedure: "(srfi-13.scm:1860) %string-copy!" o|inlining procedure: "(srfi-13.scm:1847) %string-copy!" o|inlining procedure: k8307 o|inlining procedure: k8307 o|inlining procedure: k8328 o|inlining procedure: k8338 o|inlining procedure: k8338 o|inlining procedure: k8367 o|inlining procedure: k8367 o|substituted constant variable: a8392 o|substituted constant variable: a8394 o|substituted constant variable: a8399 o|substituted constant variable: a8401 o|inlining procedure: k8328 o|contracted procedure: k8405 o|inlining procedure: k8411 o|inlining procedure: k8411 o|replaced variables: 952 o|removed binding forms: 258 o|substituted constant variable: r26128459 o|substituted constant variable: r26008460 o|substituted constant variable: r25888461 o|substituted constant variable: fstart16298479 o|substituted constant variable: tstart16278477 o|substituted constant variable: fstart16298486 o|substituted constant variable: fstart16298493 o|substituted constant variable: fstart16298499 o|substituted constant variable: fstart16298508 o|substituted constant variable: fstart16298515 o|substituted constant variable: fstart16298527 o|substituted constant variable: tstart16278525 o|substituted constant variable: r34938546 o|substituted constant variable: r35288549 o|substituted constant variable: r41928573 o|substituted constant variable: r42158575 o|substituted constant variable: r42388577 o|substituted constant variable: r42618579 o|inlining procedure: k4295 o|inlining procedure: k4295 o|inlining procedure: k4354 o|inlining procedure: k4354 o|substituted constant variable: r45078589 o|substituted constant variable: r45078590 o|substituted constant variable: r44868591 o|substituted constant variable: r45728594 o|substituted constant variable: r45728595 o|substituted constant variable: r45818596 o|substituted constant variable: r45818597 o|substituted constant variable: r46488600 o|substituted constant variable: r46488601 o|substituted constant variable: r47118604 o|substituted constant variable: r47118605 o|substituted constant variable: r47628608 o|substituted constant variable: r47628609 o|substituted constant variable: r47688610 o|substituted constant variable: r47688611 o|substituted constant variable: r48258614 o|substituted constant variable: r48258615 o|substituted constant variable: r48318616 o|substituted constant variable: r48318617 o|substituted constant variable: r48888619 o|substituted constant variable: r48888620 o|substituted constant variable: r48678621 o|substituted constant variable: r49538624 o|substituted constant variable: r49538625 o|substituted constant variable: r49628626 o|substituted constant variable: r49628627 o|substituted constant variable: r50298630 o|substituted constant variable: r50298631 o|substituted constant variable: r50928634 o|substituted constant variable: r50928635 o|substituted constant variable: r51438638 o|substituted constant variable: r51438639 o|substituted constant variable: r51498640 o|substituted constant variable: r51498641 o|substituted constant variable: r52068644 o|substituted constant variable: r52068645 o|substituted constant variable: r52128646 o|substituted constant variable: r52128647 o|substituted constant variable: r57068657 o|substituted constant variable: r57538659 o|substituted constant variable: r58048661 o|substituted constant variable: tstart16278666 o|substituted constant variable: r61988700 o|substituted constant variable: r62338703 o|substituted constant variable: r62688706 o|substituted constant variable: r63258710 o|substituted constant variable: r63648713 o|substituted constant variable: r64038716 o|substituted constant variable: r64568720 o|substituted constant variable: r64918723 o|substituted constant variable: r65268726 o|substituted constant variable: r65838730 o|substituted constant variable: r66228733 o|substituted constant variable: r66618736 o|removed side-effect free assignment to unused variable: %string-copy! o|substituted constant variable: r69378769 o|substituted constant variable: r69998771 o|substituted constant variable: r71028776 o|substituted constant variable: r71028776 o|substituted constant variable: r71028778 o|substituted constant variable: r71028778 o|substituted constant variable: fstart16298809 o|substituted constant variable: fstart16298817 o|substituted constant variable: fstart16298841 o|substituted constant variable: fstart16298848 o|substituted constant variable: fstart16298866 o|substituted constant variable: tstart16278864 o|substituted constant variable: r80868874 o|removed side-effect free assignment to unused variable: ##srfi13#string-fill! o|substituted constant variable: r84128915 o|replaced variables: 81 o|removed binding forms: 1003 o|inlining procedure: k3019 o|inlining procedure: k3039 o|inlining procedure: k5877 o|inlining procedure: k5935 o|inlining procedure: k7870 o|inlining procedure: k7916 o|replaced variables: 14 o|removed binding forms: 180 o|contracted procedure: k3007 o|contracted procedure: k3013 o|contracted procedure: k3182 o|contracted procedure: k3185 o|contracted procedure: k3209 o|contracted procedure: k7562 o|contracted procedure: k7607 o|contracted procedure: k7847 o|contracted procedure: k7910 o|contracted procedure: k7913 o|contracted procedure: k8223 o|contracted procedure: k8266 o|removed binding forms: 34 o|replaced variables: 14 o|removed binding forms: 7 o|simplifications: ((if . 66) (##core#call . 738)) o| call simplifications: o| list o| quotient o| vector-length o| fx> o| vector-ref 3 o| add1 o| vector-set! 3 o| fx- 4 o| fx+ 8 o| char-upcase o| char-alphabetic? 2 o| char-downcase o| char->integer o| * o| fxand o| eq? 23 o| not 6 o| char? 9 o| procedure? 9 o| char=? 7 o| > 3 o| cdr 24 o| cons 9 o| < 23 o| - 104 o| >= 20 o| string-ref 53 o| string-set! 14 o| + 93 o| zero? 7 o| = 45 o| string-length 22 o| null? 44 o| car 27 o| ##sys#check-exact 13 o| string? o| ##sys#check-string 5 o| ##sys#size 9 o| fx>= o| ##sys#call-with-values 92 o| <= 10 o| pair? 16 o| fixnum? 4 o| fx<= 6 o| values 9 o|contracted procedure: k2470 o|contracted procedure: k2473 o|contracted procedure: k2479 o|contracted procedure: k2545 o|contracted procedure: k2487 o|contracted procedure: k2499 o|contracted procedure: k2516 o|contracted procedure: k2507 o|contracted procedure: k2533 o|contracted procedure: k2575 o|contracted procedure: k2590 o|contracted procedure: k2596 o|contracted procedure: k2602 o|contracted procedure: k2608 o|contracted procedure: k2614 o|contracted procedure: k2622 o|contracted procedure: k2649 o|contracted procedure: k2664 o|contracted procedure: k2652 o|contracted procedure: k2655 o|contracted procedure: k2682 o|contracted procedure: k2689 o|contracted procedure: k2731 o|contracted procedure: k2746 o|contracted procedure: k2749 o|contracted procedure: k2756 o|contracted procedure: k2760 o|contracted procedure: k2768 o|contracted procedure: k2801 o|contracted procedure: k2804 o|contracted procedure: k2811 o|contracted procedure: k2819 o|contracted procedure: k2846 o|contracted procedure: k2857 o|contracted procedure: k2861 o|contracted procedure: k2883 o|contracted procedure: k2892 o|contracted procedure: k2903 o|contracted procedure: k2907 o|contracted procedure: k3074 o|contracted procedure: k2913 o|contracted procedure: k3068 o|contracted procedure: k2916 o|contracted procedure: k3060 o|contracted procedure: k2919 o|contracted procedure: k3054 o|contracted procedure: k2922 o|contracted procedure: k2995 o|contracted procedure: k2998 o|contracted procedure: k3001 o|contracted procedure: k3010 o|contracted procedure: k3028 o|contracted procedure: k3033 o|contracted procedure: k3036 o|contracted procedure: k3046 o|contracted procedure: k2956 o|contracted procedure: k2959 o|contracted procedure: k2966 o|contracted procedure: k2969 o|contracted procedure: k2978 o|contracted procedure: k2985 o|contracted procedure: k2989 o|contracted procedure: k3251 o|contracted procedure: k3083 o|contracted procedure: k3245 o|contracted procedure: k3086 o|contracted procedure: k3237 o|contracted procedure: k3089 o|contracted procedure: k3231 o|contracted procedure: k3092 o|contracted procedure: k3167 o|contracted procedure: k3170 o|contracted procedure: k3173 o|contracted procedure: k3176 o|contracted procedure: k3192 o|contracted procedure: k3201 o|contracted procedure: k3206 o|contracted procedure: k3216 o|contracted procedure: k3223 o|contracted procedure: k3126 o|substituted constant variable: g9830 o|contracted procedure: k3129 o|contracted procedure: k3132 o|contracted procedure: k3138 o|contracted procedure: k3147 o|contracted procedure: k3150 o|contracted procedure: k3157 o|contracted procedure: k3161 o|contracted procedure: k3281 o|contracted procedure: k3291 o|contracted procedure: k3295 o|contracted procedure: k3322 o|contracted procedure: k3332 o|contracted procedure: k3353 o|contracted procedure: k3362 o|contracted procedure: k3382 o|contracted procedure: k3371 o|contracted procedure: k3378 o|contracted procedure: k3397 o|contracted procedure: k3413 o|contracted procedure: k3417 o|contracted procedure: k3423 o|contracted procedure: k3426 o|contracted procedure: k3438 o|contracted procedure: k3441 o|contracted procedure: k3447 o|contracted procedure: k3483 o|contracted procedure: k3495 o|contracted procedure: k3512 o|contracted procedure: k3498 o|contracted procedure: k3508 o|contracted procedure: k3530 o|contracted procedure: k3543 o|contracted procedure: k3547 o|contracted procedure: k3553 o|contracted procedure: k3559 o|contracted procedure: k3568 o|contracted procedure: k3571 o|contracted procedure: k3577 o|contracted procedure: k3598 o|contracted procedure: k3608 o|contracted procedure: k3617 o|substituted constant variable: g9872 o|contracted procedure: k3620 o|contracted procedure: k3627 o|contracted procedure: k3641 o|contracted procedure: k3659 o|contracted procedure: k3672 o|contracted procedure: k3676 o|contracted procedure: k3684 o|contracted procedure: k3688 o|contracted procedure: k3691 o|contracted procedure: k3698 o|contracted procedure: k3702 o|contracted procedure: k3711 o|contracted procedure: k3724 o|contracted procedure: k3728 o|contracted procedure: k3737 o|contracted procedure: k3747 o|contracted procedure: k3754 o|contracted procedure: k3758 o|contracted procedure: k3766 o|contracted procedure: k3770 o|contracted procedure: k3773 o|contracted procedure: k3780 o|contracted procedure: k3784 o|contracted procedure: k3793 o|contracted procedure: k3811 o|contracted procedure: k3824 o|contracted procedure: k3828 o|contracted procedure: k3839 o|contracted procedure: k3843 o|contracted procedure: k3846 o|contracted procedure: k3853 o|contracted procedure: k3857 o|contracted procedure: k3866 o|contracted procedure: k3879 o|contracted procedure: k3883 o|contracted procedure: k3892 o|contracted procedure: k3902 o|contracted procedure: k3909 o|contracted procedure: k3913 o|contracted procedure: k3924 o|contracted procedure: k3928 o|contracted procedure: k3931 o|contracted procedure: k3938 o|contracted procedure: k3942 o|contracted procedure: k4188 o|contracted procedure: k4205 o|contracted procedure: k4194 o|contracted procedure: k4211 o|contracted procedure: k4228 o|contracted procedure: k4217 o|contracted procedure: k4234 o|contracted procedure: k4251 o|contracted procedure: k4240 o|contracted procedure: k4257 o|contracted procedure: k4274 o|contracted procedure: k4263 o|contracted procedure: k4280 o|contracted procedure: k4283 o|contracted procedure: k4292 o|contracted procedure: k4301 o|contracted procedure: k4311 o|contracted procedure: k4314 o|contracted procedure: k4333 o|contracted procedure: k4321 o|contracted procedure: k4329 o|contracted procedure: k4325 o|contracted procedure: k4339 o|contracted procedure: k4342 o|contracted procedure: k4351 o|contracted procedure: k4360 o|contracted procedure: k4370 o|contracted procedure: k4373 o|contracted procedure: k4395 o|contracted procedure: k4383 o|contracted procedure: k4391 o|contracted procedure: k4387 o|contracted procedure: k4519 o|contracted procedure: k4523 o|contracted procedure: k4488 o|contracted procedure: k4512 o|contracted procedure: k4598 o|contracted procedure: k4602 o|contracted procedure: k4594 o|contracted procedure: k4553 o|contracted procedure: k4587 o|contracted procedure: k4656 o|contracted procedure: k4713 o|contracted procedure: k4773 o|contracted procedure: k4833 o|contracted procedure: k4900 o|contracted procedure: k4904 o|contracted procedure: k4869 o|contracted procedure: k4893 o|contracted procedure: k4979 o|contracted procedure: k4983 o|contracted procedure: k4975 o|contracted procedure: k4934 o|contracted procedure: k4968 o|contracted procedure: k5037 o|contracted procedure: k5094 o|contracted procedure: k5154 o|contracted procedure: k5214 o|contracted procedure: k5229 o|contracted procedure: k5244 o|contracted procedure: k5254 o|contracted procedure: k5266 o|contracted procedure: k5262 o|contracted procedure: k5258 o|contracted procedure: k5279 o|contracted procedure: k5289 o|contracted procedure: k5332 o|contracted procedure: k5295 o|contracted procedure: k5326 o|contracted procedure: k5298 o|contracted procedure: k5304 o|contracted procedure: k5322 o|contracted procedure: k5388 o|contracted procedure: k5341 o|contracted procedure: k5382 o|contracted procedure: k5344 o|contracted procedure: k5350 o|contracted procedure: k5375 o|contracted procedure: k5378 o|contracted procedure: k5529 o|contracted procedure: k5525 o|contracted procedure: k5483 o|contracted procedure: k5486 o|contracted procedure: k5504 o|contracted procedure: k5581 o|contracted procedure: k5587 o|contracted procedure: k5601 o|contracted procedure: k5597 o|contracted procedure: k5607 o|contracted procedure: k5613 o|contracted procedure: k5620 o|contracted procedure: k5628 o|contracted procedure: k5624 o|contracted procedure: k5634 o|contracted procedure: k5640 o|contracted procedure: k5651 o|contracted procedure: k5647 o|contracted procedure: k5657 o|contracted procedure: k5663 o|contracted procedure: k5670 o|contracted procedure: k5678 o|contracted procedure: k5674 o|contracted procedure: k5722 o|contracted procedure: k5684 o|contracted procedure: k5716 o|contracted procedure: k5687 o|contracted procedure: k5773 o|contracted procedure: k5731 o|contracted procedure: k5767 o|contracted procedure: k5734 o|contracted procedure: k5761 o|contracted procedure: k5828 o|contracted procedure: k5782 o|contracted procedure: k5822 o|contracted procedure: k5785 o|contracted procedure: k5812 o|contracted procedure: k5837 o|contracted procedure: k5886 o|contracted procedure: k5840 o|contracted procedure: k5880 o|contracted procedure: k5843 o|contracted procedure: k5858 o|contracted procedure: k5864 o|contracted procedure: k5871 o|contracted procedure: k5895 o|contracted procedure: k5948 o|contracted procedure: k5898 o|contracted procedure: k5942 o|contracted procedure: k5901 o|contracted procedure: k5916 o|contracted procedure: k5922 o|contracted procedure: k5929 o|contracted procedure: k5939 o|contracted procedure: k5972 o|contracted procedure: k5975 o|contracted procedure: k5987 o|contracted procedure: k6002 o|contracted procedure: k6029 o|contracted procedure: k6053 o|contracted procedure: k6080 o|contracted procedure: k6083 o|contracted procedure: k6095 o|contracted procedure: k6110 o|contracted procedure: k6137 o|contracted procedure: k6161 o|contracted procedure: k6188 o|contracted procedure: k6200 o|contracted procedure: k6217 o|contracted procedure: k6206 o|contracted procedure: k6213 o|contracted procedure: k6235 o|contracted procedure: k6248 o|contracted procedure: k6252 o|contracted procedure: k6258 o|contracted procedure: k6270 o|contracted procedure: k6283 o|contracted procedure: k6287 o|contracted procedure: k6311 o|contracted procedure: k6318 o|contracted procedure: k6327 o|contracted procedure: k6344 o|contracted procedure: k6333 o|contracted procedure: k6340 o|contracted procedure: k6357 o|contracted procedure: k6366 o|contracted procedure: k6379 o|contracted procedure: k6383 o|contracted procedure: k6389 o|contracted procedure: k6396 o|contracted procedure: k6405 o|contracted procedure: k6418 o|contracted procedure: k6422 o|contracted procedure: k6446 o|contracted procedure: k6458 o|contracted procedure: k6475 o|contracted procedure: k6464 o|contracted procedure: k6471 o|contracted procedure: k6493 o|contracted procedure: k6506 o|contracted procedure: k6510 o|contracted procedure: k6516 o|contracted procedure: k6528 o|contracted procedure: k6541 o|contracted procedure: k6545 o|contracted procedure: k6569 o|contracted procedure: k6576 o|contracted procedure: k6585 o|contracted procedure: k6602 o|contracted procedure: k6591 o|contracted procedure: k6598 o|contracted procedure: k6615 o|contracted procedure: k6624 o|contracted procedure: k6637 o|contracted procedure: k6641 o|contracted procedure: k6647 o|contracted procedure: k6654 o|contracted procedure: k6663 o|contracted procedure: k6676 o|contracted procedure: k6680 o|contracted procedure: k6704 o|contracted procedure: k6716 o|contracted procedure: k6723 o|contracted procedure: k6737 o|contracted procedure: k6730 o|contracted procedure: k6727 o|contracted procedure: k6755 o|contracted procedure: k6762 o|contracted procedure: k6766 o|contracted procedure: k6776 o|contracted procedure: k6782 o|contracted procedure: k6794 o|contracted procedure: k6801 o|contracted procedure: k6805 o|contracted procedure: k6815 o|contracted procedure: k6840 o|contracted procedure: k6849 o|contracted procedure: k6852 o|contracted procedure: k6859 o|contracted procedure: k6877 o|contracted procedure: k6891 o|contracted procedure: k6887 o|contracted procedure: k6924 o|contracted procedure: k6927 o|contracted procedure: k6939 o|contracted procedure: k6952 o|contracted procedure: k6956 o|contracted procedure: k6986 o|contracted procedure: k6989 o|contracted procedure: k7001 o|contracted procedure: k7014 o|contracted procedure: k7018 o|contracted procedure: k7160 o|contracted procedure: k7024 o|contracted procedure: k7154 o|contracted procedure: k7027 o|contracted procedure: k7042 o|contracted procedure: k7051 o|contracted procedure: k7054 o|contracted procedure: k7057 o|contracted procedure: k7069 o|contracted procedure: k7081 o|substituted constant variable: g10062 o|contracted procedure: k7084 o|contracted procedure: k7108 o|contracted procedure: k7087 o|contracted procedure: k7090 o|contracted procedure: k7097 o|contracted procedure: k7117 o|contracted procedure: k7120 o|contracted procedure: k7123 o|contracted procedure: k7130 o|contracted procedure: k7137 o|contracted procedure: k7141 o|contracted procedure: k7149 o|contracted procedure: k7145 o|contracted procedure: k7184 o|contracted procedure: k7190 o|substituted constant variable: g10070 o|contracted procedure: k7201 o|contracted procedure: k7197 o|contracted procedure: k7319 o|contracted procedure: k7207 o|contracted procedure: k7313 o|contracted procedure: k7210 o|contracted procedure: k7307 o|contracted procedure: k7213 o|contracted procedure: k7301 o|contracted procedure: k7216 o|contracted procedure: k7231 o|contracted procedure: k7243 o|contracted procedure: k7252 o|contracted procedure: k7255 o|contracted procedure: k7262 o|contracted procedure: k7281 o|contracted procedure: k7287 o|substituted constant variable: g10074 o|contracted procedure: k7298 o|contracted procedure: k7294 o|contracted procedure: k7343 o|contracted procedure: k7353 o|contracted procedure: k7362 o|substituted constant variable: g10084 o|contracted procedure: k7380 o|contracted procedure: k7365 o|contracted procedure: k7372 o|contracted procedure: k7376 o|contracted procedure: k7402 o|contracted procedure: k7411 o|contracted procedure: k7414 o|contracted procedure: k7420 o|contracted procedure: k7430 o|contracted procedure: k7434 o|contracted procedure: k7456 o|contracted procedure: k7465 o|contracted procedure: k7472 o|contracted procedure: k7480 o|contracted procedure: k7476 o|contracted procedure: k7501 o|contracted procedure: k7506 o|contracted procedure: k7512 o|contracted procedure: k7522 o|contracted procedure: k7533 o|contracted procedure: k7579 o|contracted procedure: k7575 o|contracted procedure: k7539 o|contracted procedure: k7555 o|contracted procedure: k7559 o|contracted procedure: k7571 o|contracted procedure: k7600 o|contracted procedure: k7604 o|contracted procedure: k7614 o|contracted procedure: k7646 o|contracted procedure: k7632 o|contracted procedure: k7640 o|contracted procedure: k7636 o|contracted procedure: k7718 o|contracted procedure: k7652 o|contracted procedure: k7712 o|contracted procedure: k7655 o|contracted procedure: k7703 o|contracted procedure: k7658 o|contracted procedure: k7697 o|contracted procedure: k7661 o|contracted procedure: k7664 o|contracted procedure: k7679 o|contracted procedure: k7692 o|contracted procedure: k7686 o|contracted procedure: k7835 o|contracted procedure: k7727 o|contracted procedure: k7829 o|contracted procedure: k7730 o|contracted procedure: k7820 o|contracted procedure: k7733 o|contracted procedure: k7814 o|contracted procedure: k7736 o|contracted procedure: k7739 o|contracted procedure: k7751 o|contracted procedure: k7754 o|contracted procedure: k7761 o|contracted procedure: k7770 o|contracted procedure: k7782 o|contracted procedure: k7800 o|contracted procedure: k7811 o|contracted procedure: k7807 o|contracted procedure: k7859 o|contracted procedure: k7864 o|contracted procedure: k7867 o|contracted procedure: k7877 o|contracted procedure: k7898 o|contracted procedure: k7901 o|contracted procedure: k7928 o|contracted procedure: k7924 o|contracted procedure: k7904 o|contracted procedure: k7920 o|contracted procedure: k8017 o|contracted procedure: k7934 o|contracted procedure: k8011 o|contracted procedure: k7937 o|contracted procedure: k7966 o|contracted procedure: k7981 o|contracted procedure: k7989 o|contracted procedure: k8005 o|contracted procedure: k8026 o|contracted procedure: k8038 o|contracted procedure: k8051 o|contracted procedure: k8057 o|contracted procedure: k8060 o|contracted procedure: k8066 o|contracted procedure: k8073 o|contracted procedure: k8079 o|contracted procedure: k8082 o|contracted procedure: k8099 o|substituted constant variable: g10117 o|contracted procedure: k8106 o|contracted procedure: k8119 o|contracted procedure: k8131 o|contracted procedure: k8144 o|contracted procedure: k8150 o|contracted procedure: k8153 o|contracted procedure: k8159 o|contracted procedure: k8166 o|contracted procedure: k8172 o|contracted procedure: k8175 o|contracted procedure: k8178 o|contracted procedure: k8198 o|substituted constant variable: g10119 o|contracted procedure: k8205 o|contracted procedure: k8214 o|contracted procedure: k8217 o|contracted procedure: k8220 o|contracted procedure: k8226 o|contracted procedure: k8229 o|contracted procedure: k8232 o|contracted procedure: k8239 o|contracted procedure: k8248 o|contracted procedure: k8263 o|contracted procedure: k8259 o|contracted procedure: k8255 o|contracted procedure: k8273 o|contracted procedure: k8277 o|contracted procedure: k8442 o|contracted procedure: k8287 o|contracted procedure: k8436 o|contracted procedure: k8290 o|contracted procedure: k8430 o|contracted procedure: k8293 o|contracted procedure: k8424 o|contracted procedure: k8296 o|contracted procedure: k8310 o|contracted procedure: k8317 o|contracted procedure: k8331 o|contracted procedure: k8341 o|contracted procedure: k8344 o|inlining procedure: k8338 o|contracted procedure: k8361 o|contracted procedure: k8370 o|inlining procedure: k8338 o|contracted procedure: k8385 o|contracted procedure: k8421 o|contracted procedure: k8414 o|simplifications: ((let . 91)) o|replaced variables: 59 o|removed binding forms: 577 o|inlining procedure: k4304 o|inlining procedure: k4304 o|inlining procedure: k4304 o|inlining procedure: k4363 o|inlining procedure: k4363 o|inlining procedure: k4363 o|replaced variables: 210 o|removed binding forms: 67 o|replaced variables: 10 o|removed binding forms: 101 o|replaced variables: 8 o|removed binding forms: 10 o|removed binding forms: 1 o|direct leaf routine/allocation: lp304 0 o|direct leaf routine/allocation: lp413 0 o|direct leaf routine/allocation: lp449 0 o|direct leaf routine/allocation: lp1141 0 o|direct leaf routine/allocation: lp1484 0 o|direct leaf routine/allocation: lp1509 0 o|direct leaf routine/allocation: lp1534 0 o|direct leaf routine/allocation: lp1559 0 o|direct leaf routine/allocation: doloop15841585 0 o|direct leaf routine/allocation: doloop16081609 0 o|direct leaf routine/allocation: doloop17781779 0 o|direct leaf routine/allocation: doloop17931794 0 o|direct leaf routine/allocation: lp1833 0 o|direct leaf routine/allocation: lp1851 0 o|direct leaf routine/allocation: doloop18451846 0 o|direct leaf routine/allocation: lp1873 0 o|direct leaf routine/allocation: lp1912 0 o|contracted procedure: k3016 o|converted assignments to bindings: (lp304) o|converted assignments to bindings: (lp413) o|converted assignments to bindings: (lp449) o|contracted procedure: k5232 o|converted assignments to bindings: (lp1141) o|converted assignments to bindings: (lp1484) o|converted assignments to bindings: (lp1509) o|converted assignments to bindings: (lp1534) o|converted assignments to bindings: (lp1559) o|converted assignments to bindings: (doloop15841585) o|converted assignments to bindings: (doloop16081609) o|contracted procedure: k7349 o|converted assignments to bindings: (doloop17781779) o|converted assignments to bindings: (doloop17931794) o|contracted procedure: k7546 o|converted assignments to bindings: (lp1833) o|contracted procedure: k7585 o|contracted procedure: k7591 o|converted assignments to bindings: (lp1851) o|converted assignments to bindings: (doloop18451846) o|contracted procedure: k7667 o|converted assignments to bindings: (lp1873) o|contracted procedure: k7850 o|converted assignments to bindings: (lp1912) o|simplifications: ((let . 17)) o|removed binding forms: 8 o|replaced variables: 4 o|removed binding forms: 2 o|customizable procedures: (buildit2071 recur2074 doloop20512052 %multispan-repcopy! g19691970 g19791980 lp1959 k7791 lp1891 %finish-string-concatenate-reverse lp1818 doloop18091810 lp21761 lp1753 lp1728 lp21706 lp11702 lp1679 lp1653 doloop15941595 doloop15891590 lp1567 lp1563 lp1542 lp1538 lp1517 lp1513 lp1492 lp1488 g13681369 g13421343 g13161317 %string-titlecase! g12321233 g12461247 lp1223 k5347 k5301 %string-hash iref1137 lp1144 k5190 k5130 k5073 k5016 k4965 k4872 k4809 k4749 k4692 k4635 k4584 k4491 %string-compare-ci %string-compare %string-suffix-length-ci %string-prefix-length-ci %string-suffix-length %string-prefix-length k3872 k3895 lp544 k3799 k3814 lp527 k3717 k3740 lp510 k3647 k3662 lp493 doloop476477 lp464 lp456 lp430 lp420 lp396 lp383 lp336 lp2343 lp361 lp281 lp2288 lp260 lp246 doloop231232 %string-map! doloop210211 %string-map k2676 %substring/shared) o|calls to known targets: 206 o|identified direct recursive calls: f_3023 1 o|identified direct recursive calls: f_3196 1 o|identified direct recursive calls: f_3360 1 o|identified direct recursive calls: f_3490 1 o|identified direct recursive calls: f_5274 1 o|identified direct recursive calls: f_6195 1 o|identified direct recursive calls: f_6322 1 o|identified direct recursive calls: f_6453 1 o|identified direct recursive calls: f_6580 1 o|identified direct recursive calls: f_6711 2 o|identified direct recursive calls: f_6844 1 o|identified direct recursive calls: f_7357 1 o|identified direct recursive calls: f_7406 1 o|identified direct recursive calls: f_7460 1 o|identified direct recursive calls: f_7550 1 o|identified direct recursive calls: f_7496 3 o|identified direct recursive calls: f_7620 1 o|identified direct recursive calls: f_7595 1 o|identified direct recursive calls: f_7674 1 o|identified direct recursive calls: f_7746 2 o|identified direct recursive calls: f_7854 1 o|identified direct recursive calls: f_8243 1 o|identified direct recursive calls: f_8305 1 o|fast box initializations: 45 o|fast global references: 48 o|fast global assignments: 13 o|dropping unused closure argument: f_3636 o|dropping unused closure argument: f_2729 o|dropping unused closure argument: f_7842 o|dropping unused closure argument: f_3706 o|dropping unused closure argument: f_4337 o|dropping unused closure argument: f_5467 o|dropping unused closure argument: f_2790 o|dropping unused closure argument: f_3788 o|dropping unused closure argument: f_8212 o|dropping unused closure argument: f_7674 o|dropping unused closure argument: f_5221 o|dropping unused closure argument: f_7620 o|dropping unused closure argument: f_4278 o|dropping unused closure argument: f_2671 o|dropping unused closure argument: f_3861 */ /* end of file */