source: project/release/3/cmk/extras.c @ 12843

Last change on this file since 12843 was 12843, checked in by Ivan Raikov, 12 years ago

Added initial version of cmk.
File size: 224.9 KB
Line 
1/* Generated from extras.scm by the CHICKEN compiler
2   http://www.call-with-current-continuation.org
3   2008-11-17 12:51
4   Version 3.4.0 - linux-unix-gnu-x86   [ manyargs dload ptables applyhook hostpcre ]
5   compiled 2008-09-29 on debian (Linux)
6   command line: extras.scm -quiet -no-trace -optimize-level 2 -include-path . -include-path ./ -explicit-use -output-file extras.c -extend private-namespace.scm
7   unit: extras
8*/
9
10#include "chicken.h"
11
12#define C_mem_compare(to, from, n)   C_fix(C_memcmp(C_c_string(to), C_c_string(from), C_unfix(n)))
13
14static C_PTABLE_ENTRY *create_ptable(void);
15C_noret_decl(C_data_structures_toplevel)
16C_externimport void C_ccall C_data_structures_toplevel(C_word c,C_word d,C_word k) C_noret;
17C_noret_decl(C_ports_toplevel)
18C_externimport void C_ccall C_ports_toplevel(C_word c,C_word d,C_word k) C_noret;
19
20static C_TLS C_word lf[136];
21static double C_possibly_force_alignment;
22static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,19),40,100,111,50,49,32,120,50,51,32,105,50,52,32,120,115,50,53,41,0,0,0,0,0};
23static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,14),40,115,108,117,114,112,32,112,111,114,116,50,48,41,0,0};
24static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,29),40,98,111,100,121,57,32,112,111,114,116,49,54,32,114,101,97,100,101,114,49,55,32,109,97,120,49,56,41,0,0,0};
25static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,31),40,100,101,102,45,109,97,120,49,51,32,37,112,111,114,116,54,51,49,32,37,114,101,97,100,101,114,55,51,50,41,0};
26static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,23),40,100,101,102,45,114,101,97,100,101,114,49,50,32,37,112,111,114,116,54,51,52,41,0};
27static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,12),40,100,101,102,45,112,111,114,116,49,49,41,0,0,0,0};
28static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,17),40,114,101,97,100,45,102,105,108,101,32,46,32,103,52,53,41,0,0,0,0,0,0,0};
29static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,19),40,114,97,110,100,111,109,45,115,101,101,100,32,46,32,110,52,56,41,0,0,0,0,0};
30static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,12),40,114,97,110,100,111,109,32,110,53,50,41,0,0,0,0};
31static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,17),40,114,97,110,100,111,109,105,122,101,32,46,32,110,53,52,41,0,0,0,0,0,0,0};
32static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,55,49,41,0,0,0,0,0,0};
33static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,20),40,114,101,97,100,45,108,105,110,101,32,46,32,97,114,103,115,54,49,41,0,0,0,0};
34static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,110,115,57,51,32,110,57,52,41};
35static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,15),40,100,111,114,101,97,100,32,112,111,114,116,57,49,41,0};
36static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,29),40,114,101,97,100,45,108,105,110,101,115,32,46,32,112,111,114,116,45,97,110,100,45,109,97,120,56,54,41,0,0,0};
37static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,115,116,97,114,116,49,48,56,32,110,49,48,57,32,109,49,49,48,41,0,0,0,0,0,0,0};
38static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,114,101,97,100,45,115,116,114,105,110,103,33,32,110,49,48,49,32,100,101,115,116,49,48,50,32,112,111,114,116,49,48,51,32,115,116,97,114,116,49,48,52,41,0,0,0,0,0,0};
39static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,26),40,98,111,100,121,49,50,52,32,112,111,114,116,49,51,48,32,115,116,97,114,116,49,51,49,41,0,0,0,0,0,0};
40static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,26),40,100,101,102,45,115,116,97,114,116,49,50,55,32,37,112,111,114,116,49,50,50,49,51,56,41,0,0,0,0,0,0};
41static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,13),40,100,101,102,45,112,111,114,116,49,50,54,41,0,0,0};
42static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,37),40,114,101,97,100,45,115,116,114,105,110,103,33,32,110,49,49,57,32,100,101,115,116,49,50,48,32,46,32,103,49,49,56,49,50,49,41,0,0,0};
43static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,110,49,53,51,41,0,0,0,0,0};
44static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,97,100,45,115,116,114,105,110,103,47,112,111,114,116,32,110,49,52,54,32,112,49,52,55,41,0,0,0,0,0,0};
45static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,22),40,98,111,100,121,49,54,52,32,110,49,55,48,32,112,111,114,116,49,55,49,41,0,0};
46static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,22),40,100,101,102,45,112,111,114,116,49,54,55,32,37,110,49,54,50,49,55,51,41,0,0};
47static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,10),40,100,101,102,45,110,49,54,54,41,0,0,0,0,0,0};
48static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,23),40,114,101,97,100,45,115,116,114,105,110,103,32,46,32,103,49,54,48,49,54,49,41,0};
49static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
50static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,30),40,114,101,97,100,45,116,111,107,101,110,32,112,114,101,100,49,56,49,32,46,32,112,111,114,116,49,56,50,41,0,0};
51static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,22),40,98,111,100,121,49,57,55,32,110,50,48,51,32,112,111,114,116,50,48,52,41,0,0};
52static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,22),40,100,101,102,45,112,111,114,116,50,48,48,32,37,110,49,57,53,50,48,56,41,0,0};
53static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,10),40,100,101,102,45,110,49,57,57,41,0,0,0,0,0,0};
54static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,29),40,119,114,105,116,101,45,115,116,114,105,110,103,32,115,49,57,51,32,46,32,109,111,114,101,49,57,52,41,0,0,0};
55static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,29),40,119,114,105,116,101,45,108,105,110,101,32,115,116,114,50,49,55,32,46,32,112,111,114,116,50,49,56,41,0,0,0};
56static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,21),40,114,101,97,100,45,98,121,116,101,32,46,32,103,50,50,51,50,50,52,41,0,0,0};
57static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,30),40,119,114,105,116,101,45,98,121,116,101,32,98,121,116,101,50,51,49,32,46,32,103,50,51,48,50,51,50,41,0,0};
58static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,18),40,114,101,97,100,45,109,97,99,114,111,63,32,108,50,53,48,41,0,0,0,0,0,0};
59static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,17),40,114,101,97,100,45,109,97,99,114,111,45,98,111,100,121,41,0,0,0,0,0,0,0};
60static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,19),40,114,101,97,100,45,109,97,99,114,111,45,112,114,101,102,105,120,41,0,0,0,0,0};
61static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,19),40,111,117,116,32,115,116,114,50,55,48,32,99,111,108,50,55,49,41,0,0,0,0,0};
62static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,50,56,49,32,99,111,108,50,56,50,41,0,0,0,0,0,0};
63static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,20),40,119,114,45,108,115,116,32,108,50,55,56,32,99,111,108,50,55,57,41,0,0,0,0};
64static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,24),40,119,114,45,101,120,112,114,32,101,120,112,114,50,55,54,32,99,111,108,50,55,55,41};
65static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,23),40,108,111,111,112,32,105,50,56,55,32,106,50,56,56,32,99,111,108,50,56,57,41,0};
66static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,18),40,119,114,32,111,98,106,50,55,50,32,99,111,108,50,55,51,41,0,0,0,0,0,0};
67static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,20),40,115,112,97,99,101,115,32,110,51,51,50,32,99,111,108,51,51,51,41,0,0,0,0};
68static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,21),40,105,110,100,101,110,116,32,116,111,51,51,52,32,99,111,108,51,51,53,41,0,0,0};
69static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,14),40,97,50,51,56,49,32,115,116,114,51,52,52,41,0,0};
70static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,38),40,112,114,32,111,98,106,51,51,54,32,99,111,108,51,51,55,32,101,120,116,114,97,51,51,56,32,112,112,45,112,97,105,114,51,51,57,41,0,0};
71static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,33),40,112,112,45,101,120,112,114,32,101,120,112,114,51,52,56,32,99,111,108,51,52,57,32,101,120,116,114,97,51,53,48,41,0,0,0,0,0,0,0};
72static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,44),40,112,112,45,99,97,108,108,32,101,120,112,114,51,53,51,32,99,111,108,51,53,52,32,101,120,116,114,97,51,53,53,32,112,112,45,105,116,101,109,51,53,54,41,0,0,0,0};
73static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,41),40,112,112,45,108,105,115,116,32,108,51,53,56,32,99,111,108,51,53,57,32,101,120,116,114,97,51,54,48,32,112,112,45,105,116,101,109,51,54,49,41,0,0,0,0,0,0,0};
74static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,51,54,57,32,99,111,108,51,55,48,41,0,0,0,0,0,0};
75static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,50),40,112,112,45,100,111,119,110,32,108,51,54,51,32,99,111,108,49,51,54,52,32,99,111,108,50,51,54,53,32,101,120,116,114,97,51,54,54,32,112,112,45,105,116,101,109,51,54,55,41,0,0,0,0,0,0};
76static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,31),40,116,97,105,108,51,32,114,101,115,116,51,57,56,32,99,111,108,49,51,57,57,32,99,111,108,50,52,48,48,41,0};
77static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,39),40,116,97,105,108,50,32,114,101,115,116,51,57,49,32,99,111,108,49,51,57,50,32,99,111,108,50,51,57,51,32,99,111,108,51,51,57,52,41,0};
78static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,39),40,116,97,105,108,49,32,114,101,115,116,51,56,52,32,99,111,108,49,51,56,53,32,99,111,108,50,51,56,54,32,99,111,108,51,51,56,55,41,0};
79static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,70),40,112,112,45,103,101,110,101,114,97,108,32,101,120,112,114,51,55,52,32,99,111,108,51,55,53,32,101,120,116,114,97,51,55,54,32,110,97,109,101,100,63,51,55,55,32,112,112,45,49,51,55,56,32,112,112,45,50,51,55,57,32,112,112,45,51,51,56,48,41,0,0};
80static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,35),40,112,112,45,101,120,112,114,45,108,105,115,116,32,108,52,49,48,32,99,111,108,52,49,49,32,101,120,116,114,97,52,49,50,41,0,0,0,0,0};
81static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,35),40,112,112,45,108,97,109,98,100,97,32,101,120,112,114,52,49,51,32,99,111,108,52,49,52,32,101,120,116,114,97,52,49,53,41,0,0,0,0,0};
82static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,31),40,112,112,45,105,102,32,101,120,112,114,52,49,54,32,99,111,108,52,49,55,32,101,120,116,114,97,52,49,56,41,0};
83static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,33),40,112,112,45,99,111,110,100,32,101,120,112,114,52,49,57,32,99,111,108,52,50,48,32,101,120,116,114,97,52,50,49,41,0,0,0,0,0,0,0};
84static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,33),40,112,112,45,99,97,115,101,32,101,120,112,114,52,50,50,32,99,111,108,52,50,51,32,101,120,116,114,97,52,50,52,41,0,0,0,0,0,0,0};
85static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,32),40,112,112,45,97,110,100,32,101,120,112,114,52,50,53,32,99,111,108,52,50,54,32,101,120,116,114,97,52,50,55,41};
86static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,32),40,112,112,45,108,101,116,32,101,120,112,114,52,50,56,32,99,111,108,52,50,57,32,101,120,116,114,97,52,51,48,41};
87static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,34),40,112,112,45,98,101,103,105,110,32,101,120,112,114,52,51,51,32,99,111,108,52,51,52,32,101,120,116,114,97,52,51,53,41,0,0,0,0,0,0};
88static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,31),40,112,112,45,100,111,32,101,120,112,114,52,51,54,32,99,111,108,52,51,55,32,101,120,116,114,97,52,51,56,41,0};
89static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,15),40,115,116,121,108,101,32,104,101,97,100,52,51,57,41,0};
90static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,18),40,112,112,32,111,98,106,51,48,57,32,99,111,108,51,49,48,41,0,0,0,0,0,0};
91static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,62),40,35,35,101,120,116,114,97,115,35,103,101,110,101,114,105,99,45,119,114,105,116,101,32,111,98,106,50,52,48,32,100,105,115,112,108,97,121,63,50,52,49,32,119,105,100,116,104,50,52,50,32,111,117,116,112,117,116,50,52,51,41,0,0};
92static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,106,52,56,55,32,107,52,56,56,41};
93static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,29),40,114,101,118,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,52,56,49,32,105,52,56,50,41,0,0,0};
94static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,37),40,35,35,101,120,116,114,97,115,35,114,101,118,101,114,115,101,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,52,55,57,41,0,0,0};
95static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,12),40,97,51,48,49,50,32,115,52,57,53,41,0,0,0,0};
96static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,30),40,112,114,101,116,116,121,45,112,114,105,110,116,32,111,98,106,52,57,50,32,46,32,111,112,116,52,57,51,41,0,0};
97static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,6),40,110,101,120,116,41,0,0};
98static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,6),40,115,107,105,112,41,0,0};
99static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
100static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,20),40,114,101,99,32,109,115,103,53,48,57,32,97,114,103,115,53,49,48,41,0,0,0,0};
101static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,49),40,35,35,101,120,116,114,97,115,35,102,112,114,105,110,116,102,48,32,108,111,99,53,48,51,32,112,111,114,116,53,48,52,32,109,115,103,53,48,53,32,97,114,103,115,53,48,54,41,0,0,0,0,0,0,0};
102static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,35),40,102,112,114,105,110,116,102,32,112,111,114,116,53,52,48,32,102,115,116,114,53,52,49,32,46,32,97,114,103,115,53,52,50,41,0,0,0,0,0};
103static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,26),40,112,114,105,110,116,102,32,102,115,116,114,53,52,51,32,46,32,97,114,103,115,53,52,52,41,0,0,0,0,0,0};
104static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,27),40,115,112,114,105,110,116,102,32,102,115,116,114,53,52,53,32,46,32,97,114,103,115,53,52,54,41,0,0,0,0,0};
105static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,32),40,102,111,114,109,97,116,32,102,109,116,45,111,114,45,100,115,116,53,53,48,32,46,32,97,114,103,115,53,53,49,41};
106static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
107
108
109/* from k740 */
110static C_word C_fcall stub45(C_word C_buf,C_word C_a0) C_regparm;
111C_regparm static C_word C_fcall stub45(C_word C_buf,C_word C_a0){
112C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
113unsigned int t0=(unsigned int )C_num_to_unsigned_int(C_a0);
114srand(t0);
115return C_r;}
116
117C_noret_decl(C_extras_toplevel)
118C_externexport void C_ccall C_extras_toplevel(C_word c,C_word t0,C_word t1) C_noret;
119C_noret_decl(f_591)
120static void C_ccall f_591(C_word c,C_word t0,C_word t1) C_noret;
121C_noret_decl(f_594)
122static void C_ccall f_594(C_word c,C_word t0,C_word t1) C_noret;
123C_noret_decl(f_600)
124static void C_ccall f_600(C_word c,C_word t0,C_word t1) C_noret;
125C_noret_decl(f_2998)
126static void C_ccall f_2998(C_word c,C_word t0,C_word t1) C_noret;
127C_noret_decl(f_3388)
128static void C_ccall f_3388(C_word c,C_word t0,C_word t1) C_noret;
129C_noret_decl(f_3345)
130static void C_ccall f_3345(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
131C_noret_decl(f_3345)
132static void C_ccall f_3345r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
133C_noret_decl(f_3378)
134static void C_ccall f_3378(C_word c,C_word t0,C_word t1) C_noret;
135C_noret_decl(f_3353)
136static void C_ccall f_3353(C_word c,C_word t0,C_word t1) C_noret;
137C_noret_decl(f_3339)
138static void C_ccall f_3339(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
139C_noret_decl(f_3339)
140static void C_ccall f_3339r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
141C_noret_decl(f_3333)
142static void C_ccall f_3333(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
143C_noret_decl(f_3333)
144static void C_ccall f_3333r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
145C_noret_decl(f_3327)
146static void C_ccall f_3327(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
147C_noret_decl(f_3327)
148static void C_ccall f_3327r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
149C_noret_decl(f_3029)
150static void C_ccall f_3029(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
151C_noret_decl(f_3033)
152static void C_ccall f_3033(C_word c,C_word t0,C_word t1) C_noret;
153C_noret_decl(f_3316)
154static void C_ccall f_3316(C_word c,C_word t0,C_word t1) C_noret;
155C_noret_decl(f_3036)
156static void C_ccall f_3036(C_word c,C_word t0,C_word t1) C_noret;
157C_noret_decl(f_3041)
158static void C_fcall f_3041(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
159C_noret_decl(f_3102)
160static void C_fcall f_3102(C_word t0,C_word t1) C_noret;
161C_noret_decl(f_3280)
162static C_word C_fcall f_3280(C_word t0,C_word t1);
163C_noret_decl(f_3235)
164static void C_ccall f_3235(C_word c,C_word t0,C_word t1) C_noret;
165C_noret_decl(f_3238)
166static void C_ccall f_3238(C_word c,C_word t0,C_word t1) C_noret;
167C_noret_decl(f_3217)
168static void C_ccall f_3217(C_word c,C_word t0,C_word t1) C_noret;
169C_noret_decl(f_3213)
170static void C_ccall f_3213(C_word c,C_word t0,C_word t1) C_noret;
171C_noret_decl(f_3200)
172static void C_ccall f_3200(C_word c,C_word t0,C_word t1) C_noret;
173C_noret_decl(f_3196)
174static void C_ccall f_3196(C_word c,C_word t0,C_word t1) C_noret;
175C_noret_decl(f_3183)
176static void C_ccall f_3183(C_word c,C_word t0,C_word t1) C_noret;
177C_noret_decl(f_3179)
178static void C_ccall f_3179(C_word c,C_word t0,C_word t1) C_noret;
179C_noret_decl(f_3166)
180static void C_ccall f_3166(C_word c,C_word t0,C_word t1) C_noret;
181C_noret_decl(f_3153)
182static void C_ccall f_3153(C_word c,C_word t0,C_word t1) C_noret;
183C_noret_decl(f_3140)
184static void C_ccall f_3140(C_word c,C_word t0,C_word t1) C_noret;
185C_noret_decl(f_3115)
186static void C_ccall f_3115(C_word c,C_word t0,C_word t1) C_noret;
187C_noret_decl(f_3074)
188static void C_ccall f_3074(C_word c,C_word t0,C_word t1) C_noret;
189C_noret_decl(f_3096)
190static void C_ccall f_3096(C_word c,C_word t0,C_word t1) C_noret;
191C_noret_decl(f_3057)
192static void C_fcall f_3057(C_word t0,C_word t1) C_noret;
193C_noret_decl(f_3050)
194static C_word C_fcall f_3050(C_word t0);
195C_noret_decl(f_3000)
196static void C_ccall f_3000(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
197C_noret_decl(f_3000)
198static void C_ccall f_3000r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
199C_noret_decl(f_3004)
200static void C_ccall f_3004(C_word c,C_word t0,C_word t1) C_noret;
201C_noret_decl(f_3011)
202static void C_ccall f_3011(C_word c,C_word t0,C_word t1) C_noret;
203C_noret_decl(f_3013)
204static void C_ccall f_3013(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
205C_noret_decl(f_3017)
206static void C_ccall f_3017(C_word c,C_word t0,C_word t1) C_noret;
207C_noret_decl(f_3007)
208static void C_ccall f_3007(C_word c,C_word t0,C_word t1) C_noret;
209C_noret_decl(f_2919)
210static void C_ccall f_2919(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
211C_noret_decl(f_2922)
212static void C_fcall f_2922(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
213C_noret_decl(f_2938)
214static void C_ccall f_2938(C_word c,C_word t0,C_word t1) C_noret;
215C_noret_decl(f_2947)
216static void C_fcall f_2947(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
217C_noret_decl(f_1647)
218static void C_ccall f_1647(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
219C_noret_decl(f_2910)
220static void C_ccall f_2910(C_word c,C_word t0,C_word t1) C_noret;
221C_noret_decl(f_2914)
222static void C_ccall f_2914(C_word c,C_word t0,C_word t1) C_noret;
223C_noret_decl(f_2263)
224static void C_fcall f_2263(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
225C_noret_decl(f_2818)
226static void C_fcall f_2818(C_word t0,C_word t1,C_word t2) C_noret;
227C_noret_decl(f_2828)
228static void C_fcall f_2828(C_word t0,C_word t1) C_noret;
229C_noret_decl(f_2809)
230static void C_ccall f_2809(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
231C_noret_decl(f_2803)
232static void C_ccall f_2803(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
233C_noret_decl(f_2781)
234static void C_ccall f_2781(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
235C_noret_decl(f_2788)
236static void C_fcall f_2788(C_word t0,C_word t1) C_noret;
237C_noret_decl(f_2775)
238static void C_ccall f_2775(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
239C_noret_decl(f_2769)
240static void C_ccall f_2769(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
241C_noret_decl(f_2763)
242static void C_ccall f_2763(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
243C_noret_decl(f_2757)
244static void C_ccall f_2757(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
245C_noret_decl(f_2751)
246static void C_ccall f_2751(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
247C_noret_decl(f_2745)
248static void C_ccall f_2745(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
249C_noret_decl(f_2597)
250static void C_fcall f_2597(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret;
251C_noret_decl(f_2743)
252static void C_ccall f_2743(C_word c,C_word t0,C_word t1) C_noret;
253C_noret_decl(f_2695)
254static void C_ccall f_2695(C_word c,C_word t0,C_word t1) C_noret;
255C_noret_decl(f_2725)
256static void C_ccall f_2725(C_word c,C_word t0,C_word t1) C_noret;
257C_noret_decl(f_2710)
258static void C_ccall f_2710(C_word c,C_word t0,C_word t1) C_noret;
259C_noret_decl(f_2600)
260static void C_fcall f_2600(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
261C_noret_decl(f_2627)
262static void C_ccall f_2627(C_word c,C_word t0,C_word t1) C_noret;
263C_noret_decl(f_2623)
264static void C_ccall f_2623(C_word c,C_word t0,C_word t1) C_noret;
265C_noret_decl(f_2641)
266static void C_fcall f_2641(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
267C_noret_decl(f_2668)
268static void C_ccall f_2668(C_word c,C_word t0,C_word t1) C_noret;
269C_noret_decl(f_2664)
270static void C_ccall f_2664(C_word c,C_word t0,C_word t1) C_noret;
271C_noret_decl(f_2682)
272static void C_fcall f_2682(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
273C_noret_decl(f_2520)
274static void C_fcall f_2520(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
275C_noret_decl(f_2526)
276static void C_fcall f_2526(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
277C_noret_decl(f_2595)
278static void C_ccall f_2595(C_word c,C_word t0,C_word t1) C_noret;
279C_noret_decl(f_2591)
280static void C_ccall f_2591(C_word c,C_word t0,C_word t1) C_noret;
281C_noret_decl(f_2583)
282static void C_ccall f_2583(C_word c,C_word t0,C_word t1) C_noret;
283C_noret_decl(f_2579)
284static void C_ccall f_2579(C_word c,C_word t0,C_word t1) C_noret;
285C_noret_decl(f_2557)
286static void C_ccall f_2557(C_word c,C_word t0,C_word t1) C_noret;
287C_noret_decl(f_2549)
288static void C_ccall f_2549(C_word c,C_word t0,C_word t1) C_noret;
289C_noret_decl(f_2511)
290static void C_fcall f_2511(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
291C_noret_decl(f_2515)
292static void C_ccall f_2515(C_word c,C_word t0,C_word t1) C_noret;
293C_noret_decl(f_2483)
294static void C_fcall f_2483(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
295C_noret_decl(f_2509)
296static void C_ccall f_2509(C_word c,C_word t0,C_word t1) C_noret;
297C_noret_decl(f_2487)
298static void C_ccall f_2487(C_word c,C_word t0,C_word t1) C_noret;
299C_noret_decl(f_2418)
300static void C_ccall f_2418(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
301C_noret_decl(f_2425)
302static void C_ccall f_2425(C_word c,C_word t0,C_word t1) C_noret;
303C_noret_decl(f_2452)
304static void C_ccall f_2452(C_word c,C_word t0,C_word t1) C_noret;
305C_noret_decl(f_2478)
306static void C_ccall f_2478(C_word c,C_word t0,C_word t1) C_noret;
307C_noret_decl(f_2436)
308static void C_ccall f_2436(C_word c,C_word t0,C_word t1) C_noret;
309C_noret_decl(f_2331)
310static void C_fcall f_2331(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
311C_noret_decl(f_2344)
312static void C_ccall f_2344(C_word c,C_word t0,C_word t1) C_noret;
313C_noret_decl(f_2382)
314static void C_ccall f_2382(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
315C_noret_decl(f_2347)
316static void C_ccall f_2347(C_word c,C_word t0,C_word t1) C_noret;
317C_noret_decl(f_2376)
318static void C_ccall f_2376(C_word c,C_word t0,C_word t1) C_noret;
319C_noret_decl(f_2380)
320static void C_ccall f_2380(C_word c,C_word t0,C_word t1) C_noret;
321C_noret_decl(f_2360)
322static void C_ccall f_2360(C_word c,C_word t0,C_word t1) C_noret;
323C_noret_decl(f_2299)
324static void C_fcall f_2299(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
325C_noret_decl(f_2322)
326static void C_ccall f_2322(C_word c,C_word t0,C_word t1) C_noret;
327C_noret_decl(f_2315)
328static void C_ccall f_2315(C_word c,C_word t0,C_word t1) C_noret;
329C_noret_decl(f_2266)
330static void C_fcall f_2266(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
331C_noret_decl(f_2297)
332static void C_ccall f_2297(C_word c,C_word t0,C_word t1) C_noret;
333C_noret_decl(f_2290)
334static void C_ccall f_2290(C_word c,C_word t0,C_word t1) C_noret;
335C_noret_decl(f_1760)
336static void C_fcall f_1760(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
337C_noret_decl(f_1939)
338static void C_ccall f_1939(C_word c,C_word t0,C_word t1) C_noret;
339C_noret_decl(f_2205)
340static void C_ccall f_2205(C_word c,C_word t0,C_word t1) C_noret;
341C_noret_decl(f_2244)
342static void C_ccall f_2244(C_word c,C_word t0,C_word t1) C_noret;
343C_noret_decl(f_2254)
344static void C_ccall f_2254(C_word c,C_word t0,C_word t1) C_noret;
345C_noret_decl(f_2247)
346static void C_ccall f_2247(C_word c,C_word t0,C_word t1) C_noret;
347C_noret_decl(f_2222)
348static void C_ccall f_2222(C_word c,C_word t0,C_word t1) C_noret;
349C_noret_decl(f_2232)
350static void C_ccall f_2232(C_word c,C_word t0,C_word t1) C_noret;
351C_noret_decl(f_2225)
352static void C_ccall f_2225(C_word c,C_word t0,C_word t1) C_noret;
353C_noret_decl(f_2212)
354static void C_ccall f_2212(C_word c,C_word t0,C_word t1) C_noret;
355C_noret_decl(f_2189)
356static void C_ccall f_2189(C_word c,C_word t0,C_word t1) C_noret;
357C_noret_decl(f_2192)
358static void C_ccall f_2192(C_word c,C_word t0,C_word t1) C_noret;
359C_noret_decl(f_2199)
360static void C_ccall f_2199(C_word c,C_word t0,C_word t1) C_noret;
361C_noret_decl(f_2171)
362static void C_ccall f_2171(C_word c,C_word t0,C_word t1) C_noret;
363C_noret_decl(f_2087)
364static void C_ccall f_2087(C_word c,C_word t0,C_word t1) C_noret;
365C_noret_decl(f_2090)
366static void C_ccall f_2090(C_word c,C_word t0,C_word t1) C_noret;
367C_noret_decl(f_2146)
368static void C_ccall f_2146(C_word c,C_word t0,C_word t1) C_noret;
369C_noret_decl(f_2125)
370static void C_ccall f_2125(C_word c,C_word t0,C_word t1) C_noret;
371C_noret_decl(f_2132)
372static void C_ccall f_2132(C_word c,C_word t0,C_word t1) C_noret;
373C_noret_decl(f_2109)
374static void C_ccall f_2109(C_word c,C_word t0,C_word t1) C_noret;
375C_noret_decl(f_2116)
376static void C_ccall f_2116(C_word c,C_word t0,C_word t1) C_noret;
377C_noret_decl(f_2081)
378static void C_ccall f_2081(C_word c,C_word t0,C_word t1) C_noret;
379C_noret_decl(f_1997)
380static void C_ccall f_1997(C_word c,C_word t0,C_word t1) C_noret;
381C_noret_decl(f_1999)
382static void C_fcall f_1999(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
383C_noret_decl(f_2006)
384static void C_fcall f_2006(C_word t0,C_word t1) C_noret;
385C_noret_decl(f_2058)
386static void C_ccall f_2058(C_word c,C_word t0,C_word t1) C_noret;
387C_noret_decl(f_2054)
388static void C_ccall f_2054(C_word c,C_word t0,C_word t1) C_noret;
389C_noret_decl(f_2037)
390static void C_ccall f_2037(C_word c,C_word t0,C_word t1) C_noret;
391C_noret_decl(f_2033)
392static void C_ccall f_2033(C_word c,C_word t0,C_word t1) C_noret;
393C_noret_decl(f_2029)
394static void C_ccall f_2029(C_word c,C_word t0,C_word t1) C_noret;
395C_noret_decl(f_1978)
396static void C_ccall f_1978(C_word c,C_word t0,C_word t1) C_noret;
397C_noret_decl(f_1955)
398static void C_ccall f_1955(C_word c,C_word t0,C_word t1) C_noret;
399C_noret_decl(f_1958)
400static void C_ccall f_1958(C_word c,C_word t0,C_word t1) C_noret;
401C_noret_decl(f_1965)
402static void C_ccall f_1965(C_word c,C_word t0,C_word t1) C_noret;
403C_noret_decl(f_1946)
404static void C_ccall f_1946(C_word c,C_word t0,C_word t1) C_noret;
405C_noret_decl(f_1916)
406static void C_ccall f_1916(C_word c,C_word t0,C_word t1) C_noret;
407C_noret_decl(f_1920)
408static void C_ccall f_1920(C_word c,C_word t0,C_word t1) C_noret;
409C_noret_decl(f_1763)
410static void C_fcall f_1763(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
411C_noret_decl(f_1770)
412static void C_ccall f_1770(C_word c,C_word t0,C_word t1) C_noret;
413C_noret_decl(f_1781)
414static void C_ccall f_1781(C_word c,C_word t0,C_word t1) C_noret;
415C_noret_decl(f_1790)
416static void C_fcall f_1790(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
417C_noret_decl(f_1873)
418static void C_ccall f_1873(C_word c,C_word t0,C_word t1) C_noret;
419C_noret_decl(f_1808)
420static void C_ccall f_1808(C_word c,C_word t0,C_word t1) C_noret;
421C_noret_decl(f_1810)
422static void C_fcall f_1810(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
423C_noret_decl(f_1862)
424static void C_ccall f_1862(C_word c,C_word t0,C_word t1) C_noret;
425C_noret_decl(f_1858)
426static void C_ccall f_1858(C_word c,C_word t0,C_word t1) C_noret;
427C_noret_decl(f_1842)
428static void C_ccall f_1842(C_word c,C_word t0,C_word t1) C_noret;
429C_noret_decl(f_1834)
430static void C_ccall f_1834(C_word c,C_word t0,C_word t1) C_noret;
431C_noret_decl(f_1741)
432static void C_fcall f_1741(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
433C_noret_decl(f_1751)
434static void C_ccall f_1751(C_word c,C_word t0,C_word t1) C_noret;
435C_noret_decl(f_1708)
436static C_word C_fcall f_1708(C_word t0);
437C_noret_decl(f_1702)
438static C_word C_fcall f_1702(C_word t0);
439C_noret_decl(f_1650)
440static void C_fcall f_1650(C_word t0,C_word t1) C_noret;
441C_noret_decl(f_1682)
442static void C_fcall f_1682(C_word t0,C_word t1) C_noret;
443C_noret_decl(f_1609)
444static void C_ccall f_1609(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
445C_noret_decl(f_1609)
446static void C_ccall f_1609r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
447C_noret_decl(f_1613)
448static void C_ccall f_1613(C_word c,C_word t0,C_word t1) C_noret;
449C_noret_decl(f_1619)
450static void C_ccall f_1619(C_word c,C_word t0,C_word t1) C_noret;
451C_noret_decl(f_1569)
452static void C_ccall f_1569(C_word c,C_word t0,C_word t1,...) C_noret;
453C_noret_decl(f_1569)
454static void C_ccall f_1569r(C_word t0,C_word t1,C_word t3) C_noret;
455C_noret_decl(f_1573)
456static void C_ccall f_1573(C_word c,C_word t0,C_word t1) C_noret;
457C_noret_decl(f_1576)
458static void C_ccall f_1576(C_word c,C_word t0,C_word t1) C_noret;
459C_noret_decl(f_1579)
460static void C_ccall f_1579(C_word c,C_word t0,C_word t1) C_noret;
461C_noret_decl(f_1548)
462static void C_ccall f_1548(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
463C_noret_decl(f_1548)
464static void C_ccall f_1548r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
465C_noret_decl(f_1555)
466static void C_ccall f_1555(C_word c,C_word t0,C_word t1) C_noret;
467C_noret_decl(f_1561)
468static void C_ccall f_1561(C_word c,C_word t0,C_word t1) C_noret;
469C_noret_decl(f_1459)
470static void C_ccall f_1459(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
471C_noret_decl(f_1459)
472static void C_ccall f_1459r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
473C_noret_decl(f_1500)
474static void C_fcall f_1500(C_word t0,C_word t1) C_noret;
475C_noret_decl(f_1495)
476static void C_fcall f_1495(C_word t0,C_word t1,C_word t2) C_noret;
477C_noret_decl(f_1464)
478static void C_fcall f_1464(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
479C_noret_decl(f_1468)
480static void C_ccall f_1468(C_word c,C_word t0,C_word t1) C_noret;
481C_noret_decl(f_1481)
482static void C_fcall f_1481(C_word t0,C_word t1) C_noret;
483C_noret_decl(f_1478)
484static void C_ccall f_1478(C_word c,C_word t0,C_word t1) C_noret;
485C_noret_decl(f_1390)
486static void C_ccall f_1390(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
487C_noret_decl(f_1390)
488static void C_ccall f_1390r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
489C_noret_decl(f_1394)
490static void C_ccall f_1394(C_word c,C_word t0,C_word t1) C_noret;
491C_noret_decl(f_1397)
492static void C_ccall f_1397(C_word c,C_word t0,C_word t1) C_noret;
493C_noret_decl(f_1400)
494static void C_ccall f_1400(C_word c,C_word t0,C_word t1) C_noret;
495C_noret_decl(f_1405)
496static void C_fcall f_1405(C_word t0,C_word t1) C_noret;
497C_noret_decl(f_1409)
498static void C_ccall f_1409(C_word c,C_word t0,C_word t1) C_noret;
499C_noret_decl(f_1415)
500static void C_ccall f_1415(C_word c,C_word t0,C_word t1) C_noret;
501C_noret_decl(f_1425)
502static void C_ccall f_1425(C_word c,C_word t0,C_word t1) C_noret;
503C_noret_decl(f_1418)
504static void C_ccall f_1418(C_word c,C_word t0,C_word t1) C_noret;
505C_noret_decl(f_1330)
506static void C_ccall f_1330(C_word c,C_word t0,C_word t1,...) C_noret;
507C_noret_decl(f_1330)
508static void C_ccall f_1330r(C_word t0,C_word t1,C_word t3) C_noret;
509C_noret_decl(f_1342)
510static void C_fcall f_1342(C_word t0,C_word t1) C_noret;
511C_noret_decl(f_1337)
512static void C_fcall f_1337(C_word t0,C_word t1,C_word t2) C_noret;
513C_noret_decl(f_1332)
514static void C_fcall f_1332(C_word t0,C_word t1,C_word t2) C_noret;
515C_noret_decl(f_1257)
516static void C_ccall f_1257(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
517C_noret_decl(f_1261)
518static void C_ccall f_1261(C_word c,C_word t0,C_word t1) C_noret;
519C_noret_decl(f_1285)
520static void C_ccall f_1285(C_word c,C_word t0,C_word t1) C_noret;
521C_noret_decl(f_1290)
522static void C_fcall f_1290(C_word t0,C_word t1,C_word t2) C_noret;
523C_noret_decl(f_1294)
524static void C_ccall f_1294(C_word c,C_word t0,C_word t1) C_noret;
525C_noret_decl(f_1300)
526static void C_ccall f_1300(C_word c,C_word t0,C_word t1) C_noret;
527C_noret_decl(f_1312)
528static void C_ccall f_1312(C_word c,C_word t0,C_word t1) C_noret;
529C_noret_decl(f_1270)
530static void C_ccall f_1270(C_word c,C_word t0,C_word t1) C_noret;
531C_noret_decl(f_1273)
532static void C_ccall f_1273(C_word c,C_word t0,C_word t1) C_noret;
533C_noret_decl(f_1160)
534static void C_ccall f_1160(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
535C_noret_decl(f_1160)
536static void C_ccall f_1160r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
537C_noret_decl(f_1209)
538static void C_fcall f_1209(C_word t0,C_word t1) C_noret;
539C_noret_decl(f_1204)
540static void C_fcall f_1204(C_word t0,C_word t1,C_word t2) C_noret;
541C_noret_decl(f_1162)
542static void C_fcall f_1162(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
543C_noret_decl(f_1166)
544static void C_ccall f_1166(C_word c,C_word t0,C_word t1) C_noret;
545C_noret_decl(f_1172)
546static void C_fcall f_1172(C_word t0,C_word t1) C_noret;
547C_noret_decl(f_1070)
548static void C_ccall f_1070(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
549C_noret_decl(f_1154)
550static void C_ccall f_1154(C_word c,C_word t0,C_word t1) C_noret;
551C_noret_decl(f_1080)
552static void C_fcall f_1080(C_word t0,C_word t1) C_noret;
553C_noret_decl(f_1088)
554static void C_fcall f_1088(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
555C_noret_decl(f_1137)
556static void C_ccall f_1137(C_word c,C_word t0,C_word t1) C_noret;
557C_noret_decl(f_1092)
558static void C_ccall f_1092(C_word c,C_word t0,C_word t1) C_noret;
559C_noret_decl(f_980)
560static void C_ccall f_980(C_word c,C_word t0,C_word t1,...) C_noret;
561C_noret_decl(f_980)
562static void C_ccall f_980r(C_word t0,C_word t1,C_word t3) C_noret;
563C_noret_decl(f_1047)
564static void C_ccall f_1047(C_word c,C_word t0,C_word t1) C_noret;
565C_noret_decl(f_992)
566static void C_ccall f_992(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
567C_noret_decl(f_1002)
568static void C_fcall f_1002(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
569C_noret_decl(f_1015)
570static void C_ccall f_1015(C_word c,C_word t0,C_word t1) C_noret;
571C_noret_decl(f_836)
572static void C_ccall f_836(C_word c,C_word t0,C_word t1,...) C_noret;
573C_noret_decl(f_836)
574static void C_ccall f_836r(C_word t0,C_word t1,C_word t3) C_noret;
575C_noret_decl(f_846)
576static void C_fcall f_846(C_word t0,C_word t1) C_noret;
577C_noret_decl(f_849)
578static void C_ccall f_849(C_word c,C_word t0,C_word t1) C_noret;
579C_noret_decl(f_864)
580static void C_ccall f_864(C_word c,C_word t0,C_word t1) C_noret;
581C_noret_decl(f_869)
582static void C_fcall f_869(C_word t0,C_word t1,C_word t2) C_noret;
583C_noret_decl(f_882)
584static void C_ccall f_882(C_word c,C_word t0,C_word t1) C_noret;
585C_noret_decl(f_955)
586static void C_ccall f_955(C_word c,C_word t0,C_word t1) C_noret;
587C_noret_decl(f_947)
588static void C_ccall f_947(C_word c,C_word t0,C_word t1) C_noret;
589C_noret_decl(f_933)
590static void C_fcall f_933(C_word t0,C_word t1) C_noret;
591C_noret_decl(f_915)
592static void C_ccall f_915(C_word c,C_word t0,C_word t1) C_noret;
593C_noret_decl(f_924)
594static void C_ccall f_924(C_word c,C_word t0,C_word t1) C_noret;
595C_noret_decl(f_793)
596static void C_ccall f_793(C_word c,C_word t0,C_word t1,...) C_noret;
597C_noret_decl(f_793)
598static void C_ccall f_793r(C_word t0,C_word t1,C_word t3) C_noret;
599C_noret_decl(f_798)
600static void C_fcall f_798(C_word t0,C_word t1) C_noret;
601C_noret_decl(f_781)
602static void C_ccall f_781(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
603C_noret_decl(f_743)
604static void C_ccall f_743(C_word c,C_word t0,C_word t1,...) C_noret;
605C_noret_decl(f_743)
606static void C_ccall f_743r(C_word t0,C_word t1,C_word t3) C_noret;
607C_noret_decl(f_747)
608static void C_ccall f_747(C_word c,C_word t0,C_word t1) C_noret;
609C_noret_decl(f_750)
610static void C_ccall f_750(C_word c,C_word t0,C_word t1) C_noret;
611C_noret_decl(f_753)
612static void C_ccall f_753(C_word c,C_word t0,C_word t1) C_noret;
613C_noret_decl(f_602)
614static void C_ccall f_602(C_word c,C_word t0,C_word t1,...) C_noret;
615C_noret_decl(f_602)
616static void C_ccall f_602r(C_word t0,C_word t1,C_word t3) C_noret;
617C_noret_decl(f_674)
618static void C_fcall f_674(C_word t0,C_word t1) C_noret;
619C_noret_decl(f_669)
620static void C_fcall f_669(C_word t0,C_word t1,C_word t2) C_noret;
621C_noret_decl(f_664)
622static void C_fcall f_664(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
623C_noret_decl(f_604)
624static void C_fcall f_604(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
625C_noret_decl(f_657)
626static void C_ccall f_657(C_word c,C_word t0,C_word t1) C_noret;
627C_noret_decl(f_607)
628static void C_ccall f_607(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
629C_noret_decl(f_615)
630static void C_ccall f_615(C_word c,C_word t0,C_word t1) C_noret;
631C_noret_decl(f_617)
632static void C_fcall f_617(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
633C_noret_decl(f_637)
634static void C_ccall f_637(C_word c,C_word t0,C_word t1) C_noret;
635
636C_noret_decl(trf_3041)
637static void C_fcall trf_3041(void *dummy) C_regparm C_noret;
638C_regparm static void C_fcall trf_3041(void *dummy){
639C_word t3=C_pick(0);
640C_word t2=C_pick(1);
641C_word t1=C_pick(2);
642C_word t0=C_pick(3);
643C_adjust_stack(-4);
644f_3041(t0,t1,t2,t3);}
645
646C_noret_decl(trf_3102)
647static void C_fcall trf_3102(void *dummy) C_regparm C_noret;
648C_regparm static void C_fcall trf_3102(void *dummy){
649C_word t1=C_pick(0);
650C_word t0=C_pick(1);
651C_adjust_stack(-2);
652f_3102(t0,t1);}
653
654C_noret_decl(trf_3057)
655static void C_fcall trf_3057(void *dummy) C_regparm C_noret;
656C_regparm static void C_fcall trf_3057(void *dummy){
657C_word t1=C_pick(0);
658C_word t0=C_pick(1);
659C_adjust_stack(-2);
660f_3057(t0,t1);}
661
662C_noret_decl(trf_2922)
663static void C_fcall trf_2922(void *dummy) C_regparm C_noret;
664C_regparm static void C_fcall trf_2922(void *dummy){
665C_word t3=C_pick(0);
666C_word t2=C_pick(1);
667C_word t1=C_pick(2);
668C_word t0=C_pick(3);
669C_adjust_stack(-4);
670f_2922(t0,t1,t2,t3);}
671
672C_noret_decl(trf_2947)
673static void C_fcall trf_2947(void *dummy) C_regparm C_noret;
674C_regparm static void C_fcall trf_2947(void *dummy){
675C_word t3=C_pick(0);
676C_word t2=C_pick(1);
677C_word t1=C_pick(2);
678C_word t0=C_pick(3);
679C_adjust_stack(-4);
680f_2947(t0,t1,t2,t3);}
681
682C_noret_decl(trf_2263)
683static void C_fcall trf_2263(void *dummy) C_regparm C_noret;
684C_regparm static void C_fcall trf_2263(void *dummy){
685C_word t3=C_pick(0);
686C_word t2=C_pick(1);
687C_word t1=C_pick(2);
688C_word t0=C_pick(3);
689C_adjust_stack(-4);
690f_2263(t0,t1,t2,t3);}
691
692C_noret_decl(trf_2818)
693static void C_fcall trf_2818(void *dummy) C_regparm C_noret;
694C_regparm static void C_fcall trf_2818(void *dummy){
695C_word t2=C_pick(0);
696C_word t1=C_pick(1);
697C_word t0=C_pick(2);
698C_adjust_stack(-3);
699f_2818(t0,t1,t2);}
700
701C_noret_decl(trf_2828)
702static void C_fcall trf_2828(void *dummy) C_regparm C_noret;
703C_regparm static void C_fcall trf_2828(void *dummy){
704C_word t1=C_pick(0);
705C_word t0=C_pick(1);
706C_adjust_stack(-2);
707f_2828(t0,t1);}
708
709C_noret_decl(trf_2788)
710static void C_fcall trf_2788(void *dummy) C_regparm C_noret;
711C_regparm static void C_fcall trf_2788(void *dummy){
712C_word t1=C_pick(0);
713C_word t0=C_pick(1);
714C_adjust_stack(-2);
715f_2788(t0,t1);}
716
717C_noret_decl(trf_2597)
718static void C_fcall trf_2597(void *dummy) C_regparm C_noret;
719C_regparm static void C_fcall trf_2597(void *dummy){
720C_word t8=C_pick(0);
721C_word t7=C_pick(1);
722C_word t6=C_pick(2);
723C_word t5=C_pick(3);
724C_word t4=C_pick(4);
725C_word t3=C_pick(5);
726C_word t2=C_pick(6);
727C_word t1=C_pick(7);
728C_word t0=C_pick(8);
729C_adjust_stack(-9);
730f_2597(t0,t1,t2,t3,t4,t5,t6,t7,t8);}
731
732C_noret_decl(trf_2600)
733static void C_fcall trf_2600(void *dummy) C_regparm C_noret;
734C_regparm static void C_fcall trf_2600(void *dummy){
735C_word t5=C_pick(0);
736C_word t4=C_pick(1);
737C_word t3=C_pick(2);
738C_word t2=C_pick(3);
739C_word t1=C_pick(4);
740C_word t0=C_pick(5);
741C_adjust_stack(-6);
742f_2600(t0,t1,t2,t3,t4,t5);}
743
744C_noret_decl(trf_2641)
745static void C_fcall trf_2641(void *dummy) C_regparm C_noret;
746C_regparm static void C_fcall trf_2641(void *dummy){
747C_word t5=C_pick(0);
748C_word t4=C_pick(1);
749C_word t3=C_pick(2);
750C_word t2=C_pick(3);
751C_word t1=C_pick(4);
752C_word t0=C_pick(5);
753C_adjust_stack(-6);
754f_2641(t0,t1,t2,t3,t4,t5);}
755
756C_noret_decl(trf_2682)
757static void C_fcall trf_2682(void *dummy) C_regparm C_noret;
758C_regparm static void C_fcall trf_2682(void *dummy){
759C_word t4=C_pick(0);
760C_word t3=C_pick(1);
761C_word t2=C_pick(2);
762C_word t1=C_pick(3);
763C_word t0=C_pick(4);
764C_adjust_stack(-5);
765f_2682(t0,t1,t2,t3,t4);}
766
767C_noret_decl(trf_2520)
768static void C_fcall trf_2520(void *dummy) C_regparm C_noret;
769C_regparm static void C_fcall trf_2520(void *dummy){
770C_word t6=C_pick(0);
771C_word t5=C_pick(1);
772C_word t4=C_pick(2);
773C_word t3=C_pick(3);
774C_word t2=C_pick(4);
775C_word t1=C_pick(5);
776C_word t0=C_pick(6);
777C_adjust_stack(-7);
778f_2520(t0,t1,t2,t3,t4,t5,t6);}
779
780C_noret_decl(trf_2526)
781static void C_fcall trf_2526(void *dummy) C_regparm C_noret;
782C_regparm static void C_fcall trf_2526(void *dummy){
783C_word t3=C_pick(0);
784C_word t2=C_pick(1);
785C_word t1=C_pick(2);
786C_word t0=C_pick(3);
787C_adjust_stack(-4);
788f_2526(t0,t1,t2,t3);}
789
790C_noret_decl(trf_2511)
791static void C_fcall trf_2511(void *dummy) C_regparm C_noret;
792C_regparm static void C_fcall trf_2511(void *dummy){
793C_word t5=C_pick(0);
794C_word t4=C_pick(1);
795C_word t3=C_pick(2);
796C_word t2=C_pick(3);
797C_word t1=C_pick(4);
798C_word t0=C_pick(5);
799C_adjust_stack(-6);
800f_2511(t0,t1,t2,t3,t4,t5);}
801
802C_noret_decl(trf_2483)
803static void C_fcall trf_2483(void *dummy) C_regparm C_noret;
804C_regparm static void C_fcall trf_2483(void *dummy){
805C_word t5=C_pick(0);
806C_word t4=C_pick(1);
807C_word t3=C_pick(2);
808C_word t2=C_pick(3);
809C_word t1=C_pick(4);
810C_word t0=C_pick(5);
811C_adjust_stack(-6);
812f_2483(t0,t1,t2,t3,t4,t5);}
813
814C_noret_decl(trf_2331)
815static void C_fcall trf_2331(void *dummy) C_regparm C_noret;
816C_regparm static void C_fcall trf_2331(void *dummy){
817C_word t5=C_pick(0);
818C_word t4=C_pick(1);
819C_word t3=C_pick(2);
820C_word t2=C_pick(3);
821C_word t1=C_pick(4);
822C_word t0=C_pick(5);
823C_adjust_stack(-6);
824f_2331(t0,t1,t2,t3,t4,t5);}
825
826C_noret_decl(trf_2299)
827static void C_fcall trf_2299(void *dummy) C_regparm C_noret;
828C_regparm static void C_fcall trf_2299(void *dummy){
829C_word t3=C_pick(0);
830C_word t2=C_pick(1);
831C_word t1=C_pick(2);
832C_word t0=C_pick(3);
833C_adjust_stack(-4);
834f_2299(t0,t1,t2,t3);}
835
836C_noret_decl(trf_2266)
837static void C_fcall trf_2266(void *dummy) C_regparm C_noret;
838C_regparm static void C_fcall trf_2266(void *dummy){
839C_word t3=C_pick(0);
840C_word t2=C_pick(1);
841C_word t1=C_pick(2);
842C_word t0=C_pick(3);
843C_adjust_stack(-4);
844f_2266(t0,t1,t2,t3);}
845
846C_noret_decl(trf_1760)
847static void C_fcall trf_1760(void *dummy) C_regparm C_noret;
848C_regparm static void C_fcall trf_1760(void *dummy){
849C_word t3=C_pick(0);
850C_word t2=C_pick(1);
851C_word t1=C_pick(2);
852C_word t0=C_pick(3);
853C_adjust_stack(-4);
854f_1760(t0,t1,t2,t3);}
855
856C_noret_decl(trf_1999)
857static void C_fcall trf_1999(void *dummy) C_regparm C_noret;
858C_regparm static void C_fcall trf_1999(void *dummy){
859C_word t4=C_pick(0);
860C_word t3=C_pick(1);
861C_word t2=C_pick(2);
862C_word t1=C_pick(3);
863C_word t0=C_pick(4);
864C_adjust_stack(-5);
865f_1999(t0,t1,t2,t3,t4);}
866
867C_noret_decl(trf_2006)
868static void C_fcall trf_2006(void *dummy) C_regparm C_noret;
869C_regparm static void C_fcall trf_2006(void *dummy){
870C_word t1=C_pick(0);
871C_word t0=C_pick(1);
872C_adjust_stack(-2);
873f_2006(t0,t1);}
874
875C_noret_decl(trf_1763)
876static void C_fcall trf_1763(void *dummy) C_regparm C_noret;
877C_regparm static void C_fcall trf_1763(void *dummy){
878C_word t3=C_pick(0);
879C_word t2=C_pick(1);
880C_word t1=C_pick(2);
881C_word t0=C_pick(3);
882C_adjust_stack(-4);
883f_1763(t0,t1,t2,t3);}
884
885C_noret_decl(trf_1790)
886static void C_fcall trf_1790(void *dummy) C_regparm C_noret;
887C_regparm static void C_fcall trf_1790(void *dummy){
888C_word t3=C_pick(0);
889C_word t2=C_pick(1);
890C_word t1=C_pick(2);
891C_word t0=C_pick(3);
892C_adjust_stack(-4);
893f_1790(t0,t1,t2,t3);}
894
895C_noret_decl(trf_1810)
896static void C_fcall trf_1810(void *dummy) C_regparm C_noret;
897C_regparm static void C_fcall trf_1810(void *dummy){
898C_word t3=C_pick(0);
899C_word t2=C_pick(1);
900C_word t1=C_pick(2);
901C_word t0=C_pick(3);
902C_adjust_stack(-4);
903f_1810(t0,t1,t2,t3);}
904
905C_noret_decl(trf_1741)
906static void C_fcall trf_1741(void *dummy) C_regparm C_noret;
907C_regparm static void C_fcall trf_1741(void *dummy){
908C_word t3=C_pick(0);
909C_word t2=C_pick(1);
910C_word t1=C_pick(2);
911C_word t0=C_pick(3);
912C_adjust_stack(-4);
913f_1741(t0,t1,t2,t3);}
914
915C_noret_decl(trf_1650)
916static void C_fcall trf_1650(void *dummy) C_regparm C_noret;
917C_regparm static void C_fcall trf_1650(void *dummy){
918C_word t1=C_pick(0);
919C_word t0=C_pick(1);
920C_adjust_stack(-2);
921f_1650(t0,t1);}
922
923C_noret_decl(trf_1682)
924static void C_fcall trf_1682(void *dummy) C_regparm C_noret;
925C_regparm static void C_fcall trf_1682(void *dummy){
926C_word t1=C_pick(0);
927C_word t0=C_pick(1);
928C_adjust_stack(-2);
929f_1682(t0,t1);}
930
931C_noret_decl(trf_1500)
932static void C_fcall trf_1500(void *dummy) C_regparm C_noret;
933C_regparm static void C_fcall trf_1500(void *dummy){
934C_word t1=C_pick(0);
935C_word t0=C_pick(1);
936C_adjust_stack(-2);
937f_1500(t0,t1);}
938
939C_noret_decl(trf_1495)
940static void C_fcall trf_1495(void *dummy) C_regparm C_noret;
941C_regparm static void C_fcall trf_1495(void *dummy){
942C_word t2=C_pick(0);
943C_word t1=C_pick(1);
944C_word t0=C_pick(2);
945C_adjust_stack(-3);
946f_1495(t0,t1,t2);}
947
948C_noret_decl(trf_1464)
949static void C_fcall trf_1464(void *dummy) C_regparm C_noret;
950C_regparm static void C_fcall trf_1464(void *dummy){
951C_word t3=C_pick(0);
952C_word t2=C_pick(1);
953C_word t1=C_pick(2);
954C_word t0=C_pick(3);
955C_adjust_stack(-4);
956f_1464(t0,t1,t2,t3);}
957
958C_noret_decl(trf_1481)
959static void C_fcall trf_1481(void *dummy) C_regparm C_noret;
960C_regparm static void C_fcall trf_1481(void *dummy){
961C_word t1=C_pick(0);
962C_word t0=C_pick(1);
963C_adjust_stack(-2);
964f_1481(t0,t1);}
965
966C_noret_decl(trf_1405)
967static void C_fcall trf_1405(void *dummy) C_regparm C_noret;
968C_regparm static void C_fcall trf_1405(void *dummy){
969C_word t1=C_pick(0);
970C_word t0=C_pick(1);
971C_adjust_stack(-2);
972f_1405(t0,t1);}
973
974C_noret_decl(trf_1342)
975static void C_fcall trf_1342(void *dummy) C_regparm C_noret;
976C_regparm static void C_fcall trf_1342(void *dummy){
977C_word t1=C_pick(0);
978C_word t0=C_pick(1);
979C_adjust_stack(-2);
980f_1342(t0,t1);}
981
982C_noret_decl(trf_1337)
983static void C_fcall trf_1337(void *dummy) C_regparm C_noret;
984C_regparm static void C_fcall trf_1337(void *dummy){
985C_word t2=C_pick(0);
986C_word t1=C_pick(1);
987C_word t0=C_pick(2);
988C_adjust_stack(-3);
989f_1337(t0,t1,t2);}
990
991C_noret_decl(trf_1332)
992static void C_fcall trf_1332(void *dummy) C_regparm C_noret;
993C_regparm static void C_fcall trf_1332(void *dummy){
994C_word t2=C_pick(0);
995C_word t1=C_pick(1);
996C_word t0=C_pick(2);
997C_adjust_stack(-3);
998f_1332(t0,t1,t2);}
999
1000C_noret_decl(trf_1290)
1001static void C_fcall trf_1290(void *dummy) C_regparm C_noret;
1002C_regparm static void C_fcall trf_1290(void *dummy){
1003C_word t2=C_pick(0);
1004C_word t1=C_pick(1);
1005C_word t0=C_pick(2);
1006C_adjust_stack(-3);
1007f_1290(t0,t1,t2);}
1008
1009C_noret_decl(trf_1209)
1010static void C_fcall trf_1209(void *dummy) C_regparm C_noret;
1011C_regparm static void C_fcall trf_1209(void *dummy){
1012C_word t1=C_pick(0);
1013C_word t0=C_pick(1);
1014C_adjust_stack(-2);
1015f_1209(t0,t1);}
1016
1017C_noret_decl(trf_1204)
1018static void C_fcall trf_1204(void *dummy) C_regparm C_noret;
1019C_regparm static void C_fcall trf_1204(void *dummy){
1020C_word t2=C_pick(0);
1021C_word t1=C_pick(1);
1022C_word t0=C_pick(2);
1023C_adjust_stack(-3);
1024f_1204(t0,t1,t2);}
1025
1026C_noret_decl(trf_1162)
1027static void C_fcall trf_1162(void *dummy) C_regparm C_noret;
1028C_regparm static void C_fcall trf_1162(void *dummy){
1029C_word t3=C_pick(0);
1030C_word t2=C_pick(1);
1031C_word t1=C_pick(2);
1032C_word t0=C_pick(3);
1033C_adjust_stack(-4);
1034f_1162(t0,t1,t2,t3);}
1035
1036C_noret_decl(trf_1172)
1037static void C_fcall trf_1172(void *dummy) C_regparm C_noret;
1038C_regparm static void C_fcall trf_1172(void *dummy){
1039C_word t1=C_pick(0);
1040C_word t0=C_pick(1);
1041C_adjust_stack(-2);
1042f_1172(t0,t1);}
1043
1044C_noret_decl(trf_1080)
1045static void C_fcall trf_1080(void *dummy) C_regparm C_noret;
1046C_regparm static void C_fcall trf_1080(void *dummy){
1047C_word t1=C_pick(0);
1048C_word t0=C_pick(1);
1049C_adjust_stack(-2);
1050f_1080(t0,t1);}
1051
1052C_noret_decl(trf_1088)
1053static void C_fcall trf_1088(void *dummy) C_regparm C_noret;
1054C_regparm static void C_fcall trf_1088(void *dummy){
1055C_word t4=C_pick(0);
1056C_word t3=C_pick(1);
1057C_word t2=C_pick(2);
1058C_word t1=C_pick(3);
1059C_word t0=C_pick(4);
1060C_adjust_stack(-5);
1061f_1088(t0,t1,t2,t3,t4);}
1062
1063C_noret_decl(trf_1002)
1064static void C_fcall trf_1002(void *dummy) C_regparm C_noret;
1065C_regparm static void C_fcall trf_1002(void *dummy){
1066C_word t3=C_pick(0);
1067C_word t2=C_pick(1);
1068C_word t1=C_pick(2);
1069C_word t0=C_pick(3);
1070C_adjust_stack(-4);
1071f_1002(t0,t1,t2,t3);}
1072
1073C_noret_decl(trf_846)
1074static void C_fcall trf_846(void *dummy) C_regparm C_noret;
1075C_regparm static void C_fcall trf_846(void *dummy){
1076C_word t1=C_pick(0);
1077C_word t0=C_pick(1);
1078C_adjust_stack(-2);
1079f_846(t0,t1);}
1080
1081C_noret_decl(trf_869)
1082static void C_fcall trf_869(void *dummy) C_regparm C_noret;
1083C_regparm static void C_fcall trf_869(void *dummy){
1084C_word t2=C_pick(0);
1085C_word t1=C_pick(1);
1086C_word t0=C_pick(2);
1087C_adjust_stack(-3);
1088f_869(t0,t1,t2);}
1089
1090C_noret_decl(trf_933)
1091static void C_fcall trf_933(void *dummy) C_regparm C_noret;
1092C_regparm static void C_fcall trf_933(void *dummy){
1093C_word t1=C_pick(0);
1094C_word t0=C_pick(1);
1095C_adjust_stack(-2);
1096f_933(t0,t1);}
1097
1098C_noret_decl(trf_798)
1099static void C_fcall trf_798(void *dummy) C_regparm C_noret;
1100C_regparm static void C_fcall trf_798(void *dummy){
1101C_word t1=C_pick(0);
1102C_word t0=C_pick(1);
1103C_adjust_stack(-2);
1104f_798(t0,t1);}
1105
1106C_noret_decl(trf_674)
1107static void C_fcall trf_674(void *dummy) C_regparm C_noret;
1108C_regparm static void C_fcall trf_674(void *dummy){
1109C_word t1=C_pick(0);
1110C_word t0=C_pick(1);
1111C_adjust_stack(-2);
1112f_674(t0,t1);}
1113
1114C_noret_decl(trf_669)
1115static void C_fcall trf_669(void *dummy) C_regparm C_noret;
1116C_regparm static void C_fcall trf_669(void *dummy){
1117C_word t2=C_pick(0);
1118C_word t1=C_pick(1);
1119C_word t0=C_pick(2);
1120C_adjust_stack(-3);
1121f_669(t0,t1,t2);}
1122
1123C_noret_decl(trf_664)
1124static void C_fcall trf_664(void *dummy) C_regparm C_noret;
1125C_regparm static void C_fcall trf_664(void *dummy){
1126C_word t3=C_pick(0);
1127C_word t2=C_pick(1);
1128C_word t1=C_pick(2);
1129C_word t0=C_pick(3);
1130C_adjust_stack(-4);
1131f_664(t0,t1,t2,t3);}
1132
1133C_noret_decl(trf_604)
1134static void C_fcall trf_604(void *dummy) C_regparm C_noret;
1135C_regparm static void C_fcall trf_604(void *dummy){
1136C_word t4=C_pick(0);
1137C_word t3=C_pick(1);
1138C_word t2=C_pick(2);
1139C_word t1=C_pick(3);
1140C_word t0=C_pick(4);
1141C_adjust_stack(-5);
1142f_604(t0,t1,t2,t3,t4);}
1143
1144C_noret_decl(trf_617)
1145static void C_fcall trf_617(void *dummy) C_regparm C_noret;
1146C_regparm static void C_fcall trf_617(void *dummy){
1147C_word t4=C_pick(0);
1148C_word t3=C_pick(1);
1149C_word t2=C_pick(2);
1150C_word t1=C_pick(3);
1151C_word t0=C_pick(4);
1152C_adjust_stack(-5);
1153f_617(t0,t1,t2,t3,t4);}
1154
1155C_noret_decl(tr4)
1156static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
1157C_regparm static void C_fcall tr4(C_proc4 k){
1158C_word t3=C_pick(0);
1159C_word t2=C_pick(1);
1160C_word t1=C_pick(2);
1161C_word t0=C_pick(3);
1162C_adjust_stack(-4);
1163(k)(4,t0,t1,t2,t3);}
1164
1165C_noret_decl(tr5)
1166static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
1167C_regparm static void C_fcall tr5(C_proc5 k){
1168C_word t4=C_pick(0);
1169C_word t3=C_pick(1);
1170C_word t2=C_pick(2);
1171C_word t1=C_pick(3);
1172C_word t0=C_pick(4);
1173C_adjust_stack(-5);
1174(k)(5,t0,t1,t2,t3,t4);}
1175
1176C_noret_decl(tr3)
1177static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
1178C_regparm static void C_fcall tr3(C_proc3 k){
1179C_word t2=C_pick(0);
1180C_word t1=C_pick(1);
1181C_word t0=C_pick(2);
1182C_adjust_stack(-3);
1183(k)(3,t0,t1,t2);}
1184
1185C_noret_decl(tr6)
1186static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
1187C_regparm static void C_fcall tr6(C_proc6 k){
1188C_word t5=C_pick(0);
1189C_word t4=C_pick(1);
1190C_word t3=C_pick(2);
1191C_word t2=C_pick(3);
1192C_word t1=C_pick(4);
1193C_word t0=C_pick(5);
1194C_adjust_stack(-6);
1195(k)(6,t0,t1,t2,t3,t4,t5);}
1196
1197C_noret_decl(tr2)
1198static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
1199C_regparm static void C_fcall tr2(C_proc2 k){
1200C_word t1=C_pick(0);
1201C_word t0=C_pick(1);
1202C_adjust_stack(-2);
1203(k)(2,t0,t1);}
1204
1205C_noret_decl(tr2r)
1206static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
1207C_regparm static void C_fcall tr2r(C_proc2 k){
1208int n;
1209C_word *a,t2;
1210C_word t1=C_pick(0);
1211C_word t0=C_pick(1);
1212C_adjust_stack(-2);
1213n=C_rest_count(0);
1214a=C_alloc(n*3);
1215t2=C_restore_rest(a,n);
1216(k)(t0,t1,t2);}
1217
1218C_noret_decl(tr4r)
1219static void C_fcall tr4r(C_proc4 k) C_regparm C_noret;
1220C_regparm static void C_fcall tr4r(C_proc4 k){
1221int n;
1222C_word *a,t4;
1223C_word t3=C_pick(0);
1224C_word t2=C_pick(1);
1225C_word t1=C_pick(2);
1226C_word t0=C_pick(3);
1227C_adjust_stack(-4);
1228n=C_rest_count(0);
1229a=C_alloc(n*3);
1230t4=C_restore_rest(a,n);
1231(k)(t0,t1,t2,t3,t4);}
1232
1233C_noret_decl(tr3r)
1234static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
1235C_regparm static void C_fcall tr3r(C_proc3 k){
1236int n;
1237C_word *a,t3;
1238C_word t2=C_pick(0);
1239C_word t1=C_pick(1);
1240C_word t0=C_pick(2);
1241C_adjust_stack(-3);
1242n=C_rest_count(0);
1243a=C_alloc(n*3);
1244t3=C_restore_rest(a,n);
1245(k)(t0,t1,t2,t3);}
1246
1247C_noret_decl(tr2rv)
1248static void C_fcall tr2rv(C_proc2 k) C_regparm C_noret;
1249C_regparm static void C_fcall tr2rv(C_proc2 k){
1250int n;
1251C_word *a,t2;
1252C_word t1=C_pick(0);
1253C_word t0=C_pick(1);
1254C_adjust_stack(-2);
1255n=C_rest_count(0);
1256a=C_alloc(n+1);
1257t2=C_restore_rest_vector(a,n);
1258(k)(t0,t1,t2);}
1259
1260C_noret_decl(tr3rv)
1261static void C_fcall tr3rv(C_proc3 k) C_regparm C_noret;
1262C_regparm static void C_fcall tr3rv(C_proc3 k){
1263int n;
1264C_word *a,t3;
1265C_word t2=C_pick(0);
1266C_word t1=C_pick(1);
1267C_word t0=C_pick(2);
1268C_adjust_stack(-3);
1269n=C_rest_count(0);
1270a=C_alloc(n+1);
1271t3=C_restore_rest_vector(a,n);
1272(k)(t0,t1,t2,t3);}
1273
1274/* toplevel */
1275static C_TLS int toplevel_initialized=0;
1276C_noret_decl(toplevel_trampoline)
1277static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
1278C_regparm static void C_fcall toplevel_trampoline(void *dummy){
1279C_extras_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}
1280
1281void C_ccall C_extras_toplevel(C_word c,C_word t0,C_word t1){
1282C_word tmp;
1283C_word t2;
1284C_word t3;
1285C_word t4;
1286C_word *a;
1287if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
1288else C_toplevel_entry(C_text("extras_toplevel"));
1289C_check_nursery_minimum(3);
1290if(!C_demand(3)){
1291C_save(t1);
1292C_reclaim((void*)toplevel_trampoline,NULL);}
1293toplevel_initialized=1;
1294if(!C_demand_2(880)){
1295C_save(t1);
1296C_rereclaim2(880*sizeof(C_word), 1);
1297t1=C_restore;}
1298a=C_alloc(3);
1299C_initialize_lf(lf,136);
1300lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
1301lf[2]=C_h_intern(&lf[2],19,"\003sysundefined-value");
1302lf[3]=C_h_intern(&lf[3],4,"read");
1303lf[4]=C_h_intern(&lf[4],7,"reverse");
1304lf[5]=C_h_intern(&lf[5],20,"call-with-input-file");
1305lf[6]=C_h_intern(&lf[6],9,"read-file");
1306lf[7]=C_h_intern(&lf[7],5,"port\077");
1307lf[8]=C_h_intern(&lf[8],18,"\003sysstandard-input");
1308lf[9]=C_h_intern(&lf[9],9,"\003syserror");
1309lf[10]=C_h_intern(&lf[10],11,"random-seed");
1310lf[11]=C_h_intern(&lf[11],17,"\003syscheck-integer");
1311lf[12]=C_h_intern(&lf[12],15,"current-seconds");
1312lf[13]=C_decode_literal(C_heaptop,"\376B\000\000\022too many arguments");
1313lf[14]=C_h_intern(&lf[14],6,"random");
1314lf[15]=C_h_intern(&lf[15],9,"randomize");
1315lf[16]=C_h_intern(&lf[16],11,"make-string");
1316lf[17]=C_h_intern(&lf[17],9,"read-line");
1317lf[18]=C_h_intern(&lf[18],13,"\003syssubstring");
1318lf[19]=C_h_intern(&lf[19],15,"\003sysread-char-0");
1319lf[20]=C_h_intern(&lf[20],9,"peek-char");
1320lf[21]=C_h_intern(&lf[21],17,"\003sysstring-append");
1321lf[22]=C_h_intern(&lf[22],15,"\003sysmake-string");
1322lf[23]=C_h_intern(&lf[23],14,"\003syscheck-port");
1323lf[24]=C_h_intern(&lf[24],10,"read-lines");
1324lf[25]=C_h_intern(&lf[25],16,"\003sysread-string!");
1325lf[26]=C_h_intern(&lf[26],12,"read-string!");
1326lf[27]=C_h_intern(&lf[27],18,"open-output-string");
1327lf[28]=C_h_intern(&lf[28],17,"get-output-string");
1328lf[29]=C_h_intern(&lf[29],20,"\003sysread-string/port");
1329lf[30]=C_h_intern(&lf[30],11,"read-string");
1330lf[31]=C_h_intern(&lf[31],19,"\003syswrite-char/port");
1331lf[32]=C_h_intern(&lf[32],10,"read-token");
1332lf[33]=C_h_intern(&lf[33],16,"\003syswrite-char-0");
1333lf[34]=C_h_intern(&lf[34],15,"\003syspeek-char-0");
1334lf[35]=C_h_intern(&lf[35],7,"display");
1335lf[36]=C_h_intern(&lf[36],12,"write-string");
1336lf[37]=C_h_intern(&lf[37],19,"\003sysstandard-output");
1337lf[38]=C_h_intern(&lf[38],7,"newline");
1338lf[39]=C_h_intern(&lf[39],10,"write-line");
1339lf[40]=C_h_intern(&lf[40],9,"read-byte");
1340lf[41]=C_h_intern(&lf[41],10,"write-byte");
1341lf[42]=C_h_intern(&lf[42],20,"\006extrasgeneric-write");
1342lf[43]=C_h_intern(&lf[43],5,"quote");
1343lf[44]=C_h_intern(&lf[44],10,"quasiquote");
1344lf[45]=C_h_intern(&lf[45],7,"unquote");
1345lf[46]=C_h_intern(&lf[46],16,"unquote-splicing");
1346lf[47]=C_decode_literal(C_heaptop,"\376B\000\000\001\047");
1347lf[48]=C_decode_literal(C_heaptop,"\376B\000\000\001`");
1348lf[49]=C_decode_literal(C_heaptop,"\376B\000\000\001,");
1349lf[50]=C_decode_literal(C_heaptop,"\376B\000\000\002,@");
1350lf[51]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
1351lf[52]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
1352lf[53]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
1353lf[54]=C_decode_literal(C_heaptop,"\376B\000\000\003 . ");
1354lf[55]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
1355lf[56]=C_decode_literal(C_heaptop,"\376B\000\000\002()");
1356lf[57]=C_decode_literal(C_heaptop,"\376B\000\000\006#<eof>");
1357lf[58]=C_decode_literal(C_heaptop,"\376B\000\000\001#");
1358lf[59]=C_h_intern(&lf[59],12,"vector->list");
1359lf[60]=C_decode_literal(C_heaptop,"\376B\000\000\002#t");
1360lf[61]=C_decode_literal(C_heaptop,"\376B\000\000\002#f");
1361lf[62]=C_h_intern(&lf[62],18,"\003sysnumber->string");
1362lf[63]=C_h_intern(&lf[63],9,"\003sysprint");
1363lf[64]=C_h_intern(&lf[64],21,"\003sysprocedure->string");
1364lf[65]=C_decode_literal(C_heaptop,"\376B\000\000\001\134");
1365lf[66]=C_decode_literal(C_heaptop,"\376B\000\000\001\042");
1366lf[67]=C_decode_literal(C_heaptop,"\376B\000\000\001\042");
1367lf[68]=C_decode_literal(C_heaptop,"\376B\000\000\001x");
1368lf[69]=C_decode_literal(C_heaptop,"\376B\000\000\001U");
1369lf[70]=C_decode_literal(C_heaptop,"\376B\000\000\001u");
1370lf[71]=C_h_intern(&lf[71],9,"char-name");
1371lf[72]=C_decode_literal(C_heaptop,"\376B\000\000\002#\134");
1372lf[73]=C_decode_literal(C_heaptop,"\376B\000\000\006#<eof>");
1373lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\016#<unspecified>");
1374lf[75]=C_h_intern(&lf[75],19,"\003syspointer->string");
1375lf[76]=C_h_intern(&lf[76],28,"\003sysarbitrary-unbound-symbol");
1376lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\020#<unbound value>");
1377lf[78]=C_h_intern(&lf[78],19,"\003sysuser-print-hook");
1378lf[79]=C_h_intern(&lf[79],13,"string-append");
1379lf[80]=C_decode_literal(C_heaptop,"\376B\000\000\007#<port ");
1380lf[81]=C_decode_literal(C_heaptop,"\376B\000\000\001>");
1381lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\001>");
1382lf[83]=C_decode_literal(C_heaptop,"\376B\000\000\025#<static blob of size");
1383lf[84]=C_decode_literal(C_heaptop,"\376B\000\000\017#<blob of size ");
1384lf[85]=C_decode_literal(C_heaptop,"\376B\000\000\002#>");
1385lf[86]=C_h_intern(&lf[86],23,"\003syslambda-info->string");
1386lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\016#<lambda info ");
1387lf[88]=C_decode_literal(C_heaptop,"\376B\000\000\025#<unprintable object>");
1388lf[89]=C_h_intern(&lf[89],11,"\003sysnumber\077");
1389lf[90]=C_decode_literal(C_heaptop,"\376B\000\000\010        ");
1390lf[91]=C_decode_literal(C_heaptop,"\376B\000\000\010        ");
1391lf[92]=C_h_intern(&lf[92],28,"\006extrasreverse-string-append");
1392lf[93]=C_decode_literal(C_heaptop,"\376B\000\000\001#");
1393lf[94]=C_h_intern(&lf[94],3,"max");
1394lf[95]=C_h_intern(&lf[95],28,"\003syssymbol->qualified-string");
1395lf[96]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
1396lf[97]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
1397lf[98]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
1398lf[99]=C_decode_literal(C_heaptop,"\376B\000\000\001)");
1399lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\001.");
1400lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
1401lf[102]=C_decode_literal(C_heaptop,"\376B\000\000\001(");
1402lf[103]=C_h_intern(&lf[103],6,"lambda");
1403lf[104]=C_h_intern(&lf[104],2,"if");
1404lf[105]=C_h_intern(&lf[105],4,"set!");
1405lf[106]=C_h_intern(&lf[106],4,"cond");
1406lf[107]=C_h_intern(&lf[107],4,"case");
1407lf[108]=C_h_intern(&lf[108],3,"and");
1408lf[109]=C_h_intern(&lf[109],2,"or");
1409lf[110]=C_h_intern(&lf[110],3,"let");
1410lf[111]=C_h_intern(&lf[111],5,"begin");
1411lf[112]=C_h_intern(&lf[112],2,"do");
1412lf[113]=C_h_intern(&lf[113],4,"let*");
1413lf[114]=C_h_intern(&lf[114],6,"letrec");
1414lf[115]=C_h_intern(&lf[115],6,"define");
1415lf[116]=C_h_intern(&lf[116],18,"pretty-print-width");
1416lf[117]=C_h_intern(&lf[117],12,"pretty-print");
1417lf[118]=C_h_intern(&lf[118],19,"current-output-port");
1418lf[119]=C_h_intern(&lf[119],2,"pp");
1419lf[120]=C_h_intern(&lf[120],5,"write");
1420lf[121]=C_h_intern(&lf[121],15,"\006extrasfprintf0");
1421lf[122]=C_decode_literal(C_heaptop,"\376B\000\000/too few arguments to formatted output procedure");
1422lf[123]=C_h_intern(&lf[123],16,"\003sysflush-output");
1423lf[124]=C_decode_literal(C_heaptop,"\376B\000\000\037illegal format-string character");
1424lf[125]=C_h_intern(&lf[125],13,"\003systty-port\077");
1425lf[126]=C_h_intern(&lf[126],7,"fprintf");
1426lf[127]=C_h_intern(&lf[127],6,"printf");
1427lf[128]=C_h_intern(&lf[128],7,"sprintf");
1428lf[129]=C_h_intern(&lf[129],6,"format");
1429lf[130]=C_decode_literal(C_heaptop,"\376B\000\000\023illegal destination");
1430lf[131]=C_h_intern(&lf[131],12,"output-port\077");
1431lf[132]=C_h_intern(&lf[132],17,"register-feature!");
1432lf[133]=C_h_intern(&lf[133],7,"srfi-28");
1433lf[134]=C_h_intern(&lf[134],14,"make-parameter");
1434lf[135]=C_h_intern(&lf[135],6,"extras");
1435C_register_lf2(lf,136,create_ptable());
1436t2=C_mutate(&lf[0],lf[1]);
1437t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_591,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
1438C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,t3);}
1439
1440/* k589 */
1441static void C_ccall f_591(C_word c,C_word t0,C_word t1){
1442C_word tmp;
1443C_word t2;
1444C_word t3;
1445C_word ab[3],*a=ab;
1446C_check_for_interrupt;
1447if(!C_stack_probe(&a)){
1448C_save_and_reclaim((void*)tr2,(void*)f_591,2,t0,t1);}
1449t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_594,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1450C_ports_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1451
1452/* k592 in k589 */
1453static void C_ccall f_594(C_word c,C_word t0,C_word t1){
1454C_word tmp;
1455C_word t2;
1456C_word t3;
1457C_word t4;
1458C_word ab[3],*a=ab;
1459C_check_for_interrupt;
1460if(!C_stack_probe(&a)){
1461C_save_and_reclaim((void*)tr2,(void*)f_594,2,t0,t1);}
1462t2=*((C_word*)lf[2]+1);
1463t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1464/* extras.scm: 91   register-feature! */
1465t4=*((C_word*)lf[132]+1);
1466((C_proc3)C_retrieve_proc(t4))(3,t4,t3,lf[135]);}
1467
1468/* k598 in k592 in k589 */
1469static void C_ccall f_600(C_word c,C_word t0,C_word t1){
1470C_word tmp;
1471C_word t2;
1472C_word t3;
1473C_word t4;
1474C_word t5;
1475C_word t6;
1476C_word t7;
1477C_word t8;
1478C_word t9;
1479C_word t10;
1480C_word t11;
1481C_word t12;
1482C_word t13;
1483C_word t14;
1484C_word t15;
1485C_word t16;
1486C_word t17;
1487C_word t18;
1488C_word t19;
1489C_word t20;
1490C_word t21;
1491C_word t22;
1492C_word t23;
1493C_word t24;
1494C_word t25;
1495C_word t26;
1496C_word t27;
1497C_word t28;
1498C_word t29;
1499C_word t30;
1500C_word t31;
1501C_word t32;
1502C_word t33;
1503C_word t34;
1504C_word t35;
1505C_word t36;
1506C_word ab[70],*a=ab;
1507C_check_for_interrupt;
1508if(!C_stack_probe(&a)){
1509C_save_and_reclaim((void*)tr2,(void*)f_600,2,t0,t1);}
1510t2=*((C_word*)lf[3]+1);
1511t3=*((C_word*)lf[4]+1);
1512t4=*((C_word*)lf[5]+1);
1513t5=C_mutate((C_word*)lf[6]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_602,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=((C_word)li6),tmp=(C_word)a,a+=6,tmp));
1514t6=C_mutate((C_word*)lf[10]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_743,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
1515t7=C_mutate((C_word*)lf[14]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_781,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
1516t8=C_mutate((C_word*)lf[15]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_793,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
1517t9=*((C_word*)lf[16]+1);
1518t10=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_836,a[2]=t9,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp));
1519t11=*((C_word*)lf[17]+1);
1520t12=*((C_word*)lf[5]+1);
1521t13=*((C_word*)lf[4]+1);
1522t14=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_980,a[2]=t12,a[3]=t11,a[4]=t13,a[5]=((C_word)li14),tmp=(C_word)a,a+=6,tmp));
1523t15=C_mutate((C_word*)lf[25]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1070,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
1524t16=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1160,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp));
1525t17=*((C_word*)lf[27]+1);
1526t18=*((C_word*)lf[28]+1);
1527t19=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1257,a[2]=t17,a[3]=t18,a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp));
1528t20=C_mutate((C_word*)lf[30]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1330,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
1529t21=*((C_word*)lf[27]+1);
1530t22=*((C_word*)lf[28]+1);
1531t23=C_mutate((C_word*)lf[32]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1390,a[2]=t21,a[3]=t22,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp));
1532t24=*((C_word*)lf[35]+1);
1533t25=C_mutate((C_word*)lf[36]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1459,a[2]=t24,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp));
1534t26=*((C_word*)lf[35]+1);
1535t27=*((C_word*)lf[38]+1);
1536t28=C_mutate((C_word*)lf[39]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1548,a[2]=t26,a[3]=t27,a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp));
1537t29=C_mutate((C_word*)lf[40]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1569,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp));
1538t30=C_mutate((C_word*)lf[41]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1609,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp));
1539t31=*((C_word*)lf[27]+1);
1540t32=*((C_word*)lf[28]+1);
1541t33=C_mutate((C_word*)lf[42]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1647,a[2]=t31,a[3]=t32,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp));
1542t34=C_mutate((C_word*)lf[92]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2919,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp));
1543t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1544/* extras.scm: 625  make-parameter */
1545t36=*((C_word*)lf[134]+1);
1546((C_proc3)(void*)(*((C_word*)t36+1)))(3,t36,t35,C_fix(79));}
1547
1548/* k2996 in k598 in k592 in k589 */
1549static void C_ccall f_2998(C_word c,C_word t0,C_word t1){
1550C_word tmp;
1551C_word t2;
1552C_word t3;
1553C_word t4;
1554C_word t5;
1555C_word t6;
1556C_word t7;
1557C_word t8;
1558C_word t9;
1559C_word t10;
1560C_word t11;
1561C_word t12;
1562C_word t13;
1563C_word t14;
1564C_word t15;
1565C_word t16;
1566C_word t17;
1567C_word t18;
1568C_word t19;
1569C_word ab[29],*a=ab;
1570C_check_for_interrupt;
1571if(!C_stack_probe(&a)){
1572C_save_and_reclaim((void*)tr2,(void*)f_2998,2,t0,t1);}
1573t2=C_mutate((C_word*)lf[116]+1,t1);
1574t3=C_mutate((C_word*)lf[117]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3000,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp));
1575t4=C_mutate((C_word*)lf[119]+1,*((C_word*)lf[117]+1));
1576t5=*((C_word*)lf[120]+1);
1577t6=*((C_word*)lf[38]+1);
1578t7=*((C_word*)lf[35]+1);
1579t8=*((C_word*)lf[27]+1);
1580t9=*((C_word*)lf[28]+1);
1581t10=C_mutate((C_word*)lf[121]+1,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3029,a[2]=t8,a[3]=t6,a[4]=t7,a[5]=t5,a[6]=t9,a[7]=((C_word)li79),tmp=(C_word)a,a+=8,tmp));
1582t11=C_mutate((C_word*)lf[126]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3327,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp));
1583t12=C_mutate((C_word*)lf[127]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3333,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp));
1584t13=C_mutate((C_word*)lf[128]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3339,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp));
1585t14=*((C_word*)lf[126]+1);
1586t15=*((C_word*)lf[128]+1);
1587t16=*((C_word*)lf[127]+1);
1588t17=C_mutate((C_word*)lf[129]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3345,a[2]=t14,a[3]=t15,a[4]=t16,a[5]=((C_word)li83),tmp=(C_word)a,a+=6,tmp));
1589t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3388,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1590/* extras.scm: 715  register-feature! */
1591t19=*((C_word*)lf[132]+1);
1592((C_proc3)C_retrieve_proc(t19))(3,t19,t18,lf[133]);}
1593
1594/* k3386 in k2996 in k598 in k592 in k589 */
1595static void C_ccall f_3388(C_word c,C_word t0,C_word t1){
1596C_word tmp;
1597C_word t2;
1598C_word *a;
1599t2=((C_word*)t0)[2];
1600((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
1601
1602/* format in k2996 in k598 in k592 in k589 */
1603static void C_ccall f_3345(C_word c,C_word t0,C_word t1,C_word t2,...){
1604C_word tmp;
1605C_word t3;
1606va_list v;
1607C_word *a,c2=c;
1608C_save_rest(t2,c2,3);
1609if(c<3) C_bad_min_argc_2(c,3,t0);
1610C_check_for_interrupt;
1611if(!C_demand(c*C_SIZEOF_PAIR+15)){
1612C_save_and_reclaim((void*)tr3r,(void*)f_3345r,3,t0,t1,t2);}
1613else{
1614a=C_alloc((c-3)*3);
1615t3=C_restore_rest(a,C_rest_count(0));
1616f_3345r(t0,t1,t2,t3);}}
1617
1618static void C_ccall f_3345r(C_word t0,C_word t1,C_word t2,C_word t3){
1619C_word tmp;
1620C_word t4;
1621C_word t5;
1622C_word t6;
1623C_word t7;
1624C_word t8;
1625C_word t9;
1626C_word t10;
1627C_word *a=C_alloc(15);
1628t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
1629t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3353,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
1630t6=t2;
1631if(C_truep(t6)){
1632if(C_truep((C_word)C_booleanp(t2))){
1633t7=t5;
1634f_3353(2,t7,((C_word*)t0)[4]);}
1635else{
1636if(C_truep((C_word)C_i_stringp(t2))){
1637t7=(C_word)C_a_i_cons(&a,2,t2,((C_word*)t4)[1]);
1638t8=C_set_block_item(t4,0,t7);
1639t9=t5;
1640f_3353(2,t9,((C_word*)t0)[3]);}
1641else{
1642t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3378,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
1643/* extras.scm: 710  output-port? */
1644t8=*((C_word*)lf[131]+1);
1645((C_proc3)C_retrieve_proc(t8))(3,t8,t7,t2);}}}
1646else{
1647t7=t5;
1648f_3353(2,t7,((C_word*)t0)[3]);}}
1649
1650/* k3376 in format in k2996 in k598 in k592 in k589 */
1651static void C_ccall f_3378(C_word c,C_word t0,C_word t1){
1652C_word tmp;
1653C_word t2;
1654C_word t3;
1655C_word t4;
1656C_word ab[3],*a=ab;
1657C_check_for_interrupt;
1658if(!C_stack_probe(&a)){
1659C_save_and_reclaim((void*)tr2,(void*)f_3378,2,t0,t1);}
1660if(C_truep(t1)){
1661t2=(C_word)C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1]);
1662t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t2);
1663t4=((C_word*)t0)[3];
1664f_3353(2,t4,((C_word*)t0)[2]);}
1665else{
1666/* extras.scm: 712  ##sys#error */
1667t2=*((C_word*)lf[9]+1);
1668((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[129],lf[130],((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1]);}}
1669
1670/* k3351 in format in k2996 in k598 in k592 in k589 */
1671static void C_ccall f_3353(C_word c,C_word t0,C_word t1){
1672C_word tmp;
1673C_word t2;
1674C_word *a;
1675C_apply(4,0,((C_word*)t0)[3],t1,((C_word*)((C_word*)t0)[2])[1]);}
1676
1677/* sprintf in k2996 in k598 in k592 in k589 */
1678static void C_ccall f_3339(C_word c,C_word t0,C_word t1,C_word t2,...){
1679C_word tmp;
1680C_word t3;
1681va_list v;
1682C_word *a,c2=c;
1683C_save_rest(t2,c2,3);
1684if(c<3) C_bad_min_argc_2(c,3,t0);
1685C_check_for_interrupt;
1686if(!C_demand(c*C_SIZEOF_PAIR+0)){
1687C_save_and_reclaim((void*)tr3r,(void*)f_3339r,3,t0,t1,t2);}
1688else{
1689a=C_alloc((c-3)*3);
1690t3=C_restore_rest(a,C_rest_count(0));
1691f_3339r(t0,t1,t2,t3);}}
1692
1693static void C_ccall f_3339r(C_word t0,C_word t1,C_word t2,C_word t3){
1694C_word tmp;
1695C_word t4;
1696/* extras.scm: 700  fprintf0 */
1697t4=*((C_word*)lf[121]+1);
1698((C_proc6)C_retrieve_proc(t4))(6,t4,t1,lf[128],C_SCHEME_FALSE,t2,t3);}
1699
1700/* printf in k2996 in k598 in k592 in k589 */
1701static void C_ccall f_3333(C_word c,C_word t0,C_word t1,C_word t2,...){
1702C_word tmp;
1703C_word t3;
1704va_list v;
1705C_word *a,c2=c;
1706C_save_rest(t2,c2,3);
1707if(c<3) C_bad_min_argc_2(c,3,t0);
1708C_check_for_interrupt;
1709if(!C_demand(c*C_SIZEOF_PAIR+0)){
1710C_save_and_reclaim((void*)tr3r,(void*)f_3333r,3,t0,t1,t2);}
1711else{
1712a=C_alloc((c-3)*3);
1713t3=C_restore_rest(a,C_rest_count(0));
1714f_3333r(t0,t1,t2,t3);}}
1715
1716static void C_ccall f_3333r(C_word t0,C_word t1,C_word t2,C_word t3){
1717C_word tmp;
1718C_word t4;
1719/* extras.scm: 697  fprintf0 */
1720t4=*((C_word*)lf[121]+1);
1721((C_proc6)C_retrieve_proc(t4))(6,t4,t1,lf[127],*((C_word*)lf[37]+1),t2,t3);}
1722
1723/* fprintf in k2996 in k598 in k592 in k589 */
1724static void C_ccall f_3327(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...){
1725C_word tmp;
1726C_word t4;
1727va_list v;
1728C_word *a,c2=c;
1729C_save_rest(t3,c2,4);
1730if(c<4) C_bad_min_argc_2(c,4,t0);
1731C_check_for_interrupt;
1732if(!C_demand(c*C_SIZEOF_PAIR+0)){
1733C_save_and_reclaim((void*)tr4r,(void*)f_3327r,4,t0,t1,t2,t3);}
1734else{
1735a=C_alloc((c-4)*3);
1736t4=C_restore_rest(a,C_rest_count(0));
1737f_3327r(t0,t1,t2,t3,t4);}}
1738
1739static void C_ccall f_3327r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
1740C_word tmp;
1741C_word t5;
1742/* extras.scm: 694  fprintf0 */
1743t5=*((C_word*)lf[121]+1);
1744((C_proc6)C_retrieve_proc(t5))(6,t5,t1,lf[126],t2,t3,t4);}
1745
1746/* ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1747static void C_ccall f_3029(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
1748C_word tmp;
1749C_word t6;
1750C_word t7;
1751C_word ab[12],*a=ab;
1752if(c!=6) C_bad_argc_2(c,6,t0);
1753C_check_for_interrupt;
1754if(!C_stack_probe(&a)){
1755C_save_and_reclaim((void*)tr6,(void*)f_3029,6,t0,t1,t2,t3,t4,t5);}
1756t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3033,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t4,a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=t3,a[11]=t2,tmp=(C_word)a,a+=12,tmp);
1757if(C_truep(t3)){
1758/* extras.scm: 644  ##sys#check-port */
1759t7=*((C_word*)lf[23]+1);
1760((C_proc4)(void*)(*((C_word*)t7+1)))(4,t7,t6,t3,t2);}
1761else{
1762t7=t6;
1763f_3033(2,t7,C_SCHEME_UNDEFINED);}}
1764
1765/* k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1766static void C_ccall f_3033(C_word c,C_word t0,C_word t1){
1767C_word tmp;
1768C_word t2;
1769C_word t3;
1770C_word t4;
1771C_word ab[16],*a=ab;
1772C_check_for_interrupt;
1773if(!C_stack_probe(&a)){
1774C_save_and_reclaim((void*)tr2,(void*)f_3033,2,t0,t1);}
1775t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3036,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
1776t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3316,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[10],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
1777if(C_truep(((C_word*)t0)[10])){
1778/* extras.scm: 645  ##sys#tty-port? */
1779t4=*((C_word*)lf[125]+1);
1780((C_proc3)C_retrieve_proc(t4))(3,t4,t3,((C_word*)t0)[10]);}
1781else{
1782t4=t3;
1783f_3316(2,t4,C_SCHEME_FALSE);}}
1784
1785/* k3314 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1786static void C_ccall f_3316(C_word c,C_word t0,C_word t1){
1787C_word tmp;
1788C_word t2;
1789C_word *a;
1790if(C_truep(t1)){
1791t2=((C_word*)t0)[4];
1792f_3036(2,t2,((C_word*)t0)[3]);}
1793else{
1794/* extras.scm: 645  open-output-string */
1795t2=((C_word*)t0)[2];
1796((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[4]);}}
1797
1798/* k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1799static void C_ccall f_3036(C_word c,C_word t0,C_word t1){
1800C_word tmp;
1801C_word t2;
1802C_word t3;
1803C_word t4;
1804C_word t5;
1805C_word ab[13],*a=ab;
1806C_check_for_interrupt;
1807if(!C_stack_probe(&a)){
1808C_save_and_reclaim((void*)tr2,(void*)f_3036,2,t0,t1);}
1809t2=C_SCHEME_UNDEFINED;
1810t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1811t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_3041,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t1,a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word)li78),tmp=(C_word)a,a+=11,tmp));
1812t5=((C_word*)t3)[1];
1813f_3041(t5,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
1814
1815/* rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1816static void C_fcall f_3041(C_word t0,C_word t1,C_word t2,C_word t3){
1817C_word tmp;
1818C_word t4;
1819C_word t5;
1820C_word t6;
1821C_word t7;
1822C_word t8;
1823C_word t9;
1824C_word t10;
1825C_word t11;
1826C_word t12;
1827C_word t13;
1828C_word t14;
1829C_word t15;
1830C_word ab[35],*a=ab;
1831C_check_for_interrupt;
1832if(!C_stack_probe(&a)){
1833C_save_and_reclaim((void*)trf_3041,NULL,4,t0,t1,t2,t3);}
1834t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
1835t5=(C_word)C_i_check_string_2(t2,((C_word*)t0)[9]);
1836t6=C_fix(0);
1837t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
1838t8=(C_word)C_block_size(t2);
1839t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3050,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
1840t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3057,a[2]=((C_word*)t0)[9],a[3]=t4,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp);
1841t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3074,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
1842t12=C_SCHEME_UNDEFINED;
1843t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
1844t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_3102,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],a[6]=t10,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[5],a[9]=t13,a[10]=t9,a[11]=t8,a[12]=t7,a[13]=((C_word)li77),tmp=(C_word)a,a+=14,tmp));
1845t15=((C_word*)t13)[1];
1846f_3102(t15,t11);}
1847
1848/* loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1849static void C_fcall f_3102(C_word t0,C_word t1){
1850C_word tmp;
1851C_word t2;
1852C_word t3;
1853C_word t4;
1854C_word t5;
1855C_word t6;
1856C_word t7;
1857C_word t8;
1858C_word t9;
1859C_word t10;
1860C_word t11;
1861C_word t12;
1862C_word t13;
1863C_word t14;
1864C_word t15;
1865C_word t16;
1866C_word t17;
1867C_word t18;
1868C_word t19;
1869C_word t20;
1870C_word t21;
1871C_word t22;
1872C_word ab[53],*a=ab;
1873C_check_for_interrupt;
1874if(!C_stack_probe(&a)){
1875C_save_and_reclaim((void*)trf_3102,NULL,2,t0,t1);}
1876if(C_truep((C_word)C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[12])[1],((C_word*)t0)[11]))){
1877t2=t1;
1878((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
1879else{
1880t2=f_3050(((C_word*)t0)[10]);
1881t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3115,a[2]=t1,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
1882t4=(C_word)C_eqp(t2,C_make_character(126));
1883t5=(C_truep(t4)?(C_word)C_fixnum_lessp(((C_word*)((C_word*)t0)[12])[1],((C_word*)t0)[11]):C_SCHEME_FALSE);
1884if(C_truep(t5)){
1885t6=f_3050(((C_word*)t0)[10]);
1886t7=(C_word)C_u_i_char_upcase(t6);
1887switch(t7){
1888case C_make_character(83):
1889t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3140,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
1890/* extras.scm: 666  next */
1891t9=((C_word*)t0)[6];
1892f_3057(t9,t8);
1893case C_make_character(65):
1894t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3153,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
1895/* extras.scm: 667  next */
1896t9=((C_word*)t0)[6];
1897f_3057(t9,t8);
1898case C_make_character(67):
1899t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3166,a[2]=((C_word*)t0)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
1900/* extras.scm: 668  next */
1901t9=((C_word*)t0)[6];
1902f_3057(t9,t8);
1903case C_make_character(66):
1904t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3179,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
1905t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3183,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
1906/* extras.scm: 669  next */
1907t10=((C_word*)t0)[6];
1908f_3057(t10,t9);
1909case C_make_character(79):
1910t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3196,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
1911t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3200,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
1912/* extras.scm: 670  next */
1913t10=((C_word*)t0)[6];
1914f_3057(t10,t9);
1915case C_make_character(88):
1916t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3213,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
1917t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3217,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
1918/* extras.scm: 671  next */
1919t10=((C_word*)t0)[6];
1920f_3057(t10,t9);
1921case C_make_character(33):
1922/* extras.scm: 672  ##sys#flush-output */
1923t8=*((C_word*)lf[123]+1);
1924((C_proc3)(void*)(*((C_word*)t8+1)))(3,t8,t3,((C_word*)t0)[7]);
1925case C_make_character(63):
1926t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3235,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
1927/* extras.scm: 674  next */
1928t9=((C_word*)t0)[6];
1929f_3057(t9,t8);
1930case C_make_character(126):
1931/* extras.scm: 678  ##sys#write-char-0 */
1932t8=*((C_word*)lf[33]+1);
1933((C_proc4)(void*)(*((C_word*)t8+1)))(4,t8,t3,C_make_character(126),((C_word*)t0)[7]);
1934default:
1935t8=(C_word)C_eqp(t7,C_make_character(37));
1936t9=(C_truep(t8)?t8:(C_word)C_eqp(t7,C_make_character(78)));
1937if(C_truep(t9)){
1938/* extras.scm: 679  newline */
1939t10=((C_word*)t0)[2];
1940((C_proc3)C_retrieve_proc(t10))(3,t10,t3,((C_word*)t0)[7]);}
1941else{
1942if(C_truep((C_word)C_u_i_char_whitespacep(t6))){
1943t10=f_3050(((C_word*)t0)[10]);
1944t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3280,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[10],a[4]=((C_word)li76),tmp=(C_word)a,a+=5,tmp);
1945t12=t3;
1946f_3115(2,t12,f_3280(t11,t10));}
1947else{
1948/* extras.scm: 686  ##sys#error */
1949t10=*((C_word*)lf[9]+1);
1950((C_proc5)(void*)(*((C_word*)t10+1)))(5,t10,t3,((C_word*)t0)[4],lf[124],t6);}}}}
1951else{
1952/* extras.scm: 687  ##sys#write-char-0 */
1953t6=*((C_word*)lf[33]+1);
1954((C_proc4)(void*)(*((C_word*)t6+1)))(4,t6,t3,t2,((C_word*)t0)[7]);}}}
1955
1956/* skip in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1957static C_word C_fcall f_3280(C_word t0,C_word t1){
1958C_word tmp;
1959C_word t2;
1960C_word t3;
1961C_word t4;
1962C_word t5;
1963C_word t6;
1964loop:
1965C_stack_check;
1966if(C_truep((C_word)C_u_i_char_whitespacep(t1))){
1967t2=f_3050(((C_word*)t0)[3]);
1968t6=t2;
1969t1=t6;
1970goto loop;}
1971else{
1972t2=(C_word)C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],C_fix(1));
1973t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
1974return(t3);}}
1975
1976/* k3233 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1977static void C_ccall f_3235(C_word c,C_word t0,C_word t1){
1978C_word tmp;
1979C_word t2;
1980C_word t3;
1981C_word ab[6],*a=ab;
1982C_check_for_interrupt;
1983if(!C_stack_probe(&a)){
1984C_save_and_reclaim((void*)tr2,(void*)f_3235,2,t0,t1);}
1985t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3238,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
1986/* extras.scm: 675  next */
1987t3=((C_word*)t0)[2];
1988f_3057(t3,t2);}
1989
1990/* k3236 in k3233 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
1991static void C_ccall f_3238(C_word c,C_word t0,C_word t1){
1992C_word tmp;
1993C_word t2;
1994C_word t3;
1995C_word *a;
1996t2=(C_word)C_i_check_list_2(t1,((C_word*)t0)[5]);
1997/* extras.scm: 677  rec */
1998t3=((C_word*)((C_word*)t0)[4])[1];
1999f_3041(t3,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
2000
2001/* k3215 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2002static void C_ccall f_3217(C_word c,C_word t0,C_word t1){
2003C_word tmp;
2004C_word t2;
2005C_word *a;
2006/* extras.scm: 671  ##sys#number->string */
2007t2=*((C_word*)lf[62]+1);
2008((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[2],t1,C_fix(16));}
2009
2010/* k3211 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2011static void C_ccall f_3213(C_word c,C_word t0,C_word t1){
2012C_word tmp;
2013C_word t2;
2014C_word *a;
2015/* extras.scm: 671  display */
2016t2=((C_word*)t0)[4];
2017((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2018
2019/* k3198 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2020static void C_ccall f_3200(C_word c,C_word t0,C_word t1){
2021C_word tmp;
2022C_word t2;
2023C_word *a;
2024/* extras.scm: 670  ##sys#number->string */
2025t2=*((C_word*)lf[62]+1);
2026((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[2],t1,C_fix(8));}
2027
2028/* k3194 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2029static void C_ccall f_3196(C_word c,C_word t0,C_word t1){
2030C_word tmp;
2031C_word t2;
2032C_word *a;
2033/* extras.scm: 670  display */
2034t2=((C_word*)t0)[4];
2035((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2036
2037/* k3181 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2038static void C_ccall f_3183(C_word c,C_word t0,C_word t1){
2039C_word tmp;
2040C_word t2;
2041C_word *a;
2042/* extras.scm: 669  ##sys#number->string */
2043t2=*((C_word*)lf[62]+1);
2044((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[2],t1,C_fix(2));}
2045
2046/* k3177 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2047static void C_ccall f_3179(C_word c,C_word t0,C_word t1){
2048C_word tmp;
2049C_word t2;
2050C_word *a;
2051/* extras.scm: 669  display */
2052t2=((C_word*)t0)[4];
2053((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2054
2055/* k3164 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2056static void C_ccall f_3166(C_word c,C_word t0,C_word t1){
2057C_word tmp;
2058C_word t2;
2059C_word *a;
2060/* extras.scm: 668  ##sys#write-char-0 */
2061t2=*((C_word*)lf[33]+1);
2062((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2063
2064/* k3151 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2065static void C_ccall f_3153(C_word c,C_word t0,C_word t1){
2066C_word tmp;
2067C_word t2;
2068C_word *a;
2069/* extras.scm: 667  display */
2070t2=((C_word*)t0)[4];
2071((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2072
2073/* k3138 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2074static void C_ccall f_3140(C_word c,C_word t0,C_word t1){
2075C_word tmp;
2076C_word t2;
2077C_word *a;
2078/* extras.scm: 666  write */
2079t2=((C_word*)t0)[4];
2080((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2081
2082/* k3113 in loop in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2083static void C_ccall f_3115(C_word c,C_word t0,C_word t1){
2084C_word tmp;
2085C_word t2;
2086C_word *a;
2087/* extras.scm: 688  loop */
2088t2=((C_word*)((C_word*)t0)[3])[1];
2089f_3102(t2,((C_word*)t0)[2]);}
2090
2091/* k3072 in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2092static void C_ccall f_3074(C_word c,C_word t0,C_word t1){
2093C_word tmp;
2094C_word t2;
2095C_word t3;
2096C_word t4;
2097C_word t5;
2098C_word ab[4],*a=ab;
2099C_check_for_interrupt;
2100if(!C_stack_probe(&a)){
2101C_save_and_reclaim((void*)tr2,(void*)f_3074,2,t0,t1);}
2102t2=((C_word*)t0)[5];
2103if(C_truep(t2)){
2104t3=(C_word)C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]);
2105if(C_truep(t3)){
2106t4=((C_word*)t0)[3];
2107((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_UNDEFINED);}
2108else{
2109t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3096,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
2110/* extras.scm: 691  get-output-string */
2111t5=((C_word*)t0)[2];
2112((C_proc3)C_retrieve_proc(t5))(3,t5,t4,((C_word*)t0)[4]);}}
2113else{
2114/* extras.scm: 689  get-output-string */
2115t3=((C_word*)t0)[2];
2116((C_proc3)C_retrieve_proc(t3))(3,t3,((C_word*)t0)[3],((C_word*)t0)[4]);}}
2117
2118/* k3094 in k3072 in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2119static void C_ccall f_3096(C_word c,C_word t0,C_word t1){
2120C_word tmp;
2121C_word t2;
2122C_word *a;
2123/* extras.scm: 691  ##sys#print */
2124t2=*((C_word*)lf[63]+1);
2125((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[3],t1,C_SCHEME_FALSE,((C_word*)t0)[2]);}
2126
2127/* next in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2128static void C_fcall f_3057(C_word t0,C_word t1){
2129C_word tmp;
2130C_word t2;
2131C_word t3;
2132C_word t4;
2133C_word t5;
2134C_word *a;
2135C_check_for_interrupt;
2136if(!C_stack_probe(&a)){
2137C_save_and_reclaim((void*)trf_3057,NULL,2,t0,t1);}
2138if(C_truep((C_word)C_eqp(((C_word*)((C_word*)t0)[3])[1],C_SCHEME_END_OF_LIST))){
2139/* extras.scm: 656  ##sys#error */
2140t2=*((C_word*)lf[9]+1);
2141((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,t1,((C_word*)t0)[2],lf[122]);}
2142else{
2143t2=(C_word)C_slot(((C_word*)((C_word*)t0)[3])[1],C_fix(0));
2144t3=(C_word)C_slot(((C_word*)((C_word*)t0)[3])[1],C_fix(1));
2145t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
2146t5=t1;
2147((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t2);}}
2148
2149/* fetch in rec in k3034 in k3031 in ##extras#fprintf0 in k2996 in k598 in k592 in k589 */
2150static C_word C_fcall f_3050(C_word t0){
2151C_word tmp;
2152C_word t1;
2153C_word t2;
2154C_word t3;
2155C_word t4;
2156C_stack_check;
2157t1=(C_word)C_subchar(((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);
2158t2=(C_word)C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1));
2159t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
2160return(t1);}
2161
2162/* pretty-print in k2996 in k598 in k592 in k589 */
2163static void C_ccall f_3000(C_word c,C_word t0,C_word t1,C_word t2,...){
2164C_word tmp;
2165C_word t3;
2166va_list v;
2167C_word *a,c2=c;
2168C_save_rest(t2,c2,3);
2169if(c<3) C_bad_min_argc_2(c,3,t0);
2170C_check_for_interrupt;
2171if(!C_demand(c*C_SIZEOF_PAIR+4)){
2172C_save_and_reclaim((void*)tr3rv,(void*)f_3000r,3,t0,t1,t2);}
2173else{
2174a=C_alloc((c-3)*3);
2175t3=C_restore_rest_vector(a,C_rest_count(0));
2176f_3000r(t0,t1,t2,t3);}}
2177
2178static void C_ccall f_3000r(C_word t0,C_word t1,C_word t2,C_word t3){
2179C_word tmp;
2180C_word t4;
2181C_word t5;
2182C_word *a=C_alloc(4);
2183t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3004,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
2184if(C_truep((C_word)C_notvemptyp(t3))){
2185t5=t4;
2186f_3004(2,t5,(C_word)C_i_vector_ref(t3,C_fix(0)));}
2187else{
2188/* extras.scm: 628  current-output-port */
2189t5=*((C_word*)lf[118]+1);
2190((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t4);}}
2191
2192/* k3002 in pretty-print in k2996 in k598 in k592 in k589 */
2193static void C_ccall f_3004(C_word c,C_word t0,C_word t1){
2194C_word tmp;
2195C_word t2;
2196C_word t3;
2197C_word t4;
2198C_word ab[8],*a=ab;
2199C_check_for_interrupt;
2200if(!C_stack_probe(&a)){
2201C_save_and_reclaim((void*)tr2,(void*)f_3004,2,t0,t1);}
2202t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3007,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
2203t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3011,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
2204/* extras.scm: 629  pretty-print-width */
2205t4=*((C_word*)lf[116]+1);
2206((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}
2207
2208/* k3009 in k3002 in pretty-print in k2996 in k598 in k592 in k589 */
2209static void C_ccall f_3011(C_word c,C_word t0,C_word t1){
2210C_word tmp;
2211C_word t2;
2212C_word t3;
2213C_word ab[4],*a=ab;
2214C_check_for_interrupt;
2215if(!C_stack_probe(&a)){
2216C_save_and_reclaim((void*)tr2,(void*)f_3011,2,t0,t1);}
2217t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3013,a[2]=((C_word*)t0)[4],a[3]=((C_word)li73),tmp=(C_word)a,a+=4,tmp);
2218/* extras.scm: 629  generic-write */
2219t3=*((C_word*)lf[42]+1);
2220((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[3],((C_word*)t0)[2],C_SCHEME_FALSE,t1,t2);}
2221
2222/* a3012 in k3009 in k3002 in pretty-print in k2996 in k598 in k592 in k589 */
2223static void C_ccall f_3013(C_word c,C_word t0,C_word t1,C_word t2){
2224C_word tmp;
2225C_word t3;
2226C_word t4;
2227C_word ab[3],*a=ab;
2228if(c!=3) C_bad_argc_2(c,3,t0);
2229C_check_for_interrupt;
2230if(!C_stack_probe(&a)){
2231C_save_and_reclaim((void*)tr3,(void*)f_3013,3,t0,t1,t2);}
2232t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3017,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2233/* extras.scm: 629  display */
2234t4=*((C_word*)lf[35]+1);
2235((C_proc4)(void*)(*((C_word*)t4+1)))(4,t4,t3,t2,((C_word*)t0)[2]);}
2236
2237/* k3015 in a3012 in k3009 in k3002 in pretty-print in k2996 in k598 in k592 in k589 */
2238static void C_ccall f_3017(C_word c,C_word t0,C_word t1){
2239C_word tmp;
2240C_word t2;
2241C_word *a;
2242t2=((C_word*)t0)[2];
2243((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_TRUE);}
2244
2245/* k3005 in k3002 in pretty-print in k2996 in k598 in k592 in k589 */
2246static void C_ccall f_3007(C_word c,C_word t0,C_word t1){
2247C_word tmp;
2248C_word t2;
2249C_word *a;
2250t2=((C_word*)t0)[2];
2251((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
2252
2253/* ##extras#reverse-string-append in k598 in k592 in k589 */
2254static void C_ccall f_2919(C_word c,C_word t0,C_word t1,C_word t2){
2255C_word tmp;
2256C_word t3;
2257C_word t4;
2258C_word t5;
2259C_word t6;
2260C_word ab[6],*a=ab;
2261if(c!=3) C_bad_argc_2(c,3,t0);
2262C_check_for_interrupt;
2263if(!C_stack_probe(&a)){
2264C_save_and_reclaim((void*)tr3,(void*)f_2919,3,t0,t1,t2);}
2265t3=C_SCHEME_UNDEFINED;
2266t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
2267t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2922,a[2]=t4,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp));
2268/* extras.scm: 620  rev-string-append */
2269t6=((C_word*)t4)[1];
2270f_2922(t6,t1,t2,C_fix(0));}
2271
2272/* rev-string-append in ##extras#reverse-string-append in k598 in k592 in k589 */
2273static void C_fcall f_2922(C_word t0,C_word t1,C_word t2,C_word t3){
2274C_word tmp;
2275C_word t4;
2276C_word t5;
2277C_word t6;
2278C_word t7;
2279C_word t8;
2280C_word t9;
2281C_word t10;
2282C_word t11;
2283C_word t12;
2284C_word *a;
2285loop:
2286a=C_alloc(10);
2287C_check_for_interrupt;
2288if(!C_stack_probe(a)){
2289C_save_and_reclaim((void*)trf_2922,NULL,4,t0,t1,t2,t3);}
2290if(C_truep((C_word)C_i_pairp(t2))){
2291t4=(C_word)C_i_car(t2);
2292t5=(C_word)C_i_string_length(t4);
2293t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2938,a[2]=t1,a[3]=t4,a[4]=t5,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
2294t7=(C_word)C_i_cdr(t2);
2295t8=(C_word)C_a_i_plus(&a,2,t3,t5);
2296/* extras.scm: 611  rev-string-append */
2297t10=t6;
2298t11=t7;
2299t12=t8;
2300t1=t10;
2301t2=t11;
2302t3=t12;
2303goto loop;}
2304else{
2305/* extras.scm: 618  make-string */
2306t4=*((C_word*)lf[16]+1);
2307((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t1,t3);}}
2308
2309/* k2936 in rev-string-append in ##extras#reverse-string-append in k598 in k592 in k589 */
2310static void C_ccall f_2938(C_word c,C_word t0,C_word t1){
2311C_word tmp;
2312C_word t2;
2313C_word t3;
2314C_word t4;
2315C_word t5;
2316C_word t6;
2317C_word t7;
2318C_word t8;
2319C_word ab[17],*a=ab;
2320C_check_for_interrupt;
2321if(!C_stack_probe(&a)){
2322C_save_and_reclaim((void*)tr2,(void*)f_2938,2,t0,t1);}
2323t2=(C_word)C_i_string_length(t1);
2324t3=(C_word)C_a_i_minus(&a,2,t2,((C_word*)t0)[5]);
2325t4=(C_word)C_a_i_minus(&a,2,t3,((C_word*)t0)[4]);
2326t5=C_SCHEME_UNDEFINED;
2327t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
2328t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2947,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li70),tmp=(C_word)a,a+=7,tmp));
2329t8=((C_word*)t6)[1];
2330f_2947(t8,((C_word*)t0)[2],C_fix(0),t4);}
2331
2332/* loop in k2936 in rev-string-append in ##extras#reverse-string-append in k598 in k592 in k589 */
2333static void C_fcall f_2947(C_word t0,C_word t1,C_word t2,C_word t3){
2334C_word tmp;
2335C_word t4;
2336C_word t5;
2337C_word t6;
2338C_word t7;
2339C_word t8;
2340C_word t9;
2341C_word t10;
2342C_word t11;
2343C_word *a;
2344loop:
2345a=C_alloc(8);
2346C_check_for_interrupt;
2347if(!C_stack_probe(a)){
2348C_save_and_reclaim((void*)trf_2947,NULL,4,t0,t1,t2,t3);}
2349if(C_truep((C_word)C_i_lessp(t2,((C_word*)t0)[5]))){
2350t4=(C_word)C_i_string_ref(((C_word*)t0)[4],t2);
2351t5=(C_word)C_i_string_set(((C_word*)t0)[3],t3,t4);
2352t6=(C_word)C_a_i_plus(&a,2,t2,C_fix(1));
2353t7=(C_word)C_a_i_plus(&a,2,t3,C_fix(1));
2354/* extras.scm: 616  loop */
2355t9=t1;
2356t10=t6;
2357t11=t7;
2358t1=t9;
2359t2=t10;
2360t3=t11;
2361goto loop;}
2362else{
2363t4=t1;
2364((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,((C_word*)t0)[3]);}}
2365
2366/* ##extras#generic-write in k598 in k592 in k589 */
2367static void C_ccall f_1647(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
2368C_word tmp;
2369C_word t6;
2370C_word t7;
2371C_word t8;
2372C_word t9;
2373C_word t10;
2374C_word t11;
2375C_word t12;
2376C_word t13;
2377C_word t14;
2378C_word t15;
2379C_word ab[42],*a=ab;
2380if(c!=6) C_bad_argc_2(c,6,t0);
2381C_check_for_interrupt;
2382if(!C_stack_probe(&a)){
2383C_save_and_reclaim((void*)tr6,(void*)f_1647,6,t0,t1,t2,t3,t4,t5);}
2384t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1650,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp);
2385t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1702,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp);
2386t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1708,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp);
2387t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1741,a[2]=t5,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp);
2388t10=C_SCHEME_UNDEFINED;
2389t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
2390t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1760,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=t8,a[7]=t7,a[8]=t9,a[9]=t11,a[10]=((C_word)li44),tmp=(C_word)a,a+=11,tmp));
2391t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2263,a[2]=t6,a[3]=t8,a[4]=t7,a[5]=t11,a[6]=t4,a[7]=t3,a[8]=t9,a[9]=((C_word)li68),tmp=(C_word)a,a+=10,tmp);
2392if(C_truep(t4)){
2393t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2910,a[2]=t2,a[3]=t13,a[4]=t1,a[5]=t9,tmp=(C_word)a,a+=6,tmp);
2394/* extras.scm: 600  make-string */
2395t15=*((C_word*)lf[16]+1);
2396((C_proc4)(void*)(*((C_word*)t15+1)))(4,t15,t14,C_fix(1),C_make_character(10));}
2397else{
2398/* extras.scm: 601  wr */
2399t14=((C_word*)t11)[1];
2400f_1760(t14,t1,t2,C_fix(0));}}
2401
2402/* k2908 in ##extras#generic-write in k598 in k592 in k589 */
2403static void C_ccall f_2910(C_word c,C_word t0,C_word t1){
2404C_word tmp;
2405C_word t2;
2406C_word t3;
2407C_word ab[5],*a=ab;
2408C_check_for_interrupt;
2409if(!C_stack_probe(&a)){
2410C_save_and_reclaim((void*)tr2,(void*)f_2910,2,t0,t1);}
2411t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2914,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
2412/* extras.scm: 600  pp */
2413t3=((C_word*)t0)[3];
2414f_2263(t3,t2,((C_word*)t0)[2],C_fix(0));}
2415
2416/* k2912 in k2908 in ##extras#generic-write in k598 in k592 in k589 */
2417static void C_ccall f_2914(C_word c,C_word t0,C_word t1){
2418C_word tmp;
2419C_word t2;
2420C_word *a;
2421/* extras.scm: 600  out */
2422t2=((C_word*)t0)[4];
2423f_1741(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
2424
2425/* pp in ##extras#generic-write in k598 in k592 in k589 */
2426static void C_fcall f_2263(C_word t0,C_word t1,C_word t2,C_word t3){
2427C_word tmp;
2428C_word t4;
2429C_word t5;
2430C_word t6;
2431C_word t7;
2432C_word t8;
2433C_word t9;
2434C_word t10;
2435C_word t11;
2436C_word t12;
2437C_word t13;
2438C_word t14;
2439C_word t15;
2440C_word t16;
2441C_word t17;
2442C_word t18;
2443C_word t19;
2444C_word t20;
2445C_word t21;
2446C_word t22;
2447C_word t23;
2448C_word t24;
2449C_word t25;
2450C_word t26;
2451C_word t27;
2452C_word t28;
2453C_word t29;
2454C_word t30;
2455C_word t31;
2456C_word t32;
2457C_word t33;
2458C_word t34;
2459C_word t35;
2460C_word t36;
2461C_word t37;
2462C_word t38;
2463C_word t39;
2464C_word t40;
2465C_word t41;
2466C_word t42;
2467C_word t43;
2468C_word t44;
2469C_word t45;
2470C_word t46;
2471C_word t47;
2472C_word t48;
2473C_word t49;
2474C_word t50;
2475C_word t51;
2476C_word t52;
2477C_word t53;
2478C_word t54;
2479C_word t55;
2480C_word t56;
2481C_word ab[151],*a=ab;
2482C_check_for_interrupt;
2483if(!C_stack_probe(&a)){
2484C_save_and_reclaim((void*)trf_2263,NULL,4,t0,t1,t2,t3);}
2485t4=C_SCHEME_UNDEFINED;
2486t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
2487t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2266,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=((C_word)li45),tmp=(C_word)a,a+=5,tmp));
2488t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2299,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=((C_word)li46),tmp=(C_word)a,a+=5,tmp);
2489t8=C_SCHEME_UNDEFINED;
2490t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
2491t10=C_SCHEME_UNDEFINED;
2492t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
2493t12=C_SCHEME_UNDEFINED;
2494t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
2495t14=C_SCHEME_UNDEFINED;
2496t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
2497t16=C_SCHEME_UNDEFINED;
2498t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
2499t18=C_SCHEME_UNDEFINED;
2500t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
2501t20=C_SCHEME_UNDEFINED;
2502t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
2503t22=C_SCHEME_UNDEFINED;
2504t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
2505t24=C_SCHEME_UNDEFINED;
2506t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
2507t26=C_SCHEME_UNDEFINED;
2508t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
2509t28=C_SCHEME_UNDEFINED;
2510t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
2511t30=C_SCHEME_UNDEFINED;
2512t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp);
2513t32=C_SCHEME_UNDEFINED;
2514t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
2515t34=C_SCHEME_UNDEFINED;
2516t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
2517t36=C_SCHEME_UNDEFINED;
2518t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
2519t38=C_SCHEME_UNDEFINED;
2520t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp);
2521t40=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2331,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t11,a[6]=t15,a[7]=((C_word*)t0)[8],a[8]=((C_word)li48),tmp=(C_word)a,a+=9,tmp));
2522t41=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_2418,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=t39,a[5]=t13,a[6]=t19,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],a[9]=t11,a[10]=t9,a[11]=((C_word*)t0)[4],a[12]=((C_word)li49),tmp=(C_word)a,a+=13,tmp));
2523t42=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2483,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=t17,a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp));
2524t43=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2511,a[2]=((C_word*)t0)[8],a[3]=t17,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp));
2525t44=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2520,a[2]=((C_word*)t0)[8],a[3]=t7,a[4]=t9,a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp));
2526t45=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2597,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=t7,a[5]=t9,a[6]=t17,a[7]=((C_word)li57),tmp=(C_word)a,a+=8,tmp));
2527t46=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2745,a[2]=t11,a[3]=t15,a[4]=((C_word)li58),tmp=(C_word)a,a+=5,tmp));
2528t47=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2751,a[2]=t11,a[3]=t21,a[4]=t19,a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp));
2529t48=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2757,a[2]=t11,a[3]=t19,a[4]=((C_word)li60),tmp=(C_word)a,a+=5,tmp));
2530t49=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2763,a[2]=t21,a[3]=t13,a[4]=((C_word)li61),tmp=(C_word)a,a+=5,tmp));
2531t50=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2769,a[2]=t21,a[3]=t11,a[4]=t19,a[5]=((C_word)li62),tmp=(C_word)a,a+=6,tmp));
2532t51=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2775,a[2]=t11,a[3]=t13,a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp));
2533t52=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2781,a[2]=t11,a[3]=t21,a[4]=t19,a[5]=((C_word)li64),tmp=(C_word)a,a+=6,tmp));
2534t53=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2803,a[2]=t11,a[3]=t19,a[4]=((C_word)li65),tmp=(C_word)a,a+=5,tmp));
2535t54=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2809,a[2]=t11,a[3]=t21,a[4]=t19,a[5]=((C_word)li66),tmp=(C_word)a,a+=6,tmp));
2536t55=C_set_block_item(t39,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2818,a[2]=t37,a[3]=t35,a[4]=t33,a[5]=t31,a[6]=t29,a[7]=t27,a[8]=t25,a[9]=t23,a[10]=((C_word)li67),tmp=(C_word)a,a+=11,tmp));
2537/* extras.scm: 597  pr */
2538t56=((C_word*)t9)[1];
2539f_2331(t56,t1,t2,t3,C_fix(0),((C_word*)t11)[1]);}
2540
2541/* style in pp in ##extras#generic-write in k598 in k592 in k589 */
2542static void C_fcall f_2818(C_word t0,C_word t1,C_word t2){
2543C_word tmp;
2544C_word t3;
2545C_word t4;
2546C_word t5;
2547C_word t6;
2548C_word t7;
2549C_word ab[12],*a=ab;
2550C_check_for_interrupt;
2551if(!C_stack_probe(&a)){
2552C_save_and_reclaim((void*)trf_2818,NULL,3,t0,t1,t2);}
2553t3=(C_word)C_eqp(t2,lf[103]);
2554t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2828,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t2,a[10]=((C_word*)t0)[9],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
2555if(C_truep(t3)){
2556t5=t4;
2557f_2828(t5,t3);}
2558else{
2559t5=(C_word)C_eqp(t2,lf[113]);
2560if(C_truep(t5)){
2561t6=t4;
2562f_2828(t6,t5);}
2563else{
2564t6=(C_word)C_eqp(t2,lf[114]);
2565t7=t4;
2566f_2828(t7,(C_truep(t6)?t6:(C_word)C_eqp(t2,lf[115])));}}}
2567
2568/* k2826 in style in pp in ##extras#generic-write in k598 in k592 in k589 */
2569static void C_fcall f_2828(C_word t0,C_word t1){
2570C_word tmp;
2571C_word t2;
2572C_word t3;
2573C_word t4;
2574C_word t5;
2575C_word t6;
2576C_word t7;
2577C_word t8;
2578C_word t9;
2579C_word t10;
2580C_word t11;
2581C_word *a;
2582if(C_truep(t1)){
2583t2=((C_word*)t0)[11];
2584((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,((C_word*)((C_word*)t0)[10])[1]);}
2585else{
2586t2=(C_word)C_eqp(((C_word*)t0)[9],lf[104]);
2587t3=(C_truep(t2)?t2:(C_word)C_eqp(((C_word*)t0)[9],lf[105]));
2588if(C_truep(t3)){
2589t4=((C_word*)t0)[11];
2590((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,((C_word*)((C_word*)t0)[8])[1]);}
2591else{
2592t4=(C_word)C_eqp(((C_word*)t0)[9],lf[106]);
2593if(C_truep(t4)){
2594t5=((C_word*)t0)[11];
2595((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,((C_word*)((C_word*)t0)[7])[1]);}
2596else{
2597t5=(C_word)C_eqp(((C_word*)t0)[9],lf[107]);
2598if(C_truep(t5)){
2599t6=((C_word*)t0)[11];
2600((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,((C_word*)((C_word*)t0)[6])[1]);}
2601else{
2602t6=(C_word)C_eqp(((C_word*)t0)[9],lf[108]);
2603t7=(C_truep(t6)?t6:(C_word)C_eqp(((C_word*)t0)[9],lf[109]));
2604if(C_truep(t7)){
2605t8=((C_word*)t0)[11];
2606((C_proc2)(void*)(*((C_word*)t8+1)))(2,t8,((C_word*)((C_word*)t0)[5])[1]);}
2607else{
2608t8=(C_word)C_eqp(((C_word*)t0)[9],lf[110]);
2609if(C_truep(t8)){
2610t9=((C_word*)t0)[11];
2611((C_proc2)(void*)(*((C_word*)t9+1)))(2,t9,((C_word*)((C_word*)t0)[4])[1]);}
2612else{
2613t9=(C_word)C_eqp(((C_word*)t0)[9],lf[111]);
2614if(C_truep(t9)){
2615t10=((C_word*)t0)[11];
2616((C_proc2)(void*)(*((C_word*)t10+1)))(2,t10,((C_word*)((C_word*)t0)[3])[1]);}
2617else{
2618t10=(C_word)C_eqp(((C_word*)t0)[9],lf[112]);
2619t11=((C_word*)t0)[11];
2620((C_proc2)(void*)(*((C_word*)t11+1)))(2,t11,(C_truep(t10)?((C_word*)((C_word*)t0)[2])[1]:C_SCHEME_FALSE));}}}}}}}}
2621
2622/* pp-do in pp in ##extras#generic-write in k598 in k592 in k589 */
2623static void C_ccall f_2809(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2624C_word tmp;
2625C_word t5;
2626C_word *a;
2627if(c!=5) C_bad_argc_2(c,5,t0);
2628C_check_for_interrupt;
2629if(!C_stack_probe(&a)){
2630C_save_and_reclaim((void*)tr5,(void*)f_2809,5,t0,t1,t2,t3,t4);}
2631/* extras.scm: 575  pp-general */
2632t5=((C_word*)((C_word*)t0)[4])[1];
2633f_2597(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]);}
2634
2635/* pp-begin in pp in ##extras#generic-write in k598 in k592 in k589 */
2636static void C_ccall f_2803(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2637C_word tmp;
2638C_word t5;
2639C_word *a;
2640if(c!=5) C_bad_argc_2(c,5,t0);
2641C_check_for_interrupt;
2642if(!C_stack_probe(&a)){
2643C_save_and_reclaim((void*)tr5,(void*)f_2803,5,t0,t1,t2,t3,t4);}
2644/* extras.scm: 572  pp-general */
2645t5=((C_word*)((C_word*)t0)[3])[1];
2646f_2597(t5,t1,t2,t3,t4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1]);}
2647
2648/* pp-let in pp in ##extras#generic-write in k598 in k592 in k589 */
2649static void C_ccall f_2781(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2650C_word tmp;
2651C_word t5;
2652C_word t6;
2653C_word t7;
2654C_word t8;
2655C_word ab[9],*a=ab;
2656if(c!=5) C_bad_argc_2(c,5,t0);
2657C_check_for_interrupt;
2658if(!C_stack_probe(&a)){
2659C_save_and_reclaim((void*)tr5,(void*)f_2781,5,t0,t1,t2,t3,t4);}
2660t5=(C_word)C_i_cdr(t2);
2661t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t1,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
2662if(C_truep((C_word)C_i_pairp(t5))){
2663t7=(C_word)C_i_car(t5);
2664t8=t6;
2665f_2788(t8,(C_word)C_i_symbolp(t7));}
2666else{
2667t7=t6;
2668f_2788(t7,C_SCHEME_FALSE);}}
2669
2670/* k2786 in pp-let in pp in ##extras#generic-write in k598 in k592 in k589 */
2671static void C_fcall f_2788(C_word t0,C_word t1){
2672C_word tmp;
2673C_word t2;
2674C_word *a;
2675/* extras.scm: 569  pp-general */
2676t2=((C_word*)((C_word*)t0)[8])[1];
2677f_2597(t2,((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[4],t1,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1]);}
2678
2679/* pp-and in pp in ##extras#generic-write in k598 in k592 in k589 */
2680static void C_ccall f_2775(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2681C_word tmp;
2682C_word t5;
2683C_word *a;
2684if(c!=5) C_bad_argc_2(c,5,t0);
2685C_check_for_interrupt;
2686if(!C_stack_probe(&a)){
2687C_save_and_reclaim((void*)tr5,(void*)f_2775,5,t0,t1,t2,t3,t4);}
2688/* extras.scm: 564  pp-call */
2689t5=((C_word*)((C_word*)t0)[3])[1];
2690f_2483(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[2])[1]);}
2691
2692/* pp-case in pp in ##extras#generic-write in k598 in k592 in k589 */
2693static void C_ccall f_2769(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2694C_word tmp;
2695C_word t5;
2696C_word *a;
2697if(c!=5) C_bad_argc_2(c,5,t0);
2698C_check_for_interrupt;
2699if(!C_stack_probe(&a)){
2700C_save_and_reclaim((void*)tr5,(void*)f_2769,5,t0,t1,t2,t3,t4);}
2701/* extras.scm: 561  pp-general */
2702t5=((C_word*)((C_word*)t0)[4])[1];
2703f_2597(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1]);}
2704
2705/* pp-cond in pp in ##extras#generic-write in k598 in k592 in k589 */
2706static void C_ccall f_2763(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2707C_word tmp;
2708C_word t5;
2709C_word *a;
2710if(c!=5) C_bad_argc_2(c,5,t0);
2711C_check_for_interrupt;
2712if(!C_stack_probe(&a)){
2713C_save_and_reclaim((void*)tr5,(void*)f_2763,5,t0,t1,t2,t3,t4);}
2714/* extras.scm: 558  pp-call */
2715t5=((C_word*)((C_word*)t0)[3])[1];
2716f_2483(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[2])[1]);}
2717
2718/* pp-if in pp in ##extras#generic-write in k598 in k592 in k589 */
2719static void C_ccall f_2757(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2720C_word tmp;
2721C_word t5;
2722C_word *a;
2723if(c!=5) C_bad_argc_2(c,5,t0);
2724C_check_for_interrupt;
2725if(!C_stack_probe(&a)){
2726C_save_and_reclaim((void*)tr5,(void*)f_2757,5,t0,t1,t2,t3,t4);}
2727/* extras.scm: 555  pp-general */
2728t5=((C_word*)((C_word*)t0)[3])[1];
2729f_2597(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1]);}
2730
2731/* pp-lambda in pp in ##extras#generic-write in k598 in k592 in k589 */
2732static void C_ccall f_2751(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2733C_word tmp;
2734C_word t5;
2735C_word *a;
2736if(c!=5) C_bad_argc_2(c,5,t0);
2737C_check_for_interrupt;
2738if(!C_stack_probe(&a)){
2739C_save_and_reclaim((void*)tr5,(void*)f_2751,5,t0,t1,t2,t3,t4);}
2740/* extras.scm: 552  pp-general */
2741t5=((C_word*)((C_word*)t0)[4])[1];
2742f_2597(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[2])[1]);}
2743
2744/* pp-expr-list in pp in ##extras#generic-write in k598 in k592 in k589 */
2745static void C_ccall f_2745(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2746C_word tmp;
2747C_word t5;
2748C_word *a;
2749if(c!=5) C_bad_argc_2(c,5,t0);
2750C_check_for_interrupt;
2751if(!C_stack_probe(&a)){
2752C_save_and_reclaim((void*)tr5,(void*)f_2745,5,t0,t1,t2,t3,t4);}
2753/* extras.scm: 549  pp-list */
2754t5=((C_word*)((C_word*)t0)[3])[1];
2755f_2511(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[2])[1]);}
2756
2757/* pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2758static void C_fcall f_2597(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){
2759C_word tmp;
2760C_word t9;
2761C_word t10;
2762C_word t11;
2763C_word t12;
2764C_word t13;
2765C_word t14;
2766C_word t15;
2767C_word t16;
2768C_word ab[36],*a=ab;
2769C_check_for_interrupt;
2770if(!C_stack_probe(&a)){
2771C_save_and_reclaim((void*)trf_2597,NULL,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);}
2772t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2682,a[2]=t8,a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word)li54),tmp=(C_word)a,a+=6,tmp);
2773t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2641,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t9,a[5]=t4,a[6]=t7,a[7]=((C_word)li55),tmp=(C_word)a,a+=8,tmp);
2774t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2600,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t10,a[5]=t4,a[6]=t6,a[7]=((C_word)li56),tmp=(C_word)a,a+=8,tmp);
2775t12=(C_word)C_i_car(t2);
2776t13=(C_word)C_i_cdr(t2);
2777t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t11,a[6]=t3,a[7]=t13,a[8]=t5,tmp=(C_word)a,a+=9,tmp);
2778t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2743,a[2]=t12,a[3]=t14,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2779/* extras.scm: 540  out */
2780t16=((C_word*)t0)[2];
2781f_1741(t16,t15,lf[102],t3);}
2782
2783/* k2741 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2784static void C_ccall f_2743(C_word c,C_word t0,C_word t1){
2785C_word tmp;
2786C_word t2;
2787C_word *a;
2788/* extras.scm: 540  wr */
2789t2=((C_word*)((C_word*)t0)[4])[1];
2790f_1760(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
2791
2792/* k2693 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2793static void C_ccall f_2695(C_word c,C_word t0,C_word t1){
2794C_word tmp;
2795C_word t2;
2796C_word t3;
2797C_word t4;
2798C_word t5;
2799C_word t6;
2800C_word t7;
2801C_word t8;
2802C_word t9;
2803C_word ab[19],*a=ab;
2804C_check_for_interrupt;
2805if(!C_stack_probe(&a)){
2806C_save_and_reclaim((void*)tr2,(void*)f_2695,2,t0,t1);}
2807t2=(C_truep(((C_word*)t0)[8])?(C_word)C_i_pairp(((C_word*)t0)[7]):C_SCHEME_FALSE);
2808if(C_truep(t2)){
2809t3=(C_word)C_i_car(((C_word*)t0)[7]);
2810t4=(C_word)C_i_cdr(((C_word*)t0)[7]);
2811t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2710,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
2812t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2725,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2813/* extras.scm: 544  out */
2814t7=((C_word*)t0)[2];
2815f_1741(t7,t6,lf[101],t1);}
2816else{
2817t3=(C_word)C_a_i_plus(&a,2,((C_word*)t0)[6],C_fix(2));
2818t4=(C_word)C_a_i_plus(&a,2,t1,C_fix(1));
2819/* extras.scm: 546  tail1 */
2820t5=((C_word*)t0)[5];
2821f_2600(t5,((C_word*)t0)[4],((C_word*)t0)[7],t3,t1,t4);}}
2822
2823/* k2723 in k2693 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2824static void C_ccall f_2725(C_word c,C_word t0,C_word t1){
2825C_word tmp;
2826C_word t2;
2827C_word *a;
2828/* extras.scm: 544  wr */
2829t2=((C_word*)((C_word*)t0)[4])[1];
2830f_1760(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
2831
2832/* k2708 in k2693 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2833static void C_ccall f_2710(C_word c,C_word t0,C_word t1){
2834C_word tmp;
2835C_word t2;
2836C_word t3;
2837C_word t4;
2838C_word ab[8],*a=ab;
2839C_check_for_interrupt;
2840if(!C_stack_probe(&a)){
2841C_save_and_reclaim((void*)tr2,(void*)f_2710,2,t0,t1);}
2842t2=(C_word)C_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(2));
2843t3=(C_word)C_a_i_plus(&a,2,t1,C_fix(1));
2844/* extras.scm: 545  tail1 */
2845t4=((C_word*)t0)[4];
2846f_2600(t4,((C_word*)t0)[3],((C_word*)t0)[2],t2,t1,t3);}
2847
2848/* tail1 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2849static void C_fcall f_2600(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
2850C_word tmp;
2851C_word t6;
2852C_word t7;
2853C_word t8;
2854C_word t9;
2855C_word t10;
2856C_word t11;
2857C_word t12;
2858C_word t13;
2859C_word ab[18],*a=ab;
2860C_check_for_interrupt;
2861if(!C_stack_probe(&a)){
2862C_save_and_reclaim((void*)trf_2600,NULL,6,t0,t1,t2,t3,t4,t5);}
2863t6=(C_truep(((C_word*)t0)[6])?(C_word)C_i_pairp(t2):C_SCHEME_FALSE);
2864if(C_truep(t6)){
2865t7=(C_word)C_i_car(t2);
2866t8=(C_word)C_i_cdr(t2);
2867t9=(C_word)C_i_nullp(t8);
2868t10=(C_truep(t9)?(C_word)C_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)):C_fix(0));
2869t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2623,a[2]=t5,a[3]=t3,a[4]=t8,a[5]=t1,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
2870t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2627,a[2]=((C_word*)t0)[6],a[3]=t10,a[4]=t7,a[5]=t11,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
2871/* extras.scm: 524  indent */
2872t13=((C_word*)t0)[2];
2873f_2299(t13,t12,t5,t4);}
2874else{
2875/* extras.scm: 525  tail2 */
2876t7=((C_word*)t0)[4];
2877f_2641(t7,t1,t2,t3,t4,t5);}}
2878
2879/* k2625 in tail1 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2880static void C_ccall f_2627(C_word c,C_word t0,C_word t1){
2881C_word tmp;
2882C_word t2;
2883C_word *a;
2884/* extras.scm: 524  pr */
2885t2=((C_word*)((C_word*)t0)[6])[1];
2886f_2331(t2,((C_word*)t0)[5],((C_word*)t0)[4],t1,((C_word*)t0)[3],((C_word*)t0)[2]);}
2887
2888/* k2621 in tail1 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2889static void C_ccall f_2623(C_word c,C_word t0,C_word t1){
2890C_word tmp;
2891C_word t2;
2892C_word *a;
2893/* extras.scm: 524  tail2 */
2894t2=((C_word*)t0)[6];
2895f_2641(t2,((C_word*)t0)[5],((C_word*)t0)[4],((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2896
2897/* tail2 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2898static void C_fcall f_2641(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
2899C_word tmp;
2900C_word t6;
2901C_word t7;
2902C_word t8;
2903C_word t9;
2904C_word t10;
2905C_word t11;
2906C_word t12;
2907C_word t13;
2908C_word ab[17],*a=ab;
2909C_check_for_interrupt;
2910if(!C_stack_probe(&a)){
2911C_save_and_reclaim((void*)trf_2641,NULL,6,t0,t1,t2,t3,t4,t5);}
2912t6=(C_truep(((C_word*)t0)[6])?(C_word)C_i_pairp(t2):C_SCHEME_FALSE);
2913if(C_truep(t6)){
2914t7=(C_word)C_i_car(t2);
2915t8=(C_word)C_i_cdr(t2);
2916t9=(C_word)C_i_nullp(t8);
2917t10=(C_truep(t9)?(C_word)C_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)):C_fix(0));
2918t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2664,a[2]=t3,a[3]=t8,a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
2919t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2668,a[2]=((C_word*)t0)[6],a[3]=t10,a[4]=t7,a[5]=t11,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
2920/* extras.scm: 532  indent */
2921t13=((C_word*)t0)[2];
2922f_2299(t13,t12,t5,t4);}
2923else{
2924/* extras.scm: 533  tail3 */
2925t7=((C_word*)t0)[4];
2926f_2682(t7,t1,t2,t3,t4);}}
2927
2928/* k2666 in tail2 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2929static void C_ccall f_2668(C_word c,C_word t0,C_word t1){
2930C_word tmp;
2931C_word t2;
2932C_word *a;
2933/* extras.scm: 532  pr */
2934t2=((C_word*)((C_word*)t0)[6])[1];
2935f_2331(t2,((C_word*)t0)[5],((C_word*)t0)[4],t1,((C_word*)t0)[3],((C_word*)t0)[2]);}
2936
2937/* k2662 in tail2 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2938static void C_ccall f_2664(C_word c,C_word t0,C_word t1){
2939C_word tmp;
2940C_word t2;
2941C_word *a;
2942/* extras.scm: 532  tail3 */
2943t2=((C_word*)t0)[5];
2944f_2682(t2,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2],t1);}
2945
2946/* tail3 in pp-general in pp in ##extras#generic-write in k598 in k592 in k589 */
2947static void C_fcall f_2682(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2948C_word tmp;
2949C_word t5;
2950C_word *a;
2951C_check_for_interrupt;
2952if(!C_stack_probe(&a)){
2953C_save_and_reclaim((void*)trf_2682,NULL,5,t0,t1,t2,t3,t4);}
2954/* extras.scm: 536  pp-down */
2955t5=((C_word*)((C_word*)t0)[4])[1];
2956f_2520(t5,t1,t2,t4,t3,((C_word*)t0)[3],((C_word*)t0)[2]);}
2957
2958/* pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
2959static void C_fcall f_2520(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
2960C_word tmp;
2961C_word t7;
2962C_word t8;
2963C_word t9;
2964C_word t10;
2965C_word ab[12],*a=ab;
2966C_check_for_interrupt;
2967if(!C_stack_probe(&a)){
2968C_save_and_reclaim((void*)trf_2520,NULL,7,t0,t1,t2,t3,t4,t5,t6);}
2969t7=C_SCHEME_UNDEFINED;
2970t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
2971t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2526,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=t8,a[8]=t5,a[9]=((C_word)li52),tmp=(C_word)a,a+=10,tmp));
2972t10=((C_word*)t8)[1];
2973f_2526(t10,t1,t2,t3);}
2974
2975/* loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
2976static void C_fcall f_2526(C_word t0,C_word t1,C_word t2,C_word t3){
2977C_word tmp;
2978C_word t4;
2979C_word t5;
2980C_word t6;
2981C_word t7;
2982C_word t8;
2983C_word t9;
2984C_word t10;
2985C_word t11;
2986C_word t12;
2987C_word t13;
2988C_word t14;
2989C_word ab[36],*a=ab;
2990C_check_for_interrupt;
2991if(!C_stack_probe(&a)){
2992C_save_and_reclaim((void*)trf_2526,NULL,4,t0,t1,t2,t3);}
2993if(C_truep(t3)){
2994if(C_truep((C_word)C_i_pairp(t2))){
2995t4=(C_word)C_i_cdr(t2);
2996t5=(C_word)C_i_nullp(t4);
2997t6=(C_truep(t5)?(C_word)C_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1)):C_fix(0));
2998t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2549,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
2999t8=(C_word)C_i_car(t2);
3000t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2557,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=t8,a[5]=t7,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
3001/* extras.scm: 507  indent */
3002t10=((C_word*)t0)[4];
3003f_2299(t10,t9,((C_word*)t0)[3],t3);}
3004else{
3005if(C_truep((C_word)C_i_nullp(t2))){
3006/* extras.scm: 509  out */
3007t4=((C_word*)t0)[2];
3008f_1741(t4,t1,lf[98],t3);}
3009else{
3010t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2579,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
3011t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2583,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
3012t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2591,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
3013t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2595,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
3014/* extras.scm: 513  indent */
3015t8=((C_word*)t0)[4];
3016f_2299(t8,t7,((C_word*)t0)[3],t3);}}}
3017else{
3018t4=t1;
3019((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_FALSE);}}
3020
3021/* k2593 in loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
3022static void C_ccall f_2595(C_word c,C_word t0,C_word t1){
3023C_word tmp;
3024C_word t2;
3025C_word *a;
3026/* extras.scm: 513  out */
3027t2=((C_word*)t0)[3];
3028f_1741(t2,((C_word*)t0)[2],lf[100],t1);}
3029
3030/* k2589 in loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
3031static void C_ccall f_2591(C_word c,C_word t0,C_word t1){
3032C_word tmp;
3033C_word t2;
3034C_word *a;
3035/* extras.scm: 513  indent */
3036t2=((C_word*)t0)[4];
3037f_2299(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
3038
3039/* k2581 in loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
3040static void C_ccall f_2583(C_word c,C_word t0,C_word t1){
3041C_word tmp;
3042C_word t2;
3043C_word t3;
3044C_word ab[4],*a=ab;
3045C_check_for_interrupt;
3046if(!C_stack_probe(&a)){
3047C_save_and_reclaim((void*)tr2,(void*)f_2583,2,t0,t1);}
3048t2=(C_word)C_a_i_plus(&a,2,((C_word*)t0)[6],C_fix(1));
3049/* extras.scm: 512  pr */
3050t3=((C_word*)((C_word*)t0)[5])[1];
3051f_2331(t3,((C_word*)t0)[4],((C_word*)t0)[3],t1,t2,((C_word*)t0)[2]);}
3052
3053/* k2577 in loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
3054static void C_ccall f_2579(C_word c,C_word t0,C_word t1){
3055C_word tmp;
3056C_word t2;
3057C_word *a;
3058/* extras.scm: 511  out */
3059t2=((C_word*)t0)[3];
3060f_1741(t2,((C_word*)t0)[2],lf[99],t1);}
3061
3062/* k2555 in loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
3063static void C_ccall f_2557(C_word c,C_word t0,C_word t1){
3064C_word tmp;
3065C_word t2;
3066C_word *a;
3067/* extras.scm: 507  pr */
3068t2=((C_word*)((C_word*)t0)[6])[1];
3069f_2331(t2,((C_word*)t0)[5],((C_word*)t0)[4],t1,((C_word*)t0)[3],((C_word*)t0)[2]);}
3070
3071/* k2547 in loop in pp-down in pp in ##extras#generic-write in k598 in k592 in k589 */
3072static void C_ccall f_2549(C_word c,C_word t0,C_word t1){
3073C_word tmp;
3074C_word t2;
3075C_word *a;
3076/* extras.scm: 506  loop */
3077t2=((C_word*)((C_word*)t0)[4])[1];
3078f_2526(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
3079
3080/* pp-list in pp in ##extras#generic-write in k598 in k592 in k589 */
3081static void C_fcall f_2511(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
3082C_word tmp;
3083C_word t6;
3084C_word t7;
3085C_word ab[7],*a=ab;
3086C_check_for_interrupt;
3087if(!C_stack_probe(&a)){
3088C_save_and_reclaim((void*)trf_2511,NULL,6,t0,t1,t2,t3,t4,t5);}
3089t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2515,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
3090/* extras.scm: 497  out */
3091t7=((C_word*)t0)[2];
3092f_1741(t7,t6,lf[97],t3);}
3093
3094/* k2513 in pp-list in pp in ##extras#generic-write in k598 in k592 in k589 */
3095static void C_ccall f_2515(C_word c,C_word t0,C_word t1){
3096C_word tmp;
3097C_word t2;
3098C_word *a;
3099/* extras.scm: 498  pp-down */
3100t2=((C_word*)((C_word*)t0)[6])[1];
3101f_2520(t2,((C_word*)t0)[5],((C_word*)t0)[4],t1,t1,((C_word*)t0)[3],((C_word*)t0)[2]);}
3102
3103/* pp-call in pp in ##extras#generic-write in k598 in k592 in k589 */
3104static void C_fcall f_2483(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
3105C_word tmp;
3106C_word t6;
3107C_word t7;
3108C_word t8;
3109C_word t9;
3110C_word ab[13],*a=ab;
3111C_check_for_interrupt;
3112if(!C_stack_probe(&a)){
3113C_save_and_reclaim((void*)trf_2483,NULL,6,t0,t1,t2,t3,t4,t5);}
3114t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2487,a[2]=t5,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
3115t7=(C_word)C_i_car(t2);
3116t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2509,a[2]=t7,a[3]=t6,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
3117/* extras.scm: 489  out */
3118t9=((C_word*)t0)[2];
3119f_1741(t9,t8,lf[96],t3);}
3120
3121/* k2507 in pp-call in pp in ##extras#generic-write in k598 in k592 in k589 */
3122static void C_ccall f_2509(C_word c,C_word t0,C_word t1){
3123C_word tmp;
3124C_word t2;
3125C_word *a;
3126/* extras.scm: 489  wr */
3127t2=((C_word*)((C_word*)t0)[4])[1];
3128f_1760(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
3129
3130/* k2485 in pp-call in pp in ##extras#generic-write in k598 in k592 in k589 */
3131static void C_ccall f_2487(C_word c,C_word t0,C_word t1){
3132C_word tmp;
3133C_word t2;
3134C_word t3;
3135C_word t4;
3136C_word ab[4],*a=ab;
3137C_check_for_interrupt;
3138if(!C_stack_probe(&a)){
3139C_save_and_reclaim((void*)tr2,(void*)f_2487,2,t0,t1);}
3140if(C_truep(((C_word*)t0)[7])){
3141t2=(C_word)C_i_cdr(((C_word*)t0)[6]);
3142t3=(C_word)C_a_i_plus(&a,2,t1,C_fix(1));
3143/* extras.scm: 491  pp-down */
3144t4=((C_word*)((C_word*)t0)[5])[1];
3145f_2520(t4,((C_word*)t0)[4],t2,t1,t3,((C_word*)t0)[3],((C_word*)t0)[2]);}
3146else{
3147t2=((C_word*)t0)[4];
3148((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_FALSE);}}
3149
3150/* pp-expr in pp in ##extras#generic-write in k598 in k592 in k589 */
3151static void C_ccall f_2418(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
3152C_word tmp;
3153C_word t5;
3154C_word t6;
3155C_word ab[15],*a=ab;
3156if(c!=5) C_bad_argc_2(c,5,t0);
3157C_check_for_interrupt;
3158if(!C_stack_probe(&a)){
3159C_save_and_reclaim((void*)tr5,(void*)f_2418,5,t0,t1,t2,t3,t4);}
3160t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_2425,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t4,a[11]=t1,a[12]=((C_word*)t0)[10],a[13]=t2,a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp);
3161/* extras.scm: 469  read-macro? */
3162f_1650(t5,t2);}
3163
3164/* k2423 in pp-expr in pp in ##extras#generic-write in k598 in k592 in k589 */
3165static void C_ccall f_2425(C_word c,C_word t0,C_word t1){
3166C_word tmp;
3167C_word t2;
3168C_word t3;
3169C_word t4;
3170C_word t5;
3171C_word t6;
3172C_word t7;
3173C_word ab[17],*a=ab;
3174C_check_for_interrupt;
3175if(!C_stack_probe(&a)){
3176C_save_and_reclaim((void*)tr2,(void*)f_2425,2,t0,t1);}
3177if(C_truep(t1)){
3178t2=f_1702(((C_word*)t0)[13]);
3179t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2436,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp);
3180t4=f_1708(((C_word*)t0)[13]);
3181/* extras.scm: 471  out */
3182t5=((C_word*)t0)[7];
3183f_1741(t5,t3,t4,((C_word*)t0)[6]);}
3184else{
3185t2=(C_word)C_i_car(((C_word*)t0)[13]);
3186if(C_truep((C_word)C_i_symbolp(t2))){
3187t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2452,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp);
3188/* extras.scm: 476  style */
3189t4=((C_word*)((C_word*)t0)[3])[1];
3190f_2818(t4,t3,t2);}
3191else{
3192/* extras.scm: 483  pp-list */
3193t3=((C_word*)((C_word*)t0)[2])[1];
3194f_2511(t3,((C_word*)t0)[11],((C_word*)t0)[13],((C_word*)t0)[6],((C_word*)t0)[10],((C_word*)((C_word*)t0)[9])[1]);}}}
3195
3196/* k2450 in k2423 in pp-expr in pp in ##extras#generic-write in k598 in k592 in k589 */
3197static void C_ccall f_2452(C_word c,C_word t0,C_word t1){
3198C_word tmp;
3199C_word t2;
3200C_word t3;
3201C_word ab[9],*a=ab;
3202C_check_for_interrupt;
3203if(!C_stack_probe(&a)){
3204C_save_and_reclaim((void*)tr2,(void*)f_2452,2,t0,t1);}
3205if(C_truep(t1)){
3206/* extras.scm: 478  proc */
3207t2=t1;
3208((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[9],((C_word*)t0)[8],((C_word*)t0)[7],((C_word*)t0)[6]);}
3209else{
3210t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2478,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
3211/* extras.scm: 479  ##sys#symbol->qualified-string */
3212t3=*((C_word*)lf[95]+1);
3213((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,((C_word*)t0)[2]);}}
3214
3215/* k2476 in k2450 in k2423 in pp-expr in pp in ##extras#generic-write in k598 in k592 in k589 */
3216static void C_ccall f_2478(C_word c,C_word t0,C_word t1){
3217C_word tmp;
3218C_word t2;
3219C_word t3;
3220C_word *a;
3221t2=(C_word)C_i_string_length(t1);
3222if(C_truep((C_word)C_i_greaterp(t2,C_fix(5)))){
3223/* extras.scm: 481  pp-general */
3224t3=((C_word*)((C_word*)t0)[8])[1];
3225f_2597(t3,((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]);}
3226else{
3227/* extras.scm: 482  pp-call */
3228t3=((C_word*)((C_word*)t0)[2])[1];
3229f_2483(t3,((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[4],((C_word*)((C_word*)t0)[3])[1]);}}
3230
3231/* k2434 in k2423 in pp-expr in pp in ##extras#generic-write in k598 in k592 in k589 */
3232static void C_ccall f_2436(C_word c,C_word t0,C_word t1){
3233C_word tmp;
3234C_word t2;
3235C_word *a;
3236/* extras.scm: 470  pr */
3237t2=((C_word*)((C_word*)t0)[6])[1];
3238f_2331(t2,((C_word*)t0)[5],((C_word*)t0)[4],t1,((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);}
3239
3240/* pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3241static void C_fcall f_2331(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
3242C_word tmp;
3243C_word t6;
3244C_word t7;
3245C_word t8;
3246C_word t9;
3247C_word t10;
3248C_word t11;
3249C_word t12;
3250C_word t13;
3251C_word t14;
3252C_word ab[26],*a=ab;
3253C_check_for_interrupt;
3254if(!C_stack_probe(&a)){
3255C_save_and_reclaim((void*)trf_2331,NULL,6,t0,t1,t2,t3,t4,t5);}
3256t6=(C_word)C_i_pairp(t2);
3257t7=(C_truep(t6)?t6:(C_word)C_i_vectorp(t2));
3258if(C_truep(t7)){
3259t8=C_SCHEME_END_OF_LIST;
3260t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
3261t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2344,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t4,a[6]=t5,a[7]=t2,a[8]=t9,a[9]=t3,a[10]=t1,a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
3262t11=(C_word)C_a_i_minus(&a,2,((C_word*)t0)[3],t3);
3263t12=(C_word)C_a_i_minus(&a,2,t11,t4);
3264t13=(C_word)C_a_i_plus(&a,2,t12,C_fix(1));
3265/* extras.scm: 455  max */
3266t14=*((C_word*)lf[94]+1);
3267((C_proc4)(void*)(*((C_word*)t14+1)))(4,t14,t10,t13,C_fix(50));}
3268else{
3269/* extras.scm: 466  wr */
3270t8=((C_word*)((C_word*)t0)[2])[1];
3271f_1760(t8,t1,t2,t3);}}
3272
3273/* k2342 in pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3274static void C_ccall f_2344(C_word c,C_word t0,C_word t1){
3275C_word tmp;
3276C_word t2;
3277C_word t3;
3278C_word t4;
3279C_word t5;
3280C_word t6;
3281C_word ab[19],*a=ab;
3282C_check_for_interrupt;
3283if(!C_stack_probe(&a)){
3284C_save_and_reclaim((void*)tr2,(void*)f_2344,2,t0,t1);}
3285t2=t1;
3286t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3287t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2347,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t3,tmp=(C_word)a,a+=12,tmp);
3288t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2382,a[2]=t3,a[3]=((C_word*)t0)[8],a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp);
3289/* extras.scm: 456  generic-write */
3290t6=*((C_word*)lf[42]+1);
3291((C_proc6)C_retrieve_proc(t6))(6,t6,t4,((C_word*)t0)[7],((C_word*)t0)[2],C_SCHEME_FALSE,t5);}
3292
3293/* a2381 in k2342 in pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3294static void C_ccall f_2382(C_word c,C_word t0,C_word t1,C_word t2){
3295C_word tmp;
3296C_word t3;
3297C_word t4;
3298C_word t5;
3299C_word t6;
3300C_word t7;
3301C_word t8;
3302C_word ab[7],*a=ab;
3303if(c!=3) C_bad_argc_2(c,3,t0);
3304C_check_for_interrupt;
3305if(!C_stack_probe(&a)){
3306C_save_and_reclaim((void*)tr3,(void*)f_2382,3,t0,t1,t2);}
3307t3=(C_word)C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]);
3308t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
3309t5=(C_word)C_i_string_length(t2);
3310t6=(C_word)C_a_i_minus(&a,2,((C_word*)((C_word*)t0)[2])[1],t5);
3311t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
3312t8=t1;
3313((C_proc2)(void*)(*((C_word*)t8+1)))(2,t8,(C_word)C_i_greaterp(((C_word*)((C_word*)t0)[2])[1],C_fix(0)));}
3314
3315/* k2345 in k2342 in pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3316static void C_ccall f_2347(C_word c,C_word t0,C_word t1){
3317C_word tmp;
3318C_word t2;
3319C_word t3;
3320C_word t4;
3321C_word ab[13],*a=ab;
3322C_check_for_interrupt;
3323if(!C_stack_probe(&a)){
3324C_save_and_reclaim((void*)tr2,(void*)f_2347,2,t0,t1);}
3325if(C_truep((C_word)C_i_greaterp(((C_word*)((C_word*)t0)[11])[1],C_fix(0)))){
3326t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2360,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
3327/* extras.scm: 462  reverse-string-append */
3328t3=*((C_word*)lf[92]+1);
3329((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)((C_word*)t0)[7])[1]);}
3330else{
3331if(C_truep((C_word)C_i_pairp(((C_word*)t0)[6]))){
3332/* extras.scm: 464  pp-pair */
3333t2=((C_word*)t0)[5];
3334((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[9],((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[4]);}
3335else{
3336t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2376,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
3337/* extras.scm: 465  vector->list */
3338t3=*((C_word*)lf[59]+1);
3339((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,((C_word*)t0)[6]);}}}
3340
3341/* k2374 in k2345 in k2342 in pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3342static void C_ccall f_2376(C_word c,C_word t0,C_word t1){
3343C_word tmp;
3344C_word t2;
3345C_word t3;
3346C_word ab[7],*a=ab;
3347C_check_for_interrupt;
3348if(!C_stack_probe(&a)){
3349C_save_and_reclaim((void*)tr2,(void*)f_2376,2,t0,t1);}
3350t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2380,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
3351/* extras.scm: 465  out */
3352t3=((C_word*)t0)[3];
3353f_1741(t3,t2,lf[93],((C_word*)t0)[2]);}
3354
3355/* k2378 in k2374 in k2345 in k2342 in pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3356static void C_ccall f_2380(C_word c,C_word t0,C_word t1){
3357C_word tmp;
3358C_word t2;
3359C_word *a;
3360/* extras.scm: 465  pp-list */
3361t2=((C_word*)((C_word*)t0)[6])[1];
3362f_2511(t2,((C_word*)t0)[5],((C_word*)t0)[4],t1,((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);}
3363
3364/* k2358 in k2345 in k2342 in pr in pp in ##extras#generic-write in k598 in k592 in k589 */
3365static void C_ccall f_2360(C_word c,C_word t0,C_word t1){
3366C_word tmp;
3367C_word t2;
3368C_word *a;
3369/* extras.scm: 462  out */
3370t2=((C_word*)t0)[4];
3371f_1741(t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
3372
3373/* indent in pp in ##extras#generic-write in k598 in k592 in k589 */
3374static void C_fcall f_2299(C_word t0,C_word t1,C_word t2,C_word t3){
3375C_word tmp;
3376C_word t4;
3377C_word t5;
3378C_word t6;
3379C_word t7;
3380C_word ab[14],*a=ab;
3381C_check_for_interrupt;
3382if(!C_stack_probe(&a)){
3383C_save_and_reclaim((void*)trf_2299,NULL,4,t0,t1,t2,t3);}
3384if(C_truep(t3)){
3385if(C_truep((C_word)C_i_lessp(t2,t3))){
3386t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2315,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
3387t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2322,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
3388/* extras.scm: 449  make-string */
3389t6=*((C_word*)lf[16]+1);
3390((C_proc4)(void*)(*((C_word*)t6+1)))(4,t6,t5,C_fix(1),C_make_character(10));}
3391else{
3392t4=(C_word)C_a_i_minus(&a,2,t2,t3);
3393/* extras.scm: 450  spaces */
3394t5=((C_word*)((C_word*)t0)[3])[1];
3395f_2266(t5,t1,t4,t3);}}
3396else{
3397t4=t1;
3398((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_FALSE);}}
3399
3400/* k2320 in indent in pp in ##extras#generic-write in k598 in k592 in k589 */
3401static void C_ccall f_2322(C_word c,C_word t0,C_word t1){
3402C_word tmp;
3403C_word t2;
3404C_word *a;
3405/* extras.scm: 449  out */
3406t2=((C_word*)t0)[4];
3407f_1741(t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
3408
3409/* k2313 in indent in pp in ##extras#generic-write in k598 in k592 in k589 */
3410static void C_ccall f_2315(C_word c,C_word t0,C_word t1){
3411C_word tmp;
3412C_word t2;
3413C_word *a;
3414if(C_truep(t1)){
3415/* extras.scm: 449  spaces */
3416t2=((C_word*)((C_word*)t0)[4])[1];
3417f_2266(t2,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
3418else{
3419t2=((C_word*)t0)[3];
3420((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_FALSE);}}
3421
3422/* spaces in pp in ##extras#generic-write in k598 in k592 in k589 */
3423static void C_fcall f_2266(C_word t0,C_word t1,C_word t2,C_word t3){
3424C_word tmp;
3425C_word t4;
3426C_word t5;
3427C_word t6;
3428C_word t7;
3429C_word ab[14],*a=ab;
3430C_check_for_interrupt;
3431if(!C_stack_probe(&a)){
3432C_save_and_reclaim((void*)trf_2266,NULL,4,t0,t1,t2,t3);}
3433if(C_truep((C_word)C_i_greaterp(t2,C_fix(0)))){
3434if(C_truep((C_word)C_i_greaterp(t2,C_fix(7)))){
3435t4=(C_word)C_a_i_minus(&a,2,t2,C_fix(8));
3436t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2290,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
3437/* extras.scm: 442  out */
3438t6=((C_word*)t0)[2];
3439f_1741(t6,t5,lf[90],t3);}
3440else{
3441t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2297,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
3442/* extras.scm: 443  ##sys#substring */
3443t5=*((C_word*)lf[18]+1);
3444((C_proc5)(void*)(*((C_word*)t5+1)))(5,t5,t4,lf[91],C_fix(0),t2);}}
3445else{
3446t4=t1;
3447((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}}
3448
3449/* k2295 in spaces in pp in ##extras#generic-write in k598 in k592 in k589 */
3450static void C_ccall f_2297(C_word c,C_word t0,C_word t1){
3451C_word tmp;
3452C_word t2;
3453C_word *a;
3454/* extras.scm: 443  out */
3455t2=((C_word*)t0)[4];
3456f_1741(t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
3457
3458/* k2288 in spaces in pp in ##extras#generic-write in k598 in k592 in k589 */
3459static void C_ccall f_2290(C_word c,C_word t0,C_word t1){
3460C_word tmp;
3461C_word t2;
3462C_word *a;
3463/* extras.scm: 442  spaces */
3464t2=((C_word*)((C_word*)t0)[4])[1];
3465f_2266(t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
3466
3467/* wr in ##extras#generic-write in k598 in k592 in k589 */
3468static void C_fcall f_1760(C_word t0,C_word t1,C_word t2,C_word t3){
3469C_word tmp;
3470C_word t4;
3471C_word t5;
3472C_word t6;
3473C_word t7;
3474C_word t8;
3475C_word t9;
3476C_word ab[29],*a=ab;
3477C_check_for_interrupt;
3478if(!C_stack_probe(&a)){
3479C_save_and_reclaim((void*)trf_1760,NULL,4,t0,t1,t2,t3);}
3480t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1790,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp);
3481t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1763,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[7],a[8]=((C_word)li42),tmp=(C_word)a,a+=9,tmp);
3482if(C_truep((C_word)C_i_pairp(t2))){
3483/* extras.scm: 375  wr-expr */
3484t6=t5;
3485f_1763(t6,t1,t2,t3);}
3486else{
3487if(C_truep((C_word)C_i_nullp(t2))){
3488/* extras.scm: 376  wr-lst */
3489t6=t4;
3490f_1790(t6,t1,t2,t3);}
3491else{
3492if(C_truep((C_word)C_eofp(t2))){
3493/* extras.scm: 377  out */
3494t6=((C_word*)t0)[8];
3495f_1741(t6,t1,lf[57],t3);}
3496else{
3497if(C_truep((C_word)C_i_vectorp(t2))){
3498t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1916,a[2]=t3,a[3]=((C_word*)t0)[8],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
3499/* extras.scm: 378  vector->list */
3500t7=*((C_word*)lf[59]+1);
3501((C_proc3)(void*)(*((C_word*)t7+1)))(3,t7,t6,t2);}
3502else{
3503if(C_truep((C_word)C_booleanp(t2))){
3504t6=(C_truep(t2)?lf[60]:lf[61]);
3505/* extras.scm: 379  out */
3506t7=((C_word*)t0)[8];
3507f_1741(t7,t1,t6,t3);}
3508else{
3509t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=t1,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
3510/* extras.scm: 380  ##sys#number? */
3511t7=*((C_word*)lf[89]+1);
3512((C_proc3)(void*)(*((C_word*)t7+1)))(3,t7,t6,t2);}}}}}}
3513
3514/* k1937 in wr in ##extras#generic-write in k598 in k592 in k589 */
3515static void C_ccall f_1939(C_word c,C_word t0,C_word t1){
3516C_word tmp;
3517C_word t2;
3518C_word t3;
3519C_word t4;
3520C_word t5;
3521C_word t6;
3522C_word t7;
3523C_word t8;
3524C_word t9;
3525C_word t10;
3526C_word t11;
3527C_word t12;
3528C_word t13;
3529C_word t14;
3530C_word ab[52],*a=ab;
3531C_check_for_interrupt;
3532if(!C_stack_probe(&a)){
3533C_save_and_reclaim((void*)tr2,(void*)f_1939,2,t0,t1);}
3534if(C_truep(t1)){
3535t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1946,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
3536/* extras.scm: 380  ##sys#number->string */
3537t3=*((C_word*)lf[62]+1);
3538((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,((C_word*)t0)[5]);}
3539else{
3540if(C_truep((C_word)C_i_symbolp(((C_word*)t0)[5]))){
3541t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1955,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
3542/* extras.scm: 382  open-output-string */
3543t3