/* Generated from support.scm by the CHICKEN compiler
   http://www.call-cc.org
   Version 6.0.0 (rev eeeb4bfb)
   openbsd-unix-clang-x86-64 [ 64bit dload ptables ]
   command line: support.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -feature debugbuild -verbose -specialize -consult-types-file ./types.db -no-lambda-info -emit-import-library chicken.compiler.support -output-file support.c
   unit: support
   uses: eval expand data-structures port pathname internal extras file library
*/
#include "chicken.h"

static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_eval_toplevel)
C_extern void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_expand_toplevel)
C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_data_2dstructures_toplevel)
C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_port_toplevel)
C_extern void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_pathname_toplevel)
C_extern void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_internal_toplevel)
C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_extras_toplevel)
C_extern void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_file_toplevel)
C_extern void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_library_toplevel)
C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;

static C_word lf[534];
static double C_possibly_force_alignment;


#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
C_regparm static C_word stub4159(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_word lit=(C_word )(C_a0);
return(C_header_size(lit));
C_ret:
#undef return

return C_r;}

/* from k7112 */
C_regparm static C_word stub925(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
C_r=C_fix((C_word)C_wordstobytes(t0));
return C_r;}

/* from k7105 */
C_regparm static C_word stub920(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
C_r=C_fix((C_word)C_bytestowords(t0));
return C_r;}

C_noret_decl(f19479)
static void C_ccall f19479(C_word c,C_word *av) C_noret;
C_noret_decl(f_10001)
static void f_10001(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10008)
static void C_ccall f_10008(C_word c,C_word *av) C_noret;
C_noret_decl(f_10019)
static void C_ccall f_10019(C_word c,C_word *av) C_noret;
C_noret_decl(f_10021)
static void f_10021(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10046)
static void C_ccall f_10046(C_word c,C_word *av) C_noret;
C_noret_decl(f_10076)
static void C_ccall f_10076(C_word c,C_word *av) C_noret;
C_noret_decl(f_10078)
static void f_10078(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10103)
static void C_ccall f_10103(C_word c,C_word *av) C_noret;
C_noret_decl(f_10117)
static void C_ccall f_10117(C_word c,C_word *av) C_noret;
C_noret_decl(f_10127)
static void C_ccall f_10127(C_word c,C_word *av) C_noret;
C_noret_decl(f_10129)
static void f_10129(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10154)
static void C_ccall f_10154(C_word c,C_word *av) C_noret;
C_noret_decl(f_10227)
static void C_ccall f_10227(C_word c,C_word *av) C_noret;
C_noret_decl(f_10233)
static void f_10233(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10259)
static void C_ccall f_10259(C_word c,C_word *av) C_noret;
C_noret_decl(f_10263)
static void C_ccall f_10263(C_word c,C_word *av) C_noret;
C_noret_decl(f_10279)
static void C_ccall f_10279(C_word c,C_word *av) C_noret;
C_noret_decl(f_10285)
static void C_ccall f_10285(C_word c,C_word *av) C_noret;
C_noret_decl(f_10291)
static void C_ccall f_10291(C_word c,C_word *av) C_noret;
C_noret_decl(f_10297)
static void C_ccall f_10297(C_word c,C_word *av) C_noret;
C_noret_decl(f_10301)
static void C_ccall f_10301(C_word c,C_word *av) C_noret;
C_noret_decl(f_10304)
static void C_ccall f_10304(C_word c,C_word *av) C_noret;
C_noret_decl(f_10318)
static void C_ccall f_10318(C_word c,C_word *av) C_noret;
C_noret_decl(f_10321)
static void C_ccall f_10321(C_word c,C_word *av) C_noret;
C_noret_decl(f_10324)
static void C_ccall f_10324(C_word c,C_word *av) C_noret;
C_noret_decl(f_10331)
static void C_ccall f_10331(C_word c,C_word *av) C_noret;
C_noret_decl(f_10333)
static void f_10333(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10348)
static void f_10348(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10381)
static void C_ccall f_10381(C_word c,C_word *av) C_noret;
C_noret_decl(f_10409)
static void C_ccall f_10409(C_word c,C_word *av) C_noret;
C_noret_decl(f_10413)
static void C_ccall f_10413(C_word c,C_word *av) C_noret;
C_noret_decl(f_10437)
static void C_ccall f_10437(C_word c,C_word *av) C_noret;
C_noret_decl(f_10469)
static void C_ccall f_10469(C_word c,C_word *av) C_noret;
C_noret_decl(f_10478)
static void f_10478(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10482)
static void C_ccall f_10482(C_word c,C_word *av) C_noret;
C_noret_decl(f_10488)
static void C_ccall f_10488(C_word c,C_word *av) C_noret;
C_noret_decl(f_10494)
static void C_ccall f_10494(C_word c,C_word *av) C_noret;
C_noret_decl(f_10497)
static void C_ccall f_10497(C_word c,C_word *av) C_noret;
C_noret_decl(f_10502)
static void f_10502(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10512)
static void C_ccall f_10512(C_word c,C_word *av) C_noret;
C_noret_decl(f_10527)
static void C_ccall f_10527(C_word c,C_word *av) C_noret;
C_noret_decl(f_10529)
static void f_10529(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10554)
static void C_ccall f_10554(C_word c,C_word *av) C_noret;
C_noret_decl(f_10575)
static void f_10575(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10600)
static void C_ccall f_10600(C_word c,C_word *av) C_noret;
C_noret_decl(f_10622)
static void C_ccall f_10622(C_word c,C_word *av) C_noret;
C_noret_decl(f_10630)
static void f_10630(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10634)
static void C_ccall f_10634(C_word c,C_word *av) C_noret;
C_noret_decl(f_10637)
static void C_ccall f_10637(C_word c,C_word *av) C_noret;
C_noret_decl(f_10640)
static void C_ccall f_10640(C_word c,C_word *av) C_noret;
C_noret_decl(f_10666)
static void C_ccall f_10666(C_word c,C_word *av) C_noret;
C_noret_decl(f_10673)
static void C_ccall f_10673(C_word c,C_word *av) C_noret;
C_noret_decl(f_10676)
static void C_ccall f_10676(C_word c,C_word *av) C_noret;
C_noret_decl(f_10705)
static void C_ccall f_10705(C_word c,C_word *av) C_noret;
C_noret_decl(f_10713)
static void C_ccall f_10713(C_word c,C_word *av) C_noret;
C_noret_decl(f_10729)
static void C_ccall f_10729(C_word c,C_word *av) C_noret;
C_noret_decl(f_10732)
static void C_ccall f_10732(C_word c,C_word *av) C_noret;
C_noret_decl(f_10738)
static void C_ccall f_10738(C_word c,C_word *av) C_noret;
C_noret_decl(f_10758)
static void C_ccall f_10758(C_word c,C_word *av) C_noret;
C_noret_decl(f_10781)
static void C_ccall f_10781(C_word c,C_word *av) C_noret;
C_noret_decl(f_10786)
static void f_10786(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10790)
static void C_ccall f_10790(C_word c,C_word *av) C_noret;
C_noret_decl(f_10793)
static void C_ccall f_10793(C_word c,C_word *av) C_noret;
C_noret_decl(f_10799)
static void C_ccall f_10799(C_word c,C_word *av) C_noret;
C_noret_decl(f_10802)
static void C_ccall f_10802(C_word c,C_word *av) C_noret;
C_noret_decl(f_10819)
static void f_10819(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10829)
static void C_ccall f_10829(C_word c,C_word *av) C_noret;
C_noret_decl(f_10831)
static void f_10831(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10856)
static void C_ccall f_10856(C_word c,C_word *av) C_noret;
C_noret_decl(f_10867)
static void C_ccall f_10867(C_word c,C_word *av) C_noret;
C_noret_decl(f_10875)
static void C_ccall f_10875(C_word c,C_word *av) C_noret;
C_noret_decl(f_10883)
static void C_ccall f_10883(C_word c,C_word *av) C_noret;
C_noret_decl(f_10896)
static void C_ccall f_10896(C_word c,C_word *av) C_noret;
C_noret_decl(f_10898)
static void f_10898(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10946)
static void f_10946(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10971)
static void C_ccall f_10971(C_word c,C_word *av) C_noret;
C_noret_decl(f_10990)
static void C_ccall f_10990(C_word c,C_word *av) C_noret;
C_noret_decl(f_10995)
static void f_10995(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11005)
static void C_ccall f_11005(C_word c,C_word *av) C_noret;
C_noret_decl(f_11007)
static void f_11007(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11032)
static void C_ccall f_11032(C_word c,C_word *av) C_noret;
C_noret_decl(f_11054)
static void f_11054(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11105)
static void f_11105(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11109)
static void C_ccall f_11109(C_word c,C_word *av) C_noret;
C_noret_decl(f_11112)
static void C_ccall f_11112(C_word c,C_word *av) C_noret;
C_noret_decl(f_11115)
static void C_ccall f_11115(C_word c,C_word *av) C_noret;
C_noret_decl(f_11134)
static void C_ccall f_11134(C_word c,C_word *av) C_noret;
C_noret_decl(f_11181)
static void C_ccall f_11181(C_word c,C_word *av) C_noret;
C_noret_decl(f_11209)
static void C_ccall f_11209(C_word c,C_word *av) C_noret;
C_noret_decl(f_11213)
static void C_ccall f_11213(C_word c,C_word *av) C_noret;
C_noret_decl(f_11217)
static void C_ccall f_11217(C_word c,C_word *av) C_noret;
C_noret_decl(f_11236)
static void C_ccall f_11236(C_word c,C_word *av) C_noret;
C_noret_decl(f_11248)
static void C_ccall f_11248(C_word c,C_word *av) C_noret;
C_noret_decl(f_11250)
static void f_11250(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11292)
static void f_11292(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11302)
static void C_ccall f_11302(C_word c,C_word *av) C_noret;
C_noret_decl(f_11324)
static void C_ccall f_11324(C_word c,C_word *av) C_noret;
C_noret_decl(f_11351)
static void C_ccall f_11351(C_word c,C_word *av) C_noret;
C_noret_decl(f_11371)
static void f_11371(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11424)
static void C_ccall f_11424(C_word c,C_word *av) C_noret;
C_noret_decl(f_11471)
static void C_ccall f_11471(C_word c,C_word *av) C_noret;
C_noret_decl(f_11488)
static void C_ccall f_11488(C_word c,C_word *av) C_noret;
C_noret_decl(f_11494)
static void f_11494(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11508)
static void C_ccall f_11508(C_word c,C_word *av) C_noret;
C_noret_decl(f_11512)
static void C_ccall f_11512(C_word c,C_word *av) C_noret;
C_noret_decl(f_11518)
static void C_ccall f_11518(C_word c,C_word *av) C_noret;
C_noret_decl(f_11531)
static void C_ccall f_11531(C_word c,C_word *av) C_noret;
C_noret_decl(f_11535)
static void C_ccall f_11535(C_word c,C_word *av) C_noret;
C_noret_decl(f_11539)
static void C_ccall f_11539(C_word c,C_word *av) C_noret;
C_noret_decl(f_11541)
static void C_ccall f_11541(C_word c,C_word *av) C_noret;
C_noret_decl(f_11545)
static void C_ccall f_11545(C_word c,C_word *av) C_noret;
C_noret_decl(f_11548)
static void C_ccall f_11548(C_word c,C_word *av) C_noret;
C_noret_decl(f_11551)
static void C_ccall f_11551(C_word c,C_word *av) C_noret;
C_noret_decl(f_11555)
static void C_ccall f_11555(C_word c,C_word *av) C_noret;
C_noret_decl(f_11559)
static void C_ccall f_11559(C_word c,C_word *av) C_noret;
C_noret_decl(f_11563)
static void C_ccall f_11563(C_word c,C_word *av) C_noret;
C_noret_decl(f_11571)
static void f_11571(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11579)
static void C_ccall f_11579(C_word c,C_word *av) C_noret;
C_noret_decl(f_11587)
static void C_ccall f_11587(C_word c,C_word *av) C_noret;
C_noret_decl(f_11594)
static void C_ccall f_11594(C_word c,C_word *av) C_noret;
C_noret_decl(f_11600)
static void C_ccall f_11600(C_word c,C_word *av) C_noret;
C_noret_decl(f_11602)
static void f_11602(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11627)
static void C_ccall f_11627(C_word c,C_word *av) C_noret;
C_noret_decl(f_11642)
static void f_11642(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11671)
static void C_ccall f_11671(C_word c,C_word *av) C_noret;
C_noret_decl(f_11673)
static void f_11673(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11698)
static void C_ccall f_11698(C_word c,C_word *av) C_noret;
C_noret_decl(f_11707)
static void C_ccall f_11707(C_word c,C_word *av) C_noret;
C_noret_decl(f_11710)
static void f_11710(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11716)
static void C_ccall f_11716(C_word c,C_word *av) C_noret;
C_noret_decl(f_11720)
static void C_ccall f_11720(C_word c,C_word *av) C_noret;
C_noret_decl(f_11737)
static void C_ccall f_11737(C_word c,C_word *av) C_noret;
C_noret_decl(f_11744)
static void C_ccall f_11744(C_word c,C_word *av) C_noret;
C_noret_decl(f_11749)
static void C_ccall f_11749(C_word c,C_word *av) C_noret;
C_noret_decl(f_11752)
static void C_ccall f_11752(C_word c,C_word *av) C_noret;
C_noret_decl(f_11758)
static void C_ccall f_11758(C_word c,C_word *av) C_noret;
C_noret_decl(f_11766)
static void C_ccall f_11766(C_word c,C_word *av) C_noret;
C_noret_decl(f_11774)
static void f_11774(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11784)
static void C_ccall f_11784(C_word c,C_word *av) C_noret;
C_noret_decl(f_11803)
static void C_ccall f_11803(C_word c,C_word *av) C_noret;
C_noret_decl(f_11807)
static void C_ccall f_11807(C_word c,C_word *av) C_noret;
C_noret_decl(f_11812)
static void C_ccall f_11812(C_word c,C_word *av) C_noret;
C_noret_decl(f_11818)
static void C_ccall f_11818(C_word c,C_word *av) C_noret;
C_noret_decl(f_11821)
static void C_ccall f_11821(C_word c,C_word *av) C_noret;
C_noret_decl(f_11826)
static void f_11826(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11836)
static void C_ccall f_11836(C_word c,C_word *av) C_noret;
C_noret_decl(f_11851)
static void C_ccall f_11851(C_word c,C_word *av) C_noret;
C_noret_decl(f_11853)
static void C_ccall f_11853(C_word c,C_word *av) C_noret;
C_noret_decl(f_11860)
static void C_ccall f_11860(C_word c,C_word *av) C_noret;
C_noret_decl(f_11881)
static void f_11881(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11893)
static void C_ccall f_11893(C_word c,C_word *av) C_noret;
C_noret_decl(f_11910)
static void C_ccall f_11910(C_word c,C_word *av) C_noret;
C_noret_decl(f_11913)
static void f_11913(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11938)
static void C_ccall f_11938(C_word c,C_word *av) C_noret;
C_noret_decl(f_11944)
static void C_ccall f_11944(C_word c,C_word *av) C_noret;
C_noret_decl(f_11970)
static void C_ccall f_11970(C_word c,C_word *av) C_noret;
C_noret_decl(f_12003)
static void C_ccall f_12003(C_word c,C_word *av) C_noret;
C_noret_decl(f_12005)
static void C_ccall f_12005(C_word c,C_word *av) C_noret;
C_noret_decl(f_12011)
static void C_ccall f_12011(C_word c,C_word *av) C_noret;
C_noret_decl(f_12017)
static void f_12017(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12021)
static void C_ccall f_12021(C_word c,C_word *av) C_noret;
C_noret_decl(f_12044)
static void C_ccall f_12044(C_word c,C_word *av) C_noret;
C_noret_decl(f_12055)
static void C_ccall f_12055(C_word c,C_word *av) C_noret;
C_noret_decl(f_12061)
static void C_ccall f_12061(C_word c,C_word *av) C_noret;
C_noret_decl(f_12064)
static void f_12064(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12072)
static C_word f_12072(C_word t0,C_word t1);
C_noret_decl(f_12098)
static void f_12098(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12120)
static void C_ccall f_12120(C_word c,C_word *av) C_noret;
C_noret_decl(f_12145)
static void f_12145(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12167)
static void C_ccall f_12167(C_word c,C_word *av) C_noret;
C_noret_decl(f_12174)
static void C_ccall f_12174(C_word c,C_word *av) C_noret;
C_noret_decl(f_12180)
static void f_12180(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_12211)
static void C_ccall f_12211(C_word c,C_word *av) C_noret;
C_noret_decl(f_12234)
static void C_ccall f_12234(C_word c,C_word *av) C_noret;
C_noret_decl(f_12242)
static void C_ccall f_12242(C_word c,C_word *av) C_noret;
C_noret_decl(f_12253)
static void C_ccall f_12253(C_word c,C_word *av) C_noret;
C_noret_decl(f_12259)
static void C_ccall f_12259(C_word c,C_word *av) C_noret;
C_noret_decl(f_12263)
static void C_ccall f_12263(C_word c,C_word *av) C_noret;
C_noret_decl(f_12267)
static void C_ccall f_12267(C_word c,C_word *av) C_noret;
C_noret_decl(f_12269)
static void C_ccall f_12269(C_word c,C_word *av) C_noret;
C_noret_decl(f_12275)
static void C_ccall f_12275(C_word c,C_word *av) C_noret;
C_noret_decl(f_12279)
static void C_ccall f_12279(C_word c,C_word *av) C_noret;
C_noret_decl(f_12282)
static void C_ccall f_12282(C_word c,C_word *av) C_noret;
C_noret_decl(f_12291)
static void f_12291(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12305)
static void f_12305(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12313)
static void C_ccall f_12313(C_word c,C_word *av) C_noret;
C_noret_decl(f_12317)
static void C_ccall f_12317(C_word c,C_word *av) C_noret;
C_noret_decl(f_12363)
static void C_ccall f_12363(C_word c,C_word *av) C_noret;
C_noret_decl(f_12367)
static void C_ccall f_12367(C_word c,C_word *av) C_noret;
C_noret_decl(f_12387)
static void C_ccall f_12387(C_word c,C_word *av) C_noret;
C_noret_decl(f_12391)
static void C_ccall f_12391(C_word c,C_word *av) C_noret;
C_noret_decl(f_12400)
static void C_ccall f_12400(C_word c,C_word *av) C_noret;
C_noret_decl(f_12430)
static void C_ccall f_12430(C_word c,C_word *av) C_noret;
C_noret_decl(f_12434)
static void C_ccall f_12434(C_word c,C_word *av) C_noret;
C_noret_decl(f_12447)
static void C_ccall f_12447(C_word c,C_word *av) C_noret;
C_noret_decl(f_12459)
static void C_ccall f_12459(C_word c,C_word *av) C_noret;
C_noret_decl(f_12465)
static void C_ccall f_12465(C_word c,C_word *av) C_noret;
C_noret_decl(f_12472)
static void f_12472(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12475)
static void C_ccall f_12475(C_word c,C_word *av) C_noret;
C_noret_decl(f_12498)
static void C_ccall f_12498(C_word c,C_word *av) C_noret;
C_noret_decl(f_12500)
static void C_ccall f_12500(C_word c,C_word *av) C_noret;
C_noret_decl(f_12506)
static void C_ccall f_12506(C_word c,C_word *av) C_noret;
C_noret_decl(f_12513)
static void f_12513(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12516)
static void C_ccall f_12516(C_word c,C_word *av) C_noret;
C_noret_decl(f_12535)
static void C_ccall f_12535(C_word c,C_word *av) C_noret;
C_noret_decl(f_12537)
static void C_ccall f_12537(C_word c,C_word *av) C_noret;
C_noret_decl(f_12543)
static void C_ccall f_12543(C_word c,C_word *av) C_noret;
C_noret_decl(f_12556)
static void C_ccall f_12556(C_word c,C_word *av) C_noret;
C_noret_decl(f_12584)
static void C_ccall f_12584(C_word c,C_word *av) C_noret;
C_noret_decl(f_12586)
static void C_ccall f_12586(C_word c,C_word *av) C_noret;
C_noret_decl(f_12607)
static void C_ccall f_12607(C_word c,C_word *av) C_noret;
C_noret_decl(f_12614)
static void C_ccall f_12614(C_word c,C_word *av) C_noret;
C_noret_decl(f_12620)
static void C_ccall f_12620(C_word c,C_word *av) C_noret;
C_noret_decl(f_12635)
static void C_ccall f_12635(C_word c,C_word *av) C_noret;
C_noret_decl(f_12653)
static void C_ccall f_12653(C_word c,C_word *av) C_noret;
C_noret_decl(f_12671)
static void C_ccall f_12671(C_word c,C_word *av) C_noret;
C_noret_decl(f_12689)
static void C_ccall f_12689(C_word c,C_word *av) C_noret;
C_noret_decl(f_12707)
static void C_ccall f_12707(C_word c,C_word *av) C_noret;
C_noret_decl(f_12716)
static void C_ccall f_12716(C_word c,C_word *av) C_noret;
C_noret_decl(f_12742)
static void C_ccall f_12742(C_word c,C_word *av) C_noret;
C_noret_decl(f_12745)
static void C_ccall f_12745(C_word c,C_word *av) C_noret;
C_noret_decl(f_12756)
static void C_ccall f_12756(C_word c,C_word *av) C_noret;
C_noret_decl(f_12758)
static void C_ccall f_12758(C_word c,C_word *av) C_noret;
C_noret_decl(f_12812)
static void C_ccall f_12812(C_word c,C_word *av) C_noret;
C_noret_decl(f_12818)
static void C_ccall f_12818(C_word c,C_word *av) C_noret;
C_noret_decl(f_12824)
static void C_ccall f_12824(C_word c,C_word *av) C_noret;
C_noret_decl(f_12830)
static void f_12830(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12855)
static void f_12855(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12870)
static void f_12870(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12885)
static void f_12885(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12888)
static void C_ccall f_12888(C_word c,C_word *av) C_noret;
C_noret_decl(f_12923)
static void f_12923(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12938)
static void C_ccall f_12938(C_word c,C_word *av) C_noret;
C_noret_decl(f_12953)
static void f_12953(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12993)
static void f_12993(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12996)
static void C_ccall f_12996(C_word c,C_word *av) C_noret;
C_noret_decl(f_13011)
static void f_13011(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13035)
static void f_13035(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13073)
static void f_13073(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13079)
static void C_ccall f_13079(C_word c,C_word *av) C_noret;
C_noret_decl(f_13085)
static void C_ccall f_13085(C_word c,C_word *av) C_noret;
C_noret_decl(f_13088)
static void C_ccall f_13088(C_word c,C_word *av) C_noret;
C_noret_decl(f_13091)
static void C_ccall f_13091(C_word c,C_word *av) C_noret;
C_noret_decl(f_13094)
static void C_ccall f_13094(C_word c,C_word *av) C_noret;
C_noret_decl(f_13116)
static void f_13116(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13122)
static void C_ccall f_13122(C_word c,C_word *av) C_noret;
C_noret_decl(f_13128)
static void C_ccall f_13128(C_word c,C_word *av) C_noret;
C_noret_decl(f_13131)
static void C_ccall f_13131(C_word c,C_word *av) C_noret;
C_noret_decl(f_13134)
static void C_ccall f_13134(C_word c,C_word *av) C_noret;
C_noret_decl(f_13137)
static void C_ccall f_13137(C_word c,C_word *av) C_noret;
C_noret_decl(f_13160)
static void f_13160(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13163)
static void C_ccall f_13163(C_word c,C_word *av) C_noret;
C_noret_decl(f_13204)
static void f_13204(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13207)
static void C_ccall f_13207(C_word c,C_word *av) C_noret;
C_noret_decl(f_13222)
static void f_13222(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13249)
static void f_13249(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13284)
static void C_ccall f_13284(C_word c,C_word *av) C_noret;
C_noret_decl(f_13288)
static void f_13288(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13315)
static void f_13315(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13318)
static void C_ccall f_13318(C_word c,C_word *av) C_noret;
C_noret_decl(f_13353)
static void C_ccall f_13353(C_word c,C_word *av) C_noret;
C_noret_decl(f_13404)
static void C_ccall f_13404(C_word c,C_word *av) C_noret;
C_noret_decl(f_13413)
static void C_ccall f_13413(C_word c,C_word *av) C_noret;
C_noret_decl(f_13946)
static void C_ccall f_13946(C_word c,C_word *av) C_noret;
C_noret_decl(f_13952)
static void f_13952(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13962)
static void C_ccall f_13962(C_word c,C_word *av) C_noret;
C_noret_decl(f_13973)
static void f_13973(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13983)
static void C_ccall f_13983(C_word c,C_word *av) C_noret;
C_noret_decl(f_13994)
static void C_ccall f_13994(C_word c,C_word *av) C_noret;
C_noret_decl(f_13998)
static void C_ccall f_13998(C_word c,C_word *av) C_noret;
C_noret_decl(f_14009)
static void C_ccall f_14009(C_word c,C_word *av) C_noret;
C_noret_decl(f_14013)
static void C_ccall f_14013(C_word c,C_word *av) C_noret;
C_noret_decl(f_14024)
static void C_ccall f_14024(C_word c,C_word *av) C_noret;
C_noret_decl(f_14030)
static void C_ccall f_14030(C_word c,C_word *av) C_noret;
C_noret_decl(f_14034)
static void C_ccall f_14034(C_word c,C_word *av) C_noret;
C_noret_decl(f_14038)
static void f_14038(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14057)
static void C_ccall f_14057(C_word c,C_word *av) C_noret;
C_noret_decl(f_14063)
static void C_ccall f_14063(C_word c,C_word *av) C_noret;
C_noret_decl(f_14066)
static void f_14066(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14075)
static void C_ccall f_14075(C_word c,C_word *av) C_noret;
C_noret_decl(f_14085)
static void f_14085(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14094)
static void f_14094(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14106)
static void f_14106(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14118)
static void f_14118(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14142)
static void f_14142(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14148)
static void C_ccall f_14148(C_word c,C_word *av) C_noret;
C_noret_decl(f_14152)
static void f_14152(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14179)
static void f_14179(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14570)
static void C_ccall f_14570(C_word c,C_word *av) C_noret;
C_noret_decl(f_14576)
static void C_ccall f_14576(C_word c,C_word *av) C_noret;
C_noret_decl(f_14588)
static void C_ccall f_14588(C_word c,C_word *av) C_noret;
C_noret_decl(f_14598)
static void f_14598(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14610)
static void f_14610(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14628)
static void C_ccall f_14628(C_word c,C_word *av) C_noret;
C_noret_decl(f_14632)
static void f_14632(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14659)
static void f_14659(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15058)
static void C_ccall f_15058(C_word c,C_word *av) C_noret;
C_noret_decl(f_15064)
static void C_ccall f_15064(C_word c,C_word *av) C_noret;
C_noret_decl(f_15068)
static void C_ccall f_15068(C_word c,C_word *av) C_noret;
C_noret_decl(f_15195)
static void C_ccall f_15195(C_word c,C_word *av) C_noret;
C_noret_decl(f_15201)
static void f_15201(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15229)
static void C_ccall f_15229(C_word c,C_word *av) C_noret;
C_noret_decl(f_15364)
static void C_ccall f_15364(C_word c,C_word *av) C_noret;
C_noret_decl(f_15371)
static void C_ccall f_15371(C_word c,C_word *av) C_noret;
C_noret_decl(f_15374)
static void C_ccall f_15374(C_word c,C_word *av) C_noret;
C_noret_decl(f_15377)
static void C_ccall f_15377(C_word c,C_word *av) C_noret;
C_noret_decl(f_15401)
static void f_15401(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15445)
static void f_15445(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15494)
static void f_15494(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15581)
static void f_15581(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15614)
static void f_15614(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15632)
static void f_15632(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15654)
static void f_15654(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15689)
static void C_ccall f_15689(C_word c,C_word *av) C_noret;
C_noret_decl(f_16073)
static void C_ccall f_16073(C_word c,C_word *av) C_noret;
C_noret_decl(f_16077)
static void C_ccall f_16077(C_word c,C_word *av) C_noret;
C_noret_decl(f_16079)
static void f_16079(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16083)
static void C_ccall f_16083(C_word c,C_word *av) C_noret;
C_noret_decl(f_16086)
static void C_ccall f_16086(C_word c,C_word *av) C_noret;
C_noret_decl(f_16101)
static void f_16101(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16109)
static void f_16109(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16119)
static void C_ccall f_16119(C_word c,C_word *av) C_noret;
C_noret_decl(f_16151)
static void C_ccall f_16151(C_word c,C_word *av) C_noret;
C_noret_decl(f_16160)
static void f_16160(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16168)
static void f_16168(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16178)
static void C_ccall f_16178(C_word c,C_word *av) C_noret;
C_noret_decl(f_16213)
static void C_ccall f_16213(C_word c,C_word *av) C_noret;
C_noret_decl(f_16216)
static void f_16216(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16220)
static void C_ccall f_16220(C_word c,C_word *av) C_noret;
C_noret_decl(f_16223)
static void C_ccall f_16223(C_word c,C_word *av) C_noret;
C_noret_decl(f_16226)
static void C_ccall f_16226(C_word c,C_word *av) C_noret;
C_noret_decl(f_16235)
static void f_16235(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16254)
static void C_ccall f_16254(C_word c,C_word *av) C_noret;
C_noret_decl(f_16260)
static void C_ccall f_16260(C_word c,C_word *av) C_noret;
C_noret_decl(f_16264)
static void C_ccall f_16264(C_word c,C_word *av) C_noret;
C_noret_decl(f_16290)
static void C_ccall f_16290(C_word c,C_word *av) C_noret;
C_noret_decl(f_16299)
static void C_ccall f_16299(C_word c,C_word *av) C_noret;
C_noret_decl(f_16310)
static void C_ccall f_16310(C_word c,C_word *av) C_noret;
C_noret_decl(f_16329)
static void C_ccall f_16329(C_word c,C_word *av) C_noret;
C_noret_decl(f_16341)
static void C_ccall f_16341(C_word c,C_word *av) C_noret;
C_noret_decl(f_16385)
static void f_16385(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16387)
static void f_16387(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16399)
static void f_16399(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16409)
static void C_ccall f_16409(C_word c,C_word *av) C_noret;
C_noret_decl(f_16423)
static void C_ccall f_16423(C_word c,C_word *av) C_noret;
C_noret_decl(f_16429)
static void C_ccall f_16429(C_word c,C_word *av) C_noret;
C_noret_decl(f_16435)
static void C_ccall f_16435(C_word c,C_word *av) C_noret;
C_noret_decl(f_16450)
static void C_ccall f_16450(C_word c,C_word *av) C_noret;
C_noret_decl(f_16459)
static void C_ccall f_16459(C_word c,C_word *av) C_noret;
C_noret_decl(f_16467)
static void C_ccall f_16467(C_word c,C_word *av) C_noret;
C_noret_decl(f_16473)
static void C_ccall f_16473(C_word c,C_word *av) C_noret;
C_noret_decl(f_16476)
static void C_ccall f_16476(C_word c,C_word *av) C_noret;
C_noret_decl(f_16479)
static void C_ccall f_16479(C_word c,C_word *av) C_noret;
C_noret_decl(f_16482)
static void C_ccall f_16482(C_word c,C_word *av) C_noret;
C_noret_decl(f_16485)
static void C_ccall f_16485(C_word c,C_word *av) C_noret;
C_noret_decl(f_16490)
static void C_ccall f_16490(C_word c,C_word *av) C_noret;
C_noret_decl(f_16494)
static void C_ccall f_16494(C_word c,C_word *av) C_noret;
C_noret_decl(f_16506)
static void C_ccall f_16506(C_word c,C_word *av) C_noret;
C_noret_decl(f_16511)
static void C_ccall f_16511(C_word c,C_word *av) C_noret;
C_noret_decl(f_16513)
static void C_ccall f_16513(C_word c,C_word *av) C_noret;
C_noret_decl(f_16519)
static void C_ccall f_16519(C_word c,C_word *av) C_noret;
C_noret_decl(f_16526)
static void C_ccall f_16526(C_word c,C_word *av) C_noret;
C_noret_decl(f_16529)
static void f_16529(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16533)
static void C_ccall f_16533(C_word c,C_word *av) C_noret;
C_noret_decl(f_16539)
static void C_ccall f_16539(C_word c,C_word *av) C_noret;
C_noret_decl(f_16545)
static void C_ccall f_16545(C_word c,C_word *av) C_noret;
C_noret_decl(f_16572)
static void C_ccall f_16572(C_word c,C_word *av) C_noret;
C_noret_decl(f_16574)
static void f_16574(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_16588)
static void C_ccall f_16588(C_word c,C_word *av) C_noret;
C_noret_decl(f_16598)
static void C_ccall f_16598(C_word c,C_word *av) C_noret;
C_noret_decl(f_16611)
static void C_ccall f_16611(C_word c,C_word *av) C_noret;
C_noret_decl(f_16626)
static void C_ccall f_16626(C_word c,C_word *av) C_noret;
C_noret_decl(f_16630)
static void C_ccall f_16630(C_word c,C_word *av) C_noret;
C_noret_decl(f_16637)
static void C_ccall f_16637(C_word c,C_word *av) C_noret;
C_noret_decl(f_16641)
static void C_ccall f_16641(C_word c,C_word *av) C_noret;
C_noret_decl(f_16646)
static void C_ccall f_16646(C_word c,C_word *av) C_noret;
C_noret_decl(f_16650)
static void C_ccall f_16650(C_word c,C_word *av) C_noret;
C_noret_decl(f_16658)
static void C_ccall f_16658(C_word c,C_word *av) C_noret;
C_noret_decl(f_16664)
static void C_ccall f_16664(C_word c,C_word *av) C_noret;
C_noret_decl(f_16671)
static void C_ccall f_16671(C_word c,C_word *av) C_noret;
C_noret_decl(f_16674)
static void C_ccall f_16674(C_word c,C_word *av) C_noret;
C_noret_decl(f_16677)
static void C_ccall f_16677(C_word c,C_word *av) C_noret;
C_noret_decl(f_16682)
static void C_ccall f_16682(C_word c,C_word *av) C_noret;
C_noret_decl(f_16702)
static void C_ccall f_16702(C_word c,C_word *av) C_noret;
C_noret_decl(f_16706)
static void C_ccall f_16706(C_word c,C_word *av) C_noret;
C_noret_decl(f_16717)
static void C_ccall f_16717(C_word c,C_word *av) C_noret;
C_noret_decl(f_16732)
static void C_ccall f_16732(C_word c,C_word *av) C_noret;
C_noret_decl(f_16744)
static void C_ccall f_16744(C_word c,C_word *av) C_noret;
C_noret_decl(f_16751)
static void C_ccall f_16751(C_word c,C_word *av) C_noret;
C_noret_decl(f_16781)
static void C_ccall f_16781(C_word c,C_word *av) C_noret;
C_noret_decl(f_16794)
static void C_ccall f_16794(C_word c,C_word *av) C_noret;
C_noret_decl(f_16800)
static void C_ccall f_16800(C_word c,C_word *av) C_noret;
C_noret_decl(f_16815)
static void C_ccall f_16815(C_word c,C_word *av) C_noret;
C_noret_decl(f_16818)
static void C_ccall f_16818(C_word c,C_word *av) C_noret;
C_noret_decl(f_16824)
static void C_ccall f_16824(C_word c,C_word *av) C_noret;
C_noret_decl(f_16833)
static void C_ccall f_16833(C_word c,C_word *av) C_noret;
C_noret_decl(f_16836)
static void C_ccall f_16836(C_word c,C_word *av) C_noret;
C_noret_decl(f_16875)
static void C_ccall f_16875(C_word c,C_word *av) C_noret;
C_noret_decl(f_16881)
static void C_ccall f_16881(C_word c,C_word *av) C_noret;
C_noret_decl(f_16887)
static void C_ccall f_16887(C_word c,C_word *av) C_noret;
C_noret_decl(f_16890)
static void C_ccall f_16890(C_word c,C_word *av) C_noret;
C_noret_decl(f_16896)
static void C_ccall f_16896(C_word c,C_word *av) C_noret;
C_noret_decl(f_16902)
static void C_ccall f_16902(C_word c,C_word *av) C_noret;
C_noret_decl(f_16908)
static void C_ccall f_16908(C_word c,C_word *av) C_noret;
C_noret_decl(f_16914)
static void C_ccall f_16914(C_word c,C_word *av) C_noret;
C_noret_decl(f_16936)
static void C_ccall f_16936(C_word c,C_word *av) C_noret;
C_noret_decl(f_16938)
static void f_16938(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16972)
static void f_16972(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17006)
static void C_ccall f_17006(C_word c,C_word *av) C_noret;
C_noret_decl(f_17009)
static void C_ccall f_17009(C_word c,C_word *av) C_noret;
C_noret_decl(f_17017)
static void C_ccall f_17017(C_word c,C_word *av) C_noret;
C_noret_decl(f_17032)
static void C_ccall f_17032(C_word c,C_word *av) C_noret;
C_noret_decl(f_17039)
static void C_ccall f_17039(C_word c,C_word *av) C_noret;
C_noret_decl(f_17054)
static void C_ccall f_17054(C_word c,C_word *av) C_noret;
C_noret_decl(f_17060)
static void C_ccall f_17060(C_word c,C_word *av) C_noret;
C_noret_decl(f_17063)
static void C_ccall f_17063(C_word c,C_word *av) C_noret;
C_noret_decl(f_17075)
static void C_ccall f_17075(C_word c,C_word *av) C_noret;
C_noret_decl(f_17084)
static void C_ccall f_17084(C_word c,C_word *av) C_noret;
C_noret_decl(f_17090)
static void C_ccall f_17090(C_word c,C_word *av) C_noret;
C_noret_decl(f_17105)
static void C_ccall f_17105(C_word c,C_word *av) C_noret;
C_noret_decl(f_17114)
static void C_ccall f_17114(C_word c,C_word *av) C_noret;
C_noret_decl(f_17117)
static void C_ccall f_17117(C_word c,C_word *av) C_noret;
C_noret_decl(f_17129)
static void C_ccall f_17129(C_word c,C_word *av) C_noret;
C_noret_decl(f_17135)
static void C_ccall f_17135(C_word c,C_word *av) C_noret;
C_noret_decl(f_17141)
static void C_ccall f_17141(C_word c,C_word *av) C_noret;
C_noret_decl(f_17144)
static void C_ccall f_17144(C_word c,C_word *av) C_noret;
C_noret_decl(f_17146)
static void f_17146(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17153)
static void f_17153(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17159)
static void C_ccall f_17159(C_word c,C_word *av) C_noret;
C_noret_decl(f_17170)
static void C_ccall f_17170(C_word c,C_word *av) C_noret;
C_noret_decl(f_17185)
static void C_ccall f_17185(C_word c,C_word *av) C_noret;
C_noret_decl(f_17235)
static void C_ccall f_17235(C_word c,C_word *av) C_noret;
C_noret_decl(f_17237)
static C_word f_17237(C_word t0,C_word t1);
C_noret_decl(f_17243)
static void C_ccall f_17243(C_word c,C_word *av) C_noret;
C_noret_decl(f_17247)
static void C_ccall f_17247(C_word c,C_word *av) C_noret;
C_noret_decl(f_17252)
static void f_17252(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17256)
static void C_ccall f_17256(C_word c,C_word *av) C_noret;
C_noret_decl(f_17259)
static void C_ccall f_17259(C_word c,C_word *av) C_noret;
C_noret_decl(f_17262)
static void C_ccall f_17262(C_word c,C_word *av) C_noret;
C_noret_decl(f_17265)
static void C_ccall f_17265(C_word c,C_word *av) C_noret;
C_noret_decl(f_17273)
static void C_ccall f_17273(C_word c,C_word *av) C_noret;
C_noret_decl(f_17276)
static void C_ccall f_17276(C_word c,C_word *av) C_noret;
C_noret_decl(f_17279)
static void C_ccall f_17279(C_word c,C_word *av) C_noret;
C_noret_decl(f_17282)
static void C_ccall f_17282(C_word c,C_word *av) C_noret;
C_noret_decl(f_17285)
static void C_ccall f_17285(C_word c,C_word *av) C_noret;
C_noret_decl(f_17288)
static void C_ccall f_17288(C_word c,C_word *av) C_noret;
C_noret_decl(f_17289)
static void f_17289(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17299)
static void C_ccall f_17299(C_word c,C_word *av) C_noret;
C_noret_decl(f_17305)
static void C_ccall f_17305(C_word c,C_word *av) C_noret;
C_noret_decl(f_17317)
static void C_ccall f_17317(C_word c,C_word *av) C_noret;
C_noret_decl(f_17320)
static void C_ccall f_17320(C_word c,C_word *av) C_noret;
C_noret_decl(f_17323)
static void C_ccall f_17323(C_word c,C_word *av) C_noret;
C_noret_decl(f_17328)
static void f_17328(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17341)
static void C_ccall f_17341(C_word c,C_word *av) C_noret;
C_noret_decl(f_17344)
static void C_ccall f_17344(C_word c,C_word *av) C_noret;
C_noret_decl(f_17361)
static void f_17361(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17371)
static void C_ccall f_17371(C_word c,C_word *av) C_noret;
C_noret_decl(f_17384)
static void C_ccall f_17384(C_word c,C_word *av) C_noret;
C_noret_decl(f_17390)
static void C_ccall f_17390(C_word c,C_word *av) C_noret;
C_noret_decl(f_17400)
static void C_ccall f_17400(C_word c,C_word *av) C_noret;
C_noret_decl(f_17403)
static void C_ccall f_17403(C_word c,C_word *av) C_noret;
C_noret_decl(f_17419)
static void C_ccall f_17419(C_word c,C_word *av) C_noret;
C_noret_decl(f_17424)
static void f_17424(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17428)
static void C_ccall f_17428(C_word c,C_word *av) C_noret;
C_noret_decl(f_17445)
static void C_ccall f_17445(C_word c,C_word *av) C_noret;
C_noret_decl(f_17456)
static void C_ccall f_17456(C_word c,C_word *av) C_noret;
C_noret_decl(f_17468)
static void C_ccall f_17468(C_word c,C_word *av) C_noret;
C_noret_decl(f_17471)
static void C_ccall f_17471(C_word c,C_word *av) C_noret;
C_noret_decl(f_17479)
static void C_ccall f_17479(C_word c,C_word *av) C_noret;
C_noret_decl(f_17484)
static void C_ccall f_17484(C_word c,C_word *av) C_noret;
C_noret_decl(f_17497)
static void C_ccall f_17497(C_word c,C_word *av) C_noret;
C_noret_decl(f_17508)
static void C_ccall f_17508(C_word c,C_word *av) C_noret;
C_noret_decl(f_17530)
static void C_ccall f_17530(C_word c,C_word *av) C_noret;
C_noret_decl(f_17532)
static void C_ccall f_17532(C_word c,C_word *av) C_noret;
C_noret_decl(f_17552)
static void C_ccall f_17552(C_word c,C_word *av) C_noret;
C_noret_decl(f_17572)
static void C_ccall f_17572(C_word c,C_word *av) C_noret;
C_noret_decl(f_17580)
static void C_ccall f_17580(C_word c,C_word *av) C_noret;
C_noret_decl(f_17589)
static void C_ccall f_17589(C_word c,C_word *av) C_noret;
C_noret_decl(f_17594)
static void C_ccall f_17594(C_word c,C_word *av) C_noret;
C_noret_decl(f_17598)
static void C_ccall f_17598(C_word c,C_word *av) C_noret;
C_noret_decl(f_17619)
static void C_ccall f_17619(C_word c,C_word *av) C_noret;
C_noret_decl(f_17634)
static void C_ccall f_17634(C_word c,C_word *av) C_noret;
C_noret_decl(f_17640)
static void C_ccall f_17640(C_word c,C_word *av) C_noret;
C_noret_decl(f_17651)
static void C_ccall f_17651(C_word c,C_word *av) C_noret;
C_noret_decl(f_17662)
static void C_ccall f_17662(C_word c,C_word *av) C_noret;
C_noret_decl(f_17673)
static void C_ccall f_17673(C_word c,C_word *av) C_noret;
C_noret_decl(f_17677)
static void C_ccall f_17677(C_word c,C_word *av) C_noret;
C_noret_decl(f_17683)
static void C_ccall f_17683(C_word c,C_word *av) C_noret;
C_noret_decl(f_17695)
static void C_ccall f_17695(C_word c,C_word *av) C_noret;
C_noret_decl(f_17699)
static void C_ccall f_17699(C_word c,C_word *av) C_noret;
C_noret_decl(f_17711)
static void C_ccall f_17711(C_word c,C_word *av) C_noret;
C_noret_decl(f_17719)
static void f_17719(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17729)
static void C_ccall f_17729(C_word c,C_word *av) C_noret;
C_noret_decl(f_17744)
static void C_ccall f_17744(C_word c,C_word *av) C_noret;
C_noret_decl(f_17750)
static void C_ccall f_17750(C_word c,C_word *av) C_noret;
C_noret_decl(f_17753)
static void C_ccall f_17753(C_word c,C_word *av) C_noret;
C_noret_decl(f_17756)
static void C_ccall f_17756(C_word c,C_word *av) C_noret;
C_noret_decl(f_17759)
static void C_ccall f_17759(C_word c,C_word *av) C_noret;
C_noret_decl(f_17762)
static void C_ccall f_17762(C_word c,C_word *av) C_noret;
C_noret_decl(f_17766)
static void C_ccall f_17766(C_word c,C_word *av) C_noret;
C_noret_decl(f_17768)
static void C_ccall f_17768(C_word c,C_word *av) C_noret;
C_noret_decl(f_17775)
static void C_ccall f_17775(C_word c,C_word *av) C_noret;
C_noret_decl(f_17782)
static void C_ccall f_17782(C_word c,C_word *av) C_noret;
C_noret_decl(f_17793)
static void C_ccall f_17793(C_word c,C_word *av) C_noret;
C_noret_decl(f_17797)
static void C_ccall f_17797(C_word c,C_word *av) C_noret;
C_noret_decl(f_17800)
static void C_ccall f_17800(C_word c,C_word *av) C_noret;
C_noret_decl(f_17805)
static void C_ccall f_17805(C_word c,C_word *av) C_noret;
C_noret_decl(f_17811)
static void C_ccall f_17811(C_word c,C_word *av) C_noret;
C_noret_decl(f_17818)
static void C_ccall f_17818(C_word c,C_word *av) C_noret;
C_noret_decl(f_17821)
static void C_ccall f_17821(C_word c,C_word *av) C_noret;
C_noret_decl(f_17824)
static void C_ccall f_17824(C_word c,C_word *av) C_noret;
C_noret_decl(f_17827)
static void C_ccall f_17827(C_word c,C_word *av) C_noret;
C_noret_decl(f_17834)
static void C_ccall f_17834(C_word c,C_word *av) C_noret;
C_noret_decl(f_17838)
static void C_ccall f_17838(C_word c,C_word *av) C_noret;
C_noret_decl(f_5186)
static void C_ccall f_5186(C_word c,C_word *av) C_noret;
C_noret_decl(f_5189)
static void C_ccall f_5189(C_word c,C_word *av) C_noret;
C_noret_decl(f_5192)
static void C_ccall f_5192(C_word c,C_word *av) C_noret;
C_noret_decl(f_5195)
static void C_ccall f_5195(C_word c,C_word *av) C_noret;
C_noret_decl(f_5198)
static void C_ccall f_5198(C_word c,C_word *av) C_noret;
C_noret_decl(f_5201)
static void C_ccall f_5201(C_word c,C_word *av) C_noret;
C_noret_decl(f_5204)
static void C_ccall f_5204(C_word c,C_word *av) C_noret;
C_noret_decl(f_5207)
static void C_ccall f_5207(C_word c,C_word *av) C_noret;
C_noret_decl(f_5210)
static void C_ccall f_5210(C_word c,C_word *av) C_noret;
C_noret_decl(f_5320)
static void f_5320(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5338)
static void C_ccall f_5338(C_word c,C_word *av) C_noret;
C_noret_decl(f_5378)
static void f_5378(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_5392)
static void C_ccall f_5392(C_word c,C_word *av) C_noret;
C_noret_decl(f_5581)
static void f_5581(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5587)
static void f_5587(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5609)
static void C_ccall f_5609(C_word c,C_word *av) C_noret;
C_noret_decl(f_5615)
static void f_5615(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5621)
static void f_5621(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5631)
static void C_ccall f_5631(C_word c,C_word *av) C_noret;
C_noret_decl(f_5645)
static void f_5645(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5651)
static void f_5651(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5665)
static void C_ccall f_5665(C_word c,C_word *av) C_noret;
C_noret_decl(f_5874)
static void f_5874(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5882)
static void f_5882(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5890)
static C_word f_5890(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_5908)
static void C_ccall f_5908(C_word c,C_word *av) C_noret;
C_noret_decl(f_5947)
static void f_5947(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_5981)
static void f_5981(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5987)
static C_word f_5987(C_word t0);
C_noret_decl(f_6040)
static void f_6040(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6046)
static void f_6046(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6229)
static void f_6229(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6247)
static void C_ccall f_6247(C_word c,C_word *av) C_noret;
C_noret_decl(f_6342)
static void f_6342(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6355)
static void C_ccall f_6355(C_word c,C_word *av) C_noret;
C_noret_decl(f_6493)
static void C_ccall f_6493(C_word c,C_word *av) C_noret;
C_noret_decl(f_6497)
static void C_ccall f_6497(C_word c,C_word *av) C_noret;
C_noret_decl(f_6511)
static void C_ccall f_6511(C_word c,C_word *av) C_noret;
C_noret_decl(f_6522)
static void C_ccall f_6522(C_word c,C_word *av) C_noret;
C_noret_decl(f_6525)
static void f_6525(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6540)
static void C_ccall f_6540(C_word c,C_word *av) C_noret;
C_noret_decl(f_6546)
static void C_ccall f_6546(C_word c,C_word *av) C_noret;
C_noret_decl(f_6549)
static void f_6549(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6555)
static void C_ccall f_6555(C_word c,C_word *av) C_noret;
C_noret_decl(f_6559)
static void C_ccall f_6559(C_word c,C_word *av) C_noret;
C_noret_decl(f_6562)
static void C_ccall f_6562(C_word c,C_word *av) C_noret;
C_noret_decl(f_6571)
static void C_ccall f_6571(C_word c,C_word *av) C_noret;
C_noret_decl(f_6579)
static void C_ccall f_6579(C_word c,C_word *av) C_noret;
C_noret_decl(f_6586)
static void C_ccall f_6586(C_word c,C_word *av) C_noret;
C_noret_decl(f_6591)
static void f_6591(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6601)
static void C_ccall f_6601(C_word c,C_word *av) C_noret;
C_noret_decl(f_6614)
static void f_6614(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6621)
static void C_ccall f_6621(C_word c,C_word *av) C_noret;
C_noret_decl(f_6624)
static void C_ccall f_6624(C_word c,C_word *av) C_noret;
C_noret_decl(f_6633)
static void C_ccall f_6633(C_word c,C_word *av) C_noret;
C_noret_decl(f_6636)
static void C_ccall f_6636(C_word c,C_word *av) C_noret;
C_noret_decl(f_6639)
static void C_ccall f_6639(C_word c,C_word *av) C_noret;
C_noret_decl(f_6642)
static void C_ccall f_6642(C_word c,C_word *av) C_noret;
C_noret_decl(f_6645)
static void C_ccall f_6645(C_word c,C_word *av) C_noret;
C_noret_decl(f_6648)
static void C_ccall f_6648(C_word c,C_word *av) C_noret;
C_noret_decl(f_6654)
static void C_ccall f_6654(C_word c,C_word *av) C_noret;
C_noret_decl(f_6657)
static void C_ccall f_6657(C_word c,C_word *av) C_noret;
C_noret_decl(f_6664)
static void C_ccall f_6664(C_word c,C_word *av) C_noret;
C_noret_decl(f_6666)
static void C_ccall f_6666(C_word c,C_word *av) C_noret;
C_noret_decl(f_6669)
static void f_6669(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6671)
static void f_6671(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6678)
static void C_ccall f_6678(C_word c,C_word *av) C_noret;
C_noret_decl(f_6681)
static void C_ccall f_6681(C_word c,C_word *av) C_noret;
C_noret_decl(f_6684)
static void C_ccall f_6684(C_word c,C_word *av) C_noret;
C_noret_decl(f_6698)
static void C_ccall f_6698(C_word c,C_word *av) C_noret;
C_noret_decl(f_6703)
static void f_6703(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6713)
static void C_ccall f_6713(C_word c,C_word *av) C_noret;
C_noret_decl(f_6730)
static void C_ccall f_6730(C_word c,C_word *av) C_noret;
C_noret_decl(f_6733)
static void C_ccall f_6733(C_word c,C_word *av) C_noret;
C_noret_decl(f_6736)
static void C_ccall f_6736(C_word c,C_word *av) C_noret;
C_noret_decl(f_6739)
static void C_ccall f_6739(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_6754)
static void C_ccall f_6754(C_word c,C_word *av) C_noret;
C_noret_decl(f_6761)
static void C_ccall f_6761(C_word c,C_word *av) C_noret;
C_noret_decl(f_6763)
static void C_ccall f_6763(C_word c,C_word *av) C_noret;
C_noret_decl(f_6767)
static void C_ccall f_6767(C_word c,C_word *av) C_noret;
C_noret_decl(f_6770)
static void C_ccall f_6770(C_word c,C_word *av) C_noret;
C_noret_decl(f_6777)
static void C_ccall f_6777(C_word c,C_word *av) C_noret;
C_noret_decl(f_6779)
static void C_ccall f_6779(C_word c,C_word *av) C_noret;
C_noret_decl(f_6783)
static void f_6783(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6786)
static void C_ccall f_6786(C_word c,C_word *av) C_noret;
C_noret_decl(f_6787)
static void f_6787(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6797)
static void C_ccall f_6797(C_word c,C_word *av) C_noret;
C_noret_decl(f_6800)
static void C_ccall f_6800(C_word c,C_word *av) C_noret;
C_noret_decl(f_6805)
static void f_6805(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6815)
static void C_ccall f_6815(C_word c,C_word *av) C_noret;
C_noret_decl(f_6832)
static void C_ccall f_6832(C_word c,C_word *av) C_noret;
C_noret_decl(f_6835)
static void C_ccall f_6835(C_word c,C_word *av) C_noret;
C_noret_decl(f_6838)
static void C_ccall f_6838(C_word c,C_word *av) C_noret;
C_noret_decl(f_6841)
static void C_ccall f_6841(C_word c,C_word *av) C_noret;
C_noret_decl(f_6844)
static void C_ccall f_6844(C_word c,C_word *av) C_noret;
C_noret_decl(f_6853)
static void C_ccall f_6853(C_word c,C_word *av) C_noret;
C_noret_decl(f_6856)
static void C_ccall f_6856(C_word c,C_word *av) C_noret;
C_noret_decl(f_6859)
static void C_ccall f_6859(C_word c,C_word *av) C_noret;
C_noret_decl(f_6875)
static void C_ccall f_6875(C_word c,C_word *av) C_noret;
C_noret_decl(f_6929)
static void C_ccall f_6929(C_word c,C_word *av) C_noret;
C_noret_decl(f_6935)
static C_word f_6935(C_word t0,C_word t1);
C_noret_decl(f_6970)
static void C_ccall f_6970(C_word c,C_word *av) C_noret;
C_noret_decl(f_6976)
static void f_6976(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6998)
static void C_ccall f_6998(C_word c,C_word *av) C_noret;
C_noret_decl(f_7007)
static void C_ccall f_7007(C_word c,C_word *av) C_noret;
C_noret_decl(f_7011)
static void C_ccall f_7011(C_word c,C_word *av) C_noret;
C_noret_decl(f_7032)
static void C_ccall f_7032(C_word c,C_word *av) C_noret;
C_noret_decl(f_7055)
static void C_ccall f_7055(C_word c,C_word *av) C_noret;
C_noret_decl(f_7057)
static void f_7057(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7071)
static void C_ccall f_7071(C_word c,C_word *av) C_noret;
C_noret_decl(f_7075)
static void C_ccall f_7075(C_word c,C_word *av) C_noret;
C_noret_decl(f_7082)
static void C_ccall f_7082(C_word c,C_word *av) C_noret;
C_noret_decl(f_7086)
static void C_ccall f_7086(C_word c,C_word *av) C_noret;
C_noret_decl(f_7090)
static void C_ccall f_7090(C_word c,C_word *av) C_noret;
C_noret_decl(f_7102)
static void C_ccall f_7102(C_word c,C_word *av) C_noret;
C_noret_decl(f_7109)
static void C_ccall f_7109(C_word c,C_word *av) C_noret;
C_noret_decl(f_7116)
static void C_ccall f_7116(C_word c,C_word *av) C_noret;
C_noret_decl(f_7128)
static void C_ccall f_7128(C_word c,C_word *av) C_noret;
C_noret_decl(f_7159)
static void C_ccall f_7159(C_word c,C_word *av) C_noret;
C_noret_decl(f_7170)
static void C_ccall f_7170(C_word c,C_word *av) C_noret;
C_noret_decl(f_7184)
static void C_ccall f_7184(C_word c,C_word *av) C_noret;
C_noret_decl(f_7186)
static void f_7186(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7212)
static void C_ccall f_7212(C_word c,C_word *av) C_noret;
C_noret_decl(f_7226)
static void f_7226(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7232)
static void f_7232(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7247)
static void C_ccall f_7247(C_word c,C_word *av) C_noret;
C_noret_decl(f_7263)
static void C_ccall f_7263(C_word c,C_word *av) C_noret;
C_noret_decl(f_7271)
static void C_ccall f_7271(C_word c,C_word *av) C_noret;
C_noret_decl(f_7275)
static void C_ccall f_7275(C_word c,C_word *av) C_noret;
C_noret_decl(f_7277)
static void C_ccall f_7277(C_word c,C_word *av) C_noret;
C_noret_decl(f_7288)
static void C_ccall f_7288(C_word c,C_word *av) C_noret;
C_noret_decl(f_7290)
static void f_7290(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_7307)
static void C_ccall f_7307(C_word c,C_word *av) C_noret;
C_noret_decl(f_7321)
static void C_ccall f_7321(C_word c,C_word *av) C_noret;
C_noret_decl(f_7355)
static void C_ccall f_7355(C_word c,C_word *av) C_noret;
C_noret_decl(f_7373)
static void C_ccall f_7373(C_word c,C_word *av) C_noret;
C_noret_decl(f_7389)
static void C_ccall f_7389(C_word c,C_word *av) C_noret;
C_noret_decl(f_7425)
static void C_ccall f_7425(C_word c,C_word *av) C_noret;
C_noret_decl(f_7429)
static void f_7429(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7475)
static void C_ccall f_7475(C_word c,C_word *av) C_noret;
C_noret_decl(f_7477)
static void C_ccall f_7477(C_word c,C_word *av) C_noret;
C_noret_decl(f_7493)
static void C_ccall f_7493(C_word c,C_word *av) C_noret;
C_noret_decl(f_7499)
static void C_ccall f_7499(C_word c,C_word *av) C_noret;
C_noret_decl(f_7514)
static void C_ccall f_7514(C_word c,C_word *av) C_noret;
C_noret_decl(f_7531)
static void C_ccall f_7531(C_word c,C_word *av) C_noret;
C_noret_decl(f_7533)
static void C_ccall f_7533(C_word c,C_word *av) C_noret;
C_noret_decl(f_7539)
static void f_7539(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7563)
static void f_7563(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7579)
static void C_ccall f_7579(C_word c,C_word *av) C_noret;
C_noret_decl(f_7589)
static void C_ccall f_7589(C_word c,C_word *av) C_noret;
C_noret_decl(f_7594)
static void C_ccall f_7594(C_word c,C_word *av) C_noret;
C_noret_decl(f_7608)
static void C_ccall f_7608(C_word c,C_word *av) C_noret;
C_noret_decl(f_7611)
static void C_ccall f_7611(C_word c,C_word *av) C_noret;
C_noret_decl(f_7612)
static void C_ccall f_7612(C_word c,C_word *av) C_noret;
C_noret_decl(f_7616)
static void C_ccall f_7616(C_word c,C_word *av) C_noret;
C_noret_decl(f_7621)
static void C_ccall f_7621(C_word c,C_word *av) C_noret;
C_noret_decl(f_7627)
static void C_ccall f_7627(C_word c,C_word *av) C_noret;
C_noret_decl(f_7633)
static void C_ccall f_7633(C_word c,C_word *av) C_noret;
C_noret_decl(f_7641)
static void C_ccall f_7641(C_word c,C_word *av) C_noret;
C_noret_decl(f_7644)
static void C_ccall f_7644(C_word c,C_word *av) C_noret;
C_noret_decl(f_7652)
static void C_ccall f_7652(C_word c,C_word *av) C_noret;
C_noret_decl(f_7654)
static void f_7654(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7658)
static void C_ccall f_7658(C_word c,C_word *av) C_noret;
C_noret_decl(f_7680)
static void C_ccall f_7680(C_word c,C_word *av) C_noret;
C_noret_decl(f_7686)
static void f_7686(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7690)
static void C_ccall f_7690(C_word c,C_word *av) C_noret;
C_noret_decl(f_7707)
static void f_7707(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7713)
static void C_ccall f_7713(C_word c,C_word *av) C_noret;
C_noret_decl(f_7724)
static void C_ccall f_7724(C_word c,C_word *av) C_noret;
C_noret_decl(f_7726)
static void C_ccall f_7726(C_word c,C_word *av) C_noret;
C_noret_decl(f_7729)
static void C_ccall f_7729(C_word c,C_word *av) C_noret;
C_noret_decl(f_7735)
static C_word f_7735(C_word t0,C_word t1);
C_noret_decl(f_7774)
static void C_ccall f_7774(C_word c,C_word *av) C_noret;
C_noret_decl(f_7779)
static void C_ccall f_7779(C_word c,C_word *av) C_noret;
C_noret_decl(f_7783)
static void C_ccall f_7783(C_word c,C_word *av) C_noret;
C_noret_decl(f_7787)
static void C_ccall f_7787(C_word c,C_word *av) C_noret;
C_noret_decl(f_7838)
static void C_ccall f_7838(C_word c,C_word *av) C_noret;
C_noret_decl(f_7875)
static void C_ccall f_7875(C_word c,C_word *av) C_noret;
C_noret_decl(f_7877)
static void f_7877(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7927)
static void C_ccall f_7927(C_word c,C_word *av) C_noret;
C_noret_decl(f_7931)
static void C_ccall f_7931(C_word c,C_word *av) C_noret;
C_noret_decl(f_7945)
static void C_ccall f_7945(C_word c,C_word *av) C_noret;
C_noret_decl(f_7949)
static void C_ccall f_7949(C_word c,C_word *av) C_noret;
C_noret_decl(f_7957)
static C_word f_7957(C_word t0,C_word t1);
C_noret_decl(f_7963)
static void C_ccall f_7963(C_word c,C_word *av) C_noret;
C_noret_decl(f_7967)
static void C_ccall f_7967(C_word c,C_word *av) C_noret;
C_noret_decl(f_8009)
static void C_ccall f_8009(C_word c,C_word *av) C_noret;
C_noret_decl(f_8013)
static void C_ccall f_8013(C_word c,C_word *av) C_noret;
C_noret_decl(f_8061)
static void C_ccall f_8061(C_word c,C_word *av) C_noret;
C_noret_decl(f_8065)
static void C_ccall f_8065(C_word c,C_word *av) C_noret;
C_noret_decl(f_8071)
static void C_ccall f_8071(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_8083)
static void C_ccall f_8083(C_word c,C_word *av) C_noret;
C_noret_decl(f_8092)
static void C_ccall f_8092(C_word c,C_word *av) C_noret;
C_noret_decl(f_8101)
static void C_ccall f_8101(C_word c,C_word *av) C_noret;
C_noret_decl(f_8110)
static void C_ccall f_8110(C_word c,C_word *av) C_noret;
C_noret_decl(f_8119)
static void C_ccall f_8119(C_word c,C_word *av) C_noret;
C_noret_decl(f_8128)
static void C_ccall f_8128(C_word c,C_word *av) C_noret;
C_noret_decl(f_8138)
static void C_ccall f_8138(C_word c,C_word *av) C_noret;
C_noret_decl(f_8140)
static void C_ccall f_8140(C_word c,C_word *av) C_noret;
C_noret_decl(f_8146)
static void C_ccall f_8146(C_word c,C_word *av) C_noret;
C_noret_decl(f_8161)
static void C_ccall f_8161(C_word c,C_word *av) C_noret;
C_noret_decl(f_8176)
static void C_ccall f_8176(C_word c,C_word *av) C_noret;
C_noret_decl(f_8179)
static void f_8179(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8246)
static void C_ccall f_8246(C_word c,C_word *av) C_noret;
C_noret_decl(f_8248)
static void f_8248(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8273)
static void C_ccall f_8273(C_word c,C_word *av) C_noret;
C_noret_decl(f_8296)
static void C_ccall f_8296(C_word c,C_word *av) C_noret;
C_noret_decl(f_8299)
static void f_8299(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8302)
static void C_ccall f_8302(C_word c,C_word *av) C_noret;
C_noret_decl(f_8309)
static void C_ccall f_8309(C_word c,C_word *av) C_noret;
C_noret_decl(f_8356)
static void C_ccall f_8356(C_word c,C_word *av) C_noret;
C_noret_decl(f_8360)
static void C_ccall f_8360(C_word c,C_word *av) C_noret;
C_noret_decl(f_8365)
static void f_8365(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8382)
static void C_ccall f_8382(C_word c,C_word *av) C_noret;
C_noret_decl(f_8390)
static void C_ccall f_8390(C_word c,C_word *av) C_noret;
C_noret_decl(f_8392)
static void f_8392(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8417)
static void C_ccall f_8417(C_word c,C_word *av) C_noret;
C_noret_decl(f_8453)
static void C_ccall f_8453(C_word c,C_word *av) C_noret;
C_noret_decl(f_8487)
static void C_ccall f_8487(C_word c,C_word *av) C_noret;
C_noret_decl(f_8518)
static void f_8518(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_8541)
static void C_ccall f_8541(C_word c,C_word *av) C_noret;
C_noret_decl(f_8562)
static void C_ccall f_8562(C_word c,C_word *av) C_noret;
C_noret_decl(f_8584)
static void C_ccall f_8584(C_word c,C_word *av) C_noret;
C_noret_decl(f_8592)
static void C_ccall f_8592(C_word c,C_word *av) C_noret;
C_noret_decl(f_8596)
static void C_ccall f_8596(C_word c,C_word *av) C_noret;
C_noret_decl(f_8604)
static void C_ccall f_8604(C_word c,C_word *av) C_noret;
C_noret_decl(f_8625)
static void C_ccall f_8625(C_word c,C_word *av) C_noret;
C_noret_decl(f_8629)
static void C_ccall f_8629(C_word c,C_word *av) C_noret;
C_noret_decl(f_8641)
static void C_ccall f_8641(C_word c,C_word *av) C_noret;
C_noret_decl(f_8668)
static void f_8668(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8680)
static void C_ccall f_8680(C_word c,C_word *av) C_noret;
C_noret_decl(f_8682)
static void f_8682(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8707)
static void C_ccall f_8707(C_word c,C_word *av) C_noret;
C_noret_decl(f_8741)
static void f_8741(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8767)
static void C_ccall f_8767(C_word c,C_word *av) C_noret;
C_noret_decl(f_8769)
static void f_8769(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8794)
static void C_ccall f_8794(C_word c,C_word *av) C_noret;
C_noret_decl(f_8878)
static void C_ccall f_8878(C_word c,C_word *av) C_noret;
C_noret_decl(f_8880)
static void f_8880(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8905)
static void C_ccall f_8905(C_word c,C_word *av) C_noret;
C_noret_decl(f_8945)
static void C_ccall f_8945(C_word c,C_word *av) C_noret;
C_noret_decl(f_8986)
static void f_8986(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9015)
static void C_ccall f_9015(C_word c,C_word *av) C_noret;
C_noret_decl(f_9017)
static void f_9017(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9042)
static void C_ccall f_9042(C_word c,C_word *av) C_noret;
C_noret_decl(f_9078)
static void C_ccall f_9078(C_word c,C_word *av) C_noret;
C_noret_decl(f_9080)
static void f_9080(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9105)
static void C_ccall f_9105(C_word c,C_word *av) C_noret;
C_noret_decl(f_9117)
static void C_ccall f_9117(C_word c,C_word *av) C_noret;
C_noret_decl(f_9123)
static void C_ccall f_9123(C_word c,C_word *av) C_noret;
C_noret_decl(f_9146)
static void C_ccall f_9146(C_word c,C_word *av) C_noret;
C_noret_decl(f_9148)
static void f_9148(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9173)
static void C_ccall f_9173(C_word c,C_word *av) C_noret;
C_noret_decl(f_9184)
static void f_9184(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9188)
static void C_ccall f_9188(C_word c,C_word *av) C_noret;
C_noret_decl(f_9191)
static void C_ccall f_9191(C_word c,C_word *av) C_noret;
C_noret_decl(f_9198)
static void C_ccall f_9198(C_word c,C_word *av) C_noret;
C_noret_decl(f_9212)
static void C_ccall f_9212(C_word c,C_word *av) C_noret;
C_noret_decl(f_9318)
static void C_ccall f_9318(C_word c,C_word *av) C_noret;
C_noret_decl(f_9320)
static void f_9320(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9345)
static void C_ccall f_9345(C_word c,C_word *av) C_noret;
C_noret_decl(f_9363)
static void C_ccall f_9363(C_word c,C_word *av) C_noret;
C_noret_decl(f_9366)
static void C_ccall f_9366(C_word c,C_word *av) C_noret;
C_noret_decl(f_9372)
static void C_ccall f_9372(C_word c,C_word *av) C_noret;
C_noret_decl(f_9378)
static void f_9378(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9382)
static void C_ccall f_9382(C_word c,C_word *av) C_noret;
C_noret_decl(f_9385)
static void C_ccall f_9385(C_word c,C_word *av) C_noret;
C_noret_decl(f_9388)
static void C_ccall f_9388(C_word c,C_word *av) C_noret;
C_noret_decl(f_9397)
static void f_9397(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9410)
static void C_ccall f_9410(C_word c,C_word *av) C_noret;
C_noret_decl(f_9412)
static void f_9412(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9437)
static void C_ccall f_9437(C_word c,C_word *av) C_noret;
C_noret_decl(f_9467)
static void C_ccall f_9467(C_word c,C_word *av) C_noret;
C_noret_decl(f_9469)
static void f_9469(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9494)
static void C_ccall f_9494(C_word c,C_word *av) C_noret;
C_noret_decl(f_9567)
static void C_ccall f_9567(C_word c,C_word *av) C_noret;
C_noret_decl(f_9570)
static void C_ccall f_9570(C_word c,C_word *av) C_noret;
C_noret_decl(f_9579)
static void C_ccall f_9579(C_word c,C_word *av) C_noret;
C_noret_decl(f_9583)
static void C_ccall f_9583(C_word c,C_word *av) C_noret;
C_noret_decl(f_9587)
static void C_ccall f_9587(C_word c,C_word *av) C_noret;
C_noret_decl(f_9589)
static void f_9589(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9637)
static void f_9637(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9662)
static void C_ccall f_9662(C_word c,C_word *av) C_noret;
C_noret_decl(f_9690)
static void C_ccall f_9690(C_word c,C_word *av) C_noret;
C_noret_decl(f_9714)
static void C_ccall f_9714(C_word c,C_word *av) C_noret;
C_noret_decl(f_9748)
static void C_ccall f_9748(C_word c,C_word *av) C_noret;
C_noret_decl(f_9752)
static void C_ccall f_9752(C_word c,C_word *av) C_noret;
C_noret_decl(f_9762)
static void f_9762(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9786)
static void C_ccall f_9786(C_word c,C_word *av) C_noret;
C_noret_decl(f_9801)
static void C_ccall f_9801(C_word c,C_word *av) C_noret;
C_noret_decl(f_9813)
static void C_ccall f_9813(C_word c,C_word *av) C_noret;
C_noret_decl(f_9838)
static void f_9838(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9863)
static void C_ccall f_9863(C_word c,C_word *av) C_noret;
C_noret_decl(f_9893)
static void C_ccall f_9893(C_word c,C_word *av) C_noret;
C_noret_decl(f_9895)
static void f_9895(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9920)
static void C_ccall f_9920(C_word c,C_word *av) C_noret;
C_noret_decl(f_9951)
static void f_9951(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9963)
static void C_ccall f_9963(C_word c,C_word *av) C_noret;
C_noret_decl(f_9967)
static void C_ccall f_9967(C_word c,C_word *av) C_noret;
C_noret_decl(f_9990)
static void C_ccall f_9990(C_word c,C_word *av) C_noret;
C_noret_decl(C_support_toplevel)
C_extern void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret;

C_noret_decl(trf_10001)
static void C_ccall trf_10001(C_word c,C_word *av) C_noret;
static void C_ccall trf_10001(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10001(t0,t1);}

C_noret_decl(trf_10021)
static void C_ccall trf_10021(C_word c,C_word *av) C_noret;
static void C_ccall trf_10021(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10021(t0,t1,t2);}

C_noret_decl(trf_10078)
static void C_ccall trf_10078(C_word c,C_word *av) C_noret;
static void C_ccall trf_10078(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10078(t0,t1,t2);}

C_noret_decl(trf_10129)
static void C_ccall trf_10129(C_word c,C_word *av) C_noret;
static void C_ccall trf_10129(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10129(t0,t1,t2);}

C_noret_decl(trf_10233)
static void C_ccall trf_10233(C_word c,C_word *av) C_noret;
static void C_ccall trf_10233(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10233(t0,t1,t2);}

C_noret_decl(trf_10333)
static void C_ccall trf_10333(C_word c,C_word *av) C_noret;
static void C_ccall trf_10333(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_10333(t0,t1,t2,t3);}

C_noret_decl(trf_10348)
static void C_ccall trf_10348(C_word c,C_word *av) C_noret;
static void C_ccall trf_10348(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_10348(t0,t1,t2,t3);}

C_noret_decl(trf_10478)
static void C_ccall trf_10478(C_word c,C_word *av) C_noret;
static void C_ccall trf_10478(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10478(t0,t1,t2);}

C_noret_decl(trf_10502)
static void C_ccall trf_10502(C_word c,C_word *av) C_noret;
static void C_ccall trf_10502(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10502(t0,t1,t2);}

C_noret_decl(trf_10529)
static void C_ccall trf_10529(C_word c,C_word *av) C_noret;
static void C_ccall trf_10529(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10529(t0,t1,t2);}

C_noret_decl(trf_10575)
static void C_ccall trf_10575(C_word c,C_word *av) C_noret;
static void C_ccall trf_10575(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10575(t0,t1,t2);}

C_noret_decl(trf_10630)
static void C_ccall trf_10630(C_word c,C_word *av) C_noret;
static void C_ccall trf_10630(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_10630(t0,t1,t2,t3);}

C_noret_decl(trf_10786)
static void C_ccall trf_10786(C_word c,C_word *av) C_noret;
static void C_ccall trf_10786(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10786(t0,t1,t2);}

C_noret_decl(trf_10819)
static void C_ccall trf_10819(C_word c,C_word *av) C_noret;
static void C_ccall trf_10819(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10819(t0,t1,t2);}

C_noret_decl(trf_10831)
static void C_ccall trf_10831(C_word c,C_word *av) C_noret;
static void C_ccall trf_10831(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10831(t0,t1,t2);}

C_noret_decl(trf_10898)
static void C_ccall trf_10898(C_word c,C_word *av) C_noret;
static void C_ccall trf_10898(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_10898(t0,t1,t2,t3);}

C_noret_decl(trf_10946)
static void C_ccall trf_10946(C_word c,C_word *av) C_noret;
static void C_ccall trf_10946(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10946(t0,t1,t2);}

C_noret_decl(trf_10995)
static void C_ccall trf_10995(C_word c,C_word *av) C_noret;
static void C_ccall trf_10995(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10995(t0,t1,t2);}

C_noret_decl(trf_11007)
static void C_ccall trf_11007(C_word c,C_word *av) C_noret;
static void C_ccall trf_11007(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11007(t0,t1,t2);}

C_noret_decl(trf_11054)
static void C_ccall trf_11054(C_word c,C_word *av) C_noret;
static void C_ccall trf_11054(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_11054(t0,t1,t2,t3);}

C_noret_decl(trf_11105)
static void C_ccall trf_11105(C_word c,C_word *av) C_noret;
static void C_ccall trf_11105(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11105(t0,t1,t2);}

C_noret_decl(trf_11250)
static void C_ccall trf_11250(C_word c,C_word *av) C_noret;
static void C_ccall trf_11250(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_11250(t0,t1,t2,t3);}

C_noret_decl(trf_11292)
static void C_ccall trf_11292(C_word c,C_word *av) C_noret;
static void C_ccall trf_11292(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11292(t0,t1,t2);}

C_noret_decl(trf_11371)
static void C_ccall trf_11371(C_word c,C_word *av) C_noret;
static void C_ccall trf_11371(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_11371(t0,t1,t2,t3);}

C_noret_decl(trf_11494)
static void C_ccall trf_11494(C_word c,C_word *av) C_noret;
static void C_ccall trf_11494(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11494(t0,t1,t2);}

C_noret_decl(trf_11571)
static void C_ccall trf_11571(C_word c,C_word *av) C_noret;
static void C_ccall trf_11571(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11571(t0,t1,t2);}

C_noret_decl(trf_11602)
static void C_ccall trf_11602(C_word c,C_word *av) C_noret;
static void C_ccall trf_11602(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11602(t0,t1,t2);}

C_noret_decl(trf_11642)
static void C_ccall trf_11642(C_word c,C_word *av) C_noret;
static void C_ccall trf_11642(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11642(t0,t1,t2);}

C_noret_decl(trf_11673)
static void C_ccall trf_11673(C_word c,C_word *av) C_noret;
static void C_ccall trf_11673(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11673(t0,t1,t2);}

C_noret_decl(trf_11710)
static void C_ccall trf_11710(C_word c,C_word *av) C_noret;
static void C_ccall trf_11710(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11710(t0,t1,t2);}

C_noret_decl(trf_11774)
static void C_ccall trf_11774(C_word c,C_word *av) C_noret;
static void C_ccall trf_11774(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11774(t0,t1,t2);}

C_noret_decl(trf_11826)
static void C_ccall trf_11826(C_word c,C_word *av) C_noret;
static void C_ccall trf_11826(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11826(t0,t1,t2);}

C_noret_decl(trf_11881)
static void C_ccall trf_11881(C_word c,C_word *av) C_noret;
static void C_ccall trf_11881(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11881(t0,t1);}

C_noret_decl(trf_11913)
static void C_ccall trf_11913(C_word c,C_word *av) C_noret;
static void C_ccall trf_11913(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11913(t0,t1);}

C_noret_decl(trf_12017)
static void C_ccall trf_12017(C_word c,C_word *av) C_noret;
static void C_ccall trf_12017(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12017(t0,t1);}

C_noret_decl(trf_12064)
static void C_ccall trf_12064(C_word c,C_word *av) C_noret;
static void C_ccall trf_12064(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_12064(t0,t1,t2,t3);}

C_noret_decl(trf_12098)
static void C_ccall trf_12098(C_word c,C_word *av) C_noret;
static void C_ccall trf_12098(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_12098(t0,t1,t2,t3);}

C_noret_decl(trf_12145)
static void C_ccall trf_12145(C_word c,C_word *av) C_noret;
static void C_ccall trf_12145(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_12145(t0,t1,t2,t3);}

C_noret_decl(trf_12180)
static void C_ccall trf_12180(C_word c,C_word *av) C_noret;
static void C_ccall trf_12180(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_12180(t0,t1,t2,t3);}

C_noret_decl(trf_12291)
static void C_ccall trf_12291(C_word c,C_word *av) C_noret;
static void C_ccall trf_12291(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12291(t0,t1);}

C_noret_decl(trf_12305)
static void C_ccall trf_12305(C_word c,C_word *av) C_noret;
static void C_ccall trf_12305(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12305(t0,t1,t2);}

C_noret_decl(trf_12472)
static void C_ccall trf_12472(C_word c,C_word *av) C_noret;
static void C_ccall trf_12472(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12472(t0,t1);}

C_noret_decl(trf_12513)
static void C_ccall trf_12513(C_word c,C_word *av) C_noret;
static void C_ccall trf_12513(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12513(t0,t1);}

C_noret_decl(trf_12830)
static void C_ccall trf_12830(C_word c,C_word *av) C_noret;
static void C_ccall trf_12830(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12830(t0,t1,t2);}

C_noret_decl(trf_12855)
static void C_ccall trf_12855(C_word c,C_word *av) C_noret;
static void C_ccall trf_12855(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12855(t0,t1);}

C_noret_decl(trf_12870)
static void C_ccall trf_12870(C_word c,C_word *av) C_noret;
static void C_ccall trf_12870(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12870(t0,t1);}

C_noret_decl(trf_12885)
static void C_ccall trf_12885(C_word c,C_word *av) C_noret;
static void C_ccall trf_12885(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12885(t0,t1);}

C_noret_decl(trf_12923)
static void C_ccall trf_12923(C_word c,C_word *av) C_noret;
static void C_ccall trf_12923(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12923(t0,t1);}

C_noret_decl(trf_12953)
static void C_ccall trf_12953(C_word c,C_word *av) C_noret;
static void C_ccall trf_12953(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12953(t0,t1);}

C_noret_decl(trf_12993)
static void C_ccall trf_12993(C_word c,C_word *av) C_noret;
static void C_ccall trf_12993(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12993(t0,t1);}

C_noret_decl(trf_13011)
static void C_ccall trf_13011(C_word c,C_word *av) C_noret;
static void C_ccall trf_13011(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13011(t0,t1);}

C_noret_decl(trf_13035)
static void C_ccall trf_13035(C_word c,C_word *av) C_noret;
static void C_ccall trf_13035(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13035(t0,t1);}

C_noret_decl(trf_13073)
static void C_ccall trf_13073(C_word c,C_word *av) C_noret;
static void C_ccall trf_13073(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13073(t0,t1);}

C_noret_decl(trf_13116)
static void C_ccall trf_13116(C_word c,C_word *av) C_noret;
static void C_ccall trf_13116(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13116(t0,t1);}

C_noret_decl(trf_13160)
static void C_ccall trf_13160(C_word c,C_word *av) C_noret;
static void C_ccall trf_13160(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13160(t0,t1);}

C_noret_decl(trf_13204)
static void C_ccall trf_13204(C_word c,C_word *av) C_noret;
static void C_ccall trf_13204(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13204(t0,t1);}

C_noret_decl(trf_13222)
static void C_ccall trf_13222(C_word c,C_word *av) C_noret;
static void C_ccall trf_13222(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13222(t0,t1);}

C_noret_decl(trf_13249)
static void C_ccall trf_13249(C_word c,C_word *av) C_noret;
static void C_ccall trf_13249(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13249(t0,t1);}

C_noret_decl(trf_13288)
static void C_ccall trf_13288(C_word c,C_word *av) C_noret;
static void C_ccall trf_13288(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_13288(t0,t1,t2);}

C_noret_decl(trf_13315)
static void C_ccall trf_13315(C_word c,C_word *av) C_noret;
static void C_ccall trf_13315(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13315(t0,t1);}

C_noret_decl(trf_13952)
static void C_ccall trf_13952(C_word c,C_word *av) C_noret;
static void C_ccall trf_13952(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13952(t0,t1);}

C_noret_decl(trf_13973)
static void C_ccall trf_13973(C_word c,C_word *av) C_noret;
static void C_ccall trf_13973(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13973(t0,t1);}

C_noret_decl(trf_14038)
static void C_ccall trf_14038(C_word c,C_word *av) C_noret;
static void C_ccall trf_14038(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14038(t0,t1,t2);}

C_noret_decl(trf_14066)
static void C_ccall trf_14066(C_word c,C_word *av) C_noret;
static void C_ccall trf_14066(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14066(t0,t1);}

C_noret_decl(trf_14085)
static void C_ccall trf_14085(C_word c,C_word *av) C_noret;
static void C_ccall trf_14085(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14085(t0,t1);}

C_noret_decl(trf_14094)
static void C_ccall trf_14094(C_word c,C_word *av) C_noret;
static void C_ccall trf_14094(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14094(t0,t1);}

C_noret_decl(trf_14106)
static void C_ccall trf_14106(C_word c,C_word *av) C_noret;
static void C_ccall trf_14106(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14106(t0,t1);}

C_noret_decl(trf_14118)
static void C_ccall trf_14118(C_word c,C_word *av) C_noret;
static void C_ccall trf_14118(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14118(t0,t1);}

C_noret_decl(trf_14142)
static void C_ccall trf_14142(C_word c,C_word *av) C_noret;
static void C_ccall trf_14142(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14142(t0,t1);}

C_noret_decl(trf_14152)
static void C_ccall trf_14152(C_word c,C_word *av) C_noret;
static void C_ccall trf_14152(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14152(t0,t1,t2);}

C_noret_decl(trf_14179)
static void C_ccall trf_14179(C_word c,C_word *av) C_noret;
static void C_ccall trf_14179(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14179(t0,t1);}

C_noret_decl(trf_14598)
static void C_ccall trf_14598(C_word c,C_word *av) C_noret;
static void C_ccall trf_14598(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14598(t0,t1);}

C_noret_decl(trf_14610)
static void C_ccall trf_14610(C_word c,C_word *av) C_noret;
static void C_ccall trf_14610(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14610(t0,t1);}

C_noret_decl(trf_14632)
static void C_ccall trf_14632(C_word c,C_word *av) C_noret;
static void C_ccall trf_14632(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14632(t0,t1,t2);}

C_noret_decl(trf_14659)
static void C_ccall trf_14659(C_word c,C_word *av) C_noret;
static void C_ccall trf_14659(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14659(t0,t1);}

C_noret_decl(trf_15201)
static void C_ccall trf_15201(C_word c,C_word *av) C_noret;
static void C_ccall trf_15201(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15201(t0,t1);}

C_noret_decl(trf_15401)
static void C_ccall trf_15401(C_word c,C_word *av) C_noret;
static void C_ccall trf_15401(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15401(t0,t1);}

C_noret_decl(trf_15445)
static void C_ccall trf_15445(C_word c,C_word *av) C_noret;
static void C_ccall trf_15445(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15445(t0,t1);}

C_noret_decl(trf_15494)
static void C_ccall trf_15494(C_word c,C_word *av) C_noret;
static void C_ccall trf_15494(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15494(t0,t1);}

C_noret_decl(trf_15581)
static void C_ccall trf_15581(C_word c,C_word *av) C_noret;
static void C_ccall trf_15581(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15581(t0,t1);}

C_noret_decl(trf_15614)
static void C_ccall trf_15614(C_word c,C_word *av) C_noret;
static void C_ccall trf_15614(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15614(t0,t1);}

C_noret_decl(trf_15632)
static void C_ccall trf_15632(C_word c,C_word *av) C_noret;
static void C_ccall trf_15632(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15632(t0,t1);}

C_noret_decl(trf_15654)
static void C_ccall trf_15654(C_word c,C_word *av) C_noret;
static void C_ccall trf_15654(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15654(t0,t1);}

C_noret_decl(trf_16079)
static void C_ccall trf_16079(C_word c,C_word *av) C_noret;
static void C_ccall trf_16079(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16079(t0,t1,t2);}

C_noret_decl(trf_16101)
static void C_ccall trf_16101(C_word c,C_word *av) C_noret;
static void C_ccall trf_16101(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_16101(t0,t1);}

C_noret_decl(trf_16109)
static void C_ccall trf_16109(C_word c,C_word *av) C_noret;
static void C_ccall trf_16109(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16109(t0,t1,t2);}

C_noret_decl(trf_16160)
static void C_ccall trf_16160(C_word c,C_word *av) C_noret;
static void C_ccall trf_16160(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_16160(t0,t1);}

C_noret_decl(trf_16168)
static void C_ccall trf_16168(C_word c,C_word *av) C_noret;
static void C_ccall trf_16168(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16168(t0,t1,t2);}

C_noret_decl(trf_16216)
static void C_ccall trf_16216(C_word c,C_word *av) C_noret;
static void C_ccall trf_16216(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_16216(t0,t1,t2,t3);}

C_noret_decl(trf_16235)
static void C_ccall trf_16235(C_word c,C_word *av) C_noret;
static void C_ccall trf_16235(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_16235(t0,t1);}

C_noret_decl(trf_16385)
static void C_ccall trf_16385(C_word c,C_word *av) C_noret;
static void C_ccall trf_16385(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_16385(t0,t1,t2,t3);}

C_noret_decl(trf_16387)
static void C_ccall trf_16387(C_word c,C_word *av) C_noret;
static void C_ccall trf_16387(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16387(t0,t1,t2);}

C_noret_decl(trf_16399)
static void C_ccall trf_16399(C_word c,C_word *av) C_noret;
static void C_ccall trf_16399(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16399(t0,t1,t2);}

C_noret_decl(trf_16529)
static void C_ccall trf_16529(C_word c,C_word *av) C_noret;
static void C_ccall trf_16529(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_16529(t0,t1);}

C_noret_decl(trf_16574)
static void C_ccall trf_16574(C_word c,C_word *av) C_noret;
static void C_ccall trf_16574(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_16574(t0,t1,t2,t3,t4);}

C_noret_decl(trf_16938)
static void C_ccall trf_16938(C_word c,C_word *av) C_noret;
static void C_ccall trf_16938(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16938(t0,t1,t2);}

C_noret_decl(trf_16972)
static void C_ccall trf_16972(C_word c,C_word *av) C_noret;
static void C_ccall trf_16972(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16972(t0,t1,t2);}

C_noret_decl(trf_17146)
static void C_ccall trf_17146(C_word c,C_word *av) C_noret;
static void C_ccall trf_17146(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_17146(t0,t1);}

C_noret_decl(trf_17153)
static void C_ccall trf_17153(C_word c,C_word *av) C_noret;
static void C_ccall trf_17153(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_17153(t0,t1,t2);}

C_noret_decl(trf_17252)
static void C_ccall trf_17252(C_word c,C_word *av) C_noret;
static void C_ccall trf_17252(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_17252(t0,t1,t2,t3);}

C_noret_decl(trf_17289)
static void C_ccall trf_17289(C_word c,C_word *av) C_noret;
static void C_ccall trf_17289(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_17289(t0,t1,t2);}

C_noret_decl(trf_17328)
static void C_ccall trf_17328(C_word c,C_word *av) C_noret;
static void C_ccall trf_17328(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_17328(t0,t1,t2);}

C_noret_decl(trf_17361)
static void C_ccall trf_17361(C_word c,C_word *av) C_noret;
static void C_ccall trf_17361(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_17361(t0,t1,t2);}

C_noret_decl(trf_17424)
static void C_ccall trf_17424(C_word c,C_word *av) C_noret;
static void C_ccall trf_17424(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_17424(t0,t1);}

C_noret_decl(trf_17719)
static void C_ccall trf_17719(C_word c,C_word *av) C_noret;
static void C_ccall trf_17719(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_17719(t0,t1,t2);}

C_noret_decl(trf_5320)
static void C_ccall trf_5320(C_word c,C_word *av) C_noret;
static void C_ccall trf_5320(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5320(t0,t1,t2);}

C_noret_decl(trf_5378)
static void C_ccall trf_5378(C_word c,C_word *av) C_noret;
static void C_ccall trf_5378(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_5378(t0,t1,t2,t3,t4);}

C_noret_decl(trf_5581)
static void C_ccall trf_5581(C_word c,C_word *av) C_noret;
static void C_ccall trf_5581(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5581(t0,t1,t2);}

C_noret_decl(trf_5587)
static void C_ccall trf_5587(C_word c,C_word *av) C_noret;
static void C_ccall trf_5587(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5587(t0,t1,t2);}

C_noret_decl(trf_5615)
static void C_ccall trf_5615(C_word c,C_word *av) C_noret;
static void C_ccall trf_5615(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5615(t0,t1,t2);}

C_noret_decl(trf_5621)
static void C_ccall trf_5621(C_word c,C_word *av) C_noret;
static void C_ccall trf_5621(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5621(t0,t1,t2);}

C_noret_decl(trf_5645)
static void C_ccall trf_5645(C_word c,C_word *av) C_noret;
static void C_ccall trf_5645(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5645(t0,t1,t2);}

C_noret_decl(trf_5651)
static void C_ccall trf_5651(C_word c,C_word *av) C_noret;
static void C_ccall trf_5651(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5651(t0,t1,t2,t3);}

C_noret_decl(trf_5874)
static void C_ccall trf_5874(C_word c,C_word *av) C_noret;
static void C_ccall trf_5874(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5874(t0,t1,t2);}

C_noret_decl(trf_5882)
static void C_ccall trf_5882(C_word c,C_word *av) C_noret;
static void C_ccall trf_5882(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5882(t0,t1,t2,t3);}

C_noret_decl(trf_5947)
static void C_ccall trf_5947(C_word c,C_word *av) C_noret;
static void C_ccall trf_5947(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_5947(t0,t1,t2);}

C_noret_decl(trf_5981)
static void C_ccall trf_5981(C_word c,C_word *av) C_noret;
static void C_ccall trf_5981(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5981(t0,t1);}

C_noret_decl(trf_6040)
static void C_ccall trf_6040(C_word c,C_word *av) C_noret;
static void C_ccall trf_6040(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6040(t0,t1,t2);}

C_noret_decl(trf_6046)
static void C_ccall trf_6046(C_word c,C_word *av) C_noret;
static void C_ccall trf_6046(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6046(t0,t1,t2,t3);}

C_noret_decl(trf_6229)
static void C_ccall trf_6229(C_word c,C_word *av) C_noret;
static void C_ccall trf_6229(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6229(t0,t1,t2);}

C_noret_decl(trf_6342)
static void C_ccall trf_6342(C_word c,C_word *av) C_noret;
static void C_ccall trf_6342(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6342(t0,t1,t2);}

C_noret_decl(trf_6525)
static void C_ccall trf_6525(C_word c,C_word *av) C_noret;
static void C_ccall trf_6525(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6525(t0,t1,t2);}

C_noret_decl(trf_6549)
static void C_ccall trf_6549(C_word c,C_word *av) C_noret;
static void C_ccall trf_6549(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_6549(t0,t1);}

C_noret_decl(trf_6591)
static void C_ccall trf_6591(C_word c,C_word *av) C_noret;
static void C_ccall trf_6591(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6591(t0,t1,t2);}

C_noret_decl(trf_6614)
static void C_ccall trf_6614(C_word c,C_word *av) C_noret;
static void C_ccall trf_6614(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6614(t0,t1,t2);}

C_noret_decl(trf_6669)
static void C_ccall trf_6669(C_word c,C_word *av) C_noret;
static void C_ccall trf_6669(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6669(t0,t1,t2);}

C_noret_decl(trf_6671)
static void C_ccall trf_6671(C_word c,C_word *av) C_noret;
static void C_ccall trf_6671(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6671(t0,t1,t2);}

C_noret_decl(trf_6703)
static void C_ccall trf_6703(C_word c,C_word *av) C_noret;
static void C_ccall trf_6703(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6703(t0,t1,t2);}

C_noret_decl(trf_6783)
static void C_ccall trf_6783(C_word c,C_word *av) C_noret;
static void C_ccall trf_6783(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_6783(t0,t1);}

C_noret_decl(trf_6787)
static void C_ccall trf_6787(C_word c,C_word *av) C_noret;
static void C_ccall trf_6787(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6787(t0,t1,t2);}

C_noret_decl(trf_6805)
static void C_ccall trf_6805(C_word c,C_word *av) C_noret;
static void C_ccall trf_6805(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6805(t0,t1,t2);}

C_noret_decl(trf_6976)
static void C_ccall trf_6976(C_word c,C_word *av) C_noret;
static void C_ccall trf_6976(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6976(t0,t1,t2,t3);}

C_noret_decl(trf_7057)
static void C_ccall trf_7057(C_word c,C_word *av) C_noret;
static void C_ccall trf_7057(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7057(t0,t1);}

C_noret_decl(trf_7186)
static void C_ccall trf_7186(C_word c,C_word *av) C_noret;
static void C_ccall trf_7186(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7186(t0,t1,t2);}

C_noret_decl(trf_7226)
static void C_ccall trf_7226(C_word c,C_word *av) C_noret;
static void C_ccall trf_7226(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7226(t0,t1,t2,t3);}

C_noret_decl(trf_7232)
static void C_ccall trf_7232(C_word c,C_word *av) C_noret;
static void C_ccall trf_7232(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7232(t0,t1,t2,t3);}

C_noret_decl(trf_7290)
static void C_ccall trf_7290(C_word c,C_word *av) C_noret;
static void C_ccall trf_7290(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_7290(t0,t1,t2,t3,t4);}

C_noret_decl(trf_7429)
static void C_ccall trf_7429(C_word c,C_word *av) C_noret;
static void C_ccall trf_7429(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7429(t0,t1);}

C_noret_decl(trf_7539)
static void C_ccall trf_7539(C_word c,C_word *av) C_noret;
static void C_ccall trf_7539(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7539(t0,t1,t2);}

C_noret_decl(trf_7563)
static void C_ccall trf_7563(C_word c,C_word *av) C_noret;
static void C_ccall trf_7563(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7563(t0,t1);}

C_noret_decl(trf_7654)
static void C_ccall trf_7654(C_word c,C_word *av) C_noret;
static void C_ccall trf_7654(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7654(t0,t1);}

C_noret_decl(trf_7686)
static void C_ccall trf_7686(C_word c,C_word *av) C_noret;
static void C_ccall trf_7686(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7686(t0,t1,t2);}

C_noret_decl(trf_7707)
static void C_ccall trf_7707(C_word c,C_word *av) C_noret;
static void C_ccall trf_7707(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7707(t0,t1,t2);}

C_noret_decl(trf_7877)
static void C_ccall trf_7877(C_word c,C_word *av) C_noret;
static void C_ccall trf_7877(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7877(t0,t1,t2);}

C_noret_decl(trf_8179)
static void C_ccall trf_8179(C_word c,C_word *av) C_noret;
static void C_ccall trf_8179(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8179(t0,t1,t2);}

C_noret_decl(trf_8248)
static void C_ccall trf_8248(C_word c,C_word *av) C_noret;
static void C_ccall trf_8248(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8248(t0,t1,t2);}

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[1];
C_word t1=av[0];
f_8299(t0,t1);}

C_noret_decl(trf_8365)
static void C_ccall trf_8365(C_word c,C_word *av) C_noret;
static void C_ccall trf_8365(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8365(t0,t1,t2);}

C_noret_decl(trf_8392)
static void C_ccall trf_8392(C_word c,C_word *av) C_noret;
static void C_ccall trf_8392(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8392(t0,t1,t2);}

C_noret_decl(trf_8518)
static void C_ccall trf_8518(C_word c,C_word *av) C_noret;
static void C_ccall trf_8518(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_8518(t0,t1,t2,t3,t4);}

C_noret_decl(trf_8668)
static void C_ccall trf_8668(C_word c,C_word *av) C_noret;
static void C_ccall trf_8668(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8668(t0,t1);}

C_noret_decl(trf_8682)
static void C_ccall trf_8682(C_word c,C_word *av) C_noret;
static void C_ccall trf_8682(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8682(t0,t1,t2);}

C_noret_decl(trf_8741)
static void C_ccall trf_8741(C_word c,C_word *av) C_noret;
static void C_ccall trf_8741(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8741(t0,t1);}

C_noret_decl(trf_8769)
static void C_ccall trf_8769(C_word c,C_word *av) C_noret;
static void C_ccall trf_8769(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8769(t0,t1,t2);}

C_noret_decl(trf_8880)
static void C_ccall trf_8880(C_word c,C_word *av) C_noret;
static void C_ccall trf_8880(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8880(t0,t1,t2);}

C_noret_decl(trf_8986)
static void C_ccall trf_8986(C_word c,C_word *av) C_noret;
static void C_ccall trf_8986(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8986(t0,t1);}

C_noret_decl(trf_9017)
static void C_ccall trf_9017(C_word c,C_word *av) C_noret;
static void C_ccall trf_9017(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9017(t0,t1,t2);}

C_noret_decl(trf_9080)
static void C_ccall trf_9080(C_word c,C_word *av) C_noret;
static void C_ccall trf_9080(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9080(t0,t1,t2);}

C_noret_decl(trf_9148)
static void C_ccall trf_9148(C_word c,C_word *av) C_noret;
static void C_ccall trf_9148(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9148(t0,t1,t2);}

C_noret_decl(trf_9184)
static void C_ccall trf_9184(C_word c,C_word *av) C_noret;
static void C_ccall trf_9184(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9184(t0,t1);}

C_noret_decl(trf_9320)
static void C_ccall trf_9320(C_word c,C_word *av) C_noret;
static void C_ccall trf_9320(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9320(t0,t1,t2);}

C_noret_decl(trf_9378)
static void C_ccall trf_9378(C_word c,C_word *av) C_noret;
static void C_ccall trf_9378(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9378(t0,t1,t2);}

C_noret_decl(trf_9397)
static void C_ccall trf_9397(C_word c,C_word *av) C_noret;
static void C_ccall trf_9397(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9397(t0,t1);}

C_noret_decl(trf_9412)
static void C_ccall trf_9412(C_word c,C_word *av) C_noret;
static void C_ccall trf_9412(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9412(t0,t1,t2);}

C_noret_decl(trf_9469)
static void C_ccall trf_9469(C_word c,C_word *av) C_noret;
static void C_ccall trf_9469(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9469(t0,t1,t2);}

C_noret_decl(trf_9589)
static void C_ccall trf_9589(C_word c,C_word *av) C_noret;
static void C_ccall trf_9589(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_9589(t0,t1,t2,t3);}

C_noret_decl(trf_9637)
static void C_ccall trf_9637(C_word c,C_word *av) C_noret;
static void C_ccall trf_9637(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9637(t0,t1,t2);}

C_noret_decl(trf_9762)
static void C_ccall trf_9762(C_word c,C_word *av) C_noret;
static void C_ccall trf_9762(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_9762(t0,t1,t2,t3);}

C_noret_decl(trf_9838)
static void C_ccall trf_9838(C_word c,C_word *av) C_noret;
static void C_ccall trf_9838(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9838(t0,t1,t2);}

C_noret_decl(trf_9895)
static void C_ccall trf_9895(C_word c,C_word *av) C_noret;
static void C_ccall trf_9895(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9895(t0,t1,t2);}

C_noret_decl(trf_9951)
static void C_ccall trf_9951(C_word c,C_word *av) C_noret;
static void C_ccall trf_9951(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_9951(t0,t1,t2,t3,t4);}

/* f19479 in chicken.compiler.support#print-version in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f19479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f19479,c,av);}
C_trace(C_text("support.scm:1754: chicken.base#print"));
t2=*((C_word*)lf[225]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10001(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_10001,2,t0,t1);}
a=C_alloc(21);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10008,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:596: walk"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_9378(t3,t2,C_i_car(((C_word*)t0)[2]));}
else{
t2=C_eqp(((C_word*)t0)[4],lf[164]);
if(C_truep(t2)){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[2],lf[119]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10076,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10078,a[2]=t5,a[3]=t10,a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_10078(t12,t8,((C_word*)t0)[2]);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10117,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=C_i_check_list_2(((C_word*)t0)[2],lf[119]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10127,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10129,a[2]=t6,a[3]=t11,a[4]=((C_word*)t0)[6],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_10129(t13,t9,((C_word*)t0)[2]);}}}

/* k10006 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10008(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_10008,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_u_i_cdr(((C_word*)t2)[2]);
t8=C_i_check_list_2(t7,lf[119]);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10019,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=t1,a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10021,a[2]=t5,a[3]=t11,a[4]=((C_word*)t2)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_10021(t13,t9,t7);}

/* k10017 in k10006 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_10019,c,av);}
a=C_alloc(9);
C_trace(C_text("support.scm:596: cons*"));
f_5645(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],t1));}

/* map-loop1911 in k10006 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_10021(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10021,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10046,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);
C_trace(C_text("support.scm:596: g1917"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10044 in map-loop1911 in k10006 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10046(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10046,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10021(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10074 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10076,c,av);}
a=C_alloc(6);
C_trace(C_text("support.scm:598: cons*"));
f_5645(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));}

/* map-loop1937 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10078(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10078,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10103,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);
C_trace(C_text("support.scm:598: g1943"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10101 in map-loop1937 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10103,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10078(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10115 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10117,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k10125 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10127,c,av);}
C_trace(C_text("support.scm:599: scheme#append"));
t2=*((C_word*)lf[151]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop1963 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10129(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10129,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10154,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);
C_trace(C_text("support.scm:599: g1969"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10152 in map-loop1963 in k9999 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10154,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10129(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.support#fold-boolean in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10227,c,av);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10233,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_10233(t7,t1,t3);}

/* fold in chicken.compiler.support#fold-boolean in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10233(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_10233,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_cddr(t2);
if(C_truep(C_i_nullp(t3))){{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
C_apply(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10259,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:607: proc"));
t5=((C_word*)t0)[2];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
av2[3]=C_i_cadr(t2);
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}}

/* k10257 in fold in chicken.compiler.support#fold-boolean in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_10259,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10263,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:608: fold"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_10233(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k10261 in k10257 in fold in chicken.compiler.support#fold-boolean in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_10263,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[159],lf[194],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8;
C_word t9;
C_word *a;
if(c!=8) C_bad_argc_2(c,8,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_10279,c,av);}
a=C_alloc(7);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10285,a[2]=t3,a[3]=t6,a[4]=t5,a[5]=t7,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:612: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[213]);
C_word *av2=av;
av2[0]=*((C_word*)lf[213]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t8;
tp(4,av2);}}

/* a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_10285,c,av);}
a=C_alloc(13);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10291,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10297,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("support.scm:615: ##sys#call-with-values"));{
C_word *av2=av;
av2[0]=0;
av2[1]=t1;
av2[2]=t5;
av2[3]=t6;
C_call_with_values(4,av2);}}

/* a10290 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_10291,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5378,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_5378(t5,t1,((C_word*)t0)[2],C_SCHEME_END_OF_LIST,((C_word*)t0)[3]);}

/* a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10297(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_10297,c,av);}
a=C_alloc(24);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10301,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[5])){
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(((C_word*)t0)[6],lf[119]);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10575,a[2]=t7,a[3]=t11,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_10575(t13,t4,((C_word*)t0)[6]);}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[6];
f_10301(2,av2);}}}

/* k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10301(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_10301,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[8])){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[9],lf[119]);
t8=C_i_check_list_2(t1,lf[119]);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10622,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11054,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_11054(t13,t9,((C_word*)t0)[9],t1);}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[11];
f_10304(2,av2);}}}

/* k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10304(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_10304,c,av);}
a=C_alloc(22);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[2],lf[119]);
t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10318,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10529,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_10529(t11,t7,((C_word*)t0)[2]);}

/* k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_10318,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10527,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:621: last"));
f_5981(t3,((C_word*)t0)[5]);}

/* k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_10321,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10324,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10478,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[6],a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10488,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:629: db-get-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[128]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[128]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[200];
tp(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_10324(2,av2);}}}

/* k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_10324,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10331,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("support.scm:633: take"));
f_5320(t3,((C_word*)t2)[5],((C_word*)t2)[10]);}

/* k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10331(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10331,c,av);}
a=C_alloc(11);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,tmp=(C_word)a,a+=9,tmp));
t5=((C_word*)t3)[1];
f_10333(t5,((C_word*)t0)[8],t1,((C_word*)t0)[9]);}

/* loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void f_10333(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_10333,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_nullp(t2))){
if(C_truep(((C_word*)t0)[2])){
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10348,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=t5,tmp=(C_word)a,a+=8,tmp));
t7=((C_word*)t5)[1];
f_10348(t7,t1,((C_word*)t0)[4],((C_word*)t0)[7]);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t4=C_i_car(t2);
t5=C_a_i_list1(&a,1,t4);
t6=C_i_car(t3);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10469,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:659: loop"));
t9=t7;
t10=C_u_i_cdr(t2);
t11=C_u_i_cdr(t3);
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* loop2 in loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_10348(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_10348,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10413,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:642: db-get-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[128]);
C_word av2[5];
av2[0]=*((C_word*)lf[128]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[197];
tp(5,av2);}}
else{
t4=C_i_car(t3);
t5=C_a_i_list1(&a,1,t4);
t6=C_i_car(t2);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10437,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:655: loop2"));
t9=t7;
t10=C_u_i_cdr(t2);
t11=C_u_i_cdr(t3);
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* k10379 in k10407 in k10411 in loop2 in loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_10381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_10381,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[91],((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10407 in k10411 in loop2 in loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_10409(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){
C_save_and_reclaim((void *)f_10409,c,av);}
a=C_alloc(35);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
C_trace(C_text("support.scm:647: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t3;
av2[2]=C_SCHEME_END_OF_LIST;
tp(3,av2);}}
else{
t4=C_i_length(((C_word*)t0)[4]);
t5=C_a_i_fixnum_times(&a,2,C_fix(3),t4);
t6=C_a_i_list2(&a,2,lf[196],t5);
t7=C_a_i_record4(&a,4,lf[130],lf[164],t6,((C_word*)t0)[4]);
t8=C_a_i_list2(&a,2,t7,((C_word*)t0)[2]);
t9=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[91],t2,t8);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}

/* k10411 in loop2 in loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10413,c,av);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10409,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:645: last"));
f_5981(t2,((C_word*)t0)[5]);}}

/* k10435 in loop2 in loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_10437,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[91],((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10467 in loop in k10329 in k10322 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_10469(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_10469,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[91],((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* g2070 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10478(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){
C_save_and_reclaim_args((void *)trf_10478,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10482,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:627: db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word av2[6];
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[199];
av2[5]=C_SCHEME_FALSE;
tp(6,av2);}}

/* k10480 in g2070 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10482,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("support.scm:628: db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[198];
av2[5]=C_SCHEME_FALSE;
tp(6,av2);}}

/* k10486 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_10488,c,av);}
a=C_alloc(11);
t2=C_i_check_list_2(t1,lf[44]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10502,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_10502(t7,t3,t1);}

/* k10492 in k10486 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_10494,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10497,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:630: db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[199];
av2[5]=C_SCHEME_FALSE;
tp(6,av2);}}

/* k10495 in k10492 in k10486 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10497,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("support.scm:631: db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[200];
av2[5]=C_SCHEME_END_OF_LIST;
tp(6,av2);}}

/* for-each-loop2069 in k10486 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_10502(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_10502,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10512,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:626: g2070"));
t4=((C_word*)t0)[3];
f_10478(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10510 in for-each-loop2069 in k10486 in k10319 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10512,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10502(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_10527,c,av);}
a=C_alloc(9);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11105,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp));
C_trace(C_text("support.scm:745: walk"));
t5=((C_word*)t3)[1];
f_11105(t5,((C_word*)t0)[5],((C_word*)t0)[6]);}

/* map-loop2042 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10529(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10529,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10554,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:620: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[207];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10552 in map-loop2042 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10554,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10529(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop2014 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10575(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10575,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10600,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);
C_trace(C_text("support.scm:616: g2020"));
t4=*((C_word*)lf[92]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10598 in map-loop2014 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10600,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10575(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_10622,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp));
C_trace(C_text("support.scm:708: walk"));
t5=((C_word*)t3)[1];
f_10630(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_10630(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_10630,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10634,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=C_SCHEME_UNDEFINED,a[8]=t2,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("support.scm:666: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word av2[3];
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10634,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+7,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10637,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:667: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_10637(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_10637,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10640,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("support.scm:668: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_10640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_10640,c,av);}
a=C_alloc(10);
t2=C_eqp(t1,lf[80]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(t1,lf[140]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[3]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10666,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10676,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:674: db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
av2[3]=t4;
av2[4]=lf[210];
tp(5,av2);}}
else{
t4=C_eqp(t1,lf[118]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t6=C_i_car(((C_word*)t0)[3]);
C_trace(C_text("support.scm:664: chicken.base#alist-ref"));
t7=*((C_word*)lf[208]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
av2[3]=((C_word*)t0)[4];
av2[4]=*((C_word*)lf[209]+1);
av2[5]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}
else{
t5=C_eqp(t1,lf[91]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t0)[3]);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10729,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("support.scm:683: walk"));
t8=((C_word*)((C_word*)t0)[7])[1];
f_10630(t8,t7,C_i_car(((C_word*)t0)[8]),((C_word*)t0)[4]);}
else{
t6=C_eqp(t1,lf[112]);
if(C_truep(t6)){
t7=C_i_caddr(((C_word*)t0)[3]);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10781,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:691: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[213]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[213]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t7;
av2[3]=t8;
tp(4,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10990,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:706: tree-copy"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[214]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[214]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}}}}}

/* k10664 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_10666,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:664: chicken.base#alist-ref"));
t3=*((C_word*)lf[208]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=*((C_word*)lf[209]+1);
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k10671 in k10664 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_10673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10673,c,av);}
C_trace(C_text("support.scm:676: varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[139]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k10674 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10676,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:675: cfk"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10666(2,av2);}}}

/* k10703 in k10711 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_10705(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_10705,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[118],((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10711 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_10713,c,av);}
a=C_alloc(7);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10705,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:680: walk"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_10630(t4,t3,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k10727 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10729,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10732,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:684: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k10730 in k10727 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_10732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){
C_save_and_reclaim((void *)f_10732,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,((C_word*)t2)[2],t1);
t4=C_a_i_cons(&a,2,t3,((C_word*)t2)[3]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10738,a[2]=t1,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=t4,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("support.scm:686: db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[8];
av2[3]=t1;
av2[4]=lf[211];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k10736 in k10730 in k10727 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_10738,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10758,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:689: walk"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_10630(t4,t3,C_i_cadr(((C_word*)t0)[6]),((C_word*)t0)[7]);}

/* k10756 in k10736 in k10730 in k10727 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_10758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_10758,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[91],((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){
C_save_and_reclaim((void *)f_10781,c,av);}
a=C_alloc(28);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10786,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t10=C_i_check_list_2(t2,lf[119]);
t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10799,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t3,a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10946,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t15=((C_word*)t13)[1];
f_10946(t15,t11,t2);}

/* g2205 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_10786(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_10786,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10790,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:695: chicken.base#gensym"));
t6=*((C_word*)lf[92]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k10788 in g2205 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_10790,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10793,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:696: db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[211];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k10791 in k10788 in g2205 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_10793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10793,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_10799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,4)))){
C_save_and_reclaim((void *)f_10799,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(t1,lf[119]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10896,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10898,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_10898(t12,t8,((C_word*)t0)[9],t1);}

/* k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10802,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10867,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:702: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[212];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* g2272 in k10873 in k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void f_10819(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_10819,3,t0,t1,t2);}
C_trace(C_text("support.scm:705: g2289"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_10630(t3,t1,t2,((C_word*)t0)[3]);}

/* k10827 in k10873 in k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void C_ccall f_10829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_10829,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[112],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2266 in k10873 in k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void f_10831(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10831,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10856,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);
C_trace(C_text("support.scm:705: g2272"));
t4=((C_word*)t0)[4];
f_10819(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10854 in map-loop2266 in k10873 in k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void C_ccall f_10856(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10856,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10831(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_10867(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){
C_save_and_reclaim((void *)f_10867,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_i_cadr(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10875,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],tmp=(C_word)a,a+=9,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10883,a[2]=t4,a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[8],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t2)[9])){
C_trace(C_text("support.scm:664: chicken.base#alist-ref"));
t6=*((C_word*)lf[208]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t2)[9];
av2[3]=((C_word*)t2)[4];
av2[4]=*((C_word*)lf[209]+1);
av2[5]=((C_word*)t2)[9];
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
C_trace(C_text("support.scm:703: build-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[53]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[53]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[7];
av2[3]=((C_word*)t2)[8];
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}}

/* k10873 in k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_10875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){
C_save_and_reclaim((void *)f_10875,c,av);}
a=C_alloc(33);
t2=C_i_cadddr(((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10819,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t9=C_i_check_list_2(((C_word*)t0)[7],lf[119]);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10829,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10831,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_10831(t14,t10,((C_word*)t0)[7]);}

/* k10881 in k10865 in k10800 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_10883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10883,c,av);}
C_trace(C_text("support.scm:703: build-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[53]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[53]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}

/* k10894 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10896,c,av);}
C_trace(C_text("support.scm:699: scheme#append"));
t2=*((C_word*)lf[151]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop2229 in k10797 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void f_10898(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_10898,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_cons(&a,2,t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop2199 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_10946(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10946,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:694: g2205"));
t4=((C_word*)t0)[4];
f_10786(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10969 in map-loop2199 in a10780 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_10971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10971,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10946(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10988 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_10990(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_10990,c,av);}
a=C_alloc(22);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10995,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(((C_word*)t0)[4],lf[119]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11005,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11007,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_11007(t12,t8,((C_word*)t0)[4]);}

/* g2311 in k10988 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_10995(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_10995,3,t0,t1,t2);}
C_trace(C_text("support.scm:707: g2328"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_10630(t3,t1,t2,((C_word*)t0)[3]);}

/* k11003 in k10988 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_11005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_11005,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2305 in k10988 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_11007(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11007,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11032,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);
C_trace(C_text("support.scm:707: g2311"));
t4=((C_word*)t0)[4];
f_10995(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11030 in map-loop2305 in k10988 in k10638 in k10635 in k10632 in walk in k10620 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_11032(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11032,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11007(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* map-loop2127 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11054(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_11054,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_cons(&a,2,t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11105(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_11105,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11109,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=C_SCHEME_UNDEFINED,a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("support.scm:714: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word av2[3];
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_11109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11109,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+9,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11112,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:715: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_11112(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11112,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11115,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:716: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}

/* k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_11115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_11115,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,lf[201]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t2)[2]);
t5=C_eqp(((C_word*)t2)[3],t4);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11134,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
t7=C_i_length(((C_word*)t2)[6]);
t8=C_i_cadr(((C_word*)t2)[2]);
C_trace(C_text("support.scm:720: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t6;
av2[2]=C_i_less_or_equalp(t7,t8);
tp(3,av2);}}
else{
t6=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t4=C_eqp(t1,lf[203]);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[2]);
t6=C_eqp(((C_word*)t2)[3],t5);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t2)[2]);
t8=C_i_length(((C_word*)t2)[6]);
if(C_truep(C_i_greaterp(t8,t7))){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11181,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:727: varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[139]+1);
av2[1]=t9;
av2[2]=C_i_list_ref(((C_word*)t2)[6],t7);
tp(3,av2);}}
else{
t9=C_a_i_list1(&a,1,lf[204]);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11209,a[2]=t9,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=t7,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:730: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t10;
av2[2]=t8;
tp(3,av2);}}}
else{
t7=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t5=C_eqp(t1,lf[205]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t2)[2]);
t7=C_eqp(((C_word*)t2)[3],t6);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11236,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[7],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:735: collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[127]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[127]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[8];
av2[3]=((C_word*)t2)[3];
av2[4]=lf[197];
av2[5]=((C_word*)t2)[5];
tp(6,av2);}}
else{
t8=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t8;
av2[1]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t6=C_i_check_list_2(((C_word*)t2)[9],lf[44]);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11292,a[2]=t8,a[3]=((C_word*)t2)[10],tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_11292(t10,((C_word*)t2)[4],((C_word*)t2)[9]);}}}}

/* k11132 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_11134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11134,c,av);}
C_trace(C_text("support.scm:720: copy-node!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[202]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[202]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k11179 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_11181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11181,c,av);}
C_trace(C_text("support.scm:727: copy-node!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[202]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[202]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k11207 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_11209(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_11209,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11213,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:730: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k11211 in k11207 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_11213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11213,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11217,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:730: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t3;
av2[2]=C_fix(0);
tp(3,av2);}}

/* k11215 in k11211 in k11207 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_11217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_11217,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_a_i_list3(&a,3,((C_word*)t2)[2],((C_word*)t2)[3],t1);
t4=C_a_i_record4(&a,4,lf[130],lf[159],((C_word*)t2)[4],t3);
C_trace(C_text("support.scm:728: copy-node!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[202]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[202]+1);
av2[1]=((C_word*)t2)[5];
av2[2]=t4;
av2[3]=((C_word*)t2)[6];
tp(4,av2);}}

/* k11234 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_11236(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){
C_save_and_reclaim((void *)f_11236,c,av);}
a=C_alloc(34);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11248,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:737: varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[139]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k11246 in k11234 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_11248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_11248,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11250,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_11250(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* lp in k11246 in k11234 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void f_11250(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(40,0,3)))){
C_save_and_reclaim_args((void *)trf_11250,4,t0,t1,t2,t3);}
a=C_alloc(40);
if(C_truep(C_i_zerop(t2))){
C_trace(C_text("support.scm:739: copy-node!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[202]);
C_word av2[4];
av2[0]=*((C_word*)lf[202]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
t5=C_a_i_list1(&a,1,lf[206]);
t6=C_a_i_list1(&a,1,t3);
t7=C_a_i_record4(&a,4,lf[130],lf[159],t5,t6);
C_trace(C_text("support.scm:740: lp"));
t9=t1;
t10=t4;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* for-each-loop2379 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void f_11292(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11292,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11302,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:743: g2380"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_11105(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11300 in for-each-loop2379 in k11113 in k11110 in k11107 in walk in k10525 in k10316 in k10302 in k10299 in a10296 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_11302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11302,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11292(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.support#replace-rest-op-with-list-ops in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){
C_save_and_reclaim((void *)f_11324,c,av);}
a=C_alloc(34);
t5=C_eqp(t2,lf[203]);
if(C_truep(t5)){
t6=C_a_i_list1(&a,1,lf[216]);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11351,a[2]=t3,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:752: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2=av;
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t7;
av2[2]=C_i_cadr(t4);
tp(3,av2);}}
else{
t6=C_eqp(t2,lf[205]);
if(C_truep(t6)){
t7=C_i_cadr(t4);
t8=C_s_a_i_plus(&a,2,t7,C_fix(1));
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11371,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t12=((C_word*)t10)[1];
f_11371(t12,t1,t8,t3);}
else{
t7=C_eqp(t2,lf[201]);
if(C_truep(t7)){
t8=C_a_i_list1(&a,1,lf[218]);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11424,a[2]=t3,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:763: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2=av;
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t9;
av2[2]=C_i_cadr(t4);
tp(3,av2);}}
else{
t8=C_eqp(t2,lf[220]);
if(C_truep(t8)){
t9=C_a_i_list1(&a,1,lf[221]);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11471,a[2]=t3,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:768: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2=av;
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t10;
av2[2]=C_i_cadr(t4);
tp(3,av2);}}
else{
C_trace(C_text("support.scm:769: bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1));
C_word *av2=av;
av2[0]=*((C_word*)lf[13]+1);
av2[1]=t1;
av2[2]=lf[222];
av2[3]=t2;
tp(4,av2);}}}}}}

/* k11349 in chicken.compiler.support#replace-rest-op-with-list-ops in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_11351,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[159],((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* lp in chicken.compiler.support#replace-rest-op-with-list-ops in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11371(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(40,0,3)))){
C_save_and_reclaim_args((void *)trf_11371,4,t0,t1,t2,t3);}
a=C_alloc(40);
if(C_truep(C_i_zerop(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
t5=C_a_i_list1(&a,1,lf[217]);
t6=C_a_i_list1(&a,1,t3);
t7=C_a_i_record4(&a,4,lf[130],lf[159],t5,t6);
C_trace(C_text("support.scm:758: lp"));
t9=t1;
t10=t4;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* k11422 in chicken.compiler.support#replace-rest-op-with-list-ops in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,1)))){
C_save_and_reclaim((void *)f_11424,c,av);}
a=C_alloc(22);
t2=C_a_i_list1(&a,1,lf[219]);
t3=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t4=C_a_i_record4(&a,4,lf[130],lf[159],t2,t3);
t5=C_a_i_list2(&a,2,t1,t4);
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[159],((C_word*)t0)[4],t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k11469 in chicken.compiler.support#replace-rest-op-with-list-ops in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
C_save_and_reclaim((void *)f_11471,c,av);}
a=C_alloc(11);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[159],((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#tree-copy in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11488,c,av);}
a=C_alloc(5);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11494,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_11494(t6,t1,t2);}

/* rec in chicken.compiler.support#tree-copy in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11494(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11494,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11508,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:775: rec"));
t5=t3;
t6=C_u_i_car(t2);
t1=t5;
t2=t6;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11506 in rec in chicken.compiler.support#tree-copy in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11508,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11512,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:775: rec"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_11494(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k11510 in k11506 in rec in chicken.compiler.support#tree-copy in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_11512,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#copy-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11518,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11531,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:779: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2=av;
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k11529 in chicken.compiler.support#copy-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11531,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11535,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:780: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k11533 in k11529 in chicken.compiler.support#copy-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11535,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11539,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:781: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k11537 in k11533 in k11529 in chicken.compiler.support#copy-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_11539,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_11541,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11545,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11563,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:784: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2=av;
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k11543 in chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11545(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_11545,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11548,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11559,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:785: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k11546 in k11543 in chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_11548,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11551,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11555,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:786: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k11549 in k11546 in k11543 in chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11551,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11553 in k11546 in k11543 in chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11555,c,av);}
C_trace(C_text("support.scm:786: node-subexpressions-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[137]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[137]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k11557 in k11543 in chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11559,c,av);}
C_trace(C_text("support.scm:785: node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[135]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[135]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k11561 in chicken.compiler.support#copy-node! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11563,c,av);}
C_trace(C_text("support.scm:784: node-class-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[132]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[132]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_11571(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11571,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11579,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:791: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word av2[3];
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k11577 in walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_11579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11579,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11587,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:792: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k11585 in k11577 in walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_11587(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_11587,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11594,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=t5,a[6]=((C_word*)t2)[4],a[7]=t6,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("support.scm:793: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}

/* k11592 in k11585 in k11577 in walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_11594(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_11594,c,av);}
a=C_alloc(13);
t2=C_i_check_list_2(t1,lf[119]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11602,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_11602(t7,t3,t1);}

/* k11598 in k11592 in k11585 in k11577 in walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void C_ccall f_11600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_11600,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop2461 in k11592 in k11585 in k11577 in walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void f_11602(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11602,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11627,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);
C_trace(C_text("support.scm:793: g2467"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_11571(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11625 in map-loop2461 in k11592 in k11585 in k11577 in walk in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void C_ccall f_11627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11627,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11602(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* walk in k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11642(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
C_save_and_reclaim_args((void *)trf_11642,3,t0,t1,t2);}
a=C_alloc(18);
t3=C_i_car(t2);
t4=C_i_cadr(t2);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_u_i_cdr(t2);
t10=C_u_i_cdr(t9);
t11=C_i_check_list_2(t10,lf[119]);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11671,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11673,a[2]=t7,a[3]=t14,a[4]=((C_word*)t0)[2],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_11673(t16,t12,t10);}

/* k11669 in walk in k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_11671,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop2497 in walk in k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11673(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11673,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:797: g2503"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_11642(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11696 in map-loop2497 in walk in k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11698,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11673(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(c!=8) C_bad_argc_2(c,8,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_11707,c,av);}
a=C_alloc(22);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11710,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
t9=C_SCHEME_END_OF_LIST;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_END_OF_LIST;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11749,a[2]=t1,a[3]=t10,a[4]=t12,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11853,a[2]=t10,a[3]=t12,a[4]=t8,a[5]=t6,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("support.scm:812: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word *av2=av;
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t13;
av2[2]=t14;
av2[3]=t4;
tp(4,av2);}}

/* uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11710(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_11710,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11716,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];{
C_word av2[3];
av2[0]=t6;
av2[1]=t1;
av2[2]=t2;
f_11716(3,av2);}}

/* walk in uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_11716,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11720,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:805: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2=av;
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k11718 in walk in uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11720,c,av);}
a=C_alloc(4);
t2=C_eqp(t1,lf[159]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11737,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:807: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:809: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k11735 in k11718 in walk in uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11737(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11737,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_memq(C_i_car(t1),((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11742 in k11718 in walk in uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11744,c,av);}
C_trace(C_text("support.scm:809: any"));
f_5615(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);}

/* k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11749(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11749,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11752,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11803,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:833: scheme#with-output-to-file"));
t4=C_fast_retrieve(lf[237]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11752,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11758,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){
C_trace(C_text("support.scm:844: debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[22]+1);
av2[1]=t2;
av2[2]=lf[229];
av2[3]=lf[230];
tp(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_11758(2,av2);}}}

/* k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11758,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11766,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=((C_word*)((C_word*)t2)[3])[1];
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7263,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:264: chicken.sort#sort"));
t6=C_fast_retrieve(lf[228]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11764 in k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11766,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[44]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11774,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_11774(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2611 in k11764 in k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11774(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_11774,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11784,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:845: g2627"));
t4=*((C_word*)lf[225]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[226];
av2[3]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11782 in for-each-loop2611 in k11764 in k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11784,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11774(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_11803,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11807,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11851,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:835: chicken.platform#chicken-version"));
t4=C_fast_retrieve(lf[236]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11805 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11807,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11818,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:841: scheme#reverse"));
t3=*((C_word*)lf[75]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11810 in for-each-loop2589 in k11816 in k11805 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11812,c,av);}
C_trace(C_text("support.scm:840: scheme#newline"));
t2=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11816 in k11805 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11818,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11821,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11826,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_11826(t6,t2,t1);}

/* k11819 in k11816 in k11805 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11821,c,av);}
C_trace(C_text("support.scm:842: chicken.base#print"));
t2=*((C_word*)lf[225]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[231];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* for-each-loop2589 in k11816 in k11805 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11826(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_11826,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11836,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11812,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:839: chicken.pretty-print#pp"));
t6=C_fast_retrieve(lf[232]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11834 in for-each-loop2589 in k11816 in k11805 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11836,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11826(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k11849 in a11802 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_11851,c,av);}
C_trace(C_text("support.scm:835: chicken.base#print"));
t2=*((C_word*)lf[225]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[233];
av2[3]=t1;
av2[4]=lf[234];
av2[5]=((C_word*)t0)[3];
av2[6]=lf[235];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_11853,c,av);}
a=C_alloc(11);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11860,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("support.scm:814: variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[247]);
C_word *av2=av;
av2[0]=*((C_word*)lf[247]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=((C_word*)t0)[7];
tp(4,av2);}}

/* k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11860(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11860,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_i_assq(lf[238],((C_word*)t0)[2]);
t3=C_mutate(((C_word *)t0)+7,t2);
if(C_truep(((C_word*)t0)[7])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12003,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("tweaks.scm:60: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[246];
tp(4,av2);}}
else{
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_11881(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_11881,2,t0,t1);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
if(C_truep(C_i_assq(lf[240],((C_word*)t2)[2]))){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11893,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("support.scm:821: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word av2[3];
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=C_i_cdr(((C_word*)t2)[7]);
tp(3,av2);}}
else{
t3=((C_word*)t2)[6];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
else{
t3=((C_word*)t2)[6];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11893,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11970,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("support.scm:822: db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[244];
tp(5,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11910(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_11910,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11913,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
t4=C_eqp(t1,lf[241]);
if(C_truep(t4)){
t5=t3;
f_11913(t5,C_SCHEME_TRUE);}
else{
t5=C_eqp(t1,lf[242]);
t6=t3;
f_11913(t6,(C_truep(t5)?C_SCHEME_FALSE:C_i_lessp(C_i_cadddr(((C_word*)t2)[8]),((C_word*)t2)[9])));}}

/* k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_11913(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_11913,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:829: uses-foreign-stubs?"));
t3=((C_word*)t0)[7];
f_11710(t3,t2,C_u_i_cdr(((C_word*)t0)[6]));}
else{
t2=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k11936 in k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_11938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_11938,c,av);}
a=C_alloc(9);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k11942 in k11911 in k11908 in k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_11944(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_11944,c,av);}
a=C_alloc(13);
if(C_truep(C_i_not(t1))){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
t5=C_u_i_cdr(((C_word*)t0)[6]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11571,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_11571(t9,t4,t5);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k11968 in k11891 in k11879 in k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_11970(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11970,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11910,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("tweaks.scm:60: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[243];
tp(4,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k12001 in k11858 in a11852 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12003(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12003,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_i_structurep(t1,lf[130]);
if(C_truep(C_i_not(t3))){
t4=C_i_assq(lf[239],((C_word*)t2)[2]);
t5=C_i_not(t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11881,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_11881(t7,t5);}
else{
t7=C_i_cdr(t4);
t8=t6;
f_11881(t8,C_i_not(C_eqp(lf[245],t7)));}}
else{
t4=((C_word*)t2)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
C_save_and_reclaim((void *)f_12005,c,av);}
a=C_alloc(2);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12011,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:849: scheme#with-input-from-file"));
t4=C_fast_retrieve(lf[251]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12011(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12011,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12017,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_12017(t5,t1);}

/* loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12017(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_12017,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12021,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:852: scheme#read"));
t3=*((C_word*)lf[78]+1);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12021(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_12021,c,av);}
a=C_alloc(12);
if(C_truep(C_eofp(t1))){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12044,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_i_car(t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12055,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_cadr(t1);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11642,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_11642(t9,t4,t5);}}

/* k12042 in k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12044,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("support.scm:858: loop"));
t3=((C_word*)((C_word*)t2)[3])[1];
f_12017(t3,((C_word*)t2)[2]);}

/* k12053 in k12019 in loop in a12010 in chicken.compiler.support#load-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12055,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[246];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[246];
av2[4]=C_i_car(t2);
tp(5,av2);}}}

/* chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
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);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_12061,c,av);}
a=C_alloc(27);
t5=C_SCHEME_END_OF_LIST;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12064,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12098,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp));
t15=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12145,a[2]=t8,a[3]=t12,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12253,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:892: matchn"));
t17=((C_word*)t12)[1];
f_12145(t17,t16,t2,t3);}

/* resolve in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12064(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12064,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12072,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:867: g2673"));
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(
C_trace("support.scm:867: g2673"),
  f_12072(t5,t4)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
if(C_truep(C_i_memq(t2,((C_word*)t0)[3]))){
t5=((C_word*)((C_word*)t0)[2])[1];
t6=C_a_i_cons(&a,2,t2,t3);
t7=C_a_i_cons(&a,2,t6,t5);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_eqp(t2,t3);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}

/* g2673 in resolve in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_12072(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_equalp(((C_word*)t0)[2],C_i_cdr(t1)));}

/* match1 in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12098(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12098,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t3);
if(C_truep(C_i_not(t4))){
C_trace(C_text("support.scm:874: resolve"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_12064(t5,t1,t3,t2);}
else{
t5=C_i_pairp(t2);
if(C_truep(C_i_not(t5))){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12120,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:876: match1"));
t8=t6;
t9=C_i_car(t2);
t10=C_i_car(t3);
t1=t8;
t2=t9;
t3=t10;
goto loop;}}}

/* k12118 in match1 in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12120,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:876: match1"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12098(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12145(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_12145,4,t0,t1,t2,t3);}
a=C_alloc(8);
t4=C_i_pairp(t3);
if(C_truep(C_i_not(t4))){
C_trace(C_text("support.scm:881: resolve"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_12064(t5,t1,t3,t2);}
else{
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12242,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("support.scm:882: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word av2[3];
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}}

/* k12165 in k12240 in matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12167,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:884: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k12172 in k12165 in k12240 in matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12174(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_12174,c,av);}
a=C_alloc(7);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12180,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_12180(t6,((C_word*)t0)[5],t1,t2);}

/* loop in k12172 in k12165 in k12240 in matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12180(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_12180,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_nullp(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_pairp(t3);
if(C_truep(C_i_not(t4))){
C_trace(C_text("support.scm:887: resolve"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_12064(t5,t1,t3,t2);}
else{
if(C_truep(C_i_nullp(t2))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12211,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:889: matchn"));
t6=((C_word*)((C_word*)t0)[4])[1];
f_12145(t6,t5,C_i_car(t2),C_i_car(t3));}}}}

/* k12209 in loop in k12172 in k12165 in k12240 in matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12211,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:890: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12180(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k12232 in k12240 in matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12234,c,av);}
C_trace(C_text("support.scm:883: match1"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_12098(t2,((C_word*)t0)[3],t1,C_i_cadr(((C_word*)t0)[4]));}

/* k12240 in matchn in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_12242,c,av);}
a=C_alloc(12);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_eqp(t1,t2);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12234,a[2]=((C_word*)t0)[7],a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:883: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12251 in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12253,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12259,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12263,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:895: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k12257 in k12251 in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12259,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12261 in k12251 in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12263,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12267,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:895: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k12265 in k12261 in k12251 in chicken.compiler.support#match-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_12267,c,av);}
C_trace(C_text("support.scm:895: debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[22]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[253];
av2[3]=lf[254];
av2[4]=((C_word*)t0)[3];
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
tp(7,av2);}}

/* chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12269,c,av);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12275,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];{
C_word *av2=av;
av2[0]=t7;
av2[1]=t1;
av2[2]=t2;
f_12275(3,av2);}}

/* walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12275,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12279,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:903: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2=av;
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12279,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12282,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:904: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12282(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12282,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=C_eqp(((C_word*)t2)[3],lf[140]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12291,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=t5;
f_12291(t6,t4);}
else{
t6=C_eqp(((C_word*)t2)[3],lf[80]);
if(C_truep(t6)){
t7=t5;
f_12291(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[3],lf[145]);
t8=t5;
f_12291(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t2)[3],lf[161])));}}}

/* k12289 in k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12291(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_12291,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[112]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12317,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:907: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word av2[3];
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t4=C_eqp(((C_word*)t2)[3],lf[144]);
if(C_truep(t4)){
if(C_truep(t4)){
C_trace(C_text("support.scm:911: any"));
f_5615(((C_word*)t2)[2],((C_word*)((C_word*)t2)[5])[1],((C_word*)t2)[6]);}
else{
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[91]);
if(C_truep(t5)){
C_trace(C_text("support.scm:911: any"));
f_5615(((C_word*)t2)[2],((C_word*)((C_word*)t2)[5])[1],((C_word*)t2)[6]);}
else{
t6=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}

/* a12304 in k12315 in k12289 in k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12305(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12305,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12313,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:909: foreign-callback-stub-id"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[256]);
C_word av2[3];
av2[0]=*((C_word*)lf[256]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k12311 in a12304 in k12315 in k12289 in k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12313,c,av);}
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(((C_word*)t2)[3],t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12315 in k12289 in k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_12317,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12305,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_fast_retrieve(lf[257]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6342,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6342(t8,((C_word*)t0)[2],C_fast_retrieve(lf[257]));}

/* chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12363,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12367,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:915: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2=av;
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_12367,c,av);}
a=C_alloc(6);
t2=C_i_caddr(t1);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_i_car(t2):C_SCHEME_FALSE);
if(C_truep(t4)){
if(C_truep(C_i_cadr(t1))){
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12387,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
f_12387(3,av2);}}
else{
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* rec in k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12387,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12391,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:921: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2=av;
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k12389 in rec in k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12391,c,av);}
a=C_alloc(7);
t2=C_eqp(t1,lf[166]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:923: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t3=C_eqp(t1,lf[177]);
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:929: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}}}

/* k12398 in k12389 in rec in k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12400(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12400,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=C_i_car(((C_word*)t0)[5]);
t4=C_mutate(((C_word *)t0)+6,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12434,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:925: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k12428 in k12432 in k12398 in k12389 in rec in k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12430,c,av);}
t2=C_i_car(t1);
t3=C_eqp(((C_word*)t0)[2],t2);
if(C_truep(t3)){
C_trace(C_text("support.scm:927: every"));
f_5581(((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],C_i_cdr(((C_word*)t0)[5]));}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12432 in k12398 in k12389 in rec in k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_12434,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[140],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12430,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:926: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}
else{
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k12445 in k12389 in rec in k12365 in chicken.compiler.support#simple-lambda-node? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12447,c,av);}
C_trace(C_text("support.scm:929: every"));
f_5581(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);}

/* chicken.compiler.support#dump-undefined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
C_save_and_reclaim((void *)f_12459,c,av);}
a=C_alloc(2);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12465,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:935: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t2;
tp(4,av2);}}

/* a12464 in chicken.compiler.support#dump-undefined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12465(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12465,c,av);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12472,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12498,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:937: chicken.keyword#keyword?"));
t6=C_fast_retrieve(lf[263]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k12470 in a12464 in chicken.compiler.support#dump-undefined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12472(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12472,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:940: scheme#write"));
t3=*((C_word*)lf[260]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k12473 in k12470 in a12464 in chicken.compiler.support#dump-undefined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12475,c,av);}
C_trace(C_text("support.scm:941: scheme#newline"));
t2=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12496 in a12464 in chicken.compiler.support#dump-undefined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12498(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12498,c,av);}
if(C_truep(C_i_not(t1))){
t2=C_i_assq(lf[261],((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_12472(t3,(C_truep(t2)?C_i_not(C_i_assq(lf[262],((C_word*)t0)[2])):C_SCHEME_FALSE));}
else{
t2=((C_word*)t0)[3];
f_12472(t2,C_SCHEME_FALSE);}}

/* chicken.compiler.support#dump-defined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
C_save_and_reclaim((void *)f_12500,c,av);}
a=C_alloc(2);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12506,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:945: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t2;
tp(4,av2);}}

/* a12505 in chicken.compiler.support#dump-defined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_12506,c,av);}
a=C_alloc(8);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12513,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12535,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:947: chicken.keyword#keyword?"));
t6=C_fast_retrieve(lf[263]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k12511 in a12505 in chicken.compiler.support#dump-defined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12513(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12513,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12516,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:950: scheme#write"));
t3=*((C_word*)lf[260]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k12514 in k12511 in a12505 in chicken.compiler.support#dump-defined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12516,c,av);}
C_trace(C_text("support.scm:951: scheme#newline"));
t2=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12533 in a12505 in chicken.compiler.support#dump-defined-globals in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12535,c,av);}
if(C_truep(C_i_not(t1))){
t2=C_i_assq(lf[261],((C_word*)t0)[2]);
t3=((C_word*)t0)[3];
f_12513(t3,(C_truep(t2)?C_i_assq(lf[262],((C_word*)t0)[2]):C_SCHEME_FALSE));}
else{
t2=((C_word*)t0)[3];
f_12513(t2,C_SCHEME_FALSE);}}

/* chicken.compiler.support#dump-global-refs in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
C_save_and_reclaim((void *)f_12537,c,av);}
a=C_alloc(2);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12543,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:955: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t1;
av2[2]=t3;
av2[3]=t2;
tp(4,av2);}}

/* a12542 in chicken.compiler.support#dump-global-refs in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12543,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12584,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:957: chicken.keyword#keyword?"));
t5=C_fast_retrieve(lf[263]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k12554 in k12582 in a12542 in chicken.compiler.support#dump-global-refs in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12556(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12556,c,av);}
C_trace(C_text("support.scm:960: scheme#newline"));
t2=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12582 in a12542 in chicken.compiler.support#dump-global-refs in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12584,c,av);}
a=C_alloc(9);
t2=C_i_not(t1);
t3=(C_truep(t2)?C_i_assq(lf[261],((C_word*)t0)[2]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_assq(lf[197],((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12556,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=C_i_cdr(t4);
t7=C_i_length(t6);
t8=C_a_i_list2(&a,2,((C_word*)t0)[4],t7);
C_trace(C_text("support.scm:959: scheme#write"));
t9=*((C_word*)lf[260]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t5;
av2[2]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t6=C_a_i_list2(&a,2,((C_word*)t0)[4],C_fix(0));
C_trace(C_text("support.scm:959: scheme#write"));
t7=*((C_word*)lf[260]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* ##sys#toplevel-definition-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12586(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12586,c,av);}
a=C_alloc(4);
if(C_truep(C_u_i_namespaced_symbolp(t2))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17589,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1712: variable-hidden?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[269]);
C_word *av2=av;
av2[0]=*((C_word*)lf[269]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12607,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:971: debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]);
C_word *av2=av;
av2[0]=*((C_word*)lf[22]+1);
av2[1]=t5;
av2[2]=lf[178];
av2[3]=lf[271];
av2[4]=t3;
tp(5,av2);}}
else{
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}

/* k12605 in ##sys#toplevel-definition-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12607,c,av);}
C_trace(C_text("support.scm:972: hide-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[270]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[270]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* chicken.compiler.support#make-foreign-callback-stub in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7;
C_word *a;
if(c!=7) C_bad_argc_2(c,7,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
C_save_and_reclaim((void *)f_12614,c,av);}
a=C_alloc(7);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_record6(&a,6,lf[273],t2,t3,t4,t5,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* chicken.compiler.support#foreign-callback-stub? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12620,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_structurep(t2,lf[273]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#foreign-callback-stub-id in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12635(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12635,c,av);}
t3=C_i_check_structure(t2,lf[273]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#foreign-callback-stub-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12653,c,av);}
t3=C_i_check_structure(t2,lf[273]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#foreign-callback-stub-qualifiers in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12671,c,av);}
t3=C_i_check_structure(t2,lf[273]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#foreign-callback-stub-return-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12689,c,av);}
t3=C_i_check_structure(t2,lf[273]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(4));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#foreign-callback-stub-argument-types in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12707,c,av);}
t3=C_i_check_structure(t2,lf[273]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#register-foreign-callback-stub! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12716,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12742,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t4;
av2[2]=C_fast_retrieve(lf[272]);
av2[3]=t2;
av2[4]=t3;
C_apply(5,av2);}}

/* k12740 in chicken.compiler.support#register-foreign-callback-stub! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12742,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[257]));
t3=C_mutate((C_word*)lf[257]+1 /* (set! chicken.compiler.support#foreign-callback-stubs ...) */,t2);
t4=C_SCHEME_END_OF_LIST;
if(C_truep(C_i_nullp(t4))){
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[280];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[280];
av2[4]=C_i_car(t4);
tp(5,av2);}}}

/* chicken.compiler.support#clear-foreign-type-table! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12745(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12745,c,av);}
a=C_alloc(3);
if(C_truep(C_retrieve2(lf[281],C_text("chicken.compiler.support#foreign-type-table")))){
C_trace(C_text("support.scm:998: scheme#vector-fill!"));
t2=*((C_word*)lf[283]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=C_retrieve2(lf[281],C_text("chicken.compiler.support#foreign-type-table"));
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12756,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:999: scheme#make-vector"));
t3=*((C_word*)lf[284]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k12754 in chicken.compiler.support#clear-foreign-type-table! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12756,c,av);}
t2=C_mutate(&lf[281] /* (set! chicken.compiler.support#foreign-type-table ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#register-foreign-type! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12758,c,av);}
a=C_alloc(4);
t4=C_rest_nullp(c,4);
t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
t6=C_rest_nullp(c,4);
t7=C_rest_nullp(c,5);
t8=(C_truep(t7)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0));
t9=C_rest_nullp(c,5);
t10=(C_truep(t8)?t5:C_SCHEME_FALSE);
t11=(C_truep(t5)?C_a_i_vector3(&a,3,t3,t10,t8):C_a_i_vector3(&a,3,t3,t10,C_SCHEME_FALSE));
C_trace(C_text("support.scm:1007: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word av2[5];
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t1;
av2[2]=C_retrieve2(lf[281],C_text("chicken.compiler.support#foreign-type-table"));
av2[3]=t2;
av2[4]=t11;
tp(5,av2);}}

/* chicken.compiler.support#lookup-foreign-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12812,c,av);}
C_trace(C_text("support.scm:1015: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t1;
av2[2]=C_retrieve2(lf[281],C_text("chicken.compiler.support#foreign-type-table"));
av2[3]=t2;
tp(4,av2);}}

/* chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_12818,c,av);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12824,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13946,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1032: follow-without-loop"));
f_7226(t1,t3,t4,t5);}

/* a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_12824,c,av);}
a=C_alloc(8);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12830,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_12830(t7,t1,t2);}

/* repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12830(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_12830,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_eqp(t2,lf[289]);
t4=(C_truep(t3)?t3:C_eqp(t2,lf[290]));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[291],((C_word*)t0)[2]));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(t2,lf[292]);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12855,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t5)){
t7=t6;
f_12855(t7,t5);}
else{
t7=C_eqp(t2,lf[388]);
if(C_truep(t7)){
t8=t6;
f_12855(t8,t7);}
else{
t8=C_eqp(t2,lf[389]);
if(C_truep(t8)){
t9=t6;
f_12855(t9,t8);}
else{
t9=C_eqp(t2,lf[390]);
if(C_truep(t9)){
t10=t6;
f_12855(t10,t9);}
else{
t10=C_eqp(t2,lf[391]);
t11=t6;
f_12855(t11,(C_truep(t10)?t10:C_eqp(t2,lf[392])));}}}}}}

/* k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12855(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12855,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[293],((C_word*)t0)[2]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[294]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12870,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t2)){
t4=t3;
f_12870(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[386]);
t5=t3;
f_12870(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[387])));}}}

/* k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12870(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12870,2,t0,t1);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t2)[2]:C_a_i_list(&a,2,lf[295],((C_word*)t2)[2]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[296]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12885,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_12885(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[384]);
if(C_truep(t5)){
t6=t4;
f_12885(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[340]);
t7=t4;
f_12885(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t2)[4],lf[385])));}}}}

/* k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12885(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_12885,2,t0,t1);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12888,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1045: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[301]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12923,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t3)){
t5=t4;
f_12923(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[381]);
if(C_truep(t5)){
t6=t4;
f_12923(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[382]);
t7=t4;
f_12923(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t2)[4],lf[383])));}}}}

/* k12886 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12888(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
C_save_and_reclaim((void *)f_12888,c,av);}
a=C_alloc(42);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=(C_truep(*((C_word*)lf[10]+1))?t1:C_a_i_list(&a,2,lf[297],t1));
t5=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t6=C_a_i_list(&a,4,lf[299],t1,t4,t5);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,3,lf[300],t3,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12923(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_12923,2,t0,t1);}
a=C_alloc(15);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[297],((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[302]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12938,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1058: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[4],lf[304]);
if(C_truep(t3)){
if(C_truep(*((C_word*)lf[10]+1))){
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_list(&a,2,lf[298],lf[302]);
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_list(&a,3,lf[303],t4,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[305]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12993,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=t5;
f_12993(t6,t4);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[373]);
if(C_truep(t6)){
t7=t5;
f_12993(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[374]);
if(C_truep(t7)){
t8=t5;
f_12993(t8,t7);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[375]);
if(C_truep(t8)){
t9=t5;
f_12993(t9,t8);}
else{
t9=C_eqp(((C_word*)t0)[4],lf[376]);
if(C_truep(t9)){
t10=t5;
f_12993(t10,t9);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[377]);
if(C_truep(t10)){
t11=t5;
f_12993(t11,t10);}
else{
t11=C_eqp(((C_word*)t0)[4],lf[378]);
if(C_truep(t11)){
t12=t5;
f_12993(t12,t11);}
else{
t12=C_eqp(((C_word*)t0)[4],lf[379]);
t13=t5;
f_12993(t13,(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[380])));}}}}}}}}}}}

/* k12936 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_12938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_12938,c,av);}
a=C_alloc(29);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12953,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[10]+1))){
t5=t4;
f_12953(t5,t1);}
else{
t5=C_a_i_list(&a,2,lf[298],lf[302]);
t6=t4;
f_12953(t6,C_a_i_list(&a,3,lf[303],t5,t1));}}

/* k12951 in k12936 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_12953(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){
C_save_and_reclaim_args((void *)trf_12953,2,t0,t1);}
a=C_alloc(27);
t2=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t3=C_a_i_list(&a,4,lf[299],((C_word*)t0)[2],t1,t2);
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[300],((C_word*)t0)[4],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_12993(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_12993,2,t0,t1);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12996,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1071: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[306]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13035,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_13035(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[365]);
if(C_truep(t5)){
t6=t4;
f_13035(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[366]);
if(C_truep(t6)){
t7=t4;
f_13035(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[367]);
if(C_truep(t7)){
t8=t4;
f_13035(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[368]);
if(C_truep(t8)){
t9=t4;
f_13035(t9,t8);}
else{
t9=C_eqp(((C_word*)t2)[4],lf[369]);
if(C_truep(t9)){
t10=t4;
f_13035(t10,t9);}
else{
t10=C_eqp(((C_word*)t2)[4],lf[370]);
if(C_truep(t10)){
t11=t4;
f_13035(t11,t10);}
else{
t11=C_eqp(((C_word*)t2)[4],lf[371]);
t12=t4;
f_13035(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t2)[4],lf[372])));}}}}}}}}}

/* k12994 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_12996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_12996,c,av);}
a=C_alloc(29);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13011,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[10]+1))){
t5=t4;
f_13011(t5,t1);}
else{
t5=C_a_i_list(&a,2,lf[298],((C_word*)t0)[4]);
t6=t4;
f_13011(t6,C_a_i_list(&a,3,lf[303],t5,t1));}}

/* k13009 in k12994 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void f_13011(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){
C_save_and_reclaim_args((void *)trf_13011,2,t0,t1);}
a=C_alloc(27);
t2=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t3=C_a_i_list(&a,4,lf[299],((C_word*)t0)[2],t1,t2);
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[300],((C_word*)t0)[4],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_13035(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_13035,2,t0,t1);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
if(C_truep(*((C_word*)lf[10]+1))){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_slot(C_u_i_assq(((C_word*)t2)[4],lf[307]),C_fix(1));
t4=C_a_i_list(&a,2,lf[298],t3);
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_list(&a,3,lf[303],t4,((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[308]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[4],lf[309]));
if(C_truep(t4)){
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_list(&a,2,lf[310],((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[4],lf[311]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13073,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_13073(t7,t5);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[360]);
if(C_truep(t7)){
t8=t6;
f_13073(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[361]);
if(C_truep(t8)){
t9=t6;
f_13073(t9,t8);}
else{
t9=C_eqp(((C_word*)t2)[4],lf[362]);
if(C_truep(t9)){
t10=t6;
f_13073(t10,t9);}
else{
t10=C_eqp(((C_word*)t2)[4],lf[363]);
t11=t6;
f_13073(t11,(C_truep(t10)?t10:C_eqp(((C_word*)t2)[4],lf[364])));}}}}}}}

/* k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void f_13073(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_13073,2,t0,t1);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_slot(C_u_i_assq(((C_word*)t2)[4],((C_word*)t2)[5]),C_fix(1));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13079,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1093: scheme#open-output-string"));
t5=C_fast_retrieve(lf[318]);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[319]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13116,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t3)){
t5=t4;
f_13116(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[355]);
if(C_truep(t5)){
t6=t4;
f_13116(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[356]);
if(C_truep(t6)){
t7=t4;
f_13116(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[357]);
if(C_truep(t7)){
t8=t4;
f_13116(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[358]);
t9=t4;
f_13116(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[4],lf[359])));}}}}}}

/* k13077 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_13079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13079,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[312]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13085,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1093: ##sys#print"));
t5=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[317];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13083 in k13077 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_13085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13085,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13088,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1093: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13086 in k13083 in k13077 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_13088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13088,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13091,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1093: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[316];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13089 in k13086 in k13083 in k13077 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_13091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13091,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13094,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1093: scheme#get-output-string"));
t4=C_fast_retrieve(lf[315]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k13092 in k13089 in k13086 in k13083 in k13077 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void C_ccall f_13094(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
C_save_and_reclaim((void *)f_13094,c,av);}
a=C_alloc(18);
if(C_truep(*((C_word*)lf[10]+1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_a_i_list(&a,3,lf[313],t1,lf[292]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,3,lf[314],((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_13116(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_13116,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_slot(t2,C_fix(1));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13122,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=C_SCHEME_UNDEFINED,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1101: scheme#open-output-string"));
t5=C_fast_retrieve(lf[318]);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[2],lf[323]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13160,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_13160(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[2],lf[353]);
t5=t3;
f_13160(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[2],lf[354])));}}}

/* k13120 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_13122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13122,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[312]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13128,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1101: ##sys#print"));
t5=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[322];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13126 in k13120 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_13128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13128,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13131,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1101: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13129 in k13126 in k13120 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_13131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13131,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13134,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1101: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[321];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13132 in k13129 in k13126 in k13120 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void C_ccall f_13134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13134,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13137,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1101: scheme#get-output-string"));
t4=C_fast_retrieve(lf[315]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k13135 in k13132 in k13129 in k13126 in k13120 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void C_ccall f_13137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
C_save_and_reclaim((void *)f_13137,c,av);}
a=C_alloc(18);
if(C_truep(*((C_word*)lf[10]+1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_a_i_list(&a,3,lf[313],t1,lf[292]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,3,lf[320],((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void f_13160(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_13160,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1107: chicken.base#gensym"));
t3=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[325]);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[324],((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[4],lf[326]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13204,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_13204(t5,t3);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[350]);
if(C_truep(t5)){
t6=t4;
f_13204(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[351]);
t7=t4;
f_13204(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[352])));}}}}}

/* k13161 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_13163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
C_save_and_reclaim((void *)f_13163,c,av);}
a=C_alloc(42);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,lf[324],t1);
t5=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t6=C_a_i_list(&a,4,lf[299],t1,t4,t5);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,3,lf[300],t3,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void f_13204(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_13204,2,t0,t1);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13207,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1115: chicken.base#gensym"));
t4=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[330]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13249,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_13249(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[348]);
t6=t4;
f_13249(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t2)[4],lf[349])));}}}

/* k13205 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_13207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
C_save_and_reclaim((void *)f_13207,c,av);}
a=C_alloc(26);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13222,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[10]+1))){
t5=t4;
f_13222(t5,C_a_i_list(&a,3,lf[327],t1,C_fix(0)));}
else{
t5=C_a_i_list(&a,2,lf[328],t1);
t6=t4;
f_13222(t6,C_a_i_list(&a,2,lf[329],t5));}}

/* k13220 in k13205 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void f_13222(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){
C_save_and_reclaim_args((void *)trf_13222,2,t0,t1);}
a=C_alloc(27);
t2=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t3=C_a_i_list(&a,4,lf[299],((C_word*)t0)[2],t1,t2);
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[300],((C_word*)t0)[4],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void f_13249(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_13249,2,t0,t1);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
if(C_truep(*((C_word*)lf[10]+1))){
t3=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_a_i_list(&a,3,lf[327],((C_word*)t2)[2],C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_a_i_list(&a,2,lf[328],((C_word*)t2)[2]);
t4=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,lf[329],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[331]);
if(C_truep(t3)){
if(C_truep(*((C_word*)lf[10]+1))){
t4=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[327],((C_word*)t2)[2],C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_a_i_list(&a,2,lf[332],((C_word*)t2)[2]);
t5=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_list(&a,3,lf[327],t4,C_fix(1));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13284,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t2)[4]))){
C_trace(C_text("support.scm:1131: lookup-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word av2[3];
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_13284(2,av2);}}}}}

/* k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void C_ccall f_13284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13284,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13288,a[2]=((C_word*)t2)[5],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1131: g3153"));
t4=t3;
f_13288(t4,((C_word*)t2)[3],t1);}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[4]))){
t3=C_u_i_car(((C_word*)t2)[4]);
t4=C_eqp(t3,lf[333]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13315,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t3,a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t4)){
t6=t5;
f_13315(t6,t4);}
else{
t6=C_eqp(t3,lf[346]);
if(C_truep(t6)){
t7=t5;
f_13315(t7,t6);}
else{
t7=C_eqp(t3,lf[347]);
t8=t5;
f_13315(t8,(C_truep(t7)?t7:C_eqp(t3,lf[323])));}}}
else{
t3=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* g3153 in k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void f_13288(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_13288,3,t0,t1,t2);}
C_trace(C_text("support.scm:1132: next"));
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_i_vector_ref(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k13313 in k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void f_13315(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_13315,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1136: chicken.base#gensym"));
t3=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[334]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[335]));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13353,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1142: chicken.base#gensym"));
t5=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[338]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[339]));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13404,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1148: struct/union-wrapper-type-name"));
f_7057(t6,((C_word*)t0)[5]);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[340]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13413,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1151: chicken.base#gensym"));
t8=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t0)[4],lf[301]);
if(C_truep(t7)){
t8=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t8;
av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[297],((C_word*)t0)[2]));
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(((C_word*)t0)[4],lf[341]);
if(C_truep(t8)){
t9=C_a_i_list(&a,2,lf[298],lf[336]);
t10=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_a_i_list(&a,3,lf[337],((C_word*)t0)[2],t9);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t0)[4],lf[342]);
if(C_truep(t9)){
C_trace(C_text("support.scm:1164: repeat"));
t10=((C_word*)((C_word*)t0)[6])[1];
f_12830(t10,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[5]));}
else{
t10=C_eqp(((C_word*)t0)[4],lf[343]);
if(C_truep(t10)){
if(C_truep(*((C_word*)lf[10]+1))){
t11=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t11;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_a_i_list(&a,3,lf[313],lf[344],lf[292]);
t12=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_a_i_list(&a,3,lf[314],((C_word*)t0)[2],t11);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
else{
t11=C_eqp(((C_word*)t0)[4],lf[345]);
if(C_truep(t11)){
t12=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t12;
av2[1]=(C_truep(t11)?C_a_i_list(&a,2,lf[324],((C_word*)t0)[2]):((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(((C_word*)t0)[4],lf[325]);
t13=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t13;
av2[1]=(C_truep(t12)?C_a_i_list(&a,2,lf[324],((C_word*)t0)[2]):((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}}}}}}}}}

/* k13316 in k13313 in k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in ... */
static void C_ccall f_13318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
C_save_and_reclaim((void *)f_13318,c,av);}
a=C_alloc(42);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,lf[324],t1);
t5=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t6=C_a_i_list(&a,4,lf[299],t1,t4,t5);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,3,lf[300],t3,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k13351 in k13313 in k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in ... */
static void C_ccall f_13353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(51,c,1)))){
C_save_and_reclaim((void *)f_13353,c,av);}
a=C_alloc(51);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,2,lf[298],lf[336]);
t5=C_a_i_list(&a,3,lf[337],((C_word*)t0)[2],t4);
t6=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t7=C_a_i_list(&a,4,lf[299],t1,t5,t6);
t8=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_list(&a,3,lf[300],t3,t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* k13402 in k13313 in k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in ... */
static void C_ccall f_13404(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){
C_save_and_reclaim((void *)f_13404,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,lf[298],t1);
t3=C_a_i_list(&a,3,lf[303],t2,((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[327],t3,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13411 in k13313 in k13282 in k13247 in k13202 in k13158 in k13114 in k13071 in k13033 in k12991 in k12921 in k12883 in k12868 in k12853 in repeat in a12823 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in ... */
static void C_ccall f_13413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
C_save_and_reclaim((void *)f_13413,c,av);}
a=C_alloc(42);
t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,t2);
t4=(C_truep(*((C_word*)lf[10]+1))?t1:C_a_i_list(&a,2,lf[297],t1));
t5=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t6=C_a_i_list(&a,4,lf[299],t1,t4,t5);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_a_i_list(&a,3,lf[300],t3,t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* a13945 in chicken.compiler.support#foreign-type-check in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_13946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13946,c,av);}
C_trace(C_text("support.scm:1176: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=t1;
av2[2]=lf[393];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* chicken.compiler.support#foreign-type-result-converter in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_13952(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_13952,2,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_symbolp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13962,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1183: lookup-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word av2[3];
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13960 in chicken.compiler.support#foreign-type-result-converter in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_13962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13962,c,av);}
if(C_truep(t1)){
t2=C_i_vector_ref(t1,C_fix(2));
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#foreign-type-argument-converter in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_13973(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_13973,2,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_symbolp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13983,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1189: lookup-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word av2[3];
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13981 in chicken.compiler.support#foreign-type-argument-converter in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_13983(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13983,c,av);}
if(C_truep(t1)){
t2=C_i_vector_ref(t1,C_fix(1));
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#foreign-type-convert-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_13994(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13994,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13998,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1194: foreign-type-result-converter"));
f_13952(t4,t3);}

/* k13996 in chicken.compiler.support#foreign-type-convert-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_13998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_13998,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#foreign-type-convert-argument in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_14009,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14013,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1199: foreign-type-argument-converter"));
f_13973(t4,t3);}

/* k14011 in chicken.compiler.support#foreign-type-convert-argument in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_14013,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#final-foreign-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14024(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_14024,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14030,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14057,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1204: follow-without-loop"));
f_7226(t1,t2,t3,t4);}

/* a14029 in chicken.compiler.support#final-foreign-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14030(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_14030,c,av);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14034,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_symbolp(t2))){
C_trace(C_text("support.scm:1207: lookup-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word *av2=av;
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_14034(2,av2);}}}

/* k14032 in a14029 in chicken.compiler.support#final-foreign-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14034,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14038,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1207: g3254"));
t3=t2;
f_14038(t3,((C_word*)t0)[3],t1);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g3254 in k14032 in a14029 in chicken.compiler.support#final-foreign-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14038(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_14038,3,t0,t1,t2);}
C_trace(C_text("support.scm:1208: next"));
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_i_vector_ref(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* a14056 in chicken.compiler.support#final-foreign-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14057,c,av);}
C_trace(C_text("support.scm:1210: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=t1;
av2[2]=lf[399];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_14063,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14066,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14075,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14570,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1218: follow-without-loop"));
f_7226(t1,t2,t4,t5);}

/* err in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14066(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_14066,2,t0,t1);}
C_trace(C_text("support.scm:1217: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word av2[4];
av2[0]=*((C_word*)lf[37]+1);
av2[1]=t1;
av2[2]=lf[401];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_14075,c,av);}
a=C_alloc(6);
t4=C_eqp(t2,lf[289]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14085,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t4)){
t6=t5;
f_14085(t6,t4);}
else{
t6=C_eqp(t2,lf[292]);
if(C_truep(t6)){
t7=t5;
f_14085(t7,t6);}
else{
t7=C_eqp(t2,lf[362]);
if(C_truep(t7)){
t8=t5;
f_14085(t8,t7);}
else{
t8=C_eqp(t2,lf[402]);
if(C_truep(t8)){
t9=t5;
f_14085(t9,t8);}
else{
t9=C_eqp(t2,lf[403]);
if(C_truep(t9)){
t10=t5;
f_14085(t10,t9);}
else{
t10=C_eqp(t2,lf[319]);
if(C_truep(t10)){
t11=t5;
f_14085(t11,t10);}
else{
t11=C_eqp(t2,lf[404]);
if(C_truep(t11)){
t12=t5;
f_14085(t12,t11);}
else{
t12=C_eqp(t2,lf[290]);
if(C_truep(t12)){
t13=t5;
f_14085(t13,t12);}
else{
t13=C_eqp(t2,lf[388]);
if(C_truep(t13)){
t14=t5;
f_14085(t14,t13);}
else{
t14=C_eqp(t2,lf[389]);
if(C_truep(t14)){
t15=t5;
f_14085(t15,t14);}
else{
t15=C_eqp(t2,lf[390]);
if(C_truep(t15)){
t16=t5;
f_14085(t16,t15);}
else{
t16=C_eqp(t2,lf[391]);
t17=t5;
f_14085(t17,(C_truep(t16)?t16:C_eqp(t2,lf[392])));}}}}}}}}}}}}

/* k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14085(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14085,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[326]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14094,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t2)){
t4=t3;
f_14094(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[330]);
if(C_truep(t4)){
t5=t3;
f_14094(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[323]);
if(C_truep(t5)){
t6=t3;
f_14094(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[325]);
if(C_truep(t6)){
t7=t3;
f_14094(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[331]);
if(C_truep(t7)){
t8=t3;
f_14094(t8,t7);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[350]);
if(C_truep(t8)){
t9=t3;
f_14094(t9,t8);}
else{
t9=C_eqp(((C_word*)t0)[4],lf[348]);
if(C_truep(t9)){
t10=t3;
f_14094(t10,t9);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[351]);
if(C_truep(t10)){
t11=t3;
f_14094(t11,t10);}
else{
t11=C_eqp(((C_word*)t0)[4],lf[352]);
if(C_truep(t11)){
t12=t3;
f_14094(t12,t11);}
else{
t12=C_eqp(((C_word*)t0)[4],lf[349]);
if(C_truep(t12)){
t13=t3;
f_14094(t13,t12);}
else{
t13=C_eqp(((C_word*)t0)[4],lf[353]);
t14=t3;
f_14094(t14,(C_truep(t13)?t13:C_eqp(((C_word*)t0)[4],lf[354])));}}}}}}}}}}}}

/* k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14094(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14094,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:1228: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(3);
tp(3,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[356]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14106,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_14106(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[363]);
if(C_truep(t5)){
t6=t4;
f_14106(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[361]);
if(C_truep(t6)){
t7=t4;
f_14106(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[355]);
if(C_truep(t7)){
t8=t4;
f_14106(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[311]);
t9=t4;
f_14106(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[4],lf[358])));}}}}}}

/* k14104 in k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14106(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14106,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:1230: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(6);
tp(3,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[294]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14118,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_14118(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[386]);
t6=t4;
f_14118(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t2)[4],lf[387])));}}}

/* k14116 in k14104 in k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14118(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14118,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:1232: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(4);
tp(3,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[308]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[4],lf[309]));
if(C_truep(t4)){
C_trace(C_text("support.scm:1234: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(8);
tp(3,av2);}}
else{
t5=C_eqp(((C_word*)t2)[4],lf[360]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14142,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_14142(t7,t5);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[359]);
if(C_truep(t7)){
t8=t6;
f_14142(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[357]);
t9=t6;
f_14142(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[4],lf[364])));}}}}}

/* k14140 in k14116 in k14104 in k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14142(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14142,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:1236: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(7);
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14148,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t2)[4]))){
C_trace(C_text("support.scm:1238: lookup-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word av2[3];
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_14148(2,av2);}}}}

/* k14146 in k14140 in k14116 in k14104 in k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_14148,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14152,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1238: g3378"));
t4=t3;
f_14152(t4,((C_word*)t2)[3],t1);}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[4]))){
t3=C_u_i_car(((C_word*)t2)[4]);
t4=C_eqp(t3,lf[333]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14179,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t4)){
t6=t5;
f_14179(t6,t4);}
else{
t6=C_eqp(t3,lf[345]);
if(C_truep(t6)){
t7=t5;
f_14179(t7,t6);}
else{
t7=C_eqp(t3,lf[346]);
if(C_truep(t7)){
t8=t5;
f_14179(t8,t7);}
else{
t8=C_eqp(t3,lf[323]);
if(C_truep(t8)){
t9=t5;
f_14179(t9,t8);}
else{
t9=C_eqp(t3,lf[325]);
if(C_truep(t9)){
t10=t5;
f_14179(t10,t9);}
else{
t10=C_eqp(t3,lf[347]);
if(C_truep(t10)){
t11=t5;
f_14179(t11,t10);}
else{
t11=C_eqp(t3,lf[334]);
if(C_truep(t11)){
t12=t5;
f_14179(t12,t11);}
else{
t12=C_eqp(t3,lf[335]);
t13=t5;
f_14179(t13,(C_truep(t12)?t12:C_eqp(t3,lf[341])));}}}}}}}}
else{
C_trace(C_text("support.scm:1248: err"));
t3=((C_word*)t2)[5];
f_14066(t3,((C_word*)t2)[3]);}}}

/* g3378 in k14146 in k14140 in k14116 in k14104 in k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_14152(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_14152,3,t0,t1,t2);}
C_trace(C_text("support.scm:1239: next"));
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_i_vector_ref(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k14177 in k14146 in k14140 in k14116 in k14104 in k14092 in k14083 in a14074 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_14179(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_14179,2,t0,t1);}
if(C_truep(t1)){
C_trace(C_text("support.scm:1243: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(3);
tp(3,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[342]);
if(C_truep(t2)){
C_trace(C_text("support.scm:1244: next"));
t3=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_cadr(((C_word*)t0)[5]);
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t3=C_eqp(((C_word*)t0)[3],lf[338]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[3],lf[339]));
if(C_truep(t4)){
C_trace(C_text("support.scm:1245: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(3);
tp(3,av2);}}
else{
t5=C_eqp(((C_word*)t0)[3],lf[343]);
if(C_truep(t5)){
C_trace(C_text("support.scm:1246: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(6);
tp(3,av2);}}
else{
C_trace(C_text("support.scm:1247: err"));
t6=((C_word*)t0)[6];
f_14066(t6,((C_word*)t0)[2]);}}}}}

/* a14569 in chicken.compiler.support#estimate-foreign-result-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14570,c,av);}
C_trace(C_text("support.scm:1249: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=t1;
av2[2]=lf[405];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14576(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_14576,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14588,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15058,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1254: follow-without-loop"));
f_7226(t1,t2,t3,t4);}

/* a14587 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14588(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_14588,c,av);}
a=C_alloc(5);
t4=C_eqp(t2,lf[289]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14598,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t4)){
t6=t5;
f_14598(t6,t4);}
else{
t6=C_eqp(t2,lf[292]);
if(C_truep(t6)){
t7=t5;
f_14598(t7,t6);}
else{
t7=C_eqp(t2,lf[362]);
if(C_truep(t7)){
t8=t5;
f_14598(t8,t7);}
else{
t8=C_eqp(t2,lf[402]);
if(C_truep(t8)){
t9=t5;
f_14598(t9,t8);}
else{
t9=C_eqp(t2,lf[319]);
if(C_truep(t9)){
t10=t5;
f_14598(t10,t9);}
else{
t10=C_eqp(t2,lf[290]);
if(C_truep(t10)){
t11=t5;
f_14598(t11,t10);}
else{
t11=C_eqp(t2,lf[388]);
if(C_truep(t11)){
t12=t5;
f_14598(t12,t11);}
else{
t12=C_eqp(t2,lf[363]);
if(C_truep(t12)){
t13=t5;
f_14598(t13,t12);}
else{
t13=C_eqp(t2,lf[355]);
if(C_truep(t13)){
t14=t5;
f_14598(t14,t13);}
else{
t14=C_eqp(t2,lf[389]);
if(C_truep(t14)){
t15=t5;
f_14598(t15,t14);}
else{
t15=C_eqp(t2,lf[390]);
if(C_truep(t15)){
t16=t5;
f_14598(t16,t15);}
else{
t16=C_eqp(t2,lf[323]);
if(C_truep(t16)){
t17=t5;
f_14598(t17,t16);}
else{
t17=C_eqp(t2,lf[325]);
if(C_truep(t17)){
t18=t5;
f_14598(t18,t17);}
else{
t18=C_eqp(t2,lf[356]);
if(C_truep(t18)){
t19=t5;
f_14598(t19,t18);}
else{
t19=C_eqp(t2,lf[361]);
if(C_truep(t19)){
t20=t5;
f_14598(t20,t19);}
else{
t20=C_eqp(t2,lf[294]);
if(C_truep(t20)){
t21=t5;
f_14598(t21,t20);}
else{
t21=C_eqp(t2,lf[326]);
if(C_truep(t21)){
t22=t5;
f_14598(t22,t21);}
else{
t22=C_eqp(t2,lf[331]);
if(C_truep(t22)){
t23=t5;
f_14598(t23,t22);}
else{
t23=C_eqp(t2,lf[340]);
if(C_truep(t23)){
t24=t5;
f_14598(t24,t23);}
else{
t24=C_eqp(t2,lf[301]);
if(C_truep(t24)){
t25=t5;
f_14598(t25,t24);}
else{
t25=C_eqp(t2,lf[391]);
if(C_truep(t25)){
t26=t5;
f_14598(t26,t25);}
else{
t26=C_eqp(t2,lf[392]);
if(C_truep(t26)){
t27=t5;
f_14598(t27,t26);}
else{
t27=C_eqp(t2,lf[311]);
if(C_truep(t27)){
t28=t5;
f_14598(t28,t27);}
else{
t28=C_eqp(t2,lf[358]);
if(C_truep(t28)){
t29=t5;
f_14598(t29,t28);}
else{
t29=C_eqp(t2,lf[351]);
if(C_truep(t29)){
t30=t5;
f_14598(t30,t29);}
else{
t30=C_eqp(t2,lf[352]);
if(C_truep(t30)){
t31=t5;
f_14598(t31,t30);}
else{
t31=C_eqp(t2,lf[349]);
if(C_truep(t31)){
t32=t5;
f_14598(t32,t31);}
else{
t32=C_eqp(t2,lf[330]);
if(C_truep(t32)){
t33=t5;
f_14598(t33,t32);}
else{
t33=C_eqp(t2,lf[350]);
if(C_truep(t33)){
t34=t5;
f_14598(t34,t33);}
else{
t34=C_eqp(t2,lf[348]);
if(C_truep(t34)){
t35=t5;
f_14598(t35,t34);}
else{
t35=C_eqp(t2,lf[353]);
t36=t5;
f_14598(t36,(C_truep(t35)?t35:C_eqp(t2,lf[354])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k14596 in a14587 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14598(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14598,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
C_trace(C_text("support.scm:1263: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=C_fix(1);
tp(3,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[386]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14610,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t2)){
t4=t3;
f_14610(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[360]);
if(C_truep(t4)){
t5=t3;
f_14610(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[359]);
if(C_truep(t5)){
t6=t3;
f_14610(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[357]);
t7=t3;
f_14610(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[364])));}}}}}

/* k14608 in k14596 in a14587 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14610(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_14610,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:1265: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(2);
tp(3,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[308]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[4],lf[309]));
if(C_truep(t4)){
C_trace(C_text("support.scm:1267: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=C_fix(4);
tp(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14628,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t2)[4]))){
C_trace(C_text("support.scm:1269: lookup-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word av2[3];
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_14628(2,av2);}}}}}

/* k14626 in k14608 in k14596 in a14587 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_14628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14628,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14632,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1269: g3542"));
t4=t3;
f_14632(t4,((C_word*)t2)[3],t1);}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[4]))){
t3=C_u_i_car(((C_word*)t2)[4]);
t4=C_eqp(t3,lf[333]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14659,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t4)){
t6=t5;
f_14659(t6,t4);}
else{
t6=C_eqp(t3,lf[345]);
if(C_truep(t6)){
t7=t5;
f_14659(t7,t6);}
else{
t7=C_eqp(t3,lf[346]);
if(C_truep(t7)){
t8=t5;
f_14659(t8,t7);}
else{
t8=C_eqp(t3,lf[323]);
if(C_truep(t8)){
t9=t5;
f_14659(t9,t8);}
else{
t9=C_eqp(t3,lf[325]);
if(C_truep(t9)){
t10=t5;
f_14659(t10,t9);}
else{
t10=C_eqp(t3,lf[347]);
if(C_truep(t10)){
t11=t5;
f_14659(t11,t10);}
else{
t11=C_eqp(t3,lf[340]);
if(C_truep(t11)){
t12=t5;
f_14659(t12,t11);}
else{
t12=C_eqp(t3,lf[301]);
t13=t5;
f_14659(t13,(C_truep(t12)?t12:C_eqp(t3,lf[343])));}}}}}}}}
else{
C_trace(C_text("support.scm:1253: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=lf[407];
av2[3]=((C_word*)t2)[4];
tp(4,av2);}}}}

/* g3542 in k14626 in k14608 in k14596 in a14587 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14632(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_14632,3,t0,t1,t2);}
C_trace(C_text("support.scm:1270: next"));
t3=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=C_i_vector_ref(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k14657 in k14626 in k14608 in k14596 in a14587 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_14659(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_14659,2,t0,t1);}
if(C_truep(t1)){
C_trace(C_text("support.scm:1275: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(1);
tp(3,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[338]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[339]));
if(C_truep(t3)){
C_trace(C_text("support.scm:1276: words->bytes"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(3);
tp(3,av2);}}
else{
t4=C_eqp(((C_word*)t0)[3],lf[342]);
if(C_truep(t4)){
C_trace(C_text("support.scm:1277: next"));
t5=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_cadr(((C_word*)t0)[5]);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
else{
C_trace(C_text("support.scm:1253: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word av2[4];
av2[0]=*((C_word*)lf[37]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[407];
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}}}}

/* a15057 in chicken.compiler.support#estimate-foreign-result-location-size in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15058(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15058,c,av);}
C_trace(C_text("support.scm:1280: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=t1;
av2[2]=lf[408];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* chicken.compiler.support#finish-foreign-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15064(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_15064,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15068,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1286: chicken.syntax#strip-syntax"));
t5=C_fast_retrieve(lf[423]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k15066 in chicken.compiler.support#finish-foreign-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15068(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_15068,c,av);}
a=C_alloc(21);
t2=C_eqp(t1,lf[326]);
t3=(C_truep(t2)?t2:C_eqp(t1,lf[351]));
if(C_truep(t3)){
t4=C_a_i_list(&a,2,lf[298],C_fix(0));
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list(&a,3,lf[410],((C_word*)t0)[3],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_eqp(t1,lf[330]);
if(C_truep(t4)){
t5=C_a_i_list(&a,2,lf[298],C_fix(0));
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_list(&a,3,lf[411],((C_word*)t0)[3],t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_eqp(t1,lf[350]);
t6=(C_truep(t5)?t5:C_eqp(t1,lf[352]));
if(C_truep(t6)){
t7=C_a_i_list(&a,2,lf[298],C_fix(0));
t8=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_list(&a,3,lf[412],((C_word*)t0)[3],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=C_eqp(t1,lf[348]);
t8=(C_truep(t7)?t7:C_eqp(t1,lf[349]));
if(C_truep(t8)){
t9=C_a_i_list(&a,2,lf[298],C_fix(0));
t10=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t10;
av2[1]=C_a_i_list(&a,3,lf[413],((C_word*)t0)[3],t9);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=C_eqp(t1,lf[331]);
if(C_truep(t9)){
t10=C_a_i_list(&a,2,lf[298],C_fix(0));
t11=C_a_i_list(&a,3,lf[410],((C_word*)t0)[3],t10);
t12=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t12;
av2[1]=C_a_i_list(&a,2,lf[414],t11);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t10=C_eqp(t1,lf[353]);
if(C_truep(t10)){
t11=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t12=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t12;
av2[1]=C_a_i_list(&a,3,lf[415],((C_word*)t0)[3],t11);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t11=C_eqp(t1,lf[354]);
if(C_truep(t11)){
t12=C_a_i_list(&a,2,lf[298],C_SCHEME_FALSE);
t13=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t13;
av2[1]=C_a_i_list(&a,3,lf[416],((C_word*)t0)[3],t12);
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t12=C_i_listp(t1);
if(C_truep(C_i_not(t12))){
t13=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t13;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=C_i_car(t1);
t14=(C_truep((C_truep(C_eqp(t13,lf[338]))?C_SCHEME_TRUE:(C_truep(C_eqp(t13,lf[339]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?C_eqp(C_fix(2),C_i_length(t1)):C_SCHEME_FALSE);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15195,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1299: struct/union-wrapper-type-name"));
f_7057(t15,t1);}
else{
t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15201,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t16=C_eqp(C_u_i_car(t1),lf[342]);
if(C_truep(t16)){
t17=C_i_length(t1);
t18=C_eqp(C_fix(2),t17);
t19=t15;
f_15201(t19,(C_truep(t18)?C_u_i_memq(C_i_cadr(t1),lf[422]):C_SCHEME_FALSE));}
else{
t17=t15;
f_15201(t17,C_SCHEME_FALSE);}}}}}}}}}}}

/* k15193 in k15066 in chicken.compiler.support#finish-foreign-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){
C_save_and_reclaim((void *)f_15195,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,lf[298],t1);
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,3,lf[417],t3,((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k15199 in k15066 in chicken.compiler.support#finish-foreign-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_15201(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
C_save_and_reclaim_args((void *)trf_15201,2,t0,t1);}
a=C_alloc(18);
if(C_truep(t1)){
C_trace(C_text("support.scm:1306: finish-foreign-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[409]);
C_word av2[4];
av2[0]=*((C_word*)lf[409]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=C_i_cadr(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
t2=C_i_length(((C_word*)t0)[3]);
t3=C_eqp(C_fix(3),t2);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[3]);
t5=C_eqp(t4,lf[334]);
t6=(C_truep(t5)?t5:C_eqp(t4,lf[335]));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15229,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1310: chicken.base#gensym"));
t8=*((C_word*)lf[92]+1);{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=C_eqp(t4,lf[341]);
if(C_truep(t7)){
t8=C_i_caddr(((C_word*)t0)[3]);
t9=C_a_i_list(&a,2,lf[298],lf[336]);
t10=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_a_i_list(&a,4,lf[420],t8,t9,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t8=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t8;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}
else{
t4=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}

/* k15227 in k15199 in k15066 in chicken.compiler.support#finish-foreign-result in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15229(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(60,c,1)))){
C_save_and_reclaim((void *)f_15229,c,av);}
a=C_alloc(60);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,t1,((C_word*)t2)[2]);
t4=C_a_i_list(&a,1,t3);
t5=C_a_i_list(&a,2,lf[418],t1);
t6=C_a_i_list(&a,2,lf[419],t5);
t7=C_i_caddr(((C_word*)t2)[3]);
t8=C_a_i_list(&a,2,lf[298],lf[336]);
t9=C_a_i_list(&a,4,lf[420],t7,t8,t1);
t10=C_a_i_list(&a,4,lf[421],t1,t6,t9);
t11=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t11;
av2[1]=C_a_i_list(&a,3,lf[91],t4,t10);
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}

/* chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_15364,c,av);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15371,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=C_eqp(t3,lf[426]);
if(C_truep(t5)){
C_trace(C_text("support.scm:1328: foreign-type-argument-converter"));
f_13973(t4,t2);}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_15371(2,av2);}}}

/* k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15371,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15374,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_15374(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[5],lf[449]);
if(C_truep(t3)){
C_trace(C_text("support.scm:1329: foreign-type-result-converter"));
f_13952(t2,((C_word*)t0)[4]);}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_15374(2,av2);}}}}

/* k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15374,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[157];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15377,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1333: final-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[398]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[398]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}}

/* k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_15377(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15377,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=C_eqp(((C_word*)t2)[3],lf[403]);
if(C_truep(t4)){
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[425];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[289]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t2)[3],lf[290]));
if(C_truep(t6)){
t7=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[289];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t2)[3],lf[292]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15401,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
t9=t8;
f_15401(t9,t7);}
else{
t9=C_eqp(((C_word*)t2)[3],lf[388]);
if(C_truep(t9)){
t10=t8;
f_15401(t10,t9);}
else{
t10=C_eqp(((C_word*)t2)[3],lf[362]);
if(C_truep(t10)){
t11=t8;
f_15401(t11,t10);}
else{
t11=C_eqp(((C_word*)t2)[3],lf[319]);
if(C_truep(t11)){
t12=t8;
f_15401(t12,t11);}
else{
t12=C_eqp(((C_word*)t2)[3],lf[389]);
if(C_truep(t12)){
t13=t8;
f_15401(t13,t12);}
else{
t13=C_eqp(((C_word*)t2)[3],lf[390]);
if(C_truep(t13)){
t14=t8;
f_15401(t14,t13);}
else{
t14=C_eqp(((C_word*)t2)[3],lf[391]);
t15=t8;
f_15401(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t2)[3],lf[392])));}}}}}}}}}

/* k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_15401(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15401,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[150];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[294]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[3],lf[386]));
if(C_truep(t4)){
t5=C_eqp(((C_word*)t2)[5],lf[426]);
t6=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?lf[387]:lf[294]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[308]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t2)[3],lf[309]));
if(C_truep(t6)){
t7=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[308];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t2)[3],lf[340]);
t8=(C_truep(t7)?t7:C_eqp(((C_word*)t2)[3],lf[301]));
if(C_truep(t8)){
t9=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[157];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t2)[3],lf[384]);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15445,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t9)){
t11=t10;
f_15445(t11,t9);}
else{
t11=C_eqp(((C_word*)t2)[3],lf[296]);
t12=t10;
f_15445(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t2)[3],lf[385])));}}}}}}

/* k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_15445(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15445,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_eqp(((C_word*)t2)[5],lf[426]);
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=(C_truep(t3)?lf[427]:lf[384]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[381]);
if(C_truep(t3)){
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[384];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t2)[3],lf[383]);
if(C_truep(t4)){
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[384];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[302]);
if(C_truep(t5)){
t6=C_eqp(((C_word*)t2)[5],lf[426]);
t7=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=(C_truep(t6)?lf[428]:lf[302]);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=C_eqp(((C_word*)t2)[3],lf[304]);
if(C_truep(t6)){
t7=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[302];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t2)[3],lf[305]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15494,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
t9=t8;
f_15494(t9,t7);}
else{
t9=C_eqp(((C_word*)t2)[3],lf[373]);
if(C_truep(t9)){
t10=t8;
f_15494(t10,t9);}
else{
t10=C_eqp(((C_word*)t2)[3],lf[374]);
if(C_truep(t10)){
t11=t8;
f_15494(t11,t10);}
else{
t11=C_eqp(((C_word*)t2)[3],lf[375]);
if(C_truep(t11)){
t12=t8;
f_15494(t12,t11);}
else{
t12=C_eqp(((C_word*)t2)[3],lf[376]);
if(C_truep(t12)){
t13=t8;
f_15494(t13,t12);}
else{
t13=C_eqp(((C_word*)t2)[3],lf[377]);
if(C_truep(t13)){
t14=t8;
f_15494(t14,t13);}
else{
t14=C_eqp(((C_word*)t2)[3],lf[378]);
if(C_truep(t14)){
t15=t8;
f_15494(t15,t14);}
else{
t15=C_eqp(((C_word*)t2)[3],lf[379]);
t16=t8;
f_15494(t16,(C_truep(t15)?t15:C_eqp(((C_word*)t2)[3],lf[380])));}}}}}}}}}}}}}

/* k15492 in k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_15494(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_15494,2,t0,t1);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_eqp(((C_word*)t2)[5],lf[426]);
if(C_truep(t3)){
t4=C_a_i_list(&a,2,lf[338],((C_word*)t2)[3]);
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_list(&a,3,lf[429],lf[430],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_list(&a,2,lf[338],((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[382]);
if(C_truep(t3)){
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[384];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t2)[3],lf[365]);
if(C_truep(t4)){
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[431];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[306]);
if(C_truep(t5)){
t6=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=lf[432];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(((C_word*)t2)[3],lf[366]);
if(C_truep(t6)){
t7=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[433];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t2)[3],lf[367]);
if(C_truep(t7)){
t8=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[434];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(((C_word*)t2)[3],lf[368]);
if(C_truep(t8)){
t9=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[435];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t2)[3],lf[369]);
if(C_truep(t9)){
t10=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t10;
av2[1]=lf[436];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(((C_word*)t2)[3],lf[370]);
if(C_truep(t10)){
t11=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t11;
av2[1]=lf[437];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(((C_word*)t2)[3],lf[371]);
if(C_truep(t11)){
t12=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t12;
av2[1]=lf[438];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(((C_word*)t2)[3],lf[372]);
if(C_truep(t12)){
t13=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t13;
av2[1]=lf[439];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=C_eqp(((C_word*)t2)[3],lf[361]);
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15581,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t13)){
t15=t14;
f_15581(t15,t13);}
else{
t15=C_eqp(((C_word*)t2)[3],lf[363]);
if(C_truep(t15)){
t16=t14;
f_15581(t16,t15);}
else{
t16=C_eqp(((C_word*)t2)[3],lf[357]);
if(C_truep(t16)){
t17=t14;
f_15581(t17,t16);}
else{
t17=C_eqp(((C_word*)t2)[3],lf[364]);
if(C_truep(t17)){
t18=t14;
f_15581(t18,t17);}
else{
t18=C_eqp(((C_word*)t2)[3],lf[311]);
if(C_truep(t18)){
t19=t14;
f_15581(t19,t18);}
else{
t19=C_eqp(((C_word*)t2)[3],lf[358]);
if(C_truep(t19)){
t20=t14;
f_15581(t20,t19);}
else{
t20=C_eqp(((C_word*)t2)[3],lf[360]);
if(C_truep(t20)){
t21=t14;
f_15581(t21,t20);}
else{
t21=C_eqp(((C_word*)t2)[3],lf[359]);
t22=t14;
f_15581(t22,(C_truep(t21)?t21:C_eqp(((C_word*)t2)[3],lf[355])));}}}}}}}}}}}}}}}}}}}

/* k15579 in k15492 in k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_15581(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15581,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[361];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[323]);
if(C_truep(t3)){
t4=C_eqp(lf[426],((C_word*)t2)[5]);
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?lf[440]:lf[441]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t2)[3],lf[325]);
if(C_truep(t4)){
t5=C_eqp(lf[426],((C_word*)t2)[5]);
t6=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(t5)?lf[442]:lf[346]);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[326]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15614,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_15614(t7,t5);}
else{
t7=C_eqp(((C_word*)t2)[3],lf[350]);
if(C_truep(t7)){
t8=t6;
f_15614(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[3],lf[351]);
t9=t6;
f_15614(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[3],lf[352])));}}}}}}

/* k15612 in k15579 in k15492 in k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_15614(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15614,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[443];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[353]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[3],lf[354]));
if(C_truep(t4)){
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[444];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[330]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15632,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_15632(t7,t5);}
else{
t7=C_eqp(((C_word*)t2)[3],lf[348]);
t8=t6;
f_15632(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t2)[3],lf[349])));}}}}

/* k15630 in k15612 in k15579 in k15492 in k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void f_15632(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_15632,2,t0,t1);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[445];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[331]);
if(C_truep(t3)){
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[331];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[4]))){
t4=C_u_i_car(((C_word*)t2)[4]);
t5=C_eqp(t4,lf[333]);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15654,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[2],a[4]=t4,a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t5)){
t7=t6;
f_15654(t7,t5);}
else{
t7=C_eqp(t4,lf[346]);
if(C_truep(t7)){
t8=t6;
f_15654(t8,t7);}
else{
t8=C_eqp(t4,lf[347]);
t9=t6;
f_15654(t9,(C_truep(t8)?t8:C_eqp(t4,lf[323])));}}}
else{
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[157];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}

/* k15652 in k15630 in k15612 in k15579 in k15492 in k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void f_15654(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15654,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_eqp(lf[426],((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=(C_truep(t2)?lf[446]:lf[447]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[342]);
if(C_truep(t2)){
C_trace(C_text("support.scm:1395: foreign-type->scrutiny-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[424]);
C_word av2[4];
av2[0]=*((C_word*)lf[424]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=C_i_cadr(((C_word*)t0)[5]);
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
t3=C_eqp(((C_word*)t0)[4],lf[338]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[4],lf[339]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15689,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1397: struct/union-wrapper-type-name"));
f_7057(t5,((C_word*)t0)[5]);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[343]);
if(C_truep(t5)){
t6=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t6;
av2[1]=lf[361];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(((C_word*)t0)[4],lf[345]);
t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[325]));
if(C_truep(t7)){
t8=C_eqp(lf[426],((C_word*)t0)[2]);
t9=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t9;
av2[1]=(C_truep(t8)?lf[448]:lf[346]);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[157];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}}

/* k15687 in k15652 in k15630 in k15612 in k15579 in k15492 in k15443 in k15399 in k15375 in k15372 in k15369 in chicken.compiler.support#foreign-type->scrutiny-type in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_15689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_15689,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[338],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_16073,c,av);}
a=C_alloc(13);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16077,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16079,a[2]=t8,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t10=((C_word*)t8)[1];
f_16079(t10,t6,t2);}

/* k16075 in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16077,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16079(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_16079,3,t0,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16083,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("support.scm:1412: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word av2[3];
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16083(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16083,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16086,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1413: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}

/* k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16086(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_16086,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,lf[140]);
t4=(C_truep(t3)?t3:C_eqp(t1,lf[118]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16151,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:1415: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}
else{
t5=C_eqp(t1,lf[80]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16160,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t5)){
t7=t6;
f_16160(t7,t5);}
else{
t7=C_eqp(t1,lf[145]);
t8=t6;
f_16160(t8,(C_truep(t7)?t7:C_eqp(t1,lf[158])));}}}

/* k16099 in k16149 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16101(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_16101,2,t0,t1);}
a=C_alloc(6);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[44]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16109,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_16109(t6,((C_word*)t0)[4],((C_word*)t0)[2]);}

/* for-each-loop3842 in k16099 in k16149 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16109(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16109,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16119,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1418: g3843"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_16079(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k16117 in for-each-loop3842 in k16099 in k16149 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16119,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16109(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k16149 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16151(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_16151,c,av);}
a=C_alloc(8);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_i_memq(t2,((C_word*)t0)[5]);
t5=(C_truep(t4)?C_i_not(C_i_memq(t2,((C_word*)((C_word*)t0)[6])[1])):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[6])[1]);
t7=C_mutate(((C_word *)((C_word*)t0)[6])+1,t6);
t8=t3;
f_16101(t8,t7);}
else{
t6=t3;
f_16101(t6,C_SCHEME_UNDEFINED);}}

/* k16158 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16160(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_16160,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_check_list_2(((C_word*)t0)[3],lf[44]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16168,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_16168(t6,((C_word*)t0)[2],((C_word*)t0)[3]);}}

/* for-each-loop3867 in k16158 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16168(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16168,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16178,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1420: g3868"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_16079(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k16176 in for-each-loop3867 in k16158 in k16084 in k16081 in walk in chicken.compiler.support#scan-used-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16178,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16168(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_16213,c,av);}
a=C_alloc(23);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_END_OF_LIST;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16216,a[2]=t5,a[3]=t7,a[4]=t3,a[5]=t9,a[6]=t11,tmp=(C_word)a,a+=7,tmp));
t13=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16385,a[2]=t9,tmp=(C_word)a,a+=3,tmp));
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16423,a[2]=t1,a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1458: walk"));
t15=((C_word*)t9)[1];
f_16216(t15,t14,t2,C_SCHEME_END_OF_LIST);}

/* walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16216(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_16216,4,t0,t1,t2,t3);}
a=C_alloc(11);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16220,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[6],a[10]=t2,tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("support.scm:1431: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word av2[3];
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16220,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16223,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1432: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16223(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_16223,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16226,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("support.scm:1433: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16226(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16226,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_eqp(((C_word*)t0)[3],lf[80]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16235,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_16235(t5,t3);}
else{
t5=C_eqp(((C_word*)t0)[3],lf[145]);
if(C_truep(t5)){
t6=t4;
f_16235(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[3],lf[158]);
if(C_truep(t6)){
t7=t4;
f_16235(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[3],lf[161]);
t8=t4;
f_16235(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[172])));}}}}

/* k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16235(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
C_save_and_reclaim_args((void *)trf_16235,2,t0,t1);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[140]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t2)[4]);
if(C_truep(C_i_memq(t4,((C_word*)t2)[5]))){
t5=C_SCHEME_UNDEFINED;
t6=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16254,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[7],a[5]=t4,a[6]=((C_word*)t2)[8],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:1438: lset-adjoin/eq?"));
f_6040(t5,((C_word*)((C_word*)t2)[6])[1],C_a_i_list(&a,1,t4));}}
else{
t4=C_eqp(((C_word*)t2)[3],lf[118]);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[4]);
if(C_truep(C_i_memq(t5,((C_word*)t2)[5]))){
C_trace(C_text("support.scm:1444: walk"));
t6=((C_word*)((C_word*)t2)[9])[1];
f_16216(t6,((C_word*)t2)[2],C_i_car(((C_word*)t2)[10]),((C_word*)t2)[5]);}
else{
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16290,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[10],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:1443: lset-adjoin/eq?"));
f_6040(t6,((C_word*)((C_word*)t2)[6])[1],C_a_i_list(&a,1,t5));}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[91]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16299,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:1446: walk"));
t7=((C_word*)((C_word*)t2)[9])[1];
f_16216(t7,t6,C_i_car(((C_word*)t2)[10]),((C_word*)t2)[5]);}
else{
t6=C_eqp(((C_word*)t2)[3],lf[112]);
if(C_truep(t6)){
t7=C_i_caddr(((C_word*)t2)[4]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16329,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1449: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[213]);
C_word av2[4];
av2[0]=*((C_word*)lf[213]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t7;
av2[3]=t8;
tp(4,av2);}}
else{
C_trace(C_text("support.scm:1453: walkeach"));
t7=((C_word*)((C_word*)t2)[11])[1];
f_16385(t7,((C_word*)t2)[2],((C_word*)t2)[10],((C_word*)t2)[5]);}}}}}}

/* k16252 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16254(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16254,c,av);}
a=C_alloc(5);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16260,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1439: variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[247]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[247]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
tp(4,av2);}}

/* k16258 in k16252 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16260(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_16260,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16264,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1440: lset-adjoin/eq?"));
f_6040(t2,((C_word*)((C_word*)t0)[3])[1],C_a_i_list(&a,1,((C_word*)t0)[4]));}}

/* k16262 in k16258 in k16252 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_16264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16264,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k16288 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16290(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16290,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
C_trace(C_text("support.scm:1444: walk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_16216(t3,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6]);}

/* k16297 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16299,c,av);}
a=C_alloc(5);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16310,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1447: scheme#append"));
t4=*((C_word*)lf[151]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k16308 in k16297 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16310(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16310,c,av);}
C_trace(C_text("support.scm:1447: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_16216(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* a16328 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16329(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16329,c,av);}
a=C_alloc(5);
t5=C_i_car(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16341,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1452: scheme#append"));
t7=*((C_word*)lf[151]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k16339 in a16328 in k16233 in k16224 in k16221 in k16218 in walk in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16341,c,av);}
C_trace(C_text("support.scm:1452: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_16216(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* walkeach in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16385(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_16385,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16387,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_check_list_2(t2,lf[44]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16399,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_16399(t9,t1,t2);}

/* g3926 in walkeach in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16387(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_16387,3,t0,t1,t2);}
C_trace(C_text("support.scm:1456: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_16216(t3,t1,t2,((C_word*)t0)[3]);}

/* for-each-loop3925 in walkeach in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16399(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16399,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16409,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1456: g3926"));
t4=((C_word*)t0)[3];
f_16387(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k16407 in for-each-loop3925 in walkeach in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16409(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16409,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_16399(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k16421 in chicken.compiler.support#scan-free-variables in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16423(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16423,c,av);}
C_trace(C_text("support.scm:1459: scheme#values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
C_values(4,av2);}}

/* chicken.compiler.support#make-block-variable-literal in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16429(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_16429,c,av);}
a=C_alloc(3);
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record2(&a,2,lf[453],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#block-variable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16435(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16435,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_structurep(t2,lf[453]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#block-variable-literal-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16450,c,av);}
t3=C_i_check_structure(t2,lf[453]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
C_save_and_reclaim((void*)f_16459,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16467,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1473: scheme#open-output-string"));
t4=C_fast_retrieve(lf[318]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_16467,c,av);}
a=C_alloc(8);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[312]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16473,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16494,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_nullp(((C_word*)t0)[3]))){
C_trace(C_text("support.scm:1474: chicken.base#gensym"));
t5=*((C_word*)lf[92]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
C_trace(C_text("support.scm:1473: ##sys#print"));
t5=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t0)[3]);
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k16471 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16473,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16476,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1473: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(45);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k16474 in k16471 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_16476,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16479,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16490,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1475: chicken.time#current-seconds"));
t5=C_fast_retrieve(lf[456]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k16477 in k16474 in k16471 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16479,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16482,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1473: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_random_fixnum(C_fix(1000));
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16480 in k16477 in k16474 in k16471 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16482,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16485,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1473: scheme#get-output-string"));
t4=C_fast_retrieve(lf[315]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k16483 in k16480 in k16477 in k16474 in k16471 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16485(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16485,c,av);}
C_trace(C_text("support.scm:1472: scheme#string->symbol"));
t2=*((C_word*)lf[58]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k16488 in k16474 in k16471 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_16490,c,av);}
C_trace(C_text("support.scm:1473: ##sys#print"));
t2=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k16492 in k16465 in chicken.compiler.support#make-random-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_16494,c,av);}
C_trace(C_text("support.scm:1473: ##sys#print"));
t2=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.support#clear-real-name-table! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16506,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16511,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1491: scheme#make-vector"));
t3=*((C_word*)lf[284]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_fix(997);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k16509 in chicken.compiler.support#clear-real-name-table! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16511,c,av);}
t2=C_mutate(&lf[457] /* (set! chicken.compiler.support#real-name-table ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#set-real-name! in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_16513,c,av);}
C_trace(C_text("support.scm:1494: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t1;
av2[2]=C_retrieve2(lf[457],C_text("chicken.compiler.support#real-name-table"));
av2[3]=t2;
av2[4]=t3;
tp(5,av2);}}

/* chicken.compiler.support#get-real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16519,c,av);}
C_trace(C_text("support.scm:1499: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t1;
av2[2]=C_retrieve2(lf[457],C_text("chicken.compiler.support#real-name-table"));
av2[3]=t2;
tp(4,av2);}}

/* chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,3)))){
C_save_and_reclaim((void*)f_16526,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+8);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16529,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16545,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1511: resolve"));
f_16529(t5,t2);}

/* resolve in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16529(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_16529,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16533,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1506: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word av2[4];
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t3;
av2[2]=C_retrieve2(lf[457],C_text("chicken.compiler.support#real-name-table"));
av2[3]=t2;
tp(4,av2);}}

/* k16531 in resolve in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16533(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_16533,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16539,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1508: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t2;
av2[2]=C_retrieve2(lf[457],C_text("chicken.compiler.support#real-name-table"));
av2[3]=t1;
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k16537 in k16531 in resolve in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16539,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16545(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_16545,c,av);}
a=C_alloc(6);
if(C_truep(C_i_not(t1))){
C_trace(C_text("support.scm:1512: ##sys#symbol->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[168]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
t2=C_u_i_car(((C_word*)t0)[4]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16641,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1515: ##sys#symbol->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[168]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t3;
av2[2]=t1;
tp(3,av2);}}
else{
C_trace(C_text("support.scm:1529: ##sys#symbol->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[168]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}}}

/* k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_16572,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16574,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_16574(t5,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),t1);}

/* loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16574(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_16574,5,t0,t1,t2,t3,t4);}
a=C_alloc(8);
if(C_truep(C_i_greaterp(t3,C_fix(20)))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16588,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t6=C_a_i_cons(&a,2,lf[463],t2);
C_trace(C_text("support.scm:1520: scheme#reverse"));
t7=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16598,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("support.scm:1522: resolve"));
f_16529(t5,t4);}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16637,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1528: scheme#reverse"));
t6=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}

/* k16586 in loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16588(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16588,c,av);}
C_trace(C_text("support.scm:1520: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[461]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[462];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k16596 in loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16598(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16598,c,av);}
a=C_alloc(3);
t2=C_eqp(t1,((C_word*)t0)[2]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16611,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1524: scheme#reverse"));
t4=*((C_word*)lf[75]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16630,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1525: scheme#symbol->string"));
t4=*((C_word*)lf[61]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k16609 in k16596 in loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16611(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16611,c,av);}
C_trace(C_text("support.scm:1524: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[461]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[464];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k16624 in k16628 in k16596 in loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_16626,c,av);}
C_trace(C_text("support.scm:1525: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_16574(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k16628 in k16596 in loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16630(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_16630,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,t1,((C_word*)t2)[4]);
t4=C_fixnum_plus(((C_word*)t2)[5],C_fix(1));
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16626,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[3],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1527: db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[7];
av2[3]=((C_word*)t2)[2];
av2[4]=lf[465];
tp(5,av2);}}

/* k16635 in loop in k16570 in k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16637(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16637,c,av);}
C_trace(C_text("support.scm:1528: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[461]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[466];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k16639 in k16543 in chicken.compiler.support#real-name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_16641,c,av);}
a=C_alloc(9);
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16572,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1517: db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[465];
tp(5,av2);}}

/* chicken.compiler.support#real-name2 in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_16646,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16650,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1532: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2=av;
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t4;
av2[2]=C_retrieve2(lf[457],C_text("chicken.compiler.support#real-name-table"));
av2[3]=t2;
tp(4,av2);}}

/* k16648 in chicken.compiler.support#real-name2 in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16650,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:1533: real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[169]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[169]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#display-real-name-table in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
C_save_and_reclaim((void *)f_16658,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16664,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:1536: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[248]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[248]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=C_retrieve2(lf[457],C_text("chicken.compiler.support#real-name-table"));
tp(4,av2);}}

/* a16663 in chicken.compiler.support#display-real-name-table in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16664(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_16664,c,av);}
a=C_alloc(5);
t4=*((C_word*)lf[24]+1);
t5=*((C_word*)lf[24]+1);
t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16671,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1538: ##sys#print"));
t8=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
av2[3]=C_SCHEME_TRUE;
av2[4]=*((C_word*)lf[24]+1);
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}

/* k16669 in a16663 in chicken.compiler.support#display-real-name-table in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16671,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16674,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1538: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(9);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k16672 in k16669 in a16663 in chicken.compiler.support#display-real-name-table in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_16674,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16677,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1538: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k16675 in k16672 in k16669 in a16663 in chicken.compiler.support#display-real-name-table in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16677(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16677,c,av);}
C_trace(C_text("support.scm:1538: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* chicken.compiler.support#source-info->string in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16682(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_16682,c,av);}
a=C_alloc(13);
if(C_truep(C_i_listp(t2))){
t3=C_i_car(t2);
t4=C_i_cadr(t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16702,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16706,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=C_i_string_length(t3);
t8=C_a_i_fixnum_difference(&a,2,C_fix(4),t7);
C_trace(C_text("support.scm:1545: scheme#max"));
t9=*((C_word*)lf[474]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t9;
av2[1]=t6;
av2[2]=C_fix(0);
av2[3]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
C_trace(C_text("support.scm:1546: chicken.string#->string"));
t3=C_fast_retrieve(lf[56]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k16700 in chicken.compiler.support#source-info->string in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_16702,c,av);}
C_trace(C_text("support.scm:1545: chicken.string#conc"));
t2=C_fast_retrieve(lf[470]);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[471];
av2[4]=t1;
av2[5]=lf[472];
av2[6]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k16704 in chicken.compiler.support#source-info->string in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16706,c,av);}
C_trace(C_text("support.scm:1545: scheme#make-string"));
t2=*((C_word*)lf[473]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_make_character(32);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.support#source-info->name in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16717,c,av);}
if(C_truep(C_i_listp(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cadr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
C_trace(C_text("support.scm:1549: chicken.string#->string"));
t3=C_fast_retrieve(lf[56]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* chicken.compiler.support#source-info->line in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16732,c,av);}
t3=C_i_listp(t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_i_car(t2):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#call-info in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_16744,c,av);}
a=C_alloc(4);
t4=C_i_cdr(t2);
t5=C_i_pairp(t4);
t6=(C_truep(t5)?C_i_cadr(t2):C_SCHEME_FALSE);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16751,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t6)){
if(C_truep(C_i_listp(t6))){
t8=C_i_car(t6);
t9=C_i_cadr(t6);
C_trace(C_text("support.scm:1559: chicken.string#conc"));
t10=C_fast_retrieve(lf[470]);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t10;
av2[1]=t7;
av2[2]=lf[478];
av2[3]=t8;
av2[4]=lf[479];
av2[5]=t3;
((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}
else{
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
else{
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}

/* k16749 in chicken.compiler.support#call-info in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16751(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16751,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_16781,c,av);}
a=C_alloc(17);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(t3,lf[119]);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16800,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16972,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t14=((C_word*)t12)[1];
f_16972(t14,t10,t3);}

/* k16792 in map-loop4058 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16794,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=((C_word*)((C_word*)t0)[3])[1];
f_16972(t6,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_16800,c,av);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(t1,lf[119]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16936,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);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16938,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16938(t11,t7,t1);}

/* k16813 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16815,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16818,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1571: g4119"));
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k16816 in k16813 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16818,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16824,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1572: chicken.condition#condition?"));
t5=C_fast_retrieve(lf[484]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k16822 in k16816 in k16813 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16824,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:1572: k"));
t3=((C_word*)t2)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16833,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=C_i_length(((C_word*)t2)[4]);
t5=C_eqp(C_fix(1),t4);
if(C_truep(t5)){
C_trace(C_text("support.scm:1574: encodeable-literal?"));
t6=C_retrieve2(lf[483],C_text("chicken.compiler.support#encodeable-literal?"));{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t2)[4]);
f_17090(3,av2);}}
else{
t6=t3;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_16833(2,av2);}}}}

/* k16831 in k16822 in k16816 in k16813 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_16833,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16836,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1575: debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[22]+1);
av2[1]=t3;
av2[2]=lf[178];
av2[3]=lf[481];
av2[4]=((C_word*)t2)[5];
tp(5,av2);}}
else{
t3=C_eqp(C_fix(1),C_u_i_length(((C_word*)t2)[4]));
if(C_truep(t3)){
C_trace(C_text("support.scm:1578: k"));
t4=((C_word*)t2)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}
else{
C_trace(C_text("support.scm:1580: bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[13]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=lf[482];
av2[3]=((C_word*)t2)[5];
tp(4,av2);}}}}

/* k16834 in k16831 in k16822 in k16816 in k16813 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16836,c,av);}
C_trace(C_text("support.scm:1576: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_i_car(((C_word*)t0)[4]);
((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}

/* a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_16875,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16881,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16890,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1571: chicken.condition#with-exception-handler"));
t5=C_fast_retrieve(lf[100]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a16880 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16881,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16887,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1571: k4116"));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a16886 in a16880 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16887(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16887,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a16889 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16890(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_16890,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16896,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16908,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1571: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a16895 in a16889 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16896,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16902,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1571: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=*((C_word*)lf[485]+1);
C_call_with_values(4,av2);}}

/* a16901 in a16895 in a16889 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16902(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16902,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t2)[2];
av2[3]=((C_word*)t2)[3];
C_apply(4,av2);}}

/* a16907 in a16889 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16908(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){
C_save_and_reclaim((void*)f_16908,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16914,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1571: k4116"));
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a16913 in a16907 in a16889 in a16874 in k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16914,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k16934 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_16936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_16936,c,av);}
a=C_alloc(13);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_slot(((C_word*)t0)[2],C_fix(0));
if(C_truep(C_i_closurep(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16815,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=C_SCHEME_UNDEFINED,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16875,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1571: scheme#call-with-current-continuation"));
t6=*((C_word*)lf[101]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
C_trace(C_text("support.scm:1581: bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[13]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=lf[486];
av2[3]=t2;
tp(4,av2);}}}

/* map-loop4086 in k16798 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16938(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_16938,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_a_i_list(&a,2,lf[80],t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* map-loop4058 in chicken.compiler.support#constant-form-eval in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_16972(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16972,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16794,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);
C_trace(C_text("support.scm:1566: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word av2[3];
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17006(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17006,c,av);}
a=C_alloc(8);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17009,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17084,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1585: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2=av;
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t6;
av2[2]=C_i_car(t3);
tp(3,av2);}}

/* constant-node? in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17009,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17017,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1584: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2=av;
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k17015 in constant-node? in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17017(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17017,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(lf[80],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17030 in k17073 in k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17032(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17032,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17039,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1591: constant-form-eval"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[480]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[480]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t2;
av2[4]=t3;
tp(5,av2);}}
else{
C_trace(C_text("support.scm:1592: k"));
t2=((C_word*)t0)[3];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}}

/* a17038 in k17030 in k17073 in k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17039,c,av);}
C_trace(C_text("support.scm:1591: k"));
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k17052 in k17073 in k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17054(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17054,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17060,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1588: foldable?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[489]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[489]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_17032(2,av2);}}}

/* k17058 in k17052 in k17073 in k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17060,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17063,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
if(C_truep(t1)){
C_trace(C_text("support.scm:1590: every"));
f_5581(((C_word*)t2)[2],((C_word*)t2)[3],C_u_i_cdr(((C_word*)t2)[4]));}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_17032(2,av2);}}}
else{
C_trace(C_text("support.scm:1589: predicate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[488]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[488]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}}

/* k17061 in k17058 in k17052 in k17073 in k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17063,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:1590: every"));
f_5581(((C_word*)t0)[2],((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_17032(2,av2);}}}

/* k17073 in k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_17075,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=C_i_car(t1);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17032,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17054,a[2]=t4,a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("tweaks.scm:51: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t5;
av2[2]=t3;
av2[3]=lf[490];
tp(4,av2);}}

/* k17082 in chicken.compiler.support#maybe-constant-fold-call in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17084,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[140],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17075,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1586: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t0)[2]);
tp(3,av2);}}
else{
C_trace(C_text("support.scm:1593: k"));
t3=((C_word*)t0)[3];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_FALSE;
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}}

/* chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17090,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17105,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1603: immediate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[84]);
C_word *av2=av;
av2[0]=*((C_word*)lf[84]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_17105,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_exact_integerp(((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17129,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1608: scheme#call-with-current-continuation"));
t4=*((C_word*)lf[101]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t2=C_i_flonump(((C_word*)t0)[3]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17185,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1612: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[492]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t0)[3]))){
t3=C_slot(((C_word*)t0)[3],C_fix(0));
t4=stub4159(C_SCHEME_UNDEFINED,t3);
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t4),C_fix(24));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
if(C_truep(C_byteblockp(((C_word*)t0)[3]))){
t3=stub4159(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t3),C_fix(24));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=stub4159(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
if(C_truep(C_fixnum_less_or_equal_p(C_i_integer_length(t3),C_fix(24)))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17235,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17237,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6229,a[2]=t3,a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp));
t9=((C_word*)t7)[1];
f_6229(t9,t4,C_fix(0));}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}}}}}

/* k17112 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17114,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1608: g4168"));
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k17115 in k17112 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17117,c,av);}
if(C_truep(t1)){
t2=C_i_string_length(t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t2),C_fix(24));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17129,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17135,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17144,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1608: chicken.condition#with-exception-handler"));
t5=C_fast_retrieve(lf[100]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a17134 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,2)))){
C_save_and_reclaim((void *)f_17135,c,av);}
a=C_alloc(2);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17141,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:1608: k4165"));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a17140 in a17134 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17141,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a17143 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17144(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_17144,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17146,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17153,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17170,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("tmp15175"));
t5=t2;
f_17146(t5,t4);}

/* tmp15175 in a17143 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_17146(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_17146,2,t0,t1);}
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[491]);
C_word av2[4];
av2[0]=*((C_word*)lf[491]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_fix(16);
tp(4,av2);}}

/* tmp25176 in a17143 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_17153(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_17153,3,t0,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17159,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1608: k4165"));
t4=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a17158 in tmp25176 in a17143 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17159,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k17168 in a17143 in a17128 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17170,c,av);}
a=C_alloc(3);
C_trace(C_text("tmp25176"));
t2=((C_word*)t0)[2];
f_17153(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));}

/* k17183 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17185(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17185,c,av);}
t2=C_i_string_length(t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t2),C_fix(24));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k17233 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17235(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17235,c,av);}
C_trace(C_text("support.scm:1621: every"));
f_5581(((C_word*)t0)[2],C_retrieve2(lf[483],C_text("chicken.compiler.support#encodeable-literal?")),t1);}

/* a17236 in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_17237(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_slot(((C_word*)t0)[2],t1));}

/* chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17243(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_17243,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17247,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17252,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_17252(t7,t3,C_fix(0),t2);}

/* k17245 in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17247,c,av);}
C_trace(C_text("support.scm:1646: scheme#newline"));
t2=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_17252(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_17252,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17256,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=t3,a[6]=t1,a[7]=C_SCHEME_UNDEFINED,a[8]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("support.scm:1631: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word av2[3];
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17256(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17256,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17259,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1632: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17259,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+7,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17262,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1633: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}

/* k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17262,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17265,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1634: scheme#make-string"));
t5=*((C_word*)lf[473]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[2];
av2[3]=C_make_character(32);
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17265(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_17265,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=C_a_i_fixnum_plus(&a,2,((C_word*)t2)[2],C_fix(2));
t4=*((C_word*)lf[24]+1);
t5=*((C_word*)lf[24]+1);
t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17273,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=t4,a[9]=((C_word*)t2)[8],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("support.scm:1636: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t7;
av2[2]=C_make_character(10);
av2[3]=*((C_word*)lf[24]+1);
tp(4,av2);}}

/* k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_17273,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("support.scm:1636: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17276,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17279,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1636: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(60);
av2[3]=((C_word*)t0)[8];
tp(4,av2);}}

/* k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_17279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_17279,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17282,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("support.scm:1636: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[9];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_17282(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17282,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17285,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1636: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t0)[8];
tp(4,av2);}}

/* k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in ... */
static void C_ccall f_17285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_17285,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17288,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:1636: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[7];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in ... */
static void C_ccall f_17288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_17288,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17289,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(((C_word*)t0)[4],lf[44]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17299,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17361,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_17361(t8,t4,((C_word*)t0)[4]);}

/* g4199 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void f_17289(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_17289,3,t0,t1,t2);}
C_trace(C_text("support.scm:1637: g4221"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_17252(t3,t1,((C_word*)t0)[3],t2);}

/* k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void C_ccall f_17299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_17299,c,av);}
a=C_alloc(9);
t2=C_block_size(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17305,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnum_greaterp(t2,C_fix(4)))){
t4=*((C_word*)lf[24]+1);
t5=*((C_word*)lf[24]+1);
t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17317,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:1640: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t7;
av2[2]=C_make_character(91);
av2[3]=*((C_word*)lf[24]+1);
tp(4,av2);}}
else{
C_trace(C_text("##sys#write-char/port"));
t4=C_fast_retrieve(lf[494]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(62);
av2[3]=*((C_word*)lf[24]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k17303 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_17305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17305,c,av);}
C_trace(C_text("##sys#write-char/port"));
t2=C_fast_retrieve(lf[494]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(62);
av2[3]=*((C_word*)lf[24]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k17315 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_17317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_17317,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17320,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1640: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_slot(((C_word*)t0)[4],C_fix(4));
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17318 in k17315 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in ... */
static void C_ccall f_17320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_17320,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17323,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17328,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_17328(t6,t2,C_fix(5));}

/* k17321 in k17318 in k17315 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void C_ccall f_17323(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17323,c,av);}
C_trace(C_text("##sys#write-char/port"));
t2=C_fast_retrieve(lf[494]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(93);
av2[3]=*((C_word*)lf[24]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* doloop4235 in k17318 in k17315 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in ... */
static void f_17328(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_17328,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=*((C_word*)lf[24]+1);
t4=*((C_word*)lf[24]+1);
t5=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17341,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:1643: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word av2[4];
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t6;
av2[2]=C_make_character(32);
av2[3]=*((C_word*)lf[24]+1);
tp(4,av2);}}}

/* k17339 in doloop4235 in k17318 in k17315 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in ... */
static void C_ccall f_17341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_17341,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1643: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_slot(((C_word*)t0)[5],((C_word*)t0)[4]);
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17342 in k17339 in doloop4235 in k17318 in k17315 in k17297 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in ... */
static void C_ccall f_17344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17344,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17328(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop4198 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in ... */
static void f_17361(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_17361,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17371,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1637: g4199"));
t4=((C_word*)t0)[3];
f_17289(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k17369 in for-each-loop4198 in k17286 in k17283 in k17280 in k17277 in k17274 in k17271 in k17263 in k17260 in k17257 in k17254 in loop in chicken.compiler.support#dump-nodes in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in ... */
static void C_ccall f_17371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17371,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17361(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.support#read/source-info in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17384,c,av);}
C_trace(C_text("support.scm:1651: chicken.syntax#read-with-source-info"));
t3=C_fast_retrieve(lf[496]);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_17390,c,av);}
a=C_alloc(4);
if(C_truep(C_i_char_equalp(C_make_character(62),t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17400,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#read-char/port"));
t5=C_fast_retrieve(lf[501]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
C_trace(C_text("support.scm:1662: old-hook"));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}

/* k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17400(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_17400,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17403,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17419,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1665: scheme#open-output-string"));
t4=C_fast_retrieve(lf[318]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k17401 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17403(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_17403,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,2,lf[498],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[499],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_17419,c,av);}
a=C_alloc(7);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17424,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp));
t5=((C_word*)t3)[1];
f_17424(t5,((C_word*)t0)[3]);}

/* loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_17424(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_17424,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17428,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("##sys#read-char/port"));
t3=C_fast_retrieve(lf[501]);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17426 in loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17428(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_17428,c,av);}
a=C_alloc(6);
if(C_truep(C_eofp(t1))){
C_trace(C_text("support.scm:1669: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[500];
tp(3,av2);}}
else{
if(C_truep(C_u_i_char_equalp(t1,C_make_character(10)))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17445,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1671: scheme#newline"));
t3=*((C_word*)lf[23]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
if(C_truep(C_u_i_char_equalp(t1,C_make_character(60)))){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17456,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("##sys#read-char/port"));
t3=C_fast_retrieve(lf[501]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17479,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#write-char/port"));
t3=C_fast_retrieve(lf[494]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}

/* k17443 in k17426 in loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17445,c,av);}
C_trace(C_text("support.scm:1672: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17424(t2,((C_word*)t0)[3]);}

/* k17454 in k17426 in loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17456,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_eqp(C_make_character(35),((C_word*)t0)[4]);
if(C_truep(t3)){
C_trace(C_text("support.scm:1676: scheme#get-output-string"));
t4=C_fast_retrieve(lf[315]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17468,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#write-char/port"));
t5=C_fast_retrieve(lf[494]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_make_character(60);
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}

/* k17466 in k17454 in k17426 in loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_17468,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17471,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#write-char/port"));
t4=C_fast_retrieve(lf[494]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k17469 in k17466 in k17454 in k17426 in loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17471,c,av);}
C_trace(C_text("support.scm:1680: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17424(t2,((C_word*)t0)[3]);}

/* k17477 in k17426 in loop in k17417 in k17398 in ##sys#user-read-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17479,c,av);}
C_trace(C_text("support.scm:1683: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17424(t2,((C_word*)t0)[3]);}

/* chicken.compiler.support#big-fixnum? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17484,c,av);}
a=C_alloc(4);
if(C_truep(C_fixnump(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17497,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1690: chicken.platform#feature?"));
t4=C_fast_retrieve(lf[502]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[503];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k17495 in chicken.compiler.support#big-fixnum? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17497,c,av);}
if(C_truep(t1)){
t2=C_fixnum_greaterp(((C_word*)t0)[2],C_fix(1073741823));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?t2:C_fixnum_lessp(((C_word*)t0)[2],C_fix(-1073741824)));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#small-bignum? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17508,c,av);}
a=C_alloc(4);
if(C_truep(C_i_bignump(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17530,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1696: chicken.platform#feature?"));
t4=C_fast_retrieve(lf[502]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[503];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k17528 in chicken.compiler.support#small-bignum? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17530(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17530,c,av);}
t2=C_i_not(t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_fixnum_less_or_equal_p(C_i_integer_length(((C_word*)t0)[3]),C_fix(62)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#hide-variable in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17532,c,av);}
a=C_alloc(3);
t3=C_a_i_list(&a,1,lf[505]);
if(C_truep(C_i_nullp(t3))){
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[268];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[268];
av2[4]=C_i_car(t3);
tp(5,av2);}}}

/* chicken.compiler.support#export-variable in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17552,c,av);}
a=C_alloc(3);
t3=C_a_i_list(&a,1,lf[507]);
if(C_truep(C_i_nullp(t3))){
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[268];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
C_trace(C_text("tweaks.scm:57: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[268];
av2[4]=C_i_car(t3);
tp(5,av2);}}}

/* chicken.compiler.support#variable-hidden? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17572,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17580,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1709: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=lf[268];
tp(4,av2);}}

/* k17578 in chicken.compiler.support#variable-hidden? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17580(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17580,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(t1,lf[505]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17587 in ##sys#toplevel-definition-hook in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17589,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:1712: chicken.plist#remprop!"));
t2=C_fast_retrieve(lf[267]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[268];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.support#variable-visible? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17594(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_17594,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17598,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1715: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2=av;
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[268];
tp(4,av2);}}

/* k17596 in chicken.compiler.support#variable-visible? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17598(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17598,c,av);}
t2=C_eqp(t1,lf[505]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(t1,lf[507]);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_SCHEME_TRUE:C_i_not(((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* chicken.compiler.support#mark-variable in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17619(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17619,c,av);}
if(C_truep(C_rest_nullp(c,4))){
C_trace(C_text("support.scm:1725: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word av2[5];
av2[0]=*((C_word*)lf[250]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
C_trace(C_text("support.scm:1725: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word av2[5];
av2[0]=*((C_word*)lf[250]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=C_get_rest_arg(c,4,av,4,t0);
tp(5,av2);}}}

/* chicken.compiler.support#variable-mark in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17634,c,av);}
C_trace(C_text("support.scm:1728: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2=av;
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* chicken.compiler.support#intrinsic? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17640,c,av);}
C_trace(C_text("tweaks.scm:60: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[490];
tp(4,av2);}}

/* chicken.compiler.support#foldable? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17651,c,av);}
C_trace(C_text("tweaks.scm:60: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[511];
tp(4,av2);}}

/* chicken.compiler.support#predicate? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17662,c,av);}
C_trace(C_text("tweaks.scm:60: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[512];
tp(4,av2);}}

/* chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_17673,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17677,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17766,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1739: chicken.platform#repository-path"));
t5=C_fast_retrieve(lf[520]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17677(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_17677,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17683,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17744,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:1740: scheme#open-output-string"));
t4=C_fast_retrieve(lf[318]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k17681 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17683,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17711,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1747: scheme#call-with-input-file"));
t3=*((C_word*)lf[515]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fast_retrieve(lf[77]);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k17693 in for-each-loop4402 in k17709 in k17681 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17695(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17695,c,av);}
C_trace(C_text("support.scm:1744: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[250]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[250]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[514];
av2[4]=t1;
tp(5,av2);}}

/* k17697 in for-each-loop4402 in k17709 in k17681 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17699,c,av);}
a=C_alloc(3);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=C_u_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_list1(&a,1,t3);
C_trace(C_text("support.scm:1746: scheme#append"));
t5=*((C_word*)lf[151]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k17709 in k17681 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17711,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[44]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17719,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_17719(t6,((C_word*)t0)[2],t1);}

/* for-each-loop4402 in k17709 in k17681 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_17719(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_17719,3,t0,t1,t2);}
a=C_alloc(13);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17729,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_car(t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17695,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17699,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1746: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word av2[4];
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t7;
av2[2]=t5;
av2[3]=lf[514];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k17727 in for-each-loop4402 in k17709 in k17681 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17729,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17719(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k17742 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17744,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[312]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17750,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1740: ##sys#print"));
t5=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[518];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k17748 in k17742 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_17750,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17753,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:1740: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k17751 in k17748 in k17742 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17753,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17756,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1740: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[517];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17754 in k17751 in k17748 in k17742 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17756,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17759,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1740: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k17757 in k17754 in k17751 in k17748 in k17742 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17759,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17762,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1740: scheme#get-output-string"));
t4=C_fast_retrieve(lf[315]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17760 in k17757 in k17754 in k17751 in k17748 in k17742 in k17675 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17762,c,av);}
C_trace(C_text("support.scm:1740: debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[22]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[516];
av2[3]=t1;
tp(4,av2);}}

/* k17764 in chicken.compiler.support#load-identifier-database in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17766,c,av);}
C_trace(C_text("support.scm:1739: chicken.load#find-file"));
t2=C_fast_retrieve(lf[519]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.support#print-version in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_17768,c,av);}
a=C_alloc(6);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17775,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
C_trace(C_text("support.scm:1753: chicken.base#print*"));
t5=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f19479,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1754: chicken.platform#chicken-version"));
t6=C_fast_retrieve(lf[236]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k17773 in chicken.compiler.support#print-version in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17775,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17782,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1754: chicken.platform#chicken-version"));
t3=C_fast_retrieve(lf[236]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17780 in k17773 in chicken.compiler.support#print-version in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17782,c,av);}
C_trace(C_text("support.scm:1754: chicken.base#print"));
t2=*((C_word*)lf[225]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.support#print-usage in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17793,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17797,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1759: print-version"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[521]);
C_word *av2=av;
av2[0]=*((C_word*)lf[521]+1);
av2[1]=t2;
tp(2,av2);}}

/* k17795 in chicken.compiler.support#print-usage in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17797,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17800,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:1760: scheme#newline"));
t3=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k17798 in k17795 in chicken.compiler.support#print-usage in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17800,c,av);}
C_trace(C_text("support.scm:1761: scheme#display"));
t2=*((C_word*)lf[29]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[525];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.support#print-debug-options in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17805,c,av);}
C_trace(C_text("support.scm:1892: scheme#display"));
t2=*((C_word*)lf[29]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[527];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_17811,c,av);}
a=C_alloc(5);
t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[32]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17818,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:442: ##sys#print"));
t6=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[528];
av2[3]=C_SCHEME_FALSE;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k17816 in a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_17818,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17821,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17838,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:442: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k17819 in k17816 in a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17821,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17824,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:442: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t3;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k17822 in k17819 in k17816 in a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_17824,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17827,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17834,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:442: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k17825 in k17822 in k17819 in k17816 in a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17827,c,av);}
C_trace(C_text("support.scm:442: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(62);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k17832 in k17822 in k17819 in k17816 in a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17834(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17834,c,av);}
C_trace(C_text("support.scm:442: ##sys#print"));
t2=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k17836 in k17816 in a17810 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_17838(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17838,c,av);}
C_trace(C_text("support.scm:442: ##sys#print"));
t2=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k5184 */
static void C_ccall f_5186(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5186,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_eval_toplevel(2,av2);}}

/* k5187 in k5184 */
static void C_ccall f_5189(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5189,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5192,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_data_2dstructures_toplevel(2,av2);}}

/* k5190 in k5187 in k5184 */
static void C_ccall f_5192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5192,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5195,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_extras_toplevel(2,av2);}}

/* k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5195,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5198,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_file_toplevel(2,av2);}}

/* k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5198,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5201,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_internal_toplevel(2,av2);}}

/* k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5201,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5204,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_pathname_toplevel(2,av2);}}

/* k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5204,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_port_toplevel(2,av2);}}

/* k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_5207,c,av);}
a=C_alloc(19);
t2=C_a_i_provide(&a,1,lf[0]);
t3=C_a_i_provide(&a,1,lf[1]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5210,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t4;
C_expand_toplevel(2,av2);}}

/* k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5210(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_5210,c,av);}
a=C_alloc(19);
t2=C_mutate(&lf[2] /* (set! chicken.compiler.support#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5320,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[3] /* (set! chicken.compiler.support#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5581,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate(&lf[4] /* (set! chicken.compiler.support#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5615,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[5] /* (set! chicken.compiler.support#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5645,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[6] /* (set! chicken.compiler.support#last ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5981,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[7] /* (set! chicken.compiler.support#lset-adjoin/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6040,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[8]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[9]);
t9=C_set_block_item(lf[10] /* chicken.compiler.support#unsafe */,0,C_SCHEME_FALSE);
t10=C_mutate((C_word*)lf[11]+1 /* (set! chicken.compiler.support#compiler-cleanup-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6493,tmp=(C_word)a,a+=2,tmp));
t11=C_set_block_item(lf[12] /* chicken.compiler.support#debugging-chicken */,0,C_SCHEME_END_OF_LIST);
t12=C_mutate((C_word*)lf[13]+1 /* (set! chicken.compiler.support#bomb ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6497,tmp=(C_word)a,a+=2,tmp));
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6522,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:120: scheme#open-output-string"));
t14=C_fast_retrieve(lf[318]);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}

/* chicken.compiler.support#take in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5320(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_5320,3,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5338,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:56: take"));
t7=t5;
t8=C_u_i_cdr(t2);
t9=C_fixnum_difference(t3,C_fix(1));
t1=t7;
t2=t8;
t3=t9;
goto loop;}}

/* k5336 in chicken.compiler.support#take in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5338(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_5338,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in a10290 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5378(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_5378,5,t0,t1,t2,t3,t4);}
a=C_alloc(4);
if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5392,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:67: scheme#reverse"));
t6=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_fixnum_difference(t2,C_fix(1));
t6=C_i_car(t4);
t7=C_a_i_cons(&a,2,t6,t3);
C_trace(C_text("mini-srfi-1.scm:68: loop"));
t9=t1;
t10=t5;
t11=t7;
t12=C_u_i_cdr(t4);
t1=t9;
t2=t10;
t3=t11;
t4=t12;
goto loop;}}

/* k5390 in loop in a10290 in a10284 in chicken.compiler.support#inline-lambda-bindings in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5392(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5392,c,av);}
C_trace(C_text("mini-srfi-1.scm:67: scheme#values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
C_values(4,av2);}}

/* chicken.compiler.support#every in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5581(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_5581,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5587,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_5587(t7,t1,t3);}

/* loop in chicken.compiler.support#every in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5587(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_5587,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_nullp(t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5609,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:82: pred"));
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k5607 in loop in chicken.compiler.support#every in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5609(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5609,c,av);}
if(C_truep(C_i_not(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:83: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_5587(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.support#any in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5615(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_5615,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5621,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_5621(t7,t1,t3);}

/* loop in chicken.compiler.support#any in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5621(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_5621,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5631,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:88: pred"));
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}

/* k5629 in loop in chicken.compiler.support#any in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5631(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5631,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:89: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_5621(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.support#cons* in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5645(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_5645,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5651,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_5651(t7,t1,t2,t3);}

/* loop in chicken.compiler.support#cons* in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5651(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_5651,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5665,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:95: loop"));
t6=t4;
t7=C_i_car(t3);
t8=C_u_i_cdr(t3);
t1=t6;
t2=t7;
t3=t8;
goto loop;}}

/* k5663 in loop in chicken.compiler.support#cons* in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_5665(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_5665,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* foldr412 in k7947 in chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5874(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_5874,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5882,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5908,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g417 in foldr412 in k7947 in chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5882(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_5882,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(
C_trace("mini-srfi-1.scm:135: pred"),
  f_7957(((C_word*)t0)[2],t2)
);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5890,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:135: g427"));
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(
C_trace("mini-srfi-1.scm:135: g427"),
  f_5890(C_a_i(&a,3),t5,t4)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* g427 in g417 in foldr412 in k7947 in chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_5890(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));}

/* k5906 in foldr412 in k7947 in chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
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;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5908,c,av);}
C_trace(C_text("mini-srfi-1.scm:134: g417"));
t2=((C_word*)t0)[2];
f_5882(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* map-loop440 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5947(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_5947,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.support#last in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_5981(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,0,2)))){
C_save_and_reclaim_args((void *)trf_5981,2,t1,t2);}
a=C_alloc(2);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5987,tmp=(C_word)a,a+=2,tmp);
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=(
  f_5987(t2)
);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* loop in chicken.compiler.support#last in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_5987(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
t2=C_i_cdr(t1);
if(C_truep(C_i_nullp(t2))){
return(C_u_i_car(t1));}
else{
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}}

/* chicken.compiler.support#lset-adjoin/eq? in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6040(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_6040,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6046,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_6046(t7,t1,t3,t2);}

/* loop in chicken.compiler.support#lset-adjoin/eq? in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6046(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_6046,4,t0,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
if(C_truep(C_i_memq(t4,t3))){
C_trace(C_text("mini-srfi-1.scm:160: loop"));
t9=t1;
t10=C_u_i_cdr(t2);
t11=t3;
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
t5=C_u_i_cdr(t2);
t6=C_u_i_car(t2);
t7=C_a_i_cons(&a,2,t6,t3);
C_trace(C_text("mini-srfi-1.scm:161: loop"));
t9=t1;
t10=t5;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* loop in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6229(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_6229,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(
C_trace("mini-srfi-1.scm:190: proc"),
  f_17237(((C_word*)t0)[3],t2)
);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6247,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:190: loop"));
t6=t4;
t7=C_fixnum_plus(t2,C_fix(1));
t1=t6;
t2=t7;
goto loop;}}

/* k6245 in loop in k17103 in chicken.compiler.support#encodeable-literal? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6247,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in k12315 in k12289 in k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6342(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_6342,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6355,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:216: pred"));
t4=((C_word*)t0)[3];
f_12305(t4,t3,C_i_car(t2));}}

/* k6353 in loop in k12315 in k12289 in k12280 in k12277 in walk in chicken.compiler.support#expression-has-side-effects? in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6355,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:217: loop"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_6342(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]));}}

/* chicken.compiler.support#compiler-cleanup-hook in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6493,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#bomb in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_6497,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6511,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:116: scheme#string-append"));
t4=*((C_word*)lf[15]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[16];
av2[3]=C_u_i_car(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
C_trace(C_text("support.scm:117: chicken.base#error"));
t3=*((C_word*)lf[14]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=lf[17];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k6509 in chicken.compiler.support#bomb in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6511,c,av);}{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[14]+1);
av2[3]=t1;
av2[4]=C_u_i_cdr(((C_word*)t0)[3]);
C_apply(5,av2);}}

/* k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(48,c,5)))){
C_save_and_reclaim((void *)f_6522,c,av);}
a=C_alloc(48);
t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.support#collected-debugging-output ...) */,t1);
t3=C_mutate(&lf[19] /* (set! chicken.compiler.support#+logged-debugging-modes+ ...) */,lf[20]);
t4=C_mutate(&lf[21] /* (set! chicken.compiler.support#test-debugging-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6525,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate((C_word*)lf[22]+1 /* (set! chicken.compiler.support#debugging ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6546,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate((C_word*)lf[34]+1 /* (set! chicken.compiler.support#with-debugging-output ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6666,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate((C_word*)lf[37]+1 /* (set! chicken.compiler.support#quit-compiling ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6763,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[42]+1 /* (set! ##sys#syntax-error-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6779,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[51]+1 /* (set! chicken.compiler.support#emit-syntax-trace-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6875,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate((C_word*)lf[52]+1 /* (set! chicken.compiler.support#check-signature ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6929,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[53]+1 /* (set! chicken.compiler.support#build-lambda-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6970,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[54]+1 /* (set! chicken.compiler.support#valid-c-identifier? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7007,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[57] /* (set! chicken.compiler.support#struct/union-wrapper-type-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7057,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate((C_word*)lf[62]+1 /* (set! chicken.compiler.support#bytes->words ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7102,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[63]+1 /* (set! chicken.compiler.support#words->bytes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7109,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate((C_word*)lf[64]+1 /* (set! chicken.compiler.support#check-and-open-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7116,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate((C_word*)lf[71]+1 /* (set! chicken.compiler.support#close-checked-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7159,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate((C_word*)lf[74]+1 /* (set! chicken.compiler.support#fold-inner ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7170,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate(&lf[76] /* (set! chicken.compiler.support#follow-without-loop ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7226,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate((C_word*)lf[77]+1 /* (set! chicken.compiler.support#read-expressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7277,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate((C_word*)lf[79]+1 /* (set! chicken.compiler.support#constant? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7321,tmp=(C_word)a,a+=2,tmp));
t22=C_mutate((C_word*)lf[83]+1 /* (set! chicken.compiler.support#collapsable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7389,tmp=(C_word)a,a+=2,tmp));
t23=C_mutate((C_word*)lf[84]+1 /* (set! chicken.compiler.support#immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7425,tmp=(C_word)a,a+=2,tmp));
t24=C_mutate((C_word*)lf[86]+1 /* (set! chicken.compiler.support#basic-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7477,tmp=(C_word)a,a+=2,tmp));
t25=C_mutate((C_word*)lf[88]+1 /* (set! chicken.compiler.support#canonicalize-begin-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7533,tmp=(C_word)a,a+=2,tmp));
t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7608,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:330: chicken.condition#condition-predicate"));
t27=C_fast_retrieve(lf[533]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t27;
av2[1]=t26;
av2[2]=lf[531];
((C_proc)(void*)(*((C_word*)t27+1)))(3,av2);}}

/* chicken.compiler.support#test-debugging-mode in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6525(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_6525,3,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_i_symbolp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_i_memq(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6540,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:127: any"));
f_5615(t1,t4,t2);}}

/* a6539 in chicken.compiler.support#test-debugging-mode in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6540(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6540,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_memq(t2,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +17,c,3)))){
C_save_and_reclaim((void*)f_6546,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+17);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6549,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6614,a[2]=t2,tmp=(C_word)a,a+=3,tmp));
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6633,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:142: test-debugging-mode"));
f_6525(t11,t2,*((C_word*)lf[12]+1));}

/* text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6549(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_6549,2,t0,t1);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6555,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:131: chicken.port#with-output-to-string"));
t3=C_fast_retrieve(lf[31]);{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6555,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6559,a[2]=t1,a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:133: scheme#display"));
t4=*((C_word*)lf[29]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_6559,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6562,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6571,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:135: scheme#display"));
t4=*((C_word*)lf[29]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[30];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
C_trace(C_text("support.scm:139: scheme#newline"));
t3=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k6560 in k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6562(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6562,c,av);}
C_trace(C_text("support.scm:139: scheme#newline"));
t2=*((C_word*)lf[23]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k6569 in k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_6571,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6591,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_6591(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* k6577 in for-each-loop708 in k6569 in k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6579,c,av);}
C_trace(C_text("support.scm:137: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(32);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k6584 in for-each-loop708 in k6569 in k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6586(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6586,c,av);}
C_trace(C_text("support.scm:137: ##sys#print"));
t2=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* for-each-loop708 in k6569 in k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6591(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_6591,3,t0,t1,t2);}
a=C_alloc(13);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6601,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=*((C_word*)lf[24]+1);
t6=*((C_word*)lf[24]+1);
t7=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6579,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6586,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:137: scheme#force"));
t10=C_fast_retrieve(lf[28]);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k6599 in for-each-loop708 in k6569 in k6557 in a6554 in text in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6601(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6601,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6591(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* dump in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6614(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_6614,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_fast_retrieve(lf[18]);
t4=C_fast_retrieve(lf[18]);
t5=C_i_check_port_2(C_fast_retrieve(lf[18]),C_fix(2),C_SCHEME_TRUE,lf[32]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6621,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:141: ##sys#print"));
t7=*((C_word*)lf[27]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_fast_retrieve(lf[18]);
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k6619 in dump in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6621,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6624,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:141: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(124);
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k6622 in k6619 in dump in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6624,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("support.scm:141: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_6633,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:143: text"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_6549(t3,t2);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6654,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6657,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:150: test-debugging-mode"));
f_6525(t3,((C_word*)t0)[4],C_retrieve2(lf[19],C_text("chicken.compiler.support#+logged-debugging-modes+")));}}

/* k6634 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6636,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6639,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:144: scheme#display"));
t4=*((C_word*)lf[29]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k6637 in k6634 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6639,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6642,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:145: chicken.base#flush-output"));
t4=*((C_word*)lf[33]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k6640 in k6637 in k6634 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6642(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_6642,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6645,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6648,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:146: test-debugging-mode"));
f_6525(t4,((C_word*)t2)[5],C_retrieve2(lf[19],C_text("chicken.compiler.support#+logged-debugging-modes+")));}

/* k6643 in k6640 in k6637 in k6634 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6645,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k6646 in k6640 in k6637 in k6634 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6648(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6648,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:147: dump"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_6614(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k6652 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6654(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6654,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k6655 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6657,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:151: text"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_6549(t3,t2);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k6662 in k6655 in k6631 in chicken.compiler.support#debugging in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6664(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6664,c,av);}
C_trace(C_text("support.scm:151: dump"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_6614(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_6666,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6669,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6730,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:162: test-debugging-mode"));
f_6525(t5,t2,*((C_word*)lf[12]+1));}

/* collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6669(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_6669,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6671,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6698,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:161: chicken.string#string-split"));
t5=C_fast_retrieve(lf[35]);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
av2[3]=lf[36];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* g760 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6671(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_6671,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_fast_retrieve(lf[18]);
t4=C_fast_retrieve(lf[18]);
t5=C_i_check_port_2(C_fast_retrieve(lf[18]),C_fix(2),C_SCHEME_TRUE,lf[32]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6678,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
C_trace(C_text("support.scm:158: ##sys#print"));
t7=*((C_word*)lf[27]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_u_i_car(((C_word*)t0)[2]);
av2[3]=C_SCHEME_FALSE;
av2[4]=C_fast_retrieve(lf[18]);
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
C_trace(C_text("support.scm:158: ##sys#print"));
t7=*((C_word*)lf[27]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}

/* k6676 in g760 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6678,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6681,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:158: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(124);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k6679 in k6676 in g760 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_6681,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6684,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:158: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k6682 in k6679 in k6676 in g760 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6684,c,av);}
C_trace(C_text("support.scm:158: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k6696 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6698,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6703,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_6703(t5,((C_word*)t0)[3],t1);}

/* for-each-loop759 in k6696 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6703(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_6703,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6713,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:156: g760"));
t4=((C_word*)t0)[3];
f_6671(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k6711 in for-each-loop759 in k6696 in collect in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6713,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6703(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6730(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6730,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:163: chicken.port#with-output-to-string"));
t3=C_fast_retrieve(lf[31]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6754,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:168: test-debugging-mode"));
f_6525(t2,((C_word*)t0)[4],C_retrieve2(lf[19],C_text("chicken.compiler.support#+logged-debugging-modes+")));}}

/* k6731 in k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6733,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6736,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:164: scheme#display"));
t4=*((C_word*)lf[29]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k6734 in k6731 in k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6736,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6739,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:165: chicken.base#flush-output"));
t4=*((C_word*)lf[33]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k6737 in k6734 in k6731 in k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_6739,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6745,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:166: test-debugging-mode"));
f_6525(t3,((C_word*)t2)[5],C_retrieve2(lf[19],C_text("chicken.compiler.support#+logged-debugging-modes+")));}

/* k6743 in k6737 in k6734 in k6731 in k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6745,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:167: collect"));
t2=((C_word*)t0)[2];
f_6669(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k6752 in k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6754,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:169: chicken.port#with-output-to-string"));
t3=C_fast_retrieve(lf[31]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k6759 in k6752 in k6728 in chicken.compiler.support#with-debugging-output in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6761,c,av);}
C_trace(C_text("support.scm:169: collect"));
t2=((C_word*)t0)[2];
f_6669(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.support#quit-compiling in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6763(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,3)))){
C_save_and_reclaim((void*)f_6763,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+9);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
t4=*((C_word*)lf[38]+1);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6767,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6777,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:173: scheme#string-append"));
t7=*((C_word*)lf[15]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[41];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k6765 in chicken.compiler.support#quit-compiling in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6767(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6767,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6770,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:174: scheme#newline"));
t3=*((C_word*)lf[23]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k6768 in k6765 in chicken.compiler.support#quit-compiling in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6770,c,av);}
C_trace(C_text("support.scm:175: chicken.base#exit"));
t2=C_fast_retrieve(lf[39]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k6775 in chicken.compiler.support#quit-compiling in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6777,c,av);}{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[40]+1);
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
av2[5]=((C_word*)t0)[4];
C_apply(6,av2);}}

/* ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,2)))){
C_save_and_reclaim((void*)f_6779,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+10);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t6=*((C_word*)lf[38]+1);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6783,a[2]=t6,a[3]=t5,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){
t8=((C_word*)t4)[1];
t9=C_i_car(((C_word*)t5)[1]);
t10=C_set_block_item(t4,0,t9);
t11=C_i_cdr(((C_word*)t5)[1]);
t12=C_set_block_item(t5,0,t11);
t13=t7;
f_6783(t13,t8);}
else{
t8=t7;
f_6783(t8,C_SCHEME_FALSE);}}

/* k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6783(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_6783,2,t0,t1);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[32]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6832,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:186: ##sys#print"));
t5=*((C_word*)lf[27]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[49];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[32]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6853,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:187: ##sys#print"));
t5=*((C_word*)lf[27]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[50];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k6784 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_6786,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6787,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=((C_word*)((C_word*)t0)[3])[1];
t4=C_i_check_list_2(t3,lf[44]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6797,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6805,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_6805(t9,t5,t3);}

/* g804 in k6784 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6787(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_6787,3,t0,t1,t2);}
C_trace(C_text("support.scm:188: g837"));
t3=*((C_word*)lf[40]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[43];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6795 in k6784 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_6797,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6800,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:189: chicken.base#print-call-chain"));
t3=C_fast_retrieve(lf[45]);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(0);
av2[4]=C_fast_retrieve(lf[46]);
av2[5]=lf[47];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k6798 in k6795 in k6784 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6800(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6800,c,av);}
C_trace(C_text("support.scm:190: chicken.base#exit"));
t2=C_fast_retrieve(lf[39]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(70);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* for-each-loop803 in k6784 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6805(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_6805,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6815,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:188: g804"));
t4=((C_word*)t0)[3];
f_6787(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k6813 in for-each-loop803 in k6784 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6815,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6805(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k6830 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_6832,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:186: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6833 in k6830 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6835(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_6835,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6838,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:186: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[48];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6836 in k6833 in k6830 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6838(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_6838,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6841,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:186: ##sys#print"));
t4=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k6839 in k6836 in k6833 in k6830 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6841(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6841,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6844,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:186: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k6842 in k6839 in k6836 in k6833 in k6830 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6844(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6844,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("support.scm:186: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k6851 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_6853,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:187: ##sys#print"));
t3=*((C_word*)lf[27]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k6854 in k6851 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6856(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6856,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6859,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:187: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=t2;
av2[2]=C_make_character(10);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k6857 in k6854 in k6851 in k6781 in ##sys#syntax-error-hook in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6859(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6859,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("support.scm:187: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[26]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[26]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=C_make_character(10);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* chicken.compiler.support#emit-syntax-trace-info in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
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 *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6875,c,av);}
t4=C_fast_retrieve(lf[46]);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_emit_syntax_trace_info(t2,t3,C_slot(C_fast_retrieve(lf[46]),C_fix(14)));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.compiler.support#check-signature in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6929(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
C_save_and_reclaim((void *)f_6929,c,av);}
a=C_alloc(2);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6935,tmp=(C_word)a,a+=2,tmp);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
  f_6935(t3,t4)
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* loop in chicken.compiler.support#check-signature in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_6935(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(C_i_nullp(t1));}
else{
t3=C_i_symbolp(t2);
if(C_truep(t3)){
return(t3);}
else{
if(C_truep(C_i_nullp(t1))){
return(C_SCHEME_FALSE);}
else{
t5=C_i_cdr(t1);
t6=C_i_cdr(t2);
t1=t5;
t2=t6;
goto loop;}}}}

/* chicken.compiler.support#build-lambda-list in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6970(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_6970,c,av);}
a=C_alloc(6);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6976,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6976(t8,t1,t2,t3);}

/* loop in chicken.compiler.support#build-lambda-list in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_6976(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,3)))){
C_save_and_reclaim_args((void *)trf_6976,4,t0,t1,t2,t3);}
a=C_alloc(33);
t4=C_i_zerop(t3);
t5=(C_truep(t4)?t4:C_i_nullp(t2));
if(C_truep(t5)){
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_i_car(t2);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6998,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
t8=C_u_i_cdr(t2);
t9=C_s_a_i_minus(&a,2,t3,C_fix(1));
C_trace(C_text("support.scm:216: loop"));
t11=t7;
t12=t8;
t13=t9;
t1=t11;
t2=t12;
t3=t13;
goto loop;}}

/* k6996 in loop in chicken.compiler.support#build-lambda-list in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_6998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6998,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#valid-c-identifier? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7007(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7007,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7011,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7055,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:220: chicken.string#->string"));
t5=C_fast_retrieve(lf[56]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7009 in chicken.compiler.support#valid-c-identifier? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7011(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
C_save_and_reclaim((void *)f_7011,c,av);}
a=C_alloc(2);
if(C_truep(C_i_pairp(t1))){
t2=C_u_i_car(t1);
t3=C_u_i_char_alphabeticp(t2);
t4=(C_truep(t3)?t3:C_u_i_char_equalp(C_make_character(95),t2));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7032,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:224: every"));
f_5581(((C_word*)t0)[2],t5,C_u_i_cdr(t1));}
else{
t5=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a7031 in k7009 in chicken.compiler.support#valid-c-identifier? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7032(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7032,c,av);}
t3=C_u_i_char_alphabeticp(t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_u_i_char_numericp(t2);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?t4:C_u_i_char_equalp(C_make_character(95),t2));
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k7053 in chicken.compiler.support#valid-c-identifier? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7055,c,av);}
C_trace(C_text("##sys#string->list"));
t2=C_fast_retrieve(lf[55]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.support#struct/union-wrapper-type-name in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7057(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_7057,2,t1,t2);}
a=C_alloc(7);
t3=C_i_cadr(t2);
if(C_truep(C_i_listp(t3))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7071,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7075,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:228: scheme#caadr"));
t6=*((C_word*)lf[59]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7082,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7086,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:229: scheme#symbol->string"));
t6=*((C_word*)lf[61]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_car(t2);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k7069 in chicken.compiler.support#struct/union-wrapper-type-name in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7071(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7071,c,av);}
C_trace(C_text("support.scm:228: scheme#string->symbol"));
t2=*((C_word*)lf[58]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k7073 in chicken.compiler.support#struct/union-wrapper-type-name in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7075,c,av);}
C_trace(C_text("support.scm:228: chicken.string#->string"));
t2=C_fast_retrieve(lf[56]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k7080 in chicken.compiler.support#struct/union-wrapper-type-name in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7082(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7082,c,av);}
C_trace(C_text("support.scm:229: scheme#string->symbol"));
t2=*((C_word*)lf[58]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k7084 in chicken.compiler.support#struct/union-wrapper-type-name in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7086(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7086,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7090,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:230: chicken.string#->string"));
t3=C_fast_retrieve(lf[56]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k7088 in k7084 in chicken.compiler.support#struct/union-wrapper-type-name in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7090,c,av);}
C_trace(C_text("support.scm:229: scheme#string-append"));
t2=*((C_word*)lf[15]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[60];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.support#bytes->words in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7102(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7102,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=stub920(C_SCHEME_UNDEFINED,C_i_foreign_fixnum_argumentp(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#words->bytes in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7109,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=stub925(C_SCHEME_UNDEFINED,C_i_foreign_fixnum_argumentp(t2));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#check-and-open-input-file in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
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=av[2];
C_word t3;
C_word *a;
if(c<3) C_bad_min_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
C_save_and_reclaim((void*)f_7116,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
if(C_truep(C_i_string_equal_p(t2,lf[65]))){
t4=*((C_word*)lf[66]+1);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=*((C_word*)lf[66]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7128,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:239: chicken.file#file-exists?"));
t5=C_fast_retrieve(lf[70]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k7126 in chicken.compiler.support#check-and-open-input-file in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7128,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:239: scheme#open-input-file"));
t2=*((C_word*)lf[67]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
t2=C_i_nullp(((C_word*)t0)[4]);
t3=(C_truep(t2)?t2:C_i_not(C_i_car(((C_word*)t0)[4])));
if(C_truep(t3)){
C_trace(C_text("support.scm:241: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[68];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
C_trace(C_text("support.scm:242: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[69];
av2[3]=C_i_car(((C_word*)t0)[4]);
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}}}

/* chicken.compiler.support#close-checked-input-file in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7159,c,av);}
if(C_truep(C_i_string_equal_p(t3,lf[72]))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
C_trace(C_text("support.scm:245: scheme#close-input-port"));
t4=*((C_word*)lf[73]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* chicken.compiler.support#fold-inner in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7170,c,av);}
a=C_alloc(4);
t4=C_i_cdr(t3);
if(C_truep(C_i_nullp(t4))){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7184,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:250: scheme#reverse"));
t6=*((C_word*)lf[75]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k7182 in chicken.compiler.support#fold-inner in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7184,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7186,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_7186(t5,((C_word*)t0)[3],t1);}

/* fold in k7182 in chicken.compiler.support#fold-inner in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7186(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7186,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_cddr(t2);
if(C_truep(C_i_nullp(t3))){
t4=C_u_i_cdr(t2);
t5=C_u_i_car(t4);
t6=C_u_i_car(t2);
t7=C_a_i_list2(&a,2,t5,t6);{
C_word av2[4];
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t7;
C_apply(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7212,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:255: fold"));
t9=t4;
t10=C_u_i_cdr(t2);
t1=t9;
t2=t10;
goto loop;}}

/* k7210 in fold in k7182 in chicken.compiler.support#fold-inner in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7212,c,av);}
a=C_alloc(6);
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_list2(&a,2,t1,t2);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t3;
C_apply(4,av2);}}

/* chicken.compiler.support#follow-without-loop in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7226(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_7226,4,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7232,a[2]=t4,a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_7232(t8,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in chicken.compiler.support#follow-without-loop in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7232(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7232,4,t0,t1,t2,t3);}
a=C_alloc(5);
if(C_truep(C_i_member(t2,t3))){
C_trace(C_text("support.scm:260: abort"));
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=t1;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7247,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:261: proc"));
t5=((C_word*)t0)[4];{
C_word av2[4];
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=t4;
((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}}

/* a7246 in loop in chicken.compiler.support#follow-without-loop in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7247,c,av);}
a=C_alloc(3);
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
C_trace(C_text("support.scm:261: loop"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_7232(t4,t1,t2,t3);}

/* a7262 in k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7263,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7271,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:264: scheme#symbol->string"));
t5=*((C_word*)lf[61]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7269 in a7262 in k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7271,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7275,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:264: scheme#symbol->string"));
t3=*((C_word*)lf[61]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k7273 in k7269 in a7262 in k11756 in k11750 in k11747 in chicken.compiler.support#emit-global-inline-file in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7275,c,av);}
C_trace(C_text("support.scm:264: scheme#string<?"));
t2=*((C_word*)lf[227]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.support#read-expressions in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
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 t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7277,c,av);}
a=C_alloc(4);
t2=C_rest_nullp(c,2);
t3=(C_truep(t2)?*((C_word*)lf[66]+1):C_get_rest_arg(c,2,av,2,t0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7288,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:267: scheme#read"));
t5=*((C_word*)lf[78]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7286 in chicken.compiler.support#read-expressions in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_7288,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7290,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_7290(t5,((C_word*)t0)[3],t1,C_fix(0),C_SCHEME_END_OF_LIST);}

/* doloop971 in k7286 in chicken.compiler.support#read-expressions in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7290(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_7290,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
if(C_truep(C_eofp(t2))){
C_trace(C_text("support.scm:270: scheme#reverse"));
t5=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t1;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7307,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:267: scheme#read"));
t6=*((C_word*)lf[78]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k7305 in doloop971 in k7286 in chicken.compiler.support#read-expressions in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_7307,c,av);}
a=C_alloc(32);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=((C_word*)((C_word*)t0)[5])[1];
f_7290(t4,((C_word*)t0)[6],t1,t2,t3);}

/* chicken.compiler.support#constant? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7321,c,av);}
a=C_alloc(4);
t3=C_i_numberp(t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_charp(t2);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_stringp(t2);
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_booleanp(t2);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eofp(t2);
if(C_truep(t7)){
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7355,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:281: chicken.bytevector#bytevector?"));
t9=C_fast_retrieve(lf[82]);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}

/* k7353 in chicken.compiler.support#constant? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7355,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_bwpp(((C_word*)t0)[3]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_vectorp(((C_word*)t0)[3]);
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7373,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:284: ##sys#srfi-4-vector?"));
t5=C_fast_retrieve(lf[81]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}

/* k7371 in k7353 in chicken.compiler.support#constant? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7373(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7373,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_pairp(((C_word*)t2)[3]);
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_eqp(lf[80],C_u_i_car(((C_word*)t2)[3])):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* chicken.compiler.support#collapsable-literal? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7389,c,av);}
t3=C_booleanp(t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_charp(t2);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eofp(t2);
if(C_truep(t5)){
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_bwpp(t2);
if(C_truep(t6)){
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_i_numberp(t2);
t8=t1;{
C_word *av2=av;
av2[0]=t8;
av2[1]=(C_truep(t7)?t7:C_i_symbolp(t2));
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}}

/* chicken.compiler.support#immediate? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7425,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7429,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_fixnump(t2))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7475,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:296: big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[85]);
C_word *av2=av;
av2[0]=*((C_word*)lf[85]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}
else{
t4=t3;
f_7429(t4,C_SCHEME_FALSE);}}

/* k7427 in chicken.compiler.support#immediate? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7429(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){
C_save_and_reclaim_args((void *)trf_7429,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_nullp(((C_word*)t0)[3]);
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eofp(((C_word*)t0)[3]);
if(C_truep(t4)){
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_bwpp(((C_word*)t0)[3]);
if(C_truep(t5)){
t6=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_charp(((C_word*)t0)[3]);
t7=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=(C_truep(t6)?t6:C_booleanp(((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}}}

/* k7473 in chicken.compiler.support#immediate? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7475,c,av);}
t2=((C_word*)t0)[2];
f_7429(t2,C_i_not(t1));}

/* chicken.compiler.support#basic-literal? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7477(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7477,c,av);}
a=C_alloc(4);
t3=C_i_nullp(t2);
if(C_truep(t3)){
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_symbolp(t2);
if(C_truep(t4)){
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7493,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:307: constant?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[79]);
C_word *av2=av;
av2[0]=*((C_word*)lf[79]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}}}

/* k7491 in chicken.compiler.support#basic-literal? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7493,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7499,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7531,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:308: scheme#vector->list"));
t4=*((C_word*)lf[87]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_7499(2,av2);}}}}

/* k7497 in k7491 in chicken.compiler.support#basic-literal? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7499(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7499,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7514,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:310: basic-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[86]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[86]+1);
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t2)[3]);
tp(3,av2);}}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k7512 in k7497 in k7491 in chicken.compiler.support#basic-literal? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7514,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("support.scm:311: basic-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[86]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[86]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=C_u_i_cdr(((C_word*)t2)[3]);
tp(3,av2);}}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k7529 in k7491 in chicken.compiler.support#basic-literal? in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7531,c,av);}
C_trace(C_text("support.scm:308: every"));
f_5581(((C_word*)t0)[2],C_fast_retrieve(lf[86]),t1);}

/* chicken.compiler.support#canonicalize-begin-body in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7533(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_7533,c,av);}
a=C_alloc(5);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7539,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7539(t6,t1,t2);}

/* loop in chicken.compiler.support#canonicalize-begin-body in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7539(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_7539,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[89];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_cdr(t2);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_u_i_car(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_u_i_car(t2);
t5=C_i_equalp(t4,lf[90]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7563,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t5)){
t7=t6;
f_7563(t7,t5);}
else{
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7594,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:322: constant?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[79]);
C_word av2[3];
av2[0]=*((C_word*)lf[79]+1);
av2[1]=t7;
av2[2]=t4;
tp(3,av2);}}}}}

/* k7561 in loop in chicken.compiler.support#canonicalize-begin-body in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7563(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7563,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
C_trace(C_text("support.scm:324: loop"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_7539(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[2]));}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7589,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:325: chicken.base#gensym"));
t3=*((C_word*)lf[92]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[93];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k7577 in k7587 in k7561 in loop in chicken.compiler.support#canonicalize-begin-body in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_7579,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[91],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k7587 in k7561 in loop in chicken.compiler.support#canonicalize-begin-body in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_7589,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=C_u_i_car(((C_word*)t2)[2]);
t4=C_a_i_list(&a,2,t1,t3);
t5=C_a_i_list(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7579,a[2]=((C_word*)t2)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:326: loop"));
t7=((C_word*)((C_word*)t2)[4])[1];
f_7539(t7,t6,C_u_i_cdr(((C_word*)t2)[2]));}

/* k7592 in loop in chicken.compiler.support#canonicalize-begin-body in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7594(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7594,c,av);}
t2=((C_word*)t0)[2];
f_7563(t2,(C_truep(t1)?t1:C_i_equalp(((C_word*)t0)[3],lf[94])));}

/* k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7608,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7611,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:331: chicken.condition#condition-property-accessor"));
t4=C_fast_retrieve(lf[530]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[531];
av2[3]=lf[532];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7611(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(45,c,6)))){
C_save_and_reclaim((void *)f_7611,c,av);}
a=C_alloc(45);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[95]+1 /* (set! chicken.compiler.support#string->expr ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7612,a[2]=t1,a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp));
t4=C_mutate((C_word*)lf[102]+1 /* (set! chicken.compiler.support#llist-length ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7726,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate((C_word*)lf[103]+1 /* (set! chicken.compiler.support#llist-match? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7729,tmp=(C_word)a,a+=2,tmp));
t6=lf[104] /* chicken.compiler.support#profile-info-vector-name */ =C_SCHEME_FALSE;;
t7=C_mutate((C_word*)lf[105]+1 /* (set! chicken.compiler.support#reset-profile-info-vector-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7774,tmp=(C_word)a,a+=2,tmp));
t8=lf[108] /* chicken.compiler.support#profile-lambda-list */ =C_SCHEME_END_OF_LIST;;
t9=lf[109] /* chicken.compiler.support#profile-lambda-index */ =C_fix(0);;
t10=C_mutate((C_word*)lf[110]+1 /* (set! chicken.compiler.support#expand-profile-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7783,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[116]+1 /* (set! chicken.compiler.support#profiling-prelude-exps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7838,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[121]+1 /* (set! chicken.compiler.support#db-get ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7927,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate((C_word*)lf[123]+1 /* (set! chicken.compiler.support#db-get-all ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7945,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate((C_word*)lf[125]+1 /* (set! chicken.compiler.support#db-put! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7963,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[127]+1 /* (set! chicken.compiler.support#collect! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8009,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate((C_word*)lf[128]+1 /* (set! chicken.compiler.support#db-get-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8061,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate((C_word*)lf[129]+1 /* (set! chicken.compiler.support#make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8071,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate((C_word*)lf[131]+1 /* (set! chicken.compiler.support#node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8077,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate((C_word*)lf[132]+1 /* (set! chicken.compiler.support#node-class-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8083,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate((C_word*)lf[134]+1 /* (set! chicken.compiler.support#node-class ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8092,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate((C_word*)lf[135]+1 /* (set! chicken.compiler.support#node-parameters-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8101,tmp=(C_word)a,a+=2,tmp));
t22=C_mutate((C_word*)lf[136]+1 /* (set! chicken.compiler.support#node-parameters ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8110,tmp=(C_word)a,a+=2,tmp));
t23=C_mutate((C_word*)lf[137]+1 /* (set! chicken.compiler.support#node-subexpressions-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8119,tmp=(C_word)a,a+=2,tmp));
t24=C_mutate((C_word*)lf[138]+1 /* (set! chicken.compiler.support#node-subexpressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8128,tmp=(C_word)a,a+=2,tmp));
t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8138,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
t26=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17811,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:440: chicken.base#set-record-printer!"));
t27=C_fast_retrieve(lf[529]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t27;
av2[1]=t25;
av2[2]=lf[130];
av2[3]=t26;
((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}}

/* chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_7612,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7616,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7621,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:333: scheme#call-with-current-continuation"));
t5=*((C_word*)lf[101]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k7614 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7616(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7616,c,av);}
C_trace(C_text("support.scm:332: g1088"));
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_7621,c,av);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7652,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:333: chicken.condition#with-exception-handler"));
t5=C_fast_retrieve(lf[100]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a7626 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7627,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7633,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:333: k1085"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a7632 in a7626 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_7633,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7641,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7644,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:336: exn?"));
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k7639 in a7632 in a7626 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7641,c,av);}
C_trace(C_text("support.scm:334: quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[37]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[37]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[96];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
tp(5,av2);}}

/* k7642 in a7632 in a7626 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7644,c,av);}
if(C_truep(t1)){
C_trace(C_text("support.scm:337: exn-msg"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
C_trace(C_text("support.scm:338: chicken.string#->string"));
t2=C_fast_retrieve(lf[56]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}

/* a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_7652,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7654,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7707,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7724,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("tmp14819"));
t5=t2;
f_7654(t5,t4);}

/* tmp14819 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7654(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7654,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7658,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7680,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("support.scm:339: chicken.port#with-input-from-string"));
t4=C_fast_retrieve(lf[99]);{
C_word av2[4];
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k7656 in tmp14819 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7658,c,av);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[97];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_i_cdr(t1);
t3=C_i_nullp(t2);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[98],t1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* a7679 in tmp14819 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7680(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_7680,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7686,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_7686(t5,t1,C_SCHEME_END_OF_LIST);}

/* loop in a7679 in tmp14819 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7686(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7686,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7690,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:343: scheme#read"));
t4=*((C_word*)lf[78]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k7688 in loop in a7679 in tmp14819 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7690,c,av);}
a=C_alloc(3);
if(C_truep(C_eofp(t1))){
C_trace(C_text("support.scm:345: scheme#reverse"));
t2=*((C_word*)lf[75]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
C_trace(C_text("support.scm:346: loop"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_7686(t3,((C_word*)t0)[2],t2);}}

/* tmp24820 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7707(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7707,3,t0,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7713,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:333: k1085"));
t4=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a7712 in tmp24820 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7713,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k7722 in a7651 in a7620 in chicken.compiler.support#string->expr in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7724,c,av);}
a=C_alloc(3);
C_trace(C_text("tmp24820"));
t2=((C_word*)t0)[2];
f_7707(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));}

/* chicken.compiler.support#llist-length in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7726,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_u_i_length(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#llist-match? in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
C_save_and_reclaim((void *)f_7729,c,av);}
a=C_alloc(2);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7735,tmp=(C_word)a,a+=2,tmp);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=(
  f_7735(t2,t3)
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* loop in chicken.compiler.support#llist-match? in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_7735(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(C_i_nullp(t2));}
else{
t3=C_i_symbolp(t1);
if(C_truep(t3)){
return(t3);}
else{
if(C_truep(C_i_nullp(t2))){
return(C_i_not_pair_p(t1));}
else{
t5=C_i_cdr(t1);
t6=C_i_cdr(t2);
t1=t5;
t2=t6;
goto loop;}}}}

/* chicken.compiler.support#reset-profile-info-vector-name! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7774,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7779,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:367: make-random-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[106]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[106]+1);
av2[1]=t2;
av2[2]=lf[107];
tp(3,av2);}}

/* k7777 in chicken.compiler.support#reset-profile-info-vector-name! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7779(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7779,c,av);}
t2=C_mutate(&lf[104] /* (set! chicken.compiler.support#profile-info-vector-name ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#expand-profile-lambda in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7783(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7783,c,av);}
a=C_alloc(7);
t5=C_retrieve2(lf[109],C_text("chicken.compiler.support#profile-lambda-index"));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7787,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:374: chicken.base#gensym"));
t7=*((C_word*)lf[92]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k7785 in chicken.compiler.support#expand-profile-lambda in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(131,c,1)))){
C_save_and_reclaim((void *)f_7787,c,av);}
a=C_alloc(131);
t2=C_retrieve2(lf[108],C_text("chicken.compiler.support#profile-lambda-list"));
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,t3,C_retrieve2(lf[108],C_text("chicken.compiler.support#profile-lambda-list")));
t5=C_mutate(&lf[108] /* (set! chicken.compiler.support#profile-lambda-list ...) */,t4);
t6=C_mutate(&lf[109] /* (set! chicken.compiler.support#profile-lambda-index ...) */,C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)));
t7=C_a_i_list(&a,2,lf[80],((C_word*)t0)[2]);
t8=C_a_i_list(&a,3,lf[111],t7,C_retrieve2(lf[104],C_text("chicken.compiler.support#profile-info-vector-name")));
t9=C_a_i_list(&a,3,lf[112],C_SCHEME_END_OF_LIST,t8);
t10=C_a_i_list(&a,3,lf[112],((C_word*)t0)[4],((C_word*)t0)[5]);
t11=C_a_i_list(&a,3,lf[113],t10,t1);
t12=C_a_i_list(&a,3,lf[112],C_SCHEME_END_OF_LIST,t11);
t13=C_a_i_list(&a,2,lf[80],((C_word*)t0)[2]);
t14=C_a_i_list(&a,3,lf[114],t13,C_retrieve2(lf[104],C_text("chicken.compiler.support#profile-info-vector-name")));
t15=C_a_i_list(&a,3,lf[112],C_SCHEME_END_OF_LIST,t14);
t16=C_a_i_list(&a,4,lf[115],t9,t12,t15);
t17=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t17;
av2[1]=C_a_i_list(&a,3,lf[112],t1,t16);
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}

/* chicken.compiler.support#profiling-prelude-exps in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7838(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(46,c,3)))){
C_save_and_reclaim((void *)f_7838,c,av);}
a=C_alloc(46);
t3=C_i_length(C_retrieve2(lf[108],C_text("chicken.compiler.support#profile-lambda-list")));
t4=C_a_i_list(&a,2,lf[80],t3);
t5=C_a_i_list(&a,2,lf[80],t2);
t6=C_a_i_list(&a,3,lf[117],t4,t5);
t7=C_a_i_list(&a,3,lf[118],C_retrieve2(lf[104],C_text("chicken.compiler.support#profile-info-vector-name")),t6);
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=C_retrieve2(lf[108],C_text("chicken.compiler.support#profile-lambda-list"));
t13=C_i_check_list_2(C_retrieve2(lf[108],C_text("chicken.compiler.support#profile-lambda-list")),lf[119]);
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7875,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7877,a[2]=t10,a[3]=t16,a[4]=t11,tmp=(C_word)a,a+=5,tmp));
t18=((C_word*)t16)[1];
f_7877(t18,t14,C_retrieve2(lf[108],C_text("chicken.compiler.support#profile-lambda-list")));}

/* k7873 in chicken.compiler.support#profiling-prelude-exps in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7875,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1143 in chicken.compiler.support#profiling-prelude-exps in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_7877(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,2)))){
C_save_and_reclaim_args((void *)trf_7877,3,t0,t1,t2);}
a=C_alloc(27);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_list(&a,2,lf[80],t4);
t6=C_u_i_cdr(t3);
t7=C_a_i_list(&a,2,lf[80],t6);
t8=C_a_i_list(&a,4,lf[120],C_retrieve2(lf[104],C_text("chicken.compiler.support#profile-info-vector-name")),t5,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t1=t13;
t2=t14;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.support#db-get in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_7927,c,av);}
a=C_alloc(4);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7931,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:399: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2=av;
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* k7929 in chicken.compiler.support#db-get in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7931,c,av);}
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_slot(t2,C_fix(1)):C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7945(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c<4) C_bad_min_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,3)))){
C_save_and_reclaim((void*)f_7945,c,av);}
a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
t4=C_build_rest(&a,c,4,av);
C_word t5;
C_word t6;
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7949,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:405: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2=av;
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* k7947 in chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7949(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_7949,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7957,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[124]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5874,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_5874(t7,((C_word*)t0)[3],((C_word*)t0)[2]);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* a7956 in k7947 in chicken.compiler.support#db-get-all in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static C_word f_7957(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_assq(t1,((C_word*)t0)[2]));}

/* chicken.compiler.support#db-put! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_7963,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7967,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:411: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2=av;
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t6;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* k7965 in chicken.compiler.support#db-put! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_7967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_7967,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_setslot(t2,C_fix(1),((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(((C_word*)t0)[4])){
t3=C_slot(t1,C_fix(1));
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]);
t5=C_a_i_cons(&a,2,t4,t3);
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_i_setslot(t1,C_fix(1),t5);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
else{
if(C_truep(((C_word*)t0)[4])){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]);
t3=C_a_i_list1(&a,1,t2);
C_trace(C_text("support.scm:416: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=t3;
tp(5,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* chicken.compiler.support#collect! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6;
C_word t7;
C_word *a;
if(c!=6) C_bad_argc_2(c,6,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_8009,c,av);}
a=C_alloc(7);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8013,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:419: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2=av;
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t6;
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}

/* k8011 in chicken.compiler.support#collect! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_8013,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],t1);
if(C_truep(t2)){
t3=C_slot(t2,C_fix(1));
t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_setslot(t2,C_fix(1),t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
t4=C_slot(t1,C_fix(1));
t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t3);
t6=C_a_i_cons(&a,2,t5,t4);
t7=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_setslot(t1,C_fix(1),t6);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
else{
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_list1(&a,1,t2);
C_trace(C_text("support.scm:424: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=t3;
tp(5,av2);}}}

/* chicken.compiler.support#db-get-list in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8061,c,av);}
a=C_alloc(3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8065,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:427: db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2=av;
av2[0]=*((C_word*)lf[121]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
tp(5,av2);}}

/* k8063 in chicken.compiler.support#db-get-list in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8065,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#make-node in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8071(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8071,c,av);}
a=C_alloc(5);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_record4(&a,4,lf[130],t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.compiler.support#node? in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8077,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_structurep(t2,lf[130]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.support#node-class-set! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8083(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8083,c,av);}
t4=C_i_check_structure(t2,lf[130]);
C_trace(C_text("support.scm:435: ##sys#block-set!"));
t5=*((C_word*)lf[133]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(1);
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* chicken.compiler.support#node-class in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8092,c,av);}
t3=C_i_check_structure(t2,lf[130]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#node-parameters-set! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8101(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8101,c,av);}
t4=C_i_check_structure(t2,lf[130]);
C_trace(C_text("support.scm:435: ##sys#block-set!"));
t5=*((C_word*)lf[133]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(2);
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* chicken.compiler.support#node-parameters in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8110,c,av);}
t3=C_i_check_structure(t2,lf[130]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#node-subexpressions-set! in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8119,c,av);}
t4=C_i_check_structure(t2,lf[130]);
C_trace(C_text("support.scm:435: ##sys#block-set!"));
t5=*((C_word*)lf[133]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=C_fix(3);
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* chicken.compiler.support#node-subexpressions in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8128,c,av);}
t3=C_i_check_structure(t2,lf[130]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
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 t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word t60;
C_word t61;
C_word t62;
C_word t63;
C_word t64;
C_word t65;
C_word t66;
C_word t67;
C_word t68;
C_word t69;
C_word t70;
C_word t71;
C_word t72;
C_word t73;
C_word t74;
C_word t75;
C_word t76;
C_word t77;
C_word t78;
C_word t79;
C_word t80;
C_word t81;
C_word t82;
C_word t83;
C_word t84;
C_word t85;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(158,c,8)))){
C_save_and_reclaim((void *)f_8138,c,av);}
a=C_alloc(158);
t2=C_mutate((C_word*)lf[129]+1 /* (set! chicken.compiler.support#make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8140,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate((C_word*)lf[139]+1 /* (set! chicken.compiler.support#varnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8146,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate((C_word*)lf[141]+1 /* (set! chicken.compiler.support#qnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8161,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate((C_word*)lf[142]+1 /* (set! chicken.compiler.support#build-node-graph ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8176,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate((C_word*)lf[180]+1 /* (set! chicken.compiler.support#build-expression-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9372,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate((C_word*)lf[193]+1 /* (set! chicken.compiler.support#fold-boolean ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10227,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[195]+1 /* (set! chicken.compiler.support#inline-lambda-bindings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10279,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[215]+1 /* (set! chicken.compiler.support#replace-rest-op-with-list-ops ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11324,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate((C_word*)lf[214]+1 /* (set! chicken.compiler.support#tree-copy ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11488,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate((C_word*)lf[223]+1 /* (set! chicken.compiler.support#copy-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11518,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate((C_word*)lf[202]+1 /* (set! chicken.compiler.support#copy-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11541,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate((C_word*)lf[224]+1 /* (set! chicken.compiler.support#emit-global-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11707,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate((C_word*)lf[249]+1 /* (set! chicken.compiler.support#load-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12005,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[252]+1 /* (set! chicken.compiler.support#match-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12061,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate((C_word*)lf[255]+1 /* (set! chicken.compiler.support#expression-has-side-effects? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12269,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate((C_word*)lf[258]+1 /* (set! chicken.compiler.support#simple-lambda-node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12363,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate((C_word*)lf[259]+1 /* (set! chicken.compiler.support#dump-undefined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12459,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate((C_word*)lf[264]+1 /* (set! chicken.compiler.support#dump-defined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12500,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate((C_word*)lf[265]+1 /* (set! chicken.compiler.support#dump-global-refs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12537,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate((C_word*)lf[266]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12586,tmp=(C_word)a,a+=2,tmp));
t22=C_set_block_item(lf[257] /* chicken.compiler.support#foreign-callback-stubs */,0,C_SCHEME_END_OF_LIST);
t23=C_mutate((C_word*)lf[272]+1 /* (set! chicken.compiler.support#make-foreign-callback-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12614,tmp=(C_word)a,a+=2,tmp));
t24=C_mutate((C_word*)lf[274]+1 /* (set! chicken.compiler.support#foreign-callback-stub? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12620,tmp=(C_word)a,a+=2,tmp));
t25=C_mutate((C_word*)lf[256]+1 /* (set! chicken.compiler.support#foreign-callback-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12635,tmp=(C_word)a,a+=2,tmp));
t26=C_mutate((C_word*)lf[275]+1 /* (set! chicken.compiler.support#foreign-callback-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12653,tmp=(C_word)a,a+=2,tmp));
t27=C_mutate((C_word*)lf[276]+1 /* (set! chicken.compiler.support#foreign-callback-stub-qualifiers ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12671,tmp=(C_word)a,a+=2,tmp));
t28=C_mutate((C_word*)lf[277]+1 /* (set! chicken.compiler.support#foreign-callback-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12689,tmp=(C_word)a,a+=2,tmp));
t29=C_mutate((C_word*)lf[278]+1 /* (set! chicken.compiler.support#foreign-callback-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12707,tmp=(C_word)a,a+=2,tmp));
t30=C_mutate((C_word*)lf[279]+1 /* (set! chicken.compiler.support#register-foreign-callback-stub! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12716,tmp=(C_word)a,a+=2,tmp));
t31=lf[281] /* chicken.compiler.support#foreign-type-table */ =C_SCHEME_FALSE;;
t32=C_mutate((C_word*)lf[282]+1 /* (set! chicken.compiler.support#clear-foreign-type-table! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12745,tmp=(C_word)a,a+=2,tmp));
t33=C_mutate((C_word*)lf[285]+1 /* (set! chicken.compiler.support#register-foreign-type! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12758,tmp=(C_word)a,a+=2,tmp));
t34=C_mutate((C_word*)lf[286]+1 /* (set! chicken.compiler.support#lookup-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12812,tmp=(C_word)a,a+=2,tmp));
t35=lf[287];
t36=C_mutate((C_word*)lf[288]+1 /* (set! chicken.compiler.support#foreign-type-check ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12818,a[2]=t35,tmp=(C_word)a,a+=3,tmp));
t37=C_mutate(&lf[394] /* (set! chicken.compiler.support#foreign-type-result-converter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13952,tmp=(C_word)a,a+=2,tmp));
t38=C_mutate(&lf[395] /* (set! chicken.compiler.support#foreign-type-argument-converter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13973,tmp=(C_word)a,a+=2,tmp));
t39=C_mutate((C_word*)lf[396]+1 /* (set! chicken.compiler.support#foreign-type-convert-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13994,tmp=(C_word)a,a+=2,tmp));
t40=C_mutate((C_word*)lf[397]+1 /* (set! chicken.compiler.support#foreign-type-convert-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14009,tmp=(C_word)a,a+=2,tmp));
t41=C_mutate((C_word*)lf[398]+1 /* (set! chicken.compiler.support#final-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14024,tmp=(C_word)a,a+=2,tmp));
t42=C_mutate((C_word*)lf[400]+1 /* (set! chicken.compiler.support#estimate-foreign-result-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14063,tmp=(C_word)a,a+=2,tmp));
t43=C_mutate((C_word*)lf[406]+1 /* (set! chicken.compiler.support#estimate-foreign-result-location-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14576,tmp=(C_word)a,a+=2,tmp));
t44=C_mutate((C_word*)lf[409]+1 /* (set! chicken.compiler.support#finish-foreign-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15064,tmp=(C_word)a,a+=2,tmp));
t45=C_mutate((C_word*)lf[424]+1 /* (set! chicken.compiler.support#foreign-type->scrutiny-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15364,tmp=(C_word)a,a+=2,tmp));
t46=C_mutate((C_word*)lf[450]+1 /* (set! chicken.compiler.support#scan-used-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16073,tmp=(C_word)a,a+=2,tmp));
t47=C_mutate((C_word*)lf[451]+1 /* (set! chicken.compiler.support#scan-free-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16213,tmp=(C_word)a,a+=2,tmp));
t48=C_mutate((C_word*)lf[452]+1 /* (set! chicken.compiler.support#make-block-variable-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16429,tmp=(C_word)a,a+=2,tmp));
t49=C_mutate((C_word*)lf[454]+1 /* (set! chicken.compiler.support#block-variable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16435,tmp=(C_word)a,a+=2,tmp));
t50=C_mutate((C_word*)lf[455]+1 /* (set! chicken.compiler.support#block-variable-literal-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16450,tmp=(C_word)a,a+=2,tmp));
t51=C_mutate((C_word*)lf[106]+1 /* (set! chicken.compiler.support#make-random-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16459,tmp=(C_word)a,a+=2,tmp));
t52=lf[457] /* chicken.compiler.support#real-name-table */ =C_SCHEME_FALSE;;
t53=C_mutate((C_word*)lf[458]+1 /* (set! chicken.compiler.support#clear-real-name-table! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16506,tmp=(C_word)a,a+=2,tmp));
t54=C_mutate((C_word*)lf[459]+1 /* (set! chicken.compiler.support#set-real-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16513,tmp=(C_word)a,a+=2,tmp));
t55=C_mutate((C_word*)lf[460]+1 /* (set! chicken.compiler.support#get-real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16519,tmp=(C_word)a,a+=2,tmp));
t56=C_mutate((C_word*)lf[169]+1 /* (set! chicken.compiler.support#real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16526,tmp=(C_word)a,a+=2,tmp));
t57=C_mutate((C_word*)lf[467]+1 /* (set! chicken.compiler.support#real-name2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16646,tmp=(C_word)a,a+=2,tmp));
t58=C_mutate((C_word*)lf[468]+1 /* (set! chicken.compiler.support#display-real-name-table ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16658,tmp=(C_word)a,a+=2,tmp));
t59=C_mutate((C_word*)lf[469]+1 /* (set! chicken.compiler.support#source-info->string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16682,tmp=(C_word)a,a+=2,tmp));
t60=C_mutate((C_word*)lf[475]+1 /* (set! chicken.compiler.support#source-info->name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16717,tmp=(C_word)a,a+=2,tmp));
t61=C_mutate((C_word*)lf[476]+1 /* (set! chicken.compiler.support#source-info->line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16732,tmp=(C_word)a,a+=2,tmp));
t62=C_mutate((C_word*)lf[477]+1 /* (set! chicken.compiler.support#call-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16744,tmp=(C_word)a,a+=2,tmp));
t63=C_mutate((C_word*)lf[480]+1 /* (set! chicken.compiler.support#constant-form-eval ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16781,tmp=(C_word)a,a+=2,tmp));
t64=C_mutate((C_word*)lf[487]+1 /* (set! chicken.compiler.support#maybe-constant-fold-call ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17006,tmp=(C_word)a,a+=2,tmp));
t65=C_mutate(&lf[483] /* (set! chicken.compiler.support#encodeable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17090,tmp=(C_word)a,a+=2,tmp));
t66=C_mutate((C_word*)lf[493]+1 /* (set! chicken.compiler.support#dump-nodes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17243,tmp=(C_word)a,a+=2,tmp));
t67=C_mutate((C_word*)lf[495]+1 /* (set! chicken.compiler.support#read/source-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17384,tmp=(C_word)a,a+=2,tmp));
t68=C_fast_retrieve(lf[497]);
t69=C_mutate((C_word*)lf[497]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17390,a[2]=t68,tmp=(C_word)a,a+=3,tmp));
t70=C_mutate((C_word*)lf[85]+1 /* (set! chicken.compiler.support#big-fixnum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17484,tmp=(C_word)a,a+=2,tmp));
t71=C_mutate((C_word*)lf[504]+1 /* (set! chicken.compiler.support#small-bignum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17508,tmp=(C_word)a,a+=2,tmp));
t72=C_mutate((C_word*)lf[270]+1 /* (set! chicken.compiler.support#hide-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17532,tmp=(C_word)a,a+=2,tmp));
t73=C_mutate((C_word*)lf[506]+1 /* (set! chicken.compiler.support#export-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17552,tmp=(C_word)a,a+=2,tmp));
t74=C_mutate((C_word*)lf[269]+1 /* (set! chicken.compiler.support#variable-hidden? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17572,tmp=(C_word)a,a+=2,tmp));
t75=C_mutate((C_word*)lf[247]+1 /* (set! chicken.compiler.support#variable-visible? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17594,tmp=(C_word)a,a+=2,tmp));
t76=C_mutate((C_word*)lf[508]+1 /* (set! chicken.compiler.support#mark-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17619,tmp=(C_word)a,a+=2,tmp));
t77=C_mutate((C_word*)lf[509]+1 /* (set! chicken.compiler.support#variable-mark ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17634,tmp=(C_word)a,a+=2,tmp));
t78=C_mutate((C_word*)lf[510]+1 /* (set! chicken.compiler.support#intrinsic? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17640,tmp=(C_word)a,a+=2,tmp));
t79=C_mutate((C_word*)lf[489]+1 /* (set! chicken.compiler.support#foldable? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17651,tmp=(C_word)a,a+=2,tmp));
t80=C_mutate((C_word*)lf[488]+1 /* (set! chicken.compiler.support#predicate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17662,tmp=(C_word)a,a+=2,tmp));
t81=C_mutate((C_word*)lf[513]+1 /* (set! chicken.compiler.support#load-identifier-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17673,tmp=(C_word)a,a+=2,tmp));
t82=C_mutate((C_word*)lf[521]+1 /* (set! chicken.compiler.support#print-version ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17768,tmp=(C_word)a,a+=2,tmp));
t83=C_mutate((C_word*)lf[524]+1 /* (set! chicken.compiler.support#print-usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17793,tmp=(C_word)a,a+=2,tmp));
t84=C_mutate((C_word*)lf[526]+1 /* (set! chicken.compiler.support#print-debug-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17805,tmp=(C_word)a,a+=2,tmp));
t85=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t85;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t85+1)))(2,av2);}}

/* chicken.compiler.support#make-node in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8140(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8140,c,av);}
a=C_alloc(5);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_record4(&a,4,lf[130],t2,t3,t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.compiler.support#varnode in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_8146,c,av);}
a=C_alloc(8);
t3=C_a_i_list1(&a,1,t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[140],t3,C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#qnode in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_8161,c,av);}
a=C_alloc(8);
t3=C_a_i_list1(&a,1,t2);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[80],t3,C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_8176,c,av);}
a=C_alloc(12);
t3=C_fix(0);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8179,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9363,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:543: walk"));
t9=((C_word*)t6)[1];
f_8179(t9,t8,t2);}

/* walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8179(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_8179,3,t0,t1,t2);}
a=C_alloc(20);
if(C_truep(C_i_symbolp(t2))){
C_trace(C_text("support.scm:453: varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word av2[3];
av2[0]=*((C_word*)lf[139]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}
else{
if(C_truep(C_i_structurep(t2,lf[130]))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_pairp(t2);
if(C_truep(C_i_not(t3))){
C_trace(C_text("support.scm:455: bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[13]+1);
av2[1]=t1;
av2[2]=lf[143];
av2[3]=t2;
tp(4,av2);}}
else{
t4=C_i_car(t2);
if(C_truep(C_i_symbolp(t4))){
t5=C_u_i_car(t2);
t6=C_eqp(t5,lf[144]);
t7=(C_truep(t6)?t6:C_eqp(t5,lf[145]));
if(C_truep(t7)){
t8=C_u_i_car(t2);
t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t10=t9;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=((C_word*)t11)[1];
t13=C_u_i_cdr(t2);
t14=C_i_check_list_2(t13,lf[119]);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8246,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8248,a[2]=t11,a[3]=t17,a[4]=((C_word*)t0)[2],a[5]=t12,tmp=(C_word)a,a+=6,tmp));
t19=((C_word*)t17)[1];
f_8248(t19,t15,t13);}
else{
t8=C_eqp(t5,lf[80]);
if(C_truep(t8)){
t9=C_i_cadr(t2);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8296,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8299,a[2]=t10,a[3]=t9,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_numberp(t9))){
t12=C_eqp(lf[150],*((C_word*)lf[8]+1));
t13=t11;
f_8299(t13,(C_truep(t12)?C_i_not(C_i_integerp(t9)):C_SCHEME_FALSE));}
else{
t12=t11;
f_8299(t12,C_SCHEME_FALSE);}}
else{
t9=C_eqp(t5,lf[91]);
if(C_truep(t9)){
t10=C_i_cadr(t2);
t11=C_i_caddr(t2);
if(C_truep(C_i_nullp(t10))){
C_trace(C_text("support.scm:473: walk"));
t22=t1;
t23=t11;
t1=t22;
t2=t23;
goto loop;}
else{
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8356,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp);
t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t14=t13;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=((C_word*)t15)[1];
t17=C_i_check_list_2(t10,lf[119]);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5947,a[2]=t15,a[3]=t19,a[4]=t16,tmp=(C_word)a,a+=5,tmp));
t21=((C_word*)t19)[1];
f_5947(t21,t12,t10);}}
else{
t10=C_eqp(t5,lf[152]);
t11=(C_truep(t10)?t10:C_eqp(t5,lf[112]));
if(C_truep(t11)){
t12=C_i_cadr(t2);
t13=C_a_i_list1(&a,1,t12);
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8453,a[2]=t1,a[3]=t13,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:479: walk"));
t22=t14;
t23=C_i_caddr(t2);
t1=t22;
t2=t23;
goto loop;}
else{
t12=C_eqp(t5,lf[153]);
if(C_truep(t12)){
t13=C_i_cadr(t2);
t14=C_i_caddr(t2);
t15=C_a_i_list2(&a,2,t13,t14);
t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8487,a[2]=t1,a[3]=t15,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:483: walk"));
t22=t16;
t23=C_i_cadddr(t2);
t1=t22;
t2=t23;
goto loop;}
else{
t13=C_eqp(t5,lf[154]);
if(C_truep(t13)){
t14=C_i_cdddr(t2);
t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8641,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t14,tmp=(C_word)a,a+=6,tmp);
t16=C_u_i_cdr(t2);
t17=C_u_i_cdr(t16);
C_trace(C_text("support.scm:486: walk"));
t22=t15;
t23=C_u_i_car(t17);
t1=t22;
t2=t23;
goto loop;}
else{
t14=C_eqp(t5,lf[158]);
if(C_truep(t14)){
t15=C_i_cadr(t2);
t16=C_u_i_car(t2);
t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8668,a[2]=t2,a[3]=t1,a[4]=t16,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(t15))){
t18=C_eqp(lf[80],C_u_i_car(t15));
if(C_truep(t18)){
t19=C_i_cadr(t15);
t20=t17;
f_8668(t20,C_a_i_list1(&a,1,t19));}
else{
t19=t17;
f_8668(t19,C_a_i_list1(&a,1,t15));}}
else{
t18=t17;
f_8668(t18,C_a_i_list1(&a,1,t15));}}
else{
t15=C_eqp(t5,lf[159]);
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8741,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t15)){
t17=t16;
f_8741(t17,t15);}
else{
t17=C_eqp(t5,lf[176]);
t18=t16;
f_8741(t18,(C_truep(t17)?t17:C_eqp(t5,lf[177])));}}}}}}}}}
else{
t5=C_a_i_list1(&a,1,C_SCHEME_FALSE);
t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=((C_word*)t8)[1];
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9318,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9320,a[2]=t8,a[3]=t12,a[4]=((C_word*)t0)[2],a[5]=t9,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_9320(t14,t10,t2);}}}}}

/* k8244 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8246,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1307 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8248(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8248,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8273,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);
C_trace(C_text("support.scm:458: g1313"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8271 in map-loop1307 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8273,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_8248(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8294 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8296(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8296,c,av);}
C_trace(C_text("support.scm:461: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k8297 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8299(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_8299,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8302,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:465: chicken.base#warning"));
t3=C_fast_retrieve(lf[148]);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[149];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
C_trace(C_text("support.scm:461: qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word av2[3];
av2[0]=*((C_word*)lf[141]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k8300 in k8297 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8302,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8309,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:467: scheme#truncate"));
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8307 in k8300 in k8297 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8309,c,av);}
C_trace(C_text("support.scm:467: scheme#inexact->exact"));
t2=*((C_word*)lf[146]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8356(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_8356,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8360,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8365,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t8=C_i_cadr(((C_word*)t0)[4]);
t9=C_i_check_list_2(t8,lf[119]);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8382,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8392,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_8392(t14,t10,t8);}

/* k8358 in k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8360,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[91],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* g1350 in k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8365(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_8365,3,t0,t1,t2);}
C_trace(C_text("support.scm:476: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8179(t3,t1,C_i_cadr(t2));}

/* k8380 in k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8382,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8390,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:477: walk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8179(t3,t2,((C_word*)t0)[4]);}

/* k8388 in k8380 in k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8390,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("support.scm:476: scheme#append"));
t3=*((C_word*)lf[151]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* map-loop1344 in k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8392(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8392,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8417,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);
C_trace(C_text("support.scm:476: g1350"));
t4=((C_word*)t0)[4];
f_8365(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8415 in map-loop1344 in k8354 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8417,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_8392(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8451 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8453(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_8453,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[152],((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8485 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8487(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_8487,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[153],((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8518(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_8518,5,t0,t1,t2,t3,t4);}
a=C_alloc(14);
if(C_truep(C_i_nullp(t2))){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8562,a[2]=t5,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:490: scheme#reverse"));
t7=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=C_i_caar(t2);
t6=C_eqp(lf[155],t5);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t0)[2]);
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8604,a[2]=t7,a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t9=C_a_i_cons(&a,2,lf[157],t3);
C_trace(C_text("support.scm:496: scheme#reverse"));
t10=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t10;
av2[1]=t8;
av2[2]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t7=C_u_i_cdr(t2);
t8=C_i_caar(t2);
t9=C_a_i_cons(&a,2,t8,t3);
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8625,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t7,a[6]=t9,tmp=(C_word)a,a+=7,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8629,a[2]=((C_word*)t0)[3],a[3]=t10,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:500: scheme#cadar"));
t12=*((C_word*)lf[156]+1);{
C_word av2[3];
av2[0]=t12;
av2[1]=t11;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}}

/* k8539 in k8560 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8541,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[154],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8560 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8562(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_8562,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8541,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_a_i_record4(&a,4,lf[130],lf[145],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);
t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
C_trace(C_text("support.scm:491: scheme#reverse"));
t6=*((C_word*)lf[75]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k8582 in k8602 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8584,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[154],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8590 in k8602 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8592,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("support.scm:497: scheme#reverse"));
t3=*((C_word*)lf[75]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8594 in k8602 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8596(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8596,c,av);}
C_trace(C_text("support.scm:497: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8179(t2,((C_word*)t0)[3],t1);}

/* k8602 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8604(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_8604,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8584,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8592,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8596,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:497: scheme#cadar"));
t6=*((C_word*)lf[156]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k8623 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8625(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8625,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("support.scm:498: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8518(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);}

/* k8627 in loop in k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8629,c,av);}
C_trace(C_text("support.scm:500: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8179(t2,((C_word*)t0)[3],t1);}

/* k8639 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_8641,c,av);}
a=C_alloc(10);
t2=C_a_i_list1(&a,1,t1);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_8518(t6,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_END_OF_LIST,t2);}

/* k8666 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8668(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
C_save_and_reclaim_args((void *)trf_8668,2,t0,t1);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_u_i_cdr(((C_word*)t0)[2]);
t7=C_u_i_cdr(t6);
t8=C_i_check_list_2(t7,lf[119]);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8680,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8682,a[2]=t4,a[3]=t11,a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_8682(t13,t9,t7);}

/* k8678 in k8666 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8680(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8680,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1415 in k8666 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8682(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8682,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8707,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);
C_trace(C_text("support.scm:506: g1421"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8705 in map-loop1415 in k8666 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8707,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_8682(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8741(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_8741,2,t0,t1);}
a=C_alloc(21);
if(C_truep(t1)){
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=C_a_i_list1(&a,1,t3);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_u_i_cdr(((C_word*)t0)[2]);
t10=C_u_i_cdr(t9);
t11=C_i_check_list_2(t10,lf[119]);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8767,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8769,a[2]=t7,a[3]=t14,a[4]=((C_word*)t0)[4],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_8769(t16,t12,t10);}
else{
t2=C_eqp(((C_word*)t0)[5],lf[160]);
if(C_truep(t2)){
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_u_i_cdr(((C_word*)t0)[2]);
t5=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_a_i_record4(&a,4,lf[130],t3,t4,C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[5],lf[161]);
if(C_truep(t3)){
t4=C_i_cadr(((C_word*)t0)[2]);
t5=C_a_i_list2(&a,2,t4,C_SCHEME_TRUE);
t6=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t6;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[161],t5,C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t0)[5],lf[118]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[5],lf[162]));
if(C_truep(t5)){
t6=C_i_cadr(((C_word*)t0)[2]);
t7=C_a_i_list1(&a,1,t6);
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=C_u_i_cdr(((C_word*)t0)[2]);
t13=C_u_i_cdr(t12);
t14=C_i_check_list_2(t13,lf[119]);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8878,a[2]=((C_word*)t0)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8880,a[2]=t10,a[3]=t17,a[4]=((C_word*)t0)[4],a[5]=t11,tmp=(C_word)a,a+=6,tmp));
t19=((C_word*)t17)[1];
f_8880(t19,t15,t13);}
else{
t6=C_eqp(((C_word*)t0)[5],lf[163]);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t0)[2]);
t8=C_i_cadr(t7);
t9=C_i_caddr(((C_word*)t0)[2]);
t10=C_i_cadr(t9);
t11=C_i_cadddr(((C_word*)t0)[2]);
t12=C_i_cadr(t11);
t13=C_i_cddddr(((C_word*)t0)[2]);
t14=C_i_car(t13);
t15=C_i_cadr(t14);
t16=C_a_i_list4(&a,4,t8,t10,t12,t15);
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8945,a[2]=((C_word*)t0)[3],a[3]=t16,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:522: walk"));
t18=((C_word*)((C_word*)t0)[4])[1];
f_8179(t18,t17,C_i_list_ref(((C_word*)t0)[2],C_fix(5)));}
else{
t7=C_eqp(((C_word*)t0)[5],lf[164]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8986,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t7)){
t9=t8;
f_8986(t9,t7);}
else{
t9=C_eqp(((C_word*)t0)[5],lf[172]);
if(C_truep(t9)){
t10=t8;
f_8986(t10,t9);}
else{
t10=C_eqp(((C_word*)t0)[5],lf[173]);
if(C_truep(t10)){
t11=t8;
f_8986(t11,t10);}
else{
t11=C_eqp(((C_word*)t0)[5],lf[174]);
t12=t8;
f_8986(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[5],lf[175])));}}}}}}}}}

/* k8765 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8767(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8767,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1452 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8769(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8769,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8794,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);
C_trace(C_text("support.scm:508: g1458"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8792 in map-loop1452 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8794,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_8769(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8876 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_8878,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[118],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1496 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8880(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8880,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8905,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);
C_trace(C_text("support.scm:516: g1502"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8903 in map-loop1496 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8905(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8905,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_8880(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8943 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_8945(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
C_save_and_reclaim((void *)f_8945,c,av);}
a=C_alloc(8);
t2=C_a_i_list1(&a,1,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[163],((C_word*)t0)[3],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_8986(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){
C_save_and_reclaim_args((void *)trf_8986,2,t0,t1);}
a=C_alloc(20);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_i_car(((C_word*)t2)[2]);
t4=C_i_cadr(((C_word*)t2)[2]);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_cddr(((C_word*)t2)[2]);
t10=C_i_check_list_2(t9,lf[119]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9015,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9017,a[2]=t7,a[3]=t13,a[4]=((C_word*)t2)[4],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t15=((C_word*)t13)[1];
f_9017(t15,t11,t9);}
else{
t3=C_eqp(((C_word*)t2)[5],lf[165]);
if(C_truep(t3)){
t4=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_u_i_cdr(((C_word*)t2)[2]);
t10=C_i_check_list_2(t9,lf[119]);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9078,a[2]=((C_word*)t2)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9080,a[2]=t7,a[3]=t13,a[4]=((C_word*)t2)[4],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t15=((C_word*)t13)[1];
f_9080(t15,t11,t9);}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9117,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9123,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:529: ##sys#call-with-values"));{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t2)[3];
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}}}

/* k9013 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_9015,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1545 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9017(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9017,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9042,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);
C_trace(C_text("support.scm:525: g1551"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9040 in map-loop1545 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9042,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9017(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9076 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_9078,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[166],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1576 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9080(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9080,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9105,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);
C_trace(C_text("support.scm:527: g1582"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9103 in map-loop1576 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9105,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9080(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a9116 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9117,c,av);}
C_trace(C_text("support.scm:529: ##sys#get-line-2"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[167]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[167]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9123(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_9123,c,av);}
a=C_alloc(11);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9184,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9212,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("tweaks.scm:60: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[170]);
C_word *av2=av;
av2[0]=*((C_word*)lf[170]+1);
av2[1]=t5;
av2[2]=t2;
av2[3]=lf[171];
tp(4,av2);}}

/* k9144 in k9186 in k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_9146,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[166],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1622 in k9186 in k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9148(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9148,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9173,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);
C_trace(C_text("support.scm:541: g1628"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9171 in map-loop1622 in k9186 in k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_9173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9173,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9148(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9184(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_9184,2,t0,t1);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9188,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[5])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9191,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:537: real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[169]);
C_word av2[3];
av2[0]=*((C_word*)lf[169]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
C_trace(C_text("support.scm:540: ##sys#symbol->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[168]);
C_word av2[3];
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}}

/* k9186 in k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_9188,c,av);}
a=C_alloc(23);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[3],lf[119]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9146,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9148,a[2]=t5,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_9148(t12,t8,((C_word*)t0)[3]);}

/* k9189 in k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9191(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_9191,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9198,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
f_9188(2,av2);}}
else{
C_trace(C_text("support.scm:539: ##sys#symbol->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[168]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[168]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k9196 in k9189 in k9182 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9198,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
f_9188(2,av2);}}

/* k9210 in a9122 in k8984 in k8739 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_9212,c,av);}
a=C_alloc(29);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=((C_word*)t0)[3];
f_9184(t4,C_SCHEME_TRUE);}
else{
t2=((C_word*)t0)[3];
f_9184(t2,C_SCHEME_FALSE);}}

/* k9316 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
C_save_and_reclaim((void *)f_9318,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_record4(&a,4,lf[130],lf[166],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1653 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9320(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9320,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9345,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);
C_trace(C_text("support.scm:542: g1659"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8179(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9343 in map-loop1653 in walk in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9345,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9320(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9361 in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_9363,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9366,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)((C_word*)t0)[3])[1];
if(C_truep(C_i_positivep(t3))){
C_trace(C_text("support.scm:545: debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[22]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[22]+1);
av2[1]=t2;
av2[2]=lf[178];
av2[3]=lf[179];
av2[4]=((C_word*)((C_word*)t0)[3])[1];
tp(5,av2);}}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9364 in k9361 in chicken.compiler.support#build-node-graph in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9366,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9372,c,av);}
a=C_alloc(5);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9378,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_9378(t6,t1,t2);}

/* walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9378(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9378,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9382,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:550: node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[138]);
C_word av2[3];
av2[0]=*((C_word*)lf[138]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9382,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9385,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:551: node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9385(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9385,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9388,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:552: node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}

/* k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9388(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9388,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_eqp(((C_word*)t0)[4],lf[144]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9397,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_9397(t5,t3);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[191]);
t6=t4;
f_9397(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[192])));}}

/* k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9397(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,5)))){
C_save_and_reclaim_args((void *)trf_9397,2,t0,t1);}
a=C_alloc(20);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t2)[2],lf[119]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9410,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9412,a[2]=t5,a[3]=t10,a[4]=((C_word*)t2)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_9412(t12,t8,((C_word*)t2)[2]);}
else{
t3=C_eqp(((C_word*)t2)[4],lf[181]);
if(C_truep(t3)){
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=C_i_check_list_2(((C_word*)t2)[2],lf[119]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9467,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9469,a[2]=t6,a[3]=t11,a[4]=((C_word*)t2)[5],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_9469(t13,t9,((C_word*)t2)[2]);}
else{
t4=C_eqp(((C_word*)t2)[4],lf[140]);
if(C_truep(t4)){
t5=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_car(((C_word*)t2)[6]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[4],lf[80]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t2)[6]);
t7=C_booleanp(t6);
if(C_truep(t7)){
if(C_truep(t7)){
t8=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t8;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_u_i_car(((C_word*)t2)[6]);
t9=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t9;
av2[1]=C_a_i_list(&a,2,lf[80],t8);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t8=C_i_stringp(t6);
if(C_truep(t8)){
if(C_truep(t8)){
t9=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t9;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_u_i_car(((C_word*)t2)[6]);
t10=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t10;
av2[1]=C_a_i_list(&a,2,lf[80],t9);
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t9=C_i_numberp(t6);
t10=(C_truep(t9)?t9:C_charp(t6));
if(C_truep(t10)){
t11=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t11;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_u_i_car(((C_word*)t2)[6]);
t12=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t12;
av2[1]=C_a_i_list(&a,2,lf[80],t11);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}
else{
t6=C_eqp(((C_word*)t2)[4],lf[91]);
if(C_truep(t6)){
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t12=t11;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=((C_word*)t13)[1];
t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9567,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[2],a[6]=t9,a[7]=t10,a[8]=t13,a[9]=t14,tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("support.scm:564: chicken.base#butlast"));
t16=C_fast_retrieve(lf[182]);{
C_word av2[3];
av2[0]=t16;
av2[1]=t15;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}
else{
t7=C_eqp(((C_word*)t2)[4],lf[112]);
if(C_truep(t7)){
t8=C_i_cadr(((C_word*)t2)[6]);
t9=(C_truep(t8)?lf[152]:lf[112]);
t10=C_i_caddr(((C_word*)t2)[6]);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9690,a[2]=((C_word*)t2)[3],a[3]=t9,a[4]=t10,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:571: walk"));
t12=((C_word*)((C_word*)t2)[5])[1];
f_9378(t12,t11,C_i_car(((C_word*)t2)[2]));}
else{
t8=C_eqp(((C_word*)t2)[4],lf[153]);
if(C_truep(t8)){
t9=C_i_car(((C_word*)t2)[6]);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9714,a[2]=((C_word*)t2)[3],a[3]=t9,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:573: walk"));
t11=((C_word*)((C_word*)t2)[5])[1];
f_9378(t11,t10,C_i_car(((C_word*)t2)[2]));}
else{
t9=C_eqp(((C_word*)t2)[4],lf[184]);
if(C_truep(t9)){
C_trace(C_text("support.scm:575: walk"));
t10=((C_word*)((C_word*)t2)[5])[1];
f_9378(t10,((C_word*)t2)[3],C_i_car(((C_word*)t2)[2]));}
else{
t10=C_eqp(((C_word*)t2)[4],lf[154]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9748,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:578: walk"));
t12=((C_word*)((C_word*)t2)[5])[1];
f_9378(t12,t11,C_i_car(((C_word*)t2)[2]));}
else{
t11=C_eqp(((C_word*)t2)[4],lf[166]);
if(C_truep(t11)){
t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t13=t12;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=((C_word*)t14)[1];
t16=C_i_check_list_2(((C_word*)t2)[2],lf[119]);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9838,a[2]=t14,a[3]=t18,a[4]=((C_word*)t2)[5],a[5]=t15,tmp=(C_word)a,a+=6,tmp));
t20=((C_word*)t18)[1];
f_9838(t20,((C_word*)t2)[3],((C_word*)t2)[2]);}
else{
t12=C_eqp(((C_word*)t2)[4],lf[177]);
if(C_truep(t12)){
t13=C_i_car(((C_word*)t2)[6]);
t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t15=t14;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=((C_word*)t16)[1];
t18=C_i_check_list_2(((C_word*)t2)[2],lf[119]);
t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9893,a[2]=((C_word*)t2)[3],a[3]=t13,tmp=(C_word)a,a+=4,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9895,a[2]=t16,a[3]=t21,a[4]=((C_word*)t2)[5],a[5]=t17,tmp=(C_word)a,a+=6,tmp));
t23=((C_word*)t21)[1];
f_9895(t23,t19,((C_word*)t2)[2]);}
else{
t13=C_eqp(((C_word*)t2)[4],lf[145]);
if(C_truep(t13)){
t14=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t14;
av2[1]=C_a_i_list1(&a,1,((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(((C_word*)t2)[4],lf[186]);
if(C_truep(t14)){
t15=C_i_car(((C_word*)t2)[6]);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9951,a[2]=((C_word*)t2)[5],a[3]=t17,tmp=(C_word)a,a+=4,tmp));
t19=((C_word*)t17)[1];
f_9951(t19,((C_word*)t2)[3],t15,((C_word*)t2)[2],C_SCHEME_END_OF_LIST);}
else{
t15=C_eqp(((C_word*)t2)[4],lf[187]);
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10001,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t15)){
t17=t16;
f_10001(t17,t15);}
else{
t17=C_eqp(((C_word*)t2)[4],lf[188]);
if(C_truep(t17)){
t18=t16;
f_10001(t18,t17);}
else{
t18=C_eqp(((C_word*)t2)[4],lf[189]);
t19=t16;
f_10001(t19,(C_truep(t18)?t18:C_eqp(((C_word*)t2)[4],lf[190])));}}}}}}}}}}}}}}}}

/* k9408 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_9410,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1701 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9412(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9412,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9437,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);
C_trace(C_text("support.scm:554: g1707"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9435 in map-loop1701 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9437,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9412(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9465 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9467,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[181],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop1730 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9469(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9469,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9494,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);
C_trace(C_text("support.scm:556: g1736"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9492 in map-loop1730 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9494,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9469(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_9567,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9637,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_9637(t6,t2,t1);}

/* k9568 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_9570,c,av);}
a=C_alloc(12);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[119]);
t3=C_i_check_list_2(t1,lf[119]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9579,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9589,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_9589(t8,t4,((C_word*)t0)[2],t1);}

/* k9577 in k9568 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_9579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_9579,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9583,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9587,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:565: last"));
f_5981(t3,((C_word*)t0)[4]);}

/* k9581 in k9577 in k9568 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_9583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9583,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[91],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9585 in k9577 in k9568 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_9587(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9587,c,av);}
C_trace(C_text("support.scm:565: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_9378(t2,((C_word*)t0)[3],t1);}

/* map-loop1772 in k9568 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void f_9589(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_9589,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_list2(&a,2,t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop1793 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9637(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9637,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9662,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);
C_trace(C_text("support.scm:564: g1799"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9660 in map-loop1793 in k9565 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_9662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9662,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9637(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9688 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9690,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9712 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9714,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[183],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9746 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_9748,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9752,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_i_cdr(((C_word*)t0)[3]);
t4=C_i_cdr(((C_word*)t0)[4]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9762,a[2]=((C_word*)t0)[5],a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_9762(t8,t2,t3,t4);}

/* k9750 in k9746 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9752,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[185],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* loop in k9746 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9762(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_9762,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9786,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("support.scm:583: walk"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_9378(t5,t4,C_i_car(t3));}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9813,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:584: walk"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_9378(t6,t5,C_i_car(t3));}}

/* k9784 in loop in k9746 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_9786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9786,c,av);}
a=C_alloc(9);
t2=C_a_i_list(&a,2,lf[155],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,1,t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9799 in k9811 in loop in k9746 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in ... */
static void C_ccall f_9801(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_9801,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9811 in loop in k9746 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_9813(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_9813,c,av);}
a=C_alloc(10);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9801,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:585: loop"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9762(t4,t3,C_u_i_cdr(((C_word*)t0)[5]),C_u_i_cdr(((C_word*)t0)[6]));}

/* map-loop1842 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9838(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9838,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("support.scm:587: g1848"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9861 in map-loop1842 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9863,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9838(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9891 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9893,c,av);}
a=C_alloc(6);
C_trace(C_text("support.scm:588: cons*"));
f_5645(((C_word*)t0)[2],lf[177],C_a_i_list(&a,2,((C_word*)t0)[3],t1));}

/* map-loop1868 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9895(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9895,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9920,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);
C_trace(C_text("support.scm:588: g1874"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9378(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9918 in map-loop1868 in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9920(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9920,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9895(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* loop in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void f_9951(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){
C_save_and_reclaim_args((void *)trf_9951,5,t0,t1,t2,t3,t4);}
a=C_alloc(36);
if(C_truep(C_i_zerop(t2))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9963,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("support.scm:593: scheme#reverse"));
t6=*((C_word*)lf[75]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_s_a_i_minus(&a,2,t2,C_fix(1));
t6=C_i_cdr(t3);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9990,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("support.scm:594: walk"));
t8=((C_word*)((C_word*)t0)[2])[1];
f_9378(t8,t7,C_u_i_car(t3));}}

/* k9961 in loop in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_9963,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9967,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("support.scm:593: walk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_9378(t3,t2,C_i_car(((C_word*)t0)[4]));}

/* k9965 in k9961 in loop in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 in ... */
static void C_ccall f_9967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9967,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[186],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9988 in loop in k9395 in k9386 in k9383 in k9380 in walk in chicken.compiler.support#build-expression-tree in k8136 in k7609 in k7606 in k6520 in k5208 in k5205 in k5202 in k5199 in k5196 in k5193 in k5190 in k5187 in k5184 */
static void C_ccall f_9990(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_9990,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("support.scm:594: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_9951(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);}

/* toplevel */
static int toplevel_initialized=0;

void C_ccall C_support_toplevel(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
else C_toplevel_entry(C_text("support"));
C_check_nursery_minimum(C_calculate_demand(3,c,2));
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void*)C_support_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(3950))){
C_save(t1);
C_rereclaim2(3950*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,534);
lf[0]=C_h_intern(&lf[0],7, C_text("support"));
lf[1]=C_h_intern(&lf[1],25, C_text("chicken.compiler.support#"));
lf[8]=C_h_intern(&lf[8],36, C_text("chicken.compiler.support#number-type"));
lf[9]=C_h_intern(&lf[9],7, C_text("generic"));
lf[10]=C_h_intern(&lf[10],31, C_text("chicken.compiler.support#unsafe"));
lf[11]=C_h_intern(&lf[11],46, C_text("chicken.compiler.support#compiler-cleanup-hook"));
lf[12]=C_h_intern(&lf[12],42, C_text("chicken.compiler.support#debugging-chicken"));
lf[13]=C_h_intern(&lf[13],29, C_text("chicken.compiler.support#bomb"));
lf[14]=C_h_intern(&lf[14],18, C_text("chicken.base#error"));
lf[15]=C_h_intern(&lf[15],20, C_text("scheme#string-append"));
lf[16]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\133\151\156\164\145\162\156\141\154\040\143\157\155\160\151\154\145\162\040\145\162\162\157\162\135\040\000"));
lf[17]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\133\151\156\164\145\162\156\141\154\040\143\157\155\160\151\154\145\162\040\145\162\162\157\162\135\000"));
lf[18]=C_h_intern(&lf[18],51, C_text("chicken.compiler.support#collected-debugging-output"));
lf[20]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\157\376\003\000\000\002\376\001\000\000\001\001\170\376\003\000\000\002\376\001\000\000\001\001\123\376\377\016"));
lf[22]=C_h_intern(&lf[22],34, C_text("chicken.compiler.support#debugging"));
lf[23]=C_h_intern(&lf[23],14, C_text("scheme#newline"));
lf[24]=C_h_intern(&lf[24],21, C_text("##sys#standard-output"));
lf[25]=C_h_intern(&lf[25],6, C_text("printf"));
lf[26]=C_h_intern(&lf[26],18, C_text("##sys#write-char-0"));
lf[27]=C_h_intern(&lf[27],11, C_text("##sys#print"));
lf[28]=C_h_intern(&lf[28],12, C_text("scheme#force"));
lf[29]=C_h_intern(&lf[29],14, C_text("scheme#display"));
lf[30]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000"));
lf[31]=C_h_intern(&lf[31],34, C_text("chicken.port#with-output-to-string"));
lf[32]=C_h_intern(&lf[32],7, C_text("fprintf"));
lf[33]=C_h_intern(&lf[33],25, C_text("chicken.base#flush-output"));
lf[34]=C_h_intern(&lf[34],46, C_text("chicken.compiler.support#with-debugging-output"));
lf[35]=C_h_intern(&lf[35],27, C_text("chicken.string#string-split"));
lf[36]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[37]=C_h_intern(&lf[37],39, C_text("chicken.compiler.support#quit-compiling"));
lf[38]=C_h_intern(&lf[38],20, C_text("##sys#standard-error"));
lf[39]=C_h_intern(&lf[39],17, C_text("chicken.base#exit"));
lf[40]=C_h_intern(&lf[40],22, C_text("chicken.format#fprintf"));
lf[41]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\012\105\162\162\157\162\072\040\000"));
lf[42]=C_h_intern(&lf[42],23, C_text("##sys#syntax-error-hook"));
lf[43]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\011\176\163\176\045\000"));
lf[44]=C_h_intern(&lf[44],8, C_text("for-each"));
lf[45]=C_h_intern(&lf[45],29, C_text("chicken.base#print-call-chain"));
lf[46]=C_h_intern(&lf[46],20, C_text("##sys#current-thread"));
lf[47]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\012\011\105\170\160\141\156\163\151\157\156\040\150\151\163\164\157\162\171\072\012\000"));
lf[48]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\072\040\000"));
lf[49]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\012\123\171\156\164\141\170\040\145\162\162\157\162\040\050\000"));
lf[50]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\012\123\171\156\164\141\170\040\145\162\162\157\162\072\040\000"));
lf[51]=C_h_intern(&lf[51],47, C_text("chicken.compiler.support#emit-syntax-trace-info"));
lf[52]=C_h_intern(&lf[52],40, C_text("chicken.compiler.support#check-signature"));
lf[53]=C_h_intern(&lf[53],42, C_text("chicken.compiler.support#build-lambda-list"));
lf[54]=C_h_intern(&lf[54],44, C_text("chicken.compiler.support#valid-c-identifier?"));
lf[55]=C_h_intern(&lf[55],18, C_text("##sys#string->list"));
lf[56]=C_h_intern(&lf[56],23, C_text("chicken.string#->string"));
lf[58]=C_h_intern(&lf[58],21, C_text("scheme#string->symbol"));
lf[59]=C_h_intern(&lf[59],12, C_text("scheme#caadr"));
lf[60]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[61]=C_h_intern(&lf[61],21, C_text("scheme#symbol->string"));
lf[62]=C_h_intern(&lf[62],37, C_text("chicken.compiler.support#bytes->words"));
lf[63]=C_h_intern(&lf[63],37, C_text("chicken.compiler.support#words->bytes"));
lf[64]=C_h_intern(&lf[64],50, C_text("chicken.compiler.support#check-and-open-input-file"));
lf[65]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000"));
lf[66]=C_h_intern(&lf[66],20, C_text("##sys#standard-input"));
lf[67]=C_h_intern(&lf[67],22, C_text("scheme#open-input-file"));
lf[68]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\141\156\040\156\157\164\040\157\160\145\156\040\146\151\154\145\040\176\163\000"));
lf[69]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\050\176\141\051\040\143\141\156\040\156\157\164\040\157\160\145\156\040\146\151\154\145\040\176\163\000"));
lf[70]=C_h_intern(&lf[70],25, C_text("chicken.file#file-exists?"));
lf[71]=C_h_intern(&lf[71],49, C_text("chicken.compiler.support#close-checked-input-file"));
lf[72]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000"));
lf[73]=C_h_intern(&lf[73],23, C_text("scheme#close-input-port"));
lf[74]=C_h_intern(&lf[74],35, C_text("chicken.compiler.support#fold-inner"));
lf[75]=C_h_intern(&lf[75],14, C_text("scheme#reverse"));
lf[77]=C_h_intern(&lf[77],41, C_text("chicken.compiler.support#read-expressions"));
lf[78]=C_h_intern(&lf[78],11, C_text("scheme#read"));
lf[79]=C_h_intern(&lf[79],34, C_text("chicken.compiler.support#constant?"));
lf[80]=C_h_intern(&lf[80],5, C_text("quote"));
lf[81]=C_h_intern(&lf[81],20, C_text("##sys#srfi-4-vector?"));
lf[82]=C_h_intern(&lf[82],30, C_text("chicken.bytevector#bytevector?"));
lf[83]=C_h_intern(&lf[83],45, C_text("chicken.compiler.support#collapsable-literal?"));
lf[84]=C_h_intern(&lf[84],35, C_text("chicken.compiler.support#immediate?"));
lf[85]=C_h_intern(&lf[85],36, C_text("chicken.compiler.support#big-fixnum?"));
lf[86]=C_h_intern(&lf[86],39, C_text("chicken.compiler.support#basic-literal?"));
lf[87]=C_h_intern(&lf[87],19, C_text("scheme#vector->list"));
lf[88]=C_h_intern(&lf[88],48, C_text("chicken.compiler.support#canonicalize-begin-body"));
lf[89]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[90]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[91]=C_h_intern(&lf[91],3, C_text("let"));
lf[92]=C_h_intern(&lf[92],19, C_text("chicken.base#gensym"));
lf[93]=C_h_intern(&lf[93],1, C_text("t"));
lf[94]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\166\157\151\144\376\377\016"));
lf[95]=C_h_intern(&lf[95],37, C_text("chicken.compiler.support#string->expr"));
lf[96]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\143\141\156\156\157\164\040\160\141\162\163\145\040\145\170\160\162\145\163\163\151\157\156\072\040\176\163\040\133\176\141\135\176\045\000"));
lf[97]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[98]=C_h_intern(&lf[98],5, C_text("begin"));
lf[99]=C_h_intern(&lf[99],35, C_text("chicken.port#with-input-from-string"));
lf[100]=C_h_intern(&lf[100],40, C_text("chicken.condition#with-exception-handler"));
lf[101]=C_h_intern(&lf[101],37, C_text("scheme#call-with-current-continuation"));
lf[102]=C_h_intern(&lf[102],37, C_text("chicken.compiler.support#llist-length"));
lf[103]=C_h_intern(&lf[103],37, C_text("chicken.compiler.support#llist-match?"));
lf[105]=C_h_intern(&lf[105],56, C_text("chicken.compiler.support#reset-profile-info-vector-name!"));
lf[106]=C_h_intern(&lf[106],41, C_text("chicken.compiler.support#make-random-name"));
lf[107]=C_h_intern(&lf[107],12, C_text("profile-info"));
lf[110]=C_h_intern(&lf[110],46, C_text("chicken.compiler.support#expand-profile-lambda"));
lf[111]=C_h_intern(&lf[111],19, C_text("##sys#profile-entry"));
lf[112]=C_h_intern(&lf[112],13, C_text("##core#lambda"));
lf[113]=C_h_intern(&lf[113],11, C_text("##sys#apply"));
lf[114]=C_h_intern(&lf[114],18, C_text("##sys#profile-exit"));
lf[115]=C_h_intern(&lf[115],18, C_text("##sys#dynamic-wind"));
lf[116]=C_h_intern(&lf[116],47, C_text("chicken.compiler.support#profiling-prelude-exps"));
lf[117]=C_h_intern(&lf[117],27, C_text("##sys#register-profile-info"));
lf[118]=C_h_intern(&lf[118],4, C_text("set!"));
lf[119]=C_h_intern(&lf[119],3, C_text("map"));
lf[120]=C_h_intern(&lf[120],30, C_text("##sys#set-profile-info-vector!"));
lf[121]=C_h_intern(&lf[121],31, C_text("chicken.compiler.support#db-get"));
lf[122]=C_h_intern(&lf[122],31, C_text("chicken.internal#hash-table-ref"));
lf[123]=C_h_intern(&lf[123],35, C_text("chicken.compiler.support#db-get-all"));
lf[124]=C_h_intern(&lf[124],5, C_text("foldr"));
lf[125]=C_h_intern(&lf[125],32, C_text("chicken.compiler.support#db-put!"));
lf[126]=C_h_intern(&lf[126],32, C_text("chicken.internal#hash-table-set!"));
lf[127]=C_h_intern(&lf[127],33, C_text("chicken.compiler.support#collect!"));
lf[128]=C_h_intern(&lf[128],36, C_text("chicken.compiler.support#db-get-list"));
lf[129]=C_h_intern(&lf[129],34, C_text("chicken.compiler.support#make-node"));
lf[130]=C_h_intern(&lf[130],29, C_text("chicken.compiler.support#node"));
lf[131]=C_h_intern(&lf[131],30, C_text("chicken.compiler.support#node?"));
lf[132]=C_h_intern(&lf[132],40, C_text("chicken.compiler.support#node-class-set!"));
lf[133]=C_h_intern(&lf[133],16, C_text("##sys#block-set!"));
lf[134]=C_h_intern(&lf[134],35, C_text("chicken.compiler.support#node-class"));
lf[135]=C_h_intern(&lf[135],45, C_text("chicken.compiler.support#node-parameters-set!"));
lf[136]=C_h_intern(&lf[136],40, C_text("chicken.compiler.support#node-parameters"));
lf[137]=C_h_intern(&lf[137],49, C_text("chicken.compiler.support#node-subexpressions-set!"));
lf[138]=C_h_intern(&lf[138],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[139]=C_h_intern(&lf[139],32, C_text("chicken.compiler.support#varnode"));
lf[140]=C_h_intern(&lf[140],15, C_text("##core#variable"));
lf[141]=C_h_intern(&lf[141],30, C_text("chicken.compiler.support#qnode"));
lf[142]=C_h_intern(&lf[142],41, C_text("chicken.compiler.support#build-node-graph"));
lf[143]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\142\141\144\040\145\170\160\162\145\163\163\151\157\156\000"));
lf[144]=C_h_intern(&lf[144],2, C_text("if"));
lf[145]=C_h_intern(&lf[145],16, C_text("##core#undefined"));
lf[146]=C_h_intern(&lf[146],21, C_text("scheme#inexact->exact"));
lf[147]=C_h_intern(&lf[147],15, C_text("scheme#truncate"));
lf[148]=C_h_intern(&lf[148],20, C_text("chicken.base#warning"));
lf[149]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\154\151\164\145\162\141\154\040\151\163\040\157\165\164\040\157\146\040\162\141\156\147\145\040\055\040\167\151\154\154\040\142\145\040\164\162\165\156\143\141\164\145\144\040\164\157\040\151\156\164\145\147\145\162\000"));
lf[150]=C_h_intern(&lf[150],6, C_text("fixnum"));
lf[151]=C_h_intern(&lf[151],13, C_text("scheme#append"));
lf[152]=C_h_intern(&lf[152],6, C_text("lambda"));
lf[153]=C_h_intern(&lf[153],10, C_text("##core#the"));
lf[154]=C_h_intern(&lf[154],15, C_text("##core#typecase"));
lf[155]=C_h_intern(&lf[155],4, C_text("else"));
lf[156]=C_h_intern(&lf[156],12, C_text("scheme#cadar"));
lf[157]=C_h_intern(&lf[157],1, C_text("*"));
lf[158]=C_h_intern(&lf[158],16, C_text("##core#primitive"));
lf[159]=C_h_intern(&lf[159],13, C_text("##core#inline"));
lf[160]=C_h_intern(&lf[160],18, C_text("##core#debug-event"));
lf[161]=C_h_intern(&lf[161],11, C_text("##core#proc"));
lf[162]=C_h_intern(&lf[162],11, C_text("##core#set!"));
lf[163]=C_h_intern(&lf[163],31, C_text("##core#foreign-callback-wrapper"));
lf[164]=C_h_intern(&lf[164],22, C_text("##core#inline_allocate"));
lf[165]=C_h_intern(&lf[165],10, C_text("##core#app"));
lf[166]=C_h_intern(&lf[166],11, C_text("##core#call"));
lf[167]=C_h_intern(&lf[167],16, C_text("##sys#get-line-2"));
lf[168]=C_h_intern(&lf[168],20, C_text("##sys#symbol->string"));
lf[169]=C_h_intern(&lf[169],34, C_text("chicken.compiler.support#real-name"));
lf[170]=C_h_intern(&lf[170],9, C_text("##sys#get"));
lf[171]=C_h_intern(&lf[171],36, C_text("##compiler#always-bound-to-procedure"));
lf[172]=C_h_intern(&lf[172],17, C_text("##core#inline_ref"));
lf[173]=C_h_intern(&lf[173],20, C_text("##core#inline_update"));
lf[174]=C_h_intern(&lf[174],21, C_text("##core#inline_loc_ref"));
lf[175]=C_h_intern(&lf[175],24, C_text("##core#inline_loc_update"));
lf[176]=C_h_intern(&lf[176],14, C_text("##core#provide"));
lf[177]=C_h_intern(&lf[177],15, C_text("##core#callunit"));
lf[178]=C_h_intern(&lf[178],1, C_text("o"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\145\154\151\155\151\156\141\164\145\144\040\160\162\157\143\145\144\165\162\145\040\143\150\145\143\153\163\000"));
lf[180]=C_h_intern(&lf[180],46, C_text("chicken.compiler.support#build-expression-tree"));
lf[181]=C_h_intern(&lf[181],14, C_text("##core#closure"));
lf[182]=C_h_intern(&lf[182],20, C_text("chicken.base#butlast"));
lf[183]=C_h_intern(&lf[183],3, C_text("the"));
lf[184]=C_h_intern(&lf[184],17, C_text("##core#the/result"));
lf[185]=C_h_intern(&lf[185],17, C_text("compiler-typecase"));
lf[186]=C_h_intern(&lf[186],11, C_text("##core#bind"));
lf[187]=C_h_intern(&lf[187],12, C_text("##core#unbox"));
lf[188]=C_h_intern(&lf[188],10, C_text("##core#ref"));
lf[189]=C_h_intern(&lf[189],13, C_text("##core#update"));
lf[190]=C_h_intern(&lf[190],15, C_text("##core#update_i"));
lf[191]=C_h_intern(&lf[191],10, C_text("##core#box"));
lf[192]=C_h_intern(&lf[192],11, C_text("##core#cond"));
lf[193]=C_h_intern(&lf[193],37, C_text("chicken.compiler.support#fold-boolean"));
lf[194]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\006\103\137\141\156\144\000\376\377\016"));
lf[195]=C_h_intern(&lf[195],47, C_text("chicken.compiler.support#inline-lambda-bindings"));
lf[196]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\141\137\151\137\154\151\163\164\000"));
lf[197]=C_h_intern(&lf[197],10, C_text("references"));
lf[198]=C_h_intern(&lf[198],10, C_text("rest-null?"));
lf[199]=C_h_intern(&lf[199],8, C_text("rest-cdr"));
lf[200]=C_h_intern(&lf[200],17, C_text("derived-rest-vars"));
lf[201]=C_h_intern(&lf[201],17, C_text("##core#rest-null?"));
lf[202]=C_h_intern(&lf[202],35, C_text("chicken.compiler.support#copy-node!"));
lf[203]=C_h_intern(&lf[203],15, C_text("##core#rest-car"));
lf[204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\103\137\162\145\163\164\137\141\162\147\137\157\165\164\137\157\146\137\142\157\165\156\144\163\137\145\162\162\157\162\137\166\141\154\165\145\000"));
lf[205]=C_h_intern(&lf[205],15, C_text("##core#rest-cdr"));
lf[206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\151\137\143\144\162\000"));
lf[207]=C_h_intern(&lf[207],4, C_text("rarg"));
lf[208]=C_h_intern(&lf[208],22, C_text("chicken.base#alist-ref"));
lf[209]=C_h_intern(&lf[209],10, C_text("scheme#eq?"));
lf[210]=C_h_intern(&lf[210],12, C_text("contractable"));
lf[211]=C_h_intern(&lf[211],16, C_text("inline-transient"));
lf[212]=C_h_intern(&lf[212],1, C_text("f"));
lf[213]=C_h_intern(&lf[213],27, C_text("##sys#decompose-lambda-list"));
lf[214]=C_h_intern(&lf[214],34, C_text("chicken.compiler.support#tree-copy"));
lf[215]=C_h_intern(&lf[215],54, C_text("chicken.compiler.support#replace-rest-op-with-list-ops"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\151\137\154\151\163\164\137\162\145\146\000"));
lf[217]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\151\137\143\144\162\000"));
lf[218]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\151\137\147\162\145\141\164\145\162\137\157\162\137\145\161\165\141\154\160\000"));
lf[219]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\151\137\154\145\156\147\164\150\000"));
lf[220]=C_h_intern(&lf[220],18, C_text("##core#rest-length"));
lf[221]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\151\137\154\145\156\147\164\150\000"));
lf[222]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\150\125\156\153\156\157\167\156\040\162\145\163\164\040\157\160\040\156\157\144\145\040\143\154\141\163\163\040\167\150\151\154\145\040\165\156\144\157\151\156\147\040\162\145\163\164\040\157\160\040\146\157\162\040\145\170\160\154\151\143\151\164\154\171\040\143\157\156\163\145\144\040\162\145\163\164\040\141\162\147\056\040\124\150\151\163\040\163\150\157\165\154\144\156\047\164\040\150\141\160\160\145\156\041\000"));
lf[223]=C_h_intern(&lf[223],34, C_text("chicken.compiler.support#copy-node"));
lf[224]=C_h_intern(&lf[224],48, C_text("chicken.compiler.support#emit-global-inline-file"));
lf[225]=C_h_intern(&lf[225],18, C_text("chicken.base#print"));
lf[226]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[227]=C_h_intern(&lf[227],15, C_text("scheme#string<?"));
lf[228]=C_h_intern(&lf[228],17, C_text("chicken.sort#sort"));
lf[229]=C_h_intern(&lf[229],1, C_text("i"));
lf[230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\164\150\145\040\146\157\154\154\157\167\151\156\147\040\160\162\157\143\145\144\165\162\145\163\040\143\141\156\040\142\145\040\147\154\157\142\141\154\154\171\040\151\156\154\151\156\145\144\072\000"));
lf[231]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\073\040\105\116\104\040\117\106\040\106\111\114\105\000"));
lf[232]=C_h_intern(&lf[232],23, C_text("chicken.pretty-print#pp"));
lf[233]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\073\040\107\105\116\105\122\101\124\105\104\040\102\131\040\103\110\111\103\113\105\116\040\000"));
lf[234]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\106\122\117\115\040\000"));
lf[235]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[236]=C_h_intern(&lf[236],32, C_text("chicken.platform#chicken-version"));
lf[237]=C_h_intern(&lf[237],26, C_text("scheme#with-output-to-file"));
lf[238]=C_h_intern(&lf[238],11, C_text("local-value"));
lf[239]=C_h_intern(&lf[239],5, C_text("value"));
lf[240]=C_h_intern(&lf[240],9, C_text("inlinable"));
lf[241]=C_h_intern(&lf[241],3, C_text("yes"));
lf[242]=C_h_intern(&lf[242],2, C_text("no"));
lf[243]=C_h_intern(&lf[243],17, C_text("##compiler#inline"));
lf[244]=C_h_intern(&lf[244],11, C_text("hidden-refs"));
lf[245]=C_h_intern(&lf[245],7, C_text("unknown"));
lf[246]=C_h_intern(&lf[246],24, C_text("##compiler#inline-global"));
lf[247]=C_h_intern(&lf[247],42, C_text("chicken.compiler.support#variable-visible?"));
lf[248]=C_h_intern(&lf[248],36, C_text("chicken.internal#hash-table-for-each"));
lf[249]=C_h_intern(&lf[249],41, C_text("chicken.compiler.support#load-inline-file"));
lf[250]=C_h_intern(&lf[250],10, C_text("##sys#put!"));
lf[251]=C_h_intern(&lf[251],27, C_text("scheme#with-input-from-file"));
lf[252]=C_h_intern(&lf[252],35, C_text("chicken.compiler.support#match-node"));
lf[253]=C_h_intern(&lf[253],1, C_text("a"));
lf[254]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\155\141\164\143\150\145\144\000"));
lf[255]=C_h_intern(&lf[255],53, C_text("chicken.compiler.support#expression-has-side-effects?"));
lf[256]=C_h_intern(&lf[256],49, C_text("chicken.compiler.support#foreign-callback-stub-id"));
lf[257]=C_h_intern(&lf[257],47, C_text("chicken.compiler.support#foreign-callback-stubs"));
lf[258]=C_h_intern(&lf[258],44, C_text("chicken.compiler.support#simple-lambda-node?"));
lf[259]=C_h_intern(&lf[259],47, C_text("chicken.compiler.support#dump-undefined-globals"));
lf[260]=C_h_intern(&lf[260],12, C_text("scheme#write"));
lf[261]=C_h_intern(&lf[261],6, C_text("global"));
lf[262]=C_h_intern(&lf[262],8, C_text("assigned"));
lf[263]=C_h_intern(&lf[263],24, C_text("chicken.keyword#keyword?"));
lf[264]=C_h_intern(&lf[264],45, C_text("chicken.compiler.support#dump-defined-globals"));
lf[265]=C_h_intern(&lf[265],41, C_text("chicken.compiler.support#dump-global-refs"));
lf[266]=C_h_intern(&lf[266],30, C_text("##sys#toplevel-definition-hook"));
lf[267]=C_h_intern(&lf[267],22, C_text("chicken.plist#remprop!"));
lf[268]=C_h_intern(&lf[268],21, C_text("##compiler#visibility"));
lf[269]=C_h_intern(&lf[269],41, C_text("chicken.compiler.support#variable-hidden?"));
lf[270]=C_h_intern(&lf[270],38, C_text("chicken.compiler.support#hide-variable"));
lf[271]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\150\151\144\151\156\147\040\165\156\145\170\160\157\162\164\145\144\040\155\157\144\165\154\145\040\142\151\156\144\151\156\147\000"));
lf[272]=C_h_intern(&lf[272],51, C_text("chicken.compiler.support#make-foreign-callback-stub"));
lf[273]=C_h_intern(&lf[273],46, C_text("chicken.compiler.support#foreign-callback-stub"));
lf[274]=C_h_intern(&lf[274],47, C_text("chicken.compiler.support#foreign-callback-stub?"));
lf[275]=C_h_intern(&lf[275],51, C_text("chicken.compiler.support#foreign-callback-stub-name"));
lf[276]=C_h_intern(&lf[276],57, C_text("chicken.compiler.support#foreign-callback-stub-qualifiers"));
lf[277]=C_h_intern(&lf[277],58, C_text("chicken.compiler.support#foreign-callback-stub-return-type"));
lf[278]=C_h_intern(&lf[278],61, C_text("chicken.compiler.support#foreign-callback-stub-argument-types"));
lf[279]=C_h_intern(&lf[279],56, C_text("chicken.compiler.support#register-foreign-callback-stub!"));
lf[280]=C_h_intern(&lf[280],26, C_text("##compiler#callback-lambda"));
lf[282]=C_h_intern(&lf[282],50, C_text("chicken.compiler.support#clear-foreign-type-table!"));
lf[283]=C_h_intern(&lf[283],19, C_text("scheme#vector-fill!"));
lf[284]=C_h_intern(&lf[284],18, C_text("scheme#make-vector"));
lf[285]=C_h_intern(&lf[285],47, C_text("chicken.compiler.support#register-foreign-type!"));
lf[286]=C_h_intern(&lf[286],44, C_text("chicken.compiler.support#lookup-foreign-type"));
lf[287]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\151\156\164\145\147\145\162\376\002\000\000\004\151\156\164\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\165\156\163\151\147\156\145\144\055\151\156\164\145\147\145\162\376\002\000\000\015\165\156\163\151\147\156\145\144\040\151\156\164\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\151\156\164\145\147\145\162\063\062\376\002\000\000\006\103\137\163\063\062\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\165\156\163\151\147\156\145\144\055\151\156\164\145\147\145\162\063\062\376\002\000\000\006\103\137\165\063\062\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\151\156\164\145\147\145\162\066\064\376\002\000\000\006\103\137\163\066\064\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\165\156\163\151\147\156\145\144\055\151\156\164\145\147\145\162\066\064\376\002\000\000\006\103\137\165\066\064\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\163\150\157\162\164\376\002\000\000\006\163\150\157\162\164\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\165\156\163\151\147\156\145\144\055\163\150\157\162\164\376\002\000\000\017\165\156\163\151\147\156\145\144\040\163\150\157\162\164\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\154\157\156\147\376\002\000\000\005\154\157\156\147\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\165\156\163\151\147\156\145\144\055\154\157\156\147\376\002\000\000\016\165\156\163\151\147\156\145\144\040\154\157\156\147\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\163\163\151\172\145\137\164\376\002\000\000\010\163\163\151\172\145\137\164\000\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\151\172\145\137\164\376\002\000\000\007\163\151\172\145\137\164\000\376\377\016"));
lf[288]=C_h_intern(&lf[288],43, C_text("chicken.compiler.support#foreign-type-check"));
lf[289]=C_h_intern(&lf[289],4, C_text("char"));
lf[290]=C_h_intern(&lf[290],13, C_text("unsigned-char"));
lf[291]=C_h_intern(&lf[291],27, C_text("##sys#foreign-char-argument"));
lf[292]=C_h_intern(&lf[292],3, C_text("int"));
lf[293]=C_h_intern(&lf[293],29, C_text("##sys#foreign-fixnum-argument"));
lf[294]=C_h_intern(&lf[294],5, C_text("float"));
lf[295]=C_h_intern(&lf[295],29, C_text("##sys#foreign-flonum-argument"));
lf[296]=C_h_intern(&lf[296],8, C_text("u8vector"));
lf[297]=C_h_intern(&lf[297],28, C_text("##sys#foreign-block-argument"));
lf[298]=C_h_intern(&lf[298],12, C_text("##core#quote"));
lf[299]=C_h_intern(&lf[299],9, C_text("##core#if"));
lf[300]=C_h_intern(&lf[300],10, C_text("##core#let"));
lf[301]=C_h_intern(&lf[301],22, C_text("nonnull-scheme-pointer"));
lf[302]=C_h_intern(&lf[302],14, C_text("pointer-vector"));
lf[303]=C_h_intern(&lf[303],37, C_text("##sys#foreign-struct-wrapper-argument"));
lf[304]=C_h_intern(&lf[304],22, C_text("nonnull-pointer-vector"));
lf[305]=C_h_intern(&lf[305],9, C_text("u16vector"));
lf[306]=C_h_intern(&lf[306],17, C_text("nonnull-u16vector"));
lf[307]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\156\157\156\156\165\154\154\055\165\070\166\145\143\164\157\162\376\001\000\000\010\001\165\070\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\165\061\066\166\145\143\164\157\162\376\001\000\000\011\001\165\061\066\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\156\157\156\156\165\154\154\055\163\070\166\145\143\164\157\162\376\001\000\000\010\001\163\070\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\163\061\066\166\145\143\164\157\162\376\001\000\000\011\001\163\061\066\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\165\063\062\166\145\143\164\157\162\376\001\000\000\011\001\165\063\062\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\163\063\062\166\145\143\164\157\162\376\001\000\000\011\001\163\063\062\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\165\066\064\166\145\143\164\157\162\376\001\000\000\011\001\165\066\064\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\163\066\064\166\145\143\164\157\162\376\001\000\000\011\001\163\066\064\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\146\063\062\166\145\143\164\157\162\376\001\000\000\011\001\146\063\062\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\146\066\064\166\145\143\164\157\162\376\001\000\000\011\001\146\066\064\166\145\143\164\157\162\376\377\016"));
lf[308]=C_h_intern(&lf[308],7, C_text("complex"));
lf[309]=C_h_intern(&lf[309],7, C_text("cplxnum"));
lf[310]=C_h_intern(&lf[310],30, C_text("##sys#foreign-cplxnum-argument"));
lf[311]=C_h_intern(&lf[311],9, C_text("integer32"));
lf[312]=C_h_intern(&lf[312],6, C_text("format"));
lf[313]=C_h_intern(&lf[313],13, C_text("foreign-value"));
lf[314]=C_h_intern(&lf[314],37, C_text("##sys#foreign-ranged-integer-argument"));
lf[315]=C_h_intern(&lf[315],24, C_text("scheme#get-output-string"));
lf[316]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\051\040\052\040\103\110\101\122\137\102\111\124\000"));
lf[317]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\151\172\145\157\146\050\000"));
lf[318]=C_h_intern(&lf[318],25, C_text("scheme#open-output-string"));
lf[319]=C_h_intern(&lf[319],14, C_text("unsigned-short"));
lf[320]=C_h_intern(&lf[320],46, C_text("##sys#foreign-unsigned-ranged-integer-argument"));
lf[321]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\051\040\052\040\103\110\101\122\137\102\111\124\000"));
lf[322]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\151\172\145\157\146\050\000"));
lf[323]=C_h_intern(&lf[323],9, C_text("c-pointer"));
lf[324]=C_h_intern(&lf[324],30, C_text("##sys#foreign-pointer-argument"));
lf[325]=C_h_intern(&lf[325],17, C_text("nonnull-c-pointer"));
lf[326]=C_h_intern(&lf[326],8, C_text("c-string"));
lf[327]=C_h_intern(&lf[327],10, C_text("##sys#slot"));
lf[328]=C_h_intern(&lf[328],29, C_text("##sys#foreign-string-argument"));
lf[329]=C_h_intern(&lf[329],19, C_text("##sys#make-c-string"));
lf[330]=C_h_intern(&lf[330],16, C_text("nonnull-c-string"));
lf[331]=C_h_intern(&lf[331],6, C_text("symbol"));
lf[332]=C_h_intern(&lf[332],29, C_text("##sys#foreign-symbol-argument"));
lf[333]=C_h_intern(&lf[333],3, C_text("ref"));
lf[334]=C_h_intern(&lf[334],8, C_text("instance"));
lf[335]=C_h_intern(&lf[335],12, C_text("instance-ref"));
lf[336]=C_h_intern(&lf[336],4, C_text("this"));
lf[337]=C_h_intern(&lf[337],8, C_text("slot-ref"));
lf[338]=C_h_intern(&lf[338],6, C_text("struct"));
lf[339]=C_h_intern(&lf[339],5, C_text("union"));
lf[340]=C_h_intern(&lf[340],14, C_text("scheme-pointer"));
lf[341]=C_h_intern(&lf[341],16, C_text("nonnull-instance"));
lf[342]=C_h_intern(&lf[342],5, C_text("const"));
lf[343]=C_h_intern(&lf[343],4, C_text("enum"));
lf[344]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\151\172\145\157\146\050\151\156\164\051\040\052\040\103\110\101\122\137\102\111\124\000"));
lf[345]=C_h_intern(&lf[345],15, C_text("nonnull-pointer"));
lf[346]=C_h_intern(&lf[346],7, C_text("pointer"));
lf[347]=C_h_intern(&lf[347],8, C_text("function"));
lf[348]=C_h_intern(&lf[348],17, C_text("nonnull-c-string*"));
lf[349]=C_h_intern(&lf[349],26, C_text("nonnull-unsigned-c-string*"));
lf[350]=C_h_intern(&lf[350],9, C_text("c-string*"));
lf[351]=C_h_intern(&lf[351],17, C_text("unsigned-c-string"));
lf[352]=C_h_intern(&lf[352],18, C_text("unsigned-c-string*"));
lf[353]=C_h_intern(&lf[353],13, C_text("c-string-list"));
lf[354]=C_h_intern(&lf[354],14, C_text("c-string-list*"));
lf[355]=C_h_intern(&lf[355],13, C_text("unsigned-long"));
lf[356]=C_h_intern(&lf[356],16, C_text("unsigned-integer"));
lf[357]=C_h_intern(&lf[357],6, C_text("size_t"));
lf[358]=C_h_intern(&lf[358],18, C_text("unsigned-integer32"));
lf[359]=C_h_intern(&lf[359],18, C_text("unsigned-integer64"));
lf[360]=C_h_intern(&lf[360],9, C_text("integer64"));
lf[361]=C_h_intern(&lf[361],7, C_text("integer"));
lf[362]=C_h_intern(&lf[362],5, C_text("short"));
lf[363]=C_h_intern(&lf[363],4, C_text("long"));
lf[364]=C_h_intern(&lf[364],7, C_text("ssize_t"));
lf[365]=C_h_intern(&lf[365],16, C_text("nonnull-s8vector"));
lf[366]=C_h_intern(&lf[366],17, C_text("nonnull-s16vector"));
lf[367]=C_h_intern(&lf[367],17, C_text("nonnull-u32vector"));
lf[368]=C_h_intern(&lf[368],17, C_text("nonnull-s32vector"));
lf[369]=C_h_intern(&lf[369],17, C_text("nonnull-u64vector"));
lf[370]=C_h_intern(&lf[370],17, C_text("nonnull-s64vector"));
lf[371]=C_h_intern(&lf[371],17, C_text("nonnull-f32vector"));
lf[372]=C_h_intern(&lf[372],17, C_text("nonnull-f64vector"));
lf[373]=C_h_intern(&lf[373],8, C_text("s8vector"));
lf[374]=C_h_intern(&lf[374],9, C_text("s16vector"));
lf[375]=C_h_intern(&lf[375],9, C_text("u32vector"));
lf[376]=C_h_intern(&lf[376],9, C_text("s32vector"));
lf[377]=C_h_intern(&lf[377],9, C_text("u64vector"));
lf[378]=C_h_intern(&lf[378],9, C_text("s64vector"));
lf[379]=C_h_intern(&lf[379],9, C_text("f32vector"));
lf[380]=C_h_intern(&lf[380],9, C_text("f64vector"));
lf[381]=C_h_intern(&lf[381],18, C_text("nonnull-bytevector"));
lf[382]=C_h_intern(&lf[382],16, C_text("nonnull-u8vector"));
lf[383]=C_h_intern(&lf[383],12, C_text("nonnull-blob"));
lf[384]=C_h_intern(&lf[384],10, C_text("bytevector"));
lf[385]=C_h_intern(&lf[385],4, C_text("blob"));
lf[386]=C_h_intern(&lf[386],6, C_text("double"));
lf[387]=C_h_intern(&lf[387],6, C_text("number"));
lf[388]=C_h_intern(&lf[388],12, C_text("unsigned-int"));
lf[389]=C_h_intern(&lf[389],4, C_text("byte"));
lf[390]=C_h_intern(&lf[390],13, C_text("unsigned-byte"));
lf[391]=C_h_intern(&lf[391],5, C_text("int32"));
lf[392]=C_h_intern(&lf[392],14, C_text("unsigned-int32"));
lf[393]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\123\047\040\162\145\146\145\162\163\040\164\157\040\151\164\163\145\154\146\000"));
lf[396]=C_h_intern(&lf[396],52, C_text("chicken.compiler.support#foreign-type-convert-result"));
lf[397]=C_h_intern(&lf[397],54, C_text("chicken.compiler.support#foreign-type-convert-argument"));
lf[398]=C_h_intern(&lf[398],43, C_text("chicken.compiler.support#final-foreign-type"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\123\047\040\162\145\146\145\162\163\040\164\157\040\151\164\163\145\154\146\000"));
lf[400]=C_h_intern(&lf[400],53, C_text("chicken.compiler.support#estimate-foreign-result-size"));
lf[401]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\071\143\141\156\156\157\164\040\143\157\155\160\165\164\145\040\163\151\172\145\040\146\157\162\040\165\156\153\156\157\167\156\040\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\123\047\040\162\145\163\165\154\164\000"));
lf[402]=C_h_intern(&lf[402],4, C_text("bool"));
lf[403]=C_h_intern(&lf[403],4, C_text("void"));
lf[404]=C_h_intern(&lf[404],13, C_text("scheme-object"));
lf[405]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\123\047\040\162\145\146\145\162\163\040\164\157\040\151\164\163\145\154\146\000"));
lf[406]=C_h_intern(&lf[406],62, C_text("chicken.compiler.support#estimate-foreign-result-location-size"));
lf[407]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\066\143\141\156\156\157\164\040\143\157\155\160\165\164\145\040\163\151\172\145\040\157\146\040\154\157\143\141\164\151\157\156\040\146\157\162\040\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\123\047\000"));
lf[408]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\123\047\040\162\145\146\145\162\163\040\164\157\040\151\164\163\145\154\146\000"));
lf[409]=C_h_intern(&lf[409],46, C_text("chicken.compiler.support#finish-foreign-result"));
lf[410]=C_h_intern(&lf[410],19, C_text("##sys#peek-c-string"));
lf[411]=C_h_intern(&lf[411],27, C_text("##sys#peek-nonnull-c-string"));
lf[412]=C_h_intern(&lf[412],28, C_text("##sys#peek-and-free-c-string"));
lf[413]=C_h_intern(&lf[413],36, C_text("##sys#peek-and-free-nonnull-c-string"));
lf[414]=C_h_intern(&lf[414],20, C_text("##sys#string->symbol"));
lf[415]=C_h_intern(&lf[415],24, C_text("##sys#peek-c-string-list"));
lf[416]=C_h_intern(&lf[416],33, C_text("##sys#peek-and-free-c-string-list"));
lf[417]=C_h_intern(&lf[417],17, C_text("##sys#wrap-struct"));
lf[418]=C_h_intern(&lf[418],19, C_text("##sys#null-pointer?"));
lf[419]=C_h_intern(&lf[419],3, C_text("not"));
lf[420]=C_h_intern(&lf[420],4, C_text("make"));
lf[421]=C_h_intern(&lf[421],3, C_text("and"));
lf[422]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\143\055\163\164\162\151\156\147\376\003\000\000\002\376\001\000\000\011\001\143\055\163\164\162\151\156\147\052\376\003\000\000\002\376\001\000\000\021\001\165\156\163\151\147\156\145\144\055\143\055\163\164\162\151\156\147\376\003\000\000\002\376\001\000\000\022\001\165\156\163\151\147\156\145\144\055\143\055\163\164\162\151\156\147\052\376\003\000\000\002\376\001\000\000\020\001\156\157\156\156\165\154\154\055\143\055\163\164\162\151\156\147\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\143\055\163\164\162\151\156\147\052\376\003\000\000\002\376\001\000\000\030\001\156\157\156\156\165\154\154\055\165\156\163\151\147\156\145\144\055\163\164\162\151\156\147\052\376\377\016"));
lf[423]=C_h_intern(&lf[423],27, C_text("chicken.syntax#strip-syntax"));
lf[424]=C_h_intern(&lf[424],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type"));
lf[425]=C_h_intern(&lf[425],9, C_text("undefined"));
lf[426]=C_h_intern(&lf[426],3, C_text("arg"));
lf[427]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\012\001\142\171\164\145\166\145\143\164\157\162\376\377\016"));
lf[428]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\016\001\160\157\151\156\164\145\162\055\166\145\143\164\157\162\376\377\016"));
lf[429]=C_h_intern(&lf[429],2, C_text("or"));
lf[430]=C_h_intern(&lf[430],5, C_text("false"));
lf[431]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\010\001\163\070\166\145\143\164\157\162\376\377\016"));
lf[432]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\165\061\066\166\145\143\164\157\162\376\377\016"));
lf[433]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\163\061\066\166\145\143\164\157\162\376\377\016"));
lf[434]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\165\063\062\166\145\143\164\157\162\376\377\016"));
lf[435]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\163\063\062\166\145\143\164\157\162\376\377\016"));
lf[436]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\165\066\064\166\145\143\164\157\162\376\377\016"));
lf[437]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\163\066\064\166\145\143\164\157\162\376\377\016"));
lf[438]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\146\063\062\166\145\143\164\157\162\376\377\016"));
lf[439]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\164\162\165\143\164\376\003\000\000\002\376\001\000\000\011\001\146\066\064\166\145\143\164\157\162\376\377\016"));
lf[440]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\010\001\154\157\143\141\164\151\166\145\376\377\016"));
lf[441]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\377\016"));
lf[442]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\010\001\154\157\143\141\164\151\166\145\376\377\016"));
lf[443]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\377\016"));
lf[444]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001\154\151\163\164\055\157\146\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\377\016"));
lf[445]=C_h_intern(&lf[445],6, C_text("string"));
lf[446]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\010\001\154\157\143\141\164\151\166\145\376\377\016"));
lf[447]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\005\001\146\141\154\163\145\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\377\016"));
lf[448]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\010\001\154\157\143\141\164\151\166\145\376\377\016"));
lf[449]=C_h_intern(&lf[449],6, C_text("result"));
lf[450]=C_h_intern(&lf[450],44, C_text("chicken.compiler.support#scan-used-variables"));
lf[451]=C_h_intern(&lf[451],44, C_text("chicken.compiler.support#scan-free-variables"));
lf[452]=C_h_intern(&lf[452],52, C_text("chicken.compiler.support#make-block-variable-literal"));
lf[453]=C_h_intern(&lf[453],47, C_text("chicken.compiler.support#block-variable-literal"));
lf[454]=C_h_intern(&lf[454],48, C_text("chicken.compiler.support#block-variable-literal?"));
lf[455]=C_h_intern(&lf[455],52, C_text("chicken.compiler.support#block-variable-literal-name"));
lf[456]=C_h_intern(&lf[456],28, C_text("chicken.time#current-seconds"));
lf[458]=C_h_intern(&lf[458],47, C_text("chicken.compiler.support#clear-real-name-table!"));
lf[459]=C_h_intern(&lf[459],39, C_text("chicken.compiler.support#set-real-name!"));
lf[460]=C_h_intern(&lf[460],38, C_text("chicken.compiler.support#get-real-name"));
lf[461]=C_h_intern(&lf[461],33, C_text("chicken.string#string-intersperse"));
lf[462]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\151\156\040\000"));
lf[463]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\056\056\000"));
lf[464]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\151\156\040\000"));
lf[465]=C_h_intern(&lf[465],12, C_text("contained-in"));
lf[466]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\151\156\040\000"));
lf[467]=C_h_intern(&lf[467],35, C_text("chicken.compiler.support#real-name2"));
lf[468]=C_h_intern(&lf[468],48, C_text("chicken.compiler.support#display-real-name-table"));
lf[469]=C_h_intern(&lf[469],44, C_text("chicken.compiler.support#source-info->string"));
lf[470]=C_h_intern(&lf[470],19, C_text("chicken.string#conc"));
lf[471]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000"));
lf[472]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[473]=C_h_intern(&lf[473],18, C_text("scheme#make-string"));
lf[474]=C_h_intern(&lf[474],10, C_text("scheme#max"));
lf[475]=C_h_intern(&lf[475],42, C_text("chicken.compiler.support#source-info->name"));
lf[476]=C_h_intern(&lf[476],42, C_text("chicken.compiler.support#source-info->line"));
lf[477]=C_h_intern(&lf[477],34, C_text("chicken.compiler.support#call-info"));
lf[478]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000"));
lf[479]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000"));
lf[480]=C_h_intern(&lf[480],43, C_text("chicken.compiler.support#constant-form-eval"));
lf[481]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\146\157\154\144\145\144\040\143\157\156\163\164\141\156\164\040\145\170\160\162\145\163\163\151\157\156\000"));
lf[482]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\105\141\164\164\145\155\160\164\040\164\157\040\143\157\156\163\164\141\156\164\055\146\157\154\144\040\143\141\154\154\040\164\157\040\160\162\157\143\145\144\165\162\145\040\164\150\141\164\040\150\141\163\040\155\165\154\164\151\160\154\145\040\162\145\163\165\154\164\163\000"));
lf[484]=C_h_intern(&lf[484],28, C_text("chicken.condition#condition?"));
lf[485]=C_h_intern(&lf[485],10, C_text("##sys#list"));
lf[486]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\057\141\164\164\145\155\160\164\040\164\157\040\143\157\156\163\164\141\156\164\055\146\157\154\144\040\143\141\154\154\040\164\157\040\156\157\156\055\160\162\157\143\145\144\165\162\145\000"));
lf[487]=C_h_intern(&lf[487],49, C_text("chicken.compiler.support#maybe-constant-fold-call"));
lf[488]=C_h_intern(&lf[488],35, C_text("chicken.compiler.support#predicate?"));
lf[489]=C_h_intern(&lf[489],34, C_text("chicken.compiler.support#foldable?"));
lf[490]=C_h_intern(&lf[490],20, C_text("##compiler#intrinsic"));
lf[491]=C_h_intern(&lf[491],20, C_text("##sys#number->string"));
lf[492]=C_h_intern(&lf[492],27, C_text("##sys#symbol->string/shared"));
lf[493]=C_h_intern(&lf[493],35, C_text("chicken.compiler.support#dump-nodes"));
lf[494]=C_h_intern(&lf[494],21, C_text("##sys#write-char/port"));
lf[495]=C_h_intern(&lf[495],41, C_text("chicken.compiler.support#read/source-info"));
lf[496]=C_h_intern(&lf[496],36, C_text("chicken.syntax#read-with-source-info"));
lf[497]=C_h_intern(&lf[497],20, C_text("##sys#user-read-hook"));
lf[498]=C_h_intern(&lf[498],15, C_text("foreign-declare"));
lf[499]=C_h_intern(&lf[499],7, C_text("declare"));
lf[500]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\140\043\076\040\056\056\056\040\074\043\047\040\163\145\161\165\145\156\143\145\000"));
lf[501]=C_h_intern(&lf[501],20, C_text("##sys#read-char/port"));
lf[502]=C_h_intern(&lf[502],25, C_text("chicken.platform#feature?"));
lf[503]=C_h_intern_kw(&lf[503],5, C_text("64bit"));
lf[504]=C_h_intern(&lf[504],38, C_text("chicken.compiler.support#small-bignum?"));
lf[505]=C_h_intern(&lf[505],6, C_text("hidden"));
lf[506]=C_h_intern(&lf[506],40, C_text("chicken.compiler.support#export-variable"));
lf[507]=C_h_intern(&lf[507],8, C_text("exported"));
lf[508]=C_h_intern(&lf[508],38, C_text("chicken.compiler.support#mark-variable"));
lf[509]=C_h_intern(&lf[509],38, C_text("chicken.compiler.support#variable-mark"));
lf[510]=C_h_intern(&lf[510],35, C_text("chicken.compiler.support#intrinsic?"));
lf[511]=C_h_intern(&lf[511],19, C_text("##compiler#foldable"));
lf[512]=C_h_intern(&lf[512],20, C_text("##compiler#predicate"));
lf[513]=C_h_intern(&lf[513],49, C_text("chicken.compiler.support#load-identifier-database"));
lf[514]=C_h_intern(&lf[514],9, C_text("##core#db"));
lf[515]=C_h_intern(&lf[515],27, C_text("scheme#call-with-input-file"));
lf[516]=C_h_intern(&lf[516],1, C_text("p"));
lf[517]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\056\056\056\000"));
lf[518]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\154\157\141\144\151\156\147\040\151\144\145\156\164\151\146\151\145\162\040\144\141\164\141\142\141\163\145\040\000"));
lf[519]=C_h_intern(&lf[519],22, C_text("chicken.load#find-file"));
lf[520]=C_h_intern(&lf[520],32, C_text("chicken.platform#repository-path"));
lf[521]=C_h_intern(&lf[521],38, C_text("chicken.compiler.support#print-version"));
lf[522]=C_h_intern(&lf[522],19, C_text("chicken.base#print*"));
lf[523]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\104\103\110\111\103\113\105\116\012\050\143\051\062\060\060\060\055\062\060\060\067\040\106\145\154\151\170\040\114\056\040\127\151\156\153\145\154\155\141\156\156\054\040\050\143\051\062\060\060\070\040\124\150\145\040\103\110\111\103\113\105\116\040\124\145\141\155\012\000"));
lf[524]=C_h_intern(&lf[524],36, C_text("chicken.compiler.support#print-usage"));
lf[525]=C_decode_literal(C_heaptop,C_text("\376\002\000\031\142\125\163\141\147\145\072\040\143\150\151\143\153\145\156\040\106\111\114\105\116\101\115\105\040\133\117\120\124\111\117\116\040\056\056\056\135\012\012\040\040\140\143\150\151\143\153\145\156\047\040\151\163\040\164\150\145\040\103\110\111\103\113\105\116\040\143\157\155\160\151\154\145\162\056\012\012\040\040\106\111\114\105\116\101\115\105\040\163\150\157\165\154\144\040\142\145\040\141\040\143\157\155\160\154\145\164\145\040\163\157\165\162\143\145\040\146\151\154\145\040\156\141\155\145\040\167\151\164\150\040\145\170\164\145\156\163\151\157\156\054\040\157\162\040\042\055\042\040\146\157\162\012\040\040\163\164\141\156\144\141\162\144\040\151\156\160\165\164\056\040\117\120\124\111\117\116\040\155\141\171\040\142\145\040\157\156\145\040\157\146\040\164\150\145\040\146\157\154\154\157\167\151\156\147\072\012\012\040\040\107\145\156\145\162\141\154\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\150\145\154\160\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\160\154\141\171\040\164\150\151\163\040\164\145\170\164\040\141\156\144\040\145\170\151\164\012\040\040\040\040\055\166\145\162\163\151\157\156\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\160\154\141\171\040\143\157\155\160\151\154\145\162\040\166\145\162\163\151\157\156\040\141\156\144\040\145\170\151\164\012\040\040\040\040\055\162\145\154\145\141\163\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\160\162\151\156\164\040\162\145\154\145\141\163\145\040\156\165\155\142\145\162\040\141\156\144\040\145\170\151\164\012\040\040\040\040\055\166\145\162\142\157\163\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\160\154\141\171\040\151\156\146\157\162\155\141\164\151\157\156\040\157\156\040\143\157\155\160\151\154\141\164\151\157\156\040\160\162\157\147\162\145\163\163\012\012\040\040\106\151\154\145\040\141\156\144\040\160\141\164\150\156\141\155\145\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\157\165\164\160\165\164\055\146\151\154\145\040\106\111\114\105\116\101\115\105\040\040\040\040\040\040\040\040\163\160\145\143\151\146\151\145\163\040\157\165\164\160\165\164\055\146\151\154\145\156\141\155\145\054\040\144\145\146\141\165\154\164\040\151\163\040\047\157\165\164\056\143\047\012\040\040\040\040\055\151\156\143\154\165\144\145\055\160\141\164\150\040\120\101\124\110\116\101\115\105\040\040\040\040\040\040\040\163\160\145\143\151\146\151\145\163\040\141\154\164\145\162\156\141\164\151\166\145\040\160\141\164\150\040\146\157\162\040\151\156\143\154\165\144\145\144\040\146\151\154\145\163\012\040\040\040\040\055\164\157\055\163\164\144\157\165\164\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\167\162\151\164\145\040\143\157\155\160\151\154\145\144\040\146\151\154\145\040\164\157\040\163\164\144\157\165\164\040\151\156\163\164\145\141\144\040\157\146\040\146\151\154\145\012\012\040\040\114\141\156\147\165\141\147\145\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\146\145\141\164\165\162\145\040\123\131\115\102\117\114\040\040\040\040\040\040\040\040\040\040\040\040\040\040\162\145\147\151\163\164\145\162\040\146\145\141\164\165\162\145\040\151\144\145\156\164\151\146\151\145\162\012\040\040\040\040\055\156\157\055\146\145\141\164\165\162\145\040\123\131\115\102\117\114\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\142\165\151\154\164\055\151\156\040\146\145\141\164\165\162\145\040\151\144\145\156\164\151\146\151\145\162\012\012\040\040\123\171\156\164\141\170\040\162\145\154\141\164\145\144\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\143\141\163\145\055\151\156\163\145\156\163\151\164\151\166\145\040\040\040\040\040\040\040\040\040\040\040\040\144\157\156\047\164\040\160\162\145\163\145\162\166\145\040\143\141\163\145\040\157\146\040\162\145\141\144\040\163\171\155\142\157\154\163\012\040\040\040\040\055\153\145\171\167\157\162\144\055\163\164\171\154\145\040\123\124\131\114\105\040\040\040\040\040\040\040\040\040\141\154\154\157\167\040\141\154\164\145\162\156\141\164\151\166\145\040\153\145\171\167\157\162\144\040\163\171\156\164\141\170\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\050\160\162\145\146\151\170\054\040\163\165\146\146\151\170\040\157\162\040\156\157\156\145\051\012\040\040\040\040\055\156\157\055\160\141\162\145\156\164\150\145\163\145\163\055\163\171\156\157\156\171\155\163\040\040\040\040\040\144\151\163\141\142\154\145\163\040\154\151\163\164\040\144\145\154\151\155\151\164\145\162\040\163\171\156\157\156\171\155\163\012\040\040\040\040\055\162\067\162\163\055\163\171\156\164\141\170\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\163\040\164\150\145\040\103\110\111\103\113\105\116\040\145\170\164\145\156\163\151\157\156\163\040\164\157\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\122\067\122\123\040\163\171\156\164\141\170\012\040\040\040\040\055\143\157\155\160\151\154\145\055\163\171\156\164\141\170\040\040\040\040\040\040\040\040\040\040\040\040\040\040\155\141\143\162\157\163\040\141\162\145\040\155\141\144\145\040\141\166\141\151\154\141\142\154\145\040\141\164\040\162\165\156\055\164\151\155\145\012\040\040\040\040\055\145\155\151\164\055\151\155\160\157\162\164\055\154\151\142\162\141\162\171\040\115\117\104\125\114\105\040\040\167\162\151\164\145\040\143\157\155\160\151\154\145\055\164\151\155\145\040\155\157\144\165\154\145\040\151\156\146\157\162\155\141\164\151\157\156\040\151\156\164\157\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\163\145\160\141\162\141\164\145\040\146\151\154\145\012\040\040\040\040\055\145\155\151\164\055\141\154\154\055\151\155\160\157\162\164\055\154\151\142\162\141\162\151\145\163\040\040\040\145\155\151\164\040\151\155\160\157\162\164\055\154\151\142\162\141\162\151\145\163\040\146\157\162\040\141\154\154\040\144\145\146\151\156\145\144\040\155\157\144\165\154\145\163\012\040\040\040\040\055\156\157\055\143\157\155\160\151\154\145\162\055\163\171\156\164\141\170\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\145\170\160\141\156\163\151\157\156\040\157\146\040\143\157\155\160\151\154\145\162\055\155\141\143\162\157\163\012\040\040\040\040\055\155\157\144\165\154\145\040\116\101\115\105\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\167\162\141\160\040\143\157\155\160\151\154\145\144\040\143\157\144\145\040\151\156\040\141\040\155\157\144\165\154\145\012\040\040\040\040\055\155\157\144\165\154\145\055\162\145\147\151\163\164\162\141\164\151\157\156\040\040\040\040\040\040\040\040\040\141\154\167\141\171\163\040\147\145\156\145\162\141\164\145\040\155\157\144\165\154\145\040\162\145\147\151\163\164\162\141\164\151\157\156\040\143\157\144\145\012\040\040\040\040\055\156\157\055\155\157\144\165\154\145\055\162\145\147\151\163\164\162\141\164\151\157\156\040\040\040\040\040\040\156\145\166\145\162\040\147\145\156\145\162\141\164\145\040\155\157\144\165\154\145\040\162\145\147\151\163\164\162\141\164\151\157\156\040\143\157\144\145\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\050\157\166\145\162\162\151\144\145\163\040\140\055\155\157\144\165\154\145\055\162\145\147\151\163\164\162\141\164\151\157\156\047\051\012\012\040\040\124\162\141\156\163\154\141\164\151\157\156\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\145\170\160\154\151\143\151\164\055\165\163\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\157\040\156\157\164\040\165\163\145\040\165\156\151\164\163\040\047\154\151\142\162\141\162\171\047\040\141\156\144\040\047\145\166\141\154\047\040\142\171\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\145\146\141\165\154\164\012\040\040\040\040\055\143\150\145\143\153\055\163\171\156\164\141\170\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\163\164\157\160\040\143\157\155\160\151\154\141\164\151\157\156\040\141\146\164\145\162\040\155\141\143\162\157\055\145\170\160\141\156\163\151\157\156\012\040\040\040\040\055\141\156\141\154\171\172\145\055\157\156\154\171\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\163\164\157\160\040\143\157\155\160\151\154\141\164\151\157\156\040\141\146\164\145\162\040\146\151\162\163\164\040\141\156\141\154\171\163\151\163\040\160\141\163\163\012\012\040\040\104\145\142\165\147\147\151\156\147\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\156\157\055\167\141\162\156\151\156\147\163\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\167\141\162\156\151\156\147\163\012\040\040\040\040\055\144\145\142\165\147\055\154\145\166\145\154\040\116\125\115\102\105\122\040\040\040\040\040\040\040\040\040\040\163\145\164\040\154\145\166\145\154\040\157\146\040\141\166\141\151\154\141\142\154\145\040\144\145\142\165\147\147\151\156\147\040\151\156\146\157\162\155\141\164\151\157\156\012\040\040\040\040\055\156\157\055\164\162\141\143\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\164\162\141\143\151\156\147\040\151\156\146\157\162\155\141\164\151\157\156\012\040\040\040\040\055\144\145\142\165\147\055\151\156\146\157\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\145\156\141\142\154\145\040\144\145\142\165\147\055\151\156\146\157\162\155\141\164\151\157\156\040\151\156\040\143\157\155\160\151\154\145\144\040\143\157\144\145\040\146\157\162\040\165\163\145\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\167\151\164\150\040\141\156\040\145\170\164\145\162\156\141\154\040\144\145\142\165\147\147\145\162\012\040\040\040\040\055\160\162\157\146\151\154\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\145\170\145\143\165\164\141\142\154\145\040\145\155\151\164\163\040\160\162\157\146\151\154\151\156\147\040\151\156\146\157\162\155\141\164\151\157\156\012\040\040\040\040\055\160\162\157\146\151\154\145\055\156\141\155\145\040\106\111\114\105\116\101\115\105\040\040\040\040\040\040\040\156\141\155\145\040\157\146\040\164\150\145\040\147\145\156\145\162\141\164\145\144\040\160\162\157\146\151\154\145\040\151\156\146\157\162\155\141\164\151\157\156\040\146\151\154\145\012\040\040\040\040\055\141\143\143\165\155\165\154\141\164\145\055\160\162\157\146\151\154\145\040\040\040\040\040\040\040\040\040\040\145\170\145\143\165\164\141\142\154\145\040\145\155\151\164\163\040\160\162\157\146\151\154\151\156\147\040\151\156\146\157\162\155\141\164\151\157\156\040\151\156\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\141\160\160\145\156\144\040\155\157\144\145\012\040\040\040\040\055\156\157\055\154\141\155\142\144\141\055\151\156\146\157\040\040\040\040\040\040\040\040\040\040\040\040\040\040\157\155\151\164\040\141\144\144\151\164\151\157\156\141\154\040\160\162\157\143\145\144\165\162\145\055\151\156\146\157\162\155\141\164\151\157\156\012\040\040\040\040\055\145\155\151\164\055\164\171\160\145\163\055\146\151\154\145\040\106\111\114\105\116\101\115\105\040\040\040\040\167\162\151\164\145\040\164\171\160\145\055\144\145\143\154\141\162\141\164\151\157\156\040\151\156\146\157\162\155\141\164\151\157\156\040\151\156\164\157\040\146\151\154\145\012\040\040\040\040\055\143\157\156\163\165\154\164\055\164\171\160\145\163\055\146\151\154\145\040\106\111\114\105\116\101\115\105\040\154\157\141\144\040\141\144\144\151\164\151\157\156\141\154\040\164\171\160\145\040\144\141\164\141\142\141\163\145\012\012\040\040\117\160\164\151\155\151\172\141\164\151\157\156\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\157\160\164\151\155\151\172\145\055\154\145\166\145\154\040\116\125\115\102\105\122\040\040\040\040\040\040\040\145\156\141\142\154\145\040\143\145\162\164\141\151\156\040\163\145\164\163\040\157\146\040\157\160\164\151\155\151\172\141\164\151\157\156\040\157\160\164\151\157\156\163\012\040\040\040\040\055\157\160\164\151\155\151\172\145\055\154\145\141\146\055\162\157\165\164\151\156\145\163\040\040\040\040\040\040\145\156\141\142\154\145\040\154\145\141\146\040\162\157\165\164\151\156\145\040\157\160\164\151\155\151\172\141\164\151\157\156\012\040\040\040\040\055\156\157\055\165\163\165\141\154\055\151\156\164\145\147\162\141\164\151\157\156\163\040\040\040\040\040\040\040\163\164\141\156\144\141\162\144\040\160\162\157\143\145\144\165\162\145\163\040\155\141\171\040\142\145\040\162\145\144\145\146\151\156\145\144\012\040\040\040\040\055\165\156\163\141\146\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\141\154\154\040\163\141\146\145\164\171\040\143\150\145\143\153\163\012\040\040\040\040\055\154\157\143\141\154\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\141\163\163\165\155\145\040\147\154\157\142\141\154\163\040\141\162\145\040\157\156\154\171\040\155\157\144\151\146\151\145\144\040\151\156\040\143\165\162\162\145\156\164\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\146\151\154\145\012\040\040\040\040\055\142\154\157\143\153\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\145\156\141\142\154\145\040\142\154\157\143\153\055\143\157\155\160\151\154\141\164\151\157\156\012\040\040\040\040\055\144\151\163\141\142\154\145\055\151\156\164\145\162\162\165\160\164\163\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\151\156\164\145\162\162\165\160\164\163\040\151\156\040\143\157\155\160\151\154\145\144\040\143\157\144\145\012\040\040\040\040\055\146\151\170\156\165\155\055\141\162\151\164\150\155\145\164\151\143\040\040\040\040\040\040\040\040\040\040\040\141\163\163\165\155\145\040\141\154\154\040\156\165\155\142\145\162\163\040\141\162\145\040\146\151\170\156\165\155\163\012\040\040\040\040\055\144\151\163\141\142\154\145\055\163\164\141\143\153\055\157\166\145\162\146\154\157\167\055\143\150\145\143\153\163\040\040\144\151\163\141\142\154\145\163\040\144\145\164\145\143\164\151\157\156\040\157\146\040\163\164\141\143\153\055\157\166\145\162\146\154\157\167\163\012\040\040\040\040\055\151\156\154\151\156\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\145\156\141\142\154\145\040\151\156\154\151\156\151\156\147\012\040\040\040\040\055\151\156\154\151\156\145\055\154\151\155\151\164\040\114\111\115\111\124\040\040\040\040\040\040\040\040\040\040\163\145\164\040\151\156\154\151\156\151\156\147\040\164\150\162\145\163\150\157\154\144\012\040\040\040\040\055\151\156\154\151\156\145\055\147\154\157\142\141\154\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\145\156\141\142\154\145\040\143\162\157\163\163\055\155\157\144\165\154\145\040\151\156\154\151\156\151\156\147\012\040\040\040\040\055\163\160\145\143\151\141\154\151\172\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\160\145\162\146\157\162\155\040\164\171\160\145\055\142\141\163\145\144\040\163\160\145\143\151\141\154\151\172\141\164\151\157\156\040\157\146\040\160\162\151\155\151\164\151\166\145\040\143\141\154\154\163\012\040\040\040\040\055\145\155\151\164\055\151\156\154\151\156\145\055\146\151\154\145\040\106\111\114\105\116\101\115\105\040\040\040\147\145\156\145\162\141\164\145\040\146\151\154\145\040\167\151\164\150\040\147\154\157\142\141\154\154\171\040\151\156\154\151\156\141\142\154\145\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\160\162\157\143\145\144\165\162\145\163\040\050\151\155\160\154\151\145\163\040\055\151\156\154\151\156\145\040\055\154\157\143\141\154\051\012\040\040\040\040\055\143\157\156\163\165\154\164\055\151\156\154\151\156\145\055\146\151\154\145\040\106\111\114\105\116\101\115\105\040\040\145\170\160\154\151\143\151\164\154\171\040\154\157\141\144\040\151\156\154\151\156\145\040\146\151\154\145\012\040\040\040\040\055\156\157\055\141\162\147\143\055\143\150\145\143\153\163\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\141\162\147\165\155\145\156\164\040\143\157\165\156\164\040\143\150\145\143\153\163\012\040\040\040\040\055\156\157\055\142\157\165\156\144\055\143\150\145\143\153\163\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\142\157\165\156\144\040\166\141\162\151\141\142\154\145\040\143\150\145\143\153\163\012\040\040\040\040\055\156\157\055\160\162\157\143\145\144\165\162\145\055\143\150\145\143\153\163\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\040\143\150\145\143\153\163\012\040\040\040\040\055\156\157\055\160\162\157\143\145\144\165\162\145\055\143\150\145\143\153\163\055\146\157\162\055\165\163\165\141\154\055\142\151\156\144\151\156\147\163\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\040\143\150\145\143\153\163\040\157\156\154\171\040\146\157\162\040\165\163\165\141\154\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\142\151\156\144\151\156\147\163\012\040\040\040\040\055\156\157\055\160\162\157\143\145\144\165\162\145\055\143\150\145\143\153\163\055\146\157\162\055\164\157\160\154\145\166\145\154\055\142\151\156\144\151\156\147\163\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\141\142\154\145\040\160\162\157\143\145\144\165\162\145\040\143\141\154\154\040\143\150\145\143\153\163\040\146\157\162\040\164\157\160\154\145\166\145\154\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\142\151\156\144\151\156\147\163\012\040\040\040\040\055\163\164\162\151\143\164\055\164\171\160\145\163\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\141\163\163\165\155\145\040\166\141\162\151\141\142\154\145\040\144\157\040\156\157\164\040\143\150\141\156\147\145\040\164\150\145\151\162\040\164\171\160\145\012\040\040\040\040\055\154\146\141\062\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\160\145\162\146\157\162\155\040\141\144\144\151\164\151\157\156\141\154\040\154\151\147\150\164\167\145\151\147\150\164\040\146\154\157\167\055\141\156\141\154\171\163\151\163\040\160\141\163\163\012\040\040\040\040\055\165\156\162\157\154\154\055\154\151\155\151\164\040\114\111\115\111\124\040\040\040\040\040\040\040\040\040\040\163\160\145\143\151\146\151\145\163\040\151\156\154\151\156\151\156\147\040\154\151\155\151\164\040\146\157\162\040\163\145\154\146\055\162\145\143\165\162\163\151\166\145\040\143\141\154\154\163\012\040\040\040\040\055\155\145\162\147\145\055\162\145\163\165\141\142\154\145\055\143\154\157\163\165\162\145\163\040\040\040\040\040\145\156\141\142\154\145\163\040\143\154\157\163\165\162\145\040\162\145\165\163\145\012\040\040\040\040\055\155\145\162\147\145\055\163\150\141\162\145\141\142\154\145\055\143\154\157\163\165\162\145\163\040\040\040\040\145\156\141\142\154\145\163\040\143\154\157\163\165\162\145\040\163\150\141\162\151\156\147\012\012\040\040\103\157\156\146\151\147\165\162\141\164\151\157\156\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\165\156\151\164\040\116\101\115\105\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\143\157\155\160\151\154\145\040\146\151\154\145\040\141\163\040\141\040\154\151\142\162\141\162\171\040\165\156\151\164\012\040\040\040\040\055\165\163\145\163\040\116\101\115\105\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\145\143\154\141\162\145\040\154\151\142\162\141\162\171\040\165\156\151\164\040\141\163\040\165\163\145\144\056\012\040\040\040\040\055\150\145\141\160\055\163\151\172\145\040\116\125\115\102\105\122\040\040\040\040\040\040\040\040\040\040\040\040\163\160\145\143\151\146\151\145\163\040\150\145\141\160\055\163\151\172\145\040\157\146\040\143\157\155\160\151\154\145\144\040\145\170\145\143\165\164\141\142\154\145\012\040\040\040\040\055\156\165\162\163\145\162\171\040\116\125\115\102\105\122\040\040\055\163\164\141\143\153\055\163\151\172\145\040\116\125\115\102\105\122\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\163\160\145\143\151\146\151\145\163\040\156\165\162\163\145\162\171\040\163\151\172\145\040\157\146\040\143\157\155\160\151\154\145\144\040\145\170\145\143\165\164\141\142\154\145\012\040\040\040\040\055\145\170\164\145\156\144\040\106\111\114\105\116\101\115\105\040\040\040\040\040\040\040\040\040\040\040\040\040\154\157\141\144\040\146\151\154\145\040\142\145\146\157\162\145\040\143\157\155\160\151\154\141\164\151\157\156\040\143\157\155\155\145\156\143\145\163\012\040\040\040\040\055\160\162\145\154\165\144\145\040\105\130\120\122\105\123\123\111\117\116\040\040\040\040\040\040\040\040\040\040\141\144\144\040\145\170\160\162\145\163\163\151\157\156\040\164\157\040\146\162\157\156\164\040\157\146\040\163\157\165\162\143\145\040\146\151\154\145\012\040\040\040\040\055\160\157\163\164\154\165\144\145\040\105\130\120\122\105\123\123\111\117\116\040\040\040\040\040\040\040\040\040\141\144\144\040\145\170\160\162\145\163\163\151\157\156\040\164\157\040\145\156\144\040\157\146\040\163\157\165\162\143\145\040\146\151\154\145\012\040\040\040\040\055\160\162\157\154\157\147\165\145\040\106\111\114\105\116\101\115\105\040\040\040\040\040\040\040\040\040\040\040\151\156\143\154\165\144\145\040\146\151\154\145\040\142\145\146\157\162\145\040\155\141\151\156\040\163\157\165\162\143\145\040\146\151\154\145\012\040\040\040\040\055\145\160\151\154\157\147\165\145\040\106\111\114\105\116\101\115\105\040\040\040\040\040\040\040\040\040\040\040\151\156\143\154\165\144\145\040\146\151\154\145\040\141\146\164\145\162\040\155\141\151\156\040\163\157\165\162\143\145\040\146\151\154\145\012\040\040\040\040\055\144\171\156\141\155\151\143\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\143\157\155\160\151\154\145\040\141\163\040\144\171\156\141\155\151\143\141\154\154\171\040\154\157\141\144\141\142\154\145\040\143\157\144\145\012\040\040\040\040\055\162\145\161\165\151\162\145\055\145\170\164\145\156\163\151\157\156\040\116\101\115\105\040\040\040\040\040\040\162\145\161\165\151\162\145\040\141\156\144\040\151\155\160\157\162\164\040\145\170\164\145\156\163\151\157\156\040\116\101\115\105\012\012\040\040\117\142\163\143\165\162\145\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\055\144\145\142\165\147\040\115\117\104\105\123\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\151\163\160\154\141\171\040\144\145\142\165\147\147\151\156\147\040\157\165\164\160\165\164\040\146\157\162\040\164\150\145\040\147\151\166\145\156\040\155\157\144\145\163\012\040\040\040\040\055\162\141\167\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\157\040\156\157\164\040\147\145\156\145\162\141\164\145\040\151\155\160\154\151\143\151\164\040\151\156\151\164\055\040\141\156\144\040\145\170\151\164\040\143\157\144\145\012\040\040\040\040\055\145\155\151\164\055\145\170\164\145\162\156\141\154\055\160\162\157\164\157\164\171\160\145\163\055\146\151\162\163\164\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\145\155\151\164\040\160\162\157\164\157\164\171\160\145\163\040\146\157\162\040\143\141\154\154\142\141\143\153\163\040\142\145\146\157\162\145\040\146\157\162\145\151\147\156\012\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\144\145\143\154\141\162\141\164\151\157\156\163\012\040\040\040\040\055\162\145\147\145\156\145\162\141\164\145\055\151\155\160\157\162\164\055\154\151\142\162\141\162\151\145\163\040\145\155\151\164\040\151\155\160\157\162\164\040\154\151\142\162\141\162\151\145\163\040\145\166\145\156\040\167\150\145\156\040\165\156\143\150\141\156\147\145\144\012\040\040\040\040\055\151\147\156\157\162\145\055\162\145\160\157\163\151\164\157\162\171\040\040\040\040\040\040\040\040\040\040\040\144\157\040\156\157\164\040\162\145\146\145\162\040\164\157\040\162\145\160\157\163\151\164\157\162\171\040\146\157\162\040\145\170\164\145\156\163\151\157\156\163\012\040\040\040\040\055\163\145\164\165\160\055\155\157\144\145\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\160\162\145\146\145\162\040\164\150\145\040\143\165\162\162\145\156\164\040\144\151\162\145\143\164\157\162\171\040\167\150\145\156\040\154\157\143\141\164\151\156\147\040\145\170\164\145\156\163\151\157\156\163\012\000"));
lf[526]=C_h_intern(&lf[526],44, C_text("chicken.compiler.support#print-debug-options"));
lf[527]=C_decode_literal(C_heaptop,C_text("\376\002\000\006\344\012\101\166\141\151\154\141\142\154\145\040\144\145\142\165\147\147\151\156\147\040\157\160\164\151\157\156\163\072\012\012\040\040\040\040\040\141\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\156\157\144\145\055\155\141\164\143\150\151\156\147\040\144\165\162\151\156\147\040\163\151\155\160\154\151\146\151\143\141\164\151\157\156\012\040\040\040\040\040\142\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\142\162\145\141\153\144\157\167\156\040\157\146\040\164\151\155\145\040\156\145\145\144\145\144\040\146\157\162\040\145\141\143\150\040\143\157\155\160\151\154\145\162\040\160\141\163\163\012\040\040\040\040\040\143\040\040\040\040\040\040\040\040\040\040\160\162\151\156\164\040\145\166\145\162\171\040\145\170\160\162\145\163\163\151\157\156\040\142\145\146\157\162\145\040\155\141\143\162\157\055\145\170\160\141\156\163\151\157\156\012\040\040\040\040\040\144\040\040\040\040\040\040\040\040\040\040\154\151\163\164\163\040\141\154\154\040\141\163\163\151\147\156\145\144\040\147\154\157\142\141\154\040\166\141\162\151\141\142\154\145\163\012\040\040\040\040\040\145\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\151\156\146\157\162\155\141\164\151\157\156\040\141\142\157\165\164\040\163\160\145\143\151\141\154\151\172\141\164\151\157\156\163\012\040\040\040\040\040\150\040\040\040\040\040\040\040\040\040\040\171\157\165\040\141\154\162\145\141\144\171\040\146\151\147\165\162\145\144\040\164\150\141\164\040\157\165\164\012\040\040\040\040\040\151\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\151\156\146\157\162\155\141\164\151\157\156\040\141\142\157\165\164\040\151\156\154\151\156\151\156\147\012\040\040\040\040\040\155\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\107\103\040\163\164\141\164\151\163\164\151\143\163\040\144\165\162\151\156\147\040\143\157\155\160\151\154\141\164\151\157\156\012\040\040\040\040\040\156\040\040\040\040\040\040\040\040\040\040\160\162\151\156\164\040\164\150\145\040\154\151\156\145\055\156\165\155\142\145\162\040\144\141\164\141\142\141\163\145\012\040\040\040\040\040\157\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\160\145\162\146\157\162\155\145\144\040\157\160\164\151\155\151\172\141\164\151\157\156\163\012\040\040\040\040\040\160\040\040\040\040\040\040\040\040\040\040\144\151\163\160\154\141\171\040\151\156\146\157\162\155\141\164\151\157\156\040\141\142\157\165\164\040\167\150\141\164\040\164\150\145\040\143\157\155\160\151\154\145\162\040\151\163\040\143\165\162\162\145\156\164\154\171\040\144\157\151\156\147\012\040\040\040\040\040\162\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\151\156\166\157\143\141\164\151\157\156\040\160\141\162\141\155\145\164\145\162\163\012\040\040\040\040\040\163\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\160\162\157\147\162\141\155\055\163\151\172\145\040\151\156\146\157\162\155\141\164\151\157\156\040\141\156\144\040\157\164\150\145\162\040\163\164\141\164\151\163\164\151\143\163\012\040\040\040\040\040\164\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\164\151\155\145\040\156\145\145\144\145\144\040\146\157\162\040\143\157\155\160\151\154\141\164\151\157\156\012\040\040\040\040\040\165\040\040\040\040\040\040\040\040\040\040\154\151\163\164\163\040\141\154\154\040\165\156\141\163\163\151\147\156\145\144\040\147\154\157\142\141\154\040\166\141\162\151\141\142\154\145\040\162\145\146\145\162\145\156\143\145\163\012\040\040\040\040\040\170\040\040\040\040\040\040\040\040\040\040\144\151\163\160\154\141\171\040\151\156\146\157\162\155\141\164\151\157\156\040\141\142\157\165\164\040\145\170\160\145\162\151\155\145\156\164\141\154\040\146\145\141\164\165\162\145\163\012\040\040\040\040\040\104\040\040\040\040\040\040\040\040\040\040\167\150\145\156\040\160\162\151\156\164\151\156\147\040\156\157\144\145\163\054\040\165\163\145\040\156\157\144\145\055\164\162\145\145\040\157\165\164\160\165\164\012\040\040\040\040\040\111\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\151\156\146\145\162\162\145\144\040\164\171\160\145\040\151\156\146\157\162\155\141\164\151\157\156\040\146\157\162\040\165\156\145\170\160\157\162\164\145\144\040\147\154\157\142\141\154\163\012\040\040\040\040\040\116\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\164\150\145\040\162\145\141\154\055\156\141\155\145\040\155\141\160\160\151\156\147\040\164\141\142\154\145\012\040\040\040\040\040\120\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\141\146\164\145\162\040\163\160\145\143\151\141\154\151\172\141\164\151\157\156\012\040\040\040\040\040\123\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\141\160\160\154\151\143\141\164\151\157\156\163\040\157\146\040\143\157\155\160\151\154\145\162\040\163\171\156\164\141\170\012\040\040\040\040\040\124\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\141\146\164\145\162\040\143\157\156\166\145\162\164\151\156\147\040\164\157\040\156\157\144\145\040\164\162\145\145\012\040\040\040\040\040\061\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\163\157\165\162\143\145\040\145\170\160\162\145\163\163\151\157\156\163\012\040\040\040\040\040\062\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\143\141\156\157\156\151\143\141\154\151\172\145\144\040\145\170\160\162\145\163\163\151\157\156\163\012\040\040\040\040\040\063\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\143\157\156\166\145\162\164\145\144\040\151\156\164\157\040\103\120\123\012\040\040\040\040\040\064\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\144\141\164\141\142\141\163\145\040\141\146\164\145\162\040\145\141\143\150\040\141\156\141\154\171\163\151\163\040\160\141\163\163\012\040\040\040\040\040\065\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\141\146\164\145\162\040\145\141\143\150\040\157\160\164\151\155\151\172\141\164\151\157\156\040\160\141\163\163\012\040\040\040\040\040\066\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\141\146\164\145\162\040\145\141\143\150\040\151\156\154\151\156\151\156\147\040\160\141\163\163\012\040\040\040\040\040\067\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\141\146\164\145\162\040\143\157\155\160\154\145\164\145\040\157\160\164\151\155\151\172\141\164\151\157\156\012\040\040\040\040\040\070\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\144\141\164\141\142\141\163\145\040\141\146\164\145\162\040\146\151\156\141\154\040\141\156\141\154\171\163\151\163\012\040\040\040\040\040\071\040\040\040\040\040\040\040\040\040\040\163\150\157\167\040\145\170\160\162\145\163\163\151\157\156\163\040\141\146\164\145\162\040\143\154\157\163\165\162\145\040\143\157\156\166\145\162\163\151\157\156\012\012\000"));
lf[528]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\043\074\156\157\144\145\040\000"));
lf[529]=C_h_intern(&lf[529],32, C_text("chicken.base#set-record-printer!"));
lf[530]=C_h_intern(&lf[530],45, C_text("chicken.condition#condition-property-accessor"));
lf[531]=C_h_intern(&lf[531],3, C_text("exn"));
lf[532]=C_h_intern(&lf[532],7, C_text("message"));
lf[533]=C_h_intern(&lf[533],37, C_text("chicken.condition#condition-predicate"));
C_register_lf2(lf,534,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5186,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_library_toplevel(2,av2);}}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[819] = {
{C_text("f19479:support_2escm"),(void*)f19479},
{C_text("f_10001:support_2escm"),(void*)f_10001},
{C_text("f_10008:support_2escm"),(void*)f_10008},
{C_text("f_10019:support_2escm"),(void*)f_10019},
{C_text("f_10021:support_2escm"),(void*)f_10021},
{C_text("f_10046:support_2escm"),(void*)f_10046},
{C_text("f_10076:support_2escm"),(void*)f_10076},
{C_text("f_10078:support_2escm"),(void*)f_10078},
{C_text("f_10103:support_2escm"),(void*)f_10103},
{C_text("f_10117:support_2escm"),(void*)f_10117},
{C_text("f_10127:support_2escm"),(void*)f_10127},
{C_text("f_10129:support_2escm"),(void*)f_10129},
{C_text("f_10154:support_2escm"),(void*)f_10154},
{C_text("f_10227:support_2escm"),(void*)f_10227},
{C_text("f_10233:support_2escm"),(void*)f_10233},
{C_text("f_10259:support_2escm"),(void*)f_10259},
{C_text("f_10263:support_2escm"),(void*)f_10263},
{C_text("f_10279:support_2escm"),(void*)f_10279},
{C_text("f_10285:support_2escm"),(void*)f_10285},
{C_text("f_10291:support_2escm"),(void*)f_10291},
{C_text("f_10297:support_2escm"),(void*)f_10297},
{C_text("f_10301:support_2escm"),(void*)f_10301},
{C_text("f_10304:support_2escm"),(void*)f_10304},
{C_text("f_10318:support_2escm"),(void*)f_10318},
{C_text("f_10321:support_2escm"),(void*)f_10321},
{C_text("f_10324:support_2escm"),(void*)f_10324},
{C_text("f_10331:support_2escm"),(void*)f_10331},
{C_text("f_10333:support_2escm"),(void*)f_10333},
{C_text("f_10348:support_2escm"),(void*)f_10348},
{C_text("f_10381:support_2escm"),(void*)f_10381},
{C_text("f_10409:support_2escm"),(void*)f_10409},
{C_text("f_10413:support_2escm"),(void*)f_10413},
{C_text("f_10437:support_2escm"),(void*)f_10437},
{C_text("f_10469:support_2escm"),(void*)f_10469},
{C_text("f_10478:support_2escm"),(void*)f_10478},
{C_text("f_10482:support_2escm"),(void*)f_10482},
{C_text("f_10488:support_2escm"),(void*)f_10488},
{C_text("f_10494:support_2escm"),(void*)f_10494},
{C_text("f_10497:support_2escm"),(void*)f_10497},
{C_text("f_10502:support_2escm"),(void*)f_10502},
{C_text("f_10512:support_2escm"),(void*)f_10512},
{C_text("f_10527:support_2escm"),(void*)f_10527},
{C_text("f_10529:support_2escm"),(void*)f_10529},
{C_text("f_10554:support_2escm"),(void*)f_10554},
{C_text("f_10575:support_2escm"),(void*)f_10575},
{C_text("f_10600:support_2escm"),(void*)f_10600},
{C_text("f_10622:support_2escm"),(void*)f_10622},
{C_text("f_10630:support_2escm"),(void*)f_10630},
{C_text("f_10634:support_2escm"),(void*)f_10634},
{C_text("f_10637:support_2escm"),(void*)f_10637},
{C_text("f_10640:support_2escm"),(void*)f_10640},
{C_text("f_10666:support_2escm"),(void*)f_10666},
{C_text("f_10673:support_2escm"),(void*)f_10673},
{C_text("f_10676:support_2escm"),(void*)f_10676},
{C_text("f_10705:support_2escm"),(void*)f_10705},
{C_text("f_10713:support_2escm"),(void*)f_10713},
{C_text("f_10729:support_2escm"),(void*)f_10729},
{C_text("f_10732:support_2escm"),(void*)f_10732},
{C_text("f_10738:support_2escm"),(void*)f_10738},
{C_text("f_10758:support_2escm"),(void*)f_10758},
{C_text("f_10781:support_2escm"),(void*)f_10781},
{C_text("f_10786:support_2escm"),(void*)f_10786},
{C_text("f_10790:support_2escm"),(void*)f_10790},
{C_text("f_10793:support_2escm"),(void*)f_10793},
{C_text("f_10799:support_2escm"),(void*)f_10799},
{C_text("f_10802:support_2escm"),(void*)f_10802},
{C_text("f_10819:support_2escm"),(void*)f_10819},
{C_text("f_10829:support_2escm"),(void*)f_10829},
{C_text("f_10831:support_2escm"),(void*)f_10831},
{C_text("f_10856:support_2escm"),(void*)f_10856},
{C_text("f_10867:support_2escm"),(void*)f_10867},
{C_text("f_10875:support_2escm"),(void*)f_10875},
{C_text("f_10883:support_2escm"),(void*)f_10883},
{C_text("f_10896:support_2escm"),(void*)f_10896},
{C_text("f_10898:support_2escm"),(void*)f_10898},
{C_text("f_10946:support_2escm"),(void*)f_10946},
{C_text("f_10971:support_2escm"),(void*)f_10971},
{C_text("f_10990:support_2escm"),(void*)f_10990},
{C_text("f_10995:support_2escm"),(void*)f_10995},
{C_text("f_11005:support_2escm"),(void*)f_11005},
{C_text("f_11007:support_2escm"),(void*)f_11007},
{C_text("f_11032:support_2escm"),(void*)f_11032},
{C_text("f_11054:support_2escm"),(void*)f_11054},
{C_text("f_11105:support_2escm"),(void*)f_11105},
{C_text("f_11109:support_2escm"),(void*)f_11109},
{C_text("f_11112:support_2escm"),(void*)f_11112},
{C_text("f_11115:support_2escm"),(void*)f_11115},
{C_text("f_11134:support_2escm"),(void*)f_11134},
{C_text("f_11181:support_2escm"),(void*)f_11181},
{C_text("f_11209:support_2escm"),(void*)f_11209},
{C_text("f_11213:support_2escm"),(void*)f_11213},
{C_text("f_11217:support_2escm"),(void*)f_11217},
{C_text("f_11236:support_2escm"),(void*)f_11236},
{C_text("f_11248:support_2escm"),(void*)f_11248},
{C_text("f_11250:support_2escm"),(void*)f_11250},
{C_text("f_11292:support_2escm"),(void*)f_11292},
{C_text("f_11302:support_2escm"),(void*)f_11302},
{C_text("f_11324:support_2escm"),(void*)f_11324},
{C_text("f_11351:support_2escm"),(void*)f_11351},
{C_text("f_11371:support_2escm"),(void*)f_11371},
{C_text("f_11424:support_2escm"),(void*)f_11424},
{C_text("f_11471:support_2escm"),(void*)f_11471},
{C_text("f_11488:support_2escm"),(void*)f_11488},
{C_text("f_11494:support_2escm"),(void*)f_11494},
{C_text("f_11508:support_2escm"),(void*)f_11508},
{C_text("f_11512:support_2escm"),(void*)f_11512},
{C_text("f_11518:support_2escm"),(void*)f_11518},
{C_text("f_11531:support_2escm"),(void*)f_11531},
{C_text("f_11535:support_2escm"),(void*)f_11535},
{C_text("f_11539:support_2escm"),(void*)f_11539},
{C_text("f_11541:support_2escm"),(void*)f_11541},
{C_text("f_11545:support_2escm"),(void*)f_11545},
{C_text("f_11548:support_2escm"),(void*)f_11548},
{C_text("f_11551:support_2escm"),(void*)f_11551},
{C_text("f_11555:support_2escm"),(void*)f_11555},
{C_text("f_11559:support_2escm"),(void*)f_11559},
{C_text("f_11563:support_2escm"),(void*)f_11563},
{C_text("f_11571:support_2escm"),(void*)f_11571},
{C_text("f_11579:support_2escm"),(void*)f_11579},
{C_text("f_11587:support_2escm"),(void*)f_11587},
{C_text("f_11594:support_2escm"),(void*)f_11594},
{C_text("f_11600:support_2escm"),(void*)f_11600},
{C_text("f_11602:support_2escm"),(void*)f_11602},
{C_text("f_11627:support_2escm"),(void*)f_11627},
{C_text("f_11642:support_2escm"),(void*)f_11642},
{C_text("f_11671:support_2escm"),(void*)f_11671},
{C_text("f_11673:support_2escm"),(void*)f_11673},
{C_text("f_11698:support_2escm"),(void*)f_11698},
{C_text("f_11707:support_2escm"),(void*)f_11707},
{C_text("f_11710:support_2escm"),(void*)f_11710},
{C_text("f_11716:support_2escm"),(void*)f_11716},
{C_text("f_11720:support_2escm"),(void*)f_11720},
{C_text("f_11737:support_2escm"),(void*)f_11737},
{C_text("f_11744:support_2escm"),(void*)f_11744},
{C_text("f_11749:support_2escm"),(void*)f_11749},
{C_text("f_11752:support_2escm"),(void*)f_11752},
{C_text("f_11758:support_2escm"),(void*)f_11758},
{C_text("f_11766:support_2escm"),(void*)f_11766},
{C_text("f_11774:support_2escm"),(void*)f_11774},
{C_text("f_11784:support_2escm"),(void*)f_11784},
{C_text("f_11803:support_2escm"),(void*)f_11803},
{C_text("f_11807:support_2escm"),(void*)f_11807},
{C_text("f_11812:support_2escm"),(void*)f_11812},
{C_text("f_11818:support_2escm"),(void*)f_11818},
{C_text("f_11821:support_2escm"),(void*)f_11821},
{C_text("f_11826:support_2escm"),(void*)f_11826},
{C_text("f_11836:support_2escm"),(void*)f_11836},
{C_text("f_11851:support_2escm"),(void*)f_11851},
{C_text("f_11853:support_2escm"),(void*)f_11853},
{C_text("f_11860:support_2escm"),(void*)f_11860},
{C_text("f_11881:support_2escm"),(void*)f_11881},
{C_text("f_11893:support_2escm"),(void*)f_11893},
{C_text("f_11910:support_2escm"),(void*)f_11910},
{C_text("f_11913:support_2escm"),(void*)f_11913},
{C_text("f_11938:support_2escm"),(void*)f_11938},
{C_text("f_11944:support_2escm"),(void*)f_11944},
{C_text("f_11970:support_2escm"),(void*)f_11970},
{C_text("f_12003:support_2escm"),(void*)f_12003},
{C_text("f_12005:support_2escm"),(void*)f_12005},
{C_text("f_12011:support_2escm"),(void*)f_12011},
{C_text("f_12017:support_2escm"),(void*)f_12017},
{C_text("f_12021:support_2escm"),(void*)f_12021},
{C_text("f_12044:support_2escm"),(void*)f_12044},
{C_text("f_12055:support_2escm"),(void*)f_12055},
{C_text("f_12061:support_2escm"),(void*)f_12061},
{C_text("f_12064:support_2escm"),(void*)f_12064},
{C_text("f_12072:support_2escm"),(void*)f_12072},
{C_text("f_12098:support_2escm"),(void*)f_12098},
{C_text("f_12120:support_2escm"),(void*)f_12120},
{C_text("f_12145:support_2escm"),(void*)f_12145},
{C_text("f_12167:support_2escm"),(void*)f_12167},
{C_text("f_12174:support_2escm"),(void*)f_12174},
{C_text("f_12180:support_2escm"),(void*)f_12180},
{C_text("f_12211:support_2escm"),(void*)f_12211},
{C_text("f_12234:support_2escm"),(void*)f_12234},
{C_text("f_12242:support_2escm"),(void*)f_12242},
{C_text("f_12253:support_2escm"),(void*)f_12253},
{C_text("f_12259:support_2escm"),(void*)f_12259},
{C_text("f_12263:support_2escm"),(void*)f_12263},
{C_text("f_12267:support_2escm"),(void*)f_12267},
{C_text("f_12269:support_2escm"),(void*)f_12269},
{C_text("f_12275:support_2escm"),(void*)f_12275},
{C_text("f_12279:support_2escm"),(void*)f_12279},
{C_text("f_12282:support_2escm"),(void*)f_12282},
{C_text("f_12291:support_2escm"),(void*)f_12291},
{C_text("f_12305:support_2escm"),(void*)f_12305},
{C_text("f_12313:support_2escm"),(void*)f_12313},
{C_text("f_12317:support_2escm"),(void*)f_12317},
{C_text("f_12363:support_2escm"),(void*)f_12363},
{C_text("f_12367:support_2escm"),(void*)f_12367},
{C_text("f_12387:support_2escm"),(void*)f_12387},
{C_text("f_12391:support_2escm"),(void*)f_12391},
{C_text("f_12400:support_2escm"),(void*)f_12400},
{C_text("f_12430:support_2escm"),(void*)f_12430},
{C_text("f_12434:support_2escm"),(void*)f_12434},
{C_text("f_12447:support_2escm"),(void*)f_12447},
{C_text("f_12459:support_2escm"),(void*)f_12459},
{C_text("f_12465:support_2escm"),(void*)f_12465},
{C_text("f_12472:support_2escm"),(void*)f_12472},
{C_text("f_12475:support_2escm"),(void*)f_12475},
{C_text("f_12498:support_2escm"),(void*)f_12498},
{C_text("f_12500:support_2escm"),(void*)f_12500},
{C_text("f_12506:support_2escm"),(void*)f_12506},
{C_text("f_12513:support_2escm"),(void*)f_12513},
{C_text("f_12516:support_2escm"),(void*)f_12516},
{C_text("f_12535:support_2escm"),(void*)f_12535},
{C_text("f_12537:support_2escm"),(void*)f_12537},
{C_text("f_12543:support_2escm"),(void*)f_12543},
{C_text("f_12556:support_2escm"),(void*)f_12556},
{C_text("f_12584:support_2escm"),(void*)f_12584},
{C_text("f_12586:support_2escm"),(void*)f_12586},
{C_text("f_12607:support_2escm"),(void*)f_12607},
{C_text("f_12614:support_2escm"),(void*)f_12614},
{C_text("f_12620:support_2escm"),(void*)f_12620},
{C_text("f_12635:support_2escm"),(void*)f_12635},
{C_text("f_12653:support_2escm"),(void*)f_12653},
{C_text("f_12671:support_2escm"),(void*)f_12671},
{C_text("f_12689:support_2escm"),(void*)f_12689},
{C_text("f_12707:support_2escm"),(void*)f_12707},
{C_text("f_12716:support_2escm"),(void*)f_12716},
{C_text("f_12742:support_2escm"),(void*)f_12742},
{C_text("f_12745:support_2escm"),(void*)f_12745},
{C_text("f_12756:support_2escm"),(void*)f_12756},
{C_text("f_12758:support_2escm"),(void*)f_12758},
{C_text("f_12812:support_2escm"),(void*)f_12812},
{C_text("f_12818:support_2escm"),(void*)f_12818},
{C_text("f_12824:support_2escm"),(void*)f_12824},
{C_text("f_12830:support_2escm"),(void*)f_12830},
{C_text("f_12855:support_2escm"),(void*)f_12855},
{C_text("f_12870:support_2escm"),(void*)f_12870},
{C_text("f_12885:support_2escm"),(void*)f_12885},
{C_text("f_12888:support_2escm"),(void*)f_12888},
{C_text("f_12923:support_2escm"),(void*)f_12923},
{C_text("f_12938:support_2escm"),(void*)f_12938},
{C_text("f_12953:support_2escm"),(void*)f_12953},
{C_text("f_12993:support_2escm"),(void*)f_12993},
{C_text("f_12996:support_2escm"),(void*)f_12996},
{C_text("f_13011:support_2escm"),(void*)f_13011},
{C_text("f_13035:support_2escm"),(void*)f_13035},
{C_text("f_13073:support_2escm"),(void*)f_13073},
{C_text("f_13079:support_2escm"),(void*)f_13079},
{C_text("f_13085:support_2escm"),(void*)f_13085},
{C_text("f_13088:support_2escm"),(void*)f_13088},
{C_text("f_13091:support_2escm"),(void*)f_13091},
{C_text("f_13094:support_2escm"),(void*)f_13094},
{C_text("f_13116:support_2escm"),(void*)f_13116},
{C_text("f_13122:support_2escm"),(void*)f_13122},
{C_text("f_13128:support_2escm"),(void*)f_13128},
{C_text("f_13131:support_2escm"),(void*)f_13131},
{C_text("f_13134:support_2escm"),(void*)f_13134},
{C_text("f_13137:support_2escm"),(void*)f_13137},
{C_text("f_13160:support_2escm"),(void*)f_13160},
{C_text("f_13163:support_2escm"),(void*)f_13163},
{C_text("f_13204:support_2escm"),(void*)f_13204},
{C_text("f_13207:support_2escm"),(void*)f_13207},
{C_text("f_13222:support_2escm"),(void*)f_13222},
{C_text("f_13249:support_2escm"),(void*)f_13249},
{C_text("f_13284:support_2escm"),(void*)f_13284},
{C_text("f_13288:support_2escm"),(void*)f_13288},
{C_text("f_13315:support_2escm"),(void*)f_13315},
{C_text("f_13318:support_2escm"),(void*)f_13318},
{C_text("f_13353:support_2escm"),(void*)f_13353},
{C_text("f_13404:support_2escm"),(void*)f_13404},
{C_text("f_13413:support_2escm"),(void*)f_13413},
{C_text("f_13946:support_2escm"),(void*)f_13946},
{C_text("f_13952:support_2escm"),(void*)f_13952},
{C_text("f_13962:support_2escm"),(void*)f_13962},
{C_text("f_13973:support_2escm"),(void*)f_13973},
{C_text("f_13983:support_2escm"),(void*)f_13983},
{C_text("f_13994:support_2escm"),(void*)f_13994},
{C_text("f_13998:support_2escm"),(void*)f_13998},
{C_text("f_14009:support_2escm"),(void*)f_14009},
{C_text("f_14013:support_2escm"),(void*)f_14013},
{C_text("f_14024:support_2escm"),(void*)f_14024},
{C_text("f_14030:support_2escm"),(void*)f_14030},
{C_text("f_14034:support_2escm"),(void*)f_14034},
{C_text("f_14038:support_2escm"),(void*)f_14038},
{C_text("f_14057:support_2escm"),(void*)f_14057},
{C_text("f_14063:support_2escm"),(void*)f_14063},
{C_text("f_14066:support_2escm"),(void*)f_14066},
{C_text("f_14075:support_2escm"),(void*)f_14075},
{C_text("f_14085:support_2escm"),(void*)f_14085},
{C_text("f_14094:support_2escm"),(void*)f_14094},
{C_text("f_14106:support_2escm"),(void*)f_14106},
{C_text("f_14118:support_2escm"),(void*)f_14118},
{C_text("f_14142:support_2escm"),(void*)f_14142},
{C_text("f_14148:support_2escm"),(void*)f_14148},
{C_text("f_14152:support_2escm"),(void*)f_14152},
{C_text("f_14179:support_2escm"),(void*)f_14179},
{C_text("f_14570:support_2escm"),(void*)f_14570},
{C_text("f_14576:support_2escm"),(void*)f_14576},
{C_text("f_14588:support_2escm"),(void*)f_14588},
{C_text("f_14598:support_2escm"),(void*)f_14598},
{C_text("f_14610:support_2escm"),(void*)f_14610},
{C_text("f_14628:support_2escm"),(void*)f_14628},
{C_text("f_14632:support_2escm"),(void*)f_14632},
{C_text("f_14659:support_2escm"),(void*)f_14659},
{C_text("f_15058:support_2escm"),(void*)f_15058},
{C_text("f_15064:support_2escm"),(void*)f_15064},
{C_text("f_15068:support_2escm"),(void*)f_15068},
{C_text("f_15195:support_2escm"),(void*)f_15195},
{C_text("f_15201:support_2escm"),(void*)f_15201},
{C_text("f_15229:support_2escm"),(void*)f_15229},
{C_text("f_15364:support_2escm"),(void*)f_15364},
{C_text("f_15371:support_2escm"),(void*)f_15371},
{C_text("f_15374:support_2escm"),(void*)f_15374},
{C_text("f_15377:support_2escm"),(void*)f_15377},
{C_text("f_15401:support_2escm"),(void*)f_15401},
{C_text("f_15445:support_2escm"),(void*)f_15445},
{C_text("f_15494:support_2escm"),(void*)f_15494},
{C_text("f_15581:support_2escm"),(void*)f_15581},
{C_text("f_15614:support_2escm"),(void*)f_15614},
{C_text("f_15632:support_2escm"),(void*)f_15632},
{C_text("f_15654:support_2escm"),(void*)f_15654},
{C_text("f_15689:support_2escm"),(void*)f_15689},
{C_text("f_16073:support_2escm"),(void*)f_16073},
{C_text("f_16077:support_2escm"),(void*)f_16077},
{C_text("f_16079:support_2escm"),(void*)f_16079},
{C_text("f_16083:support_2escm"),(void*)f_16083},
{C_text("f_16086:support_2escm"),(void*)f_16086},
{C_text("f_16101:support_2escm"),(void*)f_16101},
{C_text("f_16109:support_2escm"),(void*)f_16109},
{C_text("f_16119:support_2escm"),(void*)f_16119},
{C_text("f_16151:support_2escm"),(void*)f_16151},
{C_text("f_16160:support_2escm"),(void*)f_16160},
{C_text("f_16168:support_2escm"),(void*)f_16168},
{C_text("f_16178:support_2escm"),(void*)f_16178},
{C_text("f_16213:support_2escm"),(void*)f_16213},
{C_text("f_16216:support_2escm"),(void*)f_16216},
{C_text("f_16220:support_2escm"),(void*)f_16220},
{C_text("f_16223:support_2escm"),(void*)f_16223},
{C_text("f_16226:support_2escm"),(void*)f_16226},
{C_text("f_16235:support_2escm"),(void*)f_16235},
{C_text("f_16254:support_2escm"),(void*)f_16254},
{C_text("f_16260:support_2escm"),(void*)f_16260},
{C_text("f_16264:support_2escm"),(void*)f_16264},
{C_text("f_16290:support_2escm"),(void*)f_16290},
{C_text("f_16299:support_2escm"),(void*)f_16299},
{C_text("f_16310:support_2escm"),(void*)f_16310},
{C_text("f_16329:support_2escm"),(void*)f_16329},
{C_text("f_16341:support_2escm"),(void*)f_16341},
{C_text("f_16385:support_2escm"),(void*)f_16385},
{C_text("f_16387:support_2escm"),(void*)f_16387},
{C_text("f_16399:support_2escm"),(void*)f_16399},
{C_text("f_16409:support_2escm"),(void*)f_16409},
{C_text("f_16423:support_2escm"),(void*)f_16423},
{C_text("f_16429:support_2escm"),(void*)f_16429},
{C_text("f_16435:support_2escm"),(void*)f_16435},
{C_text("f_16450:support_2escm"),(void*)f_16450},
{C_text("f_16459:support_2escm"),(void*)f_16459},
{C_text("f_16467:support_2escm"),(void*)f_16467},
{C_text("f_16473:support_2escm"),(void*)f_16473},
{C_text("f_16476:support_2escm"),(void*)f_16476},
{C_text("f_16479:support_2escm"),(void*)f_16479},
{C_text("f_16482:support_2escm"),(void*)f_16482},
{C_text("f_16485:support_2escm"),(void*)f_16485},
{C_text("f_16490:support_2escm"),(void*)f_16490},
{C_text("f_16494:support_2escm"),(void*)f_16494},
{C_text("f_16506:support_2escm"),(void*)f_16506},
{C_text("f_16511:support_2escm"),(void*)f_16511},
{C_text("f_16513:support_2escm"),(void*)f_16513},
{C_text("f_16519:support_2escm"),(void*)f_16519},
{C_text("f_16526:support_2escm"),(void*)f_16526},
{C_text("f_16529:support_2escm"),(void*)f_16529},
{C_text("f_16533:support_2escm"),(void*)f_16533},
{C_text("f_16539:support_2escm"),(void*)f_16539},
{C_text("f_16545:support_2escm"),(void*)f_16545},
{C_text("f_16572:support_2escm"),(void*)f_16572},
{C_text("f_16574:support_2escm"),(void*)f_16574},
{C_text("f_16588:support_2escm"),(void*)f_16588},
{C_text("f_16598:support_2escm"),(void*)f_16598},
{C_text("f_16611:support_2escm"),(void*)f_16611},
{C_text("f_16626:support_2escm"),(void*)f_16626},
{C_text("f_16630:support_2escm"),(void*)f_16630},
{C_text("f_16637:support_2escm"),(void*)f_16637},
{C_text("f_16641:support_2escm"),(void*)f_16641},
{C_text("f_16646:support_2escm"),(void*)f_16646},
{C_text("f_16650:support_2escm"),(void*)f_16650},
{C_text("f_16658:support_2escm"),(void*)f_16658},
{C_text("f_16664:support_2escm"),(void*)f_16664},
{C_text("f_16671:support_2escm"),(void*)f_16671},
{C_text("f_16674:support_2escm"),(void*)f_16674},
{C_text("f_16677:support_2escm"),(void*)f_16677},
{C_text("f_16682:support_2escm"),(void*)f_16682},
{C_text("f_16702:support_2escm"),(void*)f_16702},
{C_text("f_16706:support_2escm"),(void*)f_16706},
{C_text("f_16717:support_2escm"),(void*)f_16717},
{C_text("f_16732:support_2escm"),(void*)f_16732},
{C_text("f_16744:support_2escm"),(void*)f_16744},
{C_text("f_16751:support_2escm"),(void*)f_16751},
{C_text("f_16781:support_2escm"),(void*)f_16781},
{C_text("f_16794:support_2escm"),(void*)f_16794},
{C_text("f_16800:support_2escm"),(void*)f_16800},
{C_text("f_16815:support_2escm"),(void*)f_16815},
{C_text("f_16818:support_2escm"),(void*)f_16818},
{C_text("f_16824:support_2escm"),(void*)f_16824},
{C_text("f_16833:support_2escm"),(void*)f_16833},
{C_text("f_16836:support_2escm"),(void*)f_16836},
{C_text("f_16875:support_2escm"),(void*)f_16875},
{C_text("f_16881:support_2escm"),(void*)f_16881},
{C_text("f_16887:support_2escm"),(void*)f_16887},
{C_text("f_16890:support_2escm"),(void*)f_16890},
{C_text("f_16896:support_2escm"),(void*)f_16896},
{C_text("f_16902:support_2escm"),(void*)f_16902},
{C_text("f_16908:support_2escm"),(void*)f_16908},
{C_text("f_16914:support_2escm"),(void*)f_16914},
{C_text("f_16936:support_2escm"),(void*)f_16936},
{C_text("f_16938:support_2escm"),(void*)f_16938},
{C_text("f_16972:support_2escm"),(void*)f_16972},
{C_text("f_17006:support_2escm"),(void*)f_17006},
{C_text("f_17009:support_2escm"),(void*)f_17009},
{C_text("f_17017:support_2escm"),(void*)f_17017},
{C_text("f_17032:support_2escm"),(void*)f_17032},
{C_text("f_17039:support_2escm"),(void*)f_17039},
{C_text("f_17054:support_2escm"),(void*)f_17054},
{C_text("f_17060:support_2escm"),(void*)f_17060},
{C_text("f_17063:support_2escm"),(void*)f_17063},
{C_text("f_17075:support_2escm"),(void*)f_17075},
{C_text("f_17084:support_2escm"),(void*)f_17084},
{C_text("f_17090:support_2escm"),(void*)f_17090},
{C_text("f_17105:support_2escm"),(void*)f_17105},
{C_text("f_17114:support_2escm"),(void*)f_17114},
{C_text("f_17117:support_2escm"),(void*)f_17117},
{C_text("f_17129:support_2escm"),(void*)f_17129},
{C_text("f_17135:support_2escm"),(void*)f_17135},
{C_text("f_17141:support_2escm"),(void*)f_17141},
{C_text("f_17144:support_2escm"),(void*)f_17144},
{C_text("f_17146:support_2escm"),(void*)f_17146},
{C_text("f_17153:support_2escm"),(void*)f_17153},
{C_text("f_17159:support_2escm"),(void*)f_17159},
{C_text("f_17170:support_2escm"),(void*)f_17170},
{C_text("f_17185:support_2escm"),(void*)f_17185},
{C_text("f_17235:support_2escm"),(void*)f_17235},
{C_text("f_17237:support_2escm"),(void*)f_17237},
{C_text("f_17243:support_2escm"),(void*)f_17243},
{C_text("f_17247:support_2escm"),(void*)f_17247},
{C_text("f_17252:support_2escm"),(void*)f_17252},
{C_text("f_17256:support_2escm"),(void*)f_17256},
{C_text("f_17259:support_2escm"),(void*)f_17259},
{C_text("f_17262:support_2escm"),(void*)f_17262},
{C_text("f_17265:support_2escm"),(void*)f_17265},
{C_text("f_17273:support_2escm"),(void*)f_17273},
{C_text("f_17276:support_2escm"),(void*)f_17276},
{C_text("f_17279:support_2escm"),(void*)f_17279},
{C_text("f_17282:support_2escm"),(void*)f_17282},
{C_text("f_17285:support_2escm"),(void*)f_17285},
{C_text("f_17288:support_2escm"),(void*)f_17288},
{C_text("f_17289:support_2escm"),(void*)f_17289},
{C_text("f_17299:support_2escm"),(void*)f_17299},
{C_text("f_17305:support_2escm"),(void*)f_17305},
{C_text("f_17317:support_2escm"),(void*)f_17317},
{C_text("f_17320:support_2escm"),(void*)f_17320},
{C_text("f_17323:support_2escm"),(void*)f_17323},
{C_text("f_17328:support_2escm"),(void*)f_17328},
{C_text("f_17341:support_2escm"),(void*)f_17341},
{C_text("f_17344:support_2escm"),(void*)f_17344},
{C_text("f_17361:support_2escm"),(void*)f_17361},
{C_text("f_17371:support_2escm"),(void*)f_17371},
{C_text("f_17384:support_2escm"),(void*)f_17384},
{C_text("f_17390:support_2escm"),(void*)f_17390},
{C_text("f_17400:support_2escm"),(void*)f_17400},
{C_text("f_17403:support_2escm"),(void*)f_17403},
{C_text("f_17419:support_2escm"),(void*)f_17419},
{C_text("f_17424:support_2escm"),(void*)f_17424},
{C_text("f_17428:support_2escm"),(void*)f_17428},
{C_text("f_17445:support_2escm"),(void*)f_17445},
{C_text("f_17456:support_2escm"),(void*)f_17456},
{C_text("f_17468:support_2escm"),(void*)f_17468},
{C_text("f_17471:support_2escm"),(void*)f_17471},
{C_text("f_17479:support_2escm"),(void*)f_17479},
{C_text("f_17484:support_2escm"),(void*)f_17484},
{C_text("f_17497:support_2escm"),(void*)f_17497},
{C_text("f_17508:support_2escm"),(void*)f_17508},
{C_text("f_17530:support_2escm"),(void*)f_17530},
{C_text("f_17532:support_2escm"),(void*)f_17532},
{C_text("f_17552:support_2escm"),(void*)f_17552},
{C_text("f_17572:support_2escm"),(void*)f_17572},
{C_text("f_17580:support_2escm"),(void*)f_17580},
{C_text("f_17589:support_2escm"),(void*)f_17589},
{C_text("f_17594:support_2escm"),(void*)f_17594},
{C_text("f_17598:support_2escm"),(void*)f_17598},
{C_text("f_17619:support_2escm"),(void*)f_17619},
{C_text("f_17634:support_2escm"),(void*)f_17634},
{C_text("f_17640:support_2escm"),(void*)f_17640},
{C_text("f_17651:support_2escm"),(void*)f_17651},
{C_text("f_17662:support_2escm"),(void*)f_17662},
{C_text("f_17673:support_2escm"),(void*)f_17673},
{C_text("f_17677:support_2escm"),(void*)f_17677},
{C_text("f_17683:support_2escm"),(void*)f_17683},
{C_text("f_17695:support_2escm"),(void*)f_17695},
{C_text("f_17699:support_2escm"),(void*)f_17699},
{C_text("f_17711:support_2escm"),(void*)f_17711},
{C_text("f_17719:support_2escm"),(void*)f_17719},
{C_text("f_17729:support_2escm"),(void*)f_17729},
{C_text("f_17744:support_2escm"),(void*)f_17744},
{C_text("f_17750:support_2escm"),(void*)f_17750},
{C_text("f_17753:support_2escm"),(void*)f_17753},
{C_text("f_17756:support_2escm"),(void*)f_17756},
{C_text("f_17759:support_2escm"),(void*)f_17759},
{C_text("f_17762:support_2escm"),(void*)f_17762},
{C_text("f_17766:support_2escm"),(void*)f_17766},
{C_text("f_17768:support_2escm"),(void*)f_17768},
{C_text("f_17775:support_2escm"),(void*)f_17775},
{C_text("f_17782:support_2escm"),(void*)f_17782},
{C_text("f_17793:support_2escm"),(void*)f_17793},
{C_text("f_17797:support_2escm"),(void*)f_17797},
{C_text("f_17800:support_2escm"),(void*)f_17800},
{C_text("f_17805:support_2escm"),(void*)f_17805},
{C_text("f_17811:support_2escm"),(void*)f_17811},
{C_text("f_17818:support_2escm"),(void*)f_17818},
{C_text("f_17821:support_2escm"),(void*)f_17821},
{C_text("f_17824:support_2escm"),(void*)f_17824},
{C_text("f_17827:support_2escm"),(void*)f_17827},
{C_text("f_17834:support_2escm"),(void*)f_17834},
{C_text("f_17838:support_2escm"),(void*)f_17838},
{C_text("f_5186:support_2escm"),(void*)f_5186},
{C_text("f_5189:support_2escm"),(void*)f_5189},
{C_text("f_5192:support_2escm"),(void*)f_5192},
{C_text("f_5195:support_2escm"),(void*)f_5195},
{C_text("f_5198:support_2escm"),(void*)f_5198},
{C_text("f_5201:support_2escm"),(void*)f_5201},
{C_text("f_5204:support_2escm"),(void*)f_5204},
{C_text("f_5207:support_2escm"),(void*)f_5207},
{C_text("f_5210:support_2escm"),(void*)f_5210},
{C_text("f_5320:support_2escm"),(void*)f_5320},
{C_text("f_5338:support_2escm"),(void*)f_5338},
{C_text("f_5378:support_2escm"),(void*)f_5378},
{C_text("f_5392:support_2escm"),(void*)f_5392},
{C_text("f_5581:support_2escm"),(void*)f_5581},
{C_text("f_5587:support_2escm"),(void*)f_5587},
{C_text("f_5609:support_2escm"),(void*)f_5609},
{C_text("f_5615:support_2escm"),(void*)f_5615},
{C_text("f_5621:support_2escm"),(void*)f_5621},
{C_text("f_5631:support_2escm"),(void*)f_5631},
{C_text("f_5645:support_2escm"),(void*)f_5645},
{C_text("f_5651:support_2escm"),(void*)f_5651},
{C_text("f_5665:support_2escm"),(void*)f_5665},
{C_text("f_5874:support_2escm"),(void*)f_5874},
{C_text("f_5882:support_2escm"),(void*)f_5882},
{C_text("f_5890:support_2escm"),(void*)f_5890},
{C_text("f_5908:support_2escm"),(void*)f_5908},
{C_text("f_5947:support_2escm"),(void*)f_5947},
{C_text("f_5981:support_2escm"),(void*)f_5981},
{C_text("f_5987:support_2escm"),(void*)f_5987},
{C_text("f_6040:support_2escm"),(void*)f_6040},
{C_text("f_6046:support_2escm"),(void*)f_6046},
{C_text("f_6229:support_2escm"),(void*)f_6229},
{C_text("f_6247:support_2escm"),(void*)f_6247},
{C_text("f_6342:support_2escm"),(void*)f_6342},
{C_text("f_6355:support_2escm"),(void*)f_6355},
{C_text("f_6493:support_2escm"),(void*)f_6493},
{C_text("f_6497:support_2escm"),(void*)f_6497},
{C_text("f_6511:support_2escm"),(void*)f_6511},
{C_text("f_6522:support_2escm"),(void*)f_6522},
{C_text("f_6525:support_2escm"),(void*)f_6525},
{C_text("f_6540:support_2escm"),(void*)f_6540},
{C_text("f_6546:support_2escm"),(void*)f_6546},
{C_text("f_6549:support_2escm"),(void*)f_6549},
{C_text("f_6555:support_2escm"),(void*)f_6555},
{C_text("f_6559:support_2escm"),(void*)f_6559},
{C_text("f_6562:support_2escm"),(void*)f_6562},
{C_text("f_6571:support_2escm"),(void*)f_6571},
{C_text("f_6579:support_2escm"),(void*)f_6579},
{C_text("f_6586:support_2escm"),(void*)f_6586},
{C_text("f_6591:support_2escm"),(void*)f_6591},
{C_text("f_6601:support_2escm"),(void*)f_6601},
{C_text("f_6614:support_2escm"),(void*)f_6614},
{C_text("f_6621:support_2escm"),(void*)f_6621},
{C_text("f_6624:support_2escm"),(void*)f_6624},
{C_text("f_6633:support_2escm"),(void*)f_6633},
{C_text("f_6636:support_2escm"),(void*)f_6636},
{C_text("f_6639:support_2escm"),(void*)f_6639},
{C_text("f_6642:support_2escm"),(void*)f_6642},
{C_text("f_6645:support_2escm"),(void*)f_6645},
{C_text("f_6648:support_2escm"),(void*)f_6648},
{C_text("f_6654:support_2escm"),(void*)f_6654},
{C_text("f_6657:support_2escm"),(void*)f_6657},
{C_text("f_6664:support_2escm"),(void*)f_6664},
{C_text("f_6666:support_2escm"),(void*)f_6666},
{C_text("f_6669:support_2escm"),(void*)f_6669},
{C_text("f_6671:support_2escm"),(void*)f_6671},
{C_text("f_6678:support_2escm"),(void*)f_6678},
{C_text("f_6681:support_2escm"),(void*)f_6681},
{C_text("f_6684:support_2escm"),(void*)f_6684},
{C_text("f_6698:support_2escm"),(void*)f_6698},
{C_text("f_6703:support_2escm"),(void*)f_6703},
{C_text("f_6713:support_2escm"),(void*)f_6713},
{C_text("f_6730:support_2escm"),(void*)f_6730},
{C_text("f_6733:support_2escm"),(void*)f_6733},
{C_text("f_6736:support_2escm"),(void*)f_6736},
{C_text("f_6739:support_2escm"),(void*)f_6739},
{C_text("f_6745:support_2escm"),(void*)f_6745},
{C_text("f_6754:support_2escm"),(void*)f_6754},
{C_text("f_6761:support_2escm"),(void*)f_6761},
{C_text("f_6763:support_2escm"),(void*)f_6763},
{C_text("f_6767:support_2escm"),(void*)f_6767},
{C_text("f_6770:support_2escm"),(void*)f_6770},
{C_text("f_6777:support_2escm"),(void*)f_6777},
{C_text("f_6779:support_2escm"),(void*)f_6779},
{C_text("f_6783:support_2escm"),(void*)f_6783},
{C_text("f_6786:support_2escm"),(void*)f_6786},
{C_text("f_6787:support_2escm"),(void*)f_6787},
{C_text("f_6797:support_2escm"),(void*)f_6797},
{C_text("f_6800:support_2escm"),(void*)f_6800},
{C_text("f_6805:support_2escm"),(void*)f_6805},
{C_text("f_6815:support_2escm"),(void*)f_6815},
{C_text("f_6832:support_2escm"),(void*)f_6832},
{C_text("f_6835:support_2escm"),(void*)f_6835},
{C_text("f_6838:support_2escm"),(void*)f_6838},
{C_text("f_6841:support_2escm"),(void*)f_6841},
{C_text("f_6844:support_2escm"),(void*)f_6844},
{C_text("f_6853:support_2escm"),(void*)f_6853},
{C_text("f_6856:support_2escm"),(void*)f_6856},
{C_text("f_6859:support_2escm"),(void*)f_6859},
{C_text("f_6875:support_2escm"),(void*)f_6875},
{C_text("f_6929:support_2escm"),(void*)f_6929},
{C_text("f_6935:support_2escm"),(void*)f_6935},
{C_text("f_6970:support_2escm"),(void*)f_6970},
{C_text("f_6976:support_2escm"),(void*)f_6976},
{C_text("f_6998:support_2escm"),(void*)f_6998},
{C_text("f_7007:support_2escm"),(void*)f_7007},
{C_text("f_7011:support_2escm"),(void*)f_7011},
{C_text("f_7032:support_2escm"),(void*)f_7032},
{C_text("f_7055:support_2escm"),(void*)f_7055},
{C_text("f_7057:support_2escm"),(void*)f_7057},
{C_text("f_7071:support_2escm"),(void*)f_7071},
{C_text("f_7075:support_2escm"),(void*)f_7075},
{C_text("f_7082:support_2escm"),(void*)f_7082},
{C_text("f_7086:support_2escm"),(void*)f_7086},
{C_text("f_7090:support_2escm"),(void*)f_7090},
{C_text("f_7102:support_2escm"),(void*)f_7102},
{C_text("f_7109:support_2escm"),(void*)f_7109},
{C_text("f_7116:support_2escm"),(void*)f_7116},
{C_text("f_7128:support_2escm"),(void*)f_7128},
{C_text("f_7159:support_2escm"),(void*)f_7159},
{C_text("f_7170:support_2escm"),(void*)f_7170},
{C_text("f_7184:support_2escm"),(void*)f_7184},
{C_text("f_7186:support_2escm"),(void*)f_7186},
{C_text("f_7212:support_2escm"),(void*)f_7212},
{C_text("f_7226:support_2escm"),(void*)f_7226},
{C_text("f_7232:support_2escm"),(void*)f_7232},
{C_text("f_7247:support_2escm"),(void*)f_7247},
{C_text("f_7263:support_2escm"),(void*)f_7263},
{C_text("f_7271:support_2escm"),(void*)f_7271},
{C_text("f_7275:support_2escm"),(void*)f_7275},
{C_text("f_7277:support_2escm"),(void*)f_7277},
{C_text("f_7288:support_2escm"),(void*)f_7288},
{C_text("f_7290:support_2escm"),(void*)f_7290},
{C_text("f_7307:support_2escm"),(void*)f_7307},
{C_text("f_7321:support_2escm"),(void*)f_7321},
{C_text("f_7355:support_2escm"),(void*)f_7355},
{C_text("f_7373:support_2escm"),(void*)f_7373},
{C_text("f_7389:support_2escm"),(void*)f_7389},
{C_text("f_7425:support_2escm"),(void*)f_7425},
{C_text("f_7429:support_2escm"),(void*)f_7429},
{C_text("f_7475:support_2escm"),(void*)f_7475},
{C_text("f_7477:support_2escm"),(void*)f_7477},
{C_text("f_7493:support_2escm"),(void*)f_7493},
{C_text("f_7499:support_2escm"),(void*)f_7499},
{C_text("f_7514:support_2escm"),(void*)f_7514},
{C_text("f_7531:support_2escm"),(void*)f_7531},
{C_text("f_7533:support_2escm"),(void*)f_7533},
{C_text("f_7539:support_2escm"),(void*)f_7539},
{C_text("f_7563:support_2escm"),(void*)f_7563},
{C_text("f_7579:support_2escm"),(void*)f_7579},
{C_text("f_7589:support_2escm"),(void*)f_7589},
{C_text("f_7594:support_2escm"),(void*)f_7594},
{C_text("f_7608:support_2escm"),(void*)f_7608},
{C_text("f_7611:support_2escm"),(void*)f_7611},
{C_text("f_7612:support_2escm"),(void*)f_7612},
{C_text("f_7616:support_2escm"),(void*)f_7616},
{C_text("f_7621:support_2escm"),(void*)f_7621},
{C_text("f_7627:support_2escm"),(void*)f_7627},
{C_text("f_7633:support_2escm"),(void*)f_7633},
{C_text("f_7641:support_2escm"),(void*)f_7641},
{C_text("f_7644:support_2escm"),(void*)f_7644},
{C_text("f_7652:support_2escm"),(void*)f_7652},
{C_text("f_7654:support_2escm"),(void*)f_7654},
{C_text("f_7658:support_2escm"),(void*)f_7658},
{C_text("f_7680:support_2escm"),(void*)f_7680},
{C_text("f_7686:support_2escm"),(void*)f_7686},
{C_text("f_7690:support_2escm"),(void*)f_7690},
{C_text("f_7707:support_2escm"),(void*)f_7707},
{C_text("f_7713:support_2escm"),(void*)f_7713},
{C_text("f_7724:support_2escm"),(void*)f_7724},
{C_text("f_7726:support_2escm"),(void*)f_7726},
{C_text("f_7729:support_2escm"),(void*)f_7729},
{C_text("f_7735:support_2escm"),(void*)f_7735},
{C_text("f_7774:support_2escm"),(void*)f_7774},
{C_text("f_7779:support_2escm"),(void*)f_7779},
{C_text("f_7783:support_2escm"),(void*)f_7783},
{C_text("f_7787:support_2escm"),(void*)f_7787},
{C_text("f_7838:support_2escm"),(void*)f_7838},
{C_text("f_7875:support_2escm"),(void*)f_7875},
{C_text("f_7877:support_2escm"),(void*)f_7877},
{C_text("f_7927:support_2escm"),(void*)f_7927},
{C_text("f_7931:support_2escm"),(void*)f_7931},
{C_text("f_7945:support_2escm"),(void*)f_7945},
{C_text("f_7949:support_2escm"),(void*)f_7949},
{C_text("f_7957:support_2escm"),(void*)f_7957},
{C_text("f_7963:support_2escm"),(void*)f_7963},
{C_text("f_7967:support_2escm"),(void*)f_7967},
{C_text("f_8009:support_2escm"),(void*)f_8009},
{C_text("f_8013:support_2escm"),(void*)f_8013},
{C_text("f_8061:support_2escm"),(void*)f_8061},
{C_text("f_8065:support_2escm"),(void*)f_8065},
{C_text("f_8071:support_2escm"),(void*)f_8071},
{C_text("f_8077:support_2escm"),(void*)f_8077},
{C_text("f_8083:support_2escm"),(void*)f_8083},
{C_text("f_8092:support_2escm"),(void*)f_8092},
{C_text("f_8101:support_2escm"),(void*)f_8101},
{C_text("f_8110:support_2escm"),(void*)f_8110},
{C_text("f_8119:support_2escm"),(void*)f_8119},
{C_text("f_8128:support_2escm"),(void*)f_8128},
{C_text("f_8138:support_2escm"),(void*)f_8138},
{C_text("f_8140:support_2escm"),(void*)f_8140},
{C_text("f_8146:support_2escm"),(void*)f_8146},
{C_text("f_8161:support_2escm"),(void*)f_8161},
{C_text("f_8176:support_2escm"),(void*)f_8176},
{C_text("f_8179:support_2escm"),(void*)f_8179},
{C_text("f_8246:support_2escm"),(void*)f_8246},
{C_text("f_8248:support_2escm"),(void*)f_8248},
{C_text("f_8273:support_2escm"),(void*)f_8273},
{C_text("f_8296:support_2escm"),(void*)f_8296},
{C_text("f_8299:support_2escm"),(void*)f_8299},
{C_text("f_8302:support_2escm"),(void*)f_8302},
{C_text("f_8309:support_2escm"),(void*)f_8309},
{C_text("f_8356:support_2escm"),(void*)f_8356},
{C_text("f_8360:support_2escm"),(void*)f_8360},
{C_text("f_8365:support_2escm"),(void*)f_8365},
{C_text("f_8382:support_2escm"),(void*)f_8382},
{C_text("f_8390:support_2escm"),(void*)f_8390},
{C_text("f_8392:support_2escm"),(void*)f_8392},
{C_text("f_8417:support_2escm"),(void*)f_8417},
{C_text("f_8453:support_2escm"),(void*)f_8453},
{C_text("f_8487:support_2escm"),(void*)f_8487},
{C_text("f_8518:support_2escm"),(void*)f_8518},
{C_text("f_8541:support_2escm"),(void*)f_8541},
{C_text("f_8562:support_2escm"),(void*)f_8562},
{C_text("f_8584:support_2escm"),(void*)f_8584},
{C_text("f_8592:support_2escm"),(void*)f_8592},
{C_text("f_8596:support_2escm"),(void*)f_8596},
{C_text("f_8604:support_2escm"),(void*)f_8604},
{C_text("f_8625:support_2escm"),(void*)f_8625},
{C_text("f_8629:support_2escm"),(void*)f_8629},
{C_text("f_8641:support_2escm"),(void*)f_8641},
{C_text("f_8668:support_2escm"),(void*)f_8668},
{C_text("f_8680:support_2escm"),(void*)f_8680},
{C_text("f_8682:support_2escm"),(void*)f_8682},
{C_text("f_8707:support_2escm"),(void*)f_8707},
{C_text("f_8741:support_2escm"),(void*)f_8741},
{C_text("f_8767:support_2escm"),(void*)f_8767},
{C_text("f_8769:support_2escm"),(void*)f_8769},
{C_text("f_8794:support_2escm"),(void*)f_8794},
{C_text("f_8878:support_2escm"),(void*)f_8878},
{C_text("f_8880:support_2escm"),(void*)f_8880},
{C_text("f_8905:support_2escm"),(void*)f_8905},
{C_text("f_8945:support_2escm"),(void*)f_8945},
{C_text("f_8986:support_2escm"),(void*)f_8986},
{C_text("f_9015:support_2escm"),(void*)f_9015},
{C_text("f_9017:support_2escm"),(void*)f_9017},
{C_text("f_9042:support_2escm"),(void*)f_9042},
{C_text("f_9078:support_2escm"),(void*)f_9078},
{C_text("f_9080:support_2escm"),(void*)f_9080},
{C_text("f_9105:support_2escm"),(void*)f_9105},
{C_text("f_9117:support_2escm"),(void*)f_9117},
{C_text("f_9123:support_2escm"),(void*)f_9123},
{C_text("f_9146:support_2escm"),(void*)f_9146},
{C_text("f_9148:support_2escm"),(void*)f_9148},
{C_text("f_9173:support_2escm"),(void*)f_9173},
{C_text("f_9184:support_2escm"),(void*)f_9184},
{C_text("f_9188:support_2escm"),(void*)f_9188},
{C_text("f_9191:support_2escm"),(void*)f_9191},
{C_text("f_9198:support_2escm"),(void*)f_9198},
{C_text("f_9212:support_2escm"),(void*)f_9212},
{C_text("f_9318:support_2escm"),(void*)f_9318},
{C_text("f_9320:support_2escm"),(void*)f_9320},
{C_text("f_9345:support_2escm"),(void*)f_9345},
{C_text("f_9363:support_2escm"),(void*)f_9363},
{C_text("f_9366:support_2escm"),(void*)f_9366},
{C_text("f_9372:support_2escm"),(void*)f_9372},
{C_text("f_9378:support_2escm"),(void*)f_9378},
{C_text("f_9382:support_2escm"),(void*)f_9382},
{C_text("f_9385:support_2escm"),(void*)f_9385},
{C_text("f_9388:support_2escm"),(void*)f_9388},
{C_text("f_9397:support_2escm"),(void*)f_9397},
{C_text("f_9410:support_2escm"),(void*)f_9410},
{C_text("f_9412:support_2escm"),(void*)f_9412},
{C_text("f_9437:support_2escm"),(void*)f_9437},
{C_text("f_9467:support_2escm"),(void*)f_9467},
{C_text("f_9469:support_2escm"),(void*)f_9469},
{C_text("f_9494:support_2escm"),(void*)f_9494},
{C_text("f_9567:support_2escm"),(void*)f_9567},
{C_text("f_9570:support_2escm"),(void*)f_9570},
{C_text("f_9579:support_2escm"),(void*)f_9579},
{C_text("f_9583:support_2escm"),(void*)f_9583},
{C_text("f_9587:support_2escm"),(void*)f_9587},
{C_text("f_9589:support_2escm"),(void*)f_9589},
{C_text("f_9637:support_2escm"),(void*)f_9637},
{C_text("f_9662:support_2escm"),(void*)f_9662},
{C_text("f_9690:support_2escm"),(void*)f_9690},
{C_text("f_9714:support_2escm"),(void*)f_9714},
{C_text("f_9748:support_2escm"),(void*)f_9748},
{C_text("f_9752:support_2escm"),(void*)f_9752},
{C_text("f_9762:support_2escm"),(void*)f_9762},
{C_text("f_9786:support_2escm"),(void*)f_9786},
{C_text("f_9801:support_2escm"),(void*)f_9801},
{C_text("f_9813:support_2escm"),(void*)f_9813},
{C_text("f_9838:support_2escm"),(void*)f_9838},
{C_text("f_9863:support_2escm"),(void*)f_9863},
{C_text("f_9893:support_2escm"),(void*)f_9893},
{C_text("f_9895:support_2escm"),(void*)f_9895},
{C_text("f_9920:support_2escm"),(void*)f_9920},
{C_text("f_9951:support_2escm"),(void*)f_9951},
{C_text("f_9963:support_2escm"),(void*)f_9963},
{C_text("f_9967:support_2escm"),(void*)f_9967},
{C_text("f_9990:support_2escm"),(void*)f_9990},
{C_text("toplevel:support_2escm"),(void*)C_support_toplevel},
{NULL,NULL}};
#endif

static C_PTABLE_ENTRY *create_ptable(void){
#ifdef C_ENABLE_PTABLES
return ptable;
#else
return NULL;
#endif
}

/*
o|hiding unexported module binding: chicken.compiler.support#partition 
o|hiding unexported module binding: chicken.compiler.support#span 
o|hiding unexported module binding: chicken.compiler.support#take 
o|hiding unexported module binding: chicken.compiler.support#drop 
o|hiding unexported module binding: chicken.compiler.support#split-at 
o|hiding unexported module binding: chicken.compiler.support#append-map 
o|hiding unexported module binding: chicken.compiler.support#every 
o|hiding unexported module binding: chicken.compiler.support#any 
o|hiding unexported module binding: chicken.compiler.support#cons* 
o|hiding unexported module binding: chicken.compiler.support#concatenate 
o|hiding unexported module binding: chicken.compiler.support#delete 
o|hiding unexported module binding: chicken.compiler.support#first 
o|hiding unexported module binding: chicken.compiler.support#second 
o|hiding unexported module binding: chicken.compiler.support#third 
o|hiding unexported module binding: chicken.compiler.support#fourth 
o|hiding unexported module binding: chicken.compiler.support#fifth 
o|hiding unexported module binding: chicken.compiler.support#delete-duplicates 
o|hiding unexported module binding: chicken.compiler.support#alist-cons 
o|hiding unexported module binding: chicken.compiler.support#filter 
o|hiding unexported module binding: chicken.compiler.support#filter-map 
o|hiding unexported module binding: chicken.compiler.support#remove 
o|hiding unexported module binding: chicken.compiler.support#unzip1 
o|hiding unexported module binding: chicken.compiler.support#last 
o|hiding unexported module binding: chicken.compiler.support#list-index 
o|hiding unexported module binding: chicken.compiler.support#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.compiler.support#lset-difference/eq? 
o|hiding unexported module binding: chicken.compiler.support#lset-union/eq? 
o|hiding unexported module binding: chicken.compiler.support#lset-intersection/eq? 
o|hiding unexported module binding: chicken.compiler.support#list-tabulate 
o|hiding unexported module binding: chicken.compiler.support#lset<=/eq? 
o|hiding unexported module binding: chicken.compiler.support#lset=/eq? 
o|hiding unexported module binding: chicken.compiler.support#length+ 
o|hiding unexported module binding: chicken.compiler.support#find 
o|hiding unexported module binding: chicken.compiler.support#find-tail 
o|hiding unexported module binding: chicken.compiler.support#iota 
o|hiding unexported module binding: chicken.compiler.support#make-list 
o|hiding unexported module binding: chicken.compiler.support#posq 
o|hiding unexported module binding: chicken.compiler.support#posv 
o|hiding unexported module binding: chicken.compiler.support#constant682 
o|hiding unexported module binding: chicken.compiler.support#+logged-debugging-modes+ 
o|hiding unexported module binding: chicken.compiler.support#test-debugging-mode 
o|hiding unexported module binding: chicken.compiler.support#map-llist 
o|hiding unexported module binding: chicken.compiler.support#struct/union-wrapper-type-name 
o|hiding unexported module binding: chicken.compiler.support#follow-without-loop 
o|hiding unexported module binding: chicken.compiler.support#sort-symbols 
o|hiding unexported module binding: chicken.compiler.support#profile-info-vector-name 
o|hiding unexported module binding: chicken.compiler.support#profile-lambda-list 
o|hiding unexported module binding: chicken.compiler.support#profile-lambda-index 
o|hiding unexported module binding: chicken.compiler.support#node 
o|hiding unexported module binding: chicken.compiler.support#copy-node-tree-and-rename 
o|hiding unexported module binding: chicken.compiler.support#replace-rest-ops-in-known-call! 
o|hiding unexported module binding: chicken.compiler.support#node->sexpr 
o|hiding unexported module binding: chicken.compiler.support#sexpr->node 
o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub 
o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub-id-set! 
o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub-name-set! 
o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub-qualifiers-set! 
o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub-return-type-set! 
o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub-argument-types-set! 
o|hiding unexported module binding: chicken.compiler.support#foreign-type-table 
o|hiding unexported module binding: chicken.compiler.support#foreign-type-result-converter 
o|hiding unexported module binding: chicken.compiler.support#foreign-type-argument-converter 
o|hiding unexported module binding: chicken.compiler.support#block-variable-literal 
o|hiding unexported module binding: chicken.compiler.support#block-variable-literal-name-set! 
o|hiding unexported module binding: chicken.compiler.support#real-name-table 
o|hiding unexported module binding: chicken.compiler.support#real-name-max-depth 
o|hiding unexported module binding: chicken.compiler.support#encodeable-literal? 
o|hiding unexported module binding: chicken.compiler.support#scan-sharp-greater-string 
o|hiding unexported module binding: chicken.compiler.support#unhide-variable 
S|applied compiler syntax:
S|  chicken.format#sprintf		4
S|  chicken.format#fprintf		5
S|  chicken.format#printf		5
S|  scheme#for-each		12
S|  chicken.base#foldl		3
S|  scheme#map		33
S|  chicken.base#foldr		3
o|eliminated procedure checks: 406 
o|specializations:
o|  1 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
o|  1 (scheme#+ fixnum fixnum)
o|  1 (scheme#number->string * *)
o|  2 (chicken.bitwise#integer-length *)
o|  1 (scheme#length list)
o|  1 (scheme#- fixnum fixnum)
o|  5 (scheme#= fixnum fixnum)
o|  2 (scheme#memq * list)
o|  2 (scheme#assq * (list-of pair))
o|  1 (scheme#* fixnum fixnum)
o|  1 (scheme#positive? *)
o|  4 (scheme#cddr (pair * pair))
o|  1 (scheme#caddr (pair * (pair * pair)))
o|  1 (scheme#integer? *)
o|  358 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  2 (##sys#call-with-values (procedure () *) *)
o|  5 (chicken.base#add1 *)
o|  1 (scheme#cadr (pair * pair))
o|  2 (scheme#current-input-port)
o|  2 (scheme#string=? * *)
o|  4 (scheme#char=? char char)
o|  3 (chicken.base#sub1 *)
o|  4 (scheme#zero? *)
o|  2 (chicken.base#current-error-port)
o|  14 (##sys#check-output-port * * *)
o|  1 (scheme#eqv? * *)
o|  9 (##sys#check-list (or pair list) *)
o|  53 (scheme#cdr pair)
o|  35 (scheme#car pair)
(o e)|safe calls: 1804 
(o e)|assignments to immediate values: 5 
o|safe globals: (chicken.compiler.support#bomb chicken.compiler.support#debugging-chicken chicken.compiler.support#compiler-cleanup-hook chicken.compiler.support#unsafe chicken.compiler.support#number-type chicken.compiler.support#constant682 chicken.compiler.support#posv chicken.compiler.support#posq chicken.compiler.support#make-list chicken.compiler.support#iota chicken.compiler.support#find-tail chicken.compiler.support#find chicken.compiler.support#length+ chicken.compiler.support#lset=/eq? chicken.compiler.support#lset<=/eq? chicken.compiler.support#list-tabulate chicken.compiler.support#lset-intersection/eq? chicken.compiler.support#lset-union/eq? chicken.compiler.support#lset-difference/eq? chicken.compiler.support#lset-adjoin/eq? chicken.compiler.support#list-index chicken.compiler.support#last chicken.compiler.support#unzip1 chicken.compiler.support#remove chicken.compiler.support#filter-map chicken.compiler.support#filter chicken.compiler.support#alist-cons chicken.compiler.support#delete-duplicates chicken.compiler.support#fifth chicken.compiler.support#fourth chicken.compiler.support#third chicken.compiler.support#second chicken.compiler.support#first chicken.compiler.support#delete chicken.compiler.support#concatenate chicken.compiler.support#cons* chicken.compiler.support#any chicken.compiler.support#every chicken.compiler.support#append-map chicken.compiler.support#split-at chicken.compiler.support#drop chicken.compiler.support#take chicken.compiler.support#span chicken.compiler.support#partition) 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#partition 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#span 
o|inlining procedure: k5322 
o|inlining procedure: k5322 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#drop 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#append-map 
o|inlining procedure: k5592 
o|inlining procedure: k5592 
o|inlining procedure: k5623 
o|inlining procedure: k5623 
o|merged explicitly consed rest parameter: xs343 
o|inlining procedure: k5653 
o|inlining procedure: k5653 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#concatenate 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#delete-duplicates 
o|inlining procedure: k5840 
o|inlining procedure: k5840 
o|inlining procedure: k5832 
o|inlining procedure: k5832 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#remove 
o|inlining procedure: k5989 
o|inlining procedure: k5989 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#list-index 
o|merged explicitly consed rest parameter: vals483 
o|inlining procedure: k6048 
o|inlining procedure: k6048 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-difference/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-union/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-intersection/eq? 
o|inlining procedure: k6231 
o|inlining procedure: k6231 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset<=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#length+ 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#find-tail 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#iota 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#make-list 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#posq 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#posv 
o|inlining procedure: k6499 
o|inlining procedure: k6499 
o|inlining procedure: k6527 
o|inlining procedure: k6527 
o|inlining procedure: k6560 
o|inlining procedure: k6593 
o|contracted procedure: "(support.scm:136) g709716" 
o|propagated global variable: out719722 ##sys#standard-output 
o|substituted constant variable: a6575 
o|substituted constant variable: a6576 
o|inlining procedure: k6593 
o|inlining procedure: k6560 
o|propagated global variable: out734737 chicken.compiler.support#collected-debugging-output 
o|substituted constant variable: a6617 
o|substituted constant variable: a6618 
o|propagated global variable: out734737 chicken.compiler.support#collected-debugging-output 
o|inlining procedure: k6628 
o|inlining procedure: k6628 
o|propagated global variable: out770773 chicken.compiler.support#collected-debugging-output 
o|substituted constant variable: a6674 
o|substituted constant variable: a6675 
o|inlining procedure: k6689 
o|inlining procedure: k6689 
o|inlining procedure: k6705 
o|inlining procedure: k6705 
o|inlining procedure: k6725 
o|inlining procedure: k6725 
o|inlining procedure: k6807 
o|inlining procedure: k6807 
o|substituted constant variable: a6828 
o|substituted constant variable: a6829 
o|substituted constant variable: a6849 
o|substituted constant variable: a6850 
o|contracted procedure: "(support.scm:195) thread-id850" 
o|propagated global variable: t851 ##sys#current-thread 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#map-llist 
o|inlining procedure: k6937 
o|inlining procedure: k6937 
o|inlining procedure: k6952 
o|inlining procedure: k6952 
o|inlining procedure: k6978 
o|inlining procedure: k6978 
o|inlining procedure: k7012 
o|inlining procedure: k7037 
o|inlining procedure: k7037 
o|substituted constant variable: a7046 
o|substituted constant variable: a7050 
o|inlining procedure: k7012 
o|inlining procedure: k7059 
o|inlining procedure: k7059 
o|substituted constant variable: a7122 
o|inlining procedure: k7118 
o|propagated global variable: r711917897 ##sys#standard-input 
o|inlining procedure: k7118 
o|inlining procedure: k7132 
o|inlining procedure: k7132 
o|substituted constant variable: a7165 
o|inlining procedure: k7161 
o|inlining procedure: k7161 
o|inlining procedure: k7172 
o|inlining procedure: k7172 
o|inlining procedure: k7192 
o|inlining procedure: k7192 
o|inlining procedure: k7234 
o|inlining procedure: k7234 
o|inlining procedure: k7292 
o|inlining procedure: k7292 
o|inlining procedure: k7326 
o|inlining procedure: k7326 
o|inlining procedure: k7338 
o|inlining procedure: k7338 
o|inlining procedure: k7350 
o|inlining procedure: k7350 
o|inlining procedure: k7362 
o|inlining procedure: k7362 
o|inlining procedure: k7374 
o|inlining procedure: k7374 
o|inlining procedure: k7394 
o|inlining procedure: k7394 
o|inlining procedure: k7406 
o|inlining procedure: k7406 
o|inlining procedure: k7418 
o|inlining procedure: k7418 
o|inlining procedure: k7430 
o|inlining procedure: k7430 
o|inlining procedure: k7442 
o|inlining procedure: k7442 
o|inlining procedure: k7454 
o|inlining procedure: k7454 
o|inlining procedure: k7482 
o|inlining procedure: k7482 
o|inlining procedure: k7494 
o|inlining procedure: k7494 
o|inlining procedure: k7503 
o|inlining procedure: k7503 
o|inlining procedure: k7541 
o|inlining procedure: k7541 
o|inlining procedure: k7554 
o|inlining procedure: k7554 
o|inlining procedure: k7595 
o|inlining procedure: k7595 
o|inlining procedure: k7639 
o|inlining procedure: k7639 
o|inlining procedure: k7659 
o|inlining procedure: k7659 
o|inlining procedure: k7691 
o|inlining procedure: k7691 
o|merged explicitly consed rest parameter: args10861104 
o|consed rest parameter at call site: tmp24820 1 
o|inlining procedure: k7737 
o|inlining procedure: k7737 
o|inlining procedure: k7752 
o|inlining procedure: k7752 
o|inlining procedure: k7879 
o|contracted procedure: "(support.scm:389) g11491158" 
o|inlining procedure: k7879 
o|propagated global variable: g11551159 chicken.compiler.support#profile-lambda-list 
o|inlining procedure: k7932 
o|inlining procedure: k7932 
o|inlining procedure: k7950 
o|contracted procedure: "(support.scm:407) chicken.compiler.support#filter-map" 
o|inlining procedure: k5887 
o|inlining procedure: k5887 
o|inlining procedure: k5876 
o|inlining procedure: k5876 
o|inlining procedure: k7950 
o|inlining procedure: k7968 
o|inlining procedure: k7980 
o|inlining procedure: k7980 
o|inlining procedure: k7968 
o|inlining procedure: k8014 
o|inlining procedure: k8014 
o|inlining procedure: k8066 
o|inlining procedure: k8066 
o|contracted procedure: "(support.scm:447) g12671268" 
o|contracted procedure: "(support.scm:448) g12741275" 
o|inlining procedure: k8181 
o|inlining procedure: k8181 
o|inlining procedure: k8201 
o|inlining procedure: k8201 
o|inlining procedure: k8217 
o|contracted procedure: "(support.scm:458) g13001301" 
o|inlining procedure: k8250 
o|inlining procedure: k8250 
o|inlining procedure: k8217 
o|inlining procedure: k8294 
o|inlining procedure: k8294 
o|inlining procedure: k8313 
o|inlining procedure: k8313 
o|inlining procedure: k8324 
o|contracted procedure: "(support.scm:474) g13371338" 
o|inlining procedure: k8394 
o|inlining procedure: k8394 
o|contracted procedure: "(support.scm:475) chicken.compiler.support#unzip1" 
o|inlining procedure: k5949 
o|contracted procedure: "(mini-srfi-1.scm:143) g446455" 
o|inlining procedure: k5949 
o|inlining procedure: k8324 
o|contracted procedure: "(support.scm:479) g13721373" 
o|inlining procedure: k8462 
o|contracted procedure: "(support.scm:481) g13771378" 
o|inlining procedure: "(support.scm:483) chicken.compiler.support#fourth" 
o|inlining procedure: "(support.scm:482) chicken.compiler.support#third" 
o|inlining procedure: "(support.scm:482) chicken.compiler.support#second" 
o|inlining procedure: k8462 
o|inlining procedure: k8520 
o|contracted procedure: "(support.scm:488) g13901391" 
o|contracted procedure: "(support.scm:492) g13951396" 
o|inlining procedure: k8520 
o|contracted procedure: "(support.scm:494) g14001401" 
o|inlining procedure: k8646 
o|contracted procedure: "(support.scm:503) g14071408" 
o|inlining procedure: k8684 
o|inlining procedure: k8684 
o|inlining procedure: k8716 
o|inlining procedure: k8716 
o|inlining procedure: k8646 
o|contracted procedure: "(support.scm:508) g14451446" 
o|inlining procedure: k8771 
o|inlining procedure: k8771 
o|inlining procedure: k8806 
o|contracted procedure: "(support.scm:510) g14761477" 
o|inlining procedure: k8806 
o|contracted procedure: "(support.scm:512) g14811482" 
o|inlining procedure: k8846 
o|contracted procedure: "(support.scm:514) g14891490" 
o|inlining procedure: k8882 
o|inlining procedure: k8882 
o|inlining procedure: k8846 
o|contracted procedure: "(support.scm:519) g15211522" 
o|contracted procedure: "(support.scm:521) chicken.compiler.support#fifth" 
o|inlining procedure: "(support.scm:521) chicken.compiler.support#fourth" 
o|inlining procedure: "(support.scm:521) chicken.compiler.support#third" 
o|inlining procedure: "(support.scm:518) chicken.compiler.support#second" 
o|inlining procedure: k8978 
o|contracted procedure: "(support.scm:525) g15381539" 
o|inlining procedure: k9019 
o|inlining procedure: k9019 
o|inlining procedure: "(support.scm:525) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:525) chicken.compiler.support#first" 
o|inlining procedure: k8978 
o|contracted procedure: "(support.scm:527) g15691570" 
o|inlining procedure: k9082 
o|inlining procedure: k9082 
o|contracted procedure: "(support.scm:530) g16021603" 
o|inlining procedure: k9150 
o|inlining procedure: k9150 
o|inlining procedure: k9186 
o|inlining procedure: k9196 
o|inlining procedure: k9196 
o|inlining procedure: k9186 
o|contracted procedure: "(support.scm:532) g16111612" 
o|substituted constant variable: a9216 
o|inlining procedure: k9220 
o|inlining procedure: k9220 
o|inlining procedure: k9232 
o|inlining procedure: k9232 
o|substituted constant variable: a9239 
o|substituted constant variable: a9241 
o|substituted constant variable: a9243 
o|substituted constant variable: a9245 
o|substituted constant variable: a9247 
o|substituted constant variable: a9249 
o|substituted constant variable: a9254 
o|substituted constant variable: a9256 
o|substituted constant variable: a9258 
o|substituted constant variable: a9260 
o|inlining procedure: k9264 
o|inlining procedure: k9264 
o|substituted constant variable: a9271 
o|substituted constant variable: a9273 
o|substituted constant variable: a9275 
o|substituted constant variable: a9277 
o|substituted constant variable: a9279 
o|substituted constant variable: a9281 
o|substituted constant variable: a9286 
o|substituted constant variable: a9288 
o|substituted constant variable: a9290 
o|substituted constant variable: a9292 
o|substituted constant variable: a9297 
o|substituted constant variable: a9299 
o|contracted procedure: "(support.scm:542) g16461647" 
o|inlining procedure: k9322 
o|inlining procedure: k9322 
o|contracted procedure: "(support.scm:454) g12881289" 
o|inlining procedure: k9364 
o|inlining procedure: k9364 
o|inlining procedure: k9389 
o|inlining procedure: k9414 
o|inlining procedure: k9414 
o|inlining procedure: k9389 
o|inlining procedure: k9471 
o|inlining procedure: k9471 
o|inlining procedure: k9502 
o|inlining procedure: k9502 
o|inlining procedure: k9520 
o|inlining procedure: k9520 
o|inlining procedure: k9537 
o|inlining procedure: k9537 
o|inlining procedure: k9549 
o|inlining procedure: k9591 
o|inlining procedure: k9591 
o|inlining procedure: k9639 
o|inlining procedure: k9639 
o|inlining procedure: k9549 
o|inlining procedure: "(support.scm:570) chicken.compiler.support#third" 
o|inlining procedure: "(support.scm:567) chicken.compiler.support#second" 
o|inlining procedure: k9698 
o|inlining procedure: "(support.scm:573) chicken.compiler.support#first" 
o|inlining procedure: "(support.scm:573) chicken.compiler.support#first" 
o|inlining procedure: k9698 
o|inlining procedure: "(support.scm:575) chicken.compiler.support#first" 
o|inlining procedure: k9732 
o|inlining procedure: k9764 
o|inlining procedure: k9764 
o|inlining procedure: "(support.scm:578) chicken.compiler.support#first" 
o|inlining procedure: k9732 
o|inlining procedure: k9840 
o|inlining procedure: k9840 
o|inlining procedure: k9871 
o|consed rest parameter at call site: "(support.scm:588) chicken.compiler.support#cons*" 2 
o|inlining procedure: k9897 
o|inlining procedure: k9897 
o|inlining procedure: k9871 
o|inlining procedure: k9937 
o|inlining procedure: k9953 
o|inlining procedure: k9953 
o|inlining procedure: k9937 
o|consed rest parameter at call site: "(support.scm:596) chicken.compiler.support#cons*" 2 
o|inlining procedure: k10023 
o|inlining procedure: k10023 
o|inlining procedure: k10058 
o|consed rest parameter at call site: "(support.scm:598) chicken.compiler.support#cons*" 2 
o|inlining procedure: k10080 
o|inlining procedure: k10080 
o|inlining procedure: k10058 
o|inlining procedure: k10131 
o|inlining procedure: k10131 
o|substituted constant variable: a10163 
o|inlining procedure: k10167 
o|inlining procedure: k10167 
o|substituted constant variable: a10180 
o|substituted constant variable: a10182 
o|substituted constant variable: a10184 
o|substituted constant variable: a10186 
o|substituted constant variable: a10188 
o|substituted constant variable: a10190 
o|substituted constant variable: a10192 
o|substituted constant variable: a10194 
o|substituted constant variable: a10196 
o|substituted constant variable: a10198 
o|substituted constant variable: a10200 
o|substituted constant variable: a10202 
o|substituted constant variable: a10204 
o|substituted constant variable: a10206 
o|substituted constant variable: a10208 
o|substituted constant variable: a10210 
o|inlining procedure: k10214 
o|inlining procedure: k10214 
o|substituted constant variable: a10221 
o|substituted constant variable: a10223 
o|substituted constant variable: a10225 
o|inlining procedure: k10235 
o|inlining procedure: k10235 
o|contracted procedure: "(support.scm:605) g19931994" 
o|inlining procedure: "(support.scm:607) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:607) chicken.compiler.support#first" 
o|contracted procedure: "(support.scm:615) chicken.compiler.support#split-at" 
o|inlining procedure: k5380 
o|inlining procedure: k5380 
o|inlining procedure: k10335 
o|inlining procedure: k10350 
o|contracted procedure: "(support.scm:644) g20942095" 
o|inlining procedure: k10379 
o|inlining procedure: k10379 
o|contracted procedure: "(support.scm:648) g20992100" 
o|substituted constant variable: a10401 
o|inlining procedure: k10350 
o|contracted procedure: "(support.scm:653) g21042105" 
o|inlining procedure: k10335 
o|contracted procedure: "(support.scm:657) g21102111" 
o|inlining procedure: k10504 
o|inlining procedure: k10504 
o|contracted procedure: "(support.scm:621) chicken.compiler.support#replace-rest-ops-in-known-call!" 
o|inlining procedure: k11116 
o|inlining procedure: "(support.scm:720) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:719) chicken.compiler.support#first" 
o|inlining procedure: k11116 
o|inlining procedure: k11157 
o|contracted procedure: "(support.scm:728) g23582359" 
o|inlining procedure: "(support.scm:724) chicken.compiler.support#second" 
o|inlining procedure: k11157 
o|inlining procedure: "(support.scm:723) chicken.compiler.support#first" 
o|inlining procedure: k11222 
o|inlining procedure: k11252 
o|inlining procedure: k11252 
o|contracted procedure: "(support.scm:741) g23702371" 
o|inlining procedure: "(support.scm:736) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:734) chicken.compiler.support#first" 
o|inlining procedure: k11222 
o|inlining procedure: k11294 
o|inlining procedure: k11294 
o|substituted constant variable: a11315 
o|substituted constant variable: a11317 
o|substituted constant variable: a11319 
o|inlining procedure: k10531 
o|contracted procedure: "(support.scm:620) g20482057" 
o|inlining procedure: k10531 
o|contracted procedure: "(support.scm:618) chicken.compiler.support#copy-node-tree-and-rename" 
o|inlining procedure: k10641 
o|contracted procedure: "(support.scm:671) g21712172" 
o|inlining procedure: k10641 
o|inlining procedure: "(support.scm:676) rename2156" 
o|inlining procedure: "(support.scm:673) chicken.compiler.support#first" 
o|inlining procedure: k10680 
o|contracted procedure: "(support.scm:678) g21782179" 
o|inlining procedure: "(support.scm:680) chicken.compiler.support#first" 
o|inlining procedure: "(support.scm:679) rename2156" 
o|inlining procedure: "(support.scm:679) chicken.compiler.support#first" 
o|inlining procedure: k10680 
o|contracted procedure: "(support.scm:687) g21872188" 
o|inlining procedure: "(support.scm:689) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:683) chicken.compiler.support#first" 
o|inlining procedure: "(support.scm:682) chicken.compiler.support#first" 
o|inlining procedure: k10767 
o|contracted procedure: "(support.scm:700) g22582259" 
o|inlining procedure: k10833 
o|inlining procedure: k10833 
o|inlining procedure: "(support.scm:704) chicken.compiler.support#fourth" 
o|inlining procedure: k10881 
o|inlining procedure: "(support.scm:703) rename2156" 
o|inlining procedure: k10881 
o|inlining procedure: "(support.scm:702) chicken.compiler.support#second" 
o|inlining procedure: k10900 
o|inlining procedure: k10900 
o|inlining procedure: k10948 
o|inlining procedure: k10948 
o|inlining procedure: "(support.scm:692) chicken.compiler.support#third" 
o|inlining procedure: k10767 
o|contracted procedure: "(support.scm:706) g22982299" 
o|inlining procedure: k11009 
o|inlining procedure: k11009 
o|substituted constant variable: a11041 
o|substituted constant variable: a11043 
o|substituted constant variable: a11045 
o|substituted constant variable: a11047 
o|substituted constant variable: a11049 
o|inlining procedure: k11056 
o|inlining procedure: k11056 
o|inlining procedure: k10577 
o|inlining procedure: k10577 
o|inlining procedure: k11326 
o|contracted procedure: "(support.scm:750) g24052406" 
o|inlining procedure: "(support.scm:752) chicken.compiler.support#second" 
o|inlining procedure: k11326 
o|inlining procedure: k11373 
o|inlining procedure: k11373 
o|contracted procedure: "(support.scm:759) g24132414" 
o|inlining procedure: "(support.scm:754) chicken.compiler.support#second" 
o|inlining procedure: k11399 
o|contracted procedure: "(support.scm:761) g24192420" 
o|contracted procedure: "(support.scm:764) g24242425" 
o|inlining procedure: "(support.scm:763) chicken.compiler.support#second" 
o|inlining procedure: k11399 
o|contracted procedure: "(support.scm:766) g24292430" 
o|inlining procedure: "(support.scm:768) chicken.compiler.support#second" 
o|substituted constant variable: a11480 
o|substituted constant variable: a11482 
o|substituted constant variable: a11484 
o|substituted constant variable: a11486 
o|inlining procedure: k11496 
o|inlining procedure: k11496 
o|contracted procedure: "(support.scm:779) g24412442" 
o|inlining procedure: k11721 
o|inlining procedure: k11721 
o|substituted constant variable: a11746 
o|inlining procedure: k11753 
o|inlining procedure: k11776 
o|contracted procedure: "(support.scm:845) g26122619" 
o|inlining procedure: k11776 
o|contracted procedure: "(support.scm:845) chicken.compiler.support#sort-symbols" 
o|inlining procedure: k11753 
o|inlining procedure: k11828 
o|contracted procedure: "(support.scm:837) g25902597" 
o|inlining procedure: k11828 
o|inlining procedure: k11855 
o|inlining procedure: k11870 
o|inlining procedure: k11888 
o|inlining procedure: k11900 
o|inlining procedure: k11920 
o|contracted procedure: "(support.scm:831) chicken.compiler.support#node->sexpr" 
o|inlining procedure: k11604 
o|inlining procedure: k11604 
o|inlining procedure: k11920 
o|inlining procedure: k11950 
o|inlining procedure: k11950 
o|inlining procedure: "(support.scm:827) chicken.compiler.support#fourth" 
o|substituted constant variable: a11964 
o|substituted constant variable: a11966 
o|contracted procedure: "(support.scm:823) g25802581" 
o|inlining procedure: k11900 
o|inlining procedure: k11888 
o|inlining procedure: k11870 
o|contracted procedure: "(support.scm:816) g25582559" 
o|contracted procedure: "(support.scm:816) g25612562" 
o|inlining procedure: k11855 
o|inlining procedure: k12022 
o|inlining procedure: k12022 
o|contracted procedure: "(support.scm:854) g26412642" 
o|contracted procedure: "(support.scm:857) chicken.compiler.support#sexpr->node" 
o|contracted procedure: "(support.scm:797) g24902491" 
o|inlining procedure: k11675 
o|inlining procedure: k11675 
o|inlining procedure: k12069 
o|inlining procedure: k12069 
o|inlining procedure: k12100 
o|inlining procedure: k12100 
o|inlining procedure: k12115 
o|inlining procedure: k12115 
o|inlining procedure: k12147 
o|inlining procedure: k12147 
o|inlining procedure: k12162 
o|inlining procedure: k12182 
o|inlining procedure: k12182 
o|inlining procedure: k12200 
o|inlining procedure: k12200 
o|inlining procedure: k12162 
o|inlining procedure: "(support.scm:883) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:882) chicken.compiler.support#first" 
o|inlining procedure: k12254 
o|inlining procedure: k12254 
o|inlining procedure: k12283 
o|inlining procedure: k12283 
o|contracted procedure: "(support.scm:908) chicken.compiler.support#find" 
o|inlining procedure: k6344 
o|inlining procedure: k6344 
o|propagated global variable: lst589 chicken.compiler.support#foreign-callback-stubs 
o|inlining procedure: "(support.scm:907) chicken.compiler.support#first" 
o|inlining procedure: k12318 
o|inlining procedure: k12318 
o|substituted constant variable: a12334 
o|substituted constant variable: a12336 
o|substituted constant variable: a12338 
o|inlining procedure: k12342 
o|inlining procedure: k12342 
o|substituted constant variable: a12355 
o|substituted constant variable: a12357 
o|substituted constant variable: a12359 
o|substituted constant variable: a12361 
o|inlining procedure: k12374 
o|inlining procedure: k12392 
o|inlining procedure: k12410 
o|inlining procedure: k12410 
o|inlining procedure: "(support.scm:926) chicken.compiler.support#first" 
o|inlining procedure: "(support.scm:924) chicken.compiler.support#first" 
o|inlining procedure: k12392 
o|substituted constant variable: a12449 
o|substituted constant variable: a12451 
o|inlining procedure: "(support.scm:919) chicken.compiler.support#second" 
o|inlining procedure: k12374 
o|inlining procedure: "(support.scm:917) chicken.compiler.support#first" 
o|inlining procedure: "(support.scm:916) chicken.compiler.support#third" 
o|inlining procedure: k12467 
o|inlining procedure: k12467 
o|inlining procedure: k12482 
o|inlining procedure: k12482 
o|inlining procedure: k12508 
o|inlining procedure: k12508 
o|inlining procedure: k12523 
o|inlining procedure: k12523 
o|inlining procedure: k12545 
o|inlining procedure: k12565 
o|inlining procedure: k12565 
o|inlining procedure: k12545 
o|inlining procedure: k12588 
o|contracted procedure: "(support.scm:969) chicken.compiler.support#unhide-variable" 
o|inlining procedure: k17584 
o|inlining procedure: k17584 
o|inlining procedure: k12588 
o|contracted procedure: "(support.scm:968) g27782779" 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub-id-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub-name-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub-qualifiers-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub-return-type-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub-argument-types-set! 
o|contracted procedure: "(support.scm:990) g28432844" 
o|inlining procedure: k12747 
o|inlining procedure: k12747 
o|inlining procedure: k12784 
o|inlining procedure: k12784 
o|inlining procedure: k12832 
o|inlining procedure: k12832 
o|inlining procedure: k12856 
o|inlining procedure: k12856 
o|inlining procedure: k12862 
o|inlining procedure: k12862 
o|inlining procedure: k12915 
o|inlining procedure: k12915 
o|inlining procedure: k12969 
o|inlining procedure: k12969 
o|inlining procedure: k13027 
o|substituted constant variable: tmap2883 
o|substituted constant variable: tmap2883 
o|inlining procedure: k13027 
o|substituted constant variable: a13081 
o|substituted constant variable: a13082 
o|inlining procedure: k13065 
o|inlining procedure: k13065 
o|substituted constant variable: a13124 
o|substituted constant variable: a13125 
o|inlining procedure: k13138 
o|inlining procedure: k13138 
o|inlining procedure: k13152 
o|inlining procedure: k13152 
o|inlining procedure: k13196 
o|inlining procedure: k13196 
o|inlining procedure: k13250 
o|inlining procedure: k13250 
o|inlining procedure: k13263 
o|inlining procedure: k13263 
o|inlining procedure: k13300 
o|inlining procedure: k13342 
o|inlining procedure: k13342 
o|inlining procedure: k13405 
o|inlining procedure: k13405 
o|inlining procedure: k13446 
o|inlining procedure: k13446 
o|inlining procedure: k13452 
o|inlining procedure: k13452 
o|inlining procedure: k13478 
o|inlining procedure: k13478 
o|substituted constant variable: a13510 
o|substituted constant variable: a13512 
o|substituted constant variable: a13514 
o|substituted constant variable: a13516 
o|substituted constant variable: a13518 
o|substituted constant variable: a13520 
o|substituted constant variable: a13522 
o|substituted constant variable: a13527 
o|substituted constant variable: a13529 
o|substituted constant variable: a13534 
o|substituted constant variable: a13536 
o|inlining procedure: k13540 
o|inlining procedure: k13540 
o|substituted constant variable: a13553 
o|substituted constant variable: a13555 
o|substituted constant variable: a13557 
o|substituted constant variable: a13559 
o|inlining procedure: k13300 
o|substituted constant variable: a13567 
o|inlining procedure: k13571 
o|inlining procedure: k13571 
o|substituted constant variable: a13578 
o|substituted constant variable: a13580 
o|substituted constant variable: a13582 
o|inlining procedure: k13586 
o|inlining procedure: k13586 
o|substituted constant variable: a13599 
o|substituted constant variable: a13601 
o|substituted constant variable: a13603 
o|substituted constant variable: a13605 
o|substituted constant variable: a13607 
o|inlining procedure: k13611 
o|inlining procedure: k13611 
o|substituted constant variable: a13618 
o|substituted constant variable: a13620 
o|substituted constant variable: a13622 
o|inlining procedure: k13626 
o|inlining procedure: k13626 
o|inlining procedure: k13638 
o|inlining procedure: k13638 
o|substituted constant variable: a13651 
o|substituted constant variable: a13653 
o|substituted constant variable: a13655 
o|substituted constant variable: a13657 
o|substituted constant variable: a13659 
o|substituted constant variable: a13661 
o|inlining procedure: k13665 
o|inlining procedure: k13665 
o|inlining procedure: k13677 
o|inlining procedure: k13677 
o|substituted constant variable: a13690 
o|substituted constant variable: a13692 
o|substituted constant variable: a13694 
o|substituted constant variable: a13696 
o|substituted constant variable: a13698 
o|substituted constant variable: a13700 
o|substituted constant variable: a13705 
o|substituted constant variable: a13707 
o|inlining procedure: k13711 
o|inlining procedure: k13711 
o|inlining procedure: k13723 
o|inlining procedure: k13723 
o|inlining procedure: k13735 
o|inlining procedure: k13735 
o|inlining procedure: k13747 
o|inlining procedure: k13747 
o|substituted constant variable: a13754 
o|substituted constant variable: a13756 
o|substituted constant variable: a13758 
o|substituted constant variable: a13760 
o|substituted constant variable: a13762 
o|substituted constant variable: a13764 
o|substituted constant variable: a13766 
o|substituted constant variable: a13768 
o|substituted constant variable: a13770 
o|inlining procedure: k13774 
o|inlining procedure: k13774 
o|inlining procedure: k13786 
o|inlining procedure: k13786 
o|inlining procedure: k13798 
o|inlining procedure: k13798 
o|inlining procedure: k13810 
o|inlining procedure: k13810 
o|substituted constant variable: a13817 
o|substituted constant variable: a13819 
o|substituted constant variable: a13821 
o|substituted constant variable: a13823 
o|substituted constant variable: a13825 
o|substituted constant variable: a13827 
o|substituted constant variable: a13829 
o|substituted constant variable: a13831 
o|substituted constant variable: a13833 
o|substituted constant variable: a13835 
o|substituted constant variable: a13837 
o|inlining procedure: k13841 
o|inlining procedure: k13841 
o|substituted constant variable: a13854 
o|substituted constant variable: a13856 
o|substituted constant variable: a13858 
o|substituted constant variable: a13860 
o|inlining procedure: k13864 
o|inlining procedure: k13864 
o|substituted constant variable: a13877 
o|substituted constant variable: a13879 
o|substituted constant variable: a13881 
o|substituted constant variable: a13883 
o|inlining procedure: k13887 
o|inlining procedure: k13887 
o|substituted constant variable: a13894 
o|substituted constant variable: a13896 
o|substituted constant variable: a13898 
o|inlining procedure: k13902 
o|inlining procedure: k13902 
o|inlining procedure: k13914 
o|inlining procedure: k13914 
o|substituted constant variable: a13927 
o|substituted constant variable: a13929 
o|substituted constant variable: a13931 
o|substituted constant variable: a13933 
o|substituted constant variable: a13935 
o|substituted constant variable: a13937 
o|substituted constant variable: a13942 
o|substituted constant variable: a13944 
o|inlining procedure: k13957 
o|inlining procedure: k13969 
o|inlining procedure: k13969 
o|inlining procedure: k13957 
o|inlining procedure: k13978 
o|inlining procedure: k13990 
o|inlining procedure: k13990 
o|inlining procedure: k13978 
o|inlining procedure: k14002 
o|inlining procedure: k14002 
o|inlining procedure: k14017 
o|inlining procedure: k14017 
o|inlining procedure: k14035 
o|inlining procedure: k14035 
o|removed unused formal parameters: (t3260) 
o|inlining procedure: k14077 
o|inlining procedure: k14077 
o|inlining procedure: k14098 
o|inlining procedure: k14098 
o|inlining procedure: k14122 
o|inlining procedure: k14122 
o|inlining procedure: k14149 
o|inlining procedure: k14149 
o|inlining procedure: k14171 
o|inlining procedure: k14171 
o|inlining procedure: k14196 
o|inlining procedure: k14196 
o|removed unused parameter to known procedure: t3260 "(support.scm:1247) err3259" 
o|substituted constant variable: a14221 
o|substituted constant variable: a14226 
o|substituted constant variable: a14228 
o|substituted constant variable: a14230 
o|inlining procedure: k14234 
o|inlining procedure: k14234 
o|inlining procedure: k14246 
o|inlining procedure: k14246 
o|inlining procedure: k14258 
o|inlining procedure: k14258 
o|inlining procedure: k14270 
o|inlining procedure: k14270 
o|substituted constant variable: a14277 
o|substituted constant variable: a14279 
o|substituted constant variable: a14281 
o|substituted constant variable: a14283 
o|substituted constant variable: a14285 
o|substituted constant variable: a14287 
o|substituted constant variable: a14289 
o|substituted constant variable: a14291 
o|substituted constant variable: a14293 
o|removed unused parameter to known procedure: t3260 "(support.scm:1248) err3259" 
o|inlining procedure: k14306 
o|inlining procedure: k14306 
o|substituted constant variable: a14319 
o|substituted constant variable: a14321 
o|substituted constant variable: a14323 
o|substituted constant variable: a14325 
o|substituted constant variable: a14330 
o|substituted constant variable: a14332 
o|inlining procedure: k14336 
o|inlining procedure: k14336 
o|substituted constant variable: a14343 
o|substituted constant variable: a14345 
o|substituted constant variable: a14347 
o|inlining procedure: k14351 
o|inlining procedure: k14351 
o|inlining procedure: k14363 
o|inlining procedure: k14363 
o|substituted constant variable: a14376 
o|substituted constant variable: a14378 
o|substituted constant variable: a14380 
o|substituted constant variable: a14382 
o|substituted constant variable: a14384 
o|substituted constant variable: a14386 
o|inlining procedure: k14390 
o|inlining procedure: k14390 
o|inlining procedure: k14402 
o|inlining procedure: k14402 
o|inlining procedure: k14414 
o|inlining procedure: k14414 
o|inlining procedure: k14426 
o|inlining procedure: k14426 
o|inlining procedure: k14438 
o|inlining procedure: k14438 
o|substituted constant variable: a14451 
o|substituted constant variable: a14453 
o|substituted constant variable: a14455 
o|substituted constant variable: a14457 
o|substituted constant variable: a14459 
o|substituted constant variable: a14461 
o|substituted constant variable: a14463 
o|substituted constant variable: a14465 
o|substituted constant variable: a14467 
o|substituted constant variable: a14469 
o|substituted constant variable: a14471 
o|substituted constant variable: a14473 
o|inlining procedure: k14477 
o|inlining procedure: k14477 
o|inlining procedure: k14489 
o|inlining procedure: k14489 
o|inlining procedure: k14501 
o|inlining procedure: k14501 
o|inlining procedure: k14513 
o|inlining procedure: k14513 
o|inlining procedure: k14525 
o|inlining procedure: k14525 
o|inlining procedure: k14537 
o|inlining procedure: k14537 
o|substituted constant variable: a14544 
o|substituted constant variable: a14546 
o|substituted constant variable: a14548 
o|substituted constant variable: a14550 
o|substituted constant variable: a14552 
o|substituted constant variable: a14554 
o|substituted constant variable: a14556 
o|substituted constant variable: a14558 
o|substituted constant variable: a14560 
o|substituted constant variable: a14562 
o|substituted constant variable: a14564 
o|substituted constant variable: a14566 
o|substituted constant variable: a14568 
o|inlining procedure: k14590 
o|inlining procedure: k14590 
o|inlining procedure: k14614 
o|inlining procedure: k14614 
o|inlining procedure: k14644 
o|inlining procedure: k14663 
o|inlining procedure: k14663 
o|inlining procedure: "(support.scm:1278) err3417" 
o|substituted constant variable: a14692 
o|substituted constant variable: a14697 
o|substituted constant variable: a14699 
o|inlining procedure: k14703 
o|inlining procedure: k14703 
o|inlining procedure: k14715 
o|inlining procedure: k14715 
o|inlining procedure: k14727 
o|inlining procedure: k14727 
o|inlining procedure: k14739 
o|inlining procedure: k14739 
o|substituted constant variable: a14746 
o|substituted constant variable: a14748 
o|substituted constant variable: a14750 
o|substituted constant variable: a14752 
o|substituted constant variable: a14754 
o|substituted constant variable: a14756 
o|substituted constant variable: a14758 
o|substituted constant variable: a14760 
o|substituted constant variable: a14762 
o|inlining procedure: k14644 
o|inlining procedure: "(support.scm:1279) err3417" 
o|substituted constant variable: a14776 
o|substituted constant variable: a14778 
o|inlining procedure: k14782 
o|inlining procedure: k14782 
o|inlining procedure: k14794 
o|inlining procedure: k14794 
o|substituted constant variable: a14801 
o|substituted constant variable: a14803 
o|substituted constant variable: a14805 
o|substituted constant variable: a14807 
o|substituted constant variable: a14809 
o|inlining procedure: k14813 
o|inlining procedure: k14813 
o|inlining procedure: k14825 
o|inlining procedure: k14825 
o|inlining procedure: k14837 
o|inlining procedure: k14837 
o|inlining procedure: k14849 
o|inlining procedure: k14849 
o|inlining procedure: k14861 
o|inlining procedure: k14861 
o|inlining procedure: k14873 
o|inlining procedure: k14873 
o|inlining procedure: k14885 
o|inlining procedure: k14885 
o|inlining procedure: k14897 
o|inlining procedure: k14897 
o|inlining procedure: k14909 
o|inlining procedure: k14909 
o|inlining procedure: k14921 
o|inlining procedure: k14921 
o|inlining procedure: k14933 
o|inlining procedure: k14933 
o|inlining procedure: k14945 
o|inlining procedure: k14945 
o|inlining procedure: k14957 
o|inlining procedure: k14957 
o|inlining procedure: k14969 
o|inlining procedure: k14969 
o|inlining procedure: k14981 
o|inlining procedure: k14981 
o|substituted constant variable: a14994 
o|substituted constant variable: a14996 
o|substituted constant variable: a14998 
o|substituted constant variable: a15000 
o|substituted constant variable: a15002 
o|substituted constant variable: a15004 
o|substituted constant variable: a15006 
o|substituted constant variable: a15008 
o|substituted constant variable: a15010 
o|substituted constant variable: a15012 
o|substituted constant variable: a15014 
o|substituted constant variable: a15016 
o|substituted constant variable: a15018 
o|substituted constant variable: a15020 
o|substituted constant variable: a15022 
o|substituted constant variable: a15024 
o|substituted constant variable: a15026 
o|substituted constant variable: a15028 
o|substituted constant variable: a15030 
o|substituted constant variable: a15032 
o|substituted constant variable: a15034 
o|substituted constant variable: a15036 
o|substituted constant variable: a15038 
o|substituted constant variable: a15040 
o|substituted constant variable: a15042 
o|substituted constant variable: a15044 
o|substituted constant variable: a15046 
o|substituted constant variable: a15048 
o|substituted constant variable: a15050 
o|substituted constant variable: a15052 
o|substituted constant variable: a15054 
o|substituted constant variable: a15056 
o|inlining procedure: k15069 
o|inlining procedure: k15069 
o|inlining procedure: k15098 
o|inlining procedure: k15098 
o|inlining procedure: k15130 
o|inlining procedure: k15130 
o|inlining procedure: k15160 
o|inlining procedure: k15160 
o|inlining procedure: k15179 
o|inlining procedure: k15179 
o|inlining procedure: k15209 
o|inlining procedure: k15265 
o|inlining procedure: k15265 
o|substituted constant variable: a15283 
o|substituted constant variable: a15288 
o|substituted constant variable: a15290 
o|inlining procedure: k15209 
o|substituted constant variable: a15291 
o|inlining procedure: k15299 
o|substituted constant variable: a15309 
o|inlining procedure: k15299 
o|substituted constant variable: a15310 
o|substituted constant variable: a15321 
o|substituted constant variable: a15325 
o|substituted constant variable: a15335 
o|substituted constant variable: a15337 
o|substituted constant variable: a15339 
o|substituted constant variable: a15344 
o|substituted constant variable: a15346 
o|substituted constant variable: a15351 
o|substituted constant variable: a15353 
o|substituted constant variable: a15355 
o|substituted constant variable: a15360 
o|substituted constant variable: a15362 
o|inlining procedure: k15366 
o|inlining procedure: k15366 
o|inlining procedure: k15384 
o|inlining procedure: k15384 
o|inlining procedure: k15402 
o|substituted constant variable: a15418 
o|inlining procedure: k15402 
o|inlining procedure: k15428 
o|inlining procedure: k15428 
o|inlining procedure: k15446 
o|inlining procedure: k15446 
o|substituted constant variable: a15453 
o|inlining procedure: k15454 
o|inlining procedure: k15454 
o|inlining procedure: k15466 
o|substituted constant variable: a15479 
o|inlining procedure: k15466 
o|inlining procedure: k15486 
o|substituted constant variable: a15512 
o|inlining procedure: k15486 
o|inlining procedure: k15519 
o|inlining procedure: k15519 
o|inlining procedure: k15531 
o|inlining procedure: k15531 
o|inlining procedure: k15543 
o|inlining procedure: k15543 
o|inlining procedure: k15555 
o|inlining procedure: k15555 
o|inlining procedure: k15567 
o|inlining procedure: k15567 
o|inlining procedure: k15582 
o|inlining procedure: k15582 
o|inlining procedure: k15600 
o|inlining procedure: k15600 
o|inlining procedure: k15606 
o|inlining procedure: k15606 
o|inlining procedure: k15624 
o|inlining procedure: k15624 
o|inlining procedure: k15639 
o|inlining procedure: k15655 
o|inlining procedure: k15655 
o|inlining procedure: k15661 
o|inlining procedure: k15661 
o|inlining procedure: k15690 
o|inlining procedure: k15690 
o|inlining procedure: k15705 
o|inlining procedure: k15705 
o|substituted constant variable: a15715 
o|substituted constant variable: a15717 
o|substituted constant variable: a15719 
o|substituted constant variable: a15724 
o|substituted constant variable: a15726 
o|substituted constant variable: a15728 
o|inlining procedure: k15732 
o|inlining procedure: k15732 
o|substituted constant variable: a15745 
o|substituted constant variable: a15747 
o|substituted constant variable: a15749 
o|substituted constant variable: a15751 
o|inlining procedure: k15639 
o|substituted constant variable: a15753 
o|inlining procedure: k15757 
o|inlining procedure: k15757 
o|substituted constant variable: a15764 
o|substituted constant variable: a15766 
o|substituted constant variable: a15768 
o|substituted constant variable: a15773 
o|substituted constant variable: a15775 
o|inlining procedure: k15779 
o|inlining procedure: k15779 
o|substituted constant variable: a15792 
o|substituted constant variable: a15794 
o|substituted constant variable: a15796 
o|substituted constant variable: a15798 
o|substituted constant variable: a15800 
o|substituted constant variable: a15802 
o|inlining procedure: k15806 
o|inlining procedure: k15806 
o|inlining procedure: k15818 
o|inlining procedure: k15818 
o|inlining procedure: k15830 
o|inlining procedure: k15830 
o|inlining procedure: k15842 
o|inlining procedure: k15842 
o|substituted constant variable: a15849 
o|substituted constant variable: a15851 
o|substituted constant variable: a15853 
o|substituted constant variable: a15855 
o|substituted constant variable: a15857 
o|substituted constant variable: a15859 
o|substituted constant variable: a15861 
o|substituted constant variable: a15863 
o|substituted constant variable: a15865 
o|substituted constant variable: a15867 
o|substituted constant variable: a15869 
o|substituted constant variable: a15871 
o|substituted constant variable: a15873 
o|substituted constant variable: a15875 
o|substituted constant variable: a15877 
o|substituted constant variable: a15879 
o|substituted constant variable: a15881 
o|substituted constant variable: a15883 
o|substituted constant variable: a15885 
o|inlining procedure: k15889 
o|inlining procedure: k15889 
o|inlining procedure: k15901 
o|inlining procedure: k15901 
o|inlining procedure: k15913 
o|inlining procedure: k15913 
o|inlining procedure: k15925 
o|inlining procedure: k15925 
o|substituted constant variable: a15932 
o|substituted constant variable: a15934 
o|substituted constant variable: a15936 
o|substituted constant variable: a15938 
o|substituted constant variable: a15940 
o|substituted constant variable: a15942 
o|substituted constant variable: a15944 
o|substituted constant variable: a15946 
o|substituted constant variable: a15948 
o|substituted constant variable: a15950 
o|substituted constant variable: a15952 
o|substituted constant variable: a15954 
o|substituted constant variable: a15956 
o|inlining procedure: k15960 
o|inlining procedure: k15960 
o|substituted constant variable: a15967 
o|substituted constant variable: a15969 
o|substituted constant variable: a15971 
o|substituted constant variable: a15976 
o|substituted constant variable: a15978 
o|substituted constant variable: a15983 
o|substituted constant variable: a15985 
o|substituted constant variable: a15990 
o|substituted constant variable: a15992 
o|inlining procedure: k15996 
o|inlining procedure: k15996 
o|inlining procedure: k16008 
o|inlining procedure: k16008 
o|inlining procedure: k16020 
o|inlining procedure: k16020 
o|substituted constant variable: a16033 
o|substituted constant variable: a16035 
o|substituted constant variable: a16037 
o|substituted constant variable: a16039 
o|substituted constant variable: a16041 
o|substituted constant variable: a16043 
o|substituted constant variable: a16045 
o|substituted constant variable: a16047 
o|substituted constant variable: a16052 
o|substituted constant variable: a16054 
o|substituted constant variable: a16056 
o|inlining procedure: k16057 
o|inlining procedure: k16057 
o|inlining procedure: k16087 
o|inlining procedure: k16111 
o|inlining procedure: k16111 
o|inlining procedure: "(support.scm:1415) chicken.compiler.support#first" 
o|inlining procedure: k16087 
o|inlining procedure: k16170 
o|inlining procedure: k16170 
o|inlining procedure: k16193 
o|inlining procedure: k16193 
o|substituted constant variable: a16200 
o|substituted constant variable: a16202 
o|substituted constant variable: a16204 
o|substituted constant variable: a16209 
o|substituted constant variable: a16211 
o|inlining procedure: k16227 
o|inlining procedure: k16227 
o|inlining procedure: k16245 
o|inlining procedure: k16245 
o|consed rest parameter at call site: "(support.scm:1440) chicken.compiler.support#lset-adjoin/eq?" 2 
o|consed rest parameter at call site: "(support.scm:1438) chicken.compiler.support#lset-adjoin/eq?" 2 
o|inlining procedure: "(support.scm:1436) chicken.compiler.support#first" 
o|inlining procedure: k16265 
o|consed rest parameter at call site: "(support.scm:1443) chicken.compiler.support#lset-adjoin/eq?" 2 
o|inlining procedure: "(support.scm:1442) chicken.compiler.support#first" 
o|inlining procedure: k16265 
o|inlining procedure: "(support.scm:1447) chicken.compiler.support#second" 
o|inlining procedure: "(support.scm:1446) chicken.compiler.support#first" 
o|inlining procedure: k16315 
o|inlining procedure: "(support.scm:1452) chicken.compiler.support#first" 
o|inlining procedure: "(support.scm:1450) chicken.compiler.support#third" 
o|inlining procedure: k16315 
o|substituted constant variable: a16346 
o|substituted constant variable: a16348 
o|substituted constant variable: a16350 
o|substituted constant variable: a16352 
o|inlining procedure: k16356 
o|inlining procedure: k16356 
o|inlining procedure: k16368 
o|inlining procedure: k16368 
o|substituted constant variable: a16375 
o|substituted constant variable: a16377 
o|substituted constant variable: a16379 
o|substituted constant variable: a16381 
o|substituted constant variable: a16383 
o|inlining procedure: k16401 
o|inlining procedure: k16401 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#block-variable-literal 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#block-variable-literal-name-set! 
o|substituted constant variable: a16469 
o|substituted constant variable: a16470 
o|inlining procedure: k16492 
o|inlining procedure: k16492 
o|inlining procedure: k16534 
o|inlining procedure: k16534 
o|inlining procedure: k16546 
o|inlining procedure: k16546 
o|inlining procedure: k16576 
o|inlining procedure: k16576 
o|inlining procedure: k16599 
o|inlining procedure: k16599 
o|substituted constant variable: chicken.compiler.support#real-name-max-depth 
o|inlining procedure: k16651 
o|inlining procedure: k16651 
o|propagated global variable: out40224025 ##sys#standard-output 
o|substituted constant variable: a16667 
o|substituted constant variable: a16668 
o|propagated global variable: out40224025 ##sys#standard-output 
o|inlining procedure: k16684 
o|substituted constant variable: a16708 
o|inlining procedure: k16684 
o|inlining procedure: k16719 
o|inlining procedure: k16719 
o|inlining procedure: k16734 
o|inlining procedure: k16734 
o|inlining procedure: k16752 
o|inlining procedure: k16752 
o|inlining procedure: k16755 
o|inlining procedure: k16755 
o|inlining procedure: "(support.scm:1555) chicken.compiler.support#second" 
o|inlining procedure: k16807 
o|inlining procedure: k16828 
o|inlining procedure: k16828 
o|substituted constant variable: a16856 
o|substituted constant variable: a16869 
o|inlining procedure: k16807 
o|inlining procedure: k16940 
o|contracted procedure: "(support.scm:1567) g40924101" 
o|inlining procedure: k16940 
o|inlining procedure: k16974 
o|contracted procedure: "(support.scm:1566) g40644073" 
o|inlining procedure: "(support.scm:1566) chicken.compiler.support#first" 
o|inlining procedure: k16974 
o|inlining procedure: k17018 
o|inlining procedure: k17055 
o|inlining procedure: k17055 
o|contracted procedure: "(support.scm:1587) g41384139" 
o|inlining procedure: "(support.scm:1586) chicken.compiler.support#first" 
o|inlining procedure: k17018 
o|inlining procedure: k17106 
o|inlining procedure: k17106 
o|inlining procedure: k17118 
o|inlining procedure: k17118 
o|substituted constant variable: a17152 
o|merged explicitly consed rest parameter: args41664172 
o|consed rest parameter at call site: tmp25176 1 
o|inlining procedure: k17174 
o|inlining procedure: k17174 
o|inlining procedure: k17193 
o|inlining procedure: "(support.scm:1615) getsize4156" 
o|inlining procedure: k17193 
o|inlining procedure: "(support.scm:1617) getsize4156" 
o|inlining procedure: k17223 
o|inlining procedure: k17223 
o|inlining procedure: "(support.scm:1619) getsize4156" 
o|substituted constant variable: a17267 
o|propagated global variable: out41934206 ##sys#standard-output 
o|substituted constant variable: a17269 
o|substituted constant variable: a17270 
o|propagated global variable: out42294232 ##sys#standard-output 
o|substituted constant variable: a17313 
o|substituted constant variable: a17314 
o|inlining procedure: k17303 
o|inlining procedure: k17330 
o|propagated global variable: out42384241 ##sys#standard-output 
o|substituted constant variable: a17337 
o|substituted constant variable: a17338 
o|inlining procedure: k17330 
o|propagated global variable: out42384241 ##sys#standard-output 
o|propagated global variable: out42294232 ##sys#standard-output 
o|inlining procedure: k17303 
o|inlining procedure: k17363 
o|inlining procedure: k17363 
o|propagated global variable: out41934206 ##sys#standard-output 
o|inlining procedure: k17392 
o|contracted procedure: "(support.scm:1660) chicken.compiler.support#scan-sharp-greater-string" 
o|inlining procedure: k17429 
o|inlining procedure: k17429 
o|substituted constant variable: a17442 
o|substituted constant variable: a17453 
o|inlining procedure: k17449 
o|substituted constant variable: a17475 
o|inlining procedure: k17449 
o|inlining procedure: k17392 
o|inlining procedure: k17486 
o|inlining procedure: k17501 
o|inlining procedure: k17501 
o|inlining procedure: k17486 
o|inlining procedure: k17510 
o|inlining procedure: k17510 
o|contracted procedure: "(support.scm:1703) g42914292" 
o|contracted procedure: "(support.scm:1706) g43074308" 
o|inlining procedure: k17599 
o|inlining procedure: k17599 
o|substituted constant variable: a17615 
o|substituted constant variable: a17617 
o|contracted procedure: "(support.scm:1730) g43584359" 
o|contracted procedure: "(support.scm:1732) g43694370" 
o|contracted procedure: "(support.scm:1733) g43804381" 
o|inlining procedure: k17678 
o|inlining procedure: k17721 
o|contracted procedure: "(support.scm:1741) g44034410" 
o|inlining procedure: k17721 
o|substituted constant variable: a17746 
o|substituted constant variable: a17747 
o|inlining procedure: k17678 
o|substituted constant variable: chicken.compiler.support#constant682 
o|substituted constant variable: a17814 
o|substituted constant variable: a17815 
o|substituted constant variable: chicken.compiler.support#node 
o|simplifications: ((if . 1)) 
o|replaced variables: 4000 
o|removed binding forms: 647 
o|substituted constant variable: r532317839 
o|substituted constant variable: r562417843 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#first 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#second 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#third 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#fourth 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#filter 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#constant682 
o|propagated global variable: out719722 ##sys#standard-output 
o|propagated global variable: out734737 chicken.compiler.support#collected-debugging-output 
o|substituted constant variable: r662917873 
o|inlining procedure: k6643 
o|substituted constant variable: r662917874 
o|inlining procedure: k6652 
o|propagated global variable: out770773 chicken.compiler.support#collected-debugging-output 
o|converted assignments to bindings: (collect755) 
o|substituted constant variable: r695317887 
o|substituted constant variable: r701317894 
o|substituted constant variable: r750417940 
o|substituted constant variable: r754217941 
o|substituted constant variable: r766017951 
o|substituted constant variable: r793317962 
o|substituted constant variable: r587717967 
o|substituted constant variable: r795117968 
o|substituted constant variable: r806717976 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#node 
o|substituted constant variable: c1269 
o|substituted constant variable: s1271 
o|substituted constant variable: c1276 
o|substituted constant variable: s1278 
o|substituted constant variable: p1303 
o|substituted constant variable: r831417990 
o|substituted constant variable: c1339 
o|substituted constant variable: c1374 
o|substituted constant variable: c1379 
o|substituted constant variable: c1392 
o|substituted constant variable: c1397 
o|substituted constant variable: p1398 
o|substituted constant variable: s1399 
o|substituted constant variable: c1402 
o|substituted constant variable: s1480 
o|substituted constant variable: c1483 
o|substituted constant variable: s1485 
o|substituted constant variable: c1491 
o|substituted constant variable: c1523 
o|substituted constant variable: c1571 
o|substituted constant variable: c1604 
o|substituted constant variable: mark1614 
o|substituted constant variable: c1648 
o|substituted constant variable: c1995 
o|substituted constant variable: p1996 
o|substituted constant variable: c2096 
o|substituted constant variable: c2101 
o|substituted constant variable: c2106 
o|substituted constant variable: c2112 
o|substituted constant variable: c2360 
o|substituted constant variable: c2372 
o|removed side-effect free assignment to unused variable: rename2156 
o|substituted constant variable: s2175 
o|substituted constant variable: c2180 
o|substituted constant variable: c2189 
o|substituted constant variable: c2260 
o|substituted constant variable: r1088218289 
o|substituted constant variable: r1088218289 
o|substituted constant variable: c2407 
o|substituted constant variable: c2415 
o|substituted constant variable: c2421 
o|substituted constant variable: c2426 
o|substituted constant variable: c2431 
o|substituted constant variable: r1192118355 
o|substituted constant variable: r1195118356 
o|substituted constant variable: mark2583 
o|substituted constant variable: r1190118363 
o|substituted constant variable: r1188918364 
o|substituted constant variable: r1187118365 
o|substituted constant variable: mark2564 
o|converted assignments to bindings: (uses-foreign-stubs?2529) 
o|substituted constant variable: mark2648 
o|substituted constant variable: r1211618377 
o|substituted constant variable: r1220118383 
o|substituted constant variable: r1216318385 
o|substituted constant variable: r1225518397 
o|substituted constant variable: r1228418398 
o|substituted constant variable: r634518400 
o|substituted constant variable: r1231918408 
o|substituted constant variable: r1241118414 
o|substituted constant variable: r1237518431 
o|substituted constant variable: r1248318445 
o|substituted constant variable: r1252418449 
o|substituted constant variable: r1256618453 
o|substituted constant variable: r1256618453 
o|substituted constant variable: mark2850 
o|substituted constant variable: r1278518464 
o|substituted constant variable: r1278518464 
o|substituted constant variable: r1397018546 
o|substituted constant variable: r1395818547 
o|substituted constant variable: r1399118550 
o|substituted constant variable: r1397918551 
o|substituted constant variable: r1407818558 
o|converted assignments to bindings: (err3259) 
o|removed side-effect free assignment to unused variable: err3417 
o|substituted constant variable: r1530018683 
o|substituted constant variable: r1536718685 
o|substituted constant variable: r1538518687 
o|substituted constant variable: r1542918691 
o|substituted constant variable: r1544718693 
o|substituted constant variable: r1544718694 
o|substituted constant variable: r1545518695 
o|substituted constant variable: r1552018701 
o|substituted constant variable: r1553218703 
o|substituted constant variable: r1554418705 
o|substituted constant variable: r1555618707 
o|substituted constant variable: r1556818709 
o|substituted constant variable: r1560118713 
o|substituted constant variable: r1560118714 
o|substituted constant variable: r1560718715 
o|substituted constant variable: r1562518717 
o|substituted constant variable: r1565618720 
o|substituted constant variable: r1565618721 
o|substituted constant variable: r1569118724 
o|substituted constant variable: r1570618726 
o|substituted constant variable: r1570618727 
o|substituted constant variable: r1564018730 
o|substituted constant variable: r1605818760 
o|substituted constant variable: r1622818774 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#real-name-max-depth 
o|converted assignments to bindings: (resolve3991) 
o|substituted constant variable: r1665218831 
o|propagated global variable: out40224025 ##sys#standard-output 
o|substituted constant variable: r1673518837 
o|substituted constant variable: r1675618841 
o|substituted constant variable: r1705618862 
o|converted assignments to bindings: (constant-node?4134) 
o|removed side-effect free assignment to unused variable: getsize4156 
o|substituted constant variable: r1711918872 
o|contracted procedure: "(support.scm:1623) chicken.compiler.support#list-tabulate" 
o|substituted constant variable: r623217855 
o|substituted constant variable: r1722418882 
o|propagated global variable: out41934206 ##sys#standard-output 
o|propagated global variable: out42294232 ##sys#standard-output 
o|propagated global variable: out42384241 ##sys#standard-output 
o|substituted constant variable: r1748718908 
o|substituted constant variable: r1751118910 
o|substituted constant variable: mark4298 
o|substituted constant variable: mark4314 
o|substituted constant variable: r1760018913 
o|substituted constant variable: mark4361 
o|substituted constant variable: mark4372 
o|substituted constant variable: mark4383 
o|substituted constant variable: r1767918918 
o|simplifications: ((let . 5)) 
o|replaced variables: 545 
o|removed binding forms: 3373 
o|substituted constant variable: r66291787318946 
o|substituted constant variable: r66291787418948 
o|inlining procedure: "(support.scm:375) chicken.compiler.support#alist-cons" 
o|inlining procedure: "(support.scm:415) chicken.compiler.support#alist-cons" 
o|inlining procedure: "(support.scm:423) chicken.compiler.support#alist-cons" 
o|removed call to pure procedure with unused result: "(support.scm:620) ##sys#slot" 
o|inlining procedure: "(support.scm:685) chicken.compiler.support#alist-cons" 
o|inlining procedure: k12030 
o|inlining procedure: "(support.scm:869) chicken.compiler.support#alist-cons" 
o|inlining procedure: k12324 
o|inlining procedure: k12724 
o|inlining procedure: k13500 
o|inlining procedure: k13999 
o|inlining procedure: k14014 
o|inlining procedure: k16274 
o|inlining procedure: k16274 
o|inlining procedure: k16749 
o|inlining procedure: k16749 
o|inlining procedure: "(support.scm:1609) fits?4157" 
o|inlining procedure: "(support.scm:1613) fits?4157" 
o|inlining procedure: "(support.scm:1615) fits?4157" 
o|inlining procedure: "(support.scm:1617) fits?4157" 
o|inlining procedure: "(support.scm:1620) fits?4157" 
o|converted assignments to bindings: (fits?4157) 
o|inlining procedure: k17536 
o|inlining procedure: k17556 
o|inlining procedure: k17621 
o|inlining procedure: k17773 
o|simplifications: ((let . 1)) 
o|replaced variables: 3 
o|removed binding forms: 669 
o|removed side-effect free assignment to unused variable: chicken.compiler.support#alist-cons 
o|inlining procedure: k8719 
o|contracted procedure: k10556 
o|substituted constant variable: r1203119380 
o|contracted procedure: k12593 
o|substituted constant variable: r1272519408 
o|substituted constant variable: r1400019412 
o|substituted constant variable: r1400019412 
o|substituted constant variable: r1401519415 
o|substituted constant variable: r1401519415 
o|substituted constant variable: r1675019436 
o|substituted constant variable: r1675019436 
o|substituted constant variable: r1675019439 
o|substituted constant variable: r1675019439 
o|contracted procedure: k17203 
o|contracted procedure: k17217 
o|contracted procedure: k17220 
o|substituted constant variable: r1753719472 
o|substituted constant variable: r1755719473 
o|substituted constant variable: r1762219474 
o|simplifications: ((let . 1)) 
o|replaced variables: 30 
o|removed binding forms: 24 
o|removed conditional forms: 4 
o|substituted constant variable: r872019527 
o|removed binding forms: 41 
o|removed conditional forms: 1 
o|removed binding forms: 1 
o|simplifications: ((if . 114) (let . 51) (##core#call . 1461)) 
o|  call simplifications:
o|    chicken.base#bignum?
o|    chicken.fixnum#fx<
o|    scheme#char=?
o|    scheme#read-char	3
o|    ##sys#size
o|    chicken.fixnum#fx>	2
o|    scheme#write-char	6
o|    chicken.base#flonum?
o|    chicken.fixnum#fx>=	2
o|    scheme#procedure?
o|    scheme#string-length	3
o|    chicken.fixnum#fx+	3
o|    scheme#vector-ref	6
o|    scheme#vector	2
o|    scheme#<
o|    scheme#>	2
o|    scheme#<=
o|    scheme#values	2
o|    scheme#-
o|    ##sys#call-with-values	4
o|    scheme#cddddr
o|    scheme#list-ref	2
o|    scheme#cdddr
o|    scheme#caar	2
o|    scheme#cadddr	4
o|    scheme#caddr	10
o|    ##sys#block-ref	9
o|    ##sys#check-structure	12
o|    ##sys#structure?	5
o|    ##sys#make-structure	42
o|    scheme#assq	15
o|    scheme#length	9
o|    ##sys#setslot	35
o|    chicken.base#atom?
o|    ##sys#apply	3
o|    ##sys#cons	8
o|    scheme#equal?	3
o|    ##sys#list	144
o|    chicken.base#fixnum?	2
o|    scheme#number?	4
o|    scheme#char?	4
o|    scheme#string?	3
o|    scheme#boolean?	4
o|    chicken.base#bwp-object?	3
o|    scheme#vector?	2
o|    scheme#eq?	389
o|    scheme#eof-object?	7
o|    scheme#member
o|    scheme#cddr	4
o|    scheme#list	65
o|    ##sys#foreign-fixnum-argument	2
o|    scheme#list?	6
o|    scheme#cadr	47
o|    scheme#string->list
o|    scheme#char-alphabetic?	2
o|    scheme#char-numeric?
o|    ##sys#check-list	41
o|    ##sys#slot	137
o|    scheme#symbol?	15
o|    scheme#pair?	68
o|    scheme#apply	6
o|    scheme#memq	9
o|    scheme#cdr	20
o|    scheme#null?	46
o|    scheme#not	24
o|    chicken.fixnum#fx<=	8
o|    scheme#car	83
o|    chicken.fixnum#fx-	2
o|    scheme#cons	105
o|contracted procedure: k5325 
o|contracted procedure: k5332 
o|contracted procedure: k5342 
o|contracted procedure: k5589 
o|contracted procedure: k5598 
o|contracted procedure: k5611 
o|contracted procedure: k5626 
o|contracted procedure: k5641 
o|contracted procedure: k5656 
o|contracted procedure: k5667 
o|contracted procedure: k6002 
o|contracted procedure: k5992 
o|contracted procedure: k6051 
o|contracted procedure: k6077 
o|contracted procedure: k6057 
o|contracted procedure: k6071 
o|contracted procedure: k6502 
o|contracted procedure: k6530 
o|contracted procedure: k6566 
o|contracted procedure: k6596 
o|contracted procedure: k6606 
o|contracted procedure: k6610 
o|contracted procedure: k6692 
o|propagated global variable: out770773 chicken.compiler.support#collected-debugging-output 
o|contracted procedure: k6708 
o|contracted procedure: k6718 
o|contracted procedure: k6722 
o|contracted procedure: k6792 
o|contracted procedure: k6810 
o|contracted procedure: k6820 
o|contracted procedure: k6824 
o|contracted procedure: k6863 
o|contracted procedure: k6867 
o|contracted procedure: k6871 
o|contracted procedure: k6884 
o|contracted procedure: k6940 
o|contracted procedure: k6946 
o|contracted procedure: k6955 
o|contracted procedure: k6962 
o|contracted procedure: k6966 
o|contracted procedure: k6982 
o|contracted procedure: k6992 
o|contracted procedure: k7015 
o|contracted procedure: k7022 
o|contracted procedure: k7025 
o|contracted procedure: k7034 
o|contracted procedure: k7040 
o|contracted procedure: k7098 
o|contracted procedure: k7062 
o|contracted procedure: k7092 
o|contracted procedure: k7105 
o|contracted procedure: k7112 
o|contracted procedure: k7135 
o|contracted procedure: k7148 
o|contracted procedure: k7155 
o|contracted procedure: k7222 
o|contracted procedure: k7175 
o|contracted procedure: k7218 
o|contracted procedure: k7195 
o|inlining procedure: k7192 
o|inlining procedure: k7192 
o|contracted procedure: k7237 
o|contracted procedure: k7253 
o|contracted procedure: k7314 
o|contracted procedure: k7279 
o|contracted procedure: k7295 
o|contracted procedure: k7311 
o|contracted procedure: k7323 
o|contracted procedure: k7329 
o|contracted procedure: k7335 
o|contracted procedure: k7341 
o|contracted procedure: k7347 
o|contracted procedure: k7359 
o|contracted procedure: k7365 
o|contracted procedure: k7380 
o|contracted procedure: k7391 
o|contracted procedure: k7397 
o|contracted procedure: k7403 
o|contracted procedure: k7409 
o|contracted procedure: k7415 
o|contracted procedure: k7433 
o|contracted procedure: k7439 
o|contracted procedure: k7445 
o|contracted procedure: k7451 
o|contracted procedure: k7457 
o|contracted procedure: k7466 
o|contracted procedure: k7479 
o|contracted procedure: k7485 
o|contracted procedure: k7506 
o|contracted procedure: k7522 
o|contracted procedure: k7544 
o|contracted procedure: k7602 
o|contracted procedure: k7550 
o|contracted procedure: k7558 
o|contracted procedure: k7583 
o|contracted procedure: k7573 
o|contracted procedure: k7662 
o|contracted procedure: k7676 
o|contracted procedure: k7668 
o|contracted procedure: k7694 
o|contracted procedure: k7704 
o|contracted procedure: k7740 
o|contracted procedure: k7746 
o|contracted procedure: k7755 
o|contracted procedure: k7765 
o|contracted procedure: k7769 
o|contracted procedure: k581719236 
o|contracted procedure: k7789 
o|propagated global variable: z38619233 chicken.compiler.support#profile-lambda-list 
o|contracted procedure: k7834 
o|contracted procedure: k7830 
o|contracted procedure: k7802 
o|contracted procedure: k7826 
o|contracted procedure: k7822 
o|contracted procedure: k7806 
o|contracted procedure: k7818 
o|contracted procedure: k7814 
o|contracted procedure: k7810 
o|contracted procedure: k7798 
o|contracted procedure: k7923 
o|contracted procedure: k7915 
o|contracted procedure: k7919 
o|contracted procedure: k7911 
o|contracted procedure: k7844 
o|contracted procedure: k7848 
o|contracted procedure: k7870 
o|contracted procedure: k7882 
o|contracted procedure: k7904 
o|contracted procedure: k7867 
o|contracted procedure: k7857 
o|contracted procedure: k7861 
o|contracted procedure: k7900 
o|contracted procedure: k7885 
o|contracted procedure: k7888 
o|contracted procedure: k7896 
o|propagated global variable: g11551159 chicken.compiler.support#profile-lambda-list 
o|contracted procedure: k7935 
o|contracted procedure: k5867 
o|contracted procedure: k5879 
o|contracted procedure: k5902 
o|contracted procedure: k5910 
o|contracted procedure: k7971 
o|contracted procedure: k7991 
o|contracted procedure: k581719247 
o|contracted procedure: k7987 
o|contracted procedure: k8005 
o|contracted procedure: k8001 
o|contracted procedure: k8017 
o|contracted procedure: k8031 
o|contracted procedure: k8027 
o|contracted procedure: k8042 
o|contracted procedure: k8046 
o|contracted procedure: k581719254 
o|contracted procedure: k8038 
o|contracted procedure: k8057 
o|contracted procedure: k8053 
o|contracted procedure: k8085 
o|contracted procedure: k8094 
o|contracted procedure: k8103 
o|contracted procedure: k8112 
o|contracted procedure: k8121 
o|contracted procedure: k8130 
o|contracted procedure: k8157 
o|contracted procedure: k8172 
o|contracted procedure: k8184 
o|contracted procedure: k8198 
o|contracted procedure: k9358 
o|contracted procedure: k8204 
o|contracted procedure: k9354 
o|contracted procedure: k8213 
o|contracted procedure: k8220 
o|contracted procedure: k8223 
o|contracted procedure: k8237 
o|contracted procedure: k8241 
o|contracted procedure: k8253 
o|contracted procedure: k8256 
o|contracted procedure: k8259 
o|contracted procedure: k8267 
o|contracted procedure: k8275 
o|contracted procedure: k8284 
o|contracted procedure: k8287 
o|contracted procedure: k8310 
o|contracted procedure: k8316 
o|contracted procedure: k8327 
o|contracted procedure: k8330 
o|contracted procedure: k8333 
o|contracted procedure: k8339 
o|contracted procedure: k8362 
o|contracted procedure: k8371 
o|contracted procedure: k8374 
o|contracted procedure: k8377 
o|contracted procedure: k8384 
o|contracted procedure: k8397 
o|contracted procedure: k8400 
o|contracted procedure: k8403 
o|contracted procedure: k8411 
o|contracted procedure: k8419 
o|contracted procedure: k5932 
o|contracted procedure: k5940 
o|contracted procedure: k5952 
o|contracted procedure: k5974 
o|contracted procedure: k5970 
o|contracted procedure: k5955 
o|contracted procedure: k5958 
o|contracted procedure: k5966 
o|contracted procedure: k8428 
o|contracted procedure: k8431 
o|contracted procedure: k8459 
o|contracted procedure: k8443 
o|contracted procedure: k8447 
o|contracted procedure: k8455 
o|contracted procedure: k8465 
o|contracted procedure: k8493 
o|contracted procedure: k8497 
o|contracted procedure: k8477 
o|contracted procedure: k8481 
o|contracted procedure: k8489 
o|contracted procedure: k8503 
o|contracted procedure: k8510 
o|contracted procedure: k8514 
o|contracted procedure: k8523 
o|contracted procedure: k8556 
o|contracted procedure: k8535 
o|contracted procedure: k8552 
o|contracted procedure: k8543 
o|contracted procedure: k8635 
o|contracted procedure: k8566 
o|contracted procedure: k8598 
o|contracted procedure: k8578 
o|contracted procedure: k8586 
o|contracted procedure: k8606 
o|contracted procedure: k8631 
o|contracted procedure: k8615 
o|contracted procedure: k8619 
o|contracted procedure: k8649 
o|contracted procedure: k8652 
o|contracted procedure: k8670 
o|contracted procedure: k8675 
o|contracted procedure: k8687 
o|contracted procedure: k8690 
o|contracted procedure: k8693 
o|contracted procedure: k8701 
o|contracted procedure: k8709 
o|contracted procedure: k8725 
o|contracted procedure: k8719 
o|contracted procedure: k8716 
o|contracted procedure: k8736 
o|contracted procedure: k8803 
o|contracted procedure: k8753 
o|contracted procedure: k8757 
o|contracted procedure: k8762 
o|contracted procedure: k8774 
o|contracted procedure: k8777 
o|contracted procedure: k8780 
o|contracted procedure: k8788 
o|contracted procedure: k8796 
o|contracted procedure: k8809 
o|contracted procedure: k8827 
o|contracted procedure: k8843 
o|contracted procedure: k8839 
o|contracted procedure: k8849 
o|contracted procedure: k8852 
o|contracted procedure: k8914 
o|contracted procedure: k8864 
o|contracted procedure: k8868 
o|contracted procedure: k8873 
o|contracted procedure: k8885 
o|contracted procedure: k8888 
o|contracted procedure: k8891 
o|contracted procedure: k8899 
o|contracted procedure: k8907 
o|contracted procedure: k8920 
o|contracted procedure: k8975 
o|contracted procedure: k8923 
o|contracted procedure: k8971 
o|contracted procedure: k8951 
o|contracted procedure: k8967 
o|contracted procedure: k8955 
o|contracted procedure: k5772 
o|contracted procedure: k8963 
o|contracted procedure: k8959 
o|contracted procedure: k8935 
o|contracted procedure: k8939 
o|contracted procedure: k8947 
o|contracted procedure: k8981 
o|contracted procedure: k8996 
o|contracted procedure: k9000 
o|contracted procedure: k9004 
o|contracted procedure: k9007 
o|contracted procedure: k9010 
o|contracted procedure: k9022 
o|contracted procedure: k9025 
o|contracted procedure: k9028 
o|contracted procedure: k9036 
o|contracted procedure: k9044 
o|contracted procedure: k9053 
o|contracted procedure: k9065 
o|contracted procedure: k9069 
o|contracted procedure: k9073 
o|contracted procedure: k9085 
o|contracted procedure: k9088 
o|contracted procedure: k9091 
o|contracted procedure: k9099 
o|contracted procedure: k9107 
o|contracted procedure: k9134 
o|contracted procedure: k9138 
o|contracted procedure: k9141 
o|contracted procedure: k9153 
o|contracted procedure: k9156 
o|contracted procedure: k9159 
o|contracted procedure: k9167 
o|contracted procedure: k9175 
o|contracted procedure: k9217 
o|contracted procedure: k9223 
o|contracted procedure: k9229 
o|contracted procedure: k9261 
o|contracted procedure: k9309 
o|contracted procedure: k9313 
o|contracted procedure: k9325 
o|contracted procedure: k9328 
o|contracted procedure: k9331 
o|contracted procedure: k9339 
o|contracted procedure: k9347 
o|contracted procedure: k9392 
o|contracted procedure: k9402 
o|contracted procedure: k9405 
o|contracted procedure: k9417 
o|contracted procedure: k9420 
o|contracted procedure: k9423 
o|contracted procedure: k9431 
o|contracted procedure: k9439 
o|contracted procedure: k9448 
o|contracted procedure: k9459 
o|contracted procedure: k9462 
o|contracted procedure: k9455 
o|contracted procedure: k9474 
o|contracted procedure: k9477 
o|contracted procedure: k9480 
o|contracted procedure: k9488 
o|contracted procedure: k9496 
o|contracted procedure: k9505 
o|contracted procedure: k9514 
o|contracted procedure: k9517 
o|contracted procedure: k9523 
o|inlining procedure: k9526 
o|contracted procedure: k9534 
o|inlining procedure: k9526 
o|contracted procedure: k9540 
o|contracted procedure: k9552 
o|contracted procedure: k9559 
o|contracted procedure: k9562 
o|contracted procedure: k9571 
o|contracted procedure: k9574 
o|contracted procedure: k9630 
o|contracted procedure: k9594 
o|contracted procedure: k9620 
o|contracted procedure: k9624 
o|contracted procedure: k9616 
o|contracted procedure: k9597 
o|contracted procedure: k9600 
o|contracted procedure: k9608 
o|contracted procedure: k9612 
o|contracted procedure: k9642 
o|contracted procedure: k9645 
o|contracted procedure: k9648 
o|contracted procedure: k9656 
o|contracted procedure: k9664 
o|contracted procedure: k9673 
o|contracted procedure: k9695 
o|contracted procedure: k9680 
o|contracted procedure: k9684 
o|contracted procedure: k9692 
o|contracted procedure: k9701 
o|contracted procedure: k9708 
o|contracted procedure: k9716 
o|contracted procedure: k9722 
o|contracted procedure: k9729 
o|contracted procedure: k9735 
o|contracted procedure: k9742 
o|contracted procedure: k9754 
o|contracted procedure: k9758 
o|contracted procedure: k9767 
o|contracted procedure: k9773 
o|contracted procedure: k9780 
o|contracted procedure: k9788 
o|contracted procedure: k9807 
o|contracted procedure: k9795 
o|contracted procedure: k9815 
o|contracted procedure: k9819 
o|contracted procedure: k9825 
o|contracted procedure: k9828 
o|contracted procedure: k9831 
o|contracted procedure: k9843 
o|contracted procedure: k9846 
o|contracted procedure: k9849 
o|contracted procedure: k9857 
o|contracted procedure: k9865 
o|contracted procedure: k9874 
o|contracted procedure: k9881 
o|contracted procedure: k9885 
o|contracted procedure: k9888 
o|contracted procedure: k9900 
o|contracted procedure: k9903 
o|contracted procedure: k9906 
o|contracted procedure: k9914 
o|contracted procedure: k9922 
o|contracted procedure: k9931 
o|contracted procedure: k9940 
o|contracted procedure: k9947 
o|contracted procedure: k9969 
o|contracted procedure: k9976 
o|contracted procedure: k9980 
o|contracted procedure: k9984 
o|contracted procedure: k9996 
o|contracted procedure: k10010 
o|contracted procedure: k10014 
o|contracted procedure: k10026 
o|contracted procedure: k10029 
o|contracted procedure: k10032 
o|contracted procedure: k10040 
o|contracted procedure: k10048 
o|contracted procedure: k10055 
o|contracted procedure: k10061 
o|contracted procedure: k10068 
o|contracted procedure: k10071 
o|contracted procedure: k10083 
o|contracted procedure: k10086 
o|contracted procedure: k10089 
o|contracted procedure: k10097 
o|contracted procedure: k10105 
o|contracted procedure: k10119 
o|contracted procedure: k10122 
o|contracted procedure: k10134 
o|contracted procedure: k10137 
o|contracted procedure: k10140 
o|contracted procedure: k10148 
o|contracted procedure: k10156 
o|contracted procedure: k10164 
o|contracted procedure: k10170 
o|contracted procedure: k10211 
o|contracted procedure: k10275 
o|contracted procedure: k10238 
o|contracted procedure: k10253 
o|contracted procedure: k10267 
o|contracted procedure: k10271 
o|contracted procedure: k5383 
o|contracted procedure: k5397 
o|contracted procedure: k5407 
o|contracted procedure: k5401 
o|contracted procedure: k10305 
o|contracted procedure: k10313 
o|contracted procedure: k10338 
o|contracted procedure: k10353 
o|contracted procedure: k10359 
o|contracted procedure: k10371 
o|contracted procedure: k10375 
o|contracted procedure: k10382 
o|contracted procedure: k10403 
o|contracted procedure: k10397 
o|contracted procedure: k10443 
o|contracted procedure: k10423 
o|contracted procedure: k10431 
o|contracted procedure: k10427 
o|contracted procedure: k10475 
o|contracted procedure: k10455 
o|contracted procedure: k10463 
o|contracted procedure: k10459 
o|contracted procedure: k10489 
o|contracted procedure: k10507 
o|contracted procedure: k10517 
o|contracted procedure: k10521 
o|contracted procedure: k11119 
o|contracted procedure: k11148 
o|contracted procedure: k11125 
o|contracted procedure: k11140 
o|contracted procedure: k11144 
o|contracted procedure: k11136 
o|contracted procedure: k11154 
o|contracted procedure: k11219 
o|contracted procedure: k11160 
o|contracted procedure: k11163 
o|contracted procedure: k11166 
o|contracted procedure: k11172 
o|contracted procedure: k11183 
o|contracted procedure: k11199 
o|contracted procedure: k11203 
o|contracted procedure: k11195 
o|contracted procedure: k11225 
o|contracted procedure: k11282 
o|contracted procedure: k11231 
o|contracted procedure: k11242 
o|contracted procedure: k11274 
o|contracted procedure: k11278 
o|contracted procedure: k11270 
o|contracted procedure: k11285 
o|contracted procedure: k11297 
o|contracted procedure: k11307 
o|contracted procedure: k11311 
o|contracted procedure: k10534 
o|contracted procedure: k10537 
o|contracted procedure: k10540 
o|contracted procedure: k10548 
o|contracted procedure: k10611 
o|contracted procedure: k10614 
o|contracted procedure: k10617 
o|contracted procedure: k10644 
o|contracted procedure: k10658 
o|contracted procedure: k10661 
o|contracted procedure: k10683 
o|contracted procedure: k10695 
o|contracted procedure: k10699 
o|contracted procedure: k10707 
o|contracted procedure: k10715 
o|contracted procedure: k10721 
o|contracted procedure: k10724 
o|contracted procedure: k581719345 
o|contracted procedure: k10733 
o|contracted procedure: k10748 
o|contracted procedure: k10752 
o|contracted procedure: k10760 
o|contracted procedure: k10764 
o|contracted procedure: k10770 
o|contracted procedure: k10777 
o|contracted procedure: k10783 
o|contracted procedure: k10794 
o|contracted procedure: k10869 
o|contracted procedure: k10877 
o|contracted procedure: k10812 
o|contracted procedure: k10816 
o|contracted procedure: k10824 
o|contracted procedure: k10836 
o|contracted procedure: k10839 
o|contracted procedure: k10842 
o|contracted procedure: k10850 
o|contracted procedure: k10858 
o|contracted procedure: k10888 
o|contracted procedure: k10891 
o|contracted procedure: k10939 
o|contracted procedure: k10903 
o|contracted procedure: k10929 
o|contracted procedure: k10933 
o|contracted procedure: k10925 
o|contracted procedure: k10906 
o|contracted procedure: k10909 
o|contracted procedure: k10917 
o|contracted procedure: k10921 
o|contracted procedure: k10951 
o|contracted procedure: k10954 
o|contracted procedure: k10957 
o|contracted procedure: k10965 
o|contracted procedure: k10973 
o|contracted procedure: k10992 
o|contracted procedure: k11000 
o|contracted procedure: k11012 
o|contracted procedure: k11015 
o|contracted procedure: k11018 
o|contracted procedure: k11026 
o|contracted procedure: k11034 
o|contracted procedure: k11095 
o|contracted procedure: k11059 
o|contracted procedure: k11085 
o|contracted procedure: k11089 
o|contracted procedure: k11081 
o|contracted procedure: k11062 
o|contracted procedure: k11065 
o|contracted procedure: k11073 
o|contracted procedure: k11077 
o|contracted procedure: k10565 
o|contracted procedure: k10568 
o|contracted procedure: k10580 
o|contracted procedure: k10583 
o|contracted procedure: k10586 
o|contracted procedure: k10594 
o|contracted procedure: k10602 
o|contracted procedure: k11329 
o|contracted procedure: k11341 
o|contracted procedure: k11345 
o|contracted procedure: k11353 
o|contracted procedure: k11359 
o|contracted procedure: k11367 
o|contracted procedure: k11392 
o|contracted procedure: k11396 
o|contracted procedure: k11388 
o|contracted procedure: k11402 
o|contracted procedure: k11414 
o|contracted procedure: k11435 
o|contracted procedure: k11439 
o|contracted procedure: k11431 
o|contracted procedure: k11418 
o|contracted procedure: k11443 
o|contracted procedure: k11449 
o|contracted procedure: k11461 
o|contracted procedure: k11465 
o|contracted procedure: k11473 
o|contracted procedure: k11499 
o|contracted procedure: k11724 
o|contracted procedure: k11731 
o|contracted procedure: k11767 
o|contracted procedure: k11779 
o|contracted procedure: k11789 
o|contracted procedure: k11793 
o|contracted procedure: k11796 
o|contracted procedure: k11831 
o|contracted procedure: k11841 
o|contracted procedure: k11845 
o|contracted procedure: k11861 
o|contracted procedure: k11992 
o|contracted procedure: k11867 
o|contracted procedure: k11873 
o|contracted procedure: k11876 
o|contracted procedure: k11885 
o|contracted procedure: k11897 
o|contracted procedure: k11917 
o|contracted procedure: k11924 
o|contracted procedure: k11932 
o|contracted procedure: k11928 
o|contracted procedure: k11589 
o|contracted procedure: k11595 
o|contracted procedure: k11581 
o|contracted procedure: k11607 
o|contracted procedure: k11610 
o|contracted procedure: k11613 
o|contracted procedure: k11621 
o|contracted procedure: k11629 
o|contracted procedure: k11947 
o|contracted procedure: k11953 
o|contracted procedure: k11960 
o|contracted procedure: k11972 
o|contracted procedure: k11983 
o|contracted procedure: k11979 
o|contracted procedure: k12025 
o|contracted procedure: k12049 
o|contracted procedure: k12036 
o|contracted procedure: k12030 
o|contracted procedure: k12057 
o|contracted procedure: k11653 
o|contracted procedure: k11657 
o|contracted procedure: k11661 
o|contracted procedure: k11666 
o|contracted procedure: k11678 
o|contracted procedure: k11681 
o|contracted procedure: k11684 
o|contracted procedure: k11692 
o|contracted procedure: k11700 
o|contracted procedure: k12066 
o|contracted procedure: k12078 
o|contracted procedure: k12087 
o|contracted procedure: k581719397 
o|contracted procedure: k12091 
o|contracted procedure: k12141 
o|contracted procedure: k12103 
o|contracted procedure: k12137 
o|contracted procedure: k12112 
o|contracted procedure: k12129 
o|contracted procedure: k12133 
o|contracted procedure: k12248 
o|contracted procedure: k12150 
o|contracted procedure: k12244 
o|contracted procedure: k12159 
o|contracted procedure: k12176 
o|contracted procedure: k12185 
o|contracted procedure: k12228 
o|contracted procedure: k12194 
o|contracted procedure: k12203 
o|contracted procedure: k12220 
o|contracted procedure: k12224 
o|contracted procedure: k12236 
o|contracted procedure: k12286 
o|contracted procedure: k12295 
o|contracted procedure: k12298 
o|contracted procedure: k6347 
o|contracted procedure: k6363 
o|contracted procedure: k12321 
o|contracted procedure: k12324 
o|contracted procedure: k12339 
o|contracted procedure: k12345 
o|contracted procedure: k12368 
o|contracted procedure: k12452 
o|contracted procedure: k12371 
o|contracted procedure: k12380 
o|contracted procedure: k12395 
o|contracted procedure: k12401 
o|contracted procedure: k12407 
o|contracted procedure: k12424 
o|contracted procedure: k12413 
o|contracted procedure: k12420 
o|contracted procedure: k12438 
o|contracted procedure: k12479 
o|contracted procedure: k12485 
o|contracted procedure: k12492 
o|contracted procedure: k12520 
o|contracted procedure: k12526 
o|contracted procedure: k12575 
o|contracted procedure: k12548 
o|contracted procedure: k12551 
o|contracted procedure: k12572 
o|contracted procedure: k12565 
o|inlining procedure: k12561 
o|inlining procedure: k12561 
o|contracted procedure: k12602 
o|contracted procedure: k12637 
o|contracted procedure: k12655 
o|contracted procedure: k12673 
o|contracted procedure: k12691 
o|contracted procedure: k12709 
o|contracted procedure: k12719 
o|contracted procedure: k12730 
o|contracted procedure: k12724 
o|contracted procedure: k12805 
o|contracted procedure: k12760 
o|contracted procedure: k12799 
o|contracted procedure: k12763 
o|contracted procedure: k12793 
o|contracted procedure: k12766 
o|contracted procedure: k12787 
o|contracted procedure: k12769 
o|contracted procedure: k12780 
o|contracted procedure: k12776 
o|contracted procedure: k12835 
o|contracted procedure: k12838 
o|contracted procedure: k12850 
o|contracted procedure: k12865 
o|contracted procedure: k12880 
o|contracted procedure: k12912 
o|contracted procedure: k12893 
o|contracted procedure: k12901 
o|contracted procedure: k12905 
o|contracted procedure: k12897 
o|contracted procedure: k12918 
o|contracted procedure: k12933 
o|contracted procedure: k12966 
o|contracted procedure: k12943 
o|contracted procedure: k12955 
o|contracted procedure: k12947 
o|contracted procedure: k12962 
o|contracted procedure: k12972 
o|contracted procedure: k12982 
o|contracted procedure: k12988 
o|contracted procedure: k13024 
o|contracted procedure: k13001 
o|contracted procedure: k13013 
o|contracted procedure: k13005 
o|contracted procedure: k13020 
o|contracted procedure: k13030 
o|contracted procedure: k13047 
o|contracted procedure: k13043 
o|contracted procedure: k13056 
o|contracted procedure: k13059 
o|contracted procedure: k13068 
o|contracted procedure: k13074 
o|contracted procedure: k13102 
o|contracted procedure: k13111 
o|contracted procedure: k13149 
o|contracted procedure: k13117 
o|contracted procedure: k13145 
o|contracted procedure: k13155 
o|contracted procedure: k13184 
o|contracted procedure: k13168 
o|contracted procedure: k13176 
o|contracted procedure: k13180 
o|contracted procedure: k13172 
o|contracted procedure: k13190 
o|contracted procedure: k13199 
o|contracted procedure: k13238 
o|contracted procedure: k13212 
o|contracted procedure: k13224 
o|contracted procedure: k13216 
o|contracted procedure: k13234 
o|contracted procedure: k13244 
o|contracted procedure: k13260 
o|contracted procedure: k13266 
o|contracted procedure: k13279 
o|contracted procedure: k13294 
o|contracted procedure: k13303 
o|contracted procedure: k13310 
o|contracted procedure: k13339 
o|contracted procedure: k13323 
o|contracted procedure: k13331 
o|contracted procedure: k13335 
o|contracted procedure: k13327 
o|contracted procedure: k13345 
o|contracted procedure: k13348 
o|contracted procedure: k13378 
o|contracted procedure: k13358 
o|contracted procedure: k13374 
o|contracted procedure: k13366 
o|contracted procedure: k13370 
o|contracted procedure: k13362 
o|contracted procedure: k13384 
o|contracted procedure: k13387 
o|contracted procedure: k13398 
o|contracted procedure: k13394 
o|contracted procedure: k13408 
o|contracted procedure: k13437 
o|contracted procedure: k13418 
o|contracted procedure: k13426 
o|contracted procedure: k13430 
o|contracted procedure: k13422 
o|contracted procedure: k13443 
o|contracted procedure: k13455 
o|contracted procedure: k13462 
o|contracted procedure: k13468 
o|contracted procedure: k13475 
o|contracted procedure: k13481 
o|contracted procedure: k13491 
o|contracted procedure: k13497 
o|contracted procedure: k13500 
o|contracted procedure: k13537 
o|contracted procedure: k13543 
o|contracted procedure: k13560 
o|contracted procedure: k13568 
o|contracted procedure: k13583 
o|contracted procedure: k13589 
o|contracted procedure: k13608 
o|contracted procedure: k13623 
o|contracted procedure: k13629 
o|contracted procedure: k13635 
o|contracted procedure: k13641 
o|contracted procedure: k13662 
o|contracted procedure: k13668 
o|contracted procedure: k13674 
o|contracted procedure: k13680 
o|contracted procedure: k13708 
o|contracted procedure: k13714 
o|contracted procedure: k13720 
o|contracted procedure: k13726 
o|contracted procedure: k13732 
o|contracted procedure: k13738 
o|contracted procedure: k13744 
o|contracted procedure: k13771 
o|contracted procedure: k13777 
o|contracted procedure: k13783 
o|contracted procedure: k13789 
o|contracted procedure: k13795 
o|contracted procedure: k13801 
o|contracted procedure: k13807 
o|contracted procedure: k13838 
o|contracted procedure: k13844 
o|contracted procedure: k13861 
o|contracted procedure: k13867 
o|contracted procedure: k13884 
o|contracted procedure: k13899 
o|contracted procedure: k13905 
o|contracted procedure: k13911 
o|contracted procedure: k13917 
o|contracted procedure: k13954 
o|contracted procedure: k13966 
o|contracted procedure: k13975 
o|contracted procedure: k13987 
o|contracted procedure: k13999 
o|contracted procedure: k14014 
o|contracted procedure: k14044 
o|contracted procedure: k14050 
o|contracted procedure: k14080 
o|contracted procedure: k14089 
o|contracted procedure: k14101 
o|contracted procedure: k14113 
o|contracted procedure: k14125 
o|contracted procedure: k14128 
o|contracted procedure: k14137 
o|contracted procedure: k14158 
o|contracted procedure: k14167 
o|contracted procedure: k14174 
o|contracted procedure: k14186 
o|contracted procedure: k14193 
o|contracted procedure: k14199 
o|contracted procedure: k14202 
o|contracted procedure: k14211 
o|contracted procedure: k14231 
o|contracted procedure: k14237 
o|contracted procedure: k14243 
o|contracted procedure: k14249 
o|contracted procedure: k14255 
o|contracted procedure: k14261 
o|contracted procedure: k14267 
o|contracted procedure: k14297 
o|contracted procedure: k14303 
o|contracted procedure: k14309 
o|contracted procedure: k14333 
o|contracted procedure: k14348 
o|contracted procedure: k14354 
o|contracted procedure: k14360 
o|contracted procedure: k14366 
o|contracted procedure: k14387 
o|contracted procedure: k14393 
o|contracted procedure: k14399 
o|contracted procedure: k14405 
o|contracted procedure: k14411 
o|contracted procedure: k14417 
o|contracted procedure: k14423 
o|contracted procedure: k14429 
o|contracted procedure: k14435 
o|contracted procedure: k14441 
o|contracted procedure: k14474 
o|contracted procedure: k14480 
o|contracted procedure: k14486 
o|contracted procedure: k14492 
o|contracted procedure: k14498 
o|contracted procedure: k14504 
o|contracted procedure: k14510 
o|contracted procedure: k14516 
o|contracted procedure: k14522 
o|contracted procedure: k14528 
o|contracted procedure: k14534 
o|contracted procedure: k14593 
o|contracted procedure: k14605 
o|contracted procedure: k14617 
o|contracted procedure: k14620 
o|contracted procedure: k14638 
o|contracted procedure: k14647 
o|contracted procedure: k14654 
o|contracted procedure: k14666 
o|contracted procedure: k14669 
o|contracted procedure: k14678 
o|contracted procedure: k14685 
o|contracted procedure: k14700 
o|contracted procedure: k14706 
o|contracted procedure: k14712 
o|contracted procedure: k14718 
o|contracted procedure: k14724 
o|contracted procedure: k14730 
o|contracted procedure: k14736 
o|contracted procedure: k14766 
o|contracted procedure: k14779 
o|contracted procedure: k14785 
o|contracted procedure: k14791 
o|contracted procedure: k14810 
o|contracted procedure: k14816 
o|contracted procedure: k14822 
o|contracted procedure: k14828 
o|contracted procedure: k14834 
o|contracted procedure: k14840 
o|contracted procedure: k14846 
o|contracted procedure: k14852 
o|contracted procedure: k14858 
o|contracted procedure: k14864 
o|contracted procedure: k14870 
o|contracted procedure: k14876 
o|contracted procedure: k14882 
o|contracted procedure: k14888 
o|contracted procedure: k14894 
o|contracted procedure: k14900 
o|contracted procedure: k14906 
o|contracted procedure: k14912 
o|contracted procedure: k14918 
o|contracted procedure: k14924 
o|contracted procedure: k14930 
o|contracted procedure: k14936 
o|contracted procedure: k14942 
o|contracted procedure: k14948 
o|contracted procedure: k14954 
o|contracted procedure: k14960 
o|contracted procedure: k14966 
o|contracted procedure: k14972 
o|contracted procedure: k14978 
o|contracted procedure: k14984 
o|contracted procedure: k15072 
o|contracted procedure: k15075 
o|contracted procedure: k15082 
o|contracted procedure: k15088 
o|contracted procedure: k15095 
o|contracted procedure: k15101 
o|contracted procedure: k15104 
o|contracted procedure: k15111 
o|contracted procedure: k15117 
o|contracted procedure: k15120 
o|contracted procedure: k15127 
o|contracted procedure: k15133 
o|contracted procedure: k15144 
o|contracted procedure: k15140 
o|contracted procedure: k15150 
o|contracted procedure: k15157 
o|contracted procedure: k15163 
o|contracted procedure: k15170 
o|contracted procedure: k15331 
o|contracted procedure: k15176 
o|contracted procedure: k15189 
o|contracted procedure: k15206 
o|contracted procedure: k15293 
o|contracted procedure: k15212 
o|contracted procedure: k15215 
o|contracted procedure: k15221 
o|contracted procedure: k15224 
o|contracted procedure: k15262 
o|contracted procedure: k15234 
o|contracted procedure: k15258 
o|contracted procedure: k15242 
o|contracted procedure: k15250 
o|contracted procedure: k15254 
o|contracted procedure: k15246 
o|contracted procedure: k15238 
o|contracted procedure: k15268 
o|contracted procedure: k15275 
o|contracted procedure: k15279 
o|contracted procedure: k15296 
o|contracted procedure: k15312 
o|contracted procedure: k15302 
o|contracted procedure: k15306 
o|contracted procedure: k15318 
o|contracted procedure: k15327 
o|contracted procedure: k15381 
o|contracted procedure: k15387 
o|contracted procedure: k15390 
o|contracted procedure: k15396 
o|contracted procedure: k15405 
o|contracted procedure: k15408 
o|contracted procedure: k15414 
o|contracted procedure: k15422 
o|contracted procedure: k15425 
o|contracted procedure: k15431 
o|contracted procedure: k15434 
o|contracted procedure: k15440 
o|contracted procedure: k15449 
o|contracted procedure: k15457 
o|contracted procedure: k15463 
o|contracted procedure: k15469 
o|contracted procedure: k15475 
o|contracted procedure: k15483 
o|contracted procedure: k15489 
o|contracted procedure: k15498 
o|contracted procedure: k15505 
o|contracted procedure: k15516 
o|contracted procedure: k15522 
o|contracted procedure: k15528 
o|contracted procedure: k15534 
o|contracted procedure: k15540 
o|contracted procedure: k15546 
o|contracted procedure: k15552 
o|contracted procedure: k15558 
o|contracted procedure: k15564 
o|contracted procedure: k15570 
o|contracted procedure: k15576 
o|contracted procedure: k15585 
o|contracted procedure: k15591 
o|contracted procedure: k15597 
o|contracted procedure: k15603 
o|contracted procedure: k15609 
o|contracted procedure: k15618 
o|contracted procedure: k15621 
o|contracted procedure: k15627 
o|contracted procedure: k15636 
o|contracted procedure: k15642 
o|contracted procedure: k15649 
o|contracted procedure: k15658 
o|contracted procedure: k15664 
o|contracted procedure: k15671 
o|contracted procedure: k15677 
o|contracted procedure: k15680 
o|contracted procedure: k15693 
o|contracted procedure: k15699 
o|contracted procedure: k15702 
o|contracted procedure: k15708 
o|contracted procedure: k15729 
o|contracted procedure: k15735 
o|contracted procedure: k15754 
o|contracted procedure: k15776 
o|contracted procedure: k15782 
o|contracted procedure: k15803 
o|contracted procedure: k15809 
o|contracted procedure: k15815 
o|contracted procedure: k15821 
o|contracted procedure: k15827 
o|contracted procedure: k15833 
o|contracted procedure: k15839 
o|contracted procedure: k15886 
o|contracted procedure: k15892 
o|contracted procedure: k15898 
o|contracted procedure: k15904 
o|contracted procedure: k15910 
o|contracted procedure: k15916 
o|contracted procedure: k15922 
o|contracted procedure: k15957 
o|contracted procedure: k15993 
o|contracted procedure: k15999 
o|contracted procedure: k16005 
o|contracted procedure: k16011 
o|contracted procedure: k16017 
o|contracted procedure: k16023 
o|contracted procedure: k16060 
o|contracted procedure: k16066 
o|contracted procedure: k16090 
o|contracted procedure: k16093 
o|contracted procedure: k16096 
o|contracted procedure: k16102 
o|contracted procedure: k16114 
o|contracted procedure: k16124 
o|contracted procedure: k16128 
o|contracted procedure: k16135 
o|contracted procedure: k16138 
o|contracted procedure: k16145 
o|contracted procedure: k16155 
o|contracted procedure: k16161 
o|contracted procedure: k16173 
o|contracted procedure: k16183 
o|contracted procedure: k16187 
o|contracted procedure: k16190 
o|contracted procedure: k16230 
o|contracted procedure: k16239 
o|contracted procedure: k16242 
o|contracted procedure: k16248 
o|contracted procedure: k16268 
o|contracted procedure: k16271 
o|contracted procedure: k16284 
o|contracted procedure: k1628119427 
o|contracted procedure: k1628119431 
o|contracted procedure: k16294 
o|contracted procedure: k16304 
o|contracted procedure: k16312 
o|contracted procedure: k16318 
o|contracted procedure: k16325 
o|contracted procedure: k16335 
o|contracted procedure: k16353 
o|contracted procedure: k16359 
o|contracted procedure: k16365 
o|contracted procedure: k16392 
o|contracted procedure: k16404 
o|contracted procedure: k16414 
o|contracted procedure: k16418 
o|contracted procedure: k16452 
o|contracted procedure: k16495 
o|inlining procedure: k16492 
o|contracted procedure: k16549 
o|contracted procedure: k16558 
o|contracted procedure: k16566 
o|contracted procedure: k16579 
o|contracted procedure: k16590 
o|contracted procedure: k16602 
o|contracted procedure: k16616 
o|contracted procedure: k16620 
o|contracted procedure: k16687 
o|contracted procedure: k16690 
o|contracted procedure: k16693 
o|contracted procedure: k16710 
o|contracted procedure: k16722 
o|contracted procedure: k16737 
o|contracted procedure: k16777 
o|contracted procedure: k16770 
o|contracted procedure: k16746 
o|contracted procedure: k16758 
o|contracted procedure: k16761 
o|contracted procedure: k16764 
o|contracted procedure: k16783 
o|contracted procedure: k16795 
o|contracted procedure: k16923 
o|contracted procedure: k16931 
o|contracted procedure: k16801 
o|contracted procedure: k16804 
o|contracted procedure: k16810 
o|contracted procedure: k16841 
o|contracted procedure: k16847 
o|contracted procedure: k16871 
o|contracted procedure: k16859 
o|contracted procedure: k16866 
o|contracted procedure: k16943 
o|contracted procedure: k16965 
o|contracted procedure: k16961 
o|contracted procedure: k16946 
o|contracted procedure: k16949 
o|contracted procedure: k16957 
o|contracted procedure: k16977 
o|contracted procedure: k16999 
o|contracted procedure: k16995 
o|contracted procedure: k16980 
o|contracted procedure: k16983 
o|contracted procedure: k16991 
o|contracted procedure: k17021 
o|contracted procedure: k17024 
o|inlining procedure: k17061 
o|contracted procedure: k17086 
o|contracted procedure: k17125 
o|contracted procedure: k17171 
o|contracted procedure: k17180 
o|contracted procedure: k17190 
o|contracted procedure: k17196 
o|contracted procedure: k17207 
o|contracted procedure: k17226 
o|contracted procedure: k6234 
o|contracted procedure: k6249 
o|contracted procedure: k17294 
o|contracted procedure: k17300 
o|contracted procedure: k17309 
o|contracted procedure: k17333 
o|contracted procedure: k17349 
o|contracted procedure: k17353 
o|contracted procedure: k17357 
o|contracted procedure: k17366 
o|contracted procedure: k17376 
o|contracted procedure: k17380 
o|contracted procedure: k17395 
o|contracted procedure: k17408 
o|contracted procedure: k17432 
o|contracted procedure: k17460 
o|contracted procedure: k17489 
o|contracted procedure: k17498 
o|contracted procedure: k17513 
o|contracted procedure: k17519 
o|contracted procedure: k17542 
o|contracted procedure: k17536 
o|contracted procedure: k17562 
o|contracted procedure: k17556 
o|contracted procedure: k17602 
o|contracted procedure: k17608 
o|contracted procedure: k17627 
o|contracted procedure: k17621 
o|contracted procedure: k17712 
o|contracted procedure: k17724 
o|contracted procedure: k17734 
o|contracted procedure: k17738 
o|contracted procedure: k17686 
o|contracted procedure: k17700 
o|contracted procedure: k17704 
o|contracted procedure: k17786 
o|contracted procedure: k17770 
o|simplifications: ((if . 6) (let . 298)) 
o|removed binding forms: 1202 
o|contracted procedure: k7138 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest964965 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest964965 0 
o|contracted procedure: k9526 
o|inlining procedure: k10379 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest28642867 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest28642867 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest28642867 0 
(o x)|known list op on rest arg sublist: ##core#rest-cdr rest28642867 0 
o|contracted procedure: k15182 
o|contracted procedure: k16131 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest43394342 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest43394342 0 
(o x)|known list op on rest arg sublist: ##core#rest-null? rest44284429 0 
(o x)|known list op on rest arg sublist: ##core#rest-car rest44284429 0 
o|simplifications: ((let . 1)) 
o|replaced variables: 3 
o|removed binding forms: 6 
(o x)|known list op on rest arg sublist: ##core#rest-null? r12764 1 
(o x)|known list op on rest arg sublist: ##core#rest-car r12764 1 
(o x)|known list op on rest arg sublist: ##core#rest-null? r12764 1 
(o x)|known list op on rest arg sublist: ##core#rest-cdr r12764 1 
o|removed binding forms: 3 
o|removed binding forms: 2 
o|direct leaf routine/allocation: loop467 0 
o|direct leaf routine/allocation: loop867 0 
o|direct leaf routine/allocation: loop1110 0 
o|direct leaf routine/allocation: a7956 0 
o|direct leaf routine/allocation: g427428 3 
o|direct leaf routine/allocation: g26732674 0 
o|direct leaf routine/allocation: a17236 0 
o|converted assignments to bindings: (loop467) 
o|converted assignments to bindings: (loop867) 
o|converted assignments to bindings: (loop1110) 
o|contracted procedure: "(mini-srfi-1.scm:135) k5884" 
o|contracted procedure: "(mini-srfi-1.scm:190) k6241" 
o|simplifications: ((let . 3)) 
o|removed binding forms: 2 
o|customizable procedures: (for-each-loop44024417 loop4266 g41994213 for-each-loop41984223 doloop42354236 loop4185 loop562 tmp15175 tmp25176 map-loop40584076 map-loop40864107 resolve3991 loop4003 g39263933 for-each-loop39253936 k16233 walkeach3890 walk3889 chicken.compiler.support#lset-adjoin/eq? k16158 for-each-loop38673877 k16099 walk3827 for-each-loop38423853 k15399 k15443 k15492 k15579 k15612 k15630 k15652 k15199 k14596 k14608 k14657 g35423543 k14083 k14092 k14104 k14116 k14140 k14177 err3259 g33783379 g32543255 chicken.compiler.support#foreign-type-argument-converter chicken.compiler.support#foreign-type-result-converter chicken.compiler.support#follow-without-loop k12853 k12868 k12883 k12921 k12991 k13033 k13071 k13114 k13158 k13202 k13247 k13313 repeat2889 chicken.compiler.support#struct/union-wrapper-type-name g31533154 k13220 k13009 k12951 k12511 k12470 k12289 a12304 loop590 matchn2664 loop2687 match12663 resolve2662 walk2488 map-loop24972514 loop2639 k11879 k11911 uses-foreign-stubs?2529 walk2454 map-loop24612478 for-each-loop25892601 for-each-loop26112629 rec2436 lp2410 map-loop20142031 map-loop21272146 g23112320 map-loop23052330 g22052214 map-loop21992219 map-loop22292248 g22722281 map-loop22662291 walk2157 map-loop20422060 walk2345 for-each-loop23792389 lp2367 g20702077 for-each-loop20692081 loop2088 loop22091 loop234 fold1991 k9395 k9999 map-loop19631980 map-loop19371954 map-loop19111928 loop1892 map-loop18681885 chicken.compiler.support#cons* map-loop18421859 loop1833 map-loop17931810 map-loop17721817 chicken.compiler.support#last map-loop17301747 walk1682 map-loop17011718 map-loop16531670 k8739 k8984 k9182 map-loop16221639 map-loop15761593 map-loop15451562 map-loop14961513 map-loop14521469 k8666 map-loop14151432 loop1382 map-loop440458 g13501359 map-loop13441362 k8297 walk1282 map-loop13071324 foldr412415 g417418 map-loop11431164 tmp14819 tmp24820 loop1093 k7561 loop1064 k7427 doloop971972 loop951 fold944 chicken.compiler.support#every loop882 k6781 g804829 for-each-loop803839 collect755 g760767 for-each-loop759778 text704 chicken.compiler.support#test-debugging-mode dump705 for-each-loop708725 chicken.compiler.support#any loop484 loop344 loop331 loop318 chicken.compiler.support#take) 
o|shared closure containers: 65 
o|shared closure users: 94 
o|calls to known targets: 528 
o|identified direct recursive calls: f_5320 1 
o|identified direct recursive calls: f_5651 1 
o|identified direct recursive calls: f_5987 1 
o|identified direct recursive calls: f_6046 2 
o|identified direct recursive calls: f_6935 1 
o|identified direct recursive calls: f_6976 1 
o|identified direct recursive calls: f_7186 1 
o|unused rest argument: rest964965 f_7277 
o|identified direct recursive calls: f_7735 1 
o|identified direct recursive calls: f_7877 1 
o|identified direct recursive calls: f_5874 1 
o|identified direct recursive calls: f_5947 1 
o|identified direct recursive calls: f_8179 4 
o|identified direct recursive calls: f_9589 1 
o|identified direct recursive calls: f_5378 1 
o|identified direct recursive calls: f_10348 1 
o|identified direct recursive calls: f_10333 1 
o|identified direct recursive calls: f_11250 1 
o|identified direct recursive calls: f_10898 1 
o|identified direct recursive calls: f_11054 1 
o|identified direct recursive calls: f_11371 1 
o|identified direct recursive calls: f_11494 1 
o|identified direct recursive calls: f_12098 1 
o|unused rest argument: rest28642867 f_12758 
o|identified direct recursive calls: f_16938 1 
o|identified direct recursive calls: f_6229 1 
o|unused rest argument: rest43394342 f_17619 
o|unused rest argument: rest44284429 f_17768 
o|fast box initializations: 92 
o|fast global references: 66 
o|fast global assignments: 23 
o|dropping unused closure argument: f_13952 
o|dropping unused closure argument: f_13973 
o|dropping unused closure argument: f_16529 
o|dropping unused closure argument: f_5320 
o|dropping unused closure argument: f_5581 
o|dropping unused closure argument: f_5615 
o|dropping unused closure argument: f_5645 
o|dropping unused closure argument: f_5981 
o|dropping unused closure argument: f_5987 
o|dropping unused closure argument: f_6040 
o|dropping unused closure argument: f_6525 
o|dropping unused closure argument: f_6935 
o|dropping unused closure argument: f_7057 
o|dropping unused closure argument: f_7226 
o|dropping unused closure argument: f_7735 
*/
/* end of file */
