1 /* Generated from support.scm by the CHICKEN compiler
2    http://www.call-cc.org
3    Version 5.3.0rc4 ((HEAD detached at 5.3.0rc4)) (rev b6cbb1ba)
4    linux-unix-gnu-x86-64 [ 64bit dload ptables ]
5    command line: support.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.support -output-file support.c
6    unit: support
7    uses: eval expand data-structures port pathname internal extras file library
8 */
9 #include "chicken.h"
10 
11 static C_PTABLE_ENTRY *create_ptable(void);
12 C_noret_decl(C_eval_toplevel)
13 C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret;
14 C_noret_decl(C_expand_toplevel)
15 C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
16 C_noret_decl(C_data_2dstructures_toplevel)
17 C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret;
18 C_noret_decl(C_port_toplevel)
19 C_externimport void C_ccall C_port_toplevel(C_word c,C_word *av) C_noret;
20 C_noret_decl(C_pathname_toplevel)
21 C_externimport void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret;
22 C_noret_decl(C_internal_toplevel)
23 C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
24 C_noret_decl(C_extras_toplevel)
25 C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret;
26 C_noret_decl(C_file_toplevel)
27 C_externimport void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret;
28 C_noret_decl(C_library_toplevel)
29 C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;
30 
31 static C_TLS C_word lf[550];
32 static double C_possibly_force_alignment;
33 
34 
35 #define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
stub4284(C_word C_buf,C_word C_a0)36 C_regparm static C_word C_fcall stub4284(C_word C_buf,C_word C_a0){
37 C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
38 C_word lit=(C_word )(C_a0);
39 return(C_header_size(lit));
40 C_ret:
41 #undef return
42 
43 return C_r;}
44 
45 /* from k7329 */
stub932(C_word C_buf,C_word C_a0)46 C_regparm static C_word C_fcall stub932(C_word C_buf,C_word C_a0){
47 C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
48 int t0=(int )C_unfix(C_a0);
49 C_r=C_fix((C_word)C_wordstobytes(t0));
50 return C_r;}
51 
52 /* from k7322 */
stub927(C_word C_buf,C_word C_a0)53 C_regparm static C_word C_fcall stub927(C_word C_buf,C_word C_a0){
54 C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
55 int t0=(int )C_unfix(C_a0);
56 C_r=C_fix((C_word)C_bytestowords(t0));
57 return C_r;}
58 
59 C_noret_decl(f19850)
60 static void C_ccall f19850(C_word c,C_word *av) C_noret;
61 C_noret_decl(f_10004)
62 static void C_ccall f_10004(C_word c,C_word *av) C_noret;
63 C_noret_decl(f_10032)
64 static void C_ccall f_10032(C_word c,C_word *av) C_noret;
65 C_noret_decl(f_10056)
66 static void C_ccall f_10056(C_word c,C_word *av) C_noret;
67 C_noret_decl(f_10090)
68 static void C_ccall f_10090(C_word c,C_word *av) C_noret;
69 C_noret_decl(f_10094)
70 static void C_ccall f_10094(C_word c,C_word *av) C_noret;
71 C_noret_decl(f_10104)
72 static void C_fcall f_10104(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
73 C_noret_decl(f_10128)
74 static void C_ccall f_10128(C_word c,C_word *av) C_noret;
75 C_noret_decl(f_10143)
76 static void C_ccall f_10143(C_word c,C_word *av) C_noret;
77 C_noret_decl(f_10155)
78 static void C_ccall f_10155(C_word c,C_word *av) C_noret;
79 C_noret_decl(f_10180)
80 static void C_fcall f_10180(C_word t0,C_word t1,C_word t2) C_noret;
81 C_noret_decl(f_10205)
82 static void C_ccall f_10205(C_word c,C_word *av) C_noret;
83 C_noret_decl(f_10235)
84 static void C_ccall f_10235(C_word c,C_word *av) C_noret;
85 C_noret_decl(f_10237)
86 static void C_fcall f_10237(C_word t0,C_word t1,C_word t2) C_noret;
87 C_noret_decl(f_10262)
88 static void C_ccall f_10262(C_word c,C_word *av) C_noret;
89 C_noret_decl(f_10293)
90 static void C_fcall f_10293(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
91 C_noret_decl(f_10305)
92 static void C_ccall f_10305(C_word c,C_word *av) C_noret;
93 C_noret_decl(f_10309)
94 static void C_ccall f_10309(C_word c,C_word *av) C_noret;
95 C_noret_decl(f_10332)
96 static void C_ccall f_10332(C_word c,C_word *av) C_noret;
97 C_noret_decl(f_10343)
98 static void C_fcall f_10343(C_word t0,C_word t1) C_noret;
99 C_noret_decl(f_10350)
100 static void C_ccall f_10350(C_word c,C_word *av) C_noret;
101 C_noret_decl(f_10361)
102 static void C_ccall f_10361(C_word c,C_word *av) C_noret;
103 C_noret_decl(f_10363)
104 static void C_fcall f_10363(C_word t0,C_word t1,C_word t2) C_noret;
105 C_noret_decl(f_10388)
106 static void C_ccall f_10388(C_word c,C_word *av) C_noret;
107 C_noret_decl(f_10418)
108 static void C_ccall f_10418(C_word c,C_word *av) C_noret;
109 C_noret_decl(f_10420)
110 static void C_fcall f_10420(C_word t0,C_word t1,C_word t2) C_noret;
111 C_noret_decl(f_10445)
112 static void C_ccall f_10445(C_word c,C_word *av) C_noret;
113 C_noret_decl(f_10459)
114 static void C_ccall f_10459(C_word c,C_word *av) C_noret;
115 C_noret_decl(f_10469)
116 static void C_ccall f_10469(C_word c,C_word *av) C_noret;
117 C_noret_decl(f_10471)
118 static void C_fcall f_10471(C_word t0,C_word t1,C_word t2) C_noret;
119 C_noret_decl(f_10496)
120 static void C_ccall f_10496(C_word c,C_word *av) C_noret;
121 C_noret_decl(f_10569)
122 static void C_ccall f_10569(C_word c,C_word *av) C_noret;
123 C_noret_decl(f_10575)
124 static void C_fcall f_10575(C_word t0,C_word t1,C_word t2) C_noret;
125 C_noret_decl(f_10601)
126 static void C_ccall f_10601(C_word c,C_word *av) C_noret;
127 C_noret_decl(f_10605)
128 static void C_ccall f_10605(C_word c,C_word *av) C_noret;
129 C_noret_decl(f_10621)
130 static void C_ccall f_10621(C_word c,C_word *av) C_noret;
131 C_noret_decl(f_10627)
132 static void C_ccall f_10627(C_word c,C_word *av) C_noret;
133 C_noret_decl(f_10633)
134 static void C_ccall f_10633(C_word c,C_word *av) C_noret;
135 C_noret_decl(f_10639)
136 static void C_ccall f_10639(C_word c,C_word *av) C_noret;
137 C_noret_decl(f_10643)
138 static void C_ccall f_10643(C_word c,C_word *av) C_noret;
139 C_noret_decl(f_10646)
140 static void C_ccall f_10646(C_word c,C_word *av) C_noret;
141 C_noret_decl(f_10660)
142 static void C_ccall f_10660(C_word c,C_word *av) C_noret;
143 C_noret_decl(f_10663)
144 static void C_ccall f_10663(C_word c,C_word *av) C_noret;
145 C_noret_decl(f_10666)
146 static void C_ccall f_10666(C_word c,C_word *av) C_noret;
147 C_noret_decl(f_10673)
148 static void C_ccall f_10673(C_word c,C_word *av) C_noret;
149 C_noret_decl(f_10675)
150 static void C_fcall f_10675(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
151 C_noret_decl(f_10690)
152 static void C_fcall f_10690(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
153 C_noret_decl(f_10723)
154 static void C_ccall f_10723(C_word c,C_word *av) C_noret;
155 C_noret_decl(f_10751)
156 static void C_ccall f_10751(C_word c,C_word *av) C_noret;
157 C_noret_decl(f_10755)
158 static void C_ccall f_10755(C_word c,C_word *av) C_noret;
159 C_noret_decl(f_10779)
160 static void C_ccall f_10779(C_word c,C_word *av) C_noret;
161 C_noret_decl(f_10811)
162 static void C_ccall f_10811(C_word c,C_word *av) C_noret;
163 C_noret_decl(f_10820)
164 static void C_fcall f_10820(C_word t0,C_word t1,C_word t2) C_noret;
165 C_noret_decl(f_10824)
166 static void C_ccall f_10824(C_word c,C_word *av) C_noret;
167 C_noret_decl(f_10830)
168 static void C_ccall f_10830(C_word c,C_word *av) C_noret;
169 C_noret_decl(f_10836)
170 static void C_ccall f_10836(C_word c,C_word *av) C_noret;
171 C_noret_decl(f_10839)
172 static void C_ccall f_10839(C_word c,C_word *av) C_noret;
173 C_noret_decl(f_10844)
174 static void C_fcall f_10844(C_word t0,C_word t1,C_word t2) C_noret;
175 C_noret_decl(f_10854)
176 static void C_ccall f_10854(C_word c,C_word *av) C_noret;
177 C_noret_decl(f_10869)
178 static void C_ccall f_10869(C_word c,C_word *av) C_noret;
179 C_noret_decl(f_10871)
180 static void C_fcall f_10871(C_word t0,C_word t1,C_word t2) C_noret;
181 C_noret_decl(f_10896)
182 static void C_ccall f_10896(C_word c,C_word *av) C_noret;
183 C_noret_decl(f_10917)
184 static void C_fcall f_10917(C_word t0,C_word t1,C_word t2) C_noret;
185 C_noret_decl(f_10942)
186 static void C_ccall f_10942(C_word c,C_word *av) C_noret;
187 C_noret_decl(f_10964)
188 static void C_ccall f_10964(C_word c,C_word *av) C_noret;
189 C_noret_decl(f_10972)
190 static void C_fcall f_10972(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
191 C_noret_decl(f_11023)
192 static void C_ccall f_11023(C_word c,C_word *av) C_noret;
193 C_noret_decl(f_11030)
194 static void C_ccall f_11030(C_word c,C_word *av) C_noret;
195 C_noret_decl(f_11033)
196 static void C_ccall f_11033(C_word c,C_word *av) C_noret;
197 C_noret_decl(f_11062)
198 static void C_ccall f_11062(C_word c,C_word *av) C_noret;
199 C_noret_decl(f_11070)
200 static void C_ccall f_11070(C_word c,C_word *av) C_noret;
201 C_noret_decl(f_11086)
202 static void C_ccall f_11086(C_word c,C_word *av) C_noret;
203 C_noret_decl(f_11089)
204 static void C_ccall f_11089(C_word c,C_word *av) C_noret;
205 C_noret_decl(f_11095)
206 static void C_ccall f_11095(C_word c,C_word *av) C_noret;
207 C_noret_decl(f_11115)
208 static void C_ccall f_11115(C_word c,C_word *av) C_noret;
209 C_noret_decl(f_11138)
210 static void C_ccall f_11138(C_word c,C_word *av) C_noret;
211 C_noret_decl(f_11143)
212 static void C_fcall f_11143(C_word t0,C_word t1,C_word t2) C_noret;
213 C_noret_decl(f_11147)
214 static void C_ccall f_11147(C_word c,C_word *av) C_noret;
215 C_noret_decl(f_11150)
216 static void C_ccall f_11150(C_word c,C_word *av) C_noret;
217 C_noret_decl(f_11156)
218 static void C_ccall f_11156(C_word c,C_word *av) C_noret;
219 C_noret_decl(f_11159)
220 static void C_ccall f_11159(C_word c,C_word *av) C_noret;
221 C_noret_decl(f_11176)
222 static void C_fcall f_11176(C_word t0,C_word t1,C_word t2) C_noret;
223 C_noret_decl(f_11186)
224 static void C_ccall f_11186(C_word c,C_word *av) C_noret;
225 C_noret_decl(f_11188)
226 static void C_fcall f_11188(C_word t0,C_word t1,C_word t2) C_noret;
227 C_noret_decl(f_11213)
228 static void C_ccall f_11213(C_word c,C_word *av) C_noret;
229 C_noret_decl(f_11224)
230 static void C_ccall f_11224(C_word c,C_word *av) C_noret;
231 C_noret_decl(f_11232)
232 static void C_ccall f_11232(C_word c,C_word *av) C_noret;
233 C_noret_decl(f_11240)
234 static void C_ccall f_11240(C_word c,C_word *av) C_noret;
235 C_noret_decl(f_11253)
236 static void C_ccall f_11253(C_word c,C_word *av) C_noret;
237 C_noret_decl(f_11255)
238 static void C_fcall f_11255(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
239 C_noret_decl(f_11303)
240 static void C_fcall f_11303(C_word t0,C_word t1,C_word t2) C_noret;
241 C_noret_decl(f_11328)
242 static void C_ccall f_11328(C_word c,C_word *av) C_noret;
243 C_noret_decl(f_11347)
244 static void C_ccall f_11347(C_word c,C_word *av) C_noret;
245 C_noret_decl(f_11352)
246 static void C_fcall f_11352(C_word t0,C_word t1,C_word t2) C_noret;
247 C_noret_decl(f_11362)
248 static void C_ccall f_11362(C_word c,C_word *av) C_noret;
249 C_noret_decl(f_11364)
250 static void C_fcall f_11364(C_word t0,C_word t1,C_word t2) C_noret;
251 C_noret_decl(f_11389)
252 static void C_ccall f_11389(C_word c,C_word *av) C_noret;
253 C_noret_decl(f_11411)
254 static void C_fcall f_11411(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
255 C_noret_decl(f_11462)
256 static void C_fcall f_11462(C_word t0,C_word t1,C_word t2) C_noret;
257 C_noret_decl(f_11506)
258 static void C_ccall f_11506(C_word c,C_word *av) C_noret;
259 C_noret_decl(f_11553)
260 static void C_ccall f_11553(C_word c,C_word *av) C_noret;
261 C_noret_decl(f_11581)
262 static void C_ccall f_11581(C_word c,C_word *av) C_noret;
263 C_noret_decl(f_11585)
264 static void C_ccall f_11585(C_word c,C_word *av) C_noret;
265 C_noret_decl(f_11589)
266 static void C_ccall f_11589(C_word c,C_word *av) C_noret;
267 C_noret_decl(f_11608)
268 static void C_ccall f_11608(C_word c,C_word *av) C_noret;
269 C_noret_decl(f_11620)
270 static void C_ccall f_11620(C_word c,C_word *av) C_noret;
271 C_noret_decl(f_11622)
272 static void C_fcall f_11622(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
273 C_noret_decl(f_11664)
274 static void C_fcall f_11664(C_word t0,C_word t1,C_word t2) C_noret;
275 C_noret_decl(f_11674)
276 static void C_ccall f_11674(C_word c,C_word *av) C_noret;
277 C_noret_decl(f_11696)
278 static void C_ccall f_11696(C_word c,C_word *av) C_noret;
279 C_noret_decl(f_11723)
280 static void C_ccall f_11723(C_word c,C_word *av) C_noret;
281 C_noret_decl(f_11743)
282 static void C_fcall f_11743(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
283 C_noret_decl(f_11796)
284 static void C_ccall f_11796(C_word c,C_word *av) C_noret;
285 C_noret_decl(f_11843)
286 static void C_ccall f_11843(C_word c,C_word *av) C_noret;
287 C_noret_decl(f_11860)
288 static void C_ccall f_11860(C_word c,C_word *av) C_noret;
289 C_noret_decl(f_11866)
290 static void C_fcall f_11866(C_word t0,C_word t1,C_word t2) C_noret;
291 C_noret_decl(f_11880)
292 static void C_ccall f_11880(C_word c,C_word *av) C_noret;
293 C_noret_decl(f_11884)
294 static void C_ccall f_11884(C_word c,C_word *av) C_noret;
295 C_noret_decl(f_11890)
296 static void C_ccall f_11890(C_word c,C_word *av) C_noret;
297 C_noret_decl(f_11928)
298 static void C_ccall f_11928(C_word c,C_word *av) C_noret;
299 C_noret_decl(f_11932)
300 static void C_ccall f_11932(C_word c,C_word *av) C_noret;
301 C_noret_decl(f_11935)
302 static void C_ccall f_11935(C_word c,C_word *av) C_noret;
303 C_noret_decl(f_11938)
304 static void C_ccall f_11938(C_word c,C_word *av) C_noret;
305 C_noret_decl(f_11973)
306 static void C_fcall f_11973(C_word t0,C_word t1,C_word t2) C_noret;
307 C_noret_decl(f_12017)
308 static void C_ccall f_12017(C_word c,C_word *av) C_noret;
309 C_noret_decl(f_12019)
310 static void C_fcall f_12019(C_word t0,C_word t1,C_word t2) C_noret;
311 C_noret_decl(f_12044)
312 static void C_ccall f_12044(C_word c,C_word *av) C_noret;
313 C_noret_decl(f_12059)
314 static void C_fcall f_12059(C_word t0,C_word t1,C_word t2) C_noret;
315 C_noret_decl(f_12088)
316 static void C_ccall f_12088(C_word c,C_word *av) C_noret;
317 C_noret_decl(f_12090)
318 static void C_fcall f_12090(C_word t0,C_word t1,C_word t2) C_noret;
319 C_noret_decl(f_12115)
320 static void C_ccall f_12115(C_word c,C_word *av) C_noret;
321 C_noret_decl(f_12124)
322 static void C_ccall f_12124(C_word c,C_word *av) C_noret;
323 C_noret_decl(f_12127)
324 static void C_fcall f_12127(C_word t0,C_word t1,C_word t2) C_noret;
325 C_noret_decl(f_12133)
326 static void C_ccall f_12133(C_word c,C_word *av) C_noret;
327 C_noret_decl(f_12181)
328 static void C_ccall f_12181(C_word c,C_word *av) C_noret;
329 C_noret_decl(f_12184)
330 static void C_ccall f_12184(C_word c,C_word *av) C_noret;
331 C_noret_decl(f_12190)
332 static void C_ccall f_12190(C_word c,C_word *av) C_noret;
333 C_noret_decl(f_12198)
334 static void C_ccall f_12198(C_word c,C_word *av) C_noret;
335 C_noret_decl(f_12206)
336 static void C_fcall f_12206(C_word t0,C_word t1,C_word t2) C_noret;
337 C_noret_decl(f_12216)
338 static void C_ccall f_12216(C_word c,C_word *av) C_noret;
339 C_noret_decl(f_12235)
340 static void C_ccall f_12235(C_word c,C_word *av) C_noret;
341 C_noret_decl(f_12239)
342 static void C_ccall f_12239(C_word c,C_word *av) C_noret;
343 C_noret_decl(f_12244)
344 static void C_ccall f_12244(C_word c,C_word *av) C_noret;
345 C_noret_decl(f_12250)
346 static void C_ccall f_12250(C_word c,C_word *av) C_noret;
347 C_noret_decl(f_12253)
348 static void C_ccall f_12253(C_word c,C_word *av) C_noret;
349 C_noret_decl(f_12258)
350 static void C_fcall f_12258(C_word t0,C_word t1,C_word t2) C_noret;
351 C_noret_decl(f_12268)
352 static void C_ccall f_12268(C_word c,C_word *av) C_noret;
353 C_noret_decl(f_12283)
354 static void C_ccall f_12283(C_word c,C_word *av) C_noret;
355 C_noret_decl(f_12285)
356 static void C_ccall f_12285(C_word c,C_word *av) C_noret;
357 C_noret_decl(f_12292)
358 static void C_ccall f_12292(C_word c,C_word *av) C_noret;
359 C_noret_decl(f_12313)
360 static void C_fcall f_12313(C_word t0,C_word t1) C_noret;
361 C_noret_decl(f_12347)
362 static void C_ccall f_12347(C_word c,C_word *av) C_noret;
363 C_noret_decl(f_12350)
364 static void C_fcall f_12350(C_word t0,C_word t1) C_noret;
365 C_noret_decl(f_12375)
366 static void C_ccall f_12375(C_word c,C_word *av) C_noret;
367 C_noret_decl(f_12381)
368 static void C_ccall f_12381(C_word c,C_word *av) C_noret;
369 C_noret_decl(f_12407)
370 static void C_ccall f_12407(C_word c,C_word *av) C_noret;
371 C_noret_decl(f_12440)
372 static void C_ccall f_12440(C_word c,C_word *av) C_noret;
373 C_noret_decl(f_12442)
374 static void C_ccall f_12442(C_word c,C_word *av) C_noret;
375 C_noret_decl(f_12448)
376 static void C_ccall f_12448(C_word c,C_word *av) C_noret;
377 C_noret_decl(f_12454)
378 static void C_fcall f_12454(C_word t0,C_word t1) C_noret;
379 C_noret_decl(f_12458)
380 static void C_ccall f_12458(C_word c,C_word *av) C_noret;
381 C_noret_decl(f_12481)
382 static void C_ccall f_12481(C_word c,C_word *av) C_noret;
383 C_noret_decl(f_12492)
384 static void C_ccall f_12492(C_word c,C_word *av) C_noret;
385 C_noret_decl(f_12498)
386 static void C_ccall f_12498(C_word c,C_word *av) C_noret;
387 C_noret_decl(f_12501)
388 static void C_fcall f_12501(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
389 C_noret_decl(f_12509)
390 static C_word C_fcall f_12509(C_word t0,C_word t1);
391 C_noret_decl(f_12535)
392 static void C_fcall f_12535(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
393 C_noret_decl(f_12557)
394 static void C_ccall f_12557(C_word c,C_word *av) C_noret;
395 C_noret_decl(f_12582)
396 static void C_fcall f_12582(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
397 C_noret_decl(f_12604)
398 static void C_ccall f_12604(C_word c,C_word *av) C_noret;
399 C_noret_decl(f_12622)
400 static void C_fcall f_12622(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
401 C_noret_decl(f_12653)
402 static void C_ccall f_12653(C_word c,C_word *av) C_noret;
403 C_noret_decl(f_12705)
404 static void C_ccall f_12705(C_word c,C_word *av) C_noret;
405 C_noret_decl(f_12711)
406 static void C_ccall f_12711(C_word c,C_word *av) C_noret;
407 C_noret_decl(f_12731)
408 static void C_ccall f_12731(C_word c,C_word *av) C_noret;
409 C_noret_decl(f_12737)
410 static void C_ccall f_12737(C_word c,C_word *av) C_noret;
411 C_noret_decl(f_12763)
412 static void C_fcall f_12763(C_word t0,C_word t1) C_noret;
413 C_noret_decl(f_12777)
414 static void C_fcall f_12777(C_word t0,C_word t1,C_word t2) C_noret;
415 C_noret_decl(f_12785)
416 static void C_ccall f_12785(C_word c,C_word *av) C_noret;
417 C_noret_decl(f_12840)
418 static void C_ccall f_12840(C_word c,C_word *av) C_noret;
419 C_noret_decl(f_12869)
420 static void C_ccall f_12869(C_word c,C_word *av) C_noret;
421 C_noret_decl(f_12966)
422 static void C_ccall f_12966(C_word c,C_word *av) C_noret;
423 C_noret_decl(f_12972)
424 static void C_ccall f_12972(C_word c,C_word *av) C_noret;
425 C_noret_decl(f_12979)
426 static void C_fcall f_12979(C_word t0,C_word t1) C_noret;
427 C_noret_decl(f_12982)
428 static void C_ccall f_12982(C_word c,C_word *av) C_noret;
429 C_noret_decl(f_13005)
430 static void C_ccall f_13005(C_word c,C_word *av) C_noret;
431 C_noret_decl(f_13007)
432 static void C_ccall f_13007(C_word c,C_word *av) C_noret;
433 C_noret_decl(f_13013)
434 static void C_ccall f_13013(C_word c,C_word *av) C_noret;
435 C_noret_decl(f_13020)
436 static void C_fcall f_13020(C_word t0,C_word t1) C_noret;
437 C_noret_decl(f_13023)
438 static void C_ccall f_13023(C_word c,C_word *av) C_noret;
439 C_noret_decl(f_13042)
440 static void C_ccall f_13042(C_word c,C_word *av) C_noret;
441 C_noret_decl(f_13044)
442 static void C_ccall f_13044(C_word c,C_word *av) C_noret;
443 C_noret_decl(f_13050)
444 static void C_ccall f_13050(C_word c,C_word *av) C_noret;
445 C_noret_decl(f_13063)
446 static void C_ccall f_13063(C_word c,C_word *av) C_noret;
447 C_noret_decl(f_13091)
448 static void C_ccall f_13091(C_word c,C_word *av) C_noret;
449 C_noret_decl(f_13093)
450 static void C_ccall f_13093(C_word c,C_word *av) C_noret;
451 C_noret_decl(f_13114)
452 static void C_ccall f_13114(C_word c,C_word *av) C_noret;
453 C_noret_decl(f_13121)
454 static void C_ccall f_13121(C_word c,C_word *av) C_noret;
455 C_noret_decl(f_13127)
456 static void C_ccall f_13127(C_word c,C_word *av) C_noret;
457 C_noret_decl(f_13133)
458 static void C_ccall f_13133(C_word c,C_word *av) C_noret;
459 C_noret_decl(f_13142)
460 static void C_ccall f_13142(C_word c,C_word *av) C_noret;
461 C_noret_decl(f_13151)
462 static void C_ccall f_13151(C_word c,C_word *av) C_noret;
463 C_noret_decl(f_13160)
464 static void C_ccall f_13160(C_word c,C_word *av) C_noret;
465 C_noret_decl(f_13169)
466 static void C_ccall f_13169(C_word c,C_word *av) C_noret;
467 C_noret_decl(f_13178)
468 static void C_ccall f_13178(C_word c,C_word *av) C_noret;
469 C_noret_decl(f_13204)
470 static void C_ccall f_13204(C_word c,C_word *av) C_noret;
471 C_noret_decl(f_13207)
472 static void C_ccall f_13207(C_word c,C_word *av) C_noret;
473 C_noret_decl(f_13218)
474 static void C_ccall f_13218(C_word c,C_word *av) C_noret;
475 C_noret_decl(f_13220)
476 static void C_ccall f_13220(C_word c,C_word *av) C_noret;
477 C_noret_decl(f_13274)
478 static void C_ccall f_13274(C_word c,C_word *av) C_noret;
479 C_noret_decl(f_13280)
480 static void C_ccall f_13280(C_word c,C_word *av) C_noret;
481 C_noret_decl(f_13286)
482 static void C_ccall f_13286(C_word c,C_word *av) C_noret;
483 C_noret_decl(f_13292)
484 static void C_fcall f_13292(C_word t0,C_word t1,C_word t2) C_noret;
485 C_noret_decl(f_13317)
486 static void C_fcall f_13317(C_word t0,C_word t1) C_noret;
487 C_noret_decl(f_13332)
488 static void C_fcall f_13332(C_word t0,C_word t1) C_noret;
489 C_noret_decl(f_13350)
490 static void C_ccall f_13350(C_word c,C_word *av) C_noret;
491 C_noret_decl(f_13400)
492 static void C_ccall f_13400(C_word c,C_word *av) C_noret;
493 C_noret_decl(f_13415)
494 static void C_fcall f_13415(C_word t0,C_word t1) C_noret;
495 C_noret_decl(f_13455)
496 static void C_fcall f_13455(C_word t0,C_word t1) C_noret;
497 C_noret_decl(f_13458)
498 static void C_ccall f_13458(C_word c,C_word *av) C_noret;
499 C_noret_decl(f_13473)
500 static void C_fcall f_13473(C_word t0,C_word t1) C_noret;
501 C_noret_decl(f_13497)
502 static void C_fcall f_13497(C_word t0,C_word t1) C_noret;
503 C_noret_decl(f_13523)
504 static void C_fcall f_13523(C_word t0,C_word t1) C_noret;
505 C_noret_decl(f_13529)
506 static void C_ccall f_13529(C_word c,C_word *av) C_noret;
507 C_noret_decl(f_13535)
508 static void C_ccall f_13535(C_word c,C_word *av) C_noret;
509 C_noret_decl(f_13538)
510 static void C_ccall f_13538(C_word c,C_word *av) C_noret;
511 C_noret_decl(f_13541)
512 static void C_ccall f_13541(C_word c,C_word *av) C_noret;
513 C_noret_decl(f_13544)
514 static void C_ccall f_13544(C_word c,C_word *av) C_noret;
515 C_noret_decl(f_13566)
516 static void C_fcall f_13566(C_word t0,C_word t1) C_noret;
517 C_noret_decl(f_13572)
518 static void C_ccall f_13572(C_word c,C_word *av) C_noret;
519 C_noret_decl(f_13578)
520 static void C_ccall f_13578(C_word c,C_word *av) C_noret;
521 C_noret_decl(f_13581)
522 static void C_ccall f_13581(C_word c,C_word *av) C_noret;
523 C_noret_decl(f_13584)
524 static void C_ccall f_13584(C_word c,C_word *av) C_noret;
525 C_noret_decl(f_13587)
526 static void C_ccall f_13587(C_word c,C_word *av) C_noret;
527 C_noret_decl(f_13610)
528 static void C_fcall f_13610(C_word t0,C_word t1) C_noret;
529 C_noret_decl(f_13613)
530 static void C_ccall f_13613(C_word c,C_word *av) C_noret;
531 C_noret_decl(f_13654)
532 static void C_fcall f_13654(C_word t0,C_word t1) C_noret;
533 C_noret_decl(f_13657)
534 static void C_ccall f_13657(C_word c,C_word *av) C_noret;
535 C_noret_decl(f_13672)
536 static void C_fcall f_13672(C_word t0,C_word t1) C_noret;
537 C_noret_decl(f_13699)
538 static void C_fcall f_13699(C_word t0,C_word t1) C_noret;
539 C_noret_decl(f_13742)
540 static void C_ccall f_13742(C_word c,C_word *av) C_noret;
541 C_noret_decl(f_13746)
542 static void C_fcall f_13746(C_word t0,C_word t1,C_word t2) C_noret;
543 C_noret_decl(f_13773)
544 static void C_fcall f_13773(C_word t0,C_word t1) C_noret;
545 C_noret_decl(f_13776)
546 static void C_ccall f_13776(C_word c,C_word *av) C_noret;
547 C_noret_decl(f_13811)
548 static void C_ccall f_13811(C_word c,C_word *av) C_noret;
549 C_noret_decl(f_13847)
550 static void C_ccall f_13847(C_word c,C_word *av) C_noret;
551 C_noret_decl(f_14350)
552 static void C_ccall f_14350(C_word c,C_word *av) C_noret;
553 C_noret_decl(f_14356)
554 static void C_fcall f_14356(C_word t0,C_word t1) C_noret;
555 C_noret_decl(f_14366)
556 static void C_ccall f_14366(C_word c,C_word *av) C_noret;
557 C_noret_decl(f_14377)
558 static void C_fcall f_14377(C_word t0,C_word t1) C_noret;
559 C_noret_decl(f_14387)
560 static void C_ccall f_14387(C_word c,C_word *av) C_noret;
561 C_noret_decl(f_14398)
562 static void C_ccall f_14398(C_word c,C_word *av) C_noret;
563 C_noret_decl(f_14402)
564 static void C_ccall f_14402(C_word c,C_word *av) C_noret;
565 C_noret_decl(f_14413)
566 static void C_ccall f_14413(C_word c,C_word *av) C_noret;
567 C_noret_decl(f_14417)
568 static void C_ccall f_14417(C_word c,C_word *av) C_noret;
569 C_noret_decl(f_14428)
570 static void C_ccall f_14428(C_word c,C_word *av) C_noret;
571 C_noret_decl(f_14434)
572 static void C_ccall f_14434(C_word c,C_word *av) C_noret;
573 C_noret_decl(f_14438)
574 static void C_ccall f_14438(C_word c,C_word *av) C_noret;
575 C_noret_decl(f_14442)
576 static void C_fcall f_14442(C_word t0,C_word t1,C_word t2) C_noret;
577 C_noret_decl(f_14461)
578 static void C_ccall f_14461(C_word c,C_word *av) C_noret;
579 C_noret_decl(f_14467)
580 static void C_ccall f_14467(C_word c,C_word *av) C_noret;
581 C_noret_decl(f_14470)
582 static void C_fcall f_14470(C_word t0,C_word t1) C_noret;
583 C_noret_decl(f_14479)
584 static void C_ccall f_14479(C_word c,C_word *av) C_noret;
585 C_noret_decl(f_14489)
586 static void C_fcall f_14489(C_word t0,C_word t1) C_noret;
587 C_noret_decl(f_14498)
588 static void C_fcall f_14498(C_word t0,C_word t1) C_noret;
589 C_noret_decl(f_14510)
590 static void C_fcall f_14510(C_word t0,C_word t1) C_noret;
591 C_noret_decl(f_14522)
592 static void C_fcall f_14522(C_word t0,C_word t1) C_noret;
593 C_noret_decl(f_14534)
594 static void C_fcall f_14534(C_word t0,C_word t1) C_noret;
595 C_noret_decl(f_14540)
596 static void C_ccall f_14540(C_word c,C_word *av) C_noret;
597 C_noret_decl(f_14544)
598 static void C_fcall f_14544(C_word t0,C_word t1,C_word t2) C_noret;
599 C_noret_decl(f_14571)
600 static void C_fcall f_14571(C_word t0,C_word t1) C_noret;
601 C_noret_decl(f_14936)
602 static void C_ccall f_14936(C_word c,C_word *av) C_noret;
603 C_noret_decl(f_14942)
604 static void C_ccall f_14942(C_word c,C_word *av) C_noret;
605 C_noret_decl(f_14954)
606 static void C_ccall f_14954(C_word c,C_word *av) C_noret;
607 C_noret_decl(f_14964)
608 static void C_fcall f_14964(C_word t0,C_word t1) C_noret;
609 C_noret_decl(f_14976)
610 static void C_fcall f_14976(C_word t0,C_word t1) C_noret;
611 C_noret_decl(f_14982)
612 static void C_ccall f_14982(C_word c,C_word *av) C_noret;
613 C_noret_decl(f_14986)
614 static void C_fcall f_14986(C_word t0,C_word t1,C_word t2) C_noret;
615 C_noret_decl(f_15013)
616 static void C_fcall f_15013(C_word t0,C_word t1) C_noret;
617 C_noret_decl(f_15386)
618 static void C_ccall f_15386(C_word c,C_word *av) C_noret;
619 C_noret_decl(f_15392)
620 static void C_ccall f_15392(C_word c,C_word *av) C_noret;
621 C_noret_decl(f_15396)
622 static void C_ccall f_15396(C_word c,C_word *av) C_noret;
623 C_noret_decl(f_15512)
624 static void C_fcall f_15512(C_word t0,C_word t1) C_noret;
625 C_noret_decl(f_15540)
626 static void C_ccall f_15540(C_word c,C_word *av) C_noret;
627 C_noret_decl(f_15660)
628 static void C_ccall f_15660(C_word c,C_word *av) C_noret;
629 C_noret_decl(f_15667)
630 static void C_ccall f_15667(C_word c,C_word *av) C_noret;
631 C_noret_decl(f_15670)
632 static void C_ccall f_15670(C_word c,C_word *av) C_noret;
633 C_noret_decl(f_15673)
634 static void C_ccall f_15673(C_word c,C_word *av) C_noret;
635 C_noret_decl(f_15697)
636 static void C_fcall f_15697(C_word t0,C_word t1) C_noret;
637 C_noret_decl(f_15772)
638 static void C_fcall f_15772(C_word t0,C_word t1) C_noret;
639 C_noret_decl(f_15859)
640 static void C_fcall f_15859(C_word t0,C_word t1) C_noret;
641 C_noret_decl(f_15892)
642 static void C_fcall f_15892(C_word t0,C_word t1) C_noret;
643 C_noret_decl(f_15910)
644 static void C_fcall f_15910(C_word t0,C_word t1) C_noret;
645 C_noret_decl(f_15932)
646 static void C_fcall f_15932(C_word t0,C_word t1) C_noret;
647 C_noret_decl(f_16314)
648 static void C_ccall f_16314(C_word c,C_word *av) C_noret;
649 C_noret_decl(f_16318)
650 static void C_ccall f_16318(C_word c,C_word *av) C_noret;
651 C_noret_decl(f_16320)
652 static void C_fcall f_16320(C_word t0,C_word t1,C_word t2) C_noret;
653 C_noret_decl(f_16352)
654 static void C_fcall f_16352(C_word t0,C_word t1) C_noret;
655 C_noret_decl(f_16360)
656 static void C_fcall f_16360(C_word t0,C_word t1,C_word t2) C_noret;
657 C_noret_decl(f_16370)
658 static void C_ccall f_16370(C_word c,C_word *av) C_noret;
659 C_noret_decl(f_16416)
660 static void C_fcall f_16416(C_word t0,C_word t1) C_noret;
661 C_noret_decl(f_16424)
662 static void C_fcall f_16424(C_word t0,C_word t1,C_word t2) C_noret;
663 C_noret_decl(f_16434)
664 static void C_ccall f_16434(C_word c,C_word *av) C_noret;
665 C_noret_decl(f_16469)
666 static void C_ccall f_16469(C_word c,C_word *av) C_noret;
667 C_noret_decl(f_16472)
668 static void C_fcall f_16472(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
669 C_noret_decl(f_16506)
670 static void C_fcall f_16506(C_word t0,C_word t1) C_noret;
671 C_noret_decl(f_16525)
672 static void C_ccall f_16525(C_word c,C_word *av) C_noret;
673 C_noret_decl(f_16531)
674 static void C_ccall f_16531(C_word c,C_word *av) C_noret;
675 C_noret_decl(f_16535)
676 static void C_ccall f_16535(C_word c,C_word *av) C_noret;
677 C_noret_decl(f_16561)
678 static void C_ccall f_16561(C_word c,C_word *av) C_noret;
679 C_noret_decl(f_16570)
680 static void C_ccall f_16570(C_word c,C_word *av) C_noret;
681 C_noret_decl(f_16581)
682 static void C_ccall f_16581(C_word c,C_word *av) C_noret;
683 C_noret_decl(f_16600)
684 static void C_ccall f_16600(C_word c,C_word *av) C_noret;
685 C_noret_decl(f_16612)
686 static void C_ccall f_16612(C_word c,C_word *av) C_noret;
687 C_noret_decl(f_16656)
688 static void C_fcall f_16656(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
689 C_noret_decl(f_16658)
690 static void C_fcall f_16658(C_word t0,C_word t1,C_word t2) C_noret;
691 C_noret_decl(f_16670)
692 static void C_fcall f_16670(C_word t0,C_word t1,C_word t2) C_noret;
693 C_noret_decl(f_16680)
694 static void C_ccall f_16680(C_word c,C_word *av) C_noret;
695 C_noret_decl(f_16694)
696 static void C_ccall f_16694(C_word c,C_word *av) C_noret;
697 C_noret_decl(f_16699)
698 static void C_ccall f_16699(C_word c,C_word *av) C_noret;
699 C_noret_decl(f_16723)
700 static void C_ccall f_16723(C_word c,C_word *av) C_noret;
701 C_noret_decl(f_16729)
702 static void C_ccall f_16729(C_word c,C_word *av) C_noret;
703 C_noret_decl(f_16735)
704 static void C_ccall f_16735(C_word c,C_word *av) C_noret;
705 C_noret_decl(f_16744)
706 static void C_ccall f_16744(C_word c,C_word *av) C_noret;
707 C_noret_decl(f_16752)
708 static void C_ccall f_16752(C_word c,C_word *av) C_noret;
709 C_noret_decl(f_16758)
710 static void C_ccall f_16758(C_word c,C_word *av) C_noret;
711 C_noret_decl(f_16761)
712 static void C_ccall f_16761(C_word c,C_word *av) C_noret;
713 C_noret_decl(f_16764)
714 static void C_ccall f_16764(C_word c,C_word *av) C_noret;
715 C_noret_decl(f_16767)
716 static void C_ccall f_16767(C_word c,C_word *av) C_noret;
717 C_noret_decl(f_16770)
718 static void C_ccall f_16770(C_word c,C_word *av) C_noret;
719 C_noret_decl(f_16775)
720 static void C_ccall f_16775(C_word c,C_word *av) C_noret;
721 C_noret_decl(f_16779)
722 static void C_ccall f_16779(C_word c,C_word *av) C_noret;
723 C_noret_decl(f_16791)
724 static void C_ccall f_16791(C_word c,C_word *av) C_noret;
725 C_noret_decl(f_16796)
726 static void C_ccall f_16796(C_word c,C_word *av) C_noret;
727 C_noret_decl(f_16798)
728 static void C_ccall f_16798(C_word c,C_word *av) C_noret;
729 C_noret_decl(f_16804)
730 static void C_ccall f_16804(C_word c,C_word *av) C_noret;
731 C_noret_decl(f_16811)
732 static void C_ccall f_16811(C_word c,C_word *av) C_noret;
733 C_noret_decl(f_16814)
734 static void C_fcall f_16814(C_word t0,C_word t1) C_noret;
735 C_noret_decl(f_16818)
736 static void C_ccall f_16818(C_word c,C_word *av) C_noret;
737 C_noret_decl(f_16824)
738 static void C_ccall f_16824(C_word c,C_word *av) C_noret;
739 C_noret_decl(f_16830)
740 static void C_ccall f_16830(C_word c,C_word *av) C_noret;
741 C_noret_decl(f_16857)
742 static void C_ccall f_16857(C_word c,C_word *av) C_noret;
743 C_noret_decl(f_16859)
744 static void C_fcall f_16859(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
745 C_noret_decl(f_16873)
746 static void C_ccall f_16873(C_word c,C_word *av) C_noret;
747 C_noret_decl(f_16883)
748 static void C_ccall f_16883(C_word c,C_word *av) C_noret;
749 C_noret_decl(f_16896)
750 static void C_ccall f_16896(C_word c,C_word *av) C_noret;
751 C_noret_decl(f_16911)
752 static void C_ccall f_16911(C_word c,C_word *av) C_noret;
753 C_noret_decl(f_16915)
754 static void C_ccall f_16915(C_word c,C_word *av) C_noret;
755 C_noret_decl(f_16922)
756 static void C_ccall f_16922(C_word c,C_word *av) C_noret;
757 C_noret_decl(f_16926)
758 static void C_ccall f_16926(C_word c,C_word *av) C_noret;
759 C_noret_decl(f_16931)
760 static void C_ccall f_16931(C_word c,C_word *av) C_noret;
761 C_noret_decl(f_16935)
762 static void C_ccall f_16935(C_word c,C_word *av) C_noret;
763 C_noret_decl(f_16943)
764 static void C_ccall f_16943(C_word c,C_word *av) C_noret;
765 C_noret_decl(f_16949)
766 static void C_ccall f_16949(C_word c,C_word *av) C_noret;
767 C_noret_decl(f_16956)
768 static void C_ccall f_16956(C_word c,C_word *av) C_noret;
769 C_noret_decl(f_16959)
770 static void C_ccall f_16959(C_word c,C_word *av) C_noret;
771 C_noret_decl(f_16962)
772 static void C_ccall f_16962(C_word c,C_word *av) C_noret;
773 C_noret_decl(f_16967)
774 static void C_ccall f_16967(C_word c,C_word *av) C_noret;
775 C_noret_decl(f_16987)
776 static void C_ccall f_16987(C_word c,C_word *av) C_noret;
777 C_noret_decl(f_16991)
778 static void C_ccall f_16991(C_word c,C_word *av) C_noret;
779 C_noret_decl(f_17002)
780 static void C_ccall f_17002(C_word c,C_word *av) C_noret;
781 C_noret_decl(f_17017)
782 static void C_ccall f_17017(C_word c,C_word *av) C_noret;
783 C_noret_decl(f_17029)
784 static void C_ccall f_17029(C_word c,C_word *av) C_noret;
785 C_noret_decl(f_17036)
786 static void C_ccall f_17036(C_word c,C_word *av) C_noret;
787 C_noret_decl(f_17066)
788 static void C_ccall f_17066(C_word c,C_word *av) C_noret;
789 C_noret_decl(f_17090)
790 static void C_ccall f_17090(C_word c,C_word *av) C_noret;
791 C_noret_decl(f_17105)
792 static void C_ccall f_17105(C_word c,C_word *av) C_noret;
793 C_noret_decl(f_17108)
794 static void C_ccall f_17108(C_word c,C_word *av) C_noret;
795 C_noret_decl(f_17114)
796 static void C_ccall f_17114(C_word c,C_word *av) C_noret;
797 C_noret_decl(f_17123)
798 static void C_ccall f_17123(C_word c,C_word *av) C_noret;
799 C_noret_decl(f_17126)
800 static void C_ccall f_17126(C_word c,C_word *av) C_noret;
801 C_noret_decl(f_17165)
802 static void C_ccall f_17165(C_word c,C_word *av) C_noret;
803 C_noret_decl(f_17171)
804 static void C_ccall f_17171(C_word c,C_word *av) C_noret;
805 C_noret_decl(f_17177)
806 static void C_ccall f_17177(C_word c,C_word *av) C_noret;
807 C_noret_decl(f_17180)
808 static void C_ccall f_17180(C_word c,C_word *av) C_noret;
809 C_noret_decl(f_17186)
810 static void C_ccall f_17186(C_word c,C_word *av) C_noret;
811 C_noret_decl(f_17192)
812 static void C_ccall f_17192(C_word c,C_word *av) C_noret;
813 C_noret_decl(f_17198)
814 static void C_ccall f_17198(C_word c,C_word *av) C_noret;
815 C_noret_decl(f_17204)
816 static void C_ccall f_17204(C_word c,C_word *av) C_noret;
817 C_noret_decl(f_17226)
818 static void C_ccall f_17226(C_word c,C_word *av) C_noret;
819 C_noret_decl(f_17228)
820 static void C_fcall f_17228(C_word t0,C_word t1,C_word t2) C_noret;
821 C_noret_decl(f_17262)
822 static void C_fcall f_17262(C_word t0,C_word t1,C_word t2) C_noret;
823 C_noret_decl(f_17296)
824 static void C_ccall f_17296(C_word c,C_word *av) C_noret;
825 C_noret_decl(f_17299)
826 static void C_ccall f_17299(C_word c,C_word *av) C_noret;
827 C_noret_decl(f_17327)
828 static void C_ccall f_17327(C_word c,C_word *av) C_noret;
829 C_noret_decl(f_17334)
830 static void C_ccall f_17334(C_word c,C_word *av) C_noret;
831 C_noret_decl(f_17349)
832 static void C_ccall f_17349(C_word c,C_word *av) C_noret;
833 C_noret_decl(f_17355)
834 static void C_ccall f_17355(C_word c,C_word *av) C_noret;
835 C_noret_decl(f_17358)
836 static void C_ccall f_17358(C_word c,C_word *av) C_noret;
837 C_noret_decl(f_17395)
838 static void C_ccall f_17395(C_word c,C_word *av) C_noret;
839 C_noret_decl(f_17410)
840 static void C_ccall f_17410(C_word c,C_word *av) C_noret;
841 C_noret_decl(f_17420)
842 static void C_ccall f_17420(C_word c,C_word *av) C_noret;
843 C_noret_decl(f_17423)
844 static void C_ccall f_17423(C_word c,C_word *av) C_noret;
845 C_noret_decl(f_17435)
846 static void C_ccall f_17435(C_word c,C_word *av) C_noret;
847 C_noret_decl(f_17441)
848 static void C_ccall f_17441(C_word c,C_word *av) C_noret;
849 C_noret_decl(f_17447)
850 static void C_ccall f_17447(C_word c,C_word *av) C_noret;
851 C_noret_decl(f_17450)
852 static void C_ccall f_17450(C_word c,C_word *av) C_noret;
853 C_noret_decl(f_17452)
854 static void C_fcall f_17452(C_word t0,C_word t1) C_noret;
855 C_noret_decl(f_17459)
856 static void C_fcall f_17459(C_word t0,C_word t1,C_word t2) C_noret;
857 C_noret_decl(f_17465)
858 static void C_ccall f_17465(C_word c,C_word *av) C_noret;
859 C_noret_decl(f_17476)
860 static void C_ccall f_17476(C_word c,C_word *av) C_noret;
861 C_noret_decl(f_17524)
862 static void C_ccall f_17524(C_word c,C_word *av) C_noret;
863 C_noret_decl(f_17526)
864 static C_word C_fcall f_17526(C_word t0,C_word t1);
865 C_noret_decl(f_17532)
866 static void C_ccall f_17532(C_word c,C_word *av) C_noret;
867 C_noret_decl(f_17536)
868 static void C_ccall f_17536(C_word c,C_word *av) C_noret;
869 C_noret_decl(f_17541)
870 static void C_fcall f_17541(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
871 C_noret_decl(f_17569)
872 static void C_ccall f_17569(C_word c,C_word *av) C_noret;
873 C_noret_decl(f_17577)
874 static void C_ccall f_17577(C_word c,C_word *av) C_noret;
875 C_noret_decl(f_17580)
876 static void C_ccall f_17580(C_word c,C_word *av) C_noret;
877 C_noret_decl(f_17583)
878 static void C_ccall f_17583(C_word c,C_word *av) C_noret;
879 C_noret_decl(f_17586)
880 static void C_ccall f_17586(C_word c,C_word *av) C_noret;
881 C_noret_decl(f_17589)
882 static void C_ccall f_17589(C_word c,C_word *av) C_noret;
883 C_noret_decl(f_17592)
884 static void C_ccall f_17592(C_word c,C_word *av) C_noret;
885 C_noret_decl(f_17593)
886 static void C_fcall f_17593(C_word t0,C_word t1,C_word t2) C_noret;
887 C_noret_decl(f_17603)
888 static void C_ccall f_17603(C_word c,C_word *av) C_noret;
889 C_noret_decl(f_17609)
890 static void C_ccall f_17609(C_word c,C_word *av) C_noret;
891 C_noret_decl(f_17621)
892 static void C_ccall f_17621(C_word c,C_word *av) C_noret;
893 C_noret_decl(f_17624)
894 static void C_ccall f_17624(C_word c,C_word *av) C_noret;
895 C_noret_decl(f_17627)
896 static void C_ccall f_17627(C_word c,C_word *av) C_noret;
897 C_noret_decl(f_17632)
898 static void C_fcall f_17632(C_word t0,C_word t1,C_word t2) C_noret;
899 C_noret_decl(f_17645)
900 static void C_ccall f_17645(C_word c,C_word *av) C_noret;
901 C_noret_decl(f_17648)
902 static void C_ccall f_17648(C_word c,C_word *av) C_noret;
903 C_noret_decl(f_17665)
904 static void C_fcall f_17665(C_word t0,C_word t1,C_word t2) C_noret;
905 C_noret_decl(f_17675)
906 static void C_ccall f_17675(C_word c,C_word *av) C_noret;
907 C_noret_decl(f_17688)
908 static void C_ccall f_17688(C_word c,C_word *av) C_noret;
909 C_noret_decl(f_17692)
910 static void C_ccall f_17692(C_word c,C_word *av) C_noret;
911 C_noret_decl(f_17710)
912 static void C_ccall f_17710(C_word c,C_word *av) C_noret;
913 C_noret_decl(f_17714)
914 static void C_ccall f_17714(C_word c,C_word *av) C_noret;
915 C_noret_decl(f_17731)
916 static void C_ccall f_17731(C_word c,C_word *av) C_noret;
917 C_noret_decl(f_17737)
918 static void C_ccall f_17737(C_word c,C_word *av) C_noret;
919 C_noret_decl(f_17747)
920 static void C_ccall f_17747(C_word c,C_word *av) C_noret;
921 C_noret_decl(f_17750)
922 static void C_ccall f_17750(C_word c,C_word *av) C_noret;
923 C_noret_decl(f_17766)
924 static void C_ccall f_17766(C_word c,C_word *av) C_noret;
925 C_noret_decl(f_17771)
926 static void C_fcall f_17771(C_word t0,C_word t1) C_noret;
927 C_noret_decl(f_17775)
928 static void C_ccall f_17775(C_word c,C_word *av) C_noret;
929 C_noret_decl(f_17792)
930 static void C_ccall f_17792(C_word c,C_word *av) C_noret;
931 C_noret_decl(f_17803)
932 static void C_ccall f_17803(C_word c,C_word *av) C_noret;
933 C_noret_decl(f_17815)
934 static void C_ccall f_17815(C_word c,C_word *av) C_noret;
935 C_noret_decl(f_17818)
936 static void C_ccall f_17818(C_word c,C_word *av) C_noret;
937 C_noret_decl(f_17826)
938 static void C_ccall f_17826(C_word c,C_word *av) C_noret;
939 C_noret_decl(f_17831)
940 static void C_ccall f_17831(C_word c,C_word *av) C_noret;
941 C_noret_decl(f_17844)
942 static void C_ccall f_17844(C_word c,C_word *av) C_noret;
943 C_noret_decl(f_17855)
944 static void C_ccall f_17855(C_word c,C_word *av) C_noret;
945 C_noret_decl(f_17877)
946 static void C_ccall f_17877(C_word c,C_word *av) C_noret;
947 C_noret_decl(f_17879)
948 static void C_ccall f_17879(C_word c,C_word *av) C_noret;
949 C_noret_decl(f_17899)
950 static void C_ccall f_17899(C_word c,C_word *av) C_noret;
951 C_noret_decl(f_17919)
952 static void C_ccall f_17919(C_word c,C_word *av) C_noret;
953 C_noret_decl(f_17927)
954 static void C_ccall f_17927(C_word c,C_word *av) C_noret;
955 C_noret_decl(f_17936)
956 static void C_ccall f_17936(C_word c,C_word *av) C_noret;
957 C_noret_decl(f_17941)
958 static void C_ccall f_17941(C_word c,C_word *av) C_noret;
959 C_noret_decl(f_17945)
960 static void C_ccall f_17945(C_word c,C_word *av) C_noret;
961 C_noret_decl(f_17966)
962 static void C_ccall f_17966(C_word c,C_word *av) C_noret;
963 C_noret_decl(f_17981)
964 static void C_ccall f_17981(C_word c,C_word *av) C_noret;
965 C_noret_decl(f_17987)
966 static void C_ccall f_17987(C_word c,C_word *av) C_noret;
967 C_noret_decl(f_17998)
968 static void C_ccall f_17998(C_word c,C_word *av) C_noret;
969 C_noret_decl(f_18009)
970 static void C_ccall f_18009(C_word c,C_word *av) C_noret;
971 C_noret_decl(f_18020)
972 static void C_ccall f_18020(C_word c,C_word *av) C_noret;
973 C_noret_decl(f_18024)
974 static void C_ccall f_18024(C_word c,C_word *av) C_noret;
975 C_noret_decl(f_18030)
976 static void C_ccall f_18030(C_word c,C_word *av) C_noret;
977 C_noret_decl(f_18042)
978 static void C_ccall f_18042(C_word c,C_word *av) C_noret;
979 C_noret_decl(f_18046)
980 static void C_ccall f_18046(C_word c,C_word *av) C_noret;
981 C_noret_decl(f_18058)
982 static void C_ccall f_18058(C_word c,C_word *av) C_noret;
983 C_noret_decl(f_18066)
984 static void C_fcall f_18066(C_word t0,C_word t1,C_word t2) C_noret;
985 C_noret_decl(f_18076)
986 static void C_ccall f_18076(C_word c,C_word *av) C_noret;
987 C_noret_decl(f_18091)
988 static void C_ccall f_18091(C_word c,C_word *av) C_noret;
989 C_noret_decl(f_18097)
990 static void C_ccall f_18097(C_word c,C_word *av) C_noret;
991 C_noret_decl(f_18100)
992 static void C_ccall f_18100(C_word c,C_word *av) C_noret;
993 C_noret_decl(f_18103)
994 static void C_ccall f_18103(C_word c,C_word *av) C_noret;
995 C_noret_decl(f_18106)
996 static void C_ccall f_18106(C_word c,C_word *av) C_noret;
997 C_noret_decl(f_18109)
998 static void C_ccall f_18109(C_word c,C_word *av) C_noret;
999 C_noret_decl(f_18113)
1000 static void C_ccall f_18113(C_word c,C_word *av) C_noret;
1001 C_noret_decl(f_18115)
1002 static void C_ccall f_18115(C_word c,C_word *av) C_noret;
1003 C_noret_decl(f_18122)
1004 static void C_ccall f_18122(C_word c,C_word *av) C_noret;
1005 C_noret_decl(f_18129)
1006 static void C_ccall f_18129(C_word c,C_word *av) C_noret;
1007 C_noret_decl(f_18140)
1008 static void C_ccall f_18140(C_word c,C_word *av) C_noret;
1009 C_noret_decl(f_18144)
1010 static void C_ccall f_18144(C_word c,C_word *av) C_noret;
1011 C_noret_decl(f_18147)
1012 static void C_ccall f_18147(C_word c,C_word *av) C_noret;
1013 C_noret_decl(f_18152)
1014 static void C_ccall f_18152(C_word c,C_word *av) C_noret;
1015 C_noret_decl(f_18158)
1016 static void C_ccall f_18158(C_word c,C_word *av) C_noret;
1017 C_noret_decl(f_18165)
1018 static void C_ccall f_18165(C_word c,C_word *av) C_noret;
1019 C_noret_decl(f_18168)
1020 static void C_ccall f_18168(C_word c,C_word *av) C_noret;
1021 C_noret_decl(f_18171)
1022 static void C_ccall f_18171(C_word c,C_word *av) C_noret;
1023 C_noret_decl(f_18174)
1024 static void C_ccall f_18174(C_word c,C_word *av) C_noret;
1025 C_noret_decl(f_5348)
1026 static void C_ccall f_5348(C_word c,C_word *av) C_noret;
1027 C_noret_decl(f_5351)
1028 static void C_ccall f_5351(C_word c,C_word *av) C_noret;
1029 C_noret_decl(f_5354)
1030 static void C_ccall f_5354(C_word c,C_word *av) C_noret;
1031 C_noret_decl(f_5357)
1032 static void C_ccall f_5357(C_word c,C_word *av) C_noret;
1033 C_noret_decl(f_5360)
1034 static void C_ccall f_5360(C_word c,C_word *av) C_noret;
1035 C_noret_decl(f_5363)
1036 static void C_ccall f_5363(C_word c,C_word *av) C_noret;
1037 C_noret_decl(f_5366)
1038 static void C_ccall f_5366(C_word c,C_word *av) C_noret;
1039 C_noret_decl(f_5369)
1040 static void C_ccall f_5369(C_word c,C_word *av) C_noret;
1041 C_noret_decl(f_5372)
1042 static void C_ccall f_5372(C_word c,C_word *av) C_noret;
1043 C_noret_decl(f_5482)
1044 static void C_fcall f_5482(C_word t0,C_word t1,C_word t2) C_noret;
1045 C_noret_decl(f_5500)
1046 static void C_ccall f_5500(C_word c,C_word *av) C_noret;
1047 C_noret_decl(f_5540)
1048 static void C_fcall f_5540(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1049 C_noret_decl(f_5554)
1050 static void C_ccall f_5554(C_word c,C_word *av) C_noret;
1051 C_noret_decl(f_5743)
1052 static void C_fcall f_5743(C_word t0,C_word t1,C_word t2) C_noret;
1053 C_noret_decl(f_5749)
1054 static void C_fcall f_5749(C_word t0,C_word t1,C_word t2) C_noret;
1055 C_noret_decl(f_5771)
1056 static void C_ccall f_5771(C_word c,C_word *av) C_noret;
1057 C_noret_decl(f_5777)
1058 static void C_fcall f_5777(C_word t0,C_word t1,C_word t2) C_noret;
1059 C_noret_decl(f_5783)
1060 static void C_fcall f_5783(C_word t0,C_word t1,C_word t2) C_noret;
1061 C_noret_decl(f_5793)
1062 static void C_ccall f_5793(C_word c,C_word *av) C_noret;
1063 C_noret_decl(f_5807)
1064 static void C_fcall f_5807(C_word t0,C_word t1,C_word t2) C_noret;
1065 C_noret_decl(f_5813)
1066 static void C_fcall f_5813(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1067 C_noret_decl(f_5827)
1068 static void C_ccall f_5827(C_word c,C_word *av) C_noret;
1069 C_noret_decl(f_6036)
1070 static void C_fcall f_6036(C_word t0,C_word t1,C_word t2) C_noret;
1071 C_noret_decl(f_6044)
1072 static void C_fcall f_6044(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1073 C_noret_decl(f_6052)
1074 static C_word C_fcall f_6052(C_word *a,C_word t0,C_word t1);
1075 C_noret_decl(f_6070)
1076 static void C_ccall f_6070(C_word c,C_word *av) C_noret;
1077 C_noret_decl(f_6109)
1078 static void C_fcall f_6109(C_word t0,C_word t1,C_word t2) C_noret;
1079 C_noret_decl(f_6143)
1080 static void C_fcall f_6143(C_word t0,C_word t1) C_noret;
1081 C_noret_decl(f_6149)
1082 static C_word C_fcall f_6149(C_word t0);
1083 C_noret_decl(f_6202)
1084 static void C_fcall f_6202(C_word t0,C_word t1,C_word t2) C_noret;
1085 C_noret_decl(f_6208)
1086 static void C_fcall f_6208(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1087 C_noret_decl(f_6391)
1088 static void C_fcall f_6391(C_word t0,C_word t1,C_word t2) C_noret;
1089 C_noret_decl(f_6409)
1090 static void C_ccall f_6409(C_word c,C_word *av) C_noret;
1091 C_noret_decl(f_6504)
1092 static void C_fcall f_6504(C_word t0,C_word t1,C_word t2) C_noret;
1093 C_noret_decl(f_6517)
1094 static void C_ccall f_6517(C_word c,C_word *av) C_noret;
1095 C_noret_decl(f_6655)
1096 static void C_ccall f_6655(C_word c,C_word *av) C_noret;
1097 C_noret_decl(f_6659)
1098 static void C_ccall f_6659(C_word c,C_word *av) C_noret;
1099 C_noret_decl(f_6673)
1100 static void C_ccall f_6673(C_word c,C_word *av) C_noret;
1101 C_noret_decl(f_6684)
1102 static void C_ccall f_6684(C_word c,C_word *av) C_noret;
1103 C_noret_decl(f_6687)
1104 static void C_fcall f_6687(C_word t0,C_word t1,C_word t2) C_noret;
1105 C_noret_decl(f_6702)
1106 static void C_ccall f_6702(C_word c,C_word *av) C_noret;
1107 C_noret_decl(f_6708)
1108 static void C_ccall f_6708(C_word c,C_word *av) C_noret;
1109 C_noret_decl(f_6711)
1110 static void C_fcall f_6711(C_word t0,C_word t1) C_noret;
1111 C_noret_decl(f_6717)
1112 static void C_ccall f_6717(C_word c,C_word *av) C_noret;
1113 C_noret_decl(f_6721)
1114 static void C_ccall f_6721(C_word c,C_word *av) C_noret;
1115 C_noret_decl(f_6724)
1116 static void C_ccall f_6724(C_word c,C_word *av) C_noret;
1117 C_noret_decl(f_6733)
1118 static void C_ccall f_6733(C_word c,C_word *av) C_noret;
1119 C_noret_decl(f_6741)
1120 static void C_ccall f_6741(C_word c,C_word *av) C_noret;
1121 C_noret_decl(f_6748)
1122 static void C_ccall f_6748(C_word c,C_word *av) C_noret;
1123 C_noret_decl(f_6753)
1124 static void C_fcall f_6753(C_word t0,C_word t1,C_word t2) C_noret;
1125 C_noret_decl(f_6763)
1126 static void C_ccall f_6763(C_word c,C_word *av) C_noret;
1127 C_noret_decl(f_6776)
1128 static void C_fcall f_6776(C_word t0,C_word t1,C_word t2) C_noret;
1129 C_noret_decl(f_6783)
1130 static void C_ccall f_6783(C_word c,C_word *av) C_noret;
1131 C_noret_decl(f_6786)
1132 static void C_ccall f_6786(C_word c,C_word *av) C_noret;
1133 C_noret_decl(f_6795)
1134 static void C_ccall f_6795(C_word c,C_word *av) C_noret;
1135 C_noret_decl(f_6798)
1136 static void C_ccall f_6798(C_word c,C_word *av) C_noret;
1137 C_noret_decl(f_6801)
1138 static void C_ccall f_6801(C_word c,C_word *av) C_noret;
1139 C_noret_decl(f_6804)
1140 static void C_ccall f_6804(C_word c,C_word *av) C_noret;
1141 C_noret_decl(f_6807)
1142 static void C_ccall f_6807(C_word c,C_word *av) C_noret;
1143 C_noret_decl(f_6810)
1144 static void C_ccall f_6810(C_word c,C_word *av) C_noret;
1145 C_noret_decl(f_6816)
1146 static void C_ccall f_6816(C_word c,C_word *av) C_noret;
1147 C_noret_decl(f_6819)
1148 static void C_ccall f_6819(C_word c,C_word *av) C_noret;
1149 C_noret_decl(f_6826)
1150 static void C_ccall f_6826(C_word c,C_word *av) C_noret;
1151 C_noret_decl(f_6828)
1152 static void C_ccall f_6828(C_word c,C_word *av) C_noret;
1153 C_noret_decl(f_6831)
1154 static void C_fcall f_6831(C_word t0,C_word t1,C_word t2) C_noret;
1155 C_noret_decl(f_6833)
1156 static void C_fcall f_6833(C_word t0,C_word t1,C_word t2) C_noret;
1157 C_noret_decl(f_6840)
1158 static void C_ccall f_6840(C_word c,C_word *av) C_noret;
1159 C_noret_decl(f_6843)
1160 static void C_ccall f_6843(C_word c,C_word *av) C_noret;
1161 C_noret_decl(f_6846)
1162 static void C_ccall f_6846(C_word c,C_word *av) C_noret;
1163 C_noret_decl(f_6860)
1164 static void C_ccall f_6860(C_word c,C_word *av) C_noret;
1165 C_noret_decl(f_6865)
1166 static void C_fcall f_6865(C_word t0,C_word t1,C_word t2) C_noret;
1167 C_noret_decl(f_6875)
1168 static void C_ccall f_6875(C_word c,C_word *av) C_noret;
1169 C_noret_decl(f_6892)
1170 static void C_ccall f_6892(C_word c,C_word *av) C_noret;
1171 C_noret_decl(f_6895)
1172 static void C_ccall f_6895(C_word c,C_word *av) C_noret;
1173 C_noret_decl(f_6898)
1174 static void C_ccall f_6898(C_word c,C_word *av) C_noret;
1175 C_noret_decl(f_6901)
1176 static void C_ccall f_6901(C_word c,C_word *av) C_noret;
1177 C_noret_decl(f_6907)
1178 static void C_ccall f_6907(C_word c,C_word *av) C_noret;
1179 C_noret_decl(f_6916)
1180 static void C_ccall f_6916(C_word c,C_word *av) C_noret;
1181 C_noret_decl(f_6923)
1182 static void C_ccall f_6923(C_word c,C_word *av) C_noret;
1183 C_noret_decl(f_6925)
1184 static void C_ccall f_6925(C_word c,C_word *av) C_noret;
1185 C_noret_decl(f_6929)
1186 static void C_ccall f_6929(C_word c,C_word *av) C_noret;
1187 C_noret_decl(f_6932)
1188 static void C_ccall f_6932(C_word c,C_word *av) C_noret;
1189 C_noret_decl(f_6939)
1190 static void C_ccall f_6939(C_word c,C_word *av) C_noret;
1191 C_noret_decl(f_6941)
1192 static void C_ccall f_6941(C_word c,C_word *av) C_noret;
1193 C_noret_decl(f_6945)
1194 static void C_fcall f_6945(C_word t0,C_word t1) C_noret;
1195 C_noret_decl(f_6948)
1196 static void C_ccall f_6948(C_word c,C_word *av) C_noret;
1197 C_noret_decl(f_6949)
1198 static void C_fcall f_6949(C_word t0,C_word t1,C_word t2) C_noret;
1199 C_noret_decl(f_6959)
1200 static void C_ccall f_6959(C_word c,C_word *av) C_noret;
1201 C_noret_decl(f_6962)
1202 static void C_ccall f_6962(C_word c,C_word *av) C_noret;
1203 C_noret_decl(f_6967)
1204 static void C_fcall f_6967(C_word t0,C_word t1,C_word t2) C_noret;
1205 C_noret_decl(f_6977)
1206 static void C_ccall f_6977(C_word c,C_word *av) C_noret;
1207 C_noret_decl(f_6994)
1208 static void C_ccall f_6994(C_word c,C_word *av) C_noret;
1209 C_noret_decl(f_6997)
1210 static void C_ccall f_6997(C_word c,C_word *av) C_noret;
1211 C_noret_decl(f_7000)
1212 static void C_ccall f_7000(C_word c,C_word *av) C_noret;
1213 C_noret_decl(f_7003)
1214 static void C_ccall f_7003(C_word c,C_word *av) C_noret;
1215 C_noret_decl(f_7006)
1216 static void C_ccall f_7006(C_word c,C_word *av) C_noret;
1217 C_noret_decl(f_7015)
1218 static void C_ccall f_7015(C_word c,C_word *av) C_noret;
1219 C_noret_decl(f_7018)
1220 static void C_ccall f_7018(C_word c,C_word *av) C_noret;
1221 C_noret_decl(f_7021)
1222 static void C_ccall f_7021(C_word c,C_word *av) C_noret;
1223 C_noret_decl(f_7038)
1224 static void C_ccall f_7038(C_word c,C_word *av) C_noret;
1225 C_noret_decl(f_7092)
1226 static void C_ccall f_7092(C_word c,C_word *av) C_noret;
1227 C_noret_decl(f_7098)
1228 static C_word C_fcall f_7098(C_word t0,C_word t1);
1229 C_noret_decl(f_7133)
1230 static void C_ccall f_7133(C_word c,C_word *av) C_noret;
1231 C_noret_decl(f_7139)
1232 static void C_fcall f_7139(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1233 C_noret_decl(f_7161)
1234 static void C_ccall f_7161(C_word c,C_word *av) C_noret;
1235 C_noret_decl(f_7170)
1236 static void C_ccall f_7170(C_word c,C_word *av) C_noret;
1237 C_noret_decl(f_7182)
1238 static void C_ccall f_7182(C_word c,C_word *av) C_noret;
1239 C_noret_decl(f_7186)
1240 static void C_ccall f_7186(C_word c,C_word *av) C_noret;
1241 C_noret_decl(f_7188)
1242 static void C_fcall f_7188(C_word t0,C_word t1,C_word t2) C_noret;
1243 C_noret_decl(f_7210)
1244 static void C_fcall f_7210(C_word t0,C_word t1) C_noret;
1245 C_noret_decl(f_7217)
1246 static void C_fcall f_7217(C_word t0,C_word t1) C_noret;
1247 C_noret_decl(f_7221)
1248 static void C_ccall f_7221(C_word c,C_word *av) C_noret;
1249 C_noret_decl(f_7225)
1250 static void C_ccall f_7225(C_word c,C_word *av) C_noret;
1251 C_noret_decl(f_7231)
1252 static void C_ccall f_7231(C_word c,C_word *av) C_noret;
1253 C_noret_decl(f_7253)
1254 static void C_ccall f_7253(C_word c,C_word *av) C_noret;
1255 C_noret_decl(f_7269)
1256 static void C_ccall f_7269(C_word c,C_word *av) C_noret;
1257 C_noret_decl(f_7273)
1258 static void C_ccall f_7273(C_word c,C_word *av) C_noret;
1259 C_noret_decl(f_7294)
1260 static void C_ccall f_7294(C_word c,C_word *av) C_noret;
1261 C_noret_decl(f_7317)
1262 static void C_ccall f_7317(C_word c,C_word *av) C_noret;
1263 C_noret_decl(f_7319)
1264 static void C_ccall f_7319(C_word c,C_word *av) C_noret;
1265 C_noret_decl(f_7326)
1266 static void C_ccall f_7326(C_word c,C_word *av) C_noret;
1267 C_noret_decl(f_7333)
1268 static void C_ccall f_7333(C_word c,C_word *av) C_noret;
1269 C_noret_decl(f_7346)
1270 static void C_ccall f_7346(C_word c,C_word *av) C_noret;
1271 C_noret_decl(f_7377)
1272 static void C_ccall f_7377(C_word c,C_word *av) C_noret;
1273 C_noret_decl(f_7389)
1274 static void C_ccall f_7389(C_word c,C_word *av) C_noret;
1275 C_noret_decl(f_7403)
1276 static void C_ccall f_7403(C_word c,C_word *av) C_noret;
1277 C_noret_decl(f_7405)
1278 static void C_fcall f_7405(C_word t0,C_word t1,C_word t2) C_noret;
1279 C_noret_decl(f_7431)
1280 static void C_ccall f_7431(C_word c,C_word *av) C_noret;
1281 C_noret_decl(f_7445)
1282 static void C_fcall f_7445(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1283 C_noret_decl(f_7451)
1284 static void C_fcall f_7451(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1285 C_noret_decl(f_7466)
1286 static void C_ccall f_7466(C_word c,C_word *av) C_noret;
1287 C_noret_decl(f_7482)
1288 static void C_ccall f_7482(C_word c,C_word *av) C_noret;
1289 C_noret_decl(f_7490)
1290 static void C_ccall f_7490(C_word c,C_word *av) C_noret;
1291 C_noret_decl(f_7494)
1292 static void C_ccall f_7494(C_word c,C_word *av) C_noret;
1293 C_noret_decl(f_7496)
1294 static void C_ccall f_7496(C_word c,C_word *av) C_noret;
1295 C_noret_decl(f_7507)
1296 static void C_ccall f_7507(C_word c,C_word *av) C_noret;
1297 C_noret_decl(f_7509)
1298 static void C_fcall f_7509(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1299 C_noret_decl(f_7526)
1300 static void C_ccall f_7526(C_word c,C_word *av) C_noret;
1301 C_noret_decl(f_7540)
1302 static void C_ccall f_7540(C_word c,C_word *av) C_noret;
1303 C_noret_decl(f_7574)
1304 static void C_ccall f_7574(C_word c,C_word *av) C_noret;
1305 C_noret_decl(f_7586)
1306 static void C_ccall f_7586(C_word c,C_word *av) C_noret;
1307 C_noret_decl(f_7602)
1308 static void C_ccall f_7602(C_word c,C_word *av) C_noret;
1309 C_noret_decl(f_7632)
1310 static void C_ccall f_7632(C_word c,C_word *av) C_noret;
1311 C_noret_decl(f_7636)
1312 static void C_fcall f_7636(C_word t0,C_word t1) C_noret;
1313 C_noret_decl(f_7676)
1314 static void C_ccall f_7676(C_word c,C_word *av) C_noret;
1315 C_noret_decl(f_7678)
1316 static void C_ccall f_7678(C_word c,C_word *av) C_noret;
1317 C_noret_decl(f_7694)
1318 static void C_ccall f_7694(C_word c,C_word *av) C_noret;
1319 C_noret_decl(f_7700)
1320 static void C_ccall f_7700(C_word c,C_word *av) C_noret;
1321 C_noret_decl(f_7715)
1322 static void C_ccall f_7715(C_word c,C_word *av) C_noret;
1323 C_noret_decl(f_7732)
1324 static void C_ccall f_7732(C_word c,C_word *av) C_noret;
1325 C_noret_decl(f_7734)
1326 static void C_ccall f_7734(C_word c,C_word *av) C_noret;
1327 C_noret_decl(f_7740)
1328 static void C_fcall f_7740(C_word t0,C_word t1,C_word t2) C_noret;
1329 C_noret_decl(f_7764)
1330 static void C_fcall f_7764(C_word t0,C_word t1) C_noret;
1331 C_noret_decl(f_7780)
1332 static void C_ccall f_7780(C_word c,C_word *av) C_noret;
1333 C_noret_decl(f_7790)
1334 static void C_ccall f_7790(C_word c,C_word *av) C_noret;
1335 C_noret_decl(f_7795)
1336 static void C_ccall f_7795(C_word c,C_word *av) C_noret;
1337 C_noret_decl(f_7809)
1338 static void C_ccall f_7809(C_word c,C_word *av) C_noret;
1339 C_noret_decl(f_7812)
1340 static void C_ccall f_7812(C_word c,C_word *av) C_noret;
1341 C_noret_decl(f_7813)
1342 static void C_ccall f_7813(C_word c,C_word *av) C_noret;
1343 C_noret_decl(f_7817)
1344 static void C_ccall f_7817(C_word c,C_word *av) C_noret;
1345 C_noret_decl(f_7822)
1346 static void C_ccall f_7822(C_word c,C_word *av) C_noret;
1347 C_noret_decl(f_7828)
1348 static void C_ccall f_7828(C_word c,C_word *av) C_noret;
1349 C_noret_decl(f_7834)
1350 static void C_ccall f_7834(C_word c,C_word *av) C_noret;
1351 C_noret_decl(f_7842)
1352 static void C_ccall f_7842(C_word c,C_word *av) C_noret;
1353 C_noret_decl(f_7845)
1354 static void C_ccall f_7845(C_word c,C_word *av) C_noret;
1355 C_noret_decl(f_7853)
1356 static void C_ccall f_7853(C_word c,C_word *av) C_noret;
1357 C_noret_decl(f_7855)
1358 static void C_fcall f_7855(C_word t0,C_word t1) C_noret;
1359 C_noret_decl(f_7859)
1360 static void C_ccall f_7859(C_word c,C_word *av) C_noret;
1361 C_noret_decl(f_7881)
1362 static void C_ccall f_7881(C_word c,C_word *av) C_noret;
1363 C_noret_decl(f_7887)
1364 static void C_fcall f_7887(C_word t0,C_word t1,C_word t2) C_noret;
1365 C_noret_decl(f_7891)
1366 static void C_ccall f_7891(C_word c,C_word *av) C_noret;
1367 C_noret_decl(f_7904)
1368 static void C_ccall f_7904(C_word c,C_word *av) C_noret;
1369 C_noret_decl(f_7912)
1370 static void C_fcall f_7912(C_word t0,C_word t1,C_word t2) C_noret;
1371 C_noret_decl(f_7918)
1372 static void C_ccall f_7918(C_word c,C_word *av) C_noret;
1373 C_noret_decl(f_7929)
1374 static void C_ccall f_7929(C_word c,C_word *av) C_noret;
1375 C_noret_decl(f_7931)
1376 static void C_ccall f_7931(C_word c,C_word *av) C_noret;
1377 C_noret_decl(f_7934)
1378 static void C_ccall f_7934(C_word c,C_word *av) C_noret;
1379 C_noret_decl(f_7940)
1380 static C_word C_fcall f_7940(C_word t0,C_word t1);
1381 C_noret_decl(f_7979)
1382 static void C_ccall f_7979(C_word c,C_word *av) C_noret;
1383 C_noret_decl(f_7984)
1384 static void C_ccall f_7984(C_word c,C_word *av) C_noret;
1385 C_noret_decl(f_7988)
1386 static void C_ccall f_7988(C_word c,C_word *av) C_noret;
1387 C_noret_decl(f_7992)
1388 static void C_ccall f_7992(C_word c,C_word *av) C_noret;
1389 C_noret_decl(f_8043)
1390 static void C_ccall f_8043(C_word c,C_word *av) C_noret;
1391 C_noret_decl(f_8080)
1392 static void C_ccall f_8080(C_word c,C_word *av) C_noret;
1393 C_noret_decl(f_8082)
1394 static void C_fcall f_8082(C_word t0,C_word t1,C_word t2) C_noret;
1395 C_noret_decl(f_8132)
1396 static void C_ccall f_8132(C_word c,C_word *av) C_noret;
1397 C_noret_decl(f_8136)
1398 static void C_ccall f_8136(C_word c,C_word *av) C_noret;
1399 C_noret_decl(f_8150)
1400 static void C_ccall f_8150(C_word c,C_word *av) C_noret;
1401 C_noret_decl(f_8154)
1402 static void C_ccall f_8154(C_word c,C_word *av) C_noret;
1403 C_noret_decl(f_8162)
1404 static C_word C_fcall f_8162(C_word t0,C_word t1);
1405 C_noret_decl(f_8168)
1406 static void C_ccall f_8168(C_word c,C_word *av) C_noret;
1407 C_noret_decl(f_8172)
1408 static void C_ccall f_8172(C_word c,C_word *av) C_noret;
1409 C_noret_decl(f_8214)
1410 static void C_ccall f_8214(C_word c,C_word *av) C_noret;
1411 C_noret_decl(f_8218)
1412 static void C_ccall f_8218(C_word c,C_word *av) C_noret;
1413 C_noret_decl(f_8266)
1414 static void C_ccall f_8266(C_word c,C_word *av) C_noret;
1415 C_noret_decl(f_8270)
1416 static void C_ccall f_8270(C_word c,C_word *av) C_noret;
1417 C_noret_decl(f_8275)
1418 static void C_ccall f_8275(C_word c,C_word *av) C_noret;
1419 C_noret_decl(f_8285)
1420 static void C_ccall f_8285(C_word c,C_word *av) C_noret;
1421 C_noret_decl(f_8292)
1422 static void C_ccall f_8292(C_word c,C_word *av) C_noret;
1423 C_noret_decl(f_8299)
1424 static void C_fcall f_8299(C_word t0,C_word t1,C_word t2) C_noret;
1425 C_noret_decl(f_8326)
1426 static void C_ccall f_8326(C_word c,C_word *av) C_noret;
1427 C_noret_decl(f_8332)
1428 static void C_ccall f_8332(C_word c,C_word *av) C_noret;
1429 C_noret_decl(f_8342)
1430 static void C_ccall f_8342(C_word c,C_word *av) C_noret;
1431 C_noret_decl(f_8345)
1432 static void C_ccall f_8345(C_word c,C_word *av) C_noret;
1433 C_noret_decl(f_8348)
1434 static void C_ccall f_8348(C_word c,C_word *av) C_noret;
1435 C_noret_decl(f_8361)
1436 static void C_ccall f_8361(C_word c,C_word *av) C_noret;
1437 C_noret_decl(f_8363)
1438 static void C_fcall f_8363(C_word t0,C_word t1,C_word t2) C_noret;
1439 C_noret_decl(f_8398)
1440 static void C_ccall f_8398(C_word c,C_word *av) C_noret;
1441 C_noret_decl(f_8404)
1442 static void C_ccall f_8404(C_word c,C_word *av) C_noret;
1443 C_noret_decl(f_8410)
1444 static void C_ccall f_8410(C_word c,C_word *av) C_noret;
1445 C_noret_decl(f_8419)
1446 static void C_ccall f_8419(C_word c,C_word *av) C_noret;
1447 C_noret_decl(f_8428)
1448 static void C_ccall f_8428(C_word c,C_word *av) C_noret;
1449 C_noret_decl(f_8437)
1450 static void C_ccall f_8437(C_word c,C_word *av) C_noret;
1451 C_noret_decl(f_8446)
1452 static void C_ccall f_8446(C_word c,C_word *av) C_noret;
1453 C_noret_decl(f_8455)
1454 static void C_ccall f_8455(C_word c,C_word *av) C_noret;
1455 C_noret_decl(f_8465)
1456 static void C_ccall f_8465(C_word c,C_word *av) C_noret;
1457 C_noret_decl(f_8467)
1458 static void C_ccall f_8467(C_word c,C_word *av) C_noret;
1459 C_noret_decl(f_8473)
1460 static void C_ccall f_8473(C_word c,C_word *av) C_noret;
1461 C_noret_decl(f_8488)
1462 static void C_ccall f_8488(C_word c,C_word *av) C_noret;
1463 C_noret_decl(f_8503)
1464 static void C_ccall f_8503(C_word c,C_word *av) C_noret;
1465 C_noret_decl(f_8506)
1466 static void C_fcall f_8506(C_word t0,C_word t1,C_word t2) C_noret;
1467 C_noret_decl(f_8573)
1468 static void C_ccall f_8573(C_word c,C_word *av) C_noret;
1469 C_noret_decl(f_8575)
1470 static void C_fcall f_8575(C_word t0,C_word t1,C_word t2) C_noret;
1471 C_noret_decl(f_8600)
1472 static void C_ccall f_8600(C_word c,C_word *av) C_noret;
1473 C_noret_decl(f_8623)
1474 static void C_ccall f_8623(C_word c,C_word *av) C_noret;
1475 C_noret_decl(f_8626)
1476 static void C_fcall f_8626(C_word t0,C_word t1) C_noret;
1477 C_noret_decl(f_8629)
1478 static void C_ccall f_8629(C_word c,C_word *av) C_noret;
1479 C_noret_decl(f_8636)
1480 static void C_ccall f_8636(C_word c,C_word *av) C_noret;
1481 C_noret_decl(f_8683)
1482 static void C_ccall f_8683(C_word c,C_word *av) C_noret;
1483 C_noret_decl(f_8687)
1484 static void C_ccall f_8687(C_word c,C_word *av) C_noret;
1485 C_noret_decl(f_8692)
1486 static void C_fcall f_8692(C_word t0,C_word t1,C_word t2) C_noret;
1487 C_noret_decl(f_8709)
1488 static void C_ccall f_8709(C_word c,C_word *av) C_noret;
1489 C_noret_decl(f_8717)
1490 static void C_ccall f_8717(C_word c,C_word *av) C_noret;
1491 C_noret_decl(f_8719)
1492 static void C_fcall f_8719(C_word t0,C_word t1,C_word t2) C_noret;
1493 C_noret_decl(f_8744)
1494 static void C_ccall f_8744(C_word c,C_word *av) C_noret;
1495 C_noret_decl(f_8780)
1496 static void C_ccall f_8780(C_word c,C_word *av) C_noret;
1497 C_noret_decl(f_8814)
1498 static void C_ccall f_8814(C_word c,C_word *av) C_noret;
1499 C_noret_decl(f_8845)
1500 static void C_fcall f_8845(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1501 C_noret_decl(f_8868)
1502 static void C_ccall f_8868(C_word c,C_word *av) C_noret;
1503 C_noret_decl(f_8889)
1504 static void C_ccall f_8889(C_word c,C_word *av) C_noret;
1505 C_noret_decl(f_8911)
1506 static void C_ccall f_8911(C_word c,C_word *av) C_noret;
1507 C_noret_decl(f_8919)
1508 static void C_ccall f_8919(C_word c,C_word *av) C_noret;
1509 C_noret_decl(f_8923)
1510 static void C_ccall f_8923(C_word c,C_word *av) C_noret;
1511 C_noret_decl(f_8931)
1512 static void C_ccall f_8931(C_word c,C_word *av) C_noret;
1513 C_noret_decl(f_8952)
1514 static void C_ccall f_8952(C_word c,C_word *av) C_noret;
1515 C_noret_decl(f_8956)
1516 static void C_ccall f_8956(C_word c,C_word *av) C_noret;
1517 C_noret_decl(f_8968)
1518 static void C_ccall f_8968(C_word c,C_word *av) C_noret;
1519 C_noret_decl(f_8995)
1520 static void C_fcall f_8995(C_word t0,C_word t1) C_noret;
1521 C_noret_decl(f_9007)
1522 static void C_ccall f_9007(C_word c,C_word *av) C_noret;
1523 C_noret_decl(f_9009)
1524 static void C_fcall f_9009(C_word t0,C_word t1,C_word t2) C_noret;
1525 C_noret_decl(f_9034)
1526 static void C_ccall f_9034(C_word c,C_word *av) C_noret;
1527 C_noret_decl(f_9068)
1528 static void C_fcall f_9068(C_word t0,C_word t1) C_noret;
1529 C_noret_decl(f_9094)
1530 static void C_ccall f_9094(C_word c,C_word *av) C_noret;
1531 C_noret_decl(f_9096)
1532 static void C_fcall f_9096(C_word t0,C_word t1,C_word t2) C_noret;
1533 C_noret_decl(f_9121)
1534 static void C_ccall f_9121(C_word c,C_word *av) C_noret;
1535 C_noret_decl(f_9205)
1536 static void C_ccall f_9205(C_word c,C_word *av) C_noret;
1537 C_noret_decl(f_9207)
1538 static void C_fcall f_9207(C_word t0,C_word t1,C_word t2) C_noret;
1539 C_noret_decl(f_9232)
1540 static void C_ccall f_9232(C_word c,C_word *av) C_noret;
1541 C_noret_decl(f_9272)
1542 static void C_ccall f_9272(C_word c,C_word *av) C_noret;
1543 C_noret_decl(f_9313)
1544 static void C_fcall f_9313(C_word t0,C_word t1) C_noret;
1545 C_noret_decl(f_9342)
1546 static void C_ccall f_9342(C_word c,C_word *av) C_noret;
1547 C_noret_decl(f_9344)
1548 static void C_fcall f_9344(C_word t0,C_word t1,C_word t2) C_noret;
1549 C_noret_decl(f_9369)
1550 static void C_ccall f_9369(C_word c,C_word *av) C_noret;
1551 C_noret_decl(f_9405)
1552 static void C_ccall f_9405(C_word c,C_word *av) C_noret;
1553 C_noret_decl(f_9407)
1554 static void C_fcall f_9407(C_word t0,C_word t1,C_word t2) C_noret;
1555 C_noret_decl(f_9432)
1556 static void C_ccall f_9432(C_word c,C_word *av) C_noret;
1557 C_noret_decl(f_9444)
1558 static void C_ccall f_9444(C_word c,C_word *av) C_noret;
1559 C_noret_decl(f_9450)
1560 static void C_ccall f_9450(C_word c,C_word *av) C_noret;
1561 C_noret_decl(f_9473)
1562 static void C_ccall f_9473(C_word c,C_word *av) C_noret;
1563 C_noret_decl(f_9475)
1564 static void C_fcall f_9475(C_word t0,C_word t1,C_word t2) C_noret;
1565 C_noret_decl(f_9500)
1566 static void C_ccall f_9500(C_word c,C_word *av) C_noret;
1567 C_noret_decl(f_9511)
1568 static void C_fcall f_9511(C_word t0,C_word t1) C_noret;
1569 C_noret_decl(f_9515)
1570 static void C_ccall f_9515(C_word c,C_word *av) C_noret;
1571 C_noret_decl(f_9518)
1572 static void C_ccall f_9518(C_word c,C_word *av) C_noret;
1573 C_noret_decl(f_9525)
1574 static void C_ccall f_9525(C_word c,C_word *av) C_noret;
1575 C_noret_decl(f_9539)
1576 static void C_ccall f_9539(C_word c,C_word *av) C_noret;
1577 C_noret_decl(f_9645)
1578 static void C_ccall f_9645(C_word c,C_word *av) C_noret;
1579 C_noret_decl(f_9647)
1580 static void C_fcall f_9647(C_word t0,C_word t1,C_word t2) C_noret;
1581 C_noret_decl(f_9672)
1582 static void C_ccall f_9672(C_word c,C_word *av) C_noret;
1583 C_noret_decl(f_9690)
1584 static void C_ccall f_9690(C_word c,C_word *av) C_noret;
1585 C_noret_decl(f_9693)
1586 static void C_ccall f_9693(C_word c,C_word *av) C_noret;
1587 C_noret_decl(f_9699)
1588 static void C_ccall f_9699(C_word c,C_word *av) C_noret;
1589 C_noret_decl(f_9705)
1590 static void C_fcall f_9705(C_word t0,C_word t1,C_word t2) C_noret;
1591 C_noret_decl(f_9739)
1592 static void C_fcall f_9739(C_word t0,C_word t1) C_noret;
1593 C_noret_decl(f_9752)
1594 static void C_ccall f_9752(C_word c,C_word *av) C_noret;
1595 C_noret_decl(f_9754)
1596 static void C_fcall f_9754(C_word t0,C_word t1,C_word t2) C_noret;
1597 C_noret_decl(f_9779)
1598 static void C_ccall f_9779(C_word c,C_word *av) C_noret;
1599 C_noret_decl(f_9809)
1600 static void C_ccall f_9809(C_word c,C_word *av) C_noret;
1601 C_noret_decl(f_9811)
1602 static void C_fcall f_9811(C_word t0,C_word t1,C_word t2) C_noret;
1603 C_noret_decl(f_9836)
1604 static void C_ccall f_9836(C_word c,C_word *av) C_noret;
1605 C_noret_decl(f_9909)
1606 static void C_ccall f_9909(C_word c,C_word *av) C_noret;
1607 C_noret_decl(f_9912)
1608 static void C_ccall f_9912(C_word c,C_word *av) C_noret;
1609 C_noret_decl(f_9921)
1610 static void C_ccall f_9921(C_word c,C_word *av) C_noret;
1611 C_noret_decl(f_9925)
1612 static void C_ccall f_9925(C_word c,C_word *av) C_noret;
1613 C_noret_decl(f_9929)
1614 static void C_ccall f_9929(C_word c,C_word *av) C_noret;
1615 C_noret_decl(f_9931)
1616 static void C_fcall f_9931(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1617 C_noret_decl(f_9979)
1618 static void C_fcall f_9979(C_word t0,C_word t1,C_word t2) C_noret;
1619 C_noret_decl(C_support_toplevel)
1620 C_externexport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret;
1621 
1622 C_noret_decl(trf_10104)
1623 static void C_ccall trf_10104(C_word c,C_word *av) C_noret;
trf_10104(C_word c,C_word * av)1624 static void C_ccall trf_10104(C_word c,C_word *av){
1625 C_word t0=av[3];
1626 C_word t1=av[2];
1627 C_word t2=av[1];
1628 C_word t3=av[0];
1629 f_10104(t0,t1,t2,t3);}
1630 
1631 C_noret_decl(trf_10180)
1632 static void C_ccall trf_10180(C_word c,C_word *av) C_noret;
trf_10180(C_word c,C_word * av)1633 static void C_ccall trf_10180(C_word c,C_word *av){
1634 C_word t0=av[2];
1635 C_word t1=av[1];
1636 C_word t2=av[0];
1637 f_10180(t0,t1,t2);}
1638 
1639 C_noret_decl(trf_10237)
1640 static void C_ccall trf_10237(C_word c,C_word *av) C_noret;
trf_10237(C_word c,C_word * av)1641 static void C_ccall trf_10237(C_word c,C_word *av){
1642 C_word t0=av[2];
1643 C_word t1=av[1];
1644 C_word t2=av[0];
1645 f_10237(t0,t1,t2);}
1646 
1647 C_noret_decl(trf_10293)
1648 static void C_ccall trf_10293(C_word c,C_word *av) C_noret;
trf_10293(C_word c,C_word * av)1649 static void C_ccall trf_10293(C_word c,C_word *av){
1650 C_word t0=av[4];
1651 C_word t1=av[3];
1652 C_word t2=av[2];
1653 C_word t3=av[1];
1654 C_word t4=av[0];
1655 f_10293(t0,t1,t2,t3,t4);}
1656 
1657 C_noret_decl(trf_10343)
1658 static void C_ccall trf_10343(C_word c,C_word *av) C_noret;
trf_10343(C_word c,C_word * av)1659 static void C_ccall trf_10343(C_word c,C_word *av){
1660 C_word t0=av[1];
1661 C_word t1=av[0];
1662 f_10343(t0,t1);}
1663 
1664 C_noret_decl(trf_10363)
1665 static void C_ccall trf_10363(C_word c,C_word *av) C_noret;
trf_10363(C_word c,C_word * av)1666 static void C_ccall trf_10363(C_word c,C_word *av){
1667 C_word t0=av[2];
1668 C_word t1=av[1];
1669 C_word t2=av[0];
1670 f_10363(t0,t1,t2);}
1671 
1672 C_noret_decl(trf_10420)
1673 static void C_ccall trf_10420(C_word c,C_word *av) C_noret;
trf_10420(C_word c,C_word * av)1674 static void C_ccall trf_10420(C_word c,C_word *av){
1675 C_word t0=av[2];
1676 C_word t1=av[1];
1677 C_word t2=av[0];
1678 f_10420(t0,t1,t2);}
1679 
1680 C_noret_decl(trf_10471)
1681 static void C_ccall trf_10471(C_word c,C_word *av) C_noret;
trf_10471(C_word c,C_word * av)1682 static void C_ccall trf_10471(C_word c,C_word *av){
1683 C_word t0=av[2];
1684 C_word t1=av[1];
1685 C_word t2=av[0];
1686 f_10471(t0,t1,t2);}
1687 
1688 C_noret_decl(trf_10575)
1689 static void C_ccall trf_10575(C_word c,C_word *av) C_noret;
trf_10575(C_word c,C_word * av)1690 static void C_ccall trf_10575(C_word c,C_word *av){
1691 C_word t0=av[2];
1692 C_word t1=av[1];
1693 C_word t2=av[0];
1694 f_10575(t0,t1,t2);}
1695 
1696 C_noret_decl(trf_10675)
1697 static void C_ccall trf_10675(C_word c,C_word *av) C_noret;
trf_10675(C_word c,C_word * av)1698 static void C_ccall trf_10675(C_word c,C_word *av){
1699 C_word t0=av[3];
1700 C_word t1=av[2];
1701 C_word t2=av[1];
1702 C_word t3=av[0];
1703 f_10675(t0,t1,t2,t3);}
1704 
1705 C_noret_decl(trf_10690)
1706 static void C_ccall trf_10690(C_word c,C_word *av) C_noret;
trf_10690(C_word c,C_word * av)1707 static void C_ccall trf_10690(C_word c,C_word *av){
1708 C_word t0=av[3];
1709 C_word t1=av[2];
1710 C_word t2=av[1];
1711 C_word t3=av[0];
1712 f_10690(t0,t1,t2,t3);}
1713 
1714 C_noret_decl(trf_10820)
1715 static void C_ccall trf_10820(C_word c,C_word *av) C_noret;
trf_10820(C_word c,C_word * av)1716 static void C_ccall trf_10820(C_word c,C_word *av){
1717 C_word t0=av[2];
1718 C_word t1=av[1];
1719 C_word t2=av[0];
1720 f_10820(t0,t1,t2);}
1721 
1722 C_noret_decl(trf_10844)
1723 static void C_ccall trf_10844(C_word c,C_word *av) C_noret;
trf_10844(C_word c,C_word * av)1724 static void C_ccall trf_10844(C_word c,C_word *av){
1725 C_word t0=av[2];
1726 C_word t1=av[1];
1727 C_word t2=av[0];
1728 f_10844(t0,t1,t2);}
1729 
1730 C_noret_decl(trf_10871)
1731 static void C_ccall trf_10871(C_word c,C_word *av) C_noret;
trf_10871(C_word c,C_word * av)1732 static void C_ccall trf_10871(C_word c,C_word *av){
1733 C_word t0=av[2];
1734 C_word t1=av[1];
1735 C_word t2=av[0];
1736 f_10871(t0,t1,t2);}
1737 
1738 C_noret_decl(trf_10917)
1739 static void C_ccall trf_10917(C_word c,C_word *av) C_noret;
trf_10917(C_word c,C_word * av)1740 static void C_ccall trf_10917(C_word c,C_word *av){
1741 C_word t0=av[2];
1742 C_word t1=av[1];
1743 C_word t2=av[0];
1744 f_10917(t0,t1,t2);}
1745 
1746 C_noret_decl(trf_10972)
1747 static void C_ccall trf_10972(C_word c,C_word *av) C_noret;
trf_10972(C_word c,C_word * av)1748 static void C_ccall trf_10972(C_word c,C_word *av){
1749 C_word t0=av[3];
1750 C_word t1=av[2];
1751 C_word t2=av[1];
1752 C_word t3=av[0];
1753 f_10972(t0,t1,t2,t3);}
1754 
1755 C_noret_decl(trf_11143)
1756 static void C_ccall trf_11143(C_word c,C_word *av) C_noret;
trf_11143(C_word c,C_word * av)1757 static void C_ccall trf_11143(C_word c,C_word *av){
1758 C_word t0=av[2];
1759 C_word t1=av[1];
1760 C_word t2=av[0];
1761 f_11143(t0,t1,t2);}
1762 
1763 C_noret_decl(trf_11176)
1764 static void C_ccall trf_11176(C_word c,C_word *av) C_noret;
trf_11176(C_word c,C_word * av)1765 static void C_ccall trf_11176(C_word c,C_word *av){
1766 C_word t0=av[2];
1767 C_word t1=av[1];
1768 C_word t2=av[0];
1769 f_11176(t0,t1,t2);}
1770 
1771 C_noret_decl(trf_11188)
1772 static void C_ccall trf_11188(C_word c,C_word *av) C_noret;
trf_11188(C_word c,C_word * av)1773 static void C_ccall trf_11188(C_word c,C_word *av){
1774 C_word t0=av[2];
1775 C_word t1=av[1];
1776 C_word t2=av[0];
1777 f_11188(t0,t1,t2);}
1778 
1779 C_noret_decl(trf_11255)
1780 static void C_ccall trf_11255(C_word c,C_word *av) C_noret;
trf_11255(C_word c,C_word * av)1781 static void C_ccall trf_11255(C_word c,C_word *av){
1782 C_word t0=av[3];
1783 C_word t1=av[2];
1784 C_word t2=av[1];
1785 C_word t3=av[0];
1786 f_11255(t0,t1,t2,t3);}
1787 
1788 C_noret_decl(trf_11303)
1789 static void C_ccall trf_11303(C_word c,C_word *av) C_noret;
trf_11303(C_word c,C_word * av)1790 static void C_ccall trf_11303(C_word c,C_word *av){
1791 C_word t0=av[2];
1792 C_word t1=av[1];
1793 C_word t2=av[0];
1794 f_11303(t0,t1,t2);}
1795 
1796 C_noret_decl(trf_11352)
1797 static void C_ccall trf_11352(C_word c,C_word *av) C_noret;
trf_11352(C_word c,C_word * av)1798 static void C_ccall trf_11352(C_word c,C_word *av){
1799 C_word t0=av[2];
1800 C_word t1=av[1];
1801 C_word t2=av[0];
1802 f_11352(t0,t1,t2);}
1803 
1804 C_noret_decl(trf_11364)
1805 static void C_ccall trf_11364(C_word c,C_word *av) C_noret;
trf_11364(C_word c,C_word * av)1806 static void C_ccall trf_11364(C_word c,C_word *av){
1807 C_word t0=av[2];
1808 C_word t1=av[1];
1809 C_word t2=av[0];
1810 f_11364(t0,t1,t2);}
1811 
1812 C_noret_decl(trf_11411)
1813 static void C_ccall trf_11411(C_word c,C_word *av) C_noret;
trf_11411(C_word c,C_word * av)1814 static void C_ccall trf_11411(C_word c,C_word *av){
1815 C_word t0=av[3];
1816 C_word t1=av[2];
1817 C_word t2=av[1];
1818 C_word t3=av[0];
1819 f_11411(t0,t1,t2,t3);}
1820 
1821 C_noret_decl(trf_11462)
1822 static void C_ccall trf_11462(C_word c,C_word *av) C_noret;
trf_11462(C_word c,C_word * av)1823 static void C_ccall trf_11462(C_word c,C_word *av){
1824 C_word t0=av[2];
1825 C_word t1=av[1];
1826 C_word t2=av[0];
1827 f_11462(t0,t1,t2);}
1828 
1829 C_noret_decl(trf_11622)
1830 static void C_ccall trf_11622(C_word c,C_word *av) C_noret;
trf_11622(C_word c,C_word * av)1831 static void C_ccall trf_11622(C_word c,C_word *av){
1832 C_word t0=av[3];
1833 C_word t1=av[2];
1834 C_word t2=av[1];
1835 C_word t3=av[0];
1836 f_11622(t0,t1,t2,t3);}
1837 
1838 C_noret_decl(trf_11664)
1839 static void C_ccall trf_11664(C_word c,C_word *av) C_noret;
trf_11664(C_word c,C_word * av)1840 static void C_ccall trf_11664(C_word c,C_word *av){
1841 C_word t0=av[2];
1842 C_word t1=av[1];
1843 C_word t2=av[0];
1844 f_11664(t0,t1,t2);}
1845 
1846 C_noret_decl(trf_11743)
1847 static void C_ccall trf_11743(C_word c,C_word *av) C_noret;
trf_11743(C_word c,C_word * av)1848 static void C_ccall trf_11743(C_word c,C_word *av){
1849 C_word t0=av[3];
1850 C_word t1=av[2];
1851 C_word t2=av[1];
1852 C_word t3=av[0];
1853 f_11743(t0,t1,t2,t3);}
1854 
1855 C_noret_decl(trf_11866)
1856 static void C_ccall trf_11866(C_word c,C_word *av) C_noret;
trf_11866(C_word c,C_word * av)1857 static void C_ccall trf_11866(C_word c,C_word *av){
1858 C_word t0=av[2];
1859 C_word t1=av[1];
1860 C_word t2=av[0];
1861 f_11866(t0,t1,t2);}
1862 
1863 C_noret_decl(trf_11973)
1864 static void C_ccall trf_11973(C_word c,C_word *av) C_noret;
trf_11973(C_word c,C_word * av)1865 static void C_ccall trf_11973(C_word c,C_word *av){
1866 C_word t0=av[2];
1867 C_word t1=av[1];
1868 C_word t2=av[0];
1869 f_11973(t0,t1,t2);}
1870 
1871 C_noret_decl(trf_12019)
1872 static void C_ccall trf_12019(C_word c,C_word *av) C_noret;
trf_12019(C_word c,C_word * av)1873 static void C_ccall trf_12019(C_word c,C_word *av){
1874 C_word t0=av[2];
1875 C_word t1=av[1];
1876 C_word t2=av[0];
1877 f_12019(t0,t1,t2);}
1878 
1879 C_noret_decl(trf_12059)
1880 static void C_ccall trf_12059(C_word c,C_word *av) C_noret;
trf_12059(C_word c,C_word * av)1881 static void C_ccall trf_12059(C_word c,C_word *av){
1882 C_word t0=av[2];
1883 C_word t1=av[1];
1884 C_word t2=av[0];
1885 f_12059(t0,t1,t2);}
1886 
1887 C_noret_decl(trf_12090)
1888 static void C_ccall trf_12090(C_word c,C_word *av) C_noret;
trf_12090(C_word c,C_word * av)1889 static void C_ccall trf_12090(C_word c,C_word *av){
1890 C_word t0=av[2];
1891 C_word t1=av[1];
1892 C_word t2=av[0];
1893 f_12090(t0,t1,t2);}
1894 
1895 C_noret_decl(trf_12127)
1896 static void C_ccall trf_12127(C_word c,C_word *av) C_noret;
trf_12127(C_word c,C_word * av)1897 static void C_ccall trf_12127(C_word c,C_word *av){
1898 C_word t0=av[2];
1899 C_word t1=av[1];
1900 C_word t2=av[0];
1901 f_12127(t0,t1,t2);}
1902 
1903 C_noret_decl(trf_12206)
1904 static void C_ccall trf_12206(C_word c,C_word *av) C_noret;
trf_12206(C_word c,C_word * av)1905 static void C_ccall trf_12206(C_word c,C_word *av){
1906 C_word t0=av[2];
1907 C_word t1=av[1];
1908 C_word t2=av[0];
1909 f_12206(t0,t1,t2);}
1910 
1911 C_noret_decl(trf_12258)
1912 static void C_ccall trf_12258(C_word c,C_word *av) C_noret;
trf_12258(C_word c,C_word * av)1913 static void C_ccall trf_12258(C_word c,C_word *av){
1914 C_word t0=av[2];
1915 C_word t1=av[1];
1916 C_word t2=av[0];
1917 f_12258(t0,t1,t2);}
1918 
1919 C_noret_decl(trf_12313)
1920 static void C_ccall trf_12313(C_word c,C_word *av) C_noret;
trf_12313(C_word c,C_word * av)1921 static void C_ccall trf_12313(C_word c,C_word *av){
1922 C_word t0=av[1];
1923 C_word t1=av[0];
1924 f_12313(t0,t1);}
1925 
1926 C_noret_decl(trf_12350)
1927 static void C_ccall trf_12350(C_word c,C_word *av) C_noret;
trf_12350(C_word c,C_word * av)1928 static void C_ccall trf_12350(C_word c,C_word *av){
1929 C_word t0=av[1];
1930 C_word t1=av[0];
1931 f_12350(t0,t1);}
1932 
1933 C_noret_decl(trf_12454)
1934 static void C_ccall trf_12454(C_word c,C_word *av) C_noret;
trf_12454(C_word c,C_word * av)1935 static void C_ccall trf_12454(C_word c,C_word *av){
1936 C_word t0=av[1];
1937 C_word t1=av[0];
1938 f_12454(t0,t1);}
1939 
1940 C_noret_decl(trf_12501)
1941 static void C_ccall trf_12501(C_word c,C_word *av) C_noret;
trf_12501(C_word c,C_word * av)1942 static void C_ccall trf_12501(C_word c,C_word *av){
1943 C_word t0=av[3];
1944 C_word t1=av[2];
1945 C_word t2=av[1];
1946 C_word t3=av[0];
1947 f_12501(t0,t1,t2,t3);}
1948 
1949 C_noret_decl(trf_12535)
1950 static void C_ccall trf_12535(C_word c,C_word *av) C_noret;
trf_12535(C_word c,C_word * av)1951 static void C_ccall trf_12535(C_word c,C_word *av){
1952 C_word t0=av[3];
1953 C_word t1=av[2];
1954 C_word t2=av[1];
1955 C_word t3=av[0];
1956 f_12535(t0,t1,t2,t3);}
1957 
1958 C_noret_decl(trf_12582)
1959 static void C_ccall trf_12582(C_word c,C_word *av) C_noret;
trf_12582(C_word c,C_word * av)1960 static void C_ccall trf_12582(C_word c,C_word *av){
1961 C_word t0=av[3];
1962 C_word t1=av[2];
1963 C_word t2=av[1];
1964 C_word t3=av[0];
1965 f_12582(t0,t1,t2,t3);}
1966 
1967 C_noret_decl(trf_12622)
1968 static void C_ccall trf_12622(C_word c,C_word *av) C_noret;
trf_12622(C_word c,C_word * av)1969 static void C_ccall trf_12622(C_word c,C_word *av){
1970 C_word t0=av[3];
1971 C_word t1=av[2];
1972 C_word t2=av[1];
1973 C_word t3=av[0];
1974 f_12622(t0,t1,t2,t3);}
1975 
1976 C_noret_decl(trf_12763)
1977 static void C_ccall trf_12763(C_word c,C_word *av) C_noret;
trf_12763(C_word c,C_word * av)1978 static void C_ccall trf_12763(C_word c,C_word *av){
1979 C_word t0=av[1];
1980 C_word t1=av[0];
1981 f_12763(t0,t1);}
1982 
1983 C_noret_decl(trf_12777)
1984 static void C_ccall trf_12777(C_word c,C_word *av) C_noret;
trf_12777(C_word c,C_word * av)1985 static void C_ccall trf_12777(C_word c,C_word *av){
1986 C_word t0=av[2];
1987 C_word t1=av[1];
1988 C_word t2=av[0];
1989 f_12777(t0,t1,t2);}
1990 
1991 C_noret_decl(trf_12979)
1992 static void C_ccall trf_12979(C_word c,C_word *av) C_noret;
trf_12979(C_word c,C_word * av)1993 static void C_ccall trf_12979(C_word c,C_word *av){
1994 C_word t0=av[1];
1995 C_word t1=av[0];
1996 f_12979(t0,t1);}
1997 
1998 C_noret_decl(trf_13020)
1999 static void C_ccall trf_13020(C_word c,C_word *av) C_noret;
trf_13020(C_word c,C_word * av)2000 static void C_ccall trf_13020(C_word c,C_word *av){
2001 C_word t0=av[1];
2002 C_word t1=av[0];
2003 f_13020(t0,t1);}
2004 
2005 C_noret_decl(trf_13292)
2006 static void C_ccall trf_13292(C_word c,C_word *av) C_noret;
trf_13292(C_word c,C_word * av)2007 static void C_ccall trf_13292(C_word c,C_word *av){
2008 C_word t0=av[2];
2009 C_word t1=av[1];
2010 C_word t2=av[0];
2011 f_13292(t0,t1,t2);}
2012 
2013 C_noret_decl(trf_13317)
2014 static void C_ccall trf_13317(C_word c,C_word *av) C_noret;
trf_13317(C_word c,C_word * av)2015 static void C_ccall trf_13317(C_word c,C_word *av){
2016 C_word t0=av[1];
2017 C_word t1=av[0];
2018 f_13317(t0,t1);}
2019 
2020 C_noret_decl(trf_13332)
2021 static void C_ccall trf_13332(C_word c,C_word *av) C_noret;
trf_13332(C_word c,C_word * av)2022 static void C_ccall trf_13332(C_word c,C_word *av){
2023 C_word t0=av[1];
2024 C_word t1=av[0];
2025 f_13332(t0,t1);}
2026 
2027 C_noret_decl(trf_13415)
2028 static void C_ccall trf_13415(C_word c,C_word *av) C_noret;
trf_13415(C_word c,C_word * av)2029 static void C_ccall trf_13415(C_word c,C_word *av){
2030 C_word t0=av[1];
2031 C_word t1=av[0];
2032 f_13415(t0,t1);}
2033 
2034 C_noret_decl(trf_13455)
2035 static void C_ccall trf_13455(C_word c,C_word *av) C_noret;
trf_13455(C_word c,C_word * av)2036 static void C_ccall trf_13455(C_word c,C_word *av){
2037 C_word t0=av[1];
2038 C_word t1=av[0];
2039 f_13455(t0,t1);}
2040 
2041 C_noret_decl(trf_13473)
2042 static void C_ccall trf_13473(C_word c,C_word *av) C_noret;
trf_13473(C_word c,C_word * av)2043 static void C_ccall trf_13473(C_word c,C_word *av){
2044 C_word t0=av[1];
2045 C_word t1=av[0];
2046 f_13473(t0,t1);}
2047 
2048 C_noret_decl(trf_13497)
2049 static void C_ccall trf_13497(C_word c,C_word *av) C_noret;
trf_13497(C_word c,C_word * av)2050 static void C_ccall trf_13497(C_word c,C_word *av){
2051 C_word t0=av[1];
2052 C_word t1=av[0];
2053 f_13497(t0,t1);}
2054 
2055 C_noret_decl(trf_13523)
2056 static void C_ccall trf_13523(C_word c,C_word *av) C_noret;
trf_13523(C_word c,C_word * av)2057 static void C_ccall trf_13523(C_word c,C_word *av){
2058 C_word t0=av[1];
2059 C_word t1=av[0];
2060 f_13523(t0,t1);}
2061 
2062 C_noret_decl(trf_13566)
2063 static void C_ccall trf_13566(C_word c,C_word *av) C_noret;
trf_13566(C_word c,C_word * av)2064 static void C_ccall trf_13566(C_word c,C_word *av){
2065 C_word t0=av[1];
2066 C_word t1=av[0];
2067 f_13566(t0,t1);}
2068 
2069 C_noret_decl(trf_13610)
2070 static void C_ccall trf_13610(C_word c,C_word *av) C_noret;
trf_13610(C_word c,C_word * av)2071 static void C_ccall trf_13610(C_word c,C_word *av){
2072 C_word t0=av[1];
2073 C_word t1=av[0];
2074 f_13610(t0,t1);}
2075 
2076 C_noret_decl(trf_13654)
2077 static void C_ccall trf_13654(C_word c,C_word *av) C_noret;
trf_13654(C_word c,C_word * av)2078 static void C_ccall trf_13654(C_word c,C_word *av){
2079 C_word t0=av[1];
2080 C_word t1=av[0];
2081 f_13654(t0,t1);}
2082 
2083 C_noret_decl(trf_13672)
2084 static void C_ccall trf_13672(C_word c,C_word *av) C_noret;
trf_13672(C_word c,C_word * av)2085 static void C_ccall trf_13672(C_word c,C_word *av){
2086 C_word t0=av[1];
2087 C_word t1=av[0];
2088 f_13672(t0,t1);}
2089 
2090 C_noret_decl(trf_13699)
2091 static void C_ccall trf_13699(C_word c,C_word *av) C_noret;
trf_13699(C_word c,C_word * av)2092 static void C_ccall trf_13699(C_word c,C_word *av){
2093 C_word t0=av[1];
2094 C_word t1=av[0];
2095 f_13699(t0,t1);}
2096 
2097 C_noret_decl(trf_13746)
2098 static void C_ccall trf_13746(C_word c,C_word *av) C_noret;
trf_13746(C_word c,C_word * av)2099 static void C_ccall trf_13746(C_word c,C_word *av){
2100 C_word t0=av[2];
2101 C_word t1=av[1];
2102 C_word t2=av[0];
2103 f_13746(t0,t1,t2);}
2104 
2105 C_noret_decl(trf_13773)
2106 static void C_ccall trf_13773(C_word c,C_word *av) C_noret;
trf_13773(C_word c,C_word * av)2107 static void C_ccall trf_13773(C_word c,C_word *av){
2108 C_word t0=av[1];
2109 C_word t1=av[0];
2110 f_13773(t0,t1);}
2111 
2112 C_noret_decl(trf_14356)
2113 static void C_ccall trf_14356(C_word c,C_word *av) C_noret;
trf_14356(C_word c,C_word * av)2114 static void C_ccall trf_14356(C_word c,C_word *av){
2115 C_word t0=av[1];
2116 C_word t1=av[0];
2117 f_14356(t0,t1);}
2118 
2119 C_noret_decl(trf_14377)
2120 static void C_ccall trf_14377(C_word c,C_word *av) C_noret;
trf_14377(C_word c,C_word * av)2121 static void C_ccall trf_14377(C_word c,C_word *av){
2122 C_word t0=av[1];
2123 C_word t1=av[0];
2124 f_14377(t0,t1);}
2125 
2126 C_noret_decl(trf_14442)
2127 static void C_ccall trf_14442(C_word c,C_word *av) C_noret;
trf_14442(C_word c,C_word * av)2128 static void C_ccall trf_14442(C_word c,C_word *av){
2129 C_word t0=av[2];
2130 C_word t1=av[1];
2131 C_word t2=av[0];
2132 f_14442(t0,t1,t2);}
2133 
2134 C_noret_decl(trf_14470)
2135 static void C_ccall trf_14470(C_word c,C_word *av) C_noret;
trf_14470(C_word c,C_word * av)2136 static void C_ccall trf_14470(C_word c,C_word *av){
2137 C_word t0=av[1];
2138 C_word t1=av[0];
2139 f_14470(t0,t1);}
2140 
2141 C_noret_decl(trf_14489)
2142 static void C_ccall trf_14489(C_word c,C_word *av) C_noret;
trf_14489(C_word c,C_word * av)2143 static void C_ccall trf_14489(C_word c,C_word *av){
2144 C_word t0=av[1];
2145 C_word t1=av[0];
2146 f_14489(t0,t1);}
2147 
2148 C_noret_decl(trf_14498)
2149 static void C_ccall trf_14498(C_word c,C_word *av) C_noret;
trf_14498(C_word c,C_word * av)2150 static void C_ccall trf_14498(C_word c,C_word *av){
2151 C_word t0=av[1];
2152 C_word t1=av[0];
2153 f_14498(t0,t1);}
2154 
2155 C_noret_decl(trf_14510)
2156 static void C_ccall trf_14510(C_word c,C_word *av) C_noret;
trf_14510(C_word c,C_word * av)2157 static void C_ccall trf_14510(C_word c,C_word *av){
2158 C_word t0=av[1];
2159 C_word t1=av[0];
2160 f_14510(t0,t1);}
2161 
2162 C_noret_decl(trf_14522)
2163 static void C_ccall trf_14522(C_word c,C_word *av) C_noret;
trf_14522(C_word c,C_word * av)2164 static void C_ccall trf_14522(C_word c,C_word *av){
2165 C_word t0=av[1];
2166 C_word t1=av[0];
2167 f_14522(t0,t1);}
2168 
2169 C_noret_decl(trf_14534)
2170 static void C_ccall trf_14534(C_word c,C_word *av) C_noret;
trf_14534(C_word c,C_word * av)2171 static void C_ccall trf_14534(C_word c,C_word *av){
2172 C_word t0=av[1];
2173 C_word t1=av[0];
2174 f_14534(t0,t1);}
2175 
2176 C_noret_decl(trf_14544)
2177 static void C_ccall trf_14544(C_word c,C_word *av) C_noret;
trf_14544(C_word c,C_word * av)2178 static void C_ccall trf_14544(C_word c,C_word *av){
2179 C_word t0=av[2];
2180 C_word t1=av[1];
2181 C_word t2=av[0];
2182 f_14544(t0,t1,t2);}
2183 
2184 C_noret_decl(trf_14571)
2185 static void C_ccall trf_14571(C_word c,C_word *av) C_noret;
trf_14571(C_word c,C_word * av)2186 static void C_ccall trf_14571(C_word c,C_word *av){
2187 C_word t0=av[1];
2188 C_word t1=av[0];
2189 f_14571(t0,t1);}
2190 
2191 C_noret_decl(trf_14964)
2192 static void C_ccall trf_14964(C_word c,C_word *av) C_noret;
trf_14964(C_word c,C_word * av)2193 static void C_ccall trf_14964(C_word c,C_word *av){
2194 C_word t0=av[1];
2195 C_word t1=av[0];
2196 f_14964(t0,t1);}
2197 
2198 C_noret_decl(trf_14976)
2199 static void C_ccall trf_14976(C_word c,C_word *av) C_noret;
trf_14976(C_word c,C_word * av)2200 static void C_ccall trf_14976(C_word c,C_word *av){
2201 C_word t0=av[1];
2202 C_word t1=av[0];
2203 f_14976(t0,t1);}
2204 
2205 C_noret_decl(trf_14986)
2206 static void C_ccall trf_14986(C_word c,C_word *av) C_noret;
trf_14986(C_word c,C_word * av)2207 static void C_ccall trf_14986(C_word c,C_word *av){
2208 C_word t0=av[2];
2209 C_word t1=av[1];
2210 C_word t2=av[0];
2211 f_14986(t0,t1,t2);}
2212 
2213 C_noret_decl(trf_15013)
2214 static void C_ccall trf_15013(C_word c,C_word *av) C_noret;
trf_15013(C_word c,C_word * av)2215 static void C_ccall trf_15013(C_word c,C_word *av){
2216 C_word t0=av[1];
2217 C_word t1=av[0];
2218 f_15013(t0,t1);}
2219 
2220 C_noret_decl(trf_15512)
2221 static void C_ccall trf_15512(C_word c,C_word *av) C_noret;
trf_15512(C_word c,C_word * av)2222 static void C_ccall trf_15512(C_word c,C_word *av){
2223 C_word t0=av[1];
2224 C_word t1=av[0];
2225 f_15512(t0,t1);}
2226 
2227 C_noret_decl(trf_15697)
2228 static void C_ccall trf_15697(C_word c,C_word *av) C_noret;
trf_15697(C_word c,C_word * av)2229 static void C_ccall trf_15697(C_word c,C_word *av){
2230 C_word t0=av[1];
2231 C_word t1=av[0];
2232 f_15697(t0,t1);}
2233 
2234 C_noret_decl(trf_15772)
2235 static void C_ccall trf_15772(C_word c,C_word *av) C_noret;
trf_15772(C_word c,C_word * av)2236 static void C_ccall trf_15772(C_word c,C_word *av){
2237 C_word t0=av[1];
2238 C_word t1=av[0];
2239 f_15772(t0,t1);}
2240 
2241 C_noret_decl(trf_15859)
2242 static void C_ccall trf_15859(C_word c,C_word *av) C_noret;
trf_15859(C_word c,C_word * av)2243 static void C_ccall trf_15859(C_word c,C_word *av){
2244 C_word t0=av[1];
2245 C_word t1=av[0];
2246 f_15859(t0,t1);}
2247 
2248 C_noret_decl(trf_15892)
2249 static void C_ccall trf_15892(C_word c,C_word *av) C_noret;
trf_15892(C_word c,C_word * av)2250 static void C_ccall trf_15892(C_word c,C_word *av){
2251 C_word t0=av[1];
2252 C_word t1=av[0];
2253 f_15892(t0,t1);}
2254 
2255 C_noret_decl(trf_15910)
2256 static void C_ccall trf_15910(C_word c,C_word *av) C_noret;
trf_15910(C_word c,C_word * av)2257 static void C_ccall trf_15910(C_word c,C_word *av){
2258 C_word t0=av[1];
2259 C_word t1=av[0];
2260 f_15910(t0,t1);}
2261 
2262 C_noret_decl(trf_15932)
2263 static void C_ccall trf_15932(C_word c,C_word *av) C_noret;
trf_15932(C_word c,C_word * av)2264 static void C_ccall trf_15932(C_word c,C_word *av){
2265 C_word t0=av[1];
2266 C_word t1=av[0];
2267 f_15932(t0,t1);}
2268 
2269 C_noret_decl(trf_16320)
2270 static void C_ccall trf_16320(C_word c,C_word *av) C_noret;
trf_16320(C_word c,C_word * av)2271 static void C_ccall trf_16320(C_word c,C_word *av){
2272 C_word t0=av[2];
2273 C_word t1=av[1];
2274 C_word t2=av[0];
2275 f_16320(t0,t1,t2);}
2276 
2277 C_noret_decl(trf_16352)
2278 static void C_ccall trf_16352(C_word c,C_word *av) C_noret;
trf_16352(C_word c,C_word * av)2279 static void C_ccall trf_16352(C_word c,C_word *av){
2280 C_word t0=av[1];
2281 C_word t1=av[0];
2282 f_16352(t0,t1);}
2283 
2284 C_noret_decl(trf_16360)
2285 static void C_ccall trf_16360(C_word c,C_word *av) C_noret;
trf_16360(C_word c,C_word * av)2286 static void C_ccall trf_16360(C_word c,C_word *av){
2287 C_word t0=av[2];
2288 C_word t1=av[1];
2289 C_word t2=av[0];
2290 f_16360(t0,t1,t2);}
2291 
2292 C_noret_decl(trf_16416)
2293 static void C_ccall trf_16416(C_word c,C_word *av) C_noret;
trf_16416(C_word c,C_word * av)2294 static void C_ccall trf_16416(C_word c,C_word *av){
2295 C_word t0=av[1];
2296 C_word t1=av[0];
2297 f_16416(t0,t1);}
2298 
2299 C_noret_decl(trf_16424)
2300 static void C_ccall trf_16424(C_word c,C_word *av) C_noret;
trf_16424(C_word c,C_word * av)2301 static void C_ccall trf_16424(C_word c,C_word *av){
2302 C_word t0=av[2];
2303 C_word t1=av[1];
2304 C_word t2=av[0];
2305 f_16424(t0,t1,t2);}
2306 
2307 C_noret_decl(trf_16472)
2308 static void C_ccall trf_16472(C_word c,C_word *av) C_noret;
trf_16472(C_word c,C_word * av)2309 static void C_ccall trf_16472(C_word c,C_word *av){
2310 C_word t0=av[3];
2311 C_word t1=av[2];
2312 C_word t2=av[1];
2313 C_word t3=av[0];
2314 f_16472(t0,t1,t2,t3);}
2315 
2316 C_noret_decl(trf_16506)
2317 static void C_ccall trf_16506(C_word c,C_word *av) C_noret;
trf_16506(C_word c,C_word * av)2318 static void C_ccall trf_16506(C_word c,C_word *av){
2319 C_word t0=av[1];
2320 C_word t1=av[0];
2321 f_16506(t0,t1);}
2322 
2323 C_noret_decl(trf_16656)
2324 static void C_ccall trf_16656(C_word c,C_word *av) C_noret;
trf_16656(C_word c,C_word * av)2325 static void C_ccall trf_16656(C_word c,C_word *av){
2326 C_word t0=av[3];
2327 C_word t1=av[2];
2328 C_word t2=av[1];
2329 C_word t3=av[0];
2330 f_16656(t0,t1,t2,t3);}
2331 
2332 C_noret_decl(trf_16658)
2333 static void C_ccall trf_16658(C_word c,C_word *av) C_noret;
trf_16658(C_word c,C_word * av)2334 static void C_ccall trf_16658(C_word c,C_word *av){
2335 C_word t0=av[2];
2336 C_word t1=av[1];
2337 C_word t2=av[0];
2338 f_16658(t0,t1,t2);}
2339 
2340 C_noret_decl(trf_16670)
2341 static void C_ccall trf_16670(C_word c,C_word *av) C_noret;
trf_16670(C_word c,C_word * av)2342 static void C_ccall trf_16670(C_word c,C_word *av){
2343 C_word t0=av[2];
2344 C_word t1=av[1];
2345 C_word t2=av[0];
2346 f_16670(t0,t1,t2);}
2347 
2348 C_noret_decl(trf_16814)
2349 static void C_ccall trf_16814(C_word c,C_word *av) C_noret;
trf_16814(C_word c,C_word * av)2350 static void C_ccall trf_16814(C_word c,C_word *av){
2351 C_word t0=av[1];
2352 C_word t1=av[0];
2353 f_16814(t0,t1);}
2354 
2355 C_noret_decl(trf_16859)
2356 static void C_ccall trf_16859(C_word c,C_word *av) C_noret;
trf_16859(C_word c,C_word * av)2357 static void C_ccall trf_16859(C_word c,C_word *av){
2358 C_word t0=av[4];
2359 C_word t1=av[3];
2360 C_word t2=av[2];
2361 C_word t3=av[1];
2362 C_word t4=av[0];
2363 f_16859(t0,t1,t2,t3,t4);}
2364 
2365 C_noret_decl(trf_17228)
2366 static void C_ccall trf_17228(C_word c,C_word *av) C_noret;
trf_17228(C_word c,C_word * av)2367 static void C_ccall trf_17228(C_word c,C_word *av){
2368 C_word t0=av[2];
2369 C_word t1=av[1];
2370 C_word t2=av[0];
2371 f_17228(t0,t1,t2);}
2372 
2373 C_noret_decl(trf_17262)
2374 static void C_ccall trf_17262(C_word c,C_word *av) C_noret;
trf_17262(C_word c,C_word * av)2375 static void C_ccall trf_17262(C_word c,C_word *av){
2376 C_word t0=av[2];
2377 C_word t1=av[1];
2378 C_word t2=av[0];
2379 f_17262(t0,t1,t2);}
2380 
2381 C_noret_decl(trf_17452)
2382 static void C_ccall trf_17452(C_word c,C_word *av) C_noret;
trf_17452(C_word c,C_word * av)2383 static void C_ccall trf_17452(C_word c,C_word *av){
2384 C_word t0=av[1];
2385 C_word t1=av[0];
2386 f_17452(t0,t1);}
2387 
2388 C_noret_decl(trf_17459)
2389 static void C_ccall trf_17459(C_word c,C_word *av) C_noret;
trf_17459(C_word c,C_word * av)2390 static void C_ccall trf_17459(C_word c,C_word *av){
2391 C_word t0=av[2];
2392 C_word t1=av[1];
2393 C_word t2=av[0];
2394 f_17459(t0,t1,t2);}
2395 
2396 C_noret_decl(trf_17541)
2397 static void C_ccall trf_17541(C_word c,C_word *av) C_noret;
trf_17541(C_word c,C_word * av)2398 static void C_ccall trf_17541(C_word c,C_word *av){
2399 C_word t0=av[3];
2400 C_word t1=av[2];
2401 C_word t2=av[1];
2402 C_word t3=av[0];
2403 f_17541(t0,t1,t2,t3);}
2404 
2405 C_noret_decl(trf_17593)
2406 static void C_ccall trf_17593(C_word c,C_word *av) C_noret;
trf_17593(C_word c,C_word * av)2407 static void C_ccall trf_17593(C_word c,C_word *av){
2408 C_word t0=av[2];
2409 C_word t1=av[1];
2410 C_word t2=av[0];
2411 f_17593(t0,t1,t2);}
2412 
2413 C_noret_decl(trf_17632)
2414 static void C_ccall trf_17632(C_word c,C_word *av) C_noret;
trf_17632(C_word c,C_word * av)2415 static void C_ccall trf_17632(C_word c,C_word *av){
2416 C_word t0=av[2];
2417 C_word t1=av[1];
2418 C_word t2=av[0];
2419 f_17632(t0,t1,t2);}
2420 
2421 C_noret_decl(trf_17665)
2422 static void C_ccall trf_17665(C_word c,C_word *av) C_noret;
trf_17665(C_word c,C_word * av)2423 static void C_ccall trf_17665(C_word c,C_word *av){
2424 C_word t0=av[2];
2425 C_word t1=av[1];
2426 C_word t2=av[0];
2427 f_17665(t0,t1,t2);}
2428 
2429 C_noret_decl(trf_17771)
2430 static void C_ccall trf_17771(C_word c,C_word *av) C_noret;
trf_17771(C_word c,C_word * av)2431 static void C_ccall trf_17771(C_word c,C_word *av){
2432 C_word t0=av[1];
2433 C_word t1=av[0];
2434 f_17771(t0,t1);}
2435 
2436 C_noret_decl(trf_18066)
2437 static void C_ccall trf_18066(C_word c,C_word *av) C_noret;
trf_18066(C_word c,C_word * av)2438 static void C_ccall trf_18066(C_word c,C_word *av){
2439 C_word t0=av[2];
2440 C_word t1=av[1];
2441 C_word t2=av[0];
2442 f_18066(t0,t1,t2);}
2443 
2444 C_noret_decl(trf_5482)
2445 static void C_ccall trf_5482(C_word c,C_word *av) C_noret;
trf_5482(C_word c,C_word * av)2446 static void C_ccall trf_5482(C_word c,C_word *av){
2447 C_word t0=av[2];
2448 C_word t1=av[1];
2449 C_word t2=av[0];
2450 f_5482(t0,t1,t2);}
2451 
2452 C_noret_decl(trf_5540)
2453 static void C_ccall trf_5540(C_word c,C_word *av) C_noret;
trf_5540(C_word c,C_word * av)2454 static void C_ccall trf_5540(C_word c,C_word *av){
2455 C_word t0=av[4];
2456 C_word t1=av[3];
2457 C_word t2=av[2];
2458 C_word t3=av[1];
2459 C_word t4=av[0];
2460 f_5540(t0,t1,t2,t3,t4);}
2461 
2462 C_noret_decl(trf_5743)
2463 static void C_ccall trf_5743(C_word c,C_word *av) C_noret;
trf_5743(C_word c,C_word * av)2464 static void C_ccall trf_5743(C_word c,C_word *av){
2465 C_word t0=av[2];
2466 C_word t1=av[1];
2467 C_word t2=av[0];
2468 f_5743(t0,t1,t2);}
2469 
2470 C_noret_decl(trf_5749)
2471 static void C_ccall trf_5749(C_word c,C_word *av) C_noret;
trf_5749(C_word c,C_word * av)2472 static void C_ccall trf_5749(C_word c,C_word *av){
2473 C_word t0=av[2];
2474 C_word t1=av[1];
2475 C_word t2=av[0];
2476 f_5749(t0,t1,t2);}
2477 
2478 C_noret_decl(trf_5777)
2479 static void C_ccall trf_5777(C_word c,C_word *av) C_noret;
trf_5777(C_word c,C_word * av)2480 static void C_ccall trf_5777(C_word c,C_word *av){
2481 C_word t0=av[2];
2482 C_word t1=av[1];
2483 C_word t2=av[0];
2484 f_5777(t0,t1,t2);}
2485 
2486 C_noret_decl(trf_5783)
2487 static void C_ccall trf_5783(C_word c,C_word *av) C_noret;
trf_5783(C_word c,C_word * av)2488 static void C_ccall trf_5783(C_word c,C_word *av){
2489 C_word t0=av[2];
2490 C_word t1=av[1];
2491 C_word t2=av[0];
2492 f_5783(t0,t1,t2);}
2493 
2494 C_noret_decl(trf_5807)
2495 static void C_ccall trf_5807(C_word c,C_word *av) C_noret;
trf_5807(C_word c,C_word * av)2496 static void C_ccall trf_5807(C_word c,C_word *av){
2497 C_word t0=av[2];
2498 C_word t1=av[1];
2499 C_word t2=av[0];
2500 f_5807(t0,t1,t2);}
2501 
2502 C_noret_decl(trf_5813)
2503 static void C_ccall trf_5813(C_word c,C_word *av) C_noret;
trf_5813(C_word c,C_word * av)2504 static void C_ccall trf_5813(C_word c,C_word *av){
2505 C_word t0=av[3];
2506 C_word t1=av[2];
2507 C_word t2=av[1];
2508 C_word t3=av[0];
2509 f_5813(t0,t1,t2,t3);}
2510 
2511 C_noret_decl(trf_6036)
2512 static void C_ccall trf_6036(C_word c,C_word *av) C_noret;
trf_6036(C_word c,C_word * av)2513 static void C_ccall trf_6036(C_word c,C_word *av){
2514 C_word t0=av[2];
2515 C_word t1=av[1];
2516 C_word t2=av[0];
2517 f_6036(t0,t1,t2);}
2518 
2519 C_noret_decl(trf_6044)
2520 static void C_ccall trf_6044(C_word c,C_word *av) C_noret;
trf_6044(C_word c,C_word * av)2521 static void C_ccall trf_6044(C_word c,C_word *av){
2522 C_word t0=av[3];
2523 C_word t1=av[2];
2524 C_word t2=av[1];
2525 C_word t3=av[0];
2526 f_6044(t0,t1,t2,t3);}
2527 
2528 C_noret_decl(trf_6109)
2529 static void C_ccall trf_6109(C_word c,C_word *av) C_noret;
trf_6109(C_word c,C_word * av)2530 static void C_ccall trf_6109(C_word c,C_word *av){
2531 C_word t0=av[2];
2532 C_word t1=av[1];
2533 C_word t2=av[0];
2534 f_6109(t0,t1,t2);}
2535 
2536 C_noret_decl(trf_6143)
2537 static void C_ccall trf_6143(C_word c,C_word *av) C_noret;
trf_6143(C_word c,C_word * av)2538 static void C_ccall trf_6143(C_word c,C_word *av){
2539 C_word t0=av[1];
2540 C_word t1=av[0];
2541 f_6143(t0,t1);}
2542 
2543 C_noret_decl(trf_6202)
2544 static void C_ccall trf_6202(C_word c,C_word *av) C_noret;
trf_6202(C_word c,C_word * av)2545 static void C_ccall trf_6202(C_word c,C_word *av){
2546 C_word t0=av[2];
2547 C_word t1=av[1];
2548 C_word t2=av[0];
2549 f_6202(t0,t1,t2);}
2550 
2551 C_noret_decl(trf_6208)
2552 static void C_ccall trf_6208(C_word c,C_word *av) C_noret;
trf_6208(C_word c,C_word * av)2553 static void C_ccall trf_6208(C_word c,C_word *av){
2554 C_word t0=av[3];
2555 C_word t1=av[2];
2556 C_word t2=av[1];
2557 C_word t3=av[0];
2558 f_6208(t0,t1,t2,t3);}
2559 
2560 C_noret_decl(trf_6391)
2561 static void C_ccall trf_6391(C_word c,C_word *av) C_noret;
trf_6391(C_word c,C_word * av)2562 static void C_ccall trf_6391(C_word c,C_word *av){
2563 C_word t0=av[2];
2564 C_word t1=av[1];
2565 C_word t2=av[0];
2566 f_6391(t0,t1,t2);}
2567 
2568 C_noret_decl(trf_6504)
2569 static void C_ccall trf_6504(C_word c,C_word *av) C_noret;
trf_6504(C_word c,C_word * av)2570 static void C_ccall trf_6504(C_word c,C_word *av){
2571 C_word t0=av[2];
2572 C_word t1=av[1];
2573 C_word t2=av[0];
2574 f_6504(t0,t1,t2);}
2575 
2576 C_noret_decl(trf_6687)
2577 static void C_ccall trf_6687(C_word c,C_word *av) C_noret;
trf_6687(C_word c,C_word * av)2578 static void C_ccall trf_6687(C_word c,C_word *av){
2579 C_word t0=av[2];
2580 C_word t1=av[1];
2581 C_word t2=av[0];
2582 f_6687(t0,t1,t2);}
2583 
2584 C_noret_decl(trf_6711)
2585 static void C_ccall trf_6711(C_word c,C_word *av) C_noret;
trf_6711(C_word c,C_word * av)2586 static void C_ccall trf_6711(C_word c,C_word *av){
2587 C_word t0=av[1];
2588 C_word t1=av[0];
2589 f_6711(t0,t1);}
2590 
2591 C_noret_decl(trf_6753)
2592 static void C_ccall trf_6753(C_word c,C_word *av) C_noret;
trf_6753(C_word c,C_word * av)2593 static void C_ccall trf_6753(C_word c,C_word *av){
2594 C_word t0=av[2];
2595 C_word t1=av[1];
2596 C_word t2=av[0];
2597 f_6753(t0,t1,t2);}
2598 
2599 C_noret_decl(trf_6776)
2600 static void C_ccall trf_6776(C_word c,C_word *av) C_noret;
trf_6776(C_word c,C_word * av)2601 static void C_ccall trf_6776(C_word c,C_word *av){
2602 C_word t0=av[2];
2603 C_word t1=av[1];
2604 C_word t2=av[0];
2605 f_6776(t0,t1,t2);}
2606 
2607 C_noret_decl(trf_6831)
2608 static void C_ccall trf_6831(C_word c,C_word *av) C_noret;
trf_6831(C_word c,C_word * av)2609 static void C_ccall trf_6831(C_word c,C_word *av){
2610 C_word t0=av[2];
2611 C_word t1=av[1];
2612 C_word t2=av[0];
2613 f_6831(t0,t1,t2);}
2614 
2615 C_noret_decl(trf_6833)
2616 static void C_ccall trf_6833(C_word c,C_word *av) C_noret;
trf_6833(C_word c,C_word * av)2617 static void C_ccall trf_6833(C_word c,C_word *av){
2618 C_word t0=av[2];
2619 C_word t1=av[1];
2620 C_word t2=av[0];
2621 f_6833(t0,t1,t2);}
2622 
2623 C_noret_decl(trf_6865)
2624 static void C_ccall trf_6865(C_word c,C_word *av) C_noret;
trf_6865(C_word c,C_word * av)2625 static void C_ccall trf_6865(C_word c,C_word *av){
2626 C_word t0=av[2];
2627 C_word t1=av[1];
2628 C_word t2=av[0];
2629 f_6865(t0,t1,t2);}
2630 
2631 C_noret_decl(trf_6945)
2632 static void C_ccall trf_6945(C_word c,C_word *av) C_noret;
trf_6945(C_word c,C_word * av)2633 static void C_ccall trf_6945(C_word c,C_word *av){
2634 C_word t0=av[1];
2635 C_word t1=av[0];
2636 f_6945(t0,t1);}
2637 
2638 C_noret_decl(trf_6949)
2639 static void C_ccall trf_6949(C_word c,C_word *av) C_noret;
trf_6949(C_word c,C_word * av)2640 static void C_ccall trf_6949(C_word c,C_word *av){
2641 C_word t0=av[2];
2642 C_word t1=av[1];
2643 C_word t2=av[0];
2644 f_6949(t0,t1,t2);}
2645 
2646 C_noret_decl(trf_6967)
2647 static void C_ccall trf_6967(C_word c,C_word *av) C_noret;
trf_6967(C_word c,C_word * av)2648 static void C_ccall trf_6967(C_word c,C_word *av){
2649 C_word t0=av[2];
2650 C_word t1=av[1];
2651 C_word t2=av[0];
2652 f_6967(t0,t1,t2);}
2653 
2654 C_noret_decl(trf_7139)
2655 static void C_ccall trf_7139(C_word c,C_word *av) C_noret;
trf_7139(C_word c,C_word * av)2656 static void C_ccall trf_7139(C_word c,C_word *av){
2657 C_word t0=av[3];
2658 C_word t1=av[2];
2659 C_word t2=av[1];
2660 C_word t3=av[0];
2661 f_7139(t0,t1,t2,t3);}
2662 
2663 C_noret_decl(trf_7188)
2664 static void C_ccall trf_7188(C_word c,C_word *av) C_noret;
trf_7188(C_word c,C_word * av)2665 static void C_ccall trf_7188(C_word c,C_word *av){
2666 C_word t0=av[2];
2667 C_word t1=av[1];
2668 C_word t2=av[0];
2669 f_7188(t0,t1,t2);}
2670 
2671 C_noret_decl(trf_7210)
2672 static void C_ccall trf_7210(C_word c,C_word *av) C_noret;
trf_7210(C_word c,C_word * av)2673 static void C_ccall trf_7210(C_word c,C_word *av){
2674 C_word t0=av[1];
2675 C_word t1=av[0];
2676 f_7210(t0,t1);}
2677 
2678 C_noret_decl(trf_7217)
2679 static void C_ccall trf_7217(C_word c,C_word *av) C_noret;
trf_7217(C_word c,C_word * av)2680 static void C_ccall trf_7217(C_word c,C_word *av){
2681 C_word t0=av[1];
2682 C_word t1=av[0];
2683 f_7217(t0,t1);}
2684 
2685 C_noret_decl(trf_7405)
2686 static void C_ccall trf_7405(C_word c,C_word *av) C_noret;
trf_7405(C_word c,C_word * av)2687 static void C_ccall trf_7405(C_word c,C_word *av){
2688 C_word t0=av[2];
2689 C_word t1=av[1];
2690 C_word t2=av[0];
2691 f_7405(t0,t1,t2);}
2692 
2693 C_noret_decl(trf_7445)
2694 static void C_ccall trf_7445(C_word c,C_word *av) C_noret;
trf_7445(C_word c,C_word * av)2695 static void C_ccall trf_7445(C_word c,C_word *av){
2696 C_word t0=av[3];
2697 C_word t1=av[2];
2698 C_word t2=av[1];
2699 C_word t3=av[0];
2700 f_7445(t0,t1,t2,t3);}
2701 
2702 C_noret_decl(trf_7451)
2703 static void C_ccall trf_7451(C_word c,C_word *av) C_noret;
trf_7451(C_word c,C_word * av)2704 static void C_ccall trf_7451(C_word c,C_word *av){
2705 C_word t0=av[3];
2706 C_word t1=av[2];
2707 C_word t2=av[1];
2708 C_word t3=av[0];
2709 f_7451(t0,t1,t2,t3);}
2710 
2711 C_noret_decl(trf_7509)
2712 static void C_ccall trf_7509(C_word c,C_word *av) C_noret;
trf_7509(C_word c,C_word * av)2713 static void C_ccall trf_7509(C_word c,C_word *av){
2714 C_word t0=av[4];
2715 C_word t1=av[3];
2716 C_word t2=av[2];
2717 C_word t3=av[1];
2718 C_word t4=av[0];
2719 f_7509(t0,t1,t2,t3,t4);}
2720 
2721 C_noret_decl(trf_7636)
2722 static void C_ccall trf_7636(C_word c,C_word *av) C_noret;
trf_7636(C_word c,C_word * av)2723 static void C_ccall trf_7636(C_word c,C_word *av){
2724 C_word t0=av[1];
2725 C_word t1=av[0];
2726 f_7636(t0,t1);}
2727 
2728 C_noret_decl(trf_7740)
2729 static void C_ccall trf_7740(C_word c,C_word *av) C_noret;
trf_7740(C_word c,C_word * av)2730 static void C_ccall trf_7740(C_word c,C_word *av){
2731 C_word t0=av[2];
2732 C_word t1=av[1];
2733 C_word t2=av[0];
2734 f_7740(t0,t1,t2);}
2735 
2736 C_noret_decl(trf_7764)
2737 static void C_ccall trf_7764(C_word c,C_word *av) C_noret;
trf_7764(C_word c,C_word * av)2738 static void C_ccall trf_7764(C_word c,C_word *av){
2739 C_word t0=av[1];
2740 C_word t1=av[0];
2741 f_7764(t0,t1);}
2742 
2743 C_noret_decl(trf_7855)
2744 static void C_ccall trf_7855(C_word c,C_word *av) C_noret;
trf_7855(C_word c,C_word * av)2745 static void C_ccall trf_7855(C_word c,C_word *av){
2746 C_word t0=av[1];
2747 C_word t1=av[0];
2748 f_7855(t0,t1);}
2749 
2750 C_noret_decl(trf_7887)
2751 static void C_ccall trf_7887(C_word c,C_word *av) C_noret;
trf_7887(C_word c,C_word * av)2752 static void C_ccall trf_7887(C_word c,C_word *av){
2753 C_word t0=av[2];
2754 C_word t1=av[1];
2755 C_word t2=av[0];
2756 f_7887(t0,t1,t2);}
2757 
2758 C_noret_decl(trf_7912)
2759 static void C_ccall trf_7912(C_word c,C_word *av) C_noret;
trf_7912(C_word c,C_word * av)2760 static void C_ccall trf_7912(C_word c,C_word *av){
2761 C_word t0=av[2];
2762 C_word t1=av[1];
2763 C_word t2=av[0];
2764 f_7912(t0,t1,t2);}
2765 
2766 C_noret_decl(trf_8082)
2767 static void C_ccall trf_8082(C_word c,C_word *av) C_noret;
trf_8082(C_word c,C_word * av)2768 static void C_ccall trf_8082(C_word c,C_word *av){
2769 C_word t0=av[2];
2770 C_word t1=av[1];
2771 C_word t2=av[0];
2772 f_8082(t0,t1,t2);}
2773 
2774 C_noret_decl(trf_8299)
2775 static void C_ccall trf_8299(C_word c,C_word *av) C_noret;
trf_8299(C_word c,C_word * av)2776 static void C_ccall trf_8299(C_word c,C_word *av){
2777 C_word t0=av[2];
2778 C_word t1=av[1];
2779 C_word t2=av[0];
2780 f_8299(t0,t1,t2);}
2781 
2782 C_noret_decl(trf_8363)
2783 static void C_ccall trf_8363(C_word c,C_word *av) C_noret;
trf_8363(C_word c,C_word * av)2784 static void C_ccall trf_8363(C_word c,C_word *av){
2785 C_word t0=av[2];
2786 C_word t1=av[1];
2787 C_word t2=av[0];
2788 f_8363(t0,t1,t2);}
2789 
2790 C_noret_decl(trf_8506)
2791 static void C_ccall trf_8506(C_word c,C_word *av) C_noret;
trf_8506(C_word c,C_word * av)2792 static void C_ccall trf_8506(C_word c,C_word *av){
2793 C_word t0=av[2];
2794 C_word t1=av[1];
2795 C_word t2=av[0];
2796 f_8506(t0,t1,t2);}
2797 
2798 C_noret_decl(trf_8575)
2799 static void C_ccall trf_8575(C_word c,C_word *av) C_noret;
trf_8575(C_word c,C_word * av)2800 static void C_ccall trf_8575(C_word c,C_word *av){
2801 C_word t0=av[2];
2802 C_word t1=av[1];
2803 C_word t2=av[0];
2804 f_8575(t0,t1,t2);}
2805 
2806 C_noret_decl(trf_8626)
2807 static void C_ccall trf_8626(C_word c,C_word *av) C_noret;
trf_8626(C_word c,C_word * av)2808 static void C_ccall trf_8626(C_word c,C_word *av){
2809 C_word t0=av[1];
2810 C_word t1=av[0];
2811 f_8626(t0,t1);}
2812 
2813 C_noret_decl(trf_8692)
2814 static void C_ccall trf_8692(C_word c,C_word *av) C_noret;
trf_8692(C_word c,C_word * av)2815 static void C_ccall trf_8692(C_word c,C_word *av){
2816 C_word t0=av[2];
2817 C_word t1=av[1];
2818 C_word t2=av[0];
2819 f_8692(t0,t1,t2);}
2820 
2821 C_noret_decl(trf_8719)
2822 static void C_ccall trf_8719(C_word c,C_word *av) C_noret;
trf_8719(C_word c,C_word * av)2823 static void C_ccall trf_8719(C_word c,C_word *av){
2824 C_word t0=av[2];
2825 C_word t1=av[1];
2826 C_word t2=av[0];
2827 f_8719(t0,t1,t2);}
2828 
2829 C_noret_decl(trf_8845)
2830 static void C_ccall trf_8845(C_word c,C_word *av) C_noret;
trf_8845(C_word c,C_word * av)2831 static void C_ccall trf_8845(C_word c,C_word *av){
2832 C_word t0=av[4];
2833 C_word t1=av[3];
2834 C_word t2=av[2];
2835 C_word t3=av[1];
2836 C_word t4=av[0];
2837 f_8845(t0,t1,t2,t3,t4);}
2838 
2839 C_noret_decl(trf_8995)
2840 static void C_ccall trf_8995(C_word c,C_word *av) C_noret;
trf_8995(C_word c,C_word * av)2841 static void C_ccall trf_8995(C_word c,C_word *av){
2842 C_word t0=av[1];
2843 C_word t1=av[0];
2844 f_8995(t0,t1);}
2845 
2846 C_noret_decl(trf_9009)
2847 static void C_ccall trf_9009(C_word c,C_word *av) C_noret;
trf_9009(C_word c,C_word * av)2848 static void C_ccall trf_9009(C_word c,C_word *av){
2849 C_word t0=av[2];
2850 C_word t1=av[1];
2851 C_word t2=av[0];
2852 f_9009(t0,t1,t2);}
2853 
2854 C_noret_decl(trf_9068)
2855 static void C_ccall trf_9068(C_word c,C_word *av) C_noret;
trf_9068(C_word c,C_word * av)2856 static void C_ccall trf_9068(C_word c,C_word *av){
2857 C_word t0=av[1];
2858 C_word t1=av[0];
2859 f_9068(t0,t1);}
2860 
2861 C_noret_decl(trf_9096)
2862 static void C_ccall trf_9096(C_word c,C_word *av) C_noret;
trf_9096(C_word c,C_word * av)2863 static void C_ccall trf_9096(C_word c,C_word *av){
2864 C_word t0=av[2];
2865 C_word t1=av[1];
2866 C_word t2=av[0];
2867 f_9096(t0,t1,t2);}
2868 
2869 C_noret_decl(trf_9207)
2870 static void C_ccall trf_9207(C_word c,C_word *av) C_noret;
trf_9207(C_word c,C_word * av)2871 static void C_ccall trf_9207(C_word c,C_word *av){
2872 C_word t0=av[2];
2873 C_word t1=av[1];
2874 C_word t2=av[0];
2875 f_9207(t0,t1,t2);}
2876 
2877 C_noret_decl(trf_9313)
2878 static void C_ccall trf_9313(C_word c,C_word *av) C_noret;
trf_9313(C_word c,C_word * av)2879 static void C_ccall trf_9313(C_word c,C_word *av){
2880 C_word t0=av[1];
2881 C_word t1=av[0];
2882 f_9313(t0,t1);}
2883 
2884 C_noret_decl(trf_9344)
2885 static void C_ccall trf_9344(C_word c,C_word *av) C_noret;
trf_9344(C_word c,C_word * av)2886 static void C_ccall trf_9344(C_word c,C_word *av){
2887 C_word t0=av[2];
2888 C_word t1=av[1];
2889 C_word t2=av[0];
2890 f_9344(t0,t1,t2);}
2891 
2892 C_noret_decl(trf_9407)
2893 static void C_ccall trf_9407(C_word c,C_word *av) C_noret;
trf_9407(C_word c,C_word * av)2894 static void C_ccall trf_9407(C_word c,C_word *av){
2895 C_word t0=av[2];
2896 C_word t1=av[1];
2897 C_word t2=av[0];
2898 f_9407(t0,t1,t2);}
2899 
2900 C_noret_decl(trf_9475)
2901 static void C_ccall trf_9475(C_word c,C_word *av) C_noret;
trf_9475(C_word c,C_word * av)2902 static void C_ccall trf_9475(C_word c,C_word *av){
2903 C_word t0=av[2];
2904 C_word t1=av[1];
2905 C_word t2=av[0];
2906 f_9475(t0,t1,t2);}
2907 
2908 C_noret_decl(trf_9511)
2909 static void C_ccall trf_9511(C_word c,C_word *av) C_noret;
trf_9511(C_word c,C_word * av)2910 static void C_ccall trf_9511(C_word c,C_word *av){
2911 C_word t0=av[1];
2912 C_word t1=av[0];
2913 f_9511(t0,t1);}
2914 
2915 C_noret_decl(trf_9647)
2916 static void C_ccall trf_9647(C_word c,C_word *av) C_noret;
trf_9647(C_word c,C_word * av)2917 static void C_ccall trf_9647(C_word c,C_word *av){
2918 C_word t0=av[2];
2919 C_word t1=av[1];
2920 C_word t2=av[0];
2921 f_9647(t0,t1,t2);}
2922 
2923 C_noret_decl(trf_9705)
2924 static void C_ccall trf_9705(C_word c,C_word *av) C_noret;
trf_9705(C_word c,C_word * av)2925 static void C_ccall trf_9705(C_word c,C_word *av){
2926 C_word t0=av[2];
2927 C_word t1=av[1];
2928 C_word t2=av[0];
2929 f_9705(t0,t1,t2);}
2930 
2931 C_noret_decl(trf_9739)
2932 static void C_ccall trf_9739(C_word c,C_word *av) C_noret;
trf_9739(C_word c,C_word * av)2933 static void C_ccall trf_9739(C_word c,C_word *av){
2934 C_word t0=av[1];
2935 C_word t1=av[0];
2936 f_9739(t0,t1);}
2937 
2938 C_noret_decl(trf_9754)
2939 static void C_ccall trf_9754(C_word c,C_word *av) C_noret;
trf_9754(C_word c,C_word * av)2940 static void C_ccall trf_9754(C_word c,C_word *av){
2941 C_word t0=av[2];
2942 C_word t1=av[1];
2943 C_word t2=av[0];
2944 f_9754(t0,t1,t2);}
2945 
2946 C_noret_decl(trf_9811)
2947 static void C_ccall trf_9811(C_word c,C_word *av) C_noret;
trf_9811(C_word c,C_word * av)2948 static void C_ccall trf_9811(C_word c,C_word *av){
2949 C_word t0=av[2];
2950 C_word t1=av[1];
2951 C_word t2=av[0];
2952 f_9811(t0,t1,t2);}
2953 
2954 C_noret_decl(trf_9931)
2955 static void C_ccall trf_9931(C_word c,C_word *av) C_noret;
trf_9931(C_word c,C_word * av)2956 static void C_ccall trf_9931(C_word c,C_word *av){
2957 C_word t0=av[3];
2958 C_word t1=av[2];
2959 C_word t2=av[1];
2960 C_word t3=av[0];
2961 f_9931(t0,t1,t2,t3);}
2962 
2963 C_noret_decl(trf_9979)
2964 static void C_ccall trf_9979(C_word c,C_word *av) C_noret;
trf_9979(C_word c,C_word * av)2965 static void C_ccall trf_9979(C_word c,C_word *av){
2966 C_word t0=av[2];
2967 C_word t1=av[1];
2968 C_word t2=av[0];
2969 f_9979(t0,t1,t2);}
2970 
2971 /* f19850 in chicken.compiler.support#print-version in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f19850(C_word c,C_word * av)2972 static void C_ccall f19850(C_word c,C_word *av){
2973 C_word tmp;
2974 C_word t0=av[0];
2975 C_word t1=av[1];
2976 C_word t2;
2977 C_word *a;
2978 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
2979 C_save_and_reclaim((void *)f19850,c,av);}
2980 /* support.scm:1791: chicken.base#print */
2981 t2=*((C_word*)lf[237]+1);{
2982 C_word *av2;
2983 if(c >= 3) {
2984   av2=av;
2985 } else {
2986   av2=C_alloc(3);
2987 }
2988 av2[0]=t2;
2989 av2[1]=((C_word*)t0)[2];
2990 av2[2]=t1;
2991 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
2992 
2993 /* k10002 in map-loop1861 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10004(C_word c,C_word * av)2994 static void C_ccall f_10004(C_word c,C_word *av){
2995 C_word tmp;
2996 C_word t0=av[0];
2997 C_word t1=av[1];
2998 C_word t2;
2999 C_word t3;
3000 C_word t4;
3001 C_word t5;
3002 C_word *a;
3003 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3004 C_save_and_reclaim((void *)f_10004,c,av);}
3005 a=C_alloc(3);
3006 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3007 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3008 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3009 t5=((C_word*)((C_word*)t0)[3])[1];
3010 f_9979(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3011 
3012 /* k10030 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10032(C_word c,C_word * av)3013 static void C_ccall f_10032(C_word c,C_word *av){
3014 C_word tmp;
3015 C_word t0=av[0];
3016 C_word t1=av[1];
3017 C_word t2;
3018 C_word *a;
3019 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
3020 C_save_and_reclaim((void *)f_10032,c,av);}
3021 a=C_alloc(9);
3022 t2=((C_word*)t0)[2];{
3023 C_word *av2=av;
3024 av2[0]=t2;
3025 av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1);
3026 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3027 
3028 /* k10054 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10056(C_word c,C_word * av)3029 static void C_ccall f_10056(C_word c,C_word *av){
3030 C_word tmp;
3031 C_word t0=av[0];
3032 C_word t1=av[1];
3033 C_word t2;
3034 C_word *a;
3035 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
3036 C_save_and_reclaim((void *)f_10056,c,av);}
3037 a=C_alloc(9);
3038 t2=((C_word*)t0)[2];{
3039 C_word *av2=av;
3040 av2[0]=t2;
3041 av2[1]=C_a_i_list(&a,3,lf[195],((C_word*)t0)[3],t1);
3042 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3043 
3044 /* k10088 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10090(C_word c,C_word * av)3045 static void C_ccall f_10090(C_word c,C_word *av){
3046 C_word tmp;
3047 C_word t0=av[0];
3048 C_word t1=av[1];
3049 C_word t2;
3050 C_word t3;
3051 C_word t4;
3052 C_word t5;
3053 C_word t6;
3054 C_word t7;
3055 C_word t8;
3056 C_word *a;
3057 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
3058 C_save_and_reclaim((void *)f_10090,c,av);}
3059 a=C_alloc(10);
3060 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10094,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
3061 t3=C_i_cdr(((C_word*)t0)[3]);
3062 t4=C_i_cdr(((C_word*)t0)[4]);
3063 t5=C_SCHEME_UNDEFINED;
3064 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
3065 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10104,a[2]=((C_word*)t0)[5],a[3]=t6,tmp=(C_word)a,a+=4,tmp));
3066 t8=((C_word*)t6)[1];
3067 f_10104(t8,t2,t3,t4);}
3068 
3069 /* k10092 in k10088 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10094(C_word c,C_word * av)3070 static void C_ccall f_10094(C_word c,C_word *av){
3071 C_word tmp;
3072 C_word t0=av[0];
3073 C_word t1=av[1];
3074 C_word t2;
3075 C_word t3;
3076 C_word *a;
3077 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
3078 C_save_and_reclaim((void *)f_10094,c,av);}
3079 a=C_alloc(6);
3080 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
3081 t3=((C_word*)t0)[3];{
3082 C_word *av2=av;
3083 av2[0]=t3;
3084 av2[1]=C_a_i_cons(&a,2,lf[197],t2);
3085 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3086 
3087 /* loop in k10088 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10104(C_word t0,C_word t1,C_word t2,C_word t3)3088 static void C_fcall f_10104(C_word t0,C_word t1,C_word t2,C_word t3){
3089 C_word tmp;
3090 C_word t4;
3091 C_word t5;
3092 C_word t6;
3093 C_word *a;
3094 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
3095 C_save_and_reclaim_args((void *)trf_10104,4,t0,t1,t2,t3);}
3096 a=C_alloc(7);
3097 if(C_truep(C_i_nullp(t2))){
3098 if(C_truep(C_i_nullp(t3))){
3099 t4=t1;{
3100 C_word av2[2];
3101 av2[0]=t4;
3102 av2[1]=C_SCHEME_END_OF_LIST;
3103 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
3104 else{
3105 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10128,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
3106 /* support.scm:618: walk */
3107 t5=((C_word*)((C_word*)t0)[2])[1];
3108 f_9705(t5,t4,C_i_car(t3));}}
3109 else{
3110 t4=C_i_car(t2);
3111 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10155,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
3112 /* support.scm:619: walk */
3113 t6=((C_word*)((C_word*)t0)[2])[1];
3114 f_9705(t6,t5,C_i_car(t3));}}
3115 
3116 /* k10126 in loop in k10088 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10128(C_word c,C_word * av)3117 static void C_ccall f_10128(C_word c,C_word *av){
3118 C_word tmp;
3119 C_word t0=av[0];
3120 C_word t1=av[1];
3121 C_word t2;
3122 C_word t3;
3123 C_word *a;
3124 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
3125 C_save_and_reclaim((void *)f_10128,c,av);}
3126 a=C_alloc(9);
3127 t2=C_a_i_list(&a,2,lf[168],t1);
3128 t3=((C_word*)t0)[2];{
3129 C_word *av2=av;
3130 av2[0]=t3;
3131 av2[1]=C_a_i_list(&a,1,t2);
3132 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3133 
3134 /* k10141 in k10153 in loop in k10088 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10143(C_word c,C_word * av)3135 static void C_ccall f_10143(C_word c,C_word *av){
3136 C_word tmp;
3137 C_word t0=av[0];
3138 C_word t1=av[1];
3139 C_word t2;
3140 C_word *a;
3141 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
3142 C_save_and_reclaim((void *)f_10143,c,av);}
3143 a=C_alloc(3);
3144 t2=((C_word*)t0)[2];{
3145 C_word *av2=av;
3146 av2[0]=t2;
3147 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
3148 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3149 
3150 /* k10153 in loop in k10088 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10155(C_word c,C_word * av)3151 static void C_ccall f_10155(C_word c,C_word *av){
3152 C_word tmp;
3153 C_word t0=av[0];
3154 C_word t1=av[1];
3155 C_word t2;
3156 C_word t3;
3157 C_word t4;
3158 C_word *a;
3159 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
3160 C_save_and_reclaim((void *)f_10155,c,av);}
3161 a=C_alloc(10);
3162 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
3163 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10143,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3164 /* support.scm:620: loop */
3165 t4=((C_word*)((C_word*)t0)[4])[1];
3166 f_10104(t4,t3,C_u_i_cdr(((C_word*)t0)[5]),C_u_i_cdr(((C_word*)t0)[6]));}
3167 
3168 /* map-loop1910 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10180(C_word t0,C_word t1,C_word t2)3169 static void C_fcall f_10180(C_word t0,C_word t1,C_word t2){
3170 C_word tmp;
3171 C_word t3;
3172 C_word t4;
3173 C_word *a;
3174 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3175 C_save_and_reclaim_args((void *)trf_10180,3,t0,t1,t2);}
3176 a=C_alloc(6);
3177 if(C_truep(C_i_pairp(t2))){
3178 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10205,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
3179 /* support.scm:622: g1916 */
3180 t4=((C_word*)((C_word*)t0)[4])[1];
3181 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
3182 else{
3183 t3=t1;{
3184 C_word av2[2];
3185 av2[0]=t3;
3186 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
3187 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
3188 
3189 /* k10203 in map-loop1910 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10205(C_word c,C_word * av)3190 static void C_ccall f_10205(C_word c,C_word *av){
3191 C_word tmp;
3192 C_word t0=av[0];
3193 C_word t1=av[1];
3194 C_word t2;
3195 C_word t3;
3196 C_word t4;
3197 C_word t5;
3198 C_word *a;
3199 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3200 C_save_and_reclaim((void *)f_10205,c,av);}
3201 a=C_alloc(3);
3202 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3203 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3204 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3205 t5=((C_word*)((C_word*)t0)[3])[1];
3206 f_10180(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3207 
3208 /* k10233 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10235(C_word c,C_word * av)3209 static void C_ccall f_10235(C_word c,C_word *av){
3210 C_word tmp;
3211 C_word t0=av[0];
3212 C_word t1=av[1];
3213 C_word t2;
3214 C_word *a;
3215 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
3216 C_save_and_reclaim((void *)f_10235,c,av);}
3217 a=C_alloc(6);
3218 /* support.scm:623: cons* */
3219 f_5807(((C_word*)t0)[2],lf[189],C_a_i_list(&a,2,((C_word*)t0)[3],t1));}
3220 
3221 /* map-loop1936 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10237(C_word t0,C_word t1,C_word t2)3222 static void C_fcall f_10237(C_word t0,C_word t1,C_word t2){
3223 C_word tmp;
3224 C_word t3;
3225 C_word t4;
3226 C_word *a;
3227 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3228 C_save_and_reclaim_args((void *)trf_10237,3,t0,t1,t2);}
3229 a=C_alloc(6);
3230 if(C_truep(C_i_pairp(t2))){
3231 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
3232 /* support.scm:623: g1942 */
3233 t4=((C_word*)((C_word*)t0)[4])[1];
3234 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
3235 else{
3236 t3=t1;{
3237 C_word av2[2];
3238 av2[0]=t3;
3239 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
3240 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
3241 
3242 /* k10260 in map-loop1936 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10262(C_word c,C_word * av)3243 static void C_ccall f_10262(C_word c,C_word *av){
3244 C_word tmp;
3245 C_word t0=av[0];
3246 C_word t1=av[1];
3247 C_word t2;
3248 C_word t3;
3249 C_word t4;
3250 C_word t5;
3251 C_word *a;
3252 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3253 C_save_and_reclaim((void *)f_10262,c,av);}
3254 a=C_alloc(3);
3255 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3256 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3257 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3258 t5=((C_word*)((C_word*)t0)[3])[1];
3259 f_10237(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3260 
3261 /* loop in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10293(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)3262 static void C_fcall f_10293(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
3263 C_word tmp;
3264 C_word t5;
3265 C_word t6;
3266 C_word t7;
3267 C_word t8;
3268 C_word *a;
3269 if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){
3270 C_save_and_reclaim_args((void *)trf_10293,5,t0,t1,t2,t3,t4);}
3271 a=C_alloc(36);
3272 if(C_truep(C_i_zerop(t2))){
3273 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10305,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
3274 /* support.scm:628: scheme#reverse */
3275 t6=*((C_word*)lf[80]+1);{
3276 C_word av2[3];
3277 av2[0]=t6;
3278 av2[1]=t5;
3279 av2[2]=t4;
3280 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
3281 else{
3282 t5=C_s_a_i_minus(&a,2,t2,C_fix(1));
3283 t6=C_i_cdr(t3);
3284 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10332,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
3285 /* support.scm:629: walk */
3286 t8=((C_word*)((C_word*)t0)[2])[1];
3287 f_9705(t8,t7,C_u_i_car(t3));}}
3288 
3289 /* k10303 in loop in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10305(C_word c,C_word * av)3290 static void C_ccall f_10305(C_word c,C_word *av){
3291 C_word tmp;
3292 C_word t0=av[0];
3293 C_word t1=av[1];
3294 C_word t2;
3295 C_word t3;
3296 C_word *a;
3297 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
3298 C_save_and_reclaim((void *)f_10305,c,av);}
3299 a=C_alloc(4);
3300 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10309,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3301 /* support.scm:628: walk */
3302 t3=((C_word*)((C_word*)t0)[3])[1];
3303 f_9705(t3,t2,C_i_car(((C_word*)t0)[4]));}
3304 
3305 /* k10307 in k10303 in loop in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10309(C_word c,C_word * av)3306 static void C_ccall f_10309(C_word c,C_word *av){
3307 C_word tmp;
3308 C_word t0=av[0];
3309 C_word t1=av[1];
3310 C_word t2;
3311 C_word *a;
3312 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
3313 C_save_and_reclaim((void *)f_10309,c,av);}
3314 a=C_alloc(9);
3315 t2=((C_word*)t0)[2];{
3316 C_word *av2=av;
3317 av2[0]=t2;
3318 av2[1]=C_a_i_list(&a,3,lf[198],((C_word*)t0)[3],t1);
3319 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3320 
3321 /* k10330 in loop in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10332(C_word c,C_word * av)3322 static void C_ccall f_10332(C_word c,C_word *av){
3323 C_word tmp;
3324 C_word t0=av[0];
3325 C_word t1=av[1];
3326 C_word t2;
3327 C_word t3;
3328 C_word *a;
3329 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
3330 C_save_and_reclaim((void *)f_10332,c,av);}
3331 a=C_alloc(3);
3332 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
3333 /* support.scm:629: loop */
3334 t3=((C_word*)((C_word*)t0)[3])[1];
3335 f_10293(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);}
3336 
3337 /* k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10343(C_word t0,C_word t1)3338 static void C_fcall f_10343(C_word t0,C_word t1){
3339 C_word tmp;
3340 C_word t2;
3341 C_word t3;
3342 C_word t4;
3343 C_word t5;
3344 C_word t6;
3345 C_word t7;
3346 C_word t8;
3347 C_word t9;
3348 C_word t10;
3349 C_word t11;
3350 C_word t12;
3351 C_word t13;
3352 C_word *a;
3353 if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
3354 C_save_and_reclaim_args((void *)trf_10343,2,t0,t1);}
3355 a=C_alloc(21);
3356 if(C_truep(t1)){
3357 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
3358 /* support.scm:631: walk */
3359 t3=((C_word*)((C_word*)t0)[6])[1];
3360 f_9705(t3,t2,C_i_car(((C_word*)t0)[2]));}
3361 else{
3362 t2=C_eqp(((C_word*)t0)[4],lf[177]);
3363 if(C_truep(t2)){
3364 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3365 t4=t3;
3366 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
3367 t6=((C_word*)t5)[1];
3368 t7=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
3369 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10418,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
3370 t9=C_SCHEME_UNDEFINED;
3371 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
3372 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10420,a[2]=t5,a[3]=t10,a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
3373 t12=((C_word*)t10)[1];
3374 f_10420(t12,t8,((C_word*)t0)[2]);}
3375 else{
3376 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10459,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
3377 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3378 t5=t4;
3379 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
3380 t7=((C_word*)t6)[1];
3381 t8=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
3382 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10469,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
3383 t10=C_SCHEME_UNDEFINED;
3384 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
3385 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10471,a[2]=t6,a[3]=t11,a[4]=((C_word*)t0)[6],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
3386 t13=((C_word*)t11)[1];
3387 f_10471(t13,t9,((C_word*)t0)[2]);}}}
3388 
3389 /* k10348 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10350(C_word c,C_word * av)3390 static void C_ccall f_10350(C_word c,C_word *av){
3391 C_word tmp;
3392 C_word t0=av[0];
3393 C_word t1=av[1];
3394 C_word t2;
3395 C_word t3;
3396 C_word t4;
3397 C_word t5;
3398 C_word t6;
3399 C_word t7;
3400 C_word t8;
3401 C_word t9;
3402 C_word t10;
3403 C_word t11;
3404 C_word t12;
3405 C_word *a;
3406 if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
3407 C_save_and_reclaim((void *)f_10350,c,av);}
3408 a=C_alloc(19);
3409 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3410 t3=t2;
3411 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
3412 t5=((C_word*)t4)[1];
3413 t6=C_u_i_cdr(((C_word*)t0)[2]);
3414 t7=C_i_check_list_2(t6,lf[125]);
3415 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10361,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
3416 t9=C_SCHEME_UNDEFINED;
3417 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
3418 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10363,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[6],a[5]=t5,tmp=(C_word)a,a+=6,tmp));
3419 t12=((C_word*)t10)[1];
3420 f_10363(t12,t8,t6);}
3421 
3422 /* k10359 in k10348 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10361(C_word c,C_word * av)3423 static void C_ccall f_10361(C_word c,C_word *av){
3424 C_word tmp;
3425 C_word t0=av[0];
3426 C_word t1=av[1];
3427 C_word t2;
3428 C_word *a;
3429 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
3430 C_save_and_reclaim((void *)f_10361,c,av);}
3431 a=C_alloc(9);
3432 /* support.scm:631: cons* */
3433 f_5807(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],t1));}
3434 
3435 /* map-loop1979 in k10348 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10363(C_word t0,C_word t1,C_word t2)3436 static void C_fcall f_10363(C_word t0,C_word t1,C_word t2){
3437 C_word tmp;
3438 C_word t3;
3439 C_word t4;
3440 C_word *a;
3441 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3442 C_save_and_reclaim_args((void *)trf_10363,3,t0,t1,t2);}
3443 a=C_alloc(6);
3444 if(C_truep(C_i_pairp(t2))){
3445 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10388,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
3446 /* support.scm:631: g1985 */
3447 t4=((C_word*)((C_word*)t0)[4])[1];
3448 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
3449 else{
3450 t3=t1;{
3451 C_word av2[2];
3452 av2[0]=t3;
3453 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
3454 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
3455 
3456 /* k10386 in map-loop1979 in k10348 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10388(C_word c,C_word * av)3457 static void C_ccall f_10388(C_word c,C_word *av){
3458 C_word tmp;
3459 C_word t0=av[0];
3460 C_word t1=av[1];
3461 C_word t2;
3462 C_word t3;
3463 C_word t4;
3464 C_word t5;
3465 C_word *a;
3466 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3467 C_save_and_reclaim((void *)f_10388,c,av);}
3468 a=C_alloc(3);
3469 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3470 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3471 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3472 t5=((C_word*)((C_word*)t0)[3])[1];
3473 f_10363(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3474 
3475 /* k10416 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10418(C_word c,C_word * av)3476 static void C_ccall f_10418(C_word c,C_word *av){
3477 C_word tmp;
3478 C_word t0=av[0];
3479 C_word t1=av[1];
3480 C_word t2;
3481 C_word *a;
3482 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
3483 C_save_and_reclaim((void *)f_10418,c,av);}
3484 a=C_alloc(6);
3485 /* support.scm:633: cons* */
3486 f_5807(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));}
3487 
3488 /* map-loop2005 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10420(C_word t0,C_word t1,C_word t2)3489 static void C_fcall f_10420(C_word t0,C_word t1,C_word t2){
3490 C_word tmp;
3491 C_word t3;
3492 C_word t4;
3493 C_word *a;
3494 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3495 C_save_and_reclaim_args((void *)trf_10420,3,t0,t1,t2);}
3496 a=C_alloc(6);
3497 if(C_truep(C_i_pairp(t2))){
3498 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10445,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
3499 /* support.scm:633: g2011 */
3500 t4=((C_word*)((C_word*)t0)[4])[1];
3501 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
3502 else{
3503 t3=t1;{
3504 C_word av2[2];
3505 av2[0]=t3;
3506 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
3507 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
3508 
3509 /* k10443 in map-loop2005 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10445(C_word c,C_word * av)3510 static void C_ccall f_10445(C_word c,C_word *av){
3511 C_word tmp;
3512 C_word t0=av[0];
3513 C_word t1=av[1];
3514 C_word t2;
3515 C_word t3;
3516 C_word t4;
3517 C_word t5;
3518 C_word *a;
3519 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3520 C_save_and_reclaim((void *)f_10445,c,av);}
3521 a=C_alloc(3);
3522 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3523 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3524 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3525 t5=((C_word*)((C_word*)t0)[3])[1];
3526 f_10420(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3527 
3528 /* k10457 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10459(C_word c,C_word * av)3529 static void C_ccall f_10459(C_word c,C_word *av){
3530 C_word tmp;
3531 C_word t0=av[0];
3532 C_word t1=av[1];
3533 C_word t2;
3534 C_word *a;
3535 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
3536 C_save_and_reclaim((void *)f_10459,c,av);}
3537 a=C_alloc(3);
3538 t2=((C_word*)t0)[2];{
3539 C_word *av2=av;
3540 av2[0]=t2;
3541 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
3542 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3543 
3544 /* k10467 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10469(C_word c,C_word * av)3545 static void C_ccall f_10469(C_word c,C_word *av){
3546 C_word tmp;
3547 C_word t0=av[0];
3548 C_word t1=av[1];
3549 C_word t2;
3550 C_word *a;
3551 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
3552 C_save_and_reclaim((void *)f_10469,c,av);}
3553 /* support.scm:634: scheme#append */
3554 t2=*((C_word*)lf[58]+1);{
3555 C_word *av2;
3556 if(c >= 4) {
3557   av2=av;
3558 } else {
3559   av2=C_alloc(4);
3560 }
3561 av2[0]=t2;
3562 av2[1]=((C_word*)t0)[2];
3563 av2[2]=((C_word*)t0)[3];
3564 av2[3]=t1;
3565 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
3566 
3567 /* map-loop2031 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10471(C_word t0,C_word t1,C_word t2)3568 static void C_fcall f_10471(C_word t0,C_word t1,C_word t2){
3569 C_word tmp;
3570 C_word t3;
3571 C_word t4;
3572 C_word *a;
3573 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3574 C_save_and_reclaim_args((void *)trf_10471,3,t0,t1,t2);}
3575 a=C_alloc(6);
3576 if(C_truep(C_i_pairp(t2))){
3577 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10496,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
3578 /* support.scm:634: g2037 */
3579 t4=((C_word*)((C_word*)t0)[4])[1];
3580 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
3581 else{
3582 t3=t1;{
3583 C_word av2[2];
3584 av2[0]=t3;
3585 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
3586 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
3587 
3588 /* k10494 in map-loop2031 in k10341 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10496(C_word c,C_word * av)3589 static void C_ccall f_10496(C_word c,C_word *av){
3590 C_word tmp;
3591 C_word t0=av[0];
3592 C_word t1=av[1];
3593 C_word t2;
3594 C_word t3;
3595 C_word t4;
3596 C_word t5;
3597 C_word *a;
3598 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3599 C_save_and_reclaim((void *)f_10496,c,av);}
3600 a=C_alloc(3);
3601 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3602 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3603 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3604 t5=((C_word*)((C_word*)t0)[3])[1];
3605 f_10471(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3606 
3607 /* chicken.compiler.support#fold-boolean in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10569(C_word c,C_word * av)3608 static void C_ccall f_10569(C_word c,C_word *av){
3609 C_word tmp;
3610 C_word t0=av[0];
3611 C_word t1=av[1];
3612 C_word t2=av[2];
3613 C_word t3=av[3];
3614 C_word t4;
3615 C_word t5;
3616 C_word t6;
3617 C_word t7;
3618 C_word *a;
3619 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
3620 C_save_and_reclaim((void *)f_10569,c,av);}
3621 a=C_alloc(6);
3622 t4=C_SCHEME_UNDEFINED;
3623 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
3624 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10575,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
3625 t7=((C_word*)t5)[1];
3626 f_10575(t7,t1,t3);}
3627 
3628 /* fold in chicken.compiler.support#fold-boolean in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10575(C_word t0,C_word t1,C_word t2)3629 static void C_fcall f_10575(C_word t0,C_word t1,C_word t2){
3630 C_word tmp;
3631 C_word t3;
3632 C_word t4;
3633 C_word t5;
3634 C_word *a;
3635 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
3636 C_save_and_reclaim_args((void *)trf_10575,3,t0,t1,t2);}
3637 a=C_alloc(5);
3638 t3=C_i_cddr(t2);
3639 if(C_truep(C_i_nullp(t3))){{
3640 C_word av2[4];
3641 av2[0]=0;
3642 av2[1]=t1;
3643 av2[2]=((C_word*)t0)[2];
3644 av2[3]=t2;
3645 C_apply(4,av2);}}
3646 else{
3647 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10601,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
3648 /* support.scm:642: proc */
3649 t5=((C_word*)t0)[2];{
3650 C_word av2[4];
3651 av2[0]=t5;
3652 av2[1]=t4;
3653 av2[2]=C_i_car(t2);
3654 av2[3]=C_i_cadr(t2);
3655 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
3656 
3657 /* k10599 in fold in chicken.compiler.support#fold-boolean in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10601(C_word c,C_word * av)3658 static void C_ccall f_10601(C_word c,C_word *av){
3659 C_word tmp;
3660 C_word t0=av[0];
3661 C_word t1=av[1];
3662 C_word t2;
3663 C_word t3;
3664 C_word *a;
3665 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
3666 C_save_and_reclaim((void *)f_10601,c,av);}
3667 a=C_alloc(4);
3668 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10605,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
3669 /* support.scm:643: fold */
3670 t3=((C_word*)((C_word*)t0)[3])[1];
3671 f_10575(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}
3672 
3673 /* k10603 in k10599 in fold in chicken.compiler.support#fold-boolean in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10605(C_word c,C_word * av)3674 static void C_ccall f_10605(C_word c,C_word *av){
3675 C_word tmp;
3676 C_word t0=av[0];
3677 C_word t1=av[1];
3678 C_word t2;
3679 C_word t3;
3680 C_word *a;
3681 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
3682 C_save_and_reclaim((void *)f_10605,c,av);}
3683 a=C_alloc(11);
3684 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
3685 t3=((C_word*)t0)[3];{
3686 C_word *av2=av;
3687 av2[0]=t3;
3688 av2[1]=C_a_i_record4(&a,4,lf[141],lf[172],lf[206],t2);
3689 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3690 
3691 /* chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10621(C_word c,C_word * av)3692 static void C_ccall f_10621(C_word c,C_word *av){
3693 C_word tmp;
3694 C_word t0=av[0];
3695 C_word t1=av[1];
3696 C_word t2=av[2];
3697 C_word t3=av[3];
3698 C_word t4=av[4];
3699 C_word t5=av[5];
3700 C_word t6=av[6];
3701 C_word t7=av[7];
3702 C_word t8;
3703 C_word t9;
3704 C_word *a;
3705 if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
3706 C_save_and_reclaim((void *)f_10621,c,av);}
3707 a=C_alloc(7);
3708 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10627,a[2]=t3,a[3]=t6,a[4]=t5,a[5]=t7,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
3709 /* support.scm:647: ##sys#decompose-lambda-list */
3710 t9=*((C_word*)lf[225]+1);{
3711 C_word *av2=av;
3712 av2[0]=t9;
3713 av2[1]=t1;
3714 av2[2]=t2;
3715 av2[3]=t8;
3716 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
3717 
3718 /* a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10627(C_word c,C_word * av)3719 static void C_ccall f_10627(C_word c,C_word *av){
3720 C_word tmp;
3721 C_word t0=av[0];
3722 C_word t1=av[1];
3723 C_word t2=av[2];
3724 C_word t3=av[3];
3725 C_word t4=av[4];
3726 C_word t5;
3727 C_word t6;
3728 C_word t7;
3729 C_word *a;
3730 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
3731 C_save_and_reclaim((void *)f_10627,c,av);}
3732 a=C_alloc(13);
3733 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10633,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
3734 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10639,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
3735 /* support.scm:650: ##sys#call-with-values */{
3736 C_word *av2=av;
3737 av2[0]=0;
3738 av2[1]=t1;
3739 av2[2]=t5;
3740 av2[3]=t6;
3741 C_call_with_values(4,av2);}}
3742 
3743 /* a10632 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10633(C_word c,C_word * av)3744 static void C_ccall f_10633(C_word c,C_word *av){
3745 C_word tmp;
3746 C_word t0=av[0];
3747 C_word t1=av[1];
3748 C_word t2;
3749 C_word t3;
3750 C_word t4;
3751 C_word t5;
3752 C_word *a;
3753 if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
3754 C_save_and_reclaim((void *)f_10633,c,av);}
3755 a=C_alloc(5);
3756 t2=C_SCHEME_UNDEFINED;
3757 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3758 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5540,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
3759 t5=((C_word*)t3)[1];
3760 f_5540(t5,t1,((C_word*)t0)[2],C_SCHEME_END_OF_LIST,((C_word*)t0)[3]);}
3761 
3762 /* a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10639(C_word c,C_word * av)3763 static void C_ccall f_10639(C_word c,C_word *av){
3764 C_word tmp;
3765 C_word t0=av[0];
3766 C_word t1=av[1];
3767 C_word t2=av[2];
3768 C_word t3=av[3];
3769 C_word t4;
3770 C_word t5;
3771 C_word t6;
3772 C_word t7;
3773 C_word t8;
3774 C_word t9;
3775 C_word t10;
3776 C_word t11;
3777 C_word t12;
3778 C_word t13;
3779 C_word *a;
3780 if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
3781 C_save_and_reclaim((void *)f_10639,c,av);}
3782 a=C_alloc(24);
3783 t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10643,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
3784 if(C_truep(((C_word*)t0)[5])){
3785 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3786 t6=t5;
3787 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
3788 t8=((C_word*)t7)[1];
3789 t9=C_i_check_list_2(((C_word*)t0)[6],lf[125]);
3790 t10=C_SCHEME_UNDEFINED;
3791 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
3792 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10917,a[2]=t7,a[3]=t11,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
3793 t13=((C_word*)t11)[1];
3794 f_10917(t13,t4,((C_word*)t0)[6]);}
3795 else{
3796 t5=t4;{
3797 C_word *av2=av;
3798 av2[0]=t5;
3799 av2[1]=((C_word*)t0)[6];
3800 f_10643(2,av2);}}}
3801 
3802 /* k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10643(C_word c,C_word * av)3803 static void C_ccall f_10643(C_word c,C_word *av){
3804 C_word tmp;
3805 C_word t0=av[0];
3806 C_word t1=av[1];
3807 C_word t2;
3808 C_word t3;
3809 C_word t4;
3810 C_word t5;
3811 C_word t6;
3812 C_word t7;
3813 C_word t8;
3814 C_word t9;
3815 C_word t10;
3816 C_word t11;
3817 C_word t12;
3818 C_word t13;
3819 C_word *a;
3820 if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
3821 C_save_and_reclaim((void *)f_10643,c,av);}
3822 a=C_alloc(27);
3823 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10646,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
3824 if(C_truep(((C_word*)t0)[8])){
3825 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3826 t4=t3;
3827 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
3828 t6=((C_word*)t5)[1];
3829 t7=C_i_check_list_2(((C_word*)t0)[9],lf[125]);
3830 t8=C_i_check_list_2(t1,lf[125]);
3831 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10964,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp);
3832 t10=C_SCHEME_UNDEFINED;
3833 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
3834 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11411,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
3835 t13=((C_word*)t11)[1];
3836 f_11411(t13,t9,((C_word*)t0)[9],t1);}
3837 else{
3838 t3=t2;{
3839 C_word *av2=av;
3840 av2[0]=t3;
3841 av2[1]=((C_word*)t0)[11];
3842 f_10646(2,av2);}}}
3843 
3844 /* k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10646(C_word c,C_word * av)3845 static void C_ccall f_10646(C_word c,C_word *av){
3846 C_word tmp;
3847 C_word t0=av[0];
3848 C_word t1=av[1];
3849 C_word t2;
3850 C_word t3;
3851 C_word t4;
3852 C_word t5;
3853 C_word t6;
3854 C_word t7;
3855 C_word t8;
3856 C_word t9;
3857 C_word t10;
3858 C_word t11;
3859 C_word *a;
3860 if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
3861 C_save_and_reclaim((void *)f_10646,c,av);}
3862 a=C_alloc(22);
3863 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3864 t3=t2;
3865 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
3866 t5=((C_word*)t4)[1];
3867 t6=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
3868 t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10660,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
3869 t8=C_SCHEME_UNDEFINED;
3870 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
3871 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10871,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
3872 t11=((C_word*)t9)[1];
3873 f_10871(t11,t7,((C_word*)t0)[2]);}
3874 
3875 /* k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10660(C_word c,C_word * av)3876 static void C_ccall f_10660(C_word c,C_word *av){
3877 C_word tmp;
3878 C_word t0=av[0];
3879 C_word t1=av[1];
3880 C_word t2;
3881 C_word t3;
3882 C_word t4;
3883 C_word *a;
3884 if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
3885 C_save_and_reclaim((void *)f_10660,c,av);}
3886 a=C_alloc(18);
3887 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10663,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
3888 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10869,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
3889 /* support.scm:656: last */
3890 f_6143(t3,((C_word*)t0)[5]);}
3891 
3892 /* k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10663(C_word c,C_word * av)3893 static void C_ccall f_10663(C_word c,C_word *av){
3894 C_word tmp;
3895 C_word t0=av[0];
3896 C_word t1=av[1];
3897 C_word t2;
3898 C_word t3;
3899 C_word t4;
3900 C_word t5;
3901 C_word *a;
3902 if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){
3903 C_save_and_reclaim((void *)f_10663,c,av);}
3904 a=C_alloc(20);
3905 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
3906 if(C_truep(((C_word*)t0)[2])){
3907 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10820,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
3908 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10830,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
3909 /* support.scm:664: db-get-list */
3910 t5=*((C_word*)lf[134]+1);{
3911 C_word *av2;
3912 if(c >= 5) {
3913   av2=av;
3914 } else {
3915   av2=C_alloc(5);
3916 }
3917 av2[0]=t5;
3918 av2[1]=t4;
3919 av2[2]=((C_word*)t0)[6];
3920 av2[3]=((C_word*)t0)[2];
3921 av2[4]=lf[212];
3922 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
3923 else{
3924 t3=t2;{
3925 C_word *av2=av;
3926 av2[0]=t3;
3927 av2[1]=C_SCHEME_UNDEFINED;
3928 f_10666(2,av2);}}}
3929 
3930 /* k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10666(C_word c,C_word * av)3931 static void C_ccall f_10666(C_word c,C_word *av){
3932 C_word tmp;
3933 C_word t0=av[0];
3934 C_word t1=av[1];
3935 C_word t2;
3936 C_word t3;
3937 C_word *a;
3938 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
3939 C_save_and_reclaim((void *)f_10666,c,av);}
3940 a=C_alloc(10);
3941 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
3942 /* support.scm:668: take */
3943 f_5482(t2,((C_word*)t0)[5],((C_word*)t0)[10]);}
3944 
3945 /* k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_10673(C_word c,C_word * av)3946 static void C_ccall f_10673(C_word c,C_word *av){
3947 C_word tmp;
3948 C_word t0=av[0];
3949 C_word t1=av[1];
3950 C_word t2;
3951 C_word t3;
3952 C_word t4;
3953 C_word t5;
3954 C_word *a;
3955 if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
3956 C_save_and_reclaim((void *)f_10673,c,av);}
3957 a=C_alloc(11);
3958 t2=C_SCHEME_UNDEFINED;
3959 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3960 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,tmp=(C_word)a,a+=9,tmp));
3961 t5=((C_word*)t3)[1];
3962 f_10675(t5,((C_word*)t0)[8],t1,((C_word*)t0)[9]);}
3963 
3964 /* loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_10675(C_word t0,C_word t1,C_word t2,C_word t3)3965 static void C_fcall f_10675(C_word t0,C_word t1,C_word t2,C_word t3){
3966 C_word tmp;
3967 C_word t4;
3968 C_word t5;
3969 C_word t6;
3970 C_word t7;
3971 C_word t8;
3972 C_word t9;
3973 C_word t10;
3974 C_word t11;
3975 C_word *a;
3976 loop:
3977 if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
3978 C_save_and_reclaim_args((void *)trf_10675,4,t0,t1,t2,t3);}
3979 a=C_alloc(10);
3980 if(C_truep(C_i_nullp(t2))){
3981 if(C_truep(((C_word*)t0)[2])){
3982 t4=C_SCHEME_UNDEFINED;
3983 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
3984 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10690,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=t5,tmp=(C_word)a,a+=8,tmp));
3985 t7=((C_word*)t5)[1];
3986 f_10690(t7,t1,((C_word*)t0)[4],((C_word*)t0)[7]);}
3987 else{
3988 t4=t1;{
3989 C_word av2[2];
3990 av2[0]=t4;
3991 av2[1]=((C_word*)t0)[3];
3992 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
3993 else{
3994 t4=C_i_car(t2);
3995 t5=C_a_i_list1(&a,1,t4);
3996 t6=C_i_car(t3);
3997 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10811,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
3998 /* support.scm:694: loop */
3999 t9=t7;
4000 t10=C_u_i_cdr(t2);
4001 t11=C_u_i_cdr(t3);
4002 t1=t9;
4003 t2=t10;
4004 t3=t11;
4005 goto loop;}}
4006 
4007 /* loop2 in loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_10690(C_word t0,C_word t1,C_word t2,C_word t3)4008 static void C_fcall f_10690(C_word t0,C_word t1,C_word t2,C_word t3){
4009 C_word tmp;
4010 C_word t4;
4011 C_word t5;
4012 C_word t6;
4013 C_word t7;
4014 C_word t8;
4015 C_word t9;
4016 C_word t10;
4017 C_word t11;
4018 C_word *a;
4019 loop:
4020 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
4021 C_save_and_reclaim_args((void *)trf_10690,4,t0,t1,t2,t3);}
4022 a=C_alloc(8);
4023 if(C_truep(C_i_nullp(t3))){
4024 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10755,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
4025 /* support.scm:677: db-get-list */
4026 t5=*((C_word*)lf[134]+1);{
4027 C_word av2[5];
4028 av2[0]=t5;
4029 av2[1]=t4;
4030 av2[2]=((C_word*)t0)[5];
4031 av2[3]=((C_word*)t0)[6];
4032 av2[4]=lf[209];
4033 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
4034 else{
4035 t4=C_i_car(t3);
4036 t5=C_a_i_list1(&a,1,t4);
4037 t6=C_i_car(t2);
4038 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10779,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
4039 /* support.scm:690: loop2 */
4040 t9=t7;
4041 t10=C_u_i_cdr(t2);
4042 t11=C_u_i_cdr(t3);
4043 t1=t9;
4044 t2=t10;
4045 t3=t11;
4046 goto loop;}}
4047 
4048 /* k10721 in k10749 in k10753 in loop2 in loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in ... */
f_10723(C_word c,C_word * av)4049 static void C_ccall f_10723(C_word c,C_word *av){
4050 C_word tmp;
4051 C_word t0=av[0];
4052 C_word t1=av[1];
4053 C_word t2;
4054 C_word t3;
4055 C_word *a;
4056 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
4057 C_save_and_reclaim((void *)f_10723,c,av);}
4058 a=C_alloc(11);
4059 t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
4060 t3=((C_word*)t0)[3];{
4061 C_word *av2=av;
4062 av2[0]=t3;
4063 av2[1]=C_a_i_record4(&a,4,lf[141],lf[96],((C_word*)t0)[4],t2);
4064 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4065 
4066 /* k10749 in k10753 in loop2 in loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_10751(C_word c,C_word * av)4067 static void C_ccall f_10751(C_word c,C_word *av){
4068 C_word tmp;
4069 C_word t0=av[0];
4070 C_word t1=av[1];
4071 C_word t2;
4072 C_word t3;
4073 C_word t4;
4074 C_word t5;
4075 C_word t6;
4076 C_word t7;
4077 C_word t8;
4078 C_word t9;
4079 C_word *a;
4080 if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){
4081 C_save_and_reclaim((void *)f_10751,c,av);}
4082 a=C_alloc(35);
4083 t2=C_a_i_list1(&a,1,t1);
4084 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4085 if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
4086 /* support.scm:682: qnode */
4087 t4=*((C_word*)lf[155]+1);{
4088 C_word *av2;
4089 if(c >= 3) {
4090   av2=av;
4091 } else {
4092   av2=C_alloc(3);
4093 }
4094 av2[0]=t4;
4095 av2[1]=t3;
4096 av2[2]=C_SCHEME_END_OF_LIST;
4097 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
4098 else{
4099 t4=C_i_length(((C_word*)t0)[4]);
4100 t5=C_a_i_fixnum_times(&a,2,C_fix(3),t4);
4101 t6=C_a_i_list2(&a,2,lf[208],t5);
4102 t7=C_a_i_record4(&a,4,lf[141],lf[177],t6,((C_word*)t0)[4]);
4103 t8=C_a_i_list2(&a,2,t7,((C_word*)t0)[2]);
4104 t9=((C_word*)t0)[3];{
4105 C_word *av2=av;
4106 av2[0]=t9;
4107 av2[1]=C_a_i_record4(&a,4,lf[141],lf[96],t2,t8);
4108 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
4109 
4110 /* k10753 in loop2 in loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_10755(C_word c,C_word * av)4111 static void C_ccall f_10755(C_word c,C_word *av){
4112 C_word tmp;
4113 C_word t0=av[0];
4114 C_word t1=av[1];
4115 C_word t2;
4116 C_word t3;
4117 C_word *a;
4118 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
4119 C_save_and_reclaim((void *)f_10755,c,av);}
4120 a=C_alloc(5);
4121 if(C_truep(C_i_nullp(t1))){
4122 t2=((C_word*)t0)[2];{
4123 C_word *av2=av;
4124 av2[0]=t2;
4125 av2[1]=((C_word*)t0)[3];
4126 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4127 else{
4128 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10751,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
4129 /* support.scm:680: last */
4130 f_6143(t2,((C_word*)t0)[5]);}}
4131 
4132 /* k10777 in loop2 in loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_10779(C_word c,C_word * av)4133 static void C_ccall f_10779(C_word c,C_word *av){
4134 C_word tmp;
4135 C_word t0=av[0];
4136 C_word t1=av[1];
4137 C_word t2;
4138 C_word t3;
4139 C_word *a;
4140 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
4141 C_save_and_reclaim((void *)f_10779,c,av);}
4142 a=C_alloc(11);
4143 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
4144 t3=((C_word*)t0)[3];{
4145 C_word *av2=av;
4146 av2[0]=t3;
4147 av2[1]=C_a_i_record4(&a,4,lf[141],lf[96],((C_word*)t0)[4],t2);
4148 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4149 
4150 /* k10809 in loop in k10671 in k10664 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_10811(C_word c,C_word * av)4151 static void C_ccall f_10811(C_word c,C_word *av){
4152 C_word tmp;
4153 C_word t0=av[0];
4154 C_word t1=av[1];
4155 C_word t2;
4156 C_word t3;
4157 C_word *a;
4158 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
4159 C_save_and_reclaim((void *)f_10811,c,av);}
4160 a=C_alloc(11);
4161 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
4162 t3=((C_word*)t0)[3];{
4163 C_word *av2=av;
4164 av2[0]=t3;
4165 av2[1]=C_a_i_record4(&a,4,lf[141],lf[96],((C_word*)t0)[4],t2);
4166 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4167 
4168 /* g2138 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10820(C_word t0,C_word t1,C_word t2)4169 static void C_fcall f_10820(C_word t0,C_word t1,C_word t2){
4170 C_word tmp;
4171 C_word t3;
4172 C_word t4;
4173 C_word *a;
4174 if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
4175 C_save_and_reclaim_args((void *)trf_10820,3,t0,t1,t2);}
4176 a=C_alloc(5);
4177 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10824,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4178 /* support.scm:662: db-put! */
4179 t4=*((C_word*)lf[131]+1);{
4180 C_word av2[6];
4181 av2[0]=t4;
4182 av2[1]=t3;
4183 av2[2]=((C_word*)t0)[2];
4184 av2[3]=t2;
4185 av2[4]=lf[211];
4186 av2[5]=C_SCHEME_FALSE;
4187 ((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
4188 
4189 /* k10822 in g2138 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_10824(C_word c,C_word * av)4190 static void C_ccall f_10824(C_word c,C_word *av){
4191 C_word tmp;
4192 C_word t0=av[0];
4193 C_word t1=av[1];
4194 C_word t2;
4195 C_word *a;
4196 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
4197 C_save_and_reclaim((void *)f_10824,c,av);}
4198 /* support.scm:663: db-put! */
4199 t2=*((C_word*)lf[131]+1);{
4200 C_word *av2;
4201 if(c >= 6) {
4202   av2=av;
4203 } else {
4204   av2=C_alloc(6);
4205 }
4206 av2[0]=t2;
4207 av2[1]=((C_word*)t0)[2];
4208 av2[2]=((C_word*)t0)[3];
4209 av2[3]=((C_word*)t0)[4];
4210 av2[4]=lf[210];
4211 av2[5]=C_SCHEME_FALSE;
4212 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
4213 
4214 /* k10828 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10830(C_word c,C_word * av)4215 static void C_ccall f_10830(C_word c,C_word *av){
4216 C_word tmp;
4217 C_word t0=av[0];
4218 C_word t1=av[1];
4219 C_word t2;
4220 C_word t3;
4221 C_word t4;
4222 C_word t5;
4223 C_word t6;
4224 C_word t7;
4225 C_word *a;
4226 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
4227 C_save_and_reclaim((void *)f_10830,c,av);}
4228 a=C_alloc(11);
4229 t2=C_i_check_list_2(t1,lf[44]);
4230 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10836,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
4231 t4=C_SCHEME_UNDEFINED;
4232 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
4233 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10844,a[2]=t5,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
4234 t7=((C_word*)t5)[1];
4235 f_10844(t7,t3,t1);}
4236 
4237 /* k10834 in k10828 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_10836(C_word c,C_word * av)4238 static void C_ccall f_10836(C_word c,C_word *av){
4239 C_word tmp;
4240 C_word t0=av[0];
4241 C_word t1=av[1];
4242 C_word t2;
4243 C_word t3;
4244 C_word *a;
4245 if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
4246 C_save_and_reclaim((void *)f_10836,c,av);}
4247 a=C_alloc(5);
4248 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
4249 /* support.scm:665: db-put! */
4250 t3=*((C_word*)lf[131]+1);{
4251 C_word *av2;
4252 if(c >= 6) {
4253   av2=av;
4254 } else {
4255   av2=C_alloc(6);
4256 }
4257 av2[0]=t3;
4258 av2[1]=t2;
4259 av2[2]=((C_word*)t0)[3];
4260 av2[3]=((C_word*)t0)[4];
4261 av2[4]=lf[211];
4262 av2[5]=C_SCHEME_FALSE;
4263 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
4264 
4265 /* k10837 in k10834 in k10828 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_10839(C_word c,C_word * av)4266 static void C_ccall f_10839(C_word c,C_word *av){
4267 C_word tmp;
4268 C_word t0=av[0];
4269 C_word t1=av[1];
4270 C_word t2;
4271 C_word *a;
4272 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
4273 C_save_and_reclaim((void *)f_10839,c,av);}
4274 /* support.scm:666: db-put! */
4275 t2=*((C_word*)lf[131]+1);{
4276 C_word *av2;
4277 if(c >= 6) {
4278   av2=av;
4279 } else {
4280   av2=C_alloc(6);
4281 }
4282 av2[0]=t2;
4283 av2[1]=((C_word*)t0)[2];
4284 av2[2]=((C_word*)t0)[3];
4285 av2[3]=((C_word*)t0)[4];
4286 av2[4]=lf[212];
4287 av2[5]=C_SCHEME_END_OF_LIST;
4288 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
4289 
4290 /* for-each-loop2137 in k10828 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_10844(C_word t0,C_word t1,C_word t2)4291 static void C_fcall f_10844(C_word t0,C_word t1,C_word t2){
4292 C_word tmp;
4293 C_word t3;
4294 C_word t4;
4295 C_word *a;
4296 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
4297 C_save_and_reclaim_args((void *)trf_10844,3,t0,t1,t2);}
4298 a=C_alloc(5);
4299 if(C_truep(C_i_pairp(t2))){
4300 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10854,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4301 /* support.scm:661: g2138 */
4302 t4=((C_word*)t0)[3];
4303 f_10820(t4,t3,C_slot(t2,C_fix(0)));}
4304 else{
4305 t3=C_SCHEME_UNDEFINED;
4306 t4=t1;{
4307 C_word av2[2];
4308 av2[0]=t4;
4309 av2[1]=t3;
4310 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
4311 
4312 /* k10852 in for-each-loop2137 in k10828 in k10661 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_10854(C_word c,C_word * av)4313 static void C_ccall f_10854(C_word c,C_word *av){
4314 C_word tmp;
4315 C_word t0=av[0];
4316 C_word t1=av[1];
4317 C_word t2;
4318 C_word *a;
4319 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
4320 C_save_and_reclaim((void *)f_10854,c,av);}
4321 t2=((C_word*)((C_word*)t0)[2])[1];
4322 f_10844(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
4323 
4324 /* k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10869(C_word c,C_word * av)4325 static void C_ccall f_10869(C_word c,C_word *av){
4326 C_word tmp;
4327 C_word t0=av[0];
4328 C_word t1=av[1];
4329 C_word t2;
4330 C_word t3;
4331 C_word t4;
4332 C_word t5;
4333 C_word *a;
4334 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
4335 C_save_and_reclaim((void *)f_10869,c,av);}
4336 a=C_alloc(9);
4337 t2=C_SCHEME_UNDEFINED;
4338 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4339 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp));
4340 /* support.scm:780: walk */
4341 t5=((C_word*)t3)[1];
4342 f_11462(t5,((C_word*)t0)[5],((C_word*)t0)[6]);}
4343 
4344 /* map-loop2110 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10871(C_word t0,C_word t1,C_word t2)4345 static void C_fcall f_10871(C_word t0,C_word t1,C_word t2){
4346 C_word tmp;
4347 C_word t3;
4348 C_word t4;
4349 C_word *a;
4350 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
4351 C_save_and_reclaim_args((void *)trf_10871,3,t0,t1,t2);}
4352 a=C_alloc(6);
4353 if(C_truep(C_i_pairp(t2))){
4354 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10896,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
4355 /* support.scm:655: chicken.base#gensym */
4356 t4=*((C_word*)lf[97]+1);{
4357 C_word av2[3];
4358 av2[0]=t4;
4359 av2[1]=t3;
4360 av2[2]=lf[219];
4361 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
4362 else{
4363 t3=t1;{
4364 C_word av2[2];
4365 av2[0]=t3;
4366 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
4367 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
4368 
4369 /* k10894 in map-loop2110 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10896(C_word c,C_word * av)4370 static void C_ccall f_10896(C_word c,C_word *av){
4371 C_word tmp;
4372 C_word t0=av[0];
4373 C_word t1=av[1];
4374 C_word t2;
4375 C_word t3;
4376 C_word t4;
4377 C_word t5;
4378 C_word *a;
4379 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
4380 C_save_and_reclaim((void *)f_10896,c,av);}
4381 a=C_alloc(3);
4382 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
4383 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
4384 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
4385 t5=((C_word*)((C_word*)t0)[3])[1];
4386 f_10871(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
4387 
4388 /* map-loop2082 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10917(C_word t0,C_word t1,C_word t2)4389 static void C_fcall f_10917(C_word t0,C_word t1,C_word t2){
4390 C_word tmp;
4391 C_word t3;
4392 C_word t4;
4393 C_word *a;
4394 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
4395 C_save_and_reclaim_args((void *)trf_10917,3,t0,t1,t2);}
4396 a=C_alloc(6);
4397 if(C_truep(C_i_pairp(t2))){
4398 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
4399 /* support.scm:651: g2088 */
4400 t4=*((C_word*)lf[97]+1);{
4401 C_word av2[3];
4402 av2[0]=t4;
4403 av2[1]=t3;
4404 av2[2]=C_slot(t2,C_fix(0));
4405 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
4406 else{
4407 t3=t1;{
4408 C_word av2[2];
4409 av2[0]=t3;
4410 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
4411 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
4412 
4413 /* k10940 in map-loop2082 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10942(C_word c,C_word * av)4414 static void C_ccall f_10942(C_word c,C_word *av){
4415 C_word tmp;
4416 C_word t0=av[0];
4417 C_word t1=av[1];
4418 C_word t2;
4419 C_word t3;
4420 C_word t4;
4421 C_word t5;
4422 C_word *a;
4423 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
4424 C_save_and_reclaim((void *)f_10942,c,av);}
4425 a=C_alloc(3);
4426 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
4427 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
4428 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
4429 t5=((C_word*)((C_word*)t0)[3])[1];
4430 f_10917(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
4431 
4432 /* k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10964(C_word c,C_word * av)4433 static void C_ccall f_10964(C_word c,C_word *av){
4434 C_word tmp;
4435 C_word t0=av[0];
4436 C_word t1=av[1];
4437 C_word t2;
4438 C_word t3;
4439 C_word t4;
4440 C_word t5;
4441 C_word *a;
4442 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
4443 C_save_and_reclaim((void *)f_10964,c,av);}
4444 a=C_alloc(7);
4445 t2=C_SCHEME_UNDEFINED;
4446 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4447 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10972,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp));
4448 /* support.scm:743: walk */
4449 t5=((C_word*)t3)[1];
4450 f_10972(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);}
4451 
4452 /* walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_10972(C_word t0,C_word t1,C_word t2,C_word t3)4453 static void C_fcall f_10972(C_word t0,C_word t1,C_word t2,C_word t3){
4454 C_word tmp;
4455 C_word t4;
4456 C_word t5;
4457 C_word t6;
4458 C_word t7;
4459 C_word t8;
4460 C_word t9;
4461 C_word t10;
4462 C_word t11;
4463 C_word t12;
4464 C_word t13;
4465 C_word t14;
4466 C_word t15;
4467 C_word t16;
4468 C_word t17;
4469 C_word *a;
4470 loop:
4471 if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
4472 C_save_and_reclaim_args((void *)trf_10972,4,t0,t1,t2,t3);}
4473 a=C_alloc(10);
4474 t4=C_slot(t2,C_fix(3));
4475 t5=C_slot(t2,C_fix(2));
4476 t6=C_slot(t2,C_fix(1));
4477 t7=C_eqp(t6,lf[85]);
4478 if(C_truep(t7)){
4479 t8=t1;{
4480 C_word av2[2];
4481 av2[0]=t8;
4482 av2[1]=C_a_i_record4(&a,4,lf[141],t6,t5,C_SCHEME_END_OF_LIST);
4483 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
4484 else{
4485 t8=C_eqp(t6,lf[154]);
4486 if(C_truep(t8)){
4487 t9=C_i_car(t5);
4488 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11023,a[2]=t1,a[3]=t9,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
4489 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11033,a[2]=((C_word*)t0)[2],a[3]=t10,a[4]=t9,tmp=(C_word)a,a+=5,tmp);
4490 /* support.scm:709: db-get */
4491 t12=*((C_word*)lf[127]+1);{
4492 C_word av2[5];
4493 av2[0]=t12;
4494 av2[1]=t11;
4495 av2[2]=((C_word*)t0)[3];
4496 av2[3]=t9;
4497 av2[4]=lf[222];
4498 ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}
4499 else{
4500 t9=C_eqp(t6,lf[124]);
4501 if(C_truep(t9)){
4502 t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11070,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4503 t11=C_i_car(t5);
4504 /* support.scm:699: chicken.base#alist-ref */
4505 t12=*((C_word*)lf[220]+1);{
4506 C_word av2[6];
4507 av2[0]=t12;
4508 av2[1]=t10;
4509 av2[2]=t11;
4510 av2[3]=t3;
4511 av2[4]=*((C_word*)lf[221]+1);
4512 av2[5]=t11;
4513 ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}}
4514 else{
4515 t10=C_eqp(t6,lf[96]);
4516 if(C_truep(t10)){
4517 t11=C_i_car(t5);
4518 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11086,a[2]=t11,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
4519 /* support.scm:718: walk */
4520 t15=t12;
4521 t16=C_i_car(t4);
4522 t17=t3;
4523 t1=t15;
4524 t2=t16;
4525 t3=t17;
4526 goto loop;}
4527 else{
4528 t11=C_eqp(t6,lf[118]);
4529 if(C_truep(t11)){
4530 t12=C_i_caddr(t5);
4531 t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11138,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
4532 /* support.scm:726: ##sys#decompose-lambda-list */
4533 t14=*((C_word*)lf[225]+1);{
4534 C_word av2[4];
4535 av2[0]=t14;
4536 av2[1]=t1;
4537 av2[2]=t12;
4538 av2[3]=t13;
4539 ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}
4540 else{
4541 t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11347,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=t4,a[5]=t1,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
4542 /* support.scm:741: tree-copy */
4543 t13=*((C_word*)lf[226]+1);{
4544 C_word av2[3];
4545 av2[0]=t13;
4546 av2[1]=t12;
4547 av2[2]=t5;
4548 ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}}}}}
4549 
4550 /* k11021 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11023(C_word c,C_word * av)4551 static void C_ccall f_11023(C_word c,C_word *av){
4552 C_word tmp;
4553 C_word t0=av[0];
4554 C_word t1=av[1];
4555 C_word t2;
4556 C_word t3;
4557 C_word *a;
4558 if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
4559 C_save_and_reclaim((void *)f_11023,c,av);}
4560 a=C_alloc(3);
4561 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11030,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4562 /* support.scm:699: chicken.base#alist-ref */
4563 t3=*((C_word*)lf[220]+1);{
4564 C_word *av2;
4565 if(c >= 6) {
4566   av2=av;
4567 } else {
4568   av2=C_alloc(6);
4569 }
4570 av2[0]=t3;
4571 av2[1]=t2;
4572 av2[2]=((C_word*)t0)[3];
4573 av2[3]=((C_word*)t0)[4];
4574 av2[4]=*((C_word*)lf[221]+1);
4575 av2[5]=((C_word*)t0)[3];
4576 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
4577 
4578 /* k11028 in k11021 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11030(C_word c,C_word * av)4579 static void C_ccall f_11030(C_word c,C_word *av){
4580 C_word tmp;
4581 C_word t0=av[0];
4582 C_word t1=av[1];
4583 C_word t2;
4584 C_word *a;
4585 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
4586 C_save_and_reclaim((void *)f_11030,c,av);}
4587 /* support.scm:711: varnode */
4588 t2=*((C_word*)lf[153]+1);{
4589 C_word *av2;
4590 if(c >= 3) {
4591   av2=av;
4592 } else {
4593   av2=C_alloc(3);
4594 }
4595 av2[0]=t2;
4596 av2[1]=((C_word*)t0)[2];
4597 av2[2]=t1;
4598 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
4599 
4600 /* k11031 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11033(C_word c,C_word * av)4601 static void C_ccall f_11033(C_word c,C_word *av){
4602 C_word tmp;
4603 C_word t0=av[0];
4604 C_word t1=av[1];
4605 C_word t2;
4606 C_word *a;
4607 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
4608 C_save_and_reclaim((void *)f_11033,c,av);}
4609 if(C_truep(t1)){
4610 /* support.scm:710: cfk */
4611 t2=((C_word*)t0)[2];{
4612 C_word *av2;
4613 if(c >= 3) {
4614   av2=av;
4615 } else {
4616   av2=C_alloc(3);
4617 }
4618 av2[0]=t2;
4619 av2[1]=((C_word*)t0)[3];
4620 av2[2]=((C_word*)t0)[4];
4621 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
4622 else{
4623 t2=((C_word*)t0)[3];{
4624 C_word *av2=av;
4625 av2[0]=t2;
4626 av2[1]=C_SCHEME_UNDEFINED;
4627 f_11023(2,av2);}}}
4628 
4629 /* k11060 in k11068 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11062(C_word c,C_word * av)4630 static void C_ccall f_11062(C_word c,C_word *av){
4631 C_word tmp;
4632 C_word t0=av[0];
4633 C_word t1=av[1];
4634 C_word t2;
4635 C_word t3;
4636 C_word *a;
4637 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
4638 C_save_and_reclaim((void *)f_11062,c,av);}
4639 a=C_alloc(8);
4640 t2=C_a_i_list1(&a,1,t1);
4641 t3=((C_word*)t0)[2];{
4642 C_word *av2=av;
4643 av2[0]=t3;
4644 av2[1]=C_a_i_record4(&a,4,lf[141],lf[124],((C_word*)t0)[3],t2);
4645 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4646 
4647 /* k11068 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11070(C_word c,C_word * av)4648 static void C_ccall f_11070(C_word c,C_word *av){
4649 C_word tmp;
4650 C_word t0=av[0];
4651 C_word t1=av[1];
4652 C_word t2;
4653 C_word t3;
4654 C_word t4;
4655 C_word *a;
4656 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
4657 C_save_and_reclaim((void *)f_11070,c,av);}
4658 a=C_alloc(7);
4659 t2=C_a_i_list1(&a,1,t1);
4660 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11062,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
4661 /* support.scm:715: walk */
4662 t4=((C_word*)((C_word*)t0)[3])[1];
4663 f_10972(t4,t3,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}
4664 
4665 /* k11084 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11086(C_word c,C_word * av)4666 static void C_ccall f_11086(C_word c,C_word *av){
4667 C_word tmp;
4668 C_word t0=av[0];
4669 C_word t1=av[1];
4670 C_word t2;
4671 C_word t3;
4672 C_word *a;
4673 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
4674 C_save_and_reclaim((void *)f_11086,c,av);}
4675 a=C_alloc(9);
4676 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11089,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
4677 /* support.scm:719: chicken.base#gensym */
4678 t3=*((C_word*)lf[97]+1);{
4679 C_word *av2;
4680 if(c >= 3) {
4681   av2=av;
4682 } else {
4683   av2=C_alloc(3);
4684 }
4685 av2[0]=t3;
4686 av2[1]=t2;
4687 av2[2]=((C_word*)t0)[2];
4688 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
4689 
4690 /* k11087 in k11084 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11089(C_word c,C_word * av)4691 static void C_ccall f_11089(C_word c,C_word *av){
4692 C_word tmp;
4693 C_word t0=av[0];
4694 C_word t1=av[1];
4695 C_word t2;
4696 C_word t3;
4697 C_word t4;
4698 C_word t5;
4699 C_word *a;
4700 if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){
4701 C_save_and_reclaim((void *)f_11089,c,av);}
4702 a=C_alloc(14);
4703 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
4704 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
4705 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11095,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t3,tmp=(C_word)a,a+=8,tmp);
4706 /* support.scm:721: db-put! */
4707 t5=*((C_word*)lf[131]+1);{
4708 C_word *av2;
4709 if(c >= 6) {
4710   av2=av;
4711 } else {
4712   av2=C_alloc(6);
4713 }
4714 av2[0]=t5;
4715 av2[1]=t4;
4716 av2[2]=((C_word*)t0)[8];
4717 av2[3]=t1;
4718 av2[4]=lf[223];
4719 av2[5]=C_SCHEME_TRUE;
4720 ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
4721 
4722 /* k11093 in k11087 in k11084 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11095(C_word c,C_word * av)4723 static void C_ccall f_11095(C_word c,C_word *av){
4724 C_word tmp;
4725 C_word t0=av[0];
4726 C_word t1=av[1];
4727 C_word t2;
4728 C_word t3;
4729 C_word t4;
4730 C_word *a;
4731 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
4732 C_save_and_reclaim((void *)f_11095,c,av);}
4733 a=C_alloc(8);
4734 t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
4735 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11115,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4736 /* support.scm:724: walk */
4737 t4=((C_word*)((C_word*)t0)[5])[1];
4738 f_10972(t4,t3,C_i_cadr(((C_word*)t0)[6]),((C_word*)t0)[7]);}
4739 
4740 /* k11113 in k11093 in k11087 in k11084 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11115(C_word c,C_word * av)4741 static void C_ccall f_11115(C_word c,C_word *av){
4742 C_word tmp;
4743 C_word t0=av[0];
4744 C_word t1=av[1];
4745 C_word t2;
4746 C_word t3;
4747 C_word *a;
4748 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
4749 C_save_and_reclaim((void *)f_11115,c,av);}
4750 a=C_alloc(11);
4751 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
4752 t3=((C_word*)t0)[3];{
4753 C_word *av2=av;
4754 av2[0]=t3;
4755 av2[1]=C_a_i_record4(&a,4,lf[141],lf[96],((C_word*)t0)[4],t2);
4756 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4757 
4758 /* a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11138(C_word c,C_word * av)4759 static void C_ccall f_11138(C_word c,C_word *av){
4760 C_word tmp;
4761 C_word t0=av[0];
4762 C_word t1=av[1];
4763 C_word t2=av[2];
4764 C_word t3=av[3];
4765 C_word t4=av[4];
4766 C_word t5;
4767 C_word t6;
4768 C_word t7;
4769 C_word t8;
4770 C_word t9;
4771 C_word t10;
4772 C_word t11;
4773 C_word t12;
4774 C_word t13;
4775 C_word t14;
4776 C_word t15;
4777 C_word *a;
4778 if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
4779 C_save_and_reclaim((void *)f_11138,c,av);}
4780 a=C_alloc(26);
4781 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
4782 t6=t5;
4783 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
4784 t8=((C_word*)t7)[1];
4785 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11143,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4786 t10=C_i_check_list_2(t2,lf[125]);
4787 t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11156,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t3,a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp);
4788 t12=C_SCHEME_UNDEFINED;
4789 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
4790 t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11303,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
4791 t15=((C_word*)t13)[1];
4792 f_11303(t15,t11,t2);}
4793 
4794 /* g2282 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11143(C_word t0,C_word t1,C_word t2)4795 static void C_fcall f_11143(C_word t0,C_word t1,C_word t2){
4796 C_word tmp;
4797 C_word t3;
4798 C_word t4;
4799 C_word *a;
4800 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
4801 C_save_and_reclaim_args((void *)trf_11143,3,t0,t1,t2);}
4802 a=C_alloc(5);
4803 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11147,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4804 /* support.scm:730: chicken.base#gensym */
4805 t4=*((C_word*)lf[97]+1);{
4806 C_word av2[3];
4807 av2[0]=t4;
4808 av2[1]=t3;
4809 av2[2]=t2;
4810 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
4811 
4812 /* k11145 in g2282 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11147(C_word c,C_word * av)4813 static void C_ccall f_11147(C_word c,C_word *av){
4814 C_word tmp;
4815 C_word t0=av[0];
4816 C_word t1=av[1];
4817 C_word t2;
4818 C_word t3;
4819 C_word *a;
4820 if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
4821 C_save_and_reclaim((void *)f_11147,c,av);}
4822 a=C_alloc(4);
4823 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11150,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4824 /* support.scm:731: db-put! */
4825 t3=*((C_word*)lf[131]+1);{
4826 C_word *av2;
4827 if(c >= 6) {
4828   av2=av;
4829 } else {
4830   av2=C_alloc(6);
4831 }
4832 av2[0]=t3;
4833 av2[1]=t2;
4834 av2[2]=((C_word*)t0)[3];
4835 av2[3]=((C_word*)t0)[4];
4836 av2[4]=lf[223];
4837 av2[5]=C_SCHEME_TRUE;
4838 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
4839 
4840 /* k11148 in k11145 in g2282 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11150(C_word c,C_word * av)4841 static void C_ccall f_11150(C_word c,C_word *av){
4842 C_word tmp;
4843 C_word t0=av[0];
4844 C_word t1=av[1];
4845 C_word t2;
4846 C_word *a;
4847 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
4848 C_save_and_reclaim((void *)f_11150,c,av);}
4849 t2=((C_word*)t0)[2];{
4850 C_word *av2=av;
4851 av2[0]=t2;
4852 av2[1]=((C_word*)t0)[3];
4853 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4854 
4855 /* k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11156(C_word c,C_word * av)4856 static void C_ccall f_11156(C_word c,C_word *av){
4857 C_word tmp;
4858 C_word t0=av[0];
4859 C_word t1=av[1];
4860 C_word t2;
4861 C_word t3;
4862 C_word t4;
4863 C_word t5;
4864 C_word t6;
4865 C_word t7;
4866 C_word t8;
4867 C_word t9;
4868 C_word t10;
4869 C_word t11;
4870 C_word t12;
4871 C_word *a;
4872 if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){
4873 C_save_and_reclaim((void *)f_11156,c,av);}
4874 a=C_alloc(25);
4875 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11159,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
4876 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
4877 t4=t3;
4878 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
4879 t6=((C_word*)t5)[1];
4880 t7=C_i_check_list_2(t1,lf[125]);
4881 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11253,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
4882 t9=C_SCHEME_UNDEFINED;
4883 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
4884 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11255,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
4885 t12=((C_word*)t10)[1];
4886 f_11255(t12,t8,((C_word*)t0)[9],t1);}
4887 
4888 /* k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11159(C_word c,C_word * av)4889 static void C_ccall f_11159(C_word c,C_word *av){
4890 C_word tmp;
4891 C_word t0=av[0];
4892 C_word t1=av[1];
4893 C_word t2;
4894 C_word t3;
4895 C_word *a;
4896 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
4897 C_save_and_reclaim((void *)f_11159,c,av);}
4898 a=C_alloc(10);
4899 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11224,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
4900 /* support.scm:737: chicken.base#gensym */
4901 t3=*((C_word*)lf[97]+1);{
4902 C_word *av2;
4903 if(c >= 3) {
4904   av2=av;
4905 } else {
4906   av2=C_alloc(3);
4907 }
4908 av2[0]=t3;
4909 av2[1]=t2;
4910 av2[2]=lf[224];
4911 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
4912 
4913 /* g2349 in k11230 in k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_11176(C_word t0,C_word t1,C_word t2)4914 static void C_fcall f_11176(C_word t0,C_word t1,C_word t2){
4915 C_word tmp;
4916 C_word t3;
4917 C_word *a;
4918 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
4919 C_save_and_reclaim_args((void *)trf_11176,3,t0,t1,t2);}
4920 /* support.scm:740: g2366 */
4921 t3=((C_word*)((C_word*)t0)[2])[1];
4922 f_10972(t3,t1,t2,((C_word*)t0)[3]);}
4923 
4924 /* k11184 in k11230 in k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_11186(C_word c,C_word * av)4925 static void C_ccall f_11186(C_word c,C_word *av){
4926 C_word tmp;
4927 C_word t0=av[0];
4928 C_word t1=av[1];
4929 C_word t2;
4930 C_word *a;
4931 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
4932 C_save_and_reclaim((void *)f_11186,c,av);}
4933 a=C_alloc(5);
4934 t2=((C_word*)t0)[2];{
4935 C_word *av2=av;
4936 av2[0]=t2;
4937 av2[1]=C_a_i_record4(&a,4,lf[141],lf[118],((C_word*)t0)[3],t1);
4938 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4939 
4940 /* map-loop2343 in k11230 in k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_11188(C_word t0,C_word t1,C_word t2)4941 static void C_fcall f_11188(C_word t0,C_word t1,C_word t2){
4942 C_word tmp;
4943 C_word t3;
4944 C_word t4;
4945 C_word *a;
4946 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
4947 C_save_and_reclaim_args((void *)trf_11188,3,t0,t1,t2);}
4948 a=C_alloc(6);
4949 if(C_truep(C_i_pairp(t2))){
4950 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
4951 /* support.scm:740: g2349 */
4952 t4=((C_word*)t0)[4];
4953 f_11176(t4,t3,C_slot(t2,C_fix(0)));}
4954 else{
4955 t3=t1;{
4956 C_word av2[2];
4957 av2[0]=t3;
4958 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
4959 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
4960 
4961 /* k11211 in map-loop2343 in k11230 in k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_11213(C_word c,C_word * av)4962 static void C_ccall f_11213(C_word c,C_word *av){
4963 C_word tmp;
4964 C_word t0=av[0];
4965 C_word t1=av[1];
4966 C_word t2;
4967 C_word t3;
4968 C_word t4;
4969 C_word t5;
4970 C_word *a;
4971 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
4972 C_save_and_reclaim((void *)f_11213,c,av);}
4973 a=C_alloc(3);
4974 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
4975 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
4976 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
4977 t5=((C_word*)((C_word*)t0)[3])[1];
4978 f_11188(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
4979 
4980 /* k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11224(C_word c,C_word * av)4981 static void C_ccall f_11224(C_word c,C_word *av){
4982 C_word tmp;
4983 C_word t0=av[0];
4984 C_word t1=av[1];
4985 C_word t2;
4986 C_word t3;
4987 C_word t4;
4988 C_word t5;
4989 C_word *a;
4990 if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){
4991 C_save_and_reclaim((void *)f_11224,c,av);}
4992 a=C_alloc(14);
4993 t2=C_i_cadr(((C_word*)t0)[2]);
4994 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11232,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
4995 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11240,a[2]=t3,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
4996 if(C_truep(((C_word*)t0)[9])){
4997 /* support.scm:699: chicken.base#alist-ref */
4998 t5=*((C_word*)lf[220]+1);{
4999 C_word *av2;
5000 if(c >= 6) {
5001   av2=av;
5002 } else {
5003   av2=C_alloc(6);
5004 }
5005 av2[0]=t5;
5006 av2[1]=t4;
5007 av2[2]=((C_word*)t0)[9];
5008 av2[3]=((C_word*)t0)[4];
5009 av2[4]=*((C_word*)lf[221]+1);
5010 av2[5]=((C_word*)t0)[9];
5011 ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
5012 else{
5013 /* support.scm:738: build-lambda-list */
5014 t5=*((C_word*)lf[54]+1);{
5015 C_word *av2;
5016 if(c >= 5) {
5017   av2=av;
5018 } else {
5019   av2=C_alloc(5);
5020 }
5021 av2[0]=t5;
5022 av2[1]=t3;
5023 av2[2]=((C_word*)t0)[7];
5024 av2[3]=((C_word*)t0)[8];
5025 av2[4]=C_SCHEME_FALSE;
5026 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
5027 
5028 /* k11230 in k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_11232(C_word c,C_word * av)5029 static void C_ccall f_11232(C_word c,C_word *av){
5030 C_word tmp;
5031 C_word t0=av[0];
5032 C_word t1=av[1];
5033 C_word t2;
5034 C_word t3;
5035 C_word t4;
5036 C_word t5;
5037 C_word t6;
5038 C_word t7;
5039 C_word t8;
5040 C_word t9;
5041 C_word t10;
5042 C_word t11;
5043 C_word t12;
5044 C_word t13;
5045 C_word t14;
5046 C_word *a;
5047 if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){
5048 C_save_and_reclaim((void *)f_11232,c,av);}
5049 a=C_alloc(33);
5050 t2=C_i_cadddr(((C_word*)t0)[2]);
5051 t3=C_a_i_list4(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],t1,t2);
5052 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
5053 t5=t4;
5054 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5055 t7=((C_word*)t6)[1];
5056 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11176,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
5057 t9=C_i_check_list_2(((C_word*)t0)[7],lf[125]);
5058 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11186,a[2]=((C_word*)t0)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
5059 t11=C_SCHEME_UNDEFINED;
5060 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
5061 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11188,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
5062 t14=((C_word*)t12)[1];
5063 f_11188(t14,t10,((C_word*)t0)[7]);}
5064 
5065 /* k11238 in k11222 in k11157 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_11240(C_word c,C_word * av)5066 static void C_ccall f_11240(C_word c,C_word *av){
5067 C_word tmp;
5068 C_word t0=av[0];
5069 C_word t1=av[1];
5070 C_word t2;
5071 C_word *a;
5072 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
5073 C_save_and_reclaim((void *)f_11240,c,av);}
5074 /* support.scm:738: build-lambda-list */
5075 t2=*((C_word*)lf[54]+1);{
5076 C_word *av2;
5077 if(c >= 5) {
5078   av2=av;
5079 } else {
5080   av2=C_alloc(5);
5081 }
5082 av2[0]=t2;
5083 av2[1]=((C_word*)t0)[2];
5084 av2[2]=((C_word*)t0)[3];
5085 av2[3]=((C_word*)t0)[4];
5086 av2[4]=t1;
5087 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
5088 
5089 /* k11251 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11253(C_word c,C_word * av)5090 static void C_ccall f_11253(C_word c,C_word *av){
5091 C_word tmp;
5092 C_word t0=av[0];
5093 C_word t1=av[1];
5094 C_word t2;
5095 C_word *a;
5096 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5097 C_save_and_reclaim((void *)f_11253,c,av);}
5098 /* support.scm:734: scheme#append */
5099 t2=*((C_word*)lf[58]+1);{
5100 C_word *av2;
5101 if(c >= 4) {
5102   av2=av;
5103 } else {
5104   av2=C_alloc(4);
5105 }
5106 av2[0]=t2;
5107 av2[1]=((C_word*)t0)[2];
5108 av2[2]=t1;
5109 av2[3]=((C_word*)t0)[3];
5110 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
5111 
5112 /* map-loop2306 in k11154 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11255(C_word t0,C_word t1,C_word t2,C_word t3)5113 static void C_fcall f_11255(C_word t0,C_word t1,C_word t2,C_word t3){
5114 C_word tmp;
5115 C_word t4;
5116 C_word t5;
5117 C_word t6;
5118 C_word t7;
5119 C_word t8;
5120 C_word t9;
5121 C_word t10;
5122 C_word t11;
5123 C_word t12;
5124 C_word t13;
5125 C_word t14;
5126 C_word t15;
5127 C_word *a;
5128 loop:
5129 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
5130 C_save_and_reclaim_args((void *)trf_11255,4,t0,t1,t2,t3);}
5131 a=C_alloc(6);
5132 t4=C_i_pairp(t2);
5133 t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
5134 if(C_truep(t5)){
5135 t6=C_slot(t2,C_fix(0));
5136 t7=C_slot(t3,C_fix(0));
5137 t8=C_a_i_cons(&a,2,t6,t7);
5138 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
5139 t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
5140 t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
5141 t13=t1;
5142 t14=C_slot(t2,C_fix(1));
5143 t15=C_slot(t3,C_fix(1));
5144 t1=t13;
5145 t2=t14;
5146 t3=t15;
5147 goto loop;}
5148 else{
5149 t6=t1;{
5150 C_word av2[2];
5151 av2[0]=t6;
5152 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
5153 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
5154 
5155 /* map-loop2276 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11303(C_word t0,C_word t1,C_word t2)5156 static void C_fcall f_11303(C_word t0,C_word t1,C_word t2){
5157 C_word tmp;
5158 C_word t3;
5159 C_word t4;
5160 C_word *a;
5161 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
5162 C_save_and_reclaim_args((void *)trf_11303,3,t0,t1,t2);}
5163 a=C_alloc(6);
5164 if(C_truep(C_i_pairp(t2))){
5165 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11328,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
5166 /* support.scm:729: g2282 */
5167 t4=((C_word*)t0)[4];
5168 f_11143(t4,t3,C_slot(t2,C_fix(0)));}
5169 else{
5170 t3=t1;{
5171 C_word av2[2];
5172 av2[0]=t3;
5173 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
5174 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
5175 
5176 /* k11326 in map-loop2276 in a11137 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11328(C_word c,C_word * av)5177 static void C_ccall f_11328(C_word c,C_word *av){
5178 C_word tmp;
5179 C_word t0=av[0];
5180 C_word t1=av[1];
5181 C_word t2;
5182 C_word t3;
5183 C_word t4;
5184 C_word t5;
5185 C_word *a;
5186 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
5187 C_save_and_reclaim((void *)f_11328,c,av);}
5188 a=C_alloc(3);
5189 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
5190 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
5191 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
5192 t5=((C_word*)((C_word*)t0)[3])[1];
5193 f_11303(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
5194 
5195 /* k11345 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11347(C_word c,C_word * av)5196 static void C_ccall f_11347(C_word c,C_word *av){
5197 C_word tmp;
5198 C_word t0=av[0];
5199 C_word t1=av[1];
5200 C_word t2;
5201 C_word t3;
5202 C_word t4;
5203 C_word t5;
5204 C_word t6;
5205 C_word t7;
5206 C_word t8;
5207 C_word t9;
5208 C_word t10;
5209 C_word t11;
5210 C_word t12;
5211 C_word *a;
5212 if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
5213 C_save_and_reclaim((void *)f_11347,c,av);}
5214 a=C_alloc(22);
5215 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
5216 t3=t2;
5217 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
5218 t5=((C_word*)t4)[1];
5219 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
5220 t7=C_i_check_list_2(((C_word*)t0)[4],lf[125]);
5221 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11362,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
5222 t9=C_SCHEME_UNDEFINED;
5223 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
5224 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11364,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
5225 t12=((C_word*)t10)[1];
5226 f_11364(t12,t8,((C_word*)t0)[4]);}
5227 
5228 /* g2388 in k11345 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11352(C_word t0,C_word t1,C_word t2)5229 static void C_fcall f_11352(C_word t0,C_word t1,C_word t2){
5230 C_word tmp;
5231 C_word t3;
5232 C_word *a;
5233 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
5234 C_save_and_reclaim_args((void *)trf_11352,3,t0,t1,t2);}
5235 /* support.scm:742: g2405 */
5236 t3=((C_word*)((C_word*)t0)[2])[1];
5237 f_10972(t3,t1,t2,((C_word*)t0)[3]);}
5238 
5239 /* k11360 in k11345 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11362(C_word c,C_word * av)5240 static void C_ccall f_11362(C_word c,C_word *av){
5241 C_word tmp;
5242 C_word t0=av[0];
5243 C_word t1=av[1];
5244 C_word t2;
5245 C_word *a;
5246 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
5247 C_save_and_reclaim((void *)f_11362,c,av);}
5248 a=C_alloc(5);
5249 t2=((C_word*)t0)[2];{
5250 C_word *av2=av;
5251 av2[0]=t2;
5252 av2[1]=C_a_i_record4(&a,4,lf[141],((C_word*)t0)[3],((C_word*)t0)[4],t1);
5253 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5254 
5255 /* map-loop2382 in k11345 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11364(C_word t0,C_word t1,C_word t2)5256 static void C_fcall f_11364(C_word t0,C_word t1,C_word t2){
5257 C_word tmp;
5258 C_word t3;
5259 C_word t4;
5260 C_word *a;
5261 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
5262 C_save_and_reclaim_args((void *)trf_11364,3,t0,t1,t2);}
5263 a=C_alloc(6);
5264 if(C_truep(C_i_pairp(t2))){
5265 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11389,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
5266 /* support.scm:742: g2388 */
5267 t4=((C_word*)t0)[4];
5268 f_11352(t4,t3,C_slot(t2,C_fix(0)));}
5269 else{
5270 t3=t1;{
5271 C_word av2[2];
5272 av2[0]=t3;
5273 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
5274 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
5275 
5276 /* k11387 in map-loop2382 in k11345 in walk in k10962 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11389(C_word c,C_word * av)5277 static void C_ccall f_11389(C_word c,C_word *av){
5278 C_word tmp;
5279 C_word t0=av[0];
5280 C_word t1=av[1];
5281 C_word t2;
5282 C_word t3;
5283 C_word t4;
5284 C_word t5;
5285 C_word *a;
5286 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
5287 C_save_and_reclaim((void *)f_11389,c,av);}
5288 a=C_alloc(3);
5289 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
5290 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
5291 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
5292 t5=((C_word*)((C_word*)t0)[3])[1];
5293 f_11364(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
5294 
5295 /* map-loop2195 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11411(C_word t0,C_word t1,C_word t2,C_word t3)5296 static void C_fcall f_11411(C_word t0,C_word t1,C_word t2,C_word t3){
5297 C_word tmp;
5298 C_word t4;
5299 C_word t5;
5300 C_word t6;
5301 C_word t7;
5302 C_word t8;
5303 C_word t9;
5304 C_word t10;
5305 C_word t11;
5306 C_word t12;
5307 C_word t13;
5308 C_word t14;
5309 C_word t15;
5310 C_word *a;
5311 loop:
5312 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
5313 C_save_and_reclaim_args((void *)trf_11411,4,t0,t1,t2,t3);}
5314 a=C_alloc(6);
5315 t4=C_i_pairp(t2);
5316 t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
5317 if(C_truep(t5)){
5318 t6=C_slot(t2,C_fix(0));
5319 t7=C_slot(t3,C_fix(0));
5320 t8=C_a_i_cons(&a,2,t6,t7);
5321 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
5322 t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
5323 t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
5324 t13=t1;
5325 t14=C_slot(t2,C_fix(1));
5326 t15=C_slot(t3,C_fix(1));
5327 t1=t13;
5328 t2=t14;
5329 t3=t15;
5330 goto loop;}
5331 else{
5332 t6=t1;{
5333 C_word av2[2];
5334 av2[0]=t6;
5335 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
5336 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
5337 
5338 /* walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11462(C_word t0,C_word t1,C_word t2)5339 static void C_fcall f_11462(C_word t0,C_word t1,C_word t2){
5340 C_word tmp;
5341 C_word t3;
5342 C_word t4;
5343 C_word t5;
5344 C_word t6;
5345 C_word t7;
5346 C_word t8;
5347 C_word t9;
5348 C_word t10;
5349 C_word t11;
5350 C_word t12;
5351 C_word t13;
5352 C_word t14;
5353 C_word *a;
5354 if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
5355 C_save_and_reclaim_args((void *)trf_11462,3,t0,t1,t2);}
5356 a=C_alloc(9);
5357 t3=C_slot(t2,C_fix(3));
5358 t4=C_slot(t2,C_fix(2));
5359 t5=C_slot(t2,C_fix(1));
5360 t6=C_eqp(t5,lf[213]);
5361 if(C_truep(t6)){
5362 t7=C_i_car(t4);
5363 t8=C_eqp(((C_word*)t0)[2],t7);
5364 if(C_truep(t8)){
5365 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11506,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
5366 t10=C_i_length(((C_word*)t0)[3]);
5367 t11=C_i_cadr(t4);
5368 /* support.scm:755: qnode */
5369 t12=*((C_word*)lf[155]+1);{
5370 C_word av2[3];
5371 av2[0]=t12;
5372 av2[1]=t9;
5373 av2[2]=C_i_less_or_equalp(t10,t11);
5374 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
5375 else{
5376 t9=t1;{
5377 C_word av2[2];
5378 av2[0]=t9;
5379 av2[1]=t2;
5380 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
5381 else{
5382 t7=C_eqp(t5,lf[215]);
5383 if(C_truep(t7)){
5384 t8=C_i_car(t4);
5385 t9=C_eqp(((C_word*)t0)[2],t8);
5386 if(C_truep(t9)){
5387 t10=C_i_cadr(t4);
5388 t11=C_i_length(((C_word*)t0)[3]);
5389 if(C_truep(C_i_greaterp(t11,t10))){
5390 t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11553,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
5391 /* support.scm:762: varnode */
5392 t13=*((C_word*)lf[153]+1);{
5393 C_word av2[3];
5394 av2[0]=t13;
5395 av2[1]=t12;
5396 av2[2]=C_i_list_ref(((C_word*)t0)[3],t10);
5397 ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
5398 else{
5399 t12=C_a_i_list1(&a,1,lf[216]);
5400 t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11581,a[2]=t12,a[3]=t1,a[4]=t2,a[5]=t10,tmp=(C_word)a,a+=6,tmp);
5401 /* support.scm:765: qnode */
5402 t14=*((C_word*)lf[155]+1);{
5403 C_word av2[3];
5404 av2[0]=t14;
5405 av2[1]=t13;
5406 av2[2]=t11;
5407 ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}}
5408 else{
5409 t10=t1;{
5410 C_word av2[2];
5411 av2[0]=t10;
5412 av2[1]=t2;
5413 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
5414 else{
5415 t8=C_eqp(t5,lf[217]);
5416 if(C_truep(t8)){
5417 t9=C_i_car(t4);
5418 t10=C_eqp(((C_word*)t0)[2],t9);
5419 if(C_truep(t10)){
5420 t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11608,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
5421 /* support.scm:770: collect! */
5422 t12=*((C_word*)lf[133]+1);{
5423 C_word av2[6];
5424 av2[0]=t12;
5425 av2[1]=t11;
5426 av2[2]=((C_word*)t0)[5];
5427 av2[3]=((C_word*)t0)[2];
5428 av2[4]=lf[209];
5429 av2[5]=t2;
5430 ((C_proc)(void*)(*((C_word*)t12+1)))(6,av2);}}
5431 else{
5432 t11=t1;{
5433 C_word av2[2];
5434 av2[0]=t11;
5435 av2[1]=t2;
5436 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}
5437 else{
5438 t9=C_i_check_list_2(t3,lf[44]);
5439 t10=C_SCHEME_UNDEFINED;
5440 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
5441 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11664,a[2]=t11,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp));
5442 t13=((C_word*)t11)[1];
5443 f_11664(t13,t1,t3);}}}}
5444 
5445 /* k11504 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11506(C_word c,C_word * av)5446 static void C_ccall f_11506(C_word c,C_word *av){
5447 C_word tmp;
5448 C_word t0=av[0];
5449 C_word t1=av[1];
5450 C_word t2;
5451 C_word *a;
5452 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5453 C_save_and_reclaim((void *)f_11506,c,av);}
5454 /* support.scm:755: copy-node! */
5455 t2=*((C_word*)lf[214]+1);{
5456 C_word *av2;
5457 if(c >= 4) {
5458   av2=av;
5459 } else {
5460   av2=C_alloc(4);
5461 }
5462 av2[0]=t2;
5463 av2[1]=((C_word*)t0)[2];
5464 av2[2]=t1;
5465 av2[3]=((C_word*)t0)[3];
5466 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
5467 
5468 /* k11551 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11553(C_word c,C_word * av)5469 static void C_ccall f_11553(C_word c,C_word *av){
5470 C_word tmp;
5471 C_word t0=av[0];
5472 C_word t1=av[1];
5473 C_word t2;
5474 C_word *a;
5475 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5476 C_save_and_reclaim((void *)f_11553,c,av);}
5477 /* support.scm:762: copy-node! */
5478 t2=*((C_word*)lf[214]+1);{
5479 C_word *av2;
5480 if(c >= 4) {
5481   av2=av;
5482 } else {
5483   av2=C_alloc(4);
5484 }
5485 av2[0]=t2;
5486 av2[1]=((C_word*)t0)[2];
5487 av2[2]=t1;
5488 av2[3]=((C_word*)t0)[3];
5489 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
5490 
5491 /* k11579 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11581(C_word c,C_word * av)5492 static void C_ccall f_11581(C_word c,C_word *av){
5493 C_word tmp;
5494 C_word t0=av[0];
5495 C_word t1=av[1];
5496 C_word t2;
5497 C_word t3;
5498 C_word *a;
5499 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
5500 C_save_and_reclaim((void *)f_11581,c,av);}
5501 a=C_alloc(6);
5502 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11585,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
5503 /* support.scm:765: qnode */
5504 t3=*((C_word*)lf[155]+1);{
5505 C_word *av2;
5506 if(c >= 3) {
5507   av2=av;
5508 } else {
5509   av2=C_alloc(3);
5510 }
5511 av2[0]=t3;
5512 av2[1]=t2;
5513 av2[2]=((C_word*)t0)[5];
5514 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5515 
5516 /* k11583 in k11579 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11585(C_word c,C_word * av)5517 static void C_ccall f_11585(C_word c,C_word *av){
5518 C_word tmp;
5519 C_word t0=av[0];
5520 C_word t1=av[1];
5521 C_word t2;
5522 C_word t3;
5523 C_word *a;
5524 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
5525 C_save_and_reclaim((void *)f_11585,c,av);}
5526 a=C_alloc(7);
5527 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11589,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
5528 /* support.scm:765: qnode */
5529 t3=*((C_word*)lf[155]+1);{
5530 C_word *av2;
5531 if(c >= 3) {
5532   av2=av;
5533 } else {
5534   av2=C_alloc(3);
5535 }
5536 av2[0]=t3;
5537 av2[1]=t2;
5538 av2[2]=C_fix(0);
5539 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5540 
5541 /* k11587 in k11583 in k11579 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_11589(C_word c,C_word * av)5542 static void C_ccall f_11589(C_word c,C_word *av){
5543 C_word tmp;
5544 C_word t0=av[0];
5545 C_word t1=av[1];
5546 C_word t2;
5547 C_word t3;
5548 C_word t4;
5549 C_word *a;
5550 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
5551 C_save_and_reclaim((void *)f_11589,c,av);}
5552 a=C_alloc(14);
5553 t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
5554 t3=C_a_i_record4(&a,4,lf[141],lf[172],((C_word*)t0)[4],t2);
5555 /* support.scm:763: copy-node! */
5556 t4=*((C_word*)lf[214]+1);{
5557 C_word *av2;
5558 if(c >= 4) {
5559   av2=av;
5560 } else {
5561   av2=C_alloc(4);
5562 }
5563 av2[0]=t4;
5564 av2[1]=((C_word*)t0)[5];
5565 av2[2]=t3;
5566 av2[3]=((C_word*)t0)[6];
5567 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
5568 
5569 /* k11606 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11608(C_word c,C_word * av)5570 static void C_ccall f_11608(C_word c,C_word *av){
5571 C_word tmp;
5572 C_word t0=av[0];
5573 C_word t1=av[1];
5574 C_word t2;
5575 C_word t3;
5576 C_word t4;
5577 C_word t5;
5578 C_word *a;
5579 if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){
5580 C_save_and_reclaim((void *)f_11608,c,av);}
5581 a=C_alloc(34);
5582 t2=C_i_cadr(((C_word*)t0)[2]);
5583 t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
5584 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11620,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
5585 /* support.scm:772: varnode */
5586 t5=*((C_word*)lf[153]+1);{
5587 C_word *av2;
5588 if(c >= 3) {
5589   av2=av;
5590 } else {
5591   av2=C_alloc(3);
5592 }
5593 av2[0]=t5;
5594 av2[1]=t4;
5595 av2[2]=((C_word*)t0)[5];
5596 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
5597 
5598 /* k11618 in k11606 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11620(C_word c,C_word * av)5599 static void C_ccall f_11620(C_word c,C_word *av){
5600 C_word tmp;
5601 C_word t0=av[0];
5602 C_word t1=av[1];
5603 C_word t2;
5604 C_word t3;
5605 C_word t4;
5606 C_word t5;
5607 C_word *a;
5608 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
5609 C_save_and_reclaim((void *)f_11620,c,av);}
5610 a=C_alloc(6);
5611 t2=C_SCHEME_UNDEFINED;
5612 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
5613 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11622,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
5614 t5=((C_word*)t3)[1];
5615 f_11622(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
5616 
5617 /* lp in k11618 in k11606 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_11622(C_word t0,C_word t1,C_word t2,C_word t3)5618 static void C_fcall f_11622(C_word t0,C_word t1,C_word t2,C_word t3){
5619 C_word tmp;
5620 C_word t4;
5621 C_word t5;
5622 C_word t6;
5623 C_word t7;
5624 C_word t8;
5625 C_word t9;
5626 C_word t10;
5627 C_word t11;
5628 C_word *a;
5629 loop:
5630 if(C_unlikely(!C_demand(C_calculate_demand(40,0,3)))){
5631 C_save_and_reclaim_args((void *)trf_11622,4,t0,t1,t2,t3);}
5632 a=C_alloc(40);
5633 if(C_truep(C_i_zerop(t2))){
5634 /* support.scm:774: copy-node! */
5635 t4=*((C_word*)lf[214]+1);{
5636 C_word av2[4];
5637 av2[0]=t4;
5638 av2[1]=t1;
5639 av2[2]=t3;
5640 av2[3]=((C_word*)t0)[2];
5641 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
5642 else{
5643 t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
5644 t5=C_a_i_list1(&a,1,lf[218]);
5645 t6=C_a_i_list1(&a,1,t3);
5646 t7=C_a_i_record4(&a,4,lf[141],lf[172],t5,t6);
5647 /* support.scm:775: lp */
5648 t9=t1;
5649 t10=t4;
5650 t11=t7;
5651 t1=t9;
5652 t2=t10;
5653 t3=t11;
5654 goto loop;}}
5655 
5656 /* for-each-loop2465 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_11664(C_word t0,C_word t1,C_word t2)5657 static void C_fcall f_11664(C_word t0,C_word t1,C_word t2){
5658 C_word tmp;
5659 C_word t3;
5660 C_word t4;
5661 C_word *a;
5662 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
5663 C_save_and_reclaim_args((void *)trf_11664,3,t0,t1,t2);}
5664 a=C_alloc(5);
5665 if(C_truep(C_i_pairp(t2))){
5666 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11674,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5667 /* support.scm:778: g2466 */
5668 t4=((C_word*)((C_word*)t0)[3])[1];
5669 f_11462(t4,t3,C_slot(t2,C_fix(0)));}
5670 else{
5671 t3=C_SCHEME_UNDEFINED;
5672 t4=t1;{
5673 C_word av2[2];
5674 av2[0]=t4;
5675 av2[1]=t3;
5676 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
5677 
5678 /* k11672 in for-each-loop2465 in walk in k10867 in k10658 in k10644 in k10641 in a10638 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11674(C_word c,C_word * av)5679 static void C_ccall f_11674(C_word c,C_word *av){
5680 C_word tmp;
5681 C_word t0=av[0];
5682 C_word t1=av[1];
5683 C_word t2;
5684 C_word *a;
5685 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5686 C_save_and_reclaim((void *)f_11674,c,av);}
5687 t2=((C_word*)((C_word*)t0)[2])[1];
5688 f_11664(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
5689 
5690 /* chicken.compiler.support#replace-rest-op-with-list-ops in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11696(C_word c,C_word * av)5691 static void C_ccall f_11696(C_word c,C_word *av){
5692 C_word tmp;
5693 C_word t0=av[0];
5694 C_word t1=av[1];
5695 C_word t2=av[2];
5696 C_word t3=av[3];
5697 C_word t4=av[4];
5698 C_word t5;
5699 C_word t6;
5700 C_word t7;
5701 C_word t8;
5702 C_word t9;
5703 C_word t10;
5704 C_word t11;
5705 C_word t12;
5706 C_word *a;
5707 if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){
5708 C_save_and_reclaim((void *)f_11696,c,av);}
5709 a=C_alloc(34);
5710 t5=C_eqp(t2,lf[215]);
5711 if(C_truep(t5)){
5712 t6=C_a_i_list1(&a,1,lf[228]);
5713 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11723,a[2]=t3,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
5714 /* support.scm:787: qnode */
5715 t8=*((C_word*)lf[155]+1);{
5716 C_word *av2=av;
5717 av2[0]=t8;
5718 av2[1]=t7;
5719 av2[2]=C_i_cadr(t4);
5720 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
5721 else{
5722 t6=C_eqp(t2,lf[217]);
5723 if(C_truep(t6)){
5724 t7=C_i_cadr(t4);
5725 t8=C_s_a_i_plus(&a,2,t7,C_fix(1));
5726 t9=C_SCHEME_UNDEFINED;
5727 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
5728 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11743,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
5729 t12=((C_word*)t10)[1];
5730 f_11743(t12,t1,t8,t3);}
5731 else{
5732 t7=C_eqp(t2,lf[213]);
5733 if(C_truep(t7)){
5734 t8=C_a_i_list1(&a,1,lf[230]);
5735 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11796,a[2]=t3,a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp);
5736 /* support.scm:798: qnode */
5737 t10=*((C_word*)lf[155]+1);{
5738 C_word *av2=av;
5739 av2[0]=t10;
5740 av2[1]=t9;
5741 av2[2]=C_i_cadr(t4);
5742 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
5743 else{
5744 t8=C_eqp(t2,lf[232]);
5745 if(C_truep(t8)){
5746 t9=C_a_i_list1(&a,1,lf[233]);
5747 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11843,a[2]=t3,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp);
5748 /* support.scm:803: qnode */
5749 t11=*((C_word*)lf[155]+1);{
5750 C_word *av2=av;
5751 av2[0]=t11;
5752 av2[1]=t10;
5753 av2[2]=C_i_cadr(t4);
5754 ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
5755 else{
5756 /* support.scm:804: bomb */
5757 t9=*((C_word*)lf[13]+1);{
5758 C_word *av2=av;
5759 av2[0]=t9;
5760 av2[1]=t1;
5761 av2[2]=lf[234];
5762 av2[3]=t2;
5763 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}}}
5764 
5765 /* k11721 in chicken.compiler.support#replace-rest-op-with-list-ops in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11723(C_word c,C_word * av)5766 static void C_ccall f_11723(C_word c,C_word *av){
5767 C_word tmp;
5768 C_word t0=av[0];
5769 C_word t1=av[1];
5770 C_word t2;
5771 C_word t3;
5772 C_word *a;
5773 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
5774 C_save_and_reclaim((void *)f_11723,c,av);}
5775 a=C_alloc(11);
5776 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
5777 t3=((C_word*)t0)[3];{
5778 C_word *av2=av;
5779 av2[0]=t3;
5780 av2[1]=C_a_i_record4(&a,4,lf[141],lf[172],((C_word*)t0)[4],t2);
5781 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5782 
5783 /* lp in chicken.compiler.support#replace-rest-op-with-list-ops in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11743(C_word t0,C_word t1,C_word t2,C_word t3)5784 static void C_fcall f_11743(C_word t0,C_word t1,C_word t2,C_word t3){
5785 C_word tmp;
5786 C_word t4;
5787 C_word t5;
5788 C_word t6;
5789 C_word t7;
5790 C_word t8;
5791 C_word t9;
5792 C_word t10;
5793 C_word t11;
5794 C_word *a;
5795 loop:
5796 if(C_unlikely(!C_demand(C_calculate_demand(40,0,3)))){
5797 C_save_and_reclaim_args((void *)trf_11743,4,t0,t1,t2,t3);}
5798 a=C_alloc(40);
5799 if(C_truep(C_i_zerop(t2))){
5800 t4=t1;{
5801 C_word av2[2];
5802 av2[0]=t4;
5803 av2[1]=t3;
5804 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
5805 else{
5806 t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
5807 t5=C_a_i_list1(&a,1,lf[229]);
5808 t6=C_a_i_list1(&a,1,t3);
5809 t7=C_a_i_record4(&a,4,lf[141],lf[172],t5,t6);
5810 /* support.scm:793: lp */
5811 t9=t1;
5812 t10=t4;
5813 t11=t7;
5814 t1=t9;
5815 t2=t10;
5816 t3=t11;
5817 goto loop;}}
5818 
5819 /* k11794 in chicken.compiler.support#replace-rest-op-with-list-ops in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11796(C_word c,C_word * av)5820 static void C_ccall f_11796(C_word c,C_word *av){
5821 C_word tmp;
5822 C_word t0=av[0];
5823 C_word t1=av[1];
5824 C_word t2;
5825 C_word t3;
5826 C_word t4;
5827 C_word t5;
5828 C_word t6;
5829 C_word *a;
5830 if(C_unlikely(!C_demand(C_calculate_demand(22,c,1)))){
5831 C_save_and_reclaim((void *)f_11796,c,av);}
5832 a=C_alloc(22);
5833 t2=C_a_i_list1(&a,1,lf[231]);
5834 t3=C_a_i_list1(&a,1,((C_word*)t0)[2]);
5835 t4=C_a_i_record4(&a,4,lf[141],lf[172],t2,t3);
5836 t5=C_a_i_list2(&a,2,t1,t4);
5837 t6=((C_word*)t0)[3];{
5838 C_word *av2=av;
5839 av2[0]=t6;
5840 av2[1]=C_a_i_record4(&a,4,lf[141],lf[172],((C_word*)t0)[4],t5);
5841 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
5842 
5843 /* k11841 in chicken.compiler.support#replace-rest-op-with-list-ops in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11843(C_word c,C_word * av)5844 static void C_ccall f_11843(C_word c,C_word *av){
5845 C_word tmp;
5846 C_word t0=av[0];
5847 C_word t1=av[1];
5848 C_word t2;
5849 C_word t3;
5850 C_word *a;
5851 if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){
5852 C_save_and_reclaim((void *)f_11843,c,av);}
5853 a=C_alloc(11);
5854 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
5855 t3=((C_word*)t0)[3];{
5856 C_word *av2=av;
5857 av2[0]=t3;
5858 av2[1]=C_a_i_record4(&a,4,lf[141],lf[172],((C_word*)t0)[4],t2);
5859 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5860 
5861 /* chicken.compiler.support#tree-copy in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11860(C_word c,C_word * av)5862 static void C_ccall f_11860(C_word c,C_word *av){
5863 C_word tmp;
5864 C_word t0=av[0];
5865 C_word t1=av[1];
5866 C_word t2=av[2];
5867 C_word t3;
5868 C_word t4;
5869 C_word t5;
5870 C_word t6;
5871 C_word *a;
5872 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
5873 C_save_and_reclaim((void *)f_11860,c,av);}
5874 a=C_alloc(5);
5875 t3=C_SCHEME_UNDEFINED;
5876 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
5877 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11866,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
5878 t6=((C_word*)t4)[1];
5879 f_11866(t6,t1,t2);}
5880 
5881 /* rec in chicken.compiler.support#tree-copy in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11866(C_word t0,C_word t1,C_word t2)5882 static void C_fcall f_11866(C_word t0,C_word t1,C_word t2){
5883 C_word tmp;
5884 C_word t3;
5885 C_word t4;
5886 C_word t5;
5887 C_word t6;
5888 C_word *a;
5889 loop:
5890 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
5891 C_save_and_reclaim_args((void *)trf_11866,3,t0,t1,t2);}
5892 a=C_alloc(5);
5893 if(C_truep(C_i_pairp(t2))){
5894 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11880,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5895 /* support.scm:810: rec */
5896 t5=t3;
5897 t6=C_u_i_car(t2);
5898 t1=t5;
5899 t2=t6;
5900 goto loop;}
5901 else{
5902 t3=t1;{
5903 C_word av2[2];
5904 av2[0]=t3;
5905 av2[1]=t2;
5906 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
5907 
5908 /* k11878 in rec in chicken.compiler.support#tree-copy in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11880(C_word c,C_word * av)5909 static void C_ccall f_11880(C_word c,C_word *av){
5910 C_word tmp;
5911 C_word t0=av[0];
5912 C_word t1=av[1];
5913 C_word t2;
5914 C_word t3;
5915 C_word *a;
5916 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
5917 C_save_and_reclaim((void *)f_11880,c,av);}
5918 a=C_alloc(4);
5919 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11884,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
5920 /* support.scm:810: rec */
5921 t3=((C_word*)((C_word*)t0)[3])[1];
5922 f_11866(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}
5923 
5924 /* k11882 in k11878 in rec in chicken.compiler.support#tree-copy in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11884(C_word c,C_word * av)5925 static void C_ccall f_11884(C_word c,C_word *av){
5926 C_word tmp;
5927 C_word t0=av[0];
5928 C_word t1=av[1];
5929 C_word t2;
5930 C_word *a;
5931 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
5932 C_save_and_reclaim((void *)f_11884,c,av);}
5933 a=C_alloc(3);
5934 t2=((C_word*)t0)[2];{
5935 C_word *av2=av;
5936 av2[0]=t2;
5937 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
5938 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5939 
5940 /* chicken.compiler.support#copy-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11890(C_word c,C_word * av)5941 static void C_ccall f_11890(C_word c,C_word *av){
5942 C_word tmp;
5943 C_word t0=av[0];
5944 C_word t1=av[1];
5945 C_word t2=av[2];
5946 C_word t3;
5947 C_word t4;
5948 C_word t5;
5949 C_word t6;
5950 C_word *a;
5951 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
5952 C_save_and_reclaim((void *)f_11890,c,av);}
5953 a=C_alloc(5);
5954 t3=C_slot(t2,C_fix(1));
5955 t4=C_slot(t2,C_fix(2));
5956 t5=C_slot(t2,C_fix(3));
5957 t6=t1;{
5958 C_word *av2=av;
5959 av2[0]=t6;
5960 av2[1]=C_a_i_record4(&a,4,lf[141],t3,t4,t5);
5961 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
5962 
5963 /* chicken.compiler.support#copy-node! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11928(C_word c,C_word * av)5964 static void C_ccall f_11928(C_word c,C_word *av){
5965 C_word tmp;
5966 C_word t0=av[0];
5967 C_word t1=av[1];
5968 C_word t2=av[2];
5969 C_word t3=av[3];
5970 C_word t4;
5971 C_word t5;
5972 C_word *a;
5973 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
5974 C_save_and_reclaim((void *)f_11928,c,av);}
5975 a=C_alloc(5);
5976 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11932,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5977 /* support.scm:819: node-class-set! */
5978 t5=*((C_word*)lf[145]+1);{
5979 C_word *av2=av;
5980 av2[0]=t5;
5981 av2[1]=t4;
5982 av2[2]=t3;
5983 av2[3]=C_slot(t2,C_fix(1));
5984 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
5985 
5986 /* k11930 in chicken.compiler.support#copy-node! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11932(C_word c,C_word * av)5987 static void C_ccall f_11932(C_word c,C_word *av){
5988 C_word tmp;
5989 C_word t0=av[0];
5990 C_word t1=av[1];
5991 C_word t2;
5992 C_word t3;
5993 C_word *a;
5994 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
5995 C_save_and_reclaim((void *)f_11932,c,av);}
5996 a=C_alloc(5);
5997 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11935,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
5998 /* support.scm:820: node-parameters-set! */
5999 t3=*((C_word*)lf[149]+1);{
6000 C_word *av2;
6001 if(c >= 4) {
6002   av2=av;
6003 } else {
6004   av2=C_alloc(4);
6005 }
6006 av2[0]=t3;
6007 av2[1]=t2;
6008 av2[2]=((C_word*)t0)[3];
6009 av2[3]=C_slot(((C_word*)t0)[4],C_fix(2));
6010 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
6011 
6012 /* k11933 in k11930 in chicken.compiler.support#copy-node! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11935(C_word c,C_word * av)6013 static void C_ccall f_11935(C_word c,C_word *av){
6014 C_word tmp;
6015 C_word t0=av[0];
6016 C_word t1=av[1];
6017 C_word t2;
6018 C_word t3;
6019 C_word *a;
6020 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
6021 C_save_and_reclaim((void *)f_11935,c,av);}
6022 a=C_alloc(4);
6023 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
6024 /* support.scm:821: node-subexpressions-set! */
6025 t3=*((C_word*)lf[152]+1);{
6026 C_word *av2;
6027 if(c >= 4) {
6028   av2=av;
6029 } else {
6030   av2=C_alloc(4);
6031 }
6032 av2[0]=t3;
6033 av2[1]=t2;
6034 av2[2]=((C_word*)t0)[3];
6035 av2[3]=C_slot(((C_word*)t0)[4],C_fix(3));
6036 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
6037 
6038 /* k11936 in k11933 in k11930 in chicken.compiler.support#copy-node! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_11938(C_word c,C_word * av)6039 static void C_ccall f_11938(C_word c,C_word *av){
6040 C_word tmp;
6041 C_word t0=av[0];
6042 C_word t1=av[1];
6043 C_word t2;
6044 C_word *a;
6045 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6046 C_save_and_reclaim((void *)f_11938,c,av);}
6047 t2=((C_word*)t0)[2];{
6048 C_word *av2=av;
6049 av2[0]=t2;
6050 av2[1]=((C_word*)t0)[3];
6051 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6052 
6053 /* walk in k12379 in k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_11973(C_word t0,C_word t1,C_word t2)6054 static void C_fcall f_11973(C_word t0,C_word t1,C_word t2){
6055 C_word tmp;
6056 C_word t3;
6057 C_word t4;
6058 C_word t5;
6059 C_word t6;
6060 C_word t7;
6061 C_word t8;
6062 C_word t9;
6063 C_word t10;
6064 C_word t11;
6065 C_word t12;
6066 C_word t13;
6067 C_word t14;
6068 C_word t15;
6069 C_word *a;
6070 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
6071 C_save_and_reclaim_args((void *)trf_11973,3,t0,t1,t2);}
6072 a=C_alloc(18);
6073 t3=C_slot(t2,C_fix(1));
6074 t4=C_slot(t2,C_fix(2));
6075 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
6076 t6=t5;
6077 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
6078 t8=((C_word*)t7)[1];
6079 t9=C_slot(t2,C_fix(3));
6080 t10=C_i_check_list_2(t9,lf[125]);
6081 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12017,a[2]=t4,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
6082 t12=C_SCHEME_UNDEFINED;
6083 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
6084 t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12019,a[2]=t7,a[3]=t13,a[4]=((C_word*)t0)[2],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
6085 t15=((C_word*)t13)[1];
6086 f_12019(t15,t11,t9);}
6087 
6088 /* k12015 in walk in k12379 in k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_12017(C_word c,C_word * av)6089 static void C_ccall f_12017(C_word c,C_word *av){
6090 C_word tmp;
6091 C_word t0=av[0];
6092 C_word t1=av[1];
6093 C_word t2;
6094 C_word t3;
6095 C_word *a;
6096 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
6097 C_save_and_reclaim((void *)f_12017,c,av);}
6098 a=C_alloc(6);
6099 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
6100 t3=((C_word*)t0)[3];{
6101 C_word *av2=av;
6102 av2[0]=t3;
6103 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
6104 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6105 
6106 /* map-loop2571 in walk in k12379 in k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_12019(C_word t0,C_word t1,C_word t2)6107 static void C_fcall f_12019(C_word t0,C_word t1,C_word t2){
6108 C_word tmp;
6109 C_word t3;
6110 C_word t4;
6111 C_word *a;
6112 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
6113 C_save_and_reclaim_args((void *)trf_12019,3,t0,t1,t2);}
6114 a=C_alloc(6);
6115 if(C_truep(C_i_pairp(t2))){
6116 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
6117 /* support.scm:828: g2577 */
6118 t4=((C_word*)((C_word*)t0)[4])[1];
6119 f_11973(t4,t3,C_slot(t2,C_fix(0)));}
6120 else{
6121 t3=t1;{
6122 C_word av2[2];
6123 av2[0]=t3;
6124 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
6125 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6126 
6127 /* k12042 in map-loop2571 in walk in k12379 in k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_12044(C_word c,C_word * av)6128 static void C_ccall f_12044(C_word c,C_word *av){
6129 C_word tmp;
6130 C_word t0=av[0];
6131 C_word t1=av[1];
6132 C_word t2;
6133 C_word t3;
6134 C_word t4;
6135 C_word t5;
6136 C_word *a;
6137 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
6138 C_save_and_reclaim((void *)f_12044,c,av);}
6139 a=C_alloc(3);
6140 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
6141 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
6142 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
6143 t5=((C_word*)((C_word*)t0)[3])[1];
6144 f_12019(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
6145 
6146 /* walk in k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12059(C_word t0,C_word t1,C_word t2)6147 static void C_fcall f_12059(C_word t0,C_word t1,C_word t2){
6148 C_word tmp;
6149 C_word t3;
6150 C_word t4;
6151 C_word t5;
6152 C_word t6;
6153 C_word t7;
6154 C_word t8;
6155 C_word t9;
6156 C_word t10;
6157 C_word t11;
6158 C_word t12;
6159 C_word t13;
6160 C_word t14;
6161 C_word t15;
6162 C_word t16;
6163 C_word *a;
6164 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
6165 C_save_and_reclaim_args((void *)trf_12059,3,t0,t1,t2);}
6166 a=C_alloc(18);
6167 t3=C_i_car(t2);
6168 t4=C_i_cadr(t2);
6169 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
6170 t6=t5;
6171 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
6172 t8=((C_word*)t7)[1];
6173 t9=C_u_i_cdr(t2);
6174 t10=C_u_i_cdr(t9);
6175 t11=C_i_check_list_2(t10,lf[125]);
6176 t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12088,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
6177 t13=C_SCHEME_UNDEFINED;
6178 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
6179 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12090,a[2]=t7,a[3]=t14,a[4]=((C_word*)t0)[2],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
6180 t16=((C_word*)t14)[1];
6181 f_12090(t16,t12,t10);}
6182 
6183 /* k12086 in walk in k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12088(C_word c,C_word * av)6184 static void C_ccall f_12088(C_word c,C_word *av){
6185 C_word tmp;
6186 C_word t0=av[0];
6187 C_word t1=av[1];
6188 C_word t2;
6189 C_word *a;
6190 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
6191 C_save_and_reclaim((void *)f_12088,c,av);}
6192 a=C_alloc(5);
6193 t2=((C_word*)t0)[2];{
6194 C_word *av2=av;
6195 av2[0]=t2;
6196 av2[1]=C_a_i_record4(&a,4,lf[141],((C_word*)t0)[3],((C_word*)t0)[4],t1);
6197 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6198 
6199 /* map-loop2610 in walk in k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12090(C_word t0,C_word t1,C_word t2)6200 static void C_fcall f_12090(C_word t0,C_word t1,C_word t2){
6201 C_word tmp;
6202 C_word t3;
6203 C_word t4;
6204 C_word *a;
6205 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
6206 C_save_and_reclaim_args((void *)trf_12090,3,t0,t1,t2);}
6207 a=C_alloc(6);
6208 if(C_truep(C_i_pairp(t2))){
6209 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
6210 /* support.scm:832: g2616 */
6211 t4=((C_word*)((C_word*)t0)[4])[1];
6212 f_12059(t4,t3,C_slot(t2,C_fix(0)));}
6213 else{
6214 t3=t1;{
6215 C_word av2[2];
6216 av2[0]=t3;
6217 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
6218 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6219 
6220 /* k12113 in map-loop2610 in walk in k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12115(C_word c,C_word * av)6221 static void C_ccall f_12115(C_word c,C_word *av){
6222 C_word tmp;
6223 C_word t0=av[0];
6224 C_word t1=av[1];
6225 C_word t2;
6226 C_word t3;
6227 C_word t4;
6228 C_word t5;
6229 C_word *a;
6230 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
6231 C_save_and_reclaim((void *)f_12115,c,av);}
6232 a=C_alloc(3);
6233 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
6234 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
6235 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
6236 t5=((C_word*)((C_word*)t0)[3])[1];
6237 f_12090(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
6238 
6239 /* chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12124(C_word c,C_word * av)6240 static void C_ccall f_12124(C_word c,C_word *av){
6241 C_word tmp;
6242 C_word t0=av[0];
6243 C_word t1=av[1];
6244 C_word t2=av[2];
6245 C_word t3=av[3];
6246 C_word t4=av[4];
6247 C_word t5=av[5];
6248 C_word t6=av[6];
6249 C_word t7=av[7];
6250 C_word t8;
6251 C_word t9;
6252 C_word t10;
6253 C_word t11;
6254 C_word t12;
6255 C_word t13;
6256 C_word t14;
6257 C_word t15;
6258 C_word *a;
6259 if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
6260 C_save_and_reclaim((void *)f_12124,c,av);}
6261 a=C_alloc(22);
6262 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12127,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
6263 t9=C_SCHEME_END_OF_LIST;
6264 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
6265 t11=C_SCHEME_END_OF_LIST;
6266 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
6267 t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12181,a[2]=t1,a[3]=t10,a[4]=t12,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
6268 t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12285,a[2]=t10,a[3]=t12,a[4]=t8,a[5]=t6,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
6269 /* support.scm:847: chicken.internal#hash-table-for-each */
6270 t15=*((C_word*)lf[139]+1);{
6271 C_word *av2=av;
6272 av2[0]=t15;
6273 av2[1]=t13;
6274 av2[2]=t14;
6275 av2[3]=t4;
6276 ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}
6277 
6278 /* uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12127(C_word t0,C_word t1,C_word t2)6279 static void C_fcall f_12127(C_word t0,C_word t1,C_word t2){
6280 C_word tmp;
6281 C_word t3;
6282 C_word t4;
6283 C_word t5;
6284 C_word t6;
6285 C_word *a;
6286 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
6287 C_save_and_reclaim_args((void *)trf_12127,3,t0,t1,t2);}
6288 a=C_alloc(6);
6289 t3=C_SCHEME_UNDEFINED;
6290 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
6291 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12133,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp));
6292 t6=((C_word*)t4)[1];{
6293 C_word av2[3];
6294 av2[0]=t6;
6295 av2[1]=t1;
6296 av2[2]=t2;
6297 f_12133(3,av2);}}
6298 
6299 /* walk in uses-foreign-stubs? in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12133(C_word c,C_word * av)6300 static void C_ccall f_12133(C_word c,C_word *av){
6301 C_word tmp;
6302 C_word t0=av[0];
6303 C_word t1=av[1];
6304 C_word t2=av[2];
6305 C_word t3;
6306 C_word t4;
6307 C_word t5;
6308 C_word t6;
6309 C_word *a;
6310 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
6311 C_save_and_reclaim((void *)f_12133,c,av);}
6312 t3=C_slot(t2,C_fix(1));
6313 t4=C_eqp(t3,lf[172]);
6314 if(C_truep(t4)){
6315 t5=C_slot(t2,C_fix(2));
6316 t6=t1;{
6317 C_word *av2=av;
6318 av2[0]=t6;
6319 av2[1]=C_i_memq(C_i_car(t5),((C_word*)t0)[2]);
6320 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
6321 else{
6322 /* support.scm:844: any */
6323 f_5777(t1,((C_word*)((C_word*)t0)[3])[1],C_slot(t2,C_fix(3)));}}
6324 
6325 /* k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12181(C_word c,C_word * av)6326 static void C_ccall f_12181(C_word c,C_word *av){
6327 C_word tmp;
6328 C_word t0=av[0];
6329 C_word t1=av[1];
6330 C_word t2;
6331 C_word t3;
6332 C_word t4;
6333 C_word *a;
6334 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
6335 C_save_and_reclaim((void *)f_12181,c,av);}
6336 a=C_alloc(8);
6337 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
6338 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12235,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
6339 /* support.scm:868: scheme#with-output-to-file */
6340 t4=*((C_word*)lf[250]+1);{
6341 C_word *av2;
6342 if(c >= 4) {
6343   av2=av;
6344 } else {
6345   av2=C_alloc(4);
6346 }
6347 av2[0]=t4;
6348 av2[1]=t2;
6349 av2[2]=((C_word*)t0)[6];
6350 av2[3]=t3;
6351 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
6352 
6353 /* k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12184(C_word c,C_word * av)6354 static void C_ccall f_12184(C_word c,C_word *av){
6355 C_word tmp;
6356 C_word t0=av[0];
6357 C_word t1=av[1];
6358 C_word t2;
6359 C_word t3;
6360 C_word *a;
6361 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
6362 C_save_and_reclaim((void *)f_12184,c,av);}
6363 a=C_alloc(4);
6364 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
6365 if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[3])[1]))){
6366 /* support.scm:879: debugging */
6367 t3=*((C_word*)lf[22]+1);{
6368 C_word *av2;
6369 if(c >= 4) {
6370   av2=av;
6371 } else {
6372   av2=C_alloc(4);
6373 }
6374 av2[0]=t3;
6375 av2[1]=t2;
6376 av2[2]=lf[242];
6377 av2[3]=lf[243];
6378 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
6379 else{
6380 t3=t2;{
6381 C_word *av2=av;
6382 av2[0]=t3;
6383 av2[1]=C_SCHEME_FALSE;
6384 f_12190(2,av2);}}}
6385 
6386 /* k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12190(C_word c,C_word * av)6387 static void C_ccall f_12190(C_word c,C_word *av){
6388 C_word tmp;
6389 C_word t0=av[0];
6390 C_word t1=av[1];
6391 C_word t2;
6392 C_word t3;
6393 C_word t4;
6394 C_word t5;
6395 C_word *a;
6396 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
6397 C_save_and_reclaim((void *)f_12190,c,av);}
6398 a=C_alloc(5);
6399 if(C_truep(t1)){
6400 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12198,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6401 t3=((C_word*)((C_word*)t0)[3])[1];
6402 t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7482,tmp=(C_word)a,a+=2,tmp);
6403 /* support.scm:281: chicken.sort#sort */
6404 t5=*((C_word*)lf[241]+1);{
6405 C_word *av2;
6406 if(c >= 4) {
6407   av2=av;
6408 } else {
6409   av2=C_alloc(4);
6410 }
6411 av2[0]=t5;
6412 av2[1]=t2;
6413 av2[2]=t3;
6414 av2[3]=t4;
6415 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
6416 else{
6417 t2=C_SCHEME_UNDEFINED;
6418 t3=((C_word*)t0)[2];{
6419 C_word *av2=av;
6420 av2[0]=t3;
6421 av2[1]=t2;
6422 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6423 
6424 /* k12196 in k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12198(C_word c,C_word * av)6425 static void C_ccall f_12198(C_word c,C_word *av){
6426 C_word tmp;
6427 C_word t0=av[0];
6428 C_word t1=av[1];
6429 C_word t2;
6430 C_word t3;
6431 C_word t4;
6432 C_word t5;
6433 C_word t6;
6434 C_word *a;
6435 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
6436 C_save_and_reclaim((void *)f_12198,c,av);}
6437 a=C_alloc(5);
6438 t2=C_i_check_list_2(t1,lf[44]);
6439 t3=C_SCHEME_UNDEFINED;
6440 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
6441 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12206,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
6442 t6=((C_word*)t4)[1];
6443 f_12206(t6,((C_word*)t0)[2],t1);}
6444 
6445 /* for-each-loop2736 in k12196 in k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12206(C_word t0,C_word t1,C_word t2)6446 static void C_fcall f_12206(C_word t0,C_word t1,C_word t2){
6447 C_word tmp;
6448 C_word t3;
6449 C_word t4;
6450 C_word *a;
6451 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
6452 C_save_and_reclaim_args((void *)trf_12206,3,t0,t1,t2);}
6453 a=C_alloc(5);
6454 if(C_truep(C_i_pairp(t2))){
6455 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12216,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
6456 /* support.scm:880: g2752 */
6457 t4=*((C_word*)lf[237]+1);{
6458 C_word av2[4];
6459 av2[0]=t4;
6460 av2[1]=t3;
6461 av2[2]=lf[238];
6462 av2[3]=C_slot(t2,C_fix(0));
6463 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
6464 else{
6465 t3=C_SCHEME_UNDEFINED;
6466 t4=t1;{
6467 C_word av2[2];
6468 av2[0]=t4;
6469 av2[1]=t3;
6470 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
6471 
6472 /* k12214 in for-each-loop2736 in k12196 in k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12216(C_word c,C_word * av)6473 static void C_ccall f_12216(C_word c,C_word *av){
6474 C_word tmp;
6475 C_word t0=av[0];
6476 C_word t1=av[1];
6477 C_word t2;
6478 C_word *a;
6479 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
6480 C_save_and_reclaim((void *)f_12216,c,av);}
6481 t2=((C_word*)((C_word*)t0)[2])[1];
6482 f_12206(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
6483 
6484 /* a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12235(C_word c,C_word * av)6485 static void C_ccall f_12235(C_word c,C_word *av){
6486 C_word tmp;
6487 C_word t0=av[0];
6488 C_word t1=av[1];
6489 C_word t2;
6490 C_word t3;
6491 C_word t4;
6492 C_word *a;
6493 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
6494 C_save_and_reclaim((void *)f_12235,c,av);}
6495 a=C_alloc(8);
6496 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12239,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
6497 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12283,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
6498 /* support.scm:870: chicken.platform#chicken-version */
6499 t4=*((C_word*)lf[249]+1);{
6500 C_word *av2=av;
6501 av2[0]=t4;
6502 av2[1]=t3;
6503 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
6504 
6505 /* k12237 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12239(C_word c,C_word * av)6506 static void C_ccall f_12239(C_word c,C_word *av){
6507 C_word tmp;
6508 C_word t0=av[0];
6509 C_word t1=av[1];
6510 C_word t2;
6511 C_word t3;
6512 C_word *a;
6513 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
6514 C_save_and_reclaim((void *)f_12239,c,av);}
6515 a=C_alloc(3);
6516 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6517 /* support.scm:876: scheme#reverse */
6518 t3=*((C_word*)lf[80]+1);{
6519 C_word *av2;
6520 if(c >= 3) {
6521   av2=av;
6522 } else {
6523   av2=C_alloc(3);
6524 }
6525 av2[0]=t3;
6526 av2[1]=t2;
6527 av2[2]=((C_word*)((C_word*)t0)[3])[1];
6528 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
6529 
6530 /* k12242 in for-each-loop2714 in k12248 in k12237 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12244(C_word c,C_word * av)6531 static void C_ccall f_12244(C_word c,C_word *av){
6532 C_word tmp;
6533 C_word t0=av[0];
6534 C_word t1=av[1];
6535 C_word t2;
6536 C_word *a;
6537 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6538 C_save_and_reclaim((void *)f_12244,c,av);}
6539 /* support.scm:875: scheme#newline */
6540 t2=*((C_word*)lf[23]+1);{
6541 C_word *av2=av;
6542 av2[0]=t2;
6543 av2[1]=((C_word*)t0)[2];
6544 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6545 
6546 /* k12248 in k12237 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12250(C_word c,C_word * av)6547 static void C_ccall f_12250(C_word c,C_word *av){
6548 C_word tmp;
6549 C_word t0=av[0];
6550 C_word t1=av[1];
6551 C_word t2;
6552 C_word t3;
6553 C_word t4;
6554 C_word t5;
6555 C_word t6;
6556 C_word *a;
6557 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
6558 C_save_and_reclaim((void *)f_12250,c,av);}
6559 a=C_alloc(8);
6560 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12253,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6561 t3=C_SCHEME_UNDEFINED;
6562 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
6563 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12258,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
6564 t6=((C_word*)t4)[1];
6565 f_12258(t6,t2,t1);}
6566 
6567 /* k12251 in k12248 in k12237 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12253(C_word c,C_word * av)6568 static void C_ccall f_12253(C_word c,C_word *av){
6569 C_word tmp;
6570 C_word t0=av[0];
6571 C_word t1=av[1];
6572 C_word t2;
6573 C_word *a;
6574 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
6575 C_save_and_reclaim((void *)f_12253,c,av);}
6576 /* support.scm:877: chicken.base#print */
6577 t2=*((C_word*)lf[237]+1);{
6578 C_word *av2;
6579 if(c >= 3) {
6580   av2=av;
6581 } else {
6582   av2=C_alloc(3);
6583 }
6584 av2[0]=t2;
6585 av2[1]=((C_word*)t0)[2];
6586 av2[2]=lf[244];
6587 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
6588 
6589 /* for-each-loop2714 in k12248 in k12237 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12258(C_word t0,C_word t1,C_word t2)6590 static void C_fcall f_12258(C_word t0,C_word t1,C_word t2){
6591 C_word tmp;
6592 C_word t3;
6593 C_word t4;
6594 C_word t5;
6595 C_word t6;
6596 C_word *a;
6597 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
6598 C_save_and_reclaim_args((void *)trf_12258,3,t0,t1,t2);}
6599 a=C_alloc(8);
6600 if(C_truep(C_i_pairp(t2))){
6601 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12268,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
6602 t4=C_slot(t2,C_fix(0));
6603 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12244,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
6604 /* support.scm:874: chicken.pretty-print#pp */
6605 t6=*((C_word*)lf[245]+1);{
6606 C_word av2[3];
6607 av2[0]=t6;
6608 av2[1]=t5;
6609 av2[2]=t4;
6610 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
6611 else{
6612 t3=C_SCHEME_UNDEFINED;
6613 t4=t1;{
6614 C_word av2[2];
6615 av2[0]=t4;
6616 av2[1]=t3;
6617 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
6618 
6619 /* k12266 in for-each-loop2714 in k12248 in k12237 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12268(C_word c,C_word * av)6620 static void C_ccall f_12268(C_word c,C_word *av){
6621 C_word tmp;
6622 C_word t0=av[0];
6623 C_word t1=av[1];
6624 C_word t2;
6625 C_word *a;
6626 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
6627 C_save_and_reclaim((void *)f_12268,c,av);}
6628 t2=((C_word*)((C_word*)t0)[2])[1];
6629 f_12258(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
6630 
6631 /* k12281 in a12234 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12283(C_word c,C_word * av)6632 static void C_ccall f_12283(C_word c,C_word *av){
6633 C_word tmp;
6634 C_word t0=av[0];
6635 C_word t1=av[1];
6636 C_word t2;
6637 C_word *a;
6638 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
6639 C_save_and_reclaim((void *)f_12283,c,av);}
6640 /* support.scm:870: chicken.base#print */
6641 t2=*((C_word*)lf[237]+1);{
6642 C_word *av2;
6643 if(c >= 7) {
6644   av2=av;
6645 } else {
6646   av2=C_alloc(7);
6647 }
6648 av2[0]=t2;
6649 av2[1]=((C_word*)t0)[2];
6650 av2[2]=lf[246];
6651 av2[3]=t1;
6652 av2[4]=lf[247];
6653 av2[5]=((C_word*)t0)[3];
6654 av2[6]=lf[248];
6655 ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}
6656 
6657 /* a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12285(C_word c,C_word * av)6658 static void C_ccall f_12285(C_word c,C_word *av){
6659 C_word tmp;
6660 C_word t0=av[0];
6661 C_word t1=av[1];
6662 C_word t2=av[2];
6663 C_word t3=av[3];
6664 C_word t4;
6665 C_word t5;
6666 C_word *a;
6667 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
6668 C_save_and_reclaim((void *)f_12285,c,av);}
6669 a=C_alloc(10);
6670 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12292,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
6671 /* support.scm:849: variable-visible? */
6672 t5=*((C_word*)lf[260]+1);{
6673 C_word *av2=av;
6674 av2[0]=t5;
6675 av2[1]=t4;
6676 av2[2]=t2;
6677 av2[3]=((C_word*)t0)[7];
6678 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
6679 
6680 /* k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12292(C_word c,C_word * av)6681 static void C_ccall f_12292(C_word c,C_word *av){
6682 C_word tmp;
6683 C_word t0=av[0];
6684 C_word t1=av[1];
6685 C_word t2;
6686 C_word t3;
6687 C_word t4;
6688 C_word *a;
6689 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
6690 C_save_and_reclaim((void *)f_12292,c,av);}
6691 a=C_alloc(11);
6692 if(C_truep(t1)){
6693 t2=C_i_assq(lf[251],((C_word*)t0)[2]);
6694 if(C_truep(t2)){
6695 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12440,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
6696 /* tweaks.scm:60: ##sys#get */
6697 t4=*((C_word*)lf[182]+1);{
6698 C_word *av2;
6699 if(c >= 4) {
6700   av2=av;
6701 } else {
6702   av2=C_alloc(4);
6703 }
6704 av2[0]=t4;
6705 av2[1]=t3;
6706 av2[2]=((C_word*)t0)[3];
6707 av2[3]=lf[259];
6708 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
6709 else{
6710 t3=((C_word*)t0)[6];{
6711 C_word *av2=av;
6712 av2[0]=t3;
6713 av2[1]=C_SCHEME_FALSE;
6714 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6715 else{
6716 t2=C_SCHEME_UNDEFINED;
6717 t3=((C_word*)t0)[6];{
6718 C_word *av2=av;
6719 av2[0]=t3;
6720 av2[1]=t2;
6721 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6722 
6723 /* k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12313(C_word t0,C_word t1)6724 static void C_fcall f_12313(C_word t0,C_word t1){
6725 C_word tmp;
6726 C_word t2;
6727 C_word t3;
6728 C_word t4;
6729 C_word t5;
6730 C_word *a;
6731 if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
6732 C_save_and_reclaim_args((void *)trf_12313,2,t0,t1);}
6733 a=C_alloc(10);
6734 if(C_truep(t1)){
6735 if(C_truep(C_i_assq(lf[253],((C_word*)t0)[2]))){
6736 t2=C_i_cdr(((C_word*)t0)[3]);
6737 t3=C_slot(t2,C_fix(2));
6738 if(C_truep(t3)){
6739 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12407,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[8],a[8]=t3,a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
6740 /* support.scm:857: db-get */
6741 t5=*((C_word*)lf[127]+1);{
6742 C_word av2[5];
6743 av2[0]=t5;
6744 av2[1]=t4;
6745 av2[2]=((C_word*)t0)[10];
6746 av2[3]=((C_word*)t0)[4];
6747 av2[4]=lf[257];
6748 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
6749 else{
6750 t4=((C_word*)t0)[7];{
6751 C_word av2[2];
6752 av2[0]=t4;
6753 av2[1]=C_SCHEME_FALSE;
6754 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
6755 else{
6756 t2=((C_word*)t0)[7];{
6757 C_word av2[2];
6758 av2[0]=t2;
6759 av2[1]=C_SCHEME_FALSE;
6760 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
6761 else{
6762 t2=((C_word*)t0)[7];{
6763 C_word av2[2];
6764 av2[0]=t2;
6765 av2[1]=C_SCHEME_FALSE;
6766 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
6767 
6768 /* k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12347(C_word c,C_word * av)6769 static void C_ccall f_12347(C_word c,C_word *av){
6770 C_word tmp;
6771 C_word t0=av[0];
6772 C_word t1=av[1];
6773 C_word t2;
6774 C_word t3;
6775 C_word t4;
6776 C_word t5;
6777 C_word *a;
6778 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
6779 C_save_and_reclaim((void *)f_12347,c,av);}
6780 a=C_alloc(8);
6781 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
6782 t3=C_eqp(t1,lf[254]);
6783 if(C_truep(t3)){
6784 t4=t2;
6785 f_12350(t4,C_SCHEME_TRUE);}
6786 else{
6787 t4=C_eqp(t1,lf[255]);
6788 t5=t2;
6789 f_12350(t5,(C_truep(t4)?C_SCHEME_FALSE:C_i_lessp(C_i_cadddr(((C_word*)t0)[8]),((C_word*)t0)[9])));}}
6790 
6791 /* k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12350(C_word t0,C_word t1)6792 static void C_fcall f_12350(C_word t0,C_word t1){
6793 C_word tmp;
6794 C_word t2;
6795 C_word t3;
6796 C_word *a;
6797 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
6798 C_save_and_reclaim_args((void *)trf_12350,2,t0,t1);}
6799 a=C_alloc(7);
6800 if(C_truep(t1)){
6801 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
6802 /* support.scm:864: uses-foreign-stubs? */
6803 t3=((C_word*)t0)[7];
6804 f_12127(t3,t2,C_u_i_cdr(((C_word*)t0)[6]));}
6805 else{
6806 t2=((C_word*)t0)[5];{
6807 C_word av2[2];
6808 av2[0]=t2;
6809 av2[1]=C_SCHEME_FALSE;
6810 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
6811 
6812 /* k12373 in k12379 in k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_12375(C_word c,C_word * av)6813 static void C_ccall f_12375(C_word c,C_word *av){
6814 C_word tmp;
6815 C_word t0=av[0];
6816 C_word t1=av[1];
6817 C_word t2;
6818 C_word t3;
6819 C_word t4;
6820 C_word t5;
6821 C_word *a;
6822 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
6823 C_save_and_reclaim((void *)f_12375,c,av);}
6824 a=C_alloc(9);
6825 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
6826 t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]);
6827 t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
6828 t5=((C_word*)t0)[4];{
6829 C_word *av2=av;
6830 av2[0]=t5;
6831 av2[1]=t4;
6832 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
6833 
6834 /* k12379 in k12348 in k12345 in k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_12381(C_word c,C_word * av)6835 static void C_ccall f_12381(C_word c,C_word *av){
6836 C_word tmp;
6837 C_word t0=av[0];
6838 C_word t1=av[1];
6839 C_word t2;
6840 C_word t3;
6841 C_word t4;
6842 C_word t5;
6843 C_word t6;
6844 C_word t7;
6845 C_word t8;
6846 C_word t9;
6847 C_word *a;
6848 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
6849 C_save_and_reclaim((void *)f_12381,c,av);}
6850 a=C_alloc(13);
6851 if(C_truep(C_i_not(t1))){
6852 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
6853 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
6854 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
6855 t5=C_u_i_cdr(((C_word*)t0)[6]);
6856 t6=C_SCHEME_UNDEFINED;
6857 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
6858 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11973,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
6859 t9=((C_word*)t7)[1];
6860 f_11973(t9,t4,t5);}
6861 else{
6862 t2=((C_word*)t0)[5];{
6863 C_word *av2=av;
6864 av2[0]=t2;
6865 av2[1]=C_SCHEME_FALSE;
6866 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
6867 
6868 /* k12405 in k12311 in k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12407(C_word c,C_word * av)6869 static void C_ccall f_12407(C_word c,C_word *av){
6870 C_word tmp;
6871 C_word t0=av[0];
6872 C_word t1=av[1];
6873 C_word t2;
6874 C_word t3;
6875 C_word *a;
6876 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
6877 C_save_and_reclaim((void *)f_12407,c,av);}
6878 a=C_alloc(10);
6879 if(C_truep(C_i_not(t1))){
6880 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
6881 /* tweaks.scm:60: ##sys#get */
6882 t3=*((C_word*)lf[182]+1);{
6883 C_word *av2;
6884 if(c >= 4) {
6885   av2=av;
6886 } else {
6887   av2=C_alloc(4);
6888 }
6889 av2[0]=t3;
6890 av2[1]=t2;
6891 av2[2]=((C_word*)t0)[2];
6892 av2[3]=lf[256];
6893 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
6894 else{
6895 t2=((C_word*)t0)[5];{
6896 C_word *av2=av;
6897 av2[0]=t2;
6898 av2[1]=C_SCHEME_FALSE;
6899 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
6900 
6901 /* k12438 in k12290 in a12284 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12440(C_word c,C_word * av)6902 static void C_ccall f_12440(C_word c,C_word *av){
6903 C_word tmp;
6904 C_word t0=av[0];
6905 C_word t1=av[1];
6906 C_word t2;
6907 C_word t3;
6908 C_word t4;
6909 C_word t5;
6910 C_word t6;
6911 C_word t7;
6912 C_word *a;
6913 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
6914 C_save_and_reclaim((void *)f_12440,c,av);}
6915 a=C_alloc(11);
6916 t2=C_i_structurep(t1,lf[141]);
6917 if(C_truep(C_i_not(t2))){
6918 t3=C_i_assq(lf[252],((C_word*)t0)[2]);
6919 t4=C_i_not(t3);
6920 t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
6921 if(C_truep(t4)){
6922 t6=t5;
6923 f_12313(t6,t4);}
6924 else{
6925 t6=C_i_cdr(t3);
6926 t7=t5;
6927 f_12313(t7,C_i_not(C_eqp(lf[258],t6)));}}
6928 else{
6929 t3=((C_word*)t0)[7];{
6930 C_word *av2=av;
6931 av2[0]=t3;
6932 av2[1]=C_SCHEME_FALSE;
6933 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6934 
6935 /* chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12442(C_word c,C_word * av)6936 static void C_ccall f_12442(C_word c,C_word *av){
6937 C_word tmp;
6938 C_word t0=av[0];
6939 C_word t1=av[1];
6940 C_word t2=av[2];
6941 C_word t3;
6942 C_word t4;
6943 C_word *a;
6944 if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
6945 C_save_and_reclaim((void *)f_12442,c,av);}
6946 a=C_alloc(2);
6947 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12448,tmp=(C_word)a,a+=2,tmp);
6948 /* support.scm:884: scheme#with-input-from-file */
6949 t4=*((C_word*)lf[263]+1);{
6950 C_word *av2;
6951 if(c >= 4) {
6952   av2=av;
6953 } else {
6954   av2=C_alloc(4);
6955 }
6956 av2[0]=t4;
6957 av2[1]=t1;
6958 av2[2]=t2;
6959 av2[3]=t3;
6960 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
6961 
6962 /* a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12448(C_word c,C_word * av)6963 static void C_ccall f_12448(C_word c,C_word *av){
6964 C_word tmp;
6965 C_word t0=av[0];
6966 C_word t1=av[1];
6967 C_word t2;
6968 C_word t3;
6969 C_word t4;
6970 C_word t5;
6971 C_word *a;
6972 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
6973 C_save_and_reclaim((void *)f_12448,c,av);}
6974 a=C_alloc(5);
6975 t2=C_SCHEME_UNDEFINED;
6976 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
6977 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12454,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
6978 t5=((C_word*)t3)[1];
6979 f_12454(t5,t1);}
6980 
6981 /* loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12454(C_word t0,C_word t1)6982 static void C_fcall f_12454(C_word t0,C_word t1){
6983 C_word tmp;
6984 C_word t2;
6985 C_word t3;
6986 C_word *a;
6987 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
6988 C_save_and_reclaim_args((void *)trf_12454,2,t0,t1);}
6989 a=C_alloc(4);
6990 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12458,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
6991 /* support.scm:887: scheme#read */
6992 t3=*((C_word*)lf[83]+1);{
6993 C_word av2[2];
6994 av2[0]=t3;
6995 av2[1]=t2;
6996 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6997 
6998 /* k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12458(C_word c,C_word * av)6999 static void C_ccall f_12458(C_word c,C_word *av){
7000 C_word tmp;
7001 C_word t0=av[0];
7002 C_word t1=av[1];
7003 C_word t2;
7004 C_word t3;
7005 C_word t4;
7006 C_word t5;
7007 C_word t6;
7008 C_word t7;
7009 C_word t8;
7010 C_word t9;
7011 C_word *a;
7012 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
7013 C_save_and_reclaim((void *)f_12458,c,av);}
7014 a=C_alloc(13);
7015 if(C_truep(C_eofp(t1))){
7016 t2=C_SCHEME_UNDEFINED;
7017 t3=((C_word*)t0)[2];{
7018 C_word *av2=av;
7019 av2[0]=t3;
7020 av2[1]=t2;
7021 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
7022 else{
7023 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12481,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
7024 t3=C_i_car(t1);
7025 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12492,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
7026 t5=C_i_cadr(t1);
7027 t6=C_SCHEME_UNDEFINED;
7028 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
7029 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12059,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
7030 t9=((C_word*)t7)[1];
7031 f_12059(t9,t4,t5);}}
7032 
7033 /* k12479 in k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12481(C_word c,C_word * av)7034 static void C_ccall f_12481(C_word c,C_word *av){
7035 C_word tmp;
7036 C_word t0=av[0];
7037 C_word t1=av[1];
7038 C_word t2;
7039 C_word *a;
7040 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7041 C_save_and_reclaim((void *)f_12481,c,av);}
7042 /* support.scm:893: loop */
7043 t2=((C_word*)((C_word*)t0)[2])[1];
7044 f_12454(t2,((C_word*)t0)[3]);}
7045 
7046 /* k12490 in k12456 in loop in a12447 in chicken.compiler.support#load-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12492(C_word c,C_word * av)7047 static void C_ccall f_12492(C_word c,C_word *av){
7048 C_word tmp;
7049 C_word t0=av[0];
7050 C_word t1=av[1];
7051 C_word t2;
7052 C_word t3;
7053 C_word *a;
7054 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
7055 C_save_and_reclaim((void *)f_12492,c,av);}
7056 a=C_alloc(3);
7057 t2=C_a_i_list(&a,1,t1);
7058 if(C_truep(C_i_nullp(t2))){
7059 /* tweaks.scm:57: ##sys#put! */
7060 t3=*((C_word*)lf[262]+1);{
7061 C_word *av2;
7062 if(c >= 5) {
7063   av2=av;
7064 } else {
7065   av2=C_alloc(5);
7066 }
7067 av2[0]=t3;
7068 av2[1]=((C_word*)t0)[2];
7069 av2[2]=((C_word*)t0)[3];
7070 av2[3]=lf[259];
7071 av2[4]=C_SCHEME_TRUE;
7072 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
7073 else{
7074 /* tweaks.scm:57: ##sys#put! */
7075 t3=*((C_word*)lf[262]+1);{
7076 C_word *av2;
7077 if(c >= 5) {
7078   av2=av;
7079 } else {
7080   av2=C_alloc(5);
7081 }
7082 av2[0]=t3;
7083 av2[1]=((C_word*)t0)[2];
7084 av2[2]=((C_word*)t0)[3];
7085 av2[3]=lf[259];
7086 av2[4]=C_i_car(t2);
7087 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
7088 
7089 /* chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12498(C_word c,C_word * av)7090 static void C_ccall f_12498(C_word c,C_word *av){
7091 C_word tmp;
7092 C_word t0=av[0];
7093 C_word t1=av[1];
7094 C_word t2=av[2];
7095 C_word t3=av[3];
7096 C_word t4=av[4];
7097 C_word t5;
7098 C_word t6;
7099 C_word t7;
7100 C_word t8;
7101 C_word t9;
7102 C_word t10;
7103 C_word t11;
7104 C_word t12;
7105 C_word t13;
7106 C_word t14;
7107 C_word t15;
7108 C_word t16;
7109 C_word t17;
7110 C_word *a;
7111 if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
7112 C_save_and_reclaim((void *)f_12498,c,av);}
7113 a=C_alloc(27);
7114 t5=C_SCHEME_END_OF_LIST;
7115 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
7116 t7=C_SCHEME_UNDEFINED;
7117 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
7118 t9=C_SCHEME_UNDEFINED;
7119 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
7120 t11=C_SCHEME_UNDEFINED;
7121 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
7122 t13=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12501,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
7123 t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12535,a[2]=t8,a[3]=t10,tmp=(C_word)a,a+=4,tmp));
7124 t15=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12582,a[2]=t8,a[3]=t12,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
7125 t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12705,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
7126 /* support.scm:927: matchn */
7127 t17=((C_word*)t12)[1];
7128 f_12582(t17,t16,t2,t3);}
7129 
7130 /* resolve in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12501(C_word t0,C_word t1,C_word t2,C_word t3)7131 static void C_fcall f_12501(C_word t0,C_word t1,C_word t2,C_word t3){
7132 C_word tmp;
7133 C_word t4;
7134 C_word t5;
7135 C_word t6;
7136 C_word t7;
7137 C_word t8;
7138 C_word t9;
7139 C_word *a;
7140 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
7141 C_save_and_reclaim_args((void *)trf_12501,4,t0,t1,t2,t3);}
7142 a=C_alloc(6);
7143 t4=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]);
7144 if(C_truep(t4)){
7145 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12509,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
7146 /* support.scm:902: g2798 */
7147 t6=t1;{
7148 C_word av2[2];
7149 av2[0]=t6;
7150 av2[1]=(
7151 /* support.scm:902: g2798 */
7152   f_12509(t5,t4)
7153 );
7154 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
7155 else{
7156 if(C_truep(C_i_memq(t2,((C_word*)t0)[3]))){
7157 t5=((C_word*)((C_word*)t0)[2])[1];
7158 t6=C_a_i_cons(&a,2,t2,t3);
7159 t7=C_a_i_cons(&a,2,t6,t5);
7160 t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
7161 t9=t1;{
7162 C_word av2[2];
7163 av2[0]=t9;
7164 av2[1]=C_SCHEME_TRUE;
7165 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
7166 else{
7167 t5=t1;{
7168 C_word av2[2];
7169 av2[0]=t5;
7170 av2[1]=C_eqp(t2,t3);
7171 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}
7172 
7173 /* g2798 in resolve in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12509(C_word t0,C_word t1)7174 static C_word C_fcall f_12509(C_word t0,C_word t1){
7175 C_word tmp;
7176 C_word t2;
7177 C_stack_overflow_check;{}
7178 return(C_i_equalp(((C_word*)t0)[2],C_i_cdr(t1)));}
7179 
7180 /* match1 in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12535(C_word t0,C_word t1,C_word t2,C_word t3)7181 static void C_fcall f_12535(C_word t0,C_word t1,C_word t2,C_word t3){
7182 C_word tmp;
7183 C_word t4;
7184 C_word t5;
7185 C_word t6;
7186 C_word t7;
7187 C_word t8;
7188 C_word t9;
7189 C_word t10;
7190 C_word *a;
7191 loop:
7192 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
7193 C_save_and_reclaim_args((void *)trf_12535,4,t0,t1,t2,t3);}
7194 a=C_alloc(6);
7195 t4=C_i_pairp(t3);
7196 if(C_truep(C_i_not(t4))){
7197 /* support.scm:909: resolve */
7198 t5=((C_word*)((C_word*)t0)[2])[1];
7199 f_12501(t5,t1,t3,t2);}
7200 else{
7201 t5=C_i_pairp(t2);
7202 if(C_truep(C_i_not(t5))){
7203 t6=t1;{
7204 C_word av2[2];
7205 av2[0]=t6;
7206 av2[1]=C_SCHEME_FALSE;
7207 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
7208 else{
7209 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12557,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
7210 /* support.scm:911: match1 */
7211 t8=t6;
7212 t9=C_i_car(t2);
7213 t10=C_i_car(t3);
7214 t1=t8;
7215 t2=t9;
7216 t3=t10;
7217 goto loop;}}}
7218 
7219 /* k12555 in match1 in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12557(C_word c,C_word * av)7220 static void C_ccall f_12557(C_word c,C_word *av){
7221 C_word tmp;
7222 C_word t0=av[0];
7223 C_word t1=av[1];
7224 C_word t2;
7225 C_word *a;
7226 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
7227 C_save_and_reclaim((void *)f_12557,c,av);}
7228 if(C_truep(t1)){
7229 /* support.scm:911: match1 */
7230 t2=((C_word*)((C_word*)t0)[2])[1];
7231 f_12535(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
7232 else{
7233 t2=((C_word*)t0)[3];{
7234 C_word *av2=av;
7235 av2[0]=t2;
7236 av2[1]=C_SCHEME_FALSE;
7237 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
7238 
7239 /* matchn in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12582(C_word t0,C_word t1,C_word t2,C_word t3)7240 static void C_fcall f_12582(C_word t0,C_word t1,C_word t2,C_word t3){
7241 C_word tmp;
7242 C_word t4;
7243 C_word t5;
7244 C_word t6;
7245 C_word t7;
7246 C_word t8;
7247 C_word t9;
7248 C_word *a;
7249 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
7250 C_save_and_reclaim_args((void *)trf_12582,4,t0,t1,t2,t3);}
7251 a=C_alloc(7);
7252 t4=C_i_pairp(t3);
7253 if(C_truep(C_i_not(t4))){
7254 /* support.scm:916: resolve */
7255 t5=((C_word*)((C_word*)t0)[2])[1];
7256 f_12501(t5,t1,t3,t2);}
7257 else{
7258 t5=C_slot(t2,C_fix(1));
7259 t6=C_i_car(t3);
7260 t7=C_eqp(t5,t6);
7261 if(C_truep(t7)){
7262 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12604,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
7263 /* support.scm:918: match1 */
7264 t9=((C_word*)((C_word*)t0)[4])[1];
7265 f_12535(t9,t8,C_slot(t2,C_fix(2)),C_i_cadr(t3));}
7266 else{
7267 t8=t1;{
7268 C_word av2[2];
7269 av2[0]=t8;
7270 av2[1]=C_SCHEME_FALSE;
7271 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}
7272 
7273 /* k12602 in matchn in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12604(C_word c,C_word * av)7274 static void C_ccall f_12604(C_word c,C_word *av){
7275 C_word tmp;
7276 C_word t0=av[0];
7277 C_word t1=av[1];
7278 C_word t2;
7279 C_word t3;
7280 C_word t4;
7281 C_word t5;
7282 C_word t6;
7283 C_word t7;
7284 C_word *a;
7285 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
7286 C_save_and_reclaim((void *)f_12604,c,av);}
7287 a=C_alloc(7);
7288 if(C_truep(t1)){
7289 t2=C_slot(((C_word*)t0)[2],C_fix(3));
7290 t3=C_i_cddr(((C_word*)t0)[3]);
7291 t4=C_SCHEME_UNDEFINED;
7292 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
7293 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12622,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp));
7294 t7=((C_word*)t5)[1];
7295 f_12622(t7,((C_word*)t0)[6],t2,t3);}
7296 else{
7297 t2=((C_word*)t0)[6];{
7298 C_word *av2=av;
7299 av2[0]=t2;
7300 av2[1]=C_SCHEME_FALSE;
7301 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
7302 
7303 /* loop in k12602 in matchn in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12622(C_word t0,C_word t1,C_word t2,C_word t3)7304 static void C_fcall f_12622(C_word t0,C_word t1,C_word t2,C_word t3){
7305 C_word tmp;
7306 C_word t4;
7307 C_word t5;
7308 C_word t6;
7309 C_word *a;
7310 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
7311 C_save_and_reclaim_args((void *)trf_12622,4,t0,t1,t2,t3);}
7312 a=C_alloc(6);
7313 if(C_truep(C_i_nullp(t3))){
7314 t4=t1;{
7315 C_word av2[2];
7316 av2[0]=t4;
7317 av2[1]=C_i_nullp(t2);
7318 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
7319 else{
7320 t4=C_i_pairp(t3);
7321 if(C_truep(C_i_not(t4))){
7322 /* support.scm:922: resolve */
7323 t5=((C_word*)((C_word*)t0)[2])[1];
7324 f_12501(t5,t1,t3,t2);}
7325 else{
7326 if(C_truep(C_i_nullp(t2))){
7327 t5=t1;{
7328 C_word av2[2];
7329 av2[0]=t5;
7330 av2[1]=C_SCHEME_FALSE;
7331 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
7332 else{
7333 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12653,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
7334 /* support.scm:924: matchn */
7335 t6=((C_word*)((C_word*)t0)[4])[1];
7336 f_12582(t6,t5,C_i_car(t2),C_i_car(t3));}}}}
7337 
7338 /* k12651 in loop in k12602 in matchn in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12653(C_word c,C_word * av)7339 static void C_ccall f_12653(C_word c,C_word *av){
7340 C_word tmp;
7341 C_word t0=av[0];
7342 C_word t1=av[1];
7343 C_word t2;
7344 C_word *a;
7345 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
7346 C_save_and_reclaim((void *)f_12653,c,av);}
7347 if(C_truep(t1)){
7348 /* support.scm:925: loop */
7349 t2=((C_word*)((C_word*)t0)[2])[1];
7350 f_12622(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
7351 else{
7352 t2=((C_word*)t0)[3];{
7353 C_word *av2=av;
7354 av2[0]=t2;
7355 av2[1]=C_SCHEME_FALSE;
7356 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
7357 
7358 /* k12703 in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12705(C_word c,C_word * av)7359 static void C_ccall f_12705(C_word c,C_word *av){
7360 C_word tmp;
7361 C_word t0=av[0];
7362 C_word t1=av[1];
7363 C_word t2;
7364 C_word t3;
7365 C_word *a;
7366 if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
7367 C_save_and_reclaim((void *)f_12705,c,av);}
7368 a=C_alloc(4);
7369 if(C_truep(t1)){
7370 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12711,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
7371 /* support.scm:930: debugging */
7372 t3=*((C_word*)lf[22]+1);{
7373 C_word *av2;
7374 if(c >= 7) {
7375   av2=av;
7376 } else {
7377   av2=C_alloc(7);
7378 }
7379 av2[0]=t3;
7380 av2[1]=t2;
7381 av2[2]=lf[265];
7382 av2[3]=lf[266];
7383 av2[4]=C_slot(((C_word*)t0)[4],C_fix(1));
7384 av2[5]=C_slot(((C_word*)t0)[4],C_fix(2));
7385 av2[6]=((C_word*)t0)[5];
7386 ((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}}
7387 else{
7388 t2=((C_word*)t0)[3];{
7389 C_word *av2=av;
7390 av2[0]=t2;
7391 av2[1]=C_SCHEME_FALSE;
7392 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
7393 
7394 /* k12709 in k12703 in chicken.compiler.support#match-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12711(C_word c,C_word * av)7395 static void C_ccall f_12711(C_word c,C_word *av){
7396 C_word tmp;
7397 C_word t0=av[0];
7398 C_word t1=av[1];
7399 C_word t2;
7400 C_word t3;
7401 C_word *a;
7402 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7403 C_save_and_reclaim((void *)f_12711,c,av);}
7404 t2=((C_word*)((C_word*)t0)[2])[1];
7405 t3=((C_word*)t0)[3];{
7406 C_word *av2=av;
7407 av2[0]=t3;
7408 av2[1]=t2;
7409 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
7410 
7411 /* chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12731(C_word c,C_word * av)7412 static void C_ccall f_12731(C_word c,C_word *av){
7413 C_word tmp;
7414 C_word t0=av[0];
7415 C_word t1=av[1];
7416 C_word t2=av[2];
7417 C_word t3=av[3];
7418 C_word t4;
7419 C_word t5;
7420 C_word t6;
7421 C_word t7;
7422 C_word *a;
7423 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
7424 C_save_and_reclaim((void *)f_12731,c,av);}
7425 a=C_alloc(5);
7426 t4=C_SCHEME_UNDEFINED;
7427 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
7428 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12737,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
7429 t7=((C_word*)t5)[1];{
7430 C_word *av2=av;
7431 av2[0]=t7;
7432 av2[1]=t1;
7433 av2[2]=t2;
7434 f_12737(3,av2);}}
7435 
7436 /* walk in chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12737(C_word c,C_word * av)7437 static void C_ccall f_12737(C_word c,C_word *av){
7438 C_word tmp;
7439 C_word t0=av[0];
7440 C_word t1=av[1];
7441 C_word t2=av[2];
7442 C_word t3;
7443 C_word t4;
7444 C_word t5;
7445 C_word t6;
7446 C_word t7;
7447 C_word t8;
7448 C_word t9;
7449 C_word *a;
7450 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
7451 C_save_and_reclaim((void *)f_12737,c,av);}
7452 a=C_alloc(7);
7453 t3=C_slot(t2,C_fix(3));
7454 t4=C_slot(t2,C_fix(1));
7455 t5=C_eqp(t4,lf[154]);
7456 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12763,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
7457 if(C_truep(t5)){
7458 t7=t6;
7459 f_12763(t7,t5);}
7460 else{
7461 t7=C_eqp(t4,lf[85]);
7462 if(C_truep(t7)){
7463 t8=t6;
7464 f_12763(t8,t7);}
7465 else{
7466 t8=C_eqp(t4,lf[159]);
7467 t9=t6;
7468 f_12763(t9,(C_truep(t8)?t8:C_eqp(t4,lf[174])));}}}
7469 
7470 /* k12761 in walk in chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12763(C_word t0,C_word t1)7471 static void C_fcall f_12763(C_word t0,C_word t1){
7472 C_word tmp;
7473 C_word t2;
7474 C_word t3;
7475 C_word t4;
7476 C_word t5;
7477 C_word t6;
7478 C_word t7;
7479 C_word t8;
7480 C_word t9;
7481 C_word t10;
7482 C_word *a;
7483 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
7484 C_save_and_reclaim_args((void *)trf_12763,2,t0,t1);}
7485 a=C_alloc(9);
7486 if(C_truep(t1)){
7487 t2=((C_word*)t0)[2];{
7488 C_word av2[2];
7489 av2[0]=t2;
7490 av2[1]=C_SCHEME_FALSE;
7491 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7492 else{
7493 t2=C_eqp(((C_word*)t0)[3],lf[118]);
7494 if(C_truep(t2)){
7495 t3=C_slot(((C_word*)t0)[4],C_fix(2));
7496 t4=C_i_car(t3);
7497 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12777,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
7498 t6=*((C_word*)lf[269]+1);
7499 t7=C_SCHEME_UNDEFINED;
7500 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
7501 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6504,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
7502 t10=((C_word*)t8)[1];
7503 f_6504(t10,((C_word*)t0)[2],*((C_word*)lf[269]+1));}
7504 else{
7505 t3=C_eqp(((C_word*)t0)[3],lf[158]);
7506 if(C_truep(t3)){
7507 if(C_truep(t3)){
7508 /* support.scm:946: any */
7509 f_5777(((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6]);}
7510 else{
7511 t4=((C_word*)t0)[2];{
7512 C_word av2[2];
7513 av2[0]=t4;
7514 av2[1]=C_SCHEME_TRUE;
7515 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
7516 else{
7517 t4=C_eqp(((C_word*)t0)[3],lf[96]);
7518 if(C_truep(t4)){
7519 /* support.scm:946: any */
7520 f_5777(((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6]);}
7521 else{
7522 t5=((C_word*)t0)[2];{
7523 C_word av2[2];
7524 av2[0]=t5;
7525 av2[1]=C_SCHEME_TRUE;
7526 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}}
7527 
7528 /* a12776 in k12761 in walk in chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12777(C_word t0,C_word t1,C_word t2)7529 static void C_fcall f_12777(C_word t0,C_word t1,C_word t2){
7530 C_word tmp;
7531 C_word t3;
7532 C_word t4;
7533 C_word *a;
7534 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
7535 C_save_and_reclaim_args((void *)trf_12777,3,t0,t1,t2);}
7536 a=C_alloc(4);
7537 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12785,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
7538 /* support.scm:944: foreign-callback-stub-id */
7539 t4=*((C_word*)lf[268]+1);{
7540 C_word av2[3];
7541 av2[0]=t4;
7542 av2[1]=t3;
7543 av2[2]=t2;
7544 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
7545 
7546 /* k12783 in a12776 in k12761 in walk in chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12785(C_word c,C_word * av)7547 static void C_ccall f_12785(C_word c,C_word *av){
7548 C_word tmp;
7549 C_word t0=av[0];
7550 C_word t1=av[1];
7551 C_word t2;
7552 C_word *a;
7553 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7554 C_save_and_reclaim((void *)f_12785,c,av);}
7555 t2=((C_word*)t0)[2];{
7556 C_word *av2=av;
7557 av2[0]=t2;
7558 av2[1]=C_eqp(((C_word*)t0)[3],t1);
7559 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7560 
7561 /* chicken.compiler.support#simple-lambda-node? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12840(C_word c,C_word * av)7562 static void C_ccall f_12840(C_word c,C_word *av){
7563 C_word tmp;
7564 C_word t0=av[0];
7565 C_word t1=av[1];
7566 C_word t2=av[2];
7567 C_word t3;
7568 C_word t4;
7569 C_word t5;
7570 C_word t6;
7571 C_word t7;
7572 C_word t8;
7573 C_word t9;
7574 C_word t10;
7575 C_word *a;
7576 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
7577 C_save_and_reclaim((void *)f_12840,c,av);}
7578 a=C_alloc(6);
7579 t3=C_slot(t2,C_fix(2));
7580 t4=C_i_caddr(t3);
7581 t5=C_i_pairp(t4);
7582 t6=(C_truep(t5)?C_i_car(t4):C_SCHEME_FALSE);
7583 if(C_truep(t6)){
7584 if(C_truep(C_i_cadr(t3))){
7585 t7=C_SCHEME_UNDEFINED;
7586 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
7587 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12869,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp));
7588 t10=((C_word*)t8)[1];{
7589 C_word *av2=av;
7590 av2[0]=t10;
7591 av2[1]=t1;
7592 av2[2]=t2;
7593 f_12869(3,av2);}}
7594 else{
7595 t7=t1;{
7596 C_word *av2=av;
7597 av2[0]=t7;
7598 av2[1]=C_SCHEME_FALSE;
7599 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
7600 else{
7601 t7=t1;{
7602 C_word *av2=av;
7603 av2[0]=t7;
7604 av2[1]=C_SCHEME_FALSE;
7605 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
7606 
7607 /* rec in chicken.compiler.support#simple-lambda-node? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12869(C_word c,C_word * av)7608 static void C_ccall f_12869(C_word c,C_word *av){
7609 C_word tmp;
7610 C_word t0=av[0];
7611 C_word t1=av[1];
7612 C_word t2=av[2];
7613 C_word t3;
7614 C_word t4;
7615 C_word t5;
7616 C_word t6;
7617 C_word t7;
7618 C_word t8;
7619 C_word t9;
7620 C_word t10;
7621 C_word t11;
7622 C_word t12;
7623 C_word *a;
7624 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
7625 C_save_and_reclaim((void *)f_12869,c,av);}
7626 t3=C_slot(t2,C_fix(1));
7627 t4=C_eqp(t3,lf[179]);
7628 if(C_truep(t4)){
7629 t5=C_slot(t2,C_fix(3));
7630 t6=C_i_car(t5);
7631 t7=C_slot(t6,C_fix(1));
7632 t8=C_eqp(lf[154],t7);
7633 if(C_truep(t8)){
7634 t9=C_slot(t6,C_fix(2));
7635 t10=C_i_car(t9);
7636 t11=C_eqp(((C_word*)t0)[2],t10);
7637 if(C_truep(t11)){
7638 /* support.scm:962: every */
7639 f_5743(t1,((C_word*)((C_word*)t0)[3])[1],C_i_cdr(t5));}
7640 else{
7641 t12=t1;{
7642 C_word *av2=av;
7643 av2[0]=t12;
7644 av2[1]=C_SCHEME_FALSE;
7645 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
7646 else{
7647 t9=t1;{
7648 C_word *av2=av;
7649 av2[0]=t9;
7650 av2[1]=C_SCHEME_FALSE;
7651 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
7652 else{
7653 t5=C_eqp(t3,lf[189]);
7654 if(C_truep(t5)){
7655 t6=t1;{
7656 C_word *av2=av;
7657 av2[0]=t6;
7658 av2[1]=C_SCHEME_FALSE;
7659 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
7660 else{
7661 /* support.scm:964: every */
7662 f_5743(t1,((C_word*)((C_word*)t0)[3])[1],C_slot(t2,C_fix(3)));}}}
7663 
7664 /* chicken.compiler.support#dump-undefined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12966(C_word c,C_word * av)7665 static void C_ccall f_12966(C_word c,C_word *av){
7666 C_word tmp;
7667 C_word t0=av[0];
7668 C_word t1=av[1];
7669 C_word t2=av[2];
7670 C_word t3;
7671 C_word t4;
7672 C_word *a;
7673 if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
7674 C_save_and_reclaim((void *)f_12966,c,av);}
7675 a=C_alloc(2);
7676 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12972,tmp=(C_word)a,a+=2,tmp);
7677 /* support.scm:970: chicken.internal#hash-table-for-each */
7678 t4=*((C_word*)lf[139]+1);{
7679 C_word *av2;
7680 if(c >= 4) {
7681   av2=av;
7682 } else {
7683   av2=C_alloc(4);
7684 }
7685 av2[0]=t4;
7686 av2[1]=t1;
7687 av2[2]=t3;
7688 av2[3]=t2;
7689 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
7690 
7691 /* a12971 in chicken.compiler.support#dump-undefined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12972(C_word c,C_word * av)7692 static void C_ccall f_12972(C_word c,C_word *av){
7693 C_word tmp;
7694 C_word t0=av[0];
7695 C_word t1=av[1];
7696 C_word t2=av[2];
7697 C_word t3=av[3];
7698 C_word t4;
7699 C_word t5;
7700 C_word t6;
7701 C_word *a;
7702 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
7703 C_save_and_reclaim((void *)f_12972,c,av);}
7704 a=C_alloc(8);
7705 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12979,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
7706 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13005,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
7707 /* support.scm:972: chicken.keyword#keyword? */
7708 t6=*((C_word*)lf[275]+1);{
7709 C_word *av2=av;
7710 av2[0]=t6;
7711 av2[1]=t5;
7712 av2[2]=t2;
7713 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
7714 
7715 /* k12977 in a12971 in chicken.compiler.support#dump-undefined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12979(C_word t0,C_word t1)7716 static void C_fcall f_12979(C_word t0,C_word t1){
7717 C_word tmp;
7718 C_word t2;
7719 C_word t3;
7720 C_word *a;
7721 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
7722 C_save_and_reclaim_args((void *)trf_12979,2,t0,t1);}
7723 a=C_alloc(3);
7724 if(C_truep(t1)){
7725 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12982,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7726 /* support.scm:975: scheme#write */
7727 t3=*((C_word*)lf[272]+1);{
7728 C_word av2[3];
7729 av2[0]=t3;
7730 av2[1]=t2;
7731 av2[2]=((C_word*)t0)[3];
7732 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
7733 else{
7734 t2=C_SCHEME_UNDEFINED;
7735 t3=((C_word*)t0)[2];{
7736 C_word av2[2];
7737 av2[0]=t3;
7738 av2[1]=t2;
7739 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
7740 
7741 /* k12980 in k12977 in a12971 in chicken.compiler.support#dump-undefined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_12982(C_word c,C_word * av)7742 static void C_ccall f_12982(C_word c,C_word *av){
7743 C_word tmp;
7744 C_word t0=av[0];
7745 C_word t1=av[1];
7746 C_word t2;
7747 C_word *a;
7748 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7749 C_save_and_reclaim((void *)f_12982,c,av);}
7750 /* support.scm:976: scheme#newline */
7751 t2=*((C_word*)lf[23]+1);{
7752 C_word *av2=av;
7753 av2[0]=t2;
7754 av2[1]=((C_word*)t0)[2];
7755 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7756 
7757 /* k13003 in a12971 in chicken.compiler.support#dump-undefined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13005(C_word c,C_word * av)7758 static void C_ccall f_13005(C_word c,C_word *av){
7759 C_word tmp;
7760 C_word t0=av[0];
7761 C_word t1=av[1];
7762 C_word t2;
7763 C_word t3;
7764 C_word *a;
7765 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7766 C_save_and_reclaim((void *)f_13005,c,av);}
7767 if(C_truep(C_i_not(t1))){
7768 t2=C_i_assq(lf[273],((C_word*)t0)[2]);
7769 t3=((C_word*)t0)[3];
7770 f_12979(t3,(C_truep(t2)?C_i_not(C_i_assq(lf[274],((C_word*)t0)[2])):C_SCHEME_FALSE));}
7771 else{
7772 t2=((C_word*)t0)[3];
7773 f_12979(t2,C_SCHEME_FALSE);}}
7774 
7775 /* chicken.compiler.support#dump-defined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13007(C_word c,C_word * av)7776 static void C_ccall f_13007(C_word c,C_word *av){
7777 C_word tmp;
7778 C_word t0=av[0];
7779 C_word t1=av[1];
7780 C_word t2=av[2];
7781 C_word t3;
7782 C_word t4;
7783 C_word *a;
7784 if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
7785 C_save_and_reclaim((void *)f_13007,c,av);}
7786 a=C_alloc(2);
7787 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13013,tmp=(C_word)a,a+=2,tmp);
7788 /* support.scm:980: chicken.internal#hash-table-for-each */
7789 t4=*((C_word*)lf[139]+1);{
7790 C_word *av2;
7791 if(c >= 4) {
7792   av2=av;
7793 } else {
7794   av2=C_alloc(4);
7795 }
7796 av2[0]=t4;
7797 av2[1]=t1;
7798 av2[2]=t3;
7799 av2[3]=t2;
7800 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
7801 
7802 /* a13012 in chicken.compiler.support#dump-defined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13013(C_word c,C_word * av)7803 static void C_ccall f_13013(C_word c,C_word *av){
7804 C_word tmp;
7805 C_word t0=av[0];
7806 C_word t1=av[1];
7807 C_word t2=av[2];
7808 C_word t3=av[3];
7809 C_word t4;
7810 C_word t5;
7811 C_word t6;
7812 C_word *a;
7813 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
7814 C_save_and_reclaim((void *)f_13013,c,av);}
7815 a=C_alloc(8);
7816 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13020,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
7817 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13042,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
7818 /* support.scm:982: chicken.keyword#keyword? */
7819 t6=*((C_word*)lf[275]+1);{
7820 C_word *av2=av;
7821 av2[0]=t6;
7822 av2[1]=t5;
7823 av2[2]=t2;
7824 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
7825 
7826 /* k13018 in a13012 in chicken.compiler.support#dump-defined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13020(C_word t0,C_word t1)7827 static void C_fcall f_13020(C_word t0,C_word t1){
7828 C_word tmp;
7829 C_word t2;
7830 C_word t3;
7831 C_word *a;
7832 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
7833 C_save_and_reclaim_args((void *)trf_13020,2,t0,t1);}
7834 a=C_alloc(3);
7835 if(C_truep(t1)){
7836 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13023,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7837 /* support.scm:985: scheme#write */
7838 t3=*((C_word*)lf[272]+1);{
7839 C_word av2[3];
7840 av2[0]=t3;
7841 av2[1]=t2;
7842 av2[2]=((C_word*)t0)[3];
7843 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
7844 else{
7845 t2=C_SCHEME_UNDEFINED;
7846 t3=((C_word*)t0)[2];{
7847 C_word av2[2];
7848 av2[0]=t3;
7849 av2[1]=t2;
7850 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
7851 
7852 /* k13021 in k13018 in a13012 in chicken.compiler.support#dump-defined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13023(C_word c,C_word * av)7853 static void C_ccall f_13023(C_word c,C_word *av){
7854 C_word tmp;
7855 C_word t0=av[0];
7856 C_word t1=av[1];
7857 C_word t2;
7858 C_word *a;
7859 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7860 C_save_and_reclaim((void *)f_13023,c,av);}
7861 /* support.scm:986: scheme#newline */
7862 t2=*((C_word*)lf[23]+1);{
7863 C_word *av2=av;
7864 av2[0]=t2;
7865 av2[1]=((C_word*)t0)[2];
7866 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7867 
7868 /* k13040 in a13012 in chicken.compiler.support#dump-defined-globals in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13042(C_word c,C_word * av)7869 static void C_ccall f_13042(C_word c,C_word *av){
7870 C_word tmp;
7871 C_word t0=av[0];
7872 C_word t1=av[1];
7873 C_word t2;
7874 C_word t3;
7875 C_word *a;
7876 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7877 C_save_and_reclaim((void *)f_13042,c,av);}
7878 if(C_truep(C_i_not(t1))){
7879 t2=C_i_assq(lf[273],((C_word*)t0)[2]);
7880 t3=((C_word*)t0)[3];
7881 f_13020(t3,(C_truep(t2)?C_i_assq(lf[274],((C_word*)t0)[2]):C_SCHEME_FALSE));}
7882 else{
7883 t2=((C_word*)t0)[3];
7884 f_13020(t2,C_SCHEME_FALSE);}}
7885 
7886 /* chicken.compiler.support#dump-global-refs in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13044(C_word c,C_word * av)7887 static void C_ccall f_13044(C_word c,C_word *av){
7888 C_word tmp;
7889 C_word t0=av[0];
7890 C_word t1=av[1];
7891 C_word t2=av[2];
7892 C_word t3;
7893 C_word t4;
7894 C_word *a;
7895 if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
7896 C_save_and_reclaim((void *)f_13044,c,av);}
7897 a=C_alloc(2);
7898 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13050,tmp=(C_word)a,a+=2,tmp);
7899 /* support.scm:990: chicken.internal#hash-table-for-each */
7900 t4=*((C_word*)lf[139]+1);{
7901 C_word *av2;
7902 if(c >= 4) {
7903   av2=av;
7904 } else {
7905   av2=C_alloc(4);
7906 }
7907 av2[0]=t4;
7908 av2[1]=t1;
7909 av2[2]=t3;
7910 av2[3]=t2;
7911 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
7912 
7913 /* a13049 in chicken.compiler.support#dump-global-refs in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13050(C_word c,C_word * av)7914 static void C_ccall f_13050(C_word c,C_word *av){
7915 C_word tmp;
7916 C_word t0=av[0];
7917 C_word t1=av[1];
7918 C_word t2=av[2];
7919 C_word t3=av[3];
7920 C_word t4;
7921 C_word t5;
7922 C_word *a;
7923 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
7924 C_save_and_reclaim((void *)f_13050,c,av);}
7925 a=C_alloc(5);
7926 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13091,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
7927 /* support.scm:992: chicken.keyword#keyword? */
7928 t5=*((C_word*)lf[275]+1);{
7929 C_word *av2=av;
7930 av2[0]=t5;
7931 av2[1]=t4;
7932 av2[2]=t2;
7933 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
7934 
7935 /* k13061 in k13089 in a13049 in chicken.compiler.support#dump-global-refs in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13063(C_word c,C_word * av)7936 static void C_ccall f_13063(C_word c,C_word *av){
7937 C_word tmp;
7938 C_word t0=av[0];
7939 C_word t1=av[1];
7940 C_word t2;
7941 C_word *a;
7942 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7943 C_save_and_reclaim((void *)f_13063,c,av);}
7944 /* support.scm:995: scheme#newline */
7945 t2=*((C_word*)lf[23]+1);{
7946 C_word *av2=av;
7947 av2[0]=t2;
7948 av2[1]=((C_word*)t0)[2];
7949 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7950 
7951 /* k13089 in a13049 in chicken.compiler.support#dump-global-refs in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13091(C_word c,C_word * av)7952 static void C_ccall f_13091(C_word c,C_word *av){
7953 C_word tmp;
7954 C_word t0=av[0];
7955 C_word t1=av[1];
7956 C_word t2;
7957 C_word t3;
7958 C_word t4;
7959 C_word t5;
7960 C_word t6;
7961 C_word t7;
7962 C_word t8;
7963 C_word t9;
7964 C_word *a;
7965 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
7966 C_save_and_reclaim((void *)f_13091,c,av);}
7967 a=C_alloc(9);
7968 t2=C_i_not(t1);
7969 t3=(C_truep(t2)?C_i_assq(lf[273],((C_word*)t0)[2]):C_SCHEME_FALSE);
7970 if(C_truep(t3)){
7971 t4=C_i_assq(lf[209],((C_word*)t0)[2]);
7972 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13063,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
7973 if(C_truep(t4)){
7974 t6=C_i_cdr(t4);
7975 t7=C_i_length(t6);
7976 t8=C_a_i_list2(&a,2,((C_word*)t0)[4],t7);
7977 /* support.scm:994: scheme#write */
7978 t9=*((C_word*)lf[272]+1);{
7979 C_word *av2;
7980 if(c >= 3) {
7981   av2=av;
7982 } else {
7983   av2=C_alloc(3);
7984 }
7985 av2[0]=t9;
7986 av2[1]=t5;
7987 av2[2]=t8;
7988 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
7989 else{
7990 t6=C_a_i_list2(&a,2,((C_word*)t0)[4],C_fix(0));
7991 /* support.scm:994: scheme#write */
7992 t7=*((C_word*)lf[272]+1);{
7993 C_word *av2;
7994 if(c >= 3) {
7995   av2=av;
7996 } else {
7997   av2=C_alloc(3);
7998 }
7999 av2[0]=t7;
8000 av2[1]=t5;
8001 av2[2]=t6;
8002 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
8003 else{
8004 t4=C_SCHEME_UNDEFINED;
8005 t5=((C_word*)t0)[3];{
8006 C_word *av2=av;
8007 av2[0]=t5;
8008 av2[1]=t4;
8009 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
8010 
8011 /* ##sys#toplevel-definition-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13093(C_word c,C_word * av)8012 static void C_ccall f_13093(C_word c,C_word *av){
8013 C_word tmp;
8014 C_word t0=av[0];
8015 C_word t1=av[1];
8016 C_word t2=av[2];
8017 C_word t3=av[3];
8018 C_word t4=av[4];
8019 C_word t5;
8020 C_word t6;
8021 C_word *a;
8022 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
8023 C_save_and_reclaim((void *)f_13093,c,av);}
8024 a=C_alloc(4);
8025 if(C_truep(C_u_i_namespaced_symbolp(t2))){
8026 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17936,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
8027 /* support.scm:1749: variable-hidden? */
8028 t6=*((C_word*)lf[281]+1);{
8029 C_word *av2=av;
8030 av2[0]=t6;
8031 av2[1]=t5;
8032 av2[2]=t2;
8033 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
8034 else{
8035 if(C_truep(C_i_not(t4))){
8036 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13114,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
8037 /* support.scm:1006: debugging */
8038 t6=*((C_word*)lf[22]+1);{
8039 C_word *av2=av;
8040 av2[0]=t6;
8041 av2[1]=t5;
8042 av2[2]=lf[190];
8043 av2[3]=lf[283];
8044 av2[4]=t3;
8045 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
8046 else{
8047 t5=t1;{
8048 C_word *av2=av;
8049 av2[0]=t5;
8050 av2[1]=C_SCHEME_UNDEFINED;
8051 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}
8052 
8053 /* k13112 in ##sys#toplevel-definition-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13114(C_word c,C_word * av)8054 static void C_ccall f_13114(C_word c,C_word *av){
8055 C_word tmp;
8056 C_word t0=av[0];
8057 C_word t1=av[1];
8058 C_word t2;
8059 C_word *a;
8060 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
8061 C_save_and_reclaim((void *)f_13114,c,av);}
8062 /* support.scm:1007: hide-variable */
8063 t2=*((C_word*)lf[282]+1);{
8064 C_word *av2;
8065 if(c >= 3) {
8066   av2=av;
8067 } else {
8068   av2=C_alloc(3);
8069 }
8070 av2[0]=t2;
8071 av2[1]=((C_word*)t0)[2];
8072 av2[2]=((C_word*)t0)[3];
8073 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
8074 
8075 /* chicken.compiler.support#make-foreign-callback-stub in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13121(C_word c,C_word * av)8076 static void C_ccall f_13121(C_word c,C_word *av){
8077 C_word tmp;
8078 C_word t0=av[0];
8079 C_word t1=av[1];
8080 C_word t2=av[2];
8081 C_word t3=av[3];
8082 C_word t4=av[4];
8083 C_word t5=av[5];
8084 C_word t6=av[6];
8085 C_word t7;
8086 C_word *a;
8087 if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
8088 C_save_and_reclaim((void *)f_13121,c,av);}
8089 a=C_alloc(7);
8090 t7=t1;{
8091 C_word *av2=av;
8092 av2[0]=t7;
8093 av2[1]=C_a_i_record6(&a,6,lf[285],t2,t3,t4,t5,t6);
8094 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
8095 
8096 /* chicken.compiler.support#foreign-callback-stub? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13127(C_word c,C_word * av)8097 static void C_ccall f_13127(C_word c,C_word *av){
8098 C_word tmp;
8099 C_word t0=av[0];
8100 C_word t1=av[1];
8101 C_word t2=av[2];
8102 C_word t3;
8103 C_word *a;
8104 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8105 C_save_and_reclaim((void *)f_13127,c,av);}
8106 t3=t1;{
8107 C_word *av2=av;
8108 av2[0]=t3;
8109 av2[1]=C_i_structurep(t2,lf[285]);
8110 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
8111 
8112 /* chicken.compiler.support#foreign-callback-stub-id in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13133(C_word c,C_word * av)8113 static void C_ccall f_13133(C_word c,C_word *av){
8114 C_word tmp;
8115 C_word t0=av[0];
8116 C_word t1=av[1];
8117 C_word t2=av[2];
8118 C_word t3;
8119 C_word t4;
8120 C_word *a;
8121 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8122 C_save_and_reclaim((void *)f_13133,c,av);}
8123 t3=C_i_check_structure_2(t2,lf[285],lf[287]);
8124 t4=t1;{
8125 C_word *av2=av;
8126 av2[0]=t4;
8127 av2[1]=C_i_block_ref(t2,C_fix(1));
8128 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8129 
8130 /* chicken.compiler.support#foreign-callback-stub-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13142(C_word c,C_word * av)8131 static void C_ccall f_13142(C_word c,C_word *av){
8132 C_word tmp;
8133 C_word t0=av[0];
8134 C_word t1=av[1];
8135 C_word t2=av[2];
8136 C_word t3;
8137 C_word t4;
8138 C_word *a;
8139 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8140 C_save_and_reclaim((void *)f_13142,c,av);}
8141 t3=C_i_check_structure_2(t2,lf[285],lf[289]);
8142 t4=t1;{
8143 C_word *av2=av;
8144 av2[0]=t4;
8145 av2[1]=C_i_block_ref(t2,C_fix(2));
8146 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8147 
8148 /* chicken.compiler.support#foreign-callback-stub-qualifiers in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13151(C_word c,C_word * av)8149 static void C_ccall f_13151(C_word c,C_word *av){
8150 C_word tmp;
8151 C_word t0=av[0];
8152 C_word t1=av[1];
8153 C_word t2=av[2];
8154 C_word t3;
8155 C_word t4;
8156 C_word *a;
8157 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8158 C_save_and_reclaim((void *)f_13151,c,av);}
8159 t3=C_i_check_structure_2(t2,lf[285],lf[291]);
8160 t4=t1;{
8161 C_word *av2=av;
8162 av2[0]=t4;
8163 av2[1]=C_i_block_ref(t2,C_fix(3));
8164 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8165 
8166 /* chicken.compiler.support#foreign-callback-stub-return-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13160(C_word c,C_word * av)8167 static void C_ccall f_13160(C_word c,C_word *av){
8168 C_word tmp;
8169 C_word t0=av[0];
8170 C_word t1=av[1];
8171 C_word t2=av[2];
8172 C_word t3;
8173 C_word t4;
8174 C_word *a;
8175 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8176 C_save_and_reclaim((void *)f_13160,c,av);}
8177 t3=C_i_check_structure_2(t2,lf[285],lf[293]);
8178 t4=t1;{
8179 C_word *av2=av;
8180 av2[0]=t4;
8181 av2[1]=C_i_block_ref(t2,C_fix(4));
8182 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8183 
8184 /* chicken.compiler.support#foreign-callback-stub-argument-types in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13169(C_word c,C_word * av)8185 static void C_ccall f_13169(C_word c,C_word *av){
8186 C_word tmp;
8187 C_word t0=av[0];
8188 C_word t1=av[1];
8189 C_word t2=av[2];
8190 C_word t3;
8191 C_word t4;
8192 C_word *a;
8193 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8194 C_save_and_reclaim((void *)f_13169,c,av);}
8195 t3=C_i_check_structure_2(t2,lf[285],lf[295]);
8196 t4=t1;{
8197 C_word *av2=av;
8198 av2[0]=t4;
8199 av2[1]=C_i_block_ref(t2,C_fix(5));
8200 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8201 
8202 /* chicken.compiler.support#register-foreign-callback-stub! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13178(C_word c,C_word * av)8203 static void C_ccall f_13178(C_word c,C_word *av){
8204 C_word tmp;
8205 C_word t0=av[0];
8206 C_word t1=av[1];
8207 C_word t2=av[2];
8208 C_word t3=av[3];
8209 C_word t4;
8210 C_word t5;
8211 C_word *a;
8212 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
8213 C_save_and_reclaim((void *)f_13178,c,av);}
8214 a=C_alloc(4);
8215 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13204,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{
8216 C_word *av2;
8217 if(c >= 5) {
8218   av2=av;
8219 } else {
8220   av2=C_alloc(5);
8221 }
8222 av2[0]=0;
8223 av2[1]=t4;
8224 av2[2]=*((C_word*)lf[284]+1);
8225 av2[3]=t2;
8226 av2[4]=t3;
8227 C_apply(5,av2);}}
8228 
8229 /* k13202 in chicken.compiler.support#register-foreign-callback-stub! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13204(C_word c,C_word * av)8230 static void C_ccall f_13204(C_word c,C_word *av){
8231 C_word tmp;
8232 C_word t0=av[0];
8233 C_word t1=av[1];
8234 C_word t2;
8235 C_word t3;
8236 C_word t4;
8237 C_word t5;
8238 C_word *a;
8239 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
8240 C_save_and_reclaim((void *)f_13204,c,av);}
8241 a=C_alloc(3);
8242 t2=C_a_i_cons(&a,2,t1,*((C_word*)lf[269]+1));
8243 t3=C_mutate((C_word*)lf[269]+1 /* (set! chicken.compiler.support#foreign-callback-stubs ...) */,t2);
8244 t4=C_SCHEME_END_OF_LIST;
8245 if(C_truep(C_i_nullp(t4))){
8246 /* tweaks.scm:57: ##sys#put! */
8247 t5=*((C_word*)lf[262]+1);{
8248 C_word *av2;
8249 if(c >= 5) {
8250   av2=av;
8251 } else {
8252   av2=C_alloc(5);
8253 }
8254 av2[0]=t5;
8255 av2[1]=((C_word*)t0)[2];
8256 av2[2]=((C_word*)t0)[3];
8257 av2[3]=lf[297];
8258 av2[4]=C_SCHEME_TRUE;
8259 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
8260 else{
8261 /* tweaks.scm:57: ##sys#put! */
8262 t5=*((C_word*)lf[262]+1);{
8263 C_word *av2;
8264 if(c >= 5) {
8265   av2=av;
8266 } else {
8267   av2=C_alloc(5);
8268 }
8269 av2[0]=t5;
8270 av2[1]=((C_word*)t0)[2];
8271 av2[2]=((C_word*)t0)[3];
8272 av2[3]=lf[297];
8273 av2[4]=C_i_car(t4);
8274 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
8275 
8276 /* chicken.compiler.support#clear-foreign-type-table! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13207(C_word c,C_word * av)8277 static void C_ccall f_13207(C_word c,C_word *av){
8278 C_word tmp;
8279 C_word t0=av[0];
8280 C_word t1=av[1];
8281 C_word t2;
8282 C_word t3;
8283 C_word *a;
8284 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
8285 C_save_and_reclaim((void *)f_13207,c,av);}
8286 a=C_alloc(3);
8287 if(C_truep(lf[298])){
8288 /* support.scm:1035: scheme#vector-fill! */
8289 t2=*((C_word*)lf[300]+1);{
8290 C_word *av2;
8291 if(c >= 4) {
8292   av2=av;
8293 } else {
8294   av2=C_alloc(4);
8295 }
8296 av2[0]=t2;
8297 av2[1]=t1;
8298 av2[2]=lf[298];
8299 av2[3]=C_SCHEME_END_OF_LIST;
8300 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
8301 else{
8302 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13218,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
8303 /* support.scm:1036: scheme#make-vector */
8304 t3=*((C_word*)lf[301]+1);{
8305 C_word *av2;
8306 if(c >= 4) {
8307   av2=av;
8308 } else {
8309   av2=C_alloc(4);
8310 }
8311 av2[0]=t3;
8312 av2[1]=t2;
8313 av2[2]=C_fix(301);
8314 av2[3]=C_SCHEME_END_OF_LIST;
8315 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
8316 
8317 /* k13216 in chicken.compiler.support#clear-foreign-type-table! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13218(C_word c,C_word * av)8318 static void C_ccall f_13218(C_word c,C_word *av){
8319 C_word tmp;
8320 C_word t0=av[0];
8321 C_word t1=av[1];
8322 C_word t2;
8323 C_word t3;
8324 C_word *a;
8325 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8326 C_save_and_reclaim((void *)f_13218,c,av);}
8327 t2=C_mutate(&lf[298] /* (set! chicken.compiler.support#foreign-type-table ...) */,t1);
8328 t3=((C_word*)t0)[2];{
8329 C_word *av2=av;
8330 av2[0]=t3;
8331 av2[1]=t2;
8332 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
8333 
8334 /* chicken.compiler.support#register-foreign-type! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13220(C_word c,C_word * av)8335 static void C_ccall f_13220(C_word c,C_word *av){
8336 C_word tmp;
8337 C_word t0=av[0];
8338 C_word t1=av[1];
8339 C_word t2=av[2];
8340 C_word t3=av[3];
8341 C_word t4;
8342 C_word t5;
8343 C_word t6;
8344 C_word t7;
8345 C_word t8;
8346 C_word t9;
8347 C_word t10;
8348 C_word t11;
8349 C_word t12;
8350 C_word *a;
8351 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
8352 C_save_and_reclaim((void *)f_13220,c,av);}
8353 a=C_alloc(4);
8354 t4=C_rest_nullp(c,4);
8355 t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0));
8356 t6=C_rest_nullp(c,4);
8357 t7=C_rest_nullp(c,5);
8358 t8=(C_truep(t7)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0));
8359 t9=C_rest_nullp(c,5);
8360 t10=(C_truep(t8)?t5:C_SCHEME_FALSE);
8361 t11=(C_truep(t5)?C_a_i_vector3(&a,3,t3,t10,t8):C_a_i_vector3(&a,3,t3,t10,C_SCHEME_FALSE));
8362 /* support.scm:1044: chicken.internal#hash-table-set! */
8363 t12=*((C_word*)lf[132]+1);{
8364 C_word av2[5];
8365 av2[0]=t12;
8366 av2[1]=t1;
8367 av2[2]=lf[298];
8368 av2[3]=t2;
8369 av2[4]=t11;
8370 ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}
8371 
8372 /* chicken.compiler.support#lookup-foreign-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13274(C_word c,C_word * av)8373 static void C_ccall f_13274(C_word c,C_word *av){
8374 C_word tmp;
8375 C_word t0=av[0];
8376 C_word t1=av[1];
8377 C_word t2=av[2];
8378 C_word t3;
8379 C_word *a;
8380 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
8381 C_save_and_reclaim((void *)f_13274,c,av);}
8382 /* support.scm:1052: chicken.internal#hash-table-ref */
8383 t3=*((C_word*)lf[128]+1);{
8384 C_word *av2;
8385 if(c >= 4) {
8386   av2=av;
8387 } else {
8388   av2=C_alloc(4);
8389 }
8390 av2[0]=t3;
8391 av2[1]=t1;
8392 av2[2]=lf[298];
8393 av2[3]=t2;
8394 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
8395 
8396 /* chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13280(C_word c,C_word * av)8397 static void C_ccall f_13280(C_word c,C_word *av){
8398 C_word tmp;
8399 C_word t0=av[0];
8400 C_word t1=av[1];
8401 C_word t2=av[2];
8402 C_word t3=av[3];
8403 C_word t4;
8404 C_word t5;
8405 C_word t6;
8406 C_word *a;
8407 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
8408 C_save_and_reclaim((void *)f_13280,c,av);}
8409 a=C_alloc(7);
8410 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13286,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
8411 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14350,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
8412 /* support.scm:1069: follow-without-loop */
8413 f_7445(t1,t3,t4,t5);}
8414 
8415 /* a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13286(C_word c,C_word * av)8416 static void C_ccall f_13286(C_word c,C_word *av){
8417 C_word tmp;
8418 C_word t0=av[0];
8419 C_word t1=av[1];
8420 C_word t2=av[2];
8421 C_word t3=av[3];
8422 C_word t4;
8423 C_word t5;
8424 C_word t6;
8425 C_word t7;
8426 C_word *a;
8427 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
8428 C_save_and_reclaim((void *)f_13286,c,av);}
8429 a=C_alloc(8);
8430 t4=C_SCHEME_UNDEFINED;
8431 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
8432 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13292,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
8433 t7=((C_word*)t5)[1];
8434 f_13292(t7,t1,t2);}
8435 
8436 /* repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13292(C_word t0,C_word t1,C_word t2)8437 static void C_fcall f_13292(C_word t0,C_word t1,C_word t2){
8438 C_word tmp;
8439 C_word t3;
8440 C_word t4;
8441 C_word t5;
8442 C_word t6;
8443 C_word t7;
8444 C_word t8;
8445 C_word t9;
8446 C_word t10;
8447 C_word t11;
8448 C_word *a;
8449 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
8450 C_save_and_reclaim_args((void *)trf_13292,3,t0,t1,t2);}
8451 a=C_alloc(8);
8452 t3=C_eqp(t2,lf[306]);
8453 t4=(C_truep(t3)?t3:C_eqp(t2,lf[307]));
8454 if(C_truep(t4)){
8455 t5=t1;{
8456 C_word av2[2];
8457 av2[0]=t5;
8458 av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[308],((C_word*)t0)[2]));
8459 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
8460 else{
8461 t5=C_eqp(t2,lf[309]);
8462 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13317,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
8463 if(C_truep(t5)){
8464 t7=t6;
8465 f_13317(t7,t5);}
8466 else{
8467 t7=C_eqp(t2,lf[396]);
8468 if(C_truep(t7)){
8469 t8=t6;
8470 f_13317(t8,t7);}
8471 else{
8472 t8=C_eqp(t2,lf[397]);
8473 if(C_truep(t8)){
8474 t9=t6;
8475 f_13317(t9,t8);}
8476 else{
8477 t9=C_eqp(t2,lf[398]);
8478 if(C_truep(t9)){
8479 t10=t6;
8480 f_13317(t10,t9);}
8481 else{
8482 t10=C_eqp(t2,lf[399]);
8483 t11=t6;
8484 f_13317(t11,(C_truep(t10)?t10:C_eqp(t2,lf[400])));}}}}}}
8485 
8486 /* k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13317(C_word t0,C_word t1)8487 static void C_fcall f_13317(C_word t0,C_word t1){
8488 C_word tmp;
8489 C_word t2;
8490 C_word t3;
8491 C_word t4;
8492 C_word t5;
8493 C_word *a;
8494 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
8495 C_save_and_reclaim_args((void *)trf_13317,2,t0,t1);}
8496 a=C_alloc(8);
8497 if(C_truep(t1)){
8498 t2=((C_word*)t0)[2];{
8499 C_word av2[2];
8500 av2[0]=t2;
8501 av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[310],((C_word*)t0)[3]));
8502 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8503 else{
8504 t2=C_eqp(((C_word*)t0)[4],lf[311]);
8505 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
8506 if(C_truep(t2)){
8507 t4=t3;
8508 f_13332(t4,t2);}
8509 else{
8510 t4=C_eqp(((C_word*)t0)[4],lf[394]);
8511 t5=t3;
8512 f_13332(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[395])));}}}
8513 
8514 /* k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13332(C_word t0,C_word t1)8515 static void C_fcall f_13332(C_word t0,C_word t1){
8516 C_word tmp;
8517 C_word t2;
8518 C_word t3;
8519 C_word t4;
8520 C_word t5;
8521 C_word t6;
8522 C_word t7;
8523 C_word t8;
8524 C_word t9;
8525 C_word t10;
8526 C_word t11;
8527 C_word t12;
8528 C_word t13;
8529 C_word t14;
8530 C_word t15;
8531 C_word t16;
8532 C_word t17;
8533 C_word t18;
8534 C_word *a;
8535 if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
8536 C_save_and_reclaim_args((void *)trf_13332,2,t0,t1);}
8537 a=C_alloc(15);
8538 if(C_truep(t1)){
8539 t2=((C_word*)t0)[2];{
8540 C_word av2[2];
8541 av2[0]=t2;
8542 av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[312],((C_word*)t0)[3]));
8543 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8544 else{
8545 t2=C_eqp(((C_word*)t0)[4],lf[313]);
8546 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[314]));
8547 if(C_truep(t3)){
8548 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13350,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
8549 /* support.scm:1080: chicken.base#gensym */
8550 t5=*((C_word*)lf[97]+1);{
8551 C_word av2[2];
8552 av2[0]=t5;
8553 av2[1]=t4;
8554 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
8555 else{
8556 t4=C_eqp(((C_word*)t0)[4],lf[319]);
8557 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[320]));
8558 if(C_truep(t5)){
8559 t6=((C_word*)t0)[2];{
8560 C_word av2[2];
8561 av2[0]=t6;
8562 av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[3]:C_a_i_list(&a,2,lf[315],((C_word*)t0)[3]));
8563 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
8564 else{
8565 t6=C_eqp(((C_word*)t0)[4],lf[321]);
8566 if(C_truep(t6)){
8567 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13400,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
8568 /* support.scm:1092: chicken.base#gensym */
8569 t8=*((C_word*)lf[97]+1);{
8570 C_word av2[2];
8571 av2[0]=t8;
8572 av2[1]=t7;
8573 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
8574 else{
8575 t7=C_eqp(((C_word*)t0)[4],lf[323]);
8576 if(C_truep(t7)){
8577 if(C_truep(*((C_word*)lf[10]+1))){
8578 t8=((C_word*)t0)[2];{
8579 C_word av2[2];
8580 av2[0]=t8;
8581 av2[1]=((C_word*)t0)[3];
8582 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
8583 else{
8584 t8=C_a_i_list(&a,2,lf[316],lf[321]);
8585 t9=((C_word*)t0)[2];{
8586 C_word av2[2];
8587 av2[0]=t9;
8588 av2[1]=C_a_i_list(&a,3,lf[322],t8,((C_word*)t0)[3]);
8589 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
8590 else{
8591 t8=C_eqp(((C_word*)t0)[4],lf[324]);
8592 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13455,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
8593 if(C_truep(t8)){
8594 t10=t9;
8595 f_13455(t10,t8);}
8596 else{
8597 t10=C_eqp(((C_word*)t0)[4],lf[385]);
8598 if(C_truep(t10)){
8599 t11=t9;
8600 f_13455(t11,t10);}
8601 else{
8602 t11=C_eqp(((C_word*)t0)[4],lf[386]);
8603 if(C_truep(t11)){
8604 t12=t9;
8605 f_13455(t12,t11);}
8606 else{
8607 t12=C_eqp(((C_word*)t0)[4],lf[387]);
8608 if(C_truep(t12)){
8609 t13=t9;
8610 f_13455(t13,t12);}
8611 else{
8612 t13=C_eqp(((C_word*)t0)[4],lf[388]);
8613 if(C_truep(t13)){
8614 t14=t9;
8615 f_13455(t14,t13);}
8616 else{
8617 t14=C_eqp(((C_word*)t0)[4],lf[389]);
8618 if(C_truep(t14)){
8619 t15=t9;
8620 f_13455(t15,t14);}
8621 else{
8622 t15=C_eqp(((C_word*)t0)[4],lf[390]);
8623 if(C_truep(t15)){
8624 t16=t9;
8625 f_13455(t16,t15);}
8626 else{
8627 t16=C_eqp(((C_word*)t0)[4],lf[391]);
8628 if(C_truep(t16)){
8629 t17=t9;
8630 f_13455(t17,t16);}
8631 else{
8632 t17=C_eqp(((C_word*)t0)[4],lf[392]);
8633 t18=t9;
8634 f_13455(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[4],lf[393])));}}}}}}}}}}}}}}
8635 
8636 /* k13348 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13350(C_word c,C_word * av)8637 static void C_ccall f_13350(C_word c,C_word *av){
8638 C_word tmp;
8639 C_word t0=av[0];
8640 C_word t1=av[1];
8641 C_word t2;
8642 C_word t3;
8643 C_word t4;
8644 C_word t5;
8645 C_word t6;
8646 C_word t7;
8647 C_word *a;
8648 if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
8649 C_save_and_reclaim((void *)f_13350,c,av);}
8650 a=C_alloc(42);
8651 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
8652 t3=C_a_i_list(&a,1,t2);
8653 t4=(C_truep(*((C_word*)lf[10]+1))?t1:C_a_i_list(&a,2,lf[315],t1));
8654 t5=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
8655 t6=C_a_i_list(&a,4,lf[317],t1,t4,t5);
8656 t7=((C_word*)t0)[3];{
8657 C_word *av2=av;
8658 av2[0]=t7;
8659 av2[1]=C_a_i_list(&a,3,lf[318],t3,t6);
8660 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
8661 
8662 /* k13398 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13400(C_word c,C_word * av)8663 static void C_ccall f_13400(C_word c,C_word *av){
8664 C_word tmp;
8665 C_word t0=av[0];
8666 C_word t1=av[1];
8667 C_word t2;
8668 C_word t3;
8669 C_word t4;
8670 C_word t5;
8671 C_word t6;
8672 C_word *a;
8673 if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
8674 C_save_and_reclaim((void *)f_13400,c,av);}
8675 a=C_alloc(29);
8676 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
8677 t3=C_a_i_list(&a,1,t2);
8678 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13415,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
8679 if(C_truep(*((C_word*)lf[10]+1))){
8680 t5=t4;
8681 f_13415(t5,t1);}
8682 else{
8683 t5=C_a_i_list(&a,2,lf[316],lf[321]);
8684 t6=t4;
8685 f_13415(t6,C_a_i_list(&a,3,lf[322],t5,t1));}}
8686 
8687 /* k13413 in k13398 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13415(C_word t0,C_word t1)8688 static void C_fcall f_13415(C_word t0,C_word t1){
8689 C_word tmp;
8690 C_word t2;
8691 C_word t3;
8692 C_word t4;
8693 C_word *a;
8694 if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){
8695 C_save_and_reclaim_args((void *)trf_13415,2,t0,t1);}
8696 a=C_alloc(27);
8697 t2=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
8698 t3=C_a_i_list(&a,4,lf[317],((C_word*)t0)[2],t1,t2);
8699 t4=((C_word*)t0)[3];{
8700 C_word av2[2];
8701 av2[0]=t4;
8702 av2[1]=C_a_i_list(&a,3,lf[318],((C_word*)t0)[4],t3);
8703 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8704 
8705 /* k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13455(C_word t0,C_word t1)8706 static void C_fcall f_13455(C_word t0,C_word t1){
8707 C_word tmp;
8708 C_word t2;
8709 C_word t3;
8710 C_word t4;
8711 C_word t5;
8712 C_word t6;
8713 C_word t7;
8714 C_word t8;
8715 C_word t9;
8716 C_word t10;
8717 C_word t11;
8718 C_word t12;
8719 C_word *a;
8720 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
8721 C_save_and_reclaim_args((void *)trf_13455,2,t0,t1);}
8722 a=C_alloc(8);
8723 if(C_truep(t1)){
8724 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13458,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
8725 /* support.scm:1105: chicken.base#gensym */
8726 t3=*((C_word*)lf[97]+1);{
8727 C_word av2[2];
8728 av2[0]=t3;
8729 av2[1]=t2;
8730 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
8731 else{
8732 t2=C_eqp(((C_word*)t0)[4],lf[325]);
8733 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13497,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
8734 if(C_truep(t2)){
8735 t4=t3;
8736 f_13497(t4,t2);}
8737 else{
8738 t4=C_eqp(((C_word*)t0)[4],lf[376]);
8739 if(C_truep(t4)){
8740 t5=t3;
8741 f_13497(t5,t4);}
8742 else{
8743 t5=C_eqp(((C_word*)t0)[4],lf[377]);
8744 if(C_truep(t5)){
8745 t6=t3;
8746 f_13497(t6,t5);}
8747 else{
8748 t6=C_eqp(((C_word*)t0)[4],lf[378]);
8749 if(C_truep(t6)){
8750 t7=t3;
8751 f_13497(t7,t6);}
8752 else{
8753 t7=C_eqp(((C_word*)t0)[4],lf[379]);
8754 if(C_truep(t7)){
8755 t8=t3;
8756 f_13497(t8,t7);}
8757 else{
8758 t8=C_eqp(((C_word*)t0)[4],lf[380]);
8759 if(C_truep(t8)){
8760 t9=t3;
8761 f_13497(t9,t8);}
8762 else{
8763 t9=C_eqp(((C_word*)t0)[4],lf[381]);
8764 if(C_truep(t9)){
8765 t10=t3;
8766 f_13497(t10,t9);}
8767 else{
8768 t10=C_eqp(((C_word*)t0)[4],lf[382]);
8769 if(C_truep(t10)){
8770 t11=t3;
8771 f_13497(t11,t10);}
8772 else{
8773 t11=C_eqp(((C_word*)t0)[4],lf[383]);
8774 t12=t3;
8775 f_13497(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[4],lf[384])));}}}}}}}}}}
8776 
8777 /* k13456 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13458(C_word c,C_word * av)8778 static void C_ccall f_13458(C_word c,C_word *av){
8779 C_word tmp;
8780 C_word t0=av[0];
8781 C_word t1=av[1];
8782 C_word t2;
8783 C_word t3;
8784 C_word t4;
8785 C_word t5;
8786 C_word t6;
8787 C_word *a;
8788 if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
8789 C_save_and_reclaim((void *)f_13458,c,av);}
8790 a=C_alloc(29);
8791 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
8792 t3=C_a_i_list(&a,1,t2);
8793 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13473,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
8794 if(C_truep(*((C_word*)lf[10]+1))){
8795 t5=t4;
8796 f_13473(t5,t1);}
8797 else{
8798 t5=C_a_i_list(&a,2,lf[316],((C_word*)t0)[4]);
8799 t6=t4;
8800 f_13473(t6,C_a_i_list(&a,3,lf[322],t5,t1));}}
8801 
8802 /* k13471 in k13456 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13473(C_word t0,C_word t1)8803 static void C_fcall f_13473(C_word t0,C_word t1){
8804 C_word tmp;
8805 C_word t2;
8806 C_word t3;
8807 C_word t4;
8808 C_word *a;
8809 if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){
8810 C_save_and_reclaim_args((void *)trf_13473,2,t0,t1);}
8811 a=C_alloc(27);
8812 t2=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
8813 t3=C_a_i_list(&a,4,lf[317],((C_word*)t0)[2],t1,t2);
8814 t4=((C_word*)t0)[3];{
8815 C_word av2[2];
8816 av2[0]=t4;
8817 av2[1]=C_a_i_list(&a,3,lf[318],((C_word*)t0)[4],t3);
8818 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8819 
8820 /* k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13497(C_word t0,C_word t1)8821 static void C_fcall f_13497(C_word t0,C_word t1){
8822 C_word tmp;
8823 C_word t2;
8824 C_word t3;
8825 C_word t4;
8826 C_word t5;
8827 C_word t6;
8828 C_word t7;
8829 C_word t8;
8830 C_word *a;
8831 if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
8832 C_save_and_reclaim_args((void *)trf_13497,2,t0,t1);}
8833 a=C_alloc(15);
8834 if(C_truep(t1)){
8835 if(C_truep(*((C_word*)lf[10]+1))){
8836 t2=((C_word*)t0)[2];{
8837 C_word av2[2];
8838 av2[0]=t2;
8839 av2[1]=((C_word*)t0)[3];
8840 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8841 else{
8842 t2=C_slot(C_u_i_assq(((C_word*)t0)[4],lf[326]),C_fix(1));
8843 t3=C_a_i_list(&a,2,lf[316],t2);
8844 t4=((C_word*)t0)[2];{
8845 C_word av2[2];
8846 av2[0]=t4;
8847 av2[1]=C_a_i_list(&a,3,lf[322],t3,((C_word*)t0)[3]);
8848 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
8849 else{
8850 t2=C_eqp(((C_word*)t0)[4],lf[327]);
8851 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13523,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
8852 if(C_truep(t2)){
8853 t4=t3;
8854 f_13523(t4,t2);}
8855 else{
8856 t4=C_eqp(((C_word*)t0)[4],lf[371]);
8857 if(C_truep(t4)){
8858 t5=t3;
8859 f_13523(t5,t4);}
8860 else{
8861 t5=C_eqp(((C_word*)t0)[4],lf[372]);
8862 if(C_truep(t5)){
8863 t6=t3;
8864 f_13523(t6,t5);}
8865 else{
8866 t6=C_eqp(((C_word*)t0)[4],lf[373]);
8867 if(C_truep(t6)){
8868 t7=t3;
8869 f_13523(t7,t6);}
8870 else{
8871 t7=C_eqp(((C_word*)t0)[4],lf[374]);
8872 t8=t3;
8873 f_13523(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[375])));}}}}}}
8874 
8875 /* k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_13523(C_word t0,C_word t1)8876 static void C_fcall f_13523(C_word t0,C_word t1){
8877 C_word tmp;
8878 C_word t2;
8879 C_word t3;
8880 C_word t4;
8881 C_word t5;
8882 C_word t6;
8883 C_word t7;
8884 C_word t8;
8885 C_word *a;
8886 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
8887 C_save_and_reclaim_args((void *)trf_13523,2,t0,t1);}
8888 a=C_alloc(8);
8889 if(C_truep(t1)){
8890 t2=C_slot(C_u_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]),C_fix(1));
8891 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13529,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
8892 /* support.scm:1124: chicken.base#open-output-string */
8893 t4=*((C_word*)lf[334]+1);{
8894 C_word av2[2];
8895 av2[0]=t4;
8896 av2[1]=t3;
8897 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8898 else{
8899 t2=C_eqp(((C_word*)t0)[2],lf[335]);
8900 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
8901 if(C_truep(t2)){
8902 t4=t3;
8903 f_13566(t4,t2);}
8904 else{
8905 t4=C_eqp(((C_word*)t0)[2],lf[366]);
8906 if(C_truep(t4)){
8907 t5=t3;
8908 f_13566(t5,t4);}
8909 else{
8910 t5=C_eqp(((C_word*)t0)[2],lf[367]);
8911 if(C_truep(t5)){
8912 t6=t3;
8913 f_13566(t6,t5);}
8914 else{
8915 t6=C_eqp(((C_word*)t0)[2],lf[368]);
8916 if(C_truep(t6)){
8917 t7=t3;
8918 f_13566(t7,t6);}
8919 else{
8920 t7=C_eqp(((C_word*)t0)[2],lf[369]);
8921 t8=t3;
8922 f_13566(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[2],lf[370])));}}}}}}
8923 
8924 /* k13527 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_13529(C_word c,C_word * av)8925 static void C_ccall f_13529(C_word c,C_word *av){
8926 C_word tmp;
8927 C_word t0=av[0];
8928 C_word t1=av[1];
8929 C_word t2;
8930 C_word t3;
8931 C_word t4;
8932 C_word *a;
8933 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
8934 C_save_and_reclaim((void *)f_13529,c,av);}
8935 a=C_alloc(6);
8936 t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[328]);
8937 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
8938 /* support.scm:1124: ##sys#print */
8939 t4=*((C_word*)lf[27]+1);{
8940 C_word *av2;
8941 if(c >= 5) {
8942   av2=av;
8943 } else {
8944   av2=C_alloc(5);
8945 }
8946 av2[0]=t4;
8947 av2[1]=t3;
8948 av2[2]=lf[333];
8949 av2[3]=C_SCHEME_FALSE;
8950 av2[4]=t1;
8951 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
8952 
8953 /* k13533 in k13527 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_13535(C_word c,C_word * av)8954 static void C_ccall f_13535(C_word c,C_word *av){
8955 C_word tmp;
8956 C_word t0=av[0];
8957 C_word t1=av[1];
8958 C_word t2;
8959 C_word t3;
8960 C_word *a;
8961 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
8962 C_save_and_reclaim((void *)f_13535,c,av);}
8963 a=C_alloc(5);
8964 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
8965 /* support.scm:1124: ##sys#print */
8966 t3=*((C_word*)lf[27]+1);{
8967 C_word *av2;
8968 if(c >= 5) {
8969   av2=av;
8970 } else {
8971   av2=C_alloc(5);
8972 }
8973 av2[0]=t3;
8974 av2[1]=t2;
8975 av2[2]=((C_word*)t0)[5];
8976 av2[3]=C_SCHEME_FALSE;
8977 av2[4]=((C_word*)t0)[4];
8978 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
8979 
8980 /* k13536 in k13533 in k13527 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_13538(C_word c,C_word * av)8981 static void C_ccall f_13538(C_word c,C_word *av){
8982 C_word tmp;
8983 C_word t0=av[0];
8984 C_word t1=av[1];
8985 C_word t2;
8986 C_word t3;
8987 C_word *a;
8988 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
8989 C_save_and_reclaim((void *)f_13538,c,av);}
8990 a=C_alloc(5);
8991 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13541,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
8992 /* support.scm:1124: ##sys#print */
8993 t3=*((C_word*)lf[27]+1);{
8994 C_word *av2;
8995 if(c >= 5) {
8996   av2=av;
8997 } else {
8998   av2=C_alloc(5);
8999 }
9000 av2[0]=t3;
9001 av2[1]=t2;
9002 av2[2]=lf[332];
9003 av2[3]=C_SCHEME_FALSE;
9004 av2[4]=((C_word*)t0)[4];
9005 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
9006 
9007 /* k13539 in k13536 in k13533 in k13527 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_13541(C_word c,C_word * av)9008 static void C_ccall f_13541(C_word c,C_word *av){
9009 C_word tmp;
9010 C_word t0=av[0];
9011 C_word t1=av[1];
9012 C_word t2;
9013 C_word t3;
9014 C_word *a;
9015 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
9016 C_save_and_reclaim((void *)f_13541,c,av);}
9017 a=C_alloc(4);
9018 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13544,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9019 /* support.scm:1124: chicken.base#get-output-string */
9020 t3=*((C_word*)lf[331]+1);{
9021 C_word *av2;
9022 if(c >= 3) {
9023   av2=av;
9024 } else {
9025   av2=C_alloc(3);
9026 }
9027 av2[0]=t3;
9028 av2[1]=t2;
9029 av2[2]=((C_word*)t0)[4];
9030 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
9031 
9032 /* k13542 in k13539 in k13536 in k13533 in k13527 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_13544(C_word c,C_word * av)9033 static void C_ccall f_13544(C_word c,C_word *av){
9034 C_word tmp;
9035 C_word t0=av[0];
9036 C_word t1=av[1];
9037 C_word t2;
9038 C_word t3;
9039 C_word *a;
9040 if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
9041 C_save_and_reclaim((void *)f_13544,c,av);}
9042 a=C_alloc(18);
9043 if(C_truep(*((C_word*)lf[10]+1))){
9044 t2=((C_word*)t0)[2];{
9045 C_word *av2=av;
9046 av2[0]=t2;
9047 av2[1]=((C_word*)t0)[3];
9048 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
9049 else{
9050 t2=C_a_i_list(&a,3,lf[329],t1,lf[309]);
9051 t3=((C_word*)t0)[2];{
9052 C_word *av2=av;
9053 av2[0]=t3;
9054 av2[1]=C_a_i_list(&a,3,lf[330],((C_word*)t0)[3],t2);
9055 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
9056 
9057 /* k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_13566(C_word t0,C_word t1)9058 static void C_fcall f_13566(C_word t0,C_word t1){
9059 C_word tmp;
9060 C_word t2;
9061 C_word t3;
9062 C_word t4;
9063 C_word t5;
9064 C_word *a;
9065 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
9066 C_save_and_reclaim_args((void *)trf_13566,2,t0,t1);}
9067 a=C_alloc(7);
9068 if(C_truep(t1)){
9069 t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]);
9070 t3=C_slot(t2,C_fix(1));
9071 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13572,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
9072 /* support.scm:1132: chicken.base#open-output-string */
9073 t5=*((C_word*)lf[334]+1);{
9074 C_word av2[2];
9075 av2[0]=t5;
9076 av2[1]=t4;
9077 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
9078 else{
9079 t2=C_eqp(((C_word*)t0)[2],lf[339]);
9080 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13610,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
9081 if(C_truep(t2)){
9082 t4=t3;
9083 f_13610(t4,t2);}
9084 else{
9085 t4=C_eqp(((C_word*)t0)[2],lf[364]);
9086 t5=t3;
9087 f_13610(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[2],lf[365])));}}}
9088 
9089 /* k13570 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_13572(C_word c,C_word * av)9090 static void C_ccall f_13572(C_word c,C_word *av){
9091 C_word tmp;
9092 C_word t0=av[0];
9093 C_word t1=av[1];
9094 C_word t2;
9095 C_word t3;
9096 C_word t4;
9097 C_word *a;
9098 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
9099 C_save_and_reclaim((void *)f_13572,c,av);}
9100 a=C_alloc(6);
9101 t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[328]);
9102 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
9103 /* support.scm:1132: ##sys#print */
9104 t4=*((C_word*)lf[27]+1);{
9105 C_word *av2;
9106 if(c >= 5) {
9107   av2=av;
9108 } else {
9109   av2=C_alloc(5);
9110 }
9111 av2[0]=t4;
9112 av2[1]=t3;
9113 av2[2]=lf[338];
9114 av2[3]=C_SCHEME_FALSE;
9115 av2[4]=t1;
9116 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
9117 
9118 /* k13576 in k13570 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_13578(C_word c,C_word * av)9119 static void C_ccall f_13578(C_word c,C_word *av){
9120 C_word tmp;
9121 C_word t0=av[0];
9122 C_word t1=av[1];
9123 C_word t2;
9124 C_word t3;
9125 C_word *a;
9126 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
9127 C_save_and_reclaim((void *)f_13578,c,av);}
9128 a=C_alloc(5);
9129 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
9130 /* support.scm:1132: ##sys#print */
9131 t3=*((C_word*)lf[27]+1);{
9132 C_word *av2;
9133 if(c >= 5) {
9134   av2=av;
9135 } else {
9136   av2=C_alloc(5);
9137 }
9138 av2[0]=t3;
9139 av2[1]=t2;
9140 av2[2]=((C_word*)t0)[5];
9141 av2[3]=C_SCHEME_FALSE;
9142 av2[4]=((C_word*)t0)[4];
9143 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
9144 
9145 /* k13579 in k13576 in k13570 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_13581(C_word c,C_word * av)9146 static void C_ccall f_13581(C_word c,C_word *av){
9147 C_word tmp;
9148 C_word t0=av[0];
9149 C_word t1=av[1];
9150 C_word t2;
9151 C_word t3;
9152 C_word *a;
9153 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
9154 C_save_and_reclaim((void *)f_13581,c,av);}
9155 a=C_alloc(5);
9156 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
9157 /* support.scm:1132: ##sys#print */
9158 t3=*((C_word*)lf[27]+1);{
9159 C_word *av2;
9160 if(c >= 5) {
9161   av2=av;
9162 } else {
9163   av2=C_alloc(5);
9164 }
9165 av2[0]=t3;
9166 av2[1]=t2;
9167 av2[2]=lf[337];
9168 av2[3]=C_SCHEME_FALSE;
9169 av2[4]=((C_word*)t0)[4];
9170 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
9171 
9172 /* k13582 in k13579 in k13576 in k13570 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_13584(C_word c,C_word * av)9173 static void C_ccall f_13584(C_word c,C_word *av){
9174 C_word tmp;
9175 C_word t0=av[0];
9176 C_word t1=av[1];
9177 C_word t2;
9178 C_word t3;
9179 C_word *a;
9180 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
9181 C_save_and_reclaim((void *)f_13584,c,av);}
9182 a=C_alloc(4);
9183 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13587,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9184 /* support.scm:1132: chicken.base#get-output-string */
9185 t3=*((C_word*)lf[331]+1);{
9186 C_word *av2;
9187 if(c >= 3) {
9188   av2=av;
9189 } else {
9190   av2=C_alloc(3);
9191 }
9192 av2[0]=t3;
9193 av2[1]=t2;
9194 av2[2]=((C_word*)t0)[4];
9195 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
9196 
9197 /* k13585 in k13582 in k13579 in k13576 in k13570 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in ... */
f_13587(C_word c,C_word * av)9198 static void C_ccall f_13587(C_word c,C_word *av){
9199 C_word tmp;
9200 C_word t0=av[0];
9201 C_word t1=av[1];
9202 C_word t2;
9203 C_word t3;
9204 C_word *a;
9205 if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
9206 C_save_and_reclaim((void *)f_13587,c,av);}
9207 a=C_alloc(18);
9208 if(C_truep(*((C_word*)lf[10]+1))){
9209 t2=((C_word*)t0)[2];{
9210 C_word *av2=av;
9211 av2[0]=t2;
9212 av2[1]=((C_word*)t0)[3];
9213 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
9214 else{
9215 t2=C_a_i_list(&a,3,lf[329],t1,lf[309]);
9216 t3=((C_word*)t0)[2];{
9217 C_word *av2=av;
9218 av2[0]=t3;
9219 av2[1]=C_a_i_list(&a,3,lf[336],((C_word*)t0)[3],t2);
9220 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
9221 
9222 /* k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_13610(C_word t0,C_word t1)9223 static void C_fcall f_13610(C_word t0,C_word t1){
9224 C_word tmp;
9225 C_word t2;
9226 C_word t3;
9227 C_word t4;
9228 C_word t5;
9229 C_word t6;
9230 C_word t7;
9231 C_word *a;
9232 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
9233 C_save_and_reclaim_args((void *)trf_13610,2,t0,t1);}
9234 a=C_alloc(7);
9235 if(C_truep(t1)){
9236 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9237 /* support.scm:1138: chicken.base#gensym */
9238 t3=*((C_word*)lf[97]+1);{
9239 C_word av2[2];
9240 av2[0]=t3;
9241 av2[1]=t2;
9242 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9243 else{
9244 t2=C_eqp(((C_word*)t0)[4],lf[341]);
9245 if(C_truep(t2)){
9246 t3=((C_word*)t0)[3];{
9247 C_word av2[2];
9248 av2[0]=t3;
9249 av2[1]=C_a_i_list(&a,2,lf[340],((C_word*)t0)[2]);
9250 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9251 else{
9252 t3=C_eqp(((C_word*)t0)[4],lf[342]);
9253 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
9254 if(C_truep(t3)){
9255 t5=t4;
9256 f_13654(t5,t3);}
9257 else{
9258 t5=C_eqp(((C_word*)t0)[4],lf[361]);
9259 if(C_truep(t5)){
9260 t6=t4;
9261 f_13654(t6,t5);}
9262 else{
9263 t6=C_eqp(((C_word*)t0)[4],lf[362]);
9264 t7=t4;
9265 f_13654(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[363])));}}}}}
9266 
9267 /* k13611 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_13613(C_word c,C_word * av)9268 static void C_ccall f_13613(C_word c,C_word *av){
9269 C_word tmp;
9270 C_word t0=av[0];
9271 C_word t1=av[1];
9272 C_word t2;
9273 C_word t3;
9274 C_word t4;
9275 C_word t5;
9276 C_word t6;
9277 C_word t7;
9278 C_word *a;
9279 if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
9280 C_save_and_reclaim((void *)f_13613,c,av);}
9281 a=C_alloc(42);
9282 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
9283 t3=C_a_i_list(&a,1,t2);
9284 t4=C_a_i_list(&a,2,lf[340],t1);
9285 t5=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
9286 t6=C_a_i_list(&a,4,lf[317],t1,t4,t5);
9287 t7=((C_word*)t0)[3];{
9288 C_word *av2=av;
9289 av2[0]=t7;
9290 av2[1]=C_a_i_list(&a,3,lf[318],t3,t6);
9291 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
9292 
9293 /* k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_13654(C_word t0,C_word t1)9294 static void C_fcall f_13654(C_word t0,C_word t1){
9295 C_word tmp;
9296 C_word t2;
9297 C_word t3;
9298 C_word t4;
9299 C_word t5;
9300 C_word *a;
9301 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
9302 C_save_and_reclaim_args((void *)trf_13654,2,t0,t1);}
9303 a=C_alloc(7);
9304 if(C_truep(t1)){
9305 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9306 /* support.scm:1146: chicken.base#gensym */
9307 t3=*((C_word*)lf[97]+1);{
9308 C_word av2[2];
9309 av2[0]=t3;
9310 av2[1]=t2;
9311 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9312 else{
9313 t2=C_eqp(((C_word*)t0)[4],lf[345]);
9314 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13699,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
9315 if(C_truep(t2)){
9316 t4=t3;
9317 f_13699(t4,t2);}
9318 else{
9319 t4=C_eqp(((C_word*)t0)[4],lf[359]);
9320 t5=t3;
9321 f_13699(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[360])));}}}
9322 
9323 /* k13655 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_13657(C_word c,C_word * av)9324 static void C_ccall f_13657(C_word c,C_word *av){
9325 C_word tmp;
9326 C_word t0=av[0];
9327 C_word t1=av[1];
9328 C_word t2;
9329 C_word t3;
9330 C_word t4;
9331 C_word t5;
9332 C_word t6;
9333 C_word *a;
9334 if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
9335 C_save_and_reclaim((void *)f_13657,c,av);}
9336 a=C_alloc(26);
9337 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
9338 t3=C_a_i_list(&a,1,t2);
9339 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13672,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
9340 if(C_truep(*((C_word*)lf[10]+1))){
9341 t5=t4;
9342 f_13672(t5,C_a_i_list(&a,2,lf[343],t1));}
9343 else{
9344 t5=C_a_i_list(&a,2,lf[344],t1);
9345 t6=t4;
9346 f_13672(t6,C_a_i_list(&a,2,lf[343],t5));}}
9347 
9348 /* k13670 in k13655 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_13672(C_word t0,C_word t1)9349 static void C_fcall f_13672(C_word t0,C_word t1){
9350 C_word tmp;
9351 C_word t2;
9352 C_word t3;
9353 C_word t4;
9354 C_word *a;
9355 if(C_unlikely(!C_demand(C_calculate_demand(27,0,1)))){
9356 C_save_and_reclaim_args((void *)trf_13672,2,t0,t1);}
9357 a=C_alloc(27);
9358 t2=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
9359 t3=C_a_i_list(&a,4,lf[317],((C_word*)t0)[2],t1,t2);
9360 t4=((C_word*)t0)[3];{
9361 C_word av2[2];
9362 av2[0]=t4;
9363 av2[1]=C_a_i_list(&a,3,lf[318],((C_word*)t0)[4],t3);
9364 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
9365 
9366 /* k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_13699(C_word t0,C_word t1)9367 static void C_fcall f_13699(C_word t0,C_word t1){
9368 C_word tmp;
9369 C_word t2;
9370 C_word t3;
9371 C_word t4;
9372 C_word t5;
9373 C_word *a;
9374 if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
9375 C_save_and_reclaim_args((void *)trf_13699,2,t0,t1);}
9376 a=C_alloc(18);
9377 if(C_truep(t1)){
9378 if(C_truep(*((C_word*)lf[10]+1))){
9379 t2=((C_word*)t0)[2];{
9380 C_word av2[2];
9381 av2[0]=t2;
9382 av2[1]=C_a_i_list(&a,2,lf[343],((C_word*)t0)[3]);
9383 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
9384 else{
9385 t2=C_a_i_list(&a,2,lf[344],((C_word*)t0)[3]);
9386 t3=((C_word*)t0)[2];{
9387 C_word av2[2];
9388 av2[0]=t3;
9389 av2[1]=C_a_i_list(&a,2,lf[343],t2);
9390 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
9391 else{
9392 t2=C_eqp(((C_word*)t0)[4],lf[346]);
9393 if(C_truep(t2)){
9394 if(C_truep(*((C_word*)lf[10]+1))){
9395 t3=C_a_i_list(&a,2,lf[180],((C_word*)t0)[3]);
9396 t4=((C_word*)t0)[2];{
9397 C_word av2[2];
9398 av2[0]=t4;
9399 av2[1]=C_a_i_list(&a,2,lf[343],t3);
9400 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
9401 else{
9402 t3=C_a_i_list(&a,2,lf[180],((C_word*)t0)[3]);
9403 t4=C_a_i_list(&a,2,lf[344],t3);
9404 t5=((C_word*)t0)[2];{
9405 C_word av2[2];
9406 av2[0]=t5;
9407 av2[1]=C_a_i_list(&a,2,lf[343],t4);
9408 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
9409 else{
9410 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13742,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
9411 if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){
9412 /* support.scm:1162: lookup-foreign-type */
9413 t4=*((C_word*)lf[303]+1);{
9414 C_word av2[3];
9415 av2[0]=t4;
9416 av2[1]=t3;
9417 av2[2]=((C_word*)t0)[4];
9418 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
9419 else{
9420 t4=t3;{
9421 C_word av2[2];
9422 av2[0]=t4;
9423 av2[1]=C_SCHEME_FALSE;
9424 f_13742(2,av2);}}}}}
9425 
9426 /* k13740 in k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_13742(C_word c,C_word * av)9427 static void C_ccall f_13742(C_word c,C_word *av){
9428 C_word tmp;
9429 C_word t0=av[0];
9430 C_word t1=av[1];
9431 C_word t2;
9432 C_word t3;
9433 C_word t4;
9434 C_word t5;
9435 C_word t6;
9436 C_word t7;
9437 C_word *a;
9438 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
9439 C_save_and_reclaim((void *)f_13742,c,av);}
9440 a=C_alloc(7);
9441 if(C_truep(t1)){
9442 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13746,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
9443 /* support.scm:1162: g3285 */
9444 t3=t2;
9445 f_13746(t3,((C_word*)t0)[3],t1);}
9446 else{
9447 if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
9448 t2=C_u_i_car(((C_word*)t0)[4]);
9449 t3=C_eqp(t2,lf[347]);
9450 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13773,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
9451 if(C_truep(t3)){
9452 t5=t4;
9453 f_13773(t5,t3);}
9454 else{
9455 t5=C_eqp(t2,lf[357]);
9456 if(C_truep(t5)){
9457 t6=t4;
9458 f_13773(t6,t5);}
9459 else{
9460 t6=C_eqp(t2,lf[358]);
9461 t7=t4;
9462 f_13773(t7,(C_truep(t6)?t6:C_eqp(t2,lf[339])));}}}
9463 else{
9464 t2=((C_word*)t0)[3];{
9465 C_word *av2=av;
9466 av2[0]=t2;
9467 av2[1]=((C_word*)t0)[5];
9468 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
9469 
9470 /* g3285 in k13740 in k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in ... */
f_13746(C_word t0,C_word t1,C_word t2)9471 static void C_fcall f_13746(C_word t0,C_word t1,C_word t2){
9472 C_word tmp;
9473 C_word t3;
9474 C_word *a;
9475 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
9476 C_save_and_reclaim_args((void *)trf_13746,3,t0,t1,t2);}
9477 /* support.scm:1163: next */
9478 t3=((C_word*)t0)[2];{
9479 C_word av2[3];
9480 av2[0]=t3;
9481 av2[1]=t1;
9482 av2[2]=C_i_vector_ref(t2,C_fix(0));
9483 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
9484 
9485 /* k13771 in k13740 in k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in ... */
f_13773(C_word t0,C_word t1)9486 static void C_fcall f_13773(C_word t0,C_word t1){
9487 C_word tmp;
9488 C_word t2;
9489 C_word t3;
9490 C_word t4;
9491 C_word t5;
9492 C_word t6;
9493 C_word t7;
9494 C_word t8;
9495 C_word t9;
9496 C_word t10;
9497 C_word t11;
9498 C_word *a;
9499 if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
9500 C_save_and_reclaim_args((void *)trf_13773,2,t0,t1);}
9501 a=C_alloc(18);
9502 if(C_truep(t1)){
9503 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9504 /* support.scm:1167: chicken.base#gensym */
9505 t3=*((C_word*)lf[97]+1);{
9506 C_word av2[2];
9507 av2[0]=t3;
9508 av2[1]=t2;
9509 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9510 else{
9511 t2=C_eqp(((C_word*)t0)[4],lf[348]);
9512 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[349]));
9513 if(C_truep(t3)){
9514 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9515 /* support.scm:1173: chicken.base#gensym */
9516 t5=*((C_word*)lf[97]+1);{
9517 C_word av2[2];
9518 av2[0]=t5;
9519 av2[1]=t4;
9520 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
9521 else{
9522 t4=C_eqp(((C_word*)t0)[4],lf[314]);
9523 if(C_truep(t4)){
9524 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13847,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9525 /* support.scm:1179: chicken.base#gensym */
9526 t6=*((C_word*)lf[97]+1);{
9527 C_word av2[2];
9528 av2[0]=t6;
9529 av2[1]=t5;
9530 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
9531 else{
9532 t5=C_eqp(((C_word*)t0)[4],lf[319]);
9533 if(C_truep(t5)){
9534 t6=((C_word*)t0)[3];{
9535 C_word av2[2];
9536 av2[0]=t6;
9537 av2[1]=(C_truep(*((C_word*)lf[10]+1))?((C_word*)t0)[2]:C_a_i_list(&a,2,lf[315],((C_word*)t0)[2]));
9538 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
9539 else{
9540 t6=C_eqp(((C_word*)t0)[4],lf[352]);
9541 if(C_truep(t6)){
9542 t7=C_a_i_list(&a,2,lf[316],lf[350]);
9543 t8=((C_word*)t0)[3];{
9544 C_word av2[2];
9545 av2[0]=t8;
9546 av2[1]=C_a_i_list(&a,3,lf[351],((C_word*)t0)[2],t7);
9547 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
9548 else{
9549 t7=C_eqp(((C_word*)t0)[4],lf[353]);
9550 if(C_truep(t7)){
9551 /* support.scm:1192: repeat */
9552 t8=((C_word*)((C_word*)t0)[5])[1];
9553 f_13292(t8,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[6]));}
9554 else{
9555 t8=C_eqp(((C_word*)t0)[4],lf[354]);
9556 if(C_truep(t8)){
9557 if(C_truep(*((C_word*)lf[10]+1))){
9558 t9=((C_word*)t0)[3];{
9559 C_word av2[2];
9560 av2[0]=t9;
9561 av2[1]=((C_word*)t0)[2];
9562 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
9563 else{
9564 t9=C_a_i_list(&a,3,lf[329],lf[355],lf[309]);
9565 t10=((C_word*)t0)[3];{
9566 C_word av2[2];
9567 av2[0]=t10;
9568 av2[1]=C_a_i_list(&a,3,lf[330],((C_word*)t0)[2],t9);
9569 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
9570 else{
9571 t9=C_eqp(((C_word*)t0)[4],lf[356]);
9572 if(C_truep(t9)){
9573 t10=((C_word*)t0)[3];{
9574 C_word av2[2];
9575 av2[0]=t10;
9576 av2[1]=(C_truep(t9)?C_a_i_list(&a,2,lf[340],((C_word*)t0)[2]):((C_word*)t0)[2]);
9577 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
9578 else{
9579 t10=C_eqp(((C_word*)t0)[4],lf[341]);
9580 t11=((C_word*)t0)[3];{
9581 C_word av2[2];
9582 av2[0]=t11;
9583 av2[1]=(C_truep(t10)?C_a_i_list(&a,2,lf[340],((C_word*)t0)[2]):((C_word*)t0)[2]);
9584 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}}}}}}
9585 
9586 /* k13774 in k13771 in k13740 in k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in ... */
f_13776(C_word c,C_word * av)9587 static void C_ccall f_13776(C_word c,C_word *av){
9588 C_word tmp;
9589 C_word t0=av[0];
9590 C_word t1=av[1];
9591 C_word t2;
9592 C_word t3;
9593 C_word t4;
9594 C_word t5;
9595 C_word t6;
9596 C_word t7;
9597 C_word *a;
9598 if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
9599 C_save_and_reclaim((void *)f_13776,c,av);}
9600 a=C_alloc(42);
9601 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
9602 t3=C_a_i_list(&a,1,t2);
9603 t4=C_a_i_list(&a,2,lf[340],t1);
9604 t5=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
9605 t6=C_a_i_list(&a,4,lf[317],t1,t4,t5);
9606 t7=((C_word*)t0)[3];{
9607 C_word *av2=av;
9608 av2[0]=t7;
9609 av2[1]=C_a_i_list(&a,3,lf[318],t3,t6);
9610 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
9611 
9612 /* k13809 in k13771 in k13740 in k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in ... */
f_13811(C_word c,C_word * av)9613 static void C_ccall f_13811(C_word c,C_word *av){
9614 C_word tmp;
9615 C_word t0=av[0];
9616 C_word t1=av[1];
9617 C_word t2;
9618 C_word t3;
9619 C_word t4;
9620 C_word t5;
9621 C_word t6;
9622 C_word t7;
9623 C_word t8;
9624 C_word *a;
9625 if(C_unlikely(!C_demand(C_calculate_demand(51,c,1)))){
9626 C_save_and_reclaim((void *)f_13811,c,av);}
9627 a=C_alloc(51);
9628 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
9629 t3=C_a_i_list(&a,1,t2);
9630 t4=C_a_i_list(&a,2,lf[316],lf[350]);
9631 t5=C_a_i_list(&a,3,lf[351],((C_word*)t0)[2],t4);
9632 t6=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
9633 t7=C_a_i_list(&a,4,lf[317],t1,t5,t6);
9634 t8=((C_word*)t0)[3];{
9635 C_word *av2=av;
9636 av2[0]=t8;
9637 av2[1]=C_a_i_list(&a,3,lf[318],t3,t7);
9638 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
9639 
9640 /* k13845 in k13771 in k13740 in k13697 in k13652 in k13608 in k13564 in k13521 in k13495 in k13453 in k13330 in k13315 in repeat in a13285 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in ... */
f_13847(C_word c,C_word * av)9641 static void C_ccall f_13847(C_word c,C_word *av){
9642 C_word tmp;
9643 C_word t0=av[0];
9644 C_word t1=av[1];
9645 C_word t2;
9646 C_word t3;
9647 C_word t4;
9648 C_word t5;
9649 C_word t6;
9650 C_word t7;
9651 C_word *a;
9652 if(C_unlikely(!C_demand(C_calculate_demand(42,c,1)))){
9653 C_save_and_reclaim((void *)f_13847,c,av);}
9654 a=C_alloc(42);
9655 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
9656 t3=C_a_i_list(&a,1,t2);
9657 t4=(C_truep(*((C_word*)lf[10]+1))?t1:C_a_i_list(&a,2,lf[315],t1));
9658 t5=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
9659 t6=C_a_i_list(&a,4,lf[317],t1,t4,t5);
9660 t7=((C_word*)t0)[3];{
9661 C_word *av2=av;
9662 av2[0]=t7;
9663 av2[1]=C_a_i_list(&a,3,lf[318],t3,t6);
9664 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
9665 
9666 /* a14349 in chicken.compiler.support#foreign-type-check in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14350(C_word c,C_word * av)9667 static void C_ccall f_14350(C_word c,C_word *av){
9668 C_word tmp;
9669 C_word t0=av[0];
9670 C_word t1=av[1];
9671 C_word t2;
9672 C_word *a;
9673 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9674 C_save_and_reclaim((void *)f_14350,c,av);}
9675 /* support.scm:1204: quit-compiling */
9676 t2=*((C_word*)lf[37]+1);{
9677 C_word *av2;
9678 if(c >= 4) {
9679   av2=av;
9680 } else {
9681   av2=C_alloc(4);
9682 }
9683 av2[0]=t2;
9684 av2[1]=t1;
9685 av2[2]=lf[401];
9686 av2[3]=((C_word*)t0)[2];
9687 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
9688 
9689 /* chicken.compiler.support#foreign-type-result-converter in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14356(C_word t1,C_word t2)9690 static void C_fcall f_14356(C_word t1,C_word t2){
9691 C_word tmp;
9692 C_word t3;
9693 C_word t4;
9694 C_word *a;
9695 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
9696 C_save_and_reclaim_args((void *)trf_14356,2,t1,t2);}
9697 a=C_alloc(3);
9698 if(C_truep(C_i_symbolp(t2))){
9699 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14366,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
9700 /* support.scm:1211: lookup-foreign-type */
9701 t4=*((C_word*)lf[303]+1);{
9702 C_word av2[3];
9703 av2[0]=t4;
9704 av2[1]=t3;
9705 av2[2]=t2;
9706 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
9707 else{
9708 t3=t1;{
9709 C_word av2[2];
9710 av2[0]=t3;
9711 av2[1]=C_SCHEME_FALSE;
9712 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
9713 
9714 /* k14364 in chicken.compiler.support#foreign-type-result-converter in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14366(C_word c,C_word * av)9715 static void C_ccall f_14366(C_word c,C_word *av){
9716 C_word tmp;
9717 C_word t0=av[0];
9718 C_word t1=av[1];
9719 C_word t2;
9720 C_word t3;
9721 C_word *a;
9722 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
9723 C_save_and_reclaim((void *)f_14366,c,av);}
9724 if(C_truep(t1)){
9725 t2=C_i_vector_ref(t1,C_fix(2));
9726 t3=((C_word*)t0)[2];{
9727 C_word *av2=av;
9728 av2[0]=t3;
9729 av2[1]=(C_truep(t2)?t2:C_SCHEME_FALSE);
9730 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9731 else{
9732 t2=((C_word*)t0)[2];{
9733 C_word *av2=av;
9734 av2[0]=t2;
9735 av2[1]=C_SCHEME_FALSE;
9736 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
9737 
9738 /* chicken.compiler.support#foreign-type-argument-converter in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14377(C_word t1,C_word t2)9739 static void C_fcall f_14377(C_word t1,C_word t2){
9740 C_word tmp;
9741 C_word t3;
9742 C_word t4;
9743 C_word *a;
9744 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
9745 C_save_and_reclaim_args((void *)trf_14377,2,t1,t2);}
9746 a=C_alloc(3);
9747 if(C_truep(C_i_symbolp(t2))){
9748 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14387,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
9749 /* support.scm:1217: lookup-foreign-type */
9750 t4=*((C_word*)lf[303]+1);{
9751 C_word av2[3];
9752 av2[0]=t4;
9753 av2[1]=t3;
9754 av2[2]=t2;
9755 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
9756 else{
9757 t3=t1;{
9758 C_word av2[2];
9759 av2[0]=t3;
9760 av2[1]=C_SCHEME_FALSE;
9761 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
9762 
9763 /* k14385 in chicken.compiler.support#foreign-type-argument-converter in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14387(C_word c,C_word * av)9764 static void C_ccall f_14387(C_word c,C_word *av){
9765 C_word tmp;
9766 C_word t0=av[0];
9767 C_word t1=av[1];
9768 C_word t2;
9769 C_word t3;
9770 C_word *a;
9771 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
9772 C_save_and_reclaim((void *)f_14387,c,av);}
9773 if(C_truep(t1)){
9774 t2=C_i_vector_ref(t1,C_fix(1));
9775 t3=((C_word*)t0)[2];{
9776 C_word *av2=av;
9777 av2[0]=t3;
9778 av2[1]=(C_truep(t2)?t2:C_SCHEME_FALSE);
9779 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9780 else{
9781 t2=((C_word*)t0)[2];{
9782 C_word *av2=av;
9783 av2[0]=t2;
9784 av2[1]=C_SCHEME_FALSE;
9785 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
9786 
9787 /* chicken.compiler.support#foreign-type-convert-result in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14398(C_word c,C_word * av)9788 static void C_ccall f_14398(C_word c,C_word *av){
9789 C_word tmp;
9790 C_word t0=av[0];
9791 C_word t1=av[1];
9792 C_word t2=av[2];
9793 C_word t3=av[3];
9794 C_word t4;
9795 C_word t5;
9796 C_word *a;
9797 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
9798 C_save_and_reclaim((void *)f_14398,c,av);}
9799 a=C_alloc(4);
9800 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14402,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9801 /* support.scm:1222: foreign-type-result-converter */
9802 f_14356(t4,t3);}
9803 
9804 /* k14400 in chicken.compiler.support#foreign-type-convert-result in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14402(C_word c,C_word * av)9805 static void C_ccall f_14402(C_word c,C_word *av){
9806 C_word tmp;
9807 C_word t0=av[0];
9808 C_word t1=av[1];
9809 C_word t2;
9810 C_word t3;
9811 C_word *a;
9812 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
9813 C_save_and_reclaim((void *)f_14402,c,av);}
9814 a=C_alloc(6);
9815 if(C_truep(t1)){
9816 t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
9817 t3=((C_word*)t0)[3];{
9818 C_word *av2=av;
9819 av2[0]=t3;
9820 av2[1]=(C_truep(t2)?t2:((C_word*)t0)[2]);
9821 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9822 else{
9823 t2=((C_word*)t0)[3];{
9824 C_word *av2=av;
9825 av2[0]=t2;
9826 av2[1]=((C_word*)t0)[2];
9827 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
9828 
9829 /* chicken.compiler.support#foreign-type-convert-argument in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14413(C_word c,C_word * av)9830 static void C_ccall f_14413(C_word c,C_word *av){
9831 C_word tmp;
9832 C_word t0=av[0];
9833 C_word t1=av[1];
9834 C_word t2=av[2];
9835 C_word t3=av[3];
9836 C_word t4;
9837 C_word t5;
9838 C_word *a;
9839 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
9840 C_save_and_reclaim((void *)f_14413,c,av);}
9841 a=C_alloc(4);
9842 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14417,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9843 /* support.scm:1227: foreign-type-argument-converter */
9844 f_14377(t4,t3);}
9845 
9846 /* k14415 in chicken.compiler.support#foreign-type-convert-argument in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14417(C_word c,C_word * av)9847 static void C_ccall f_14417(C_word c,C_word *av){
9848 C_word tmp;
9849 C_word t0=av[0];
9850 C_word t1=av[1];
9851 C_word t2;
9852 C_word t3;
9853 C_word *a;
9854 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
9855 C_save_and_reclaim((void *)f_14417,c,av);}
9856 a=C_alloc(6);
9857 if(C_truep(t1)){
9858 t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
9859 t3=((C_word*)t0)[3];{
9860 C_word *av2=av;
9861 av2[0]=t3;
9862 av2[1]=(C_truep(t2)?t2:((C_word*)t0)[2]);
9863 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9864 else{
9865 t2=((C_word*)t0)[3];{
9866 C_word *av2=av;
9867 av2[0]=t2;
9868 av2[1]=((C_word*)t0)[2];
9869 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
9870 
9871 /* chicken.compiler.support#final-foreign-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14428(C_word c,C_word * av)9872 static void C_ccall f_14428(C_word c,C_word *av){
9873 C_word tmp;
9874 C_word t0=av[0];
9875 C_word t1=av[1];
9876 C_word t2=av[2];
9877 C_word t3;
9878 C_word t4;
9879 C_word t5;
9880 C_word *a;
9881 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
9882 C_save_and_reclaim((void *)f_14428,c,av);}
9883 a=C_alloc(5);
9884 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14434,tmp=(C_word)a,a+=2,tmp);
9885 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14461,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
9886 /* support.scm:1232: follow-without-loop */
9887 f_7445(t1,t2,t3,t4);}
9888 
9889 /* a14433 in chicken.compiler.support#final-foreign-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14434(C_word c,C_word * av)9890 static void C_ccall f_14434(C_word c,C_word *av){
9891 C_word tmp;
9892 C_word t0=av[0];
9893 C_word t1=av[1];
9894 C_word t2=av[2];
9895 C_word t3=av[3];
9896 C_word t4;
9897 C_word t5;
9898 C_word *a;
9899 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
9900 C_save_and_reclaim((void *)f_14434,c,av);}
9901 a=C_alloc(5);
9902 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14438,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
9903 if(C_truep(C_i_symbolp(t2))){
9904 /* support.scm:1235: lookup-foreign-type */
9905 t5=*((C_word*)lf[303]+1);{
9906 C_word *av2=av;
9907 av2[0]=t5;
9908 av2[1]=t4;
9909 av2[2]=t2;
9910 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
9911 else{
9912 t5=t4;{
9913 C_word *av2=av;
9914 av2[0]=t5;
9915 av2[1]=C_SCHEME_FALSE;
9916 f_14438(2,av2);}}}
9917 
9918 /* k14436 in a14433 in chicken.compiler.support#final-foreign-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14438(C_word c,C_word * av)9919 static void C_ccall f_14438(C_word c,C_word *av){
9920 C_word tmp;
9921 C_word t0=av[0];
9922 C_word t1=av[1];
9923 C_word t2;
9924 C_word t3;
9925 C_word *a;
9926 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
9927 C_save_and_reclaim((void *)f_14438,c,av);}
9928 a=C_alloc(3);
9929 if(C_truep(t1)){
9930 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14442,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
9931 /* support.scm:1235: g3380 */
9932 t3=t2;
9933 f_14442(t3,((C_word*)t0)[3],t1);}
9934 else{
9935 t2=((C_word*)t0)[3];{
9936 C_word *av2=av;
9937 av2[0]=t2;
9938 av2[1]=((C_word*)t0)[4];
9939 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
9940 
9941 /* g3380 in k14436 in a14433 in chicken.compiler.support#final-foreign-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14442(C_word t0,C_word t1,C_word t2)9942 static void C_fcall f_14442(C_word t0,C_word t1,C_word t2){
9943 C_word tmp;
9944 C_word t3;
9945 C_word *a;
9946 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
9947 C_save_and_reclaim_args((void *)trf_14442,3,t0,t1,t2);}
9948 /* support.scm:1236: next */
9949 t3=((C_word*)t0)[2];{
9950 C_word av2[3];
9951 av2[0]=t3;
9952 av2[1]=t1;
9953 av2[2]=C_i_vector_ref(t2,C_fix(0));
9954 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
9955 
9956 /* a14460 in chicken.compiler.support#final-foreign-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14461(C_word c,C_word * av)9957 static void C_ccall f_14461(C_word c,C_word *av){
9958 C_word tmp;
9959 C_word t0=av[0];
9960 C_word t1=av[1];
9961 C_word t2;
9962 C_word *a;
9963 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9964 C_save_and_reclaim((void *)f_14461,c,av);}
9965 /* support.scm:1238: quit-compiling */
9966 t2=*((C_word*)lf[37]+1);{
9967 C_word *av2;
9968 if(c >= 4) {
9969   av2=av;
9970 } else {
9971   av2=C_alloc(4);
9972 }
9973 av2[0]=t2;
9974 av2[1]=t1;
9975 av2[2]=lf[407];
9976 av2[3]=((C_word*)t0)[2];
9977 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
9978 
9979 /* chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14467(C_word c,C_word * av)9980 static void C_ccall f_14467(C_word c,C_word *av){
9981 C_word tmp;
9982 C_word t0=av[0];
9983 C_word t1=av[1];
9984 C_word t2=av[2];
9985 C_word t3;
9986 C_word t4;
9987 C_word t5;
9988 C_word t6;
9989 C_word *a;
9990 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
9991 C_save_and_reclaim((void *)f_14467,c,av);}
9992 a=C_alloc(9);
9993 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14470,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
9994 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14479,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
9995 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14936,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
9996 /* support.scm:1246: follow-without-loop */
9997 f_7445(t1,t2,t4,t5);}
9998 
9999 /* err in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14470(C_word t0,C_word t1)10000 static void C_fcall f_14470(C_word t0,C_word t1){
10001 C_word tmp;
10002 C_word t2;
10003 C_word *a;
10004 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
10005 C_save_and_reclaim_args((void *)trf_14470,2,t0,t1);}
10006 /* support.scm:1245: quit-compiling */
10007 t2=*((C_word*)lf[37]+1);{
10008 C_word av2[4];
10009 av2[0]=t2;
10010 av2[1]=t1;
10011 av2[2]=lf[409];
10012 av2[3]=((C_word*)t0)[2];
10013 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
10014 
10015 /* a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14479(C_word c,C_word * av)10016 static void C_ccall f_14479(C_word c,C_word *av){
10017 C_word tmp;
10018 C_word t0=av[0];
10019 C_word t1=av[1];
10020 C_word t2=av[2];
10021 C_word t3=av[3];
10022 C_word t4;
10023 C_word t5;
10024 C_word t6;
10025 C_word t7;
10026 C_word t8;
10027 C_word t9;
10028 C_word t10;
10029 C_word t11;
10030 C_word t12;
10031 C_word t13;
10032 C_word t14;
10033 C_word t15;
10034 C_word t16;
10035 C_word t17;
10036 C_word *a;
10037 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
10038 C_save_and_reclaim((void *)f_14479,c,av);}
10039 a=C_alloc(6);
10040 t4=C_eqp(t2,lf[306]);
10041 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14489,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
10042 if(C_truep(t4)){
10043 t6=t5;
10044 f_14489(t6,t4);}
10045 else{
10046 t6=C_eqp(t2,lf[309]);
10047 if(C_truep(t6)){
10048 t7=t5;
10049 f_14489(t7,t6);}
10050 else{
10051 t7=C_eqp(t2,lf[373]);
10052 if(C_truep(t7)){
10053 t8=t5;
10054 f_14489(t8,t7);}
10055 else{
10056 t8=C_eqp(t2,lf[410]);
10057 if(C_truep(t8)){
10058 t9=t5;
10059 f_14489(t9,t8);}
10060 else{
10061 t9=C_eqp(t2,lf[411]);
10062 if(C_truep(t9)){
10063 t10=t5;
10064 f_14489(t10,t9);}
10065 else{
10066 t10=C_eqp(t2,lf[335]);
10067 if(C_truep(t10)){
10068 t11=t5;
10069 f_14489(t11,t10);}
10070 else{
10071 t11=C_eqp(t2,lf[412]);
10072 if(C_truep(t11)){
10073 t12=t5;
10074 f_14489(t12,t11);}
10075 else{
10076 t12=C_eqp(t2,lf[307]);
10077 if(C_truep(t12)){
10078 t13=t5;
10079 f_14489(t13,t12);}
10080 else{
10081 t13=C_eqp(t2,lf[396]);
10082 if(C_truep(t13)){
10083 t14=t5;
10084 f_14489(t14,t13);}
10085 else{
10086 t14=C_eqp(t2,lf[397]);
10087 if(C_truep(t14)){
10088 t15=t5;
10089 f_14489(t15,t14);}
10090 else{
10091 t15=C_eqp(t2,lf[398]);
10092 if(C_truep(t15)){
10093 t16=t5;
10094 f_14489(t16,t15);}
10095 else{
10096 t16=C_eqp(t2,lf[399]);
10097 t17=t5;
10098 f_14489(t17,(C_truep(t16)?t16:C_eqp(t2,lf[400])));}}}}}}}}}}}}
10099 
10100 /* k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14489(C_word t0,C_word t1)10101 static void C_fcall f_14489(C_word t0,C_word t1){
10102 C_word tmp;
10103 C_word t2;
10104 C_word t3;
10105 C_word t4;
10106 C_word t5;
10107 C_word t6;
10108 C_word t7;
10109 C_word t8;
10110 C_word t9;
10111 C_word t10;
10112 C_word t11;
10113 C_word t12;
10114 C_word t13;
10115 C_word t14;
10116 C_word *a;
10117 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
10118 C_save_and_reclaim_args((void *)trf_14489,2,t0,t1);}
10119 a=C_alloc(6);
10120 if(C_truep(t1)){
10121 t2=((C_word*)t0)[2];{
10122 C_word av2[2];
10123 av2[0]=t2;
10124 av2[1]=C_fix(0);
10125 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
10126 else{
10127 t2=C_eqp(((C_word*)t0)[3],lf[342]);
10128 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10129 if(C_truep(t2)){
10130 t4=t3;
10131 f_14498(t4,t2);}
10132 else{
10133 t4=C_eqp(((C_word*)t0)[3],lf[345]);
10134 if(C_truep(t4)){
10135 t5=t3;
10136 f_14498(t5,t4);}
10137 else{
10138 t5=C_eqp(((C_word*)t0)[3],lf[339]);
10139 if(C_truep(t5)){
10140 t6=t3;
10141 f_14498(t6,t5);}
10142 else{
10143 t6=C_eqp(((C_word*)t0)[3],lf[341]);
10144 if(C_truep(t6)){
10145 t7=t3;
10146 f_14498(t7,t6);}
10147 else{
10148 t7=C_eqp(((C_word*)t0)[3],lf[346]);
10149 if(C_truep(t7)){
10150 t8=t3;
10151 f_14498(t8,t7);}
10152 else{
10153 t8=C_eqp(((C_word*)t0)[3],lf[361]);
10154 if(C_truep(t8)){
10155 t9=t3;
10156 f_14498(t9,t8);}
10157 else{
10158 t9=C_eqp(((C_word*)t0)[3],lf[359]);
10159 if(C_truep(t9)){
10160 t10=t3;
10161 f_14498(t10,t9);}
10162 else{
10163 t10=C_eqp(((C_word*)t0)[3],lf[362]);
10164 if(C_truep(t10)){
10165 t11=t3;
10166 f_14498(t11,t10);}
10167 else{
10168 t11=C_eqp(((C_word*)t0)[3],lf[363]);
10169 if(C_truep(t11)){
10170 t12=t3;
10171 f_14498(t12,t11);}
10172 else{
10173 t12=C_eqp(((C_word*)t0)[3],lf[360]);
10174 if(C_truep(t12)){
10175 t13=t3;
10176 f_14498(t13,t12);}
10177 else{
10178 t13=C_eqp(((C_word*)t0)[3],lf[364]);
10179 t14=t3;
10180 f_14498(t14,(C_truep(t13)?t13:C_eqp(((C_word*)t0)[3],lf[365])));}}}}}}}}}}}}
10181 
10182 /* k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14498(C_word t0,C_word t1)10183 static void C_fcall f_14498(C_word t0,C_word t1){
10184 C_word tmp;
10185 C_word t2;
10186 C_word t3;
10187 C_word t4;
10188 C_word t5;
10189 C_word t6;
10190 C_word t7;
10191 C_word t8;
10192 C_word *a;
10193 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
10194 C_save_and_reclaim_args((void *)trf_14498,2,t0,t1);}
10195 a=C_alloc(6);
10196 if(C_truep(t1)){
10197 /* support.scm:1256: words->bytes */
10198 t2=*((C_word*)lf[68]+1);{
10199 C_word av2[3];
10200 av2[0]=t2;
10201 av2[1]=((C_word*)t0)[2];
10202 av2[2]=C_fix(3);
10203 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10204 else{
10205 t2=C_eqp(((C_word*)t0)[3],lf[367]);
10206 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14510,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10207 if(C_truep(t2)){
10208 t4=t3;
10209 f_14510(t4,t2);}
10210 else{
10211 t4=C_eqp(((C_word*)t0)[3],lf[374]);
10212 if(C_truep(t4)){
10213 t5=t3;
10214 f_14510(t5,t4);}
10215 else{
10216 t5=C_eqp(((C_word*)t0)[3],lf[372]);
10217 if(C_truep(t5)){
10218 t6=t3;
10219 f_14510(t6,t5);}
10220 else{
10221 t6=C_eqp(((C_word*)t0)[3],lf[366]);
10222 if(C_truep(t6)){
10223 t7=t3;
10224 f_14510(t7,t6);}
10225 else{
10226 t7=C_eqp(((C_word*)t0)[3],lf[327]);
10227 t8=t3;
10228 f_14510(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[369])));}}}}}}
10229 
10230 /* k14508 in k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14510(C_word t0,C_word t1)10231 static void C_fcall f_14510(C_word t0,C_word t1){
10232 C_word tmp;
10233 C_word t2;
10234 C_word t3;
10235 C_word t4;
10236 C_word t5;
10237 C_word *a;
10238 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
10239 C_save_and_reclaim_args((void *)trf_14510,2,t0,t1);}
10240 a=C_alloc(6);
10241 if(C_truep(t1)){
10242 /* support.scm:1258: words->bytes */
10243 t2=*((C_word*)lf[68]+1);{
10244 C_word av2[3];
10245 av2[0]=t2;
10246 av2[1]=((C_word*)t0)[2];
10247 av2[2]=C_fix(6);
10248 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10249 else{
10250 t2=C_eqp(((C_word*)t0)[3],lf[311]);
10251 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10252 if(C_truep(t2)){
10253 t4=t3;
10254 f_14522(t4,t2);}
10255 else{
10256 t4=C_eqp(((C_word*)t0)[3],lf[394]);
10257 t5=t3;
10258 f_14522(t5,(C_truep(t4)?t4:C_eqp(((C_word*)t0)[3],lf[395])));}}}
10259 
10260 /* k14520 in k14508 in k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14522(C_word t0,C_word t1)10261 static void C_fcall f_14522(C_word t0,C_word t1){
10262 C_word tmp;
10263 C_word t2;
10264 C_word t3;
10265 C_word t4;
10266 C_word t5;
10267 C_word t6;
10268 C_word *a;
10269 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
10270 C_save_and_reclaim_args((void *)trf_14522,2,t0,t1);}
10271 a=C_alloc(6);
10272 if(C_truep(t1)){
10273 /* support.scm:1260: words->bytes */
10274 t2=*((C_word*)lf[68]+1);{
10275 C_word av2[3];
10276 av2[0]=t2;
10277 av2[1]=((C_word*)t0)[2];
10278 av2[2]=C_fix(4);
10279 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10280 else{
10281 t2=C_eqp(((C_word*)t0)[3],lf[371]);
10282 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14534,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10283 if(C_truep(t2)){
10284 t4=t3;
10285 f_14534(t4,t2);}
10286 else{
10287 t4=C_eqp(((C_word*)t0)[3],lf[370]);
10288 if(C_truep(t4)){
10289 t5=t3;
10290 f_14534(t5,t4);}
10291 else{
10292 t5=C_eqp(((C_word*)t0)[3],lf[368]);
10293 t6=t3;
10294 f_14534(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[3],lf[375])));}}}}
10295 
10296 /* k14532 in k14520 in k14508 in k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14534(C_word t0,C_word t1)10297 static void C_fcall f_14534(C_word t0,C_word t1){
10298 C_word tmp;
10299 C_word t2;
10300 C_word t3;
10301 C_word *a;
10302 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
10303 C_save_and_reclaim_args((void *)trf_14534,2,t0,t1);}
10304 a=C_alloc(6);
10305 if(C_truep(t1)){
10306 /* support.scm:1262: words->bytes */
10307 t2=*((C_word*)lf[68]+1);{
10308 C_word av2[3];
10309 av2[0]=t2;
10310 av2[1]=((C_word*)t0)[2];
10311 av2[2]=C_fix(7);
10312 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10313 else{
10314 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10315 if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){
10316 /* support.scm:1264: lookup-foreign-type */
10317 t3=*((C_word*)lf[303]+1);{
10318 C_word av2[3];
10319 av2[0]=t3;
10320 av2[1]=t2;
10321 av2[2]=((C_word*)t0)[4];
10322 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10323 else{
10324 t3=t2;{
10325 C_word av2[2];
10326 av2[0]=t3;
10327 av2[1]=C_SCHEME_FALSE;
10328 f_14540(2,av2);}}}}
10329 
10330 /* k14538 in k14532 in k14520 in k14508 in k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14540(C_word c,C_word * av)10331 static void C_ccall f_14540(C_word c,C_word *av){
10332 C_word tmp;
10333 C_word t0=av[0];
10334 C_word t1=av[1];
10335 C_word t2;
10336 C_word t3;
10337 C_word t4;
10338 C_word t5;
10339 C_word t6;
10340 C_word t7;
10341 C_word t8;
10342 C_word t9;
10343 C_word t10;
10344 C_word t11;
10345 C_word t12;
10346 C_word *a;
10347 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
10348 C_save_and_reclaim((void *)f_14540,c,av);}
10349 a=C_alloc(7);
10350 if(C_truep(t1)){
10351 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14544,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
10352 /* support.scm:1264: g3501 */
10353 t3=t2;
10354 f_14544(t3,((C_word*)t0)[3],t1);}
10355 else{
10356 if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
10357 t2=C_u_i_car(((C_word*)t0)[4]);
10358 t3=C_eqp(t2,lf[347]);
10359 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14571,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
10360 if(C_truep(t3)){
10361 t5=t4;
10362 f_14571(t5,t3);}
10363 else{
10364 t5=C_eqp(t2,lf[356]);
10365 if(C_truep(t5)){
10366 t6=t4;
10367 f_14571(t6,t5);}
10368 else{
10369 t6=C_eqp(t2,lf[357]);
10370 if(C_truep(t6)){
10371 t7=t4;
10372 f_14571(t7,t6);}
10373 else{
10374 t7=C_eqp(t2,lf[339]);
10375 if(C_truep(t7)){
10376 t8=t4;
10377 f_14571(t8,t7);}
10378 else{
10379 t8=C_eqp(t2,lf[341]);
10380 if(C_truep(t8)){
10381 t9=t4;
10382 f_14571(t9,t8);}
10383 else{
10384 t9=C_eqp(t2,lf[358]);
10385 if(C_truep(t9)){
10386 t10=t4;
10387 f_14571(t10,t9);}
10388 else{
10389 t10=C_eqp(t2,lf[348]);
10390 if(C_truep(t10)){
10391 t11=t4;
10392 f_14571(t11,t10);}
10393 else{
10394 t11=C_eqp(t2,lf[349]);
10395 t12=t4;
10396 f_14571(t12,(C_truep(t11)?t11:C_eqp(t2,lf[352])));}}}}}}}}
10397 else{
10398 /* support.scm:1273: err */
10399 t2=((C_word*)t0)[5];
10400 f_14470(t2,((C_word*)t0)[3]);}}}
10401 
10402 /* g3501 in k14538 in k14532 in k14520 in k14508 in k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_14544(C_word t0,C_word t1,C_word t2)10403 static void C_fcall f_14544(C_word t0,C_word t1,C_word t2){
10404 C_word tmp;
10405 C_word t3;
10406 C_word *a;
10407 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
10408 C_save_and_reclaim_args((void *)trf_14544,3,t0,t1,t2);}
10409 /* support.scm:1265: next */
10410 t3=((C_word*)t0)[2];{
10411 C_word av2[3];
10412 av2[0]=t3;
10413 av2[1]=t1;
10414 av2[2]=C_i_vector_ref(t2,C_fix(0));
10415 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10416 
10417 /* k14569 in k14538 in k14532 in k14520 in k14508 in k14496 in k14487 in a14478 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_14571(C_word t0,C_word t1)10418 static void C_fcall f_14571(C_word t0,C_word t1){
10419 C_word tmp;
10420 C_word t2;
10421 C_word t3;
10422 C_word t4;
10423 C_word *a;
10424 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
10425 C_save_and_reclaim_args((void *)trf_14571,2,t0,t1);}
10426 if(C_truep(t1)){
10427 /* support.scm:1269: words->bytes */
10428 t2=*((C_word*)lf[68]+1);{
10429 C_word av2[3];
10430 av2[0]=t2;
10431 av2[1]=((C_word*)t0)[2];
10432 av2[2]=C_fix(3);
10433 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10434 else{
10435 t2=C_eqp(((C_word*)t0)[3],lf[353]);
10436 if(C_truep(t2)){
10437 /* support.scm:1270: next */
10438 t3=((C_word*)t0)[4];{
10439 C_word av2[3];
10440 av2[0]=t3;
10441 av2[1]=((C_word*)t0)[2];
10442 av2[2]=C_i_cadr(((C_word*)t0)[5]);
10443 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10444 else{
10445 t3=C_eqp(((C_word*)t0)[3],lf[354]);
10446 if(C_truep(t3)){
10447 /* support.scm:1271: words->bytes */
10448 t4=*((C_word*)lf[68]+1);{
10449 C_word av2[3];
10450 av2[0]=t4;
10451 av2[1]=((C_word*)t0)[2];
10452 av2[2]=C_fix(6);
10453 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
10454 else{
10455 /* support.scm:1272: err */
10456 t4=((C_word*)t0)[6];
10457 f_14470(t4,((C_word*)t0)[2]);}}}}
10458 
10459 /* a14935 in chicken.compiler.support#estimate-foreign-result-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14936(C_word c,C_word * av)10460 static void C_ccall f_14936(C_word c,C_word *av){
10461 C_word tmp;
10462 C_word t0=av[0];
10463 C_word t1=av[1];
10464 C_word t2;
10465 C_word *a;
10466 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10467 C_save_and_reclaim((void *)f_14936,c,av);}
10468 /* support.scm:1274: quit-compiling */
10469 t2=*((C_word*)lf[37]+1);{
10470 C_word *av2;
10471 if(c >= 4) {
10472   av2=av;
10473 } else {
10474   av2=C_alloc(4);
10475 }
10476 av2[0]=t2;
10477 av2[1]=t1;
10478 av2[2]=lf[413];
10479 av2[3]=((C_word*)t0)[2];
10480 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
10481 
10482 /* chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14942(C_word c,C_word * av)10483 static void C_ccall f_14942(C_word c,C_word *av){
10484 C_word tmp;
10485 C_word t0=av[0];
10486 C_word t1=av[1];
10487 C_word t2=av[2];
10488 C_word t3;
10489 C_word t4;
10490 C_word t5;
10491 C_word *a;
10492 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
10493 C_save_and_reclaim((void *)f_14942,c,av);}
10494 a=C_alloc(5);
10495 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14954,tmp=(C_word)a,a+=2,tmp);
10496 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15386,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
10497 /* support.scm:1279: follow-without-loop */
10498 f_7445(t1,t2,t3,t4);}
10499 
10500 /* a14953 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14954(C_word c,C_word * av)10501 static void C_ccall f_14954(C_word c,C_word *av){
10502 C_word tmp;
10503 C_word t0=av[0];
10504 C_word t1=av[1];
10505 C_word t2=av[2];
10506 C_word t3=av[3];
10507 C_word t4;
10508 C_word t5;
10509 C_word t6;
10510 C_word t7;
10511 C_word t8;
10512 C_word t9;
10513 C_word t10;
10514 C_word t11;
10515 C_word t12;
10516 C_word t13;
10517 C_word t14;
10518 C_word t15;
10519 C_word t16;
10520 C_word t17;
10521 C_word t18;
10522 C_word t19;
10523 C_word t20;
10524 C_word t21;
10525 C_word t22;
10526 C_word t23;
10527 C_word t24;
10528 C_word t25;
10529 C_word t26;
10530 C_word t27;
10531 C_word t28;
10532 C_word t29;
10533 C_word t30;
10534 C_word t31;
10535 C_word t32;
10536 C_word t33;
10537 C_word t34;
10538 C_word t35;
10539 C_word t36;
10540 C_word *a;
10541 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
10542 C_save_and_reclaim((void *)f_14954,c,av);}
10543 a=C_alloc(5);
10544 t4=C_eqp(t2,lf[306]);
10545 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14964,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
10546 if(C_truep(t4)){
10547 t6=t5;
10548 f_14964(t6,t4);}
10549 else{
10550 t6=C_eqp(t2,lf[309]);
10551 if(C_truep(t6)){
10552 t7=t5;
10553 f_14964(t7,t6);}
10554 else{
10555 t7=C_eqp(t2,lf[373]);
10556 if(C_truep(t7)){
10557 t8=t5;
10558 f_14964(t8,t7);}
10559 else{
10560 t8=C_eqp(t2,lf[410]);
10561 if(C_truep(t8)){
10562 t9=t5;
10563 f_14964(t9,t8);}
10564 else{
10565 t9=C_eqp(t2,lf[335]);
10566 if(C_truep(t9)){
10567 t10=t5;
10568 f_14964(t10,t9);}
10569 else{
10570 t10=C_eqp(t2,lf[307]);
10571 if(C_truep(t10)){
10572 t11=t5;
10573 f_14964(t11,t10);}
10574 else{
10575 t11=C_eqp(t2,lf[396]);
10576 if(C_truep(t11)){
10577 t12=t5;
10578 f_14964(t12,t11);}
10579 else{
10580 t12=C_eqp(t2,lf[374]);
10581 if(C_truep(t12)){
10582 t13=t5;
10583 f_14964(t13,t12);}
10584 else{
10585 t13=C_eqp(t2,lf[366]);
10586 if(C_truep(t13)){
10587 t14=t5;
10588 f_14964(t14,t13);}
10589 else{
10590 t14=C_eqp(t2,lf[397]);
10591 if(C_truep(t14)){
10592 t15=t5;
10593 f_14964(t15,t14);}
10594 else{
10595 t15=C_eqp(t2,lf[398]);
10596 if(C_truep(t15)){
10597 t16=t5;
10598 f_14964(t16,t15);}
10599 else{
10600 t16=C_eqp(t2,lf[339]);
10601 if(C_truep(t16)){
10602 t17=t5;
10603 f_14964(t17,t16);}
10604 else{
10605 t17=C_eqp(t2,lf[341]);
10606 if(C_truep(t17)){
10607 t18=t5;
10608 f_14964(t18,t17);}
10609 else{
10610 t18=C_eqp(t2,lf[367]);
10611 if(C_truep(t18)){
10612 t19=t5;
10613 f_14964(t19,t18);}
10614 else{
10615 t19=C_eqp(t2,lf[372]);
10616 if(C_truep(t19)){
10617 t20=t5;
10618 f_14964(t20,t19);}
10619 else{
10620 t20=C_eqp(t2,lf[311]);
10621 if(C_truep(t20)){
10622 t21=t5;
10623 f_14964(t21,t20);}
10624 else{
10625 t21=C_eqp(t2,lf[342]);
10626 if(C_truep(t21)){
10627 t22=t5;
10628 f_14964(t22,t21);}
10629 else{
10630 t22=C_eqp(t2,lf[346]);
10631 if(C_truep(t22)){
10632 t23=t5;
10633 f_14964(t23,t22);}
10634 else{
10635 t23=C_eqp(t2,lf[314]);
10636 if(C_truep(t23)){
10637 t24=t5;
10638 f_14964(t24,t23);}
10639 else{
10640 t24=C_eqp(t2,lf[319]);
10641 if(C_truep(t24)){
10642 t25=t5;
10643 f_14964(t25,t24);}
10644 else{
10645 t25=C_eqp(t2,lf[399]);
10646 if(C_truep(t25)){
10647 t26=t5;
10648 f_14964(t26,t25);}
10649 else{
10650 t26=C_eqp(t2,lf[400]);
10651 if(C_truep(t26)){
10652 t27=t5;
10653 f_14964(t27,t26);}
10654 else{
10655 t27=C_eqp(t2,lf[327]);
10656 if(C_truep(t27)){
10657 t28=t5;
10658 f_14964(t28,t27);}
10659 else{
10660 t28=C_eqp(t2,lf[369]);
10661 if(C_truep(t28)){
10662 t29=t5;
10663 f_14964(t29,t28);}
10664 else{
10665 t29=C_eqp(t2,lf[362]);
10666 if(C_truep(t29)){
10667 t30=t5;
10668 f_14964(t30,t29);}
10669 else{
10670 t30=C_eqp(t2,lf[363]);
10671 if(C_truep(t30)){
10672 t31=t5;
10673 f_14964(t31,t30);}
10674 else{
10675 t31=C_eqp(t2,lf[360]);
10676 if(C_truep(t31)){
10677 t32=t5;
10678 f_14964(t32,t31);}
10679 else{
10680 t32=C_eqp(t2,lf[345]);
10681 if(C_truep(t32)){
10682 t33=t5;
10683 f_14964(t33,t32);}
10684 else{
10685 t33=C_eqp(t2,lf[361]);
10686 if(C_truep(t33)){
10687 t34=t5;
10688 f_14964(t34,t33);}
10689 else{
10690 t34=C_eqp(t2,lf[359]);
10691 if(C_truep(t34)){
10692 t35=t5;
10693 f_14964(t35,t34);}
10694 else{
10695 t35=C_eqp(t2,lf[364]);
10696 t36=t5;
10697 f_14964(t36,(C_truep(t35)?t35:C_eqp(t2,lf[365])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
10698 
10699 /* k14962 in a14953 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14964(C_word t0,C_word t1)10700 static void C_fcall f_14964(C_word t0,C_word t1){
10701 C_word tmp;
10702 C_word t2;
10703 C_word t3;
10704 C_word t4;
10705 C_word t5;
10706 C_word t6;
10707 C_word t7;
10708 C_word *a;
10709 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
10710 C_save_and_reclaim_args((void *)trf_14964,2,t0,t1);}
10711 a=C_alloc(5);
10712 if(C_truep(t1)){
10713 /* support.scm:1288: words->bytes */
10714 t2=*((C_word*)lf[68]+1);{
10715 C_word av2[3];
10716 av2[0]=t2;
10717 av2[1]=((C_word*)t0)[2];
10718 av2[2]=C_fix(1);
10719 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10720 else{
10721 t2=C_eqp(((C_word*)t0)[3],lf[394]);
10722 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
10723 if(C_truep(t2)){
10724 t4=t3;
10725 f_14976(t4,t2);}
10726 else{
10727 t4=C_eqp(((C_word*)t0)[3],lf[371]);
10728 if(C_truep(t4)){
10729 t5=t3;
10730 f_14976(t5,t4);}
10731 else{
10732 t5=C_eqp(((C_word*)t0)[3],lf[370]);
10733 if(C_truep(t5)){
10734 t6=t3;
10735 f_14976(t6,t5);}
10736 else{
10737 t6=C_eqp(((C_word*)t0)[3],lf[368]);
10738 t7=t3;
10739 f_14976(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[375])));}}}}}
10740 
10741 /* k14974 in k14962 in a14953 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14976(C_word t0,C_word t1)10742 static void C_fcall f_14976(C_word t0,C_word t1){
10743 C_word tmp;
10744 C_word t2;
10745 C_word t3;
10746 C_word *a;
10747 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
10748 C_save_and_reclaim_args((void *)trf_14976,2,t0,t1);}
10749 a=C_alloc(5);
10750 if(C_truep(t1)){
10751 /* support.scm:1290: words->bytes */
10752 t2=*((C_word*)lf[68]+1);{
10753 C_word av2[3];
10754 av2[0]=t2;
10755 av2[1]=((C_word*)t0)[2];
10756 av2[2]=C_fix(2);
10757 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10758 else{
10759 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14982,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
10760 if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){
10761 /* support.scm:1292: lookup-foreign-type */
10762 t3=*((C_word*)lf[303]+1);{
10763 C_word av2[3];
10764 av2[0]=t3;
10765 av2[1]=t2;
10766 av2[2]=((C_word*)t0)[4];
10767 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10768 else{
10769 t3=t2;{
10770 C_word av2[2];
10771 av2[0]=t3;
10772 av2[1]=C_SCHEME_FALSE;
10773 f_14982(2,av2);}}}}
10774 
10775 /* k14980 in k14974 in k14962 in a14953 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14982(C_word c,C_word * av)10776 static void C_ccall f_14982(C_word c,C_word *av){
10777 C_word tmp;
10778 C_word t0=av[0];
10779 C_word t1=av[1];
10780 C_word t2;
10781 C_word t3;
10782 C_word t4;
10783 C_word t5;
10784 C_word t6;
10785 C_word t7;
10786 C_word t8;
10787 C_word t9;
10788 C_word t10;
10789 C_word t11;
10790 C_word t12;
10791 C_word *a;
10792 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
10793 C_save_and_reclaim((void *)f_14982,c,av);}
10794 a=C_alloc(6);
10795 if(C_truep(t1)){
10796 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14986,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
10797 /* support.scm:1292: g3659 */
10798 t3=t2;
10799 f_14986(t3,((C_word*)t0)[3],t1);}
10800 else{
10801 if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
10802 t2=C_u_i_car(((C_word*)t0)[4]);
10803 t3=C_eqp(t2,lf[347]);
10804 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15013,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
10805 if(C_truep(t3)){
10806 t5=t4;
10807 f_15013(t5,t3);}
10808 else{
10809 t5=C_eqp(t2,lf[356]);
10810 if(C_truep(t5)){
10811 t6=t4;
10812 f_15013(t6,t5);}
10813 else{
10814 t6=C_eqp(t2,lf[357]);
10815 if(C_truep(t6)){
10816 t7=t4;
10817 f_15013(t7,t6);}
10818 else{
10819 t7=C_eqp(t2,lf[339]);
10820 if(C_truep(t7)){
10821 t8=t4;
10822 f_15013(t8,t7);}
10823 else{
10824 t8=C_eqp(t2,lf[341]);
10825 if(C_truep(t8)){
10826 t9=t4;
10827 f_15013(t9,t8);}
10828 else{
10829 t9=C_eqp(t2,lf[358]);
10830 if(C_truep(t9)){
10831 t10=t4;
10832 f_15013(t10,t9);}
10833 else{
10834 t10=C_eqp(t2,lf[314]);
10835 if(C_truep(t10)){
10836 t11=t4;
10837 f_15013(t11,t10);}
10838 else{
10839 t11=C_eqp(t2,lf[319]);
10840 t12=t4;
10841 f_15013(t12,(C_truep(t11)?t11:C_eqp(t2,lf[354])));}}}}}}}}
10842 else{
10843 /* support.scm:1278: quit-compiling */
10844 t2=*((C_word*)lf[37]+1);{
10845 C_word *av2;
10846 if(c >= 4) {
10847   av2=av;
10848 } else {
10849   av2=C_alloc(4);
10850 }
10851 av2[0]=t2;
10852 av2[1]=((C_word*)t0)[3];
10853 av2[2]=lf[415];
10854 av2[3]=((C_word*)t0)[4];
10855 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}}
10856 
10857 /* g3659 in k14980 in k14974 in k14962 in a14953 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_14986(C_word t0,C_word t1,C_word t2)10858 static void C_fcall f_14986(C_word t0,C_word t1,C_word t2){
10859 C_word tmp;
10860 C_word t3;
10861 C_word *a;
10862 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
10863 C_save_and_reclaim_args((void *)trf_14986,3,t0,t1,t2);}
10864 /* support.scm:1293: next */
10865 t3=((C_word*)t0)[2];{
10866 C_word av2[3];
10867 av2[0]=t3;
10868 av2[1]=t1;
10869 av2[2]=C_i_vector_ref(t2,C_fix(0));
10870 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10871 
10872 /* k15011 in k14980 in k14974 in k14962 in a14953 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15013(C_word t0,C_word t1)10873 static void C_fcall f_15013(C_word t0,C_word t1){
10874 C_word tmp;
10875 C_word t2;
10876 C_word t3;
10877 C_word *a;
10878 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
10879 C_save_and_reclaim_args((void *)trf_15013,2,t0,t1);}
10880 if(C_truep(t1)){
10881 /* support.scm:1298: words->bytes */
10882 t2=*((C_word*)lf[68]+1);{
10883 C_word av2[3];
10884 av2[0]=t2;
10885 av2[1]=((C_word*)t0)[2];
10886 av2[2]=C_fix(1);
10887 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10888 else{
10889 t2=C_eqp(((C_word*)t0)[3],lf[353]);
10890 if(C_truep(t2)){
10891 /* support.scm:1299: next */
10892 t3=((C_word*)t0)[4];{
10893 C_word av2[3];
10894 av2[0]=t3;
10895 av2[1]=((C_word*)t0)[2];
10896 av2[2]=C_i_cadr(((C_word*)t0)[5]);
10897 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10898 else{
10899 /* support.scm:1278: quit-compiling */
10900 t3=*((C_word*)lf[37]+1);{
10901 C_word av2[4];
10902 av2[0]=t3;
10903 av2[1]=((C_word*)t0)[2];
10904 av2[2]=lf[415];
10905 av2[3]=((C_word*)t0)[5];
10906 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}
10907 
10908 /* a15385 in chicken.compiler.support#estimate-foreign-result-location-size in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15386(C_word c,C_word * av)10909 static void C_ccall f_15386(C_word c,C_word *av){
10910 C_word tmp;
10911 C_word t0=av[0];
10912 C_word t1=av[1];
10913 C_word t2;
10914 C_word *a;
10915 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10916 C_save_and_reclaim((void *)f_15386,c,av);}
10917 /* support.scm:1302: quit-compiling */
10918 t2=*((C_word*)lf[37]+1);{
10919 C_word *av2;
10920 if(c >= 4) {
10921   av2=av;
10922 } else {
10923   av2=C_alloc(4);
10924 }
10925 av2[0]=t2;
10926 av2[1]=t1;
10927 av2[2]=lf[416];
10928 av2[3]=((C_word*)t0)[2];
10929 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
10930 
10931 /* chicken.compiler.support#finish-foreign-result in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15392(C_word c,C_word * av)10932 static void C_ccall f_15392(C_word c,C_word *av){
10933 C_word tmp;
10934 C_word t0=av[0];
10935 C_word t1=av[1];
10936 C_word t2=av[2];
10937 C_word t3=av[3];
10938 C_word t4;
10939 C_word t5;
10940 C_word *a;
10941 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
10942 C_save_and_reclaim((void *)f_15392,c,av);}
10943 a=C_alloc(4);
10944 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15396,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
10945 /* support.scm:1308: chicken.syntax#strip-syntax */
10946 t5=*((C_word*)lf[430]+1);{
10947 C_word *av2=av;
10948 av2[0]=t5;
10949 av2[1]=t4;
10950 av2[2]=t2;
10951 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
10952 
10953 /* k15394 in chicken.compiler.support#finish-foreign-result in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15396(C_word c,C_word * av)10954 static void C_ccall f_15396(C_word c,C_word *av){
10955 C_word tmp;
10956 C_word t0=av[0];
10957 C_word t1=av[1];
10958 C_word t2;
10959 C_word t3;
10960 C_word t4;
10961 C_word t5;
10962 C_word t6;
10963 C_word t7;
10964 C_word t8;
10965 C_word t9;
10966 C_word t10;
10967 C_word t11;
10968 C_word t12;
10969 C_word t13;
10970 C_word t14;
10971 C_word t15;
10972 C_word t16;
10973 C_word t17;
10974 C_word *a;
10975 if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
10976 C_save_and_reclaim((void *)f_15396,c,av);}
10977 a=C_alloc(21);
10978 t2=C_eqp(t1,lf[342]);
10979 t3=(C_truep(t2)?t2:C_eqp(t1,lf[362]));
10980 if(C_truep(t3)){
10981 t4=C_a_i_list(&a,2,lf[316],C_fix(0));
10982 t5=((C_word*)t0)[2];{
10983 C_word *av2=av;
10984 av2[0]=t5;
10985 av2[1]=C_a_i_list(&a,3,lf[418],((C_word*)t0)[3],t4);
10986 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
10987 else{
10988 t4=C_eqp(t1,lf[345]);
10989 if(C_truep(t4)){
10990 t5=C_a_i_list(&a,2,lf[316],C_fix(0));
10991 t6=((C_word*)t0)[2];{
10992 C_word *av2=av;
10993 av2[0]=t6;
10994 av2[1]=C_a_i_list(&a,3,lf[419],((C_word*)t0)[3],t5);
10995 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
10996 else{
10997 t5=C_eqp(t1,lf[361]);
10998 t6=(C_truep(t5)?t5:C_eqp(t1,lf[363]));
10999 if(C_truep(t6)){
11000 t7=C_a_i_list(&a,2,lf[316],C_fix(0));
11001 t8=((C_word*)t0)[2];{
11002 C_word *av2=av;
11003 av2[0]=t8;
11004 av2[1]=C_a_i_list(&a,3,lf[420],((C_word*)t0)[3],t7);
11005 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11006 else{
11007 t7=C_eqp(t1,lf[359]);
11008 t8=(C_truep(t7)?t7:C_eqp(t1,lf[360]));
11009 if(C_truep(t8)){
11010 t9=C_a_i_list(&a,2,lf[316],C_fix(0));
11011 t10=((C_word*)t0)[2];{
11012 C_word *av2=av;
11013 av2[0]=t10;
11014 av2[1]=C_a_i_list(&a,3,lf[421],((C_word*)t0)[3],t9);
11015 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11016 else{
11017 t9=C_eqp(t1,lf[346]);
11018 if(C_truep(t9)){
11019 t10=C_a_i_list(&a,2,lf[316],C_fix(0));
11020 t11=C_a_i_list(&a,3,lf[418],((C_word*)t0)[3],t10);
11021 t12=((C_word*)t0)[2];{
11022 C_word *av2=av;
11023 av2[0]=t12;
11024 av2[1]=C_a_i_list(&a,2,lf[422],t11);
11025 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
11026 else{
11027 t10=C_eqp(t1,lf[364]);
11028 if(C_truep(t10)){
11029 t11=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
11030 t12=((C_word*)t0)[2];{
11031 C_word *av2=av;
11032 av2[0]=t12;
11033 av2[1]=C_a_i_list(&a,3,lf[423],((C_word*)t0)[3],t11);
11034 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
11035 else{
11036 t11=C_eqp(t1,lf[365]);
11037 if(C_truep(t11)){
11038 t12=C_a_i_list(&a,2,lf[316],C_SCHEME_FALSE);
11039 t13=((C_word*)t0)[2];{
11040 C_word *av2=av;
11041 av2[0]=t13;
11042 av2[1]=C_a_i_list(&a,3,lf[424],((C_word*)t0)[3],t12);
11043 ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
11044 else{
11045 if(C_truep(C_i_listp(t1))){
11046 t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15512,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
11047 t13=C_i_car(t1);
11048 t14=C_eqp(t13,lf[353]);
11049 if(C_truep(t14)){
11050 t15=C_i_length(t1);
11051 t16=C_eqp(C_fix(2),t15);
11052 t17=t12;
11053 f_15512(t17,(C_truep(t16)?C_u_i_memq(C_i_cadr(t1),lf[429]):C_SCHEME_FALSE));}
11054 else{
11055 t15=t12;
11056 f_15512(t15,C_SCHEME_FALSE);}}
11057 else{
11058 t12=((C_word*)t0)[2];{
11059 C_word *av2=av;
11060 av2[0]=t12;
11061 av2[1]=((C_word*)t0)[3];
11062 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}}}}}}
11063 
11064 /* k15510 in k15394 in chicken.compiler.support#finish-foreign-result in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15512(C_word t0,C_word t1)11065 static void C_fcall f_15512(C_word t0,C_word t1){
11066 C_word tmp;
11067 C_word t2;
11068 C_word t3;
11069 C_word t4;
11070 C_word t5;
11071 C_word t6;
11072 C_word t7;
11073 C_word t8;
11074 C_word t9;
11075 C_word t10;
11076 C_word *a;
11077 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
11078 C_save_and_reclaim_args((void *)trf_15512,2,t0,t1);}
11079 a=C_alloc(18);
11080 if(C_truep(t1)){
11081 /* support.scm:1325: finish-foreign-result */
11082 t2=*((C_word*)lf[417]+1);{
11083 C_word av2[4];
11084 av2[0]=t2;
11085 av2[1]=((C_word*)t0)[2];
11086 av2[2]=C_i_cadr(((C_word*)t0)[3]);
11087 av2[3]=((C_word*)t0)[4];
11088 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
11089 else{
11090 t2=C_i_length(((C_word*)t0)[3]);
11091 t3=C_eqp(C_fix(3),t2);
11092 if(C_truep(t3)){
11093 t4=C_i_car(((C_word*)t0)[3]);
11094 t5=C_eqp(t4,lf[348]);
11095 t6=(C_truep(t5)?t5:C_eqp(t4,lf[349]));
11096 if(C_truep(t6)){
11097 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15540,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
11098 /* support.scm:1329: chicken.base#gensym */
11099 t8=*((C_word*)lf[97]+1);{
11100 C_word av2[2];
11101 av2[0]=t8;
11102 av2[1]=t7;
11103 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11104 else{
11105 t7=C_eqp(t4,lf[352]);
11106 if(C_truep(t7)){
11107 t8=C_i_caddr(((C_word*)t0)[3]);
11108 t9=C_a_i_list(&a,2,lf[316],lf[350]);
11109 t10=((C_word*)t0)[2];{
11110 C_word av2[2];
11111 av2[0]=t10;
11112 av2[1]=C_a_i_list(&a,4,lf[427],t8,t9,((C_word*)t0)[4]);
11113 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11114 else{
11115 t8=((C_word*)t0)[2];{
11116 C_word av2[2];
11117 av2[0]=t8;
11118 av2[1]=((C_word*)t0)[4];
11119 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}
11120 else{
11121 t4=((C_word*)t0)[2];{
11122 C_word av2[2];
11123 av2[0]=t4;
11124 av2[1]=((C_word*)t0)[4];
11125 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
11126 
11127 /* k15538 in k15510 in k15394 in chicken.compiler.support#finish-foreign-result in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15540(C_word c,C_word * av)11128 static void C_ccall f_15540(C_word c,C_word *av){
11129 C_word tmp;
11130 C_word t0=av[0];
11131 C_word t1=av[1];
11132 C_word t2;
11133 C_word t3;
11134 C_word t4;
11135 C_word t5;
11136 C_word t6;
11137 C_word t7;
11138 C_word t8;
11139 C_word t9;
11140 C_word t10;
11141 C_word *a;
11142 if(C_unlikely(!C_demand(C_calculate_demand(60,c,1)))){
11143 C_save_and_reclaim((void *)f_15540,c,av);}
11144 a=C_alloc(60);
11145 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
11146 t3=C_a_i_list(&a,1,t2);
11147 t4=C_a_i_list(&a,2,lf[425],t1);
11148 t5=C_a_i_list(&a,2,lf[426],t4);
11149 t6=C_i_caddr(((C_word*)t0)[3]);
11150 t7=C_a_i_list(&a,2,lf[316],lf[350]);
11151 t8=C_a_i_list(&a,4,lf[427],t6,t7,t1);
11152 t9=C_a_i_list(&a,4,lf[428],t1,t5,t8);
11153 t10=((C_word*)t0)[4];{
11154 C_word *av2=av;
11155 av2[0]=t10;
11156 av2[1]=C_a_i_list(&a,3,lf[96],t3,t9);
11157 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11158 
11159 /* chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15660(C_word c,C_word * av)11160 static void C_ccall f_15660(C_word c,C_word *av){
11161 C_word tmp;
11162 C_word t0=av[0];
11163 C_word t1=av[1];
11164 C_word t2=av[2];
11165 C_word t3=av[3];
11166 C_word t4;
11167 C_word t5;
11168 C_word t6;
11169 C_word *a;
11170 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
11171 C_save_and_reclaim((void *)f_15660,c,av);}
11172 a=C_alloc(5);
11173 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15667,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
11174 t5=C_eqp(t3,lf[433]);
11175 if(C_truep(t5)){
11176 /* support.scm:1348: foreign-type-argument-converter */
11177 f_14377(t4,t2);}
11178 else{
11179 t6=t4;{
11180 C_word *av2=av;
11181 av2[0]=t6;
11182 av2[1]=C_SCHEME_FALSE;
11183 f_15667(2,av2);}}}
11184 
11185 /* k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15667(C_word c,C_word * av)11186 static void C_ccall f_15667(C_word c,C_word *av){
11187 C_word tmp;
11188 C_word t0=av[0];
11189 C_word t1=av[1];
11190 C_word t2;
11191 C_word t3;
11192 C_word t4;
11193 C_word *a;
11194 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
11195 C_save_and_reclaim((void *)f_15667,c,av);}
11196 a=C_alloc(5);
11197 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15670,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
11198 if(C_truep(t1)){
11199 t3=t2;{
11200 C_word *av2=av;
11201 av2[0]=t3;
11202 av2[1]=t1;
11203 f_15670(2,av2);}}
11204 else{
11205 t3=C_eqp(((C_word*)t0)[3],lf[458]);
11206 if(C_truep(t3)){
11207 /* support.scm:1349: foreign-type-result-converter */
11208 f_14356(t2,((C_word*)t0)[4]);}
11209 else{
11210 t4=t2;{
11211 C_word *av2=av;
11212 av2[0]=t4;
11213 av2[1]=C_SCHEME_FALSE;
11214 f_15670(2,av2);}}}}
11215 
11216 /* k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15670(C_word c,C_word * av)11217 static void C_ccall f_15670(C_word c,C_word *av){
11218 C_word tmp;
11219 C_word t0=av[0];
11220 C_word t1=av[1];
11221 C_word t2;
11222 C_word t3;
11223 C_word *a;
11224 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
11225 C_save_and_reclaim((void *)f_15670,c,av);}
11226 a=C_alloc(5);
11227 if(C_truep(t1)){
11228 t2=((C_word*)t0)[2];{
11229 C_word *av2=av;
11230 av2[0]=t2;
11231 av2[1]=lf[170];
11232 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11233 else{
11234 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
11235 /* support.scm:1353: final-foreign-type */
11236 t3=*((C_word*)lf[406]+1);{
11237 C_word *av2;
11238 if(c >= 3) {
11239   av2=av;
11240 } else {
11241   av2=C_alloc(3);
11242 }
11243 av2[0]=t3;
11244 av2[1]=t2;
11245 av2[2]=((C_word*)t0)[4];
11246 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
11247 
11248 /* k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15673(C_word c,C_word * av)11249 static void C_ccall f_15673(C_word c,C_word *av){
11250 C_word tmp;
11251 C_word t0=av[0];
11252 C_word t1=av[1];
11253 C_word t2;
11254 C_word t3;
11255 C_word t4;
11256 C_word t5;
11257 C_word t6;
11258 C_word t7;
11259 C_word t8;
11260 C_word t9;
11261 C_word t10;
11262 C_word t11;
11263 C_word t12;
11264 C_word t13;
11265 C_word *a;
11266 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
11267 C_save_and_reclaim((void *)f_15673,c,av);}
11268 a=C_alloc(6);
11269 t2=C_eqp(t1,lf[411]);
11270 if(C_truep(t2)){
11271 t3=((C_word*)t0)[2];{
11272 C_word *av2=av;
11273 av2[0]=t3;
11274 av2[1]=lf[432];
11275 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11276 else{
11277 t3=C_eqp(t1,lf[306]);
11278 t4=(C_truep(t3)?t3:C_eqp(t1,lf[307]));
11279 if(C_truep(t4)){
11280 t5=((C_word*)t0)[2];{
11281 C_word *av2=av;
11282 av2[0]=t5;
11283 av2[1]=lf[306];
11284 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
11285 else{
11286 t5=C_eqp(t1,lf[309]);
11287 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15697,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
11288 if(C_truep(t5)){
11289 t7=t6;
11290 f_15697(t7,t5);}
11291 else{
11292 t7=C_eqp(t1,lf[396]);
11293 if(C_truep(t7)){
11294 t8=t6;
11295 f_15697(t8,t7);}
11296 else{
11297 t8=C_eqp(t1,lf[373]);
11298 if(C_truep(t8)){
11299 t9=t6;
11300 f_15697(t9,t8);}
11301 else{
11302 t9=C_eqp(t1,lf[335]);
11303 if(C_truep(t9)){
11304 t10=t6;
11305 f_15697(t10,t9);}
11306 else{
11307 t10=C_eqp(t1,lf[397]);
11308 if(C_truep(t10)){
11309 t11=t6;
11310 f_15697(t11,t10);}
11311 else{
11312 t11=C_eqp(t1,lf[398]);
11313 if(C_truep(t11)){
11314 t12=t6;
11315 f_15697(t12,t11);}
11316 else{
11317 t12=C_eqp(t1,lf[399]);
11318 t13=t6;
11319 f_15697(t13,(C_truep(t12)?t12:C_eqp(t1,lf[400])));}}}}}}}}}
11320 
11321 /* k15695 in k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15697(C_word t0,C_word t1)11322 static void C_fcall f_15697(C_word t0,C_word t1){
11323 C_word tmp;
11324 C_word t2;
11325 C_word t3;
11326 C_word t4;
11327 C_word t5;
11328 C_word t6;
11329 C_word t7;
11330 C_word t8;
11331 C_word t9;
11332 C_word t10;
11333 C_word t11;
11334 C_word t12;
11335 C_word t13;
11336 C_word t14;
11337 C_word t15;
11338 C_word t16;
11339 C_word t17;
11340 C_word t18;
11341 C_word t19;
11342 C_word t20;
11343 C_word *a;
11344 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
11345 C_save_and_reclaim_args((void *)trf_15697,2,t0,t1);}
11346 a=C_alloc(6);
11347 if(C_truep(t1)){
11348 t2=((C_word*)t0)[2];{
11349 C_word av2[2];
11350 av2[0]=t2;
11351 av2[1]=lf[164];
11352 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11353 else{
11354 t2=C_eqp(((C_word*)t0)[3],lf[311]);
11355 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[394]));
11356 if(C_truep(t3)){
11357 t4=C_eqp(((C_word*)t0)[4],lf[433]);
11358 t5=((C_word*)t0)[2];{
11359 C_word av2[2];
11360 av2[0]=t5;
11361 av2[1]=(C_truep(t4)?lf[395]:lf[311]);
11362 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
11363 else{
11364 t4=C_eqp(((C_word*)t0)[3],lf[314]);
11365 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[3],lf[319]));
11366 if(C_truep(t5)){
11367 t6=((C_word*)t0)[2];{
11368 C_word av2[2];
11369 av2[0]=t6;
11370 av2[1]=lf[170];
11371 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
11372 else{
11373 t6=C_eqp(((C_word*)t0)[3],lf[313]);
11374 if(C_truep(t6)){
11375 t7=C_eqp(((C_word*)t0)[4],lf[433]);
11376 t8=((C_word*)t0)[2];{
11377 C_word av2[2];
11378 av2[0]=t8;
11379 av2[1]=(C_truep(t7)?lf[434]:lf[313]);
11380 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11381 else{
11382 t7=C_eqp(((C_word*)t0)[3],lf[320]);
11383 if(C_truep(t7)){
11384 t8=((C_word*)t0)[2];{
11385 C_word av2[2];
11386 av2[0]=t8;
11387 av2[1]=lf[313];
11388 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11389 else{
11390 t8=C_eqp(((C_word*)t0)[3],lf[321]);
11391 if(C_truep(t8)){
11392 t9=C_eqp(((C_word*)t0)[4],lf[433]);
11393 t10=((C_word*)t0)[2];{
11394 C_word av2[2];
11395 av2[0]=t10;
11396 av2[1]=(C_truep(t9)?lf[435]:lf[321]);
11397 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11398 else{
11399 t9=C_eqp(((C_word*)t0)[3],lf[323]);
11400 if(C_truep(t9)){
11401 t10=((C_word*)t0)[2];{
11402 C_word av2[2];
11403 av2[0]=t10;
11404 av2[1]=lf[321];
11405 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11406 else{
11407 t10=C_eqp(((C_word*)t0)[3],lf[324]);
11408 t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15772,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
11409 if(C_truep(t10)){
11410 t12=t11;
11411 f_15772(t12,t10);}
11412 else{
11413 t12=C_eqp(((C_word*)t0)[3],lf[385]);
11414 if(C_truep(t12)){
11415 t13=t11;
11416 f_15772(t13,t12);}
11417 else{
11418 t13=C_eqp(((C_word*)t0)[3],lf[386]);
11419 if(C_truep(t13)){
11420 t14=t11;
11421 f_15772(t14,t13);}
11422 else{
11423 t14=C_eqp(((C_word*)t0)[3],lf[387]);
11424 if(C_truep(t14)){
11425 t15=t11;
11426 f_15772(t15,t14);}
11427 else{
11428 t15=C_eqp(((C_word*)t0)[3],lf[388]);
11429 if(C_truep(t15)){
11430 t16=t11;
11431 f_15772(t16,t15);}
11432 else{
11433 t16=C_eqp(((C_word*)t0)[3],lf[389]);
11434 if(C_truep(t16)){
11435 t17=t11;
11436 f_15772(t17,t16);}
11437 else{
11438 t17=C_eqp(((C_word*)t0)[3],lf[390]);
11439 if(C_truep(t17)){
11440 t18=t11;
11441 f_15772(t18,t17);}
11442 else{
11443 t18=C_eqp(((C_word*)t0)[3],lf[391]);
11444 if(C_truep(t18)){
11445 t19=t11;
11446 f_15772(t19,t18);}
11447 else{
11448 t19=C_eqp(((C_word*)t0)[3],lf[392]);
11449 t20=t11;
11450 f_15772(t20,(C_truep(t19)?t19:C_eqp(((C_word*)t0)[3],lf[393])));}}}}}}}}}}}}}}}}
11451 
11452 /* k15770 in k15695 in k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15772(C_word t0,C_word t1)11453 static void C_fcall f_15772(C_word t0,C_word t1){
11454 C_word tmp;
11455 C_word t2;
11456 C_word t3;
11457 C_word t4;
11458 C_word t5;
11459 C_word t6;
11460 C_word t7;
11461 C_word t8;
11462 C_word t9;
11463 C_word t10;
11464 C_word t11;
11465 C_word t12;
11466 C_word t13;
11467 C_word t14;
11468 C_word t15;
11469 C_word t16;
11470 C_word t17;
11471 C_word t18;
11472 C_word t19;
11473 C_word t20;
11474 C_word t21;
11475 C_word *a;
11476 if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
11477 C_save_and_reclaim_args((void *)trf_15772,2,t0,t1);}
11478 a=C_alloc(15);
11479 if(C_truep(t1)){
11480 t2=C_eqp(((C_word*)t0)[2],lf[433]);
11481 if(C_truep(t2)){
11482 t3=C_a_i_list(&a,2,lf[436],((C_word*)t0)[3]);
11483 t4=((C_word*)t0)[4];{
11484 C_word av2[2];
11485 av2[0]=t4;
11486 av2[1]=C_a_i_list(&a,3,lf[437],lf[438],t3);
11487 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11488 else{
11489 t3=((C_word*)t0)[4];{
11490 C_word av2[2];
11491 av2[0]=t3;
11492 av2[1]=C_a_i_list(&a,2,lf[436],((C_word*)t0)[3]);
11493 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
11494 else{
11495 t2=C_eqp(((C_word*)t0)[3],lf[325]);
11496 if(C_truep(t2)){
11497 t3=((C_word*)t0)[4];{
11498 C_word av2[2];
11499 av2[0]=t3;
11500 av2[1]=lf[439];
11501 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11502 else{
11503 t3=C_eqp(((C_word*)t0)[3],lf[377]);
11504 if(C_truep(t3)){
11505 t4=((C_word*)t0)[4];{
11506 C_word av2[2];
11507 av2[0]=t4;
11508 av2[1]=lf[440];
11509 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11510 else{
11511 t4=C_eqp(((C_word*)t0)[3],lf[376]);
11512 if(C_truep(t4)){
11513 t5=((C_word*)t0)[4];{
11514 C_word av2[2];
11515 av2[0]=t5;
11516 av2[1]=lf[441];
11517 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
11518 else{
11519 t5=C_eqp(((C_word*)t0)[3],lf[378]);
11520 if(C_truep(t5)){
11521 t6=((C_word*)t0)[4];{
11522 C_word av2[2];
11523 av2[0]=t6;
11524 av2[1]=lf[442];
11525 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
11526 else{
11527 t6=C_eqp(((C_word*)t0)[3],lf[379]);
11528 if(C_truep(t6)){
11529 t7=((C_word*)t0)[4];{
11530 C_word av2[2];
11531 av2[0]=t7;
11532 av2[1]=lf[443];
11533 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
11534 else{
11535 t7=C_eqp(((C_word*)t0)[3],lf[380]);
11536 if(C_truep(t7)){
11537 t8=((C_word*)t0)[4];{
11538 C_word av2[2];
11539 av2[0]=t8;
11540 av2[1]=lf[444];
11541 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11542 else{
11543 t8=C_eqp(((C_word*)t0)[3],lf[381]);
11544 if(C_truep(t8)){
11545 t9=((C_word*)t0)[4];{
11546 C_word av2[2];
11547 av2[0]=t9;
11548 av2[1]=lf[445];
11549 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
11550 else{
11551 t9=C_eqp(((C_word*)t0)[3],lf[382]);
11552 if(C_truep(t9)){
11553 t10=((C_word*)t0)[4];{
11554 C_word av2[2];
11555 av2[0]=t10;
11556 av2[1]=lf[446];
11557 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11558 else{
11559 t10=C_eqp(((C_word*)t0)[3],lf[383]);
11560 if(C_truep(t10)){
11561 t11=((C_word*)t0)[4];{
11562 C_word av2[2];
11563 av2[0]=t11;
11564 av2[1]=lf[447];
11565 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
11566 else{
11567 t11=C_eqp(((C_word*)t0)[3],lf[384]);
11568 if(C_truep(t11)){
11569 t12=((C_word*)t0)[4];{
11570 C_word av2[2];
11571 av2[0]=t12;
11572 av2[1]=lf[448];
11573 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
11574 else{
11575 t12=C_eqp(((C_word*)t0)[3],lf[372]);
11576 t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15859,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
11577 if(C_truep(t12)){
11578 t14=t13;
11579 f_15859(t14,t12);}
11580 else{
11581 t14=C_eqp(((C_word*)t0)[3],lf[374]);
11582 if(C_truep(t14)){
11583 t15=t13;
11584 f_15859(t15,t14);}
11585 else{
11586 t15=C_eqp(((C_word*)t0)[3],lf[368]);
11587 if(C_truep(t15)){
11588 t16=t13;
11589 f_15859(t16,t15);}
11590 else{
11591 t16=C_eqp(((C_word*)t0)[3],lf[375]);
11592 if(C_truep(t16)){
11593 t17=t13;
11594 f_15859(t17,t16);}
11595 else{
11596 t17=C_eqp(((C_word*)t0)[3],lf[327]);
11597 if(C_truep(t17)){
11598 t18=t13;
11599 f_15859(t18,t17);}
11600 else{
11601 t18=C_eqp(((C_word*)t0)[3],lf[369]);
11602 if(C_truep(t18)){
11603 t19=t13;
11604 f_15859(t19,t18);}
11605 else{
11606 t19=C_eqp(((C_word*)t0)[3],lf[371]);
11607 if(C_truep(t19)){
11608 t20=t13;
11609 f_15859(t20,t19);}
11610 else{
11611 t20=C_eqp(((C_word*)t0)[3],lf[370]);
11612 t21=t13;
11613 f_15859(t21,(C_truep(t20)?t20:C_eqp(((C_word*)t0)[3],lf[366])));}}}}}}}}}}}}}}}}}}}
11614 
11615 /* k15857 in k15770 in k15695 in k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15859(C_word t0,C_word t1)11616 static void C_fcall f_15859(C_word t0,C_word t1){
11617 C_word tmp;
11618 C_word t2;
11619 C_word t3;
11620 C_word t4;
11621 C_word t5;
11622 C_word t6;
11623 C_word t7;
11624 C_word t8;
11625 C_word *a;
11626 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
11627 C_save_and_reclaim_args((void *)trf_15859,2,t0,t1);}
11628 a=C_alloc(6);
11629 if(C_truep(t1)){
11630 t2=((C_word*)t0)[2];{
11631 C_word av2[2];
11632 av2[0]=t2;
11633 av2[1]=lf[372];
11634 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11635 else{
11636 t2=C_eqp(((C_word*)t0)[3],lf[339]);
11637 if(C_truep(t2)){
11638 t3=C_eqp(lf[433],((C_word*)t0)[4]);
11639 t4=((C_word*)t0)[2];{
11640 C_word av2[2];
11641 av2[0]=t4;
11642 av2[1]=(C_truep(t3)?lf[449]:lf[450]);
11643 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11644 else{
11645 t3=C_eqp(((C_word*)t0)[3],lf[341]);
11646 if(C_truep(t3)){
11647 t4=C_eqp(lf[433],((C_word*)t0)[4]);
11648 t5=((C_word*)t0)[2];{
11649 C_word av2[2];
11650 av2[0]=t5;
11651 av2[1]=(C_truep(t4)?lf[451]:lf[357]);
11652 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
11653 else{
11654 t4=C_eqp(((C_word*)t0)[3],lf[342]);
11655 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
11656 if(C_truep(t4)){
11657 t6=t5;
11658 f_15892(t6,t4);}
11659 else{
11660 t6=C_eqp(((C_word*)t0)[3],lf[361]);
11661 if(C_truep(t6)){
11662 t7=t5;
11663 f_15892(t7,t6);}
11664 else{
11665 t7=C_eqp(((C_word*)t0)[3],lf[362]);
11666 t8=t5;
11667 f_15892(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[363])));}}}}}}
11668 
11669 /* k15890 in k15857 in k15770 in k15695 in k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_15892(C_word t0,C_word t1)11670 static void C_fcall f_15892(C_word t0,C_word t1){
11671 C_word tmp;
11672 C_word t2;
11673 C_word t3;
11674 C_word t4;
11675 C_word t5;
11676 C_word t6;
11677 C_word t7;
11678 C_word *a;
11679 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
11680 C_save_and_reclaim_args((void *)trf_15892,2,t0,t1);}
11681 a=C_alloc(6);
11682 if(C_truep(t1)){
11683 t2=((C_word*)t0)[2];{
11684 C_word av2[2];
11685 av2[0]=t2;
11686 av2[1]=lf[452];
11687 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11688 else{
11689 t2=C_eqp(((C_word*)t0)[3],lf[364]);
11690 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[365]));
11691 if(C_truep(t3)){
11692 t4=((C_word*)t0)[2];{
11693 C_word av2[2];
11694 av2[0]=t4;
11695 av2[1]=lf[453];
11696 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11697 else{
11698 t4=C_eqp(((C_word*)t0)[3],lf[345]);
11699 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
11700 if(C_truep(t4)){
11701 t6=t5;
11702 f_15910(t6,t4);}
11703 else{
11704 t6=C_eqp(((C_word*)t0)[3],lf[359]);
11705 t7=t5;
11706 f_15910(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[360])));}}}}
11707 
11708 /* k15908 in k15890 in k15857 in k15770 in k15695 in k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_15910(C_word t0,C_word t1)11709 static void C_fcall f_15910(C_word t0,C_word t1){
11710 C_word tmp;
11711 C_word t2;
11712 C_word t3;
11713 C_word t4;
11714 C_word t5;
11715 C_word t6;
11716 C_word t7;
11717 C_word t8;
11718 C_word *a;
11719 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
11720 C_save_and_reclaim_args((void *)trf_15910,2,t0,t1);}
11721 a=C_alloc(6);
11722 if(C_truep(t1)){
11723 t2=((C_word*)t0)[2];{
11724 C_word av2[2];
11725 av2[0]=t2;
11726 av2[1]=lf[454];
11727 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11728 else{
11729 t2=C_eqp(((C_word*)t0)[3],lf[346]);
11730 if(C_truep(t2)){
11731 t3=((C_word*)t0)[2];{
11732 C_word av2[2];
11733 av2[0]=t3;
11734 av2[1]=lf[346];
11735 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11736 else{
11737 if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
11738 t3=C_u_i_car(((C_word*)t0)[4]);
11739 t4=C_eqp(t3,lf[347]);
11740 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15932,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
11741 if(C_truep(t4)){
11742 t6=t5;
11743 f_15932(t6,t4);}
11744 else{
11745 t6=C_eqp(t3,lf[357]);
11746 if(C_truep(t6)){
11747 t7=t5;
11748 f_15932(t7,t6);}
11749 else{
11750 t7=C_eqp(t3,lf[358]);
11751 t8=t5;
11752 f_15932(t8,(C_truep(t7)?t7:C_eqp(t3,lf[339])));}}}
11753 else{
11754 t3=((C_word*)t0)[2];{
11755 C_word av2[2];
11756 av2[0]=t3;
11757 av2[1]=lf[170];
11758 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}}
11759 
11760 /* k15930 in k15908 in k15890 in k15857 in k15770 in k15695 in k15671 in k15668 in k15665 in chicken.compiler.support#foreign-type->scrutiny-type in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_15932(C_word t0,C_word t1)11761 static void C_fcall f_15932(C_word t0,C_word t1){
11762 C_word tmp;
11763 C_word t2;
11764 C_word t3;
11765 C_word t4;
11766 C_word t5;
11767 C_word t6;
11768 C_word t7;
11769 C_word *a;
11770 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
11771 C_save_and_reclaim_args((void *)trf_15932,2,t0,t1);}
11772 if(C_truep(t1)){
11773 t2=C_eqp(lf[433],((C_word*)t0)[2]);
11774 t3=((C_word*)t0)[3];{
11775 C_word av2[2];
11776 av2[0]=t3;
11777 av2[1]=(C_truep(t2)?lf[455]:lf[456]);
11778 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11779 else{
11780 t2=C_eqp(((C_word*)t0)[4],lf[353]);
11781 if(C_truep(t2)){
11782 /* support.scm:1412: foreign-type->scrutiny-type */
11783 t3=*((C_word*)lf[431]+1);{
11784 C_word av2[4];
11785 av2[0]=t3;
11786 av2[1]=((C_word*)t0)[3];
11787 av2[2]=C_i_cadr(((C_word*)t0)[5]);
11788 av2[3]=((C_word*)t0)[2];
11789 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
11790 else{
11791 t3=C_eqp(((C_word*)t0)[4],lf[354]);
11792 if(C_truep(t3)){
11793 t4=((C_word*)t0)[3];{
11794 C_word av2[2];
11795 av2[0]=t4;
11796 av2[1]=lf[372];
11797 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11798 else{
11799 t4=C_eqp(((C_word*)t0)[4],lf[356]);
11800 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[341]));
11801 if(C_truep(t5)){
11802 t6=C_eqp(lf[433],((C_word*)t0)[2]);
11803 t7=((C_word*)t0)[3];{
11804 C_word av2[2];
11805 av2[0]=t7;
11806 av2[1]=(C_truep(t6)?lf[457]:lf[357]);
11807 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
11808 else{
11809 t6=((C_word*)t0)[3];{
11810 C_word av2[2];
11811 av2[0]=t6;
11812 av2[1]=lf[170];
11813 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}
11814 
11815 /* chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16314(C_word c,C_word * av)11816 static void C_ccall f_16314(C_word c,C_word *av){
11817 C_word tmp;
11818 C_word t0=av[0];
11819 C_word t1=av[1];
11820 C_word t2=av[2];
11821 C_word t3=av[3];
11822 C_word t4;
11823 C_word t5;
11824 C_word t6;
11825 C_word t7;
11826 C_word t8;
11827 C_word t9;
11828 C_word t10;
11829 C_word *a;
11830 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
11831 C_save_and_reclaim((void *)f_16314,c,av);}
11832 a=C_alloc(13);
11833 t4=C_SCHEME_END_OF_LIST;
11834 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
11835 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16318,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
11836 t7=C_SCHEME_UNDEFINED;
11837 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
11838 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16320,a[2]=t8,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
11839 t10=((C_word*)t8)[1];
11840 f_16320(t10,t6,t2);}
11841 
11842 /* k16316 in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16318(C_word c,C_word * av)11843 static void C_ccall f_16318(C_word c,C_word *av){
11844 C_word tmp;
11845 C_word t0=av[0];
11846 C_word t1=av[1];
11847 C_word t2;
11848 C_word *a;
11849 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
11850 C_save_and_reclaim((void *)f_16318,c,av);}
11851 t2=((C_word*)t0)[2];{
11852 C_word *av2=av;
11853 av2[0]=t2;
11854 av2[1]=((C_word*)((C_word*)t0)[3])[1];
11855 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11856 
11857 /* walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16320(C_word t0,C_word t1,C_word t2)11858 static void C_fcall f_16320(C_word t0,C_word t1,C_word t2){
11859 C_word tmp;
11860 C_word t3;
11861 C_word t4;
11862 C_word t5;
11863 C_word t6;
11864 C_word t7;
11865 C_word t8;
11866 C_word t9;
11867 C_word t10;
11868 C_word t11;
11869 C_word t12;
11870 C_word t13;
11871 C_word t14;
11872 C_word *a;
11873 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
11874 C_save_and_reclaim_args((void *)trf_16320,3,t0,t1,t2);}
11875 a=C_alloc(8);
11876 t3=C_slot(t2,C_fix(3));
11877 t4=C_slot(t2,C_fix(1));
11878 t5=C_eqp(t4,lf[154]);
11879 t6=(C_truep(t5)?t5:C_eqp(t4,lf[124]));
11880 if(C_truep(t6)){
11881 t7=C_slot(t2,C_fix(2));
11882 t8=C_i_car(t7);
11883 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16352,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
11884 t10=C_i_memq(t8,((C_word*)t0)[3]);
11885 t11=(C_truep(t10)?C_i_not(C_i_memq(t8,((C_word*)((C_word*)t0)[4])[1])):C_SCHEME_FALSE);
11886 if(C_truep(t11)){
11887 t12=C_a_i_cons(&a,2,t8,((C_word*)((C_word*)t0)[4])[1]);
11888 t13=C_mutate(((C_word *)((C_word*)t0)[4])+1,t12);
11889 t14=t9;
11890 f_16352(t14,t13);}
11891 else{
11892 t12=t9;
11893 f_16352(t12,C_SCHEME_UNDEFINED);}}
11894 else{
11895 t7=C_eqp(t4,lf[85]);
11896 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16416,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
11897 if(C_truep(t7)){
11898 t9=t8;
11899 f_16416(t9,t7);}
11900 else{
11901 t9=C_eqp(t4,lf[159]);
11902 t10=t8;
11903 f_16416(t10,(C_truep(t9)?t9:C_eqp(t4,lf[171])));}}}
11904 
11905 /* k16350 in walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16352(C_word t0,C_word t1)11906 static void C_fcall f_16352(C_word t0,C_word t1){
11907 C_word tmp;
11908 C_word t2;
11909 C_word t3;
11910 C_word t4;
11911 C_word t5;
11912 C_word t6;
11913 C_word *a;
11914 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
11915 C_save_and_reclaim_args((void *)trf_16352,2,t0,t1);}
11916 a=C_alloc(6);
11917 t2=C_i_check_list_2(((C_word*)t0)[2],lf[44]);
11918 t3=C_SCHEME_UNDEFINED;
11919 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
11920 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16360,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp));
11921 t6=((C_word*)t4)[1];
11922 f_16360(t6,((C_word*)t0)[4],((C_word*)t0)[2]);}
11923 
11924 /* for-each-loop3945 in k16350 in walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16360(C_word t0,C_word t1,C_word t2)11925 static void C_fcall f_16360(C_word t0,C_word t1,C_word t2){
11926 C_word tmp;
11927 C_word t3;
11928 C_word t4;
11929 C_word *a;
11930 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
11931 C_save_and_reclaim_args((void *)trf_16360,3,t0,t1,t2);}
11932 a=C_alloc(5);
11933 if(C_truep(C_i_pairp(t2))){
11934 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16370,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
11935 /* support.scm:1433: g3946 */
11936 t4=((C_word*)((C_word*)t0)[3])[1];
11937 f_16320(t4,t3,C_slot(t2,C_fix(0)));}
11938 else{
11939 t3=C_SCHEME_UNDEFINED;
11940 t4=t1;{
11941 C_word av2[2];
11942 av2[0]=t4;
11943 av2[1]=t3;
11944 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
11945 
11946 /* k16368 in for-each-loop3945 in k16350 in walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16370(C_word c,C_word * av)11947 static void C_ccall f_16370(C_word c,C_word *av){
11948 C_word tmp;
11949 C_word t0=av[0];
11950 C_word t1=av[1];
11951 C_word t2;
11952 C_word *a;
11953 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
11954 C_save_and_reclaim((void *)f_16370,c,av);}
11955 t2=((C_word*)((C_word*)t0)[2])[1];
11956 f_16360(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
11957 
11958 /* k16414 in walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16416(C_word t0,C_word t1)11959 static void C_fcall f_16416(C_word t0,C_word t1){
11960 C_word tmp;
11961 C_word t2;
11962 C_word t3;
11963 C_word t4;
11964 C_word t5;
11965 C_word t6;
11966 C_word *a;
11967 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
11968 C_save_and_reclaim_args((void *)trf_16416,2,t0,t1);}
11969 a=C_alloc(6);
11970 if(C_truep(t1)){
11971 t2=((C_word*)t0)[2];{
11972 C_word av2[2];
11973 av2[0]=t2;
11974 av2[1]=C_SCHEME_FALSE;
11975 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11976 else{
11977 t2=C_i_check_list_2(((C_word*)t0)[3],lf[44]);
11978 t3=C_SCHEME_UNDEFINED;
11979 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
11980 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16424,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp));
11981 t6=((C_word*)t4)[1];
11982 f_16424(t6,((C_word*)t0)[2],((C_word*)t0)[3]);}}
11983 
11984 /* for-each-loop3970 in k16414 in walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16424(C_word t0,C_word t1,C_word t2)11985 static void C_fcall f_16424(C_word t0,C_word t1,C_word t2){
11986 C_word tmp;
11987 C_word t3;
11988 C_word t4;
11989 C_word *a;
11990 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
11991 C_save_and_reclaim_args((void *)trf_16424,3,t0,t1,t2);}
11992 a=C_alloc(5);
11993 if(C_truep(C_i_pairp(t2))){
11994 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16434,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
11995 /* support.scm:1435: g3971 */
11996 t4=((C_word*)((C_word*)t0)[3])[1];
11997 f_16320(t4,t3,C_slot(t2,C_fix(0)));}
11998 else{
11999 t3=C_SCHEME_UNDEFINED;
12000 t4=t1;{
12001 C_word av2[2];
12002 av2[0]=t4;
12003 av2[1]=t3;
12004 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
12005 
12006 /* k16432 in for-each-loop3970 in k16414 in walk in chicken.compiler.support#scan-used-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16434(C_word c,C_word * av)12007 static void C_ccall f_16434(C_word c,C_word *av){
12008 C_word tmp;
12009 C_word t0=av[0];
12010 C_word t1=av[1];
12011 C_word t2;
12012 C_word *a;
12013 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
12014 C_save_and_reclaim((void *)f_16434,c,av);}
12015 t2=((C_word*)((C_word*)t0)[2])[1];
12016 f_16424(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
12017 
12018 /* chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16469(C_word c,C_word * av)12019 static void C_ccall f_16469(C_word c,C_word *av){
12020 C_word tmp;
12021 C_word t0=av[0];
12022 C_word t1=av[1];
12023 C_word t2=av[2];
12024 C_word t3=av[3];
12025 C_word t4;
12026 C_word t5;
12027 C_word t6;
12028 C_word t7;
12029 C_word t8;
12030 C_word t9;
12031 C_word t10;
12032 C_word t11;
12033 C_word t12;
12034 C_word t13;
12035 C_word t14;
12036 C_word t15;
12037 C_word *a;
12038 if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
12039 C_save_and_reclaim((void *)f_16469,c,av);}
12040 a=C_alloc(23);
12041 t4=C_SCHEME_END_OF_LIST;
12042 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
12043 t6=C_SCHEME_END_OF_LIST;
12044 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
12045 t8=C_SCHEME_UNDEFINED;
12046 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
12047 t10=C_SCHEME_UNDEFINED;
12048 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
12049 t12=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16472,a[2]=t5,a[3]=t7,a[4]=t3,a[5]=t9,a[6]=t11,tmp=(C_word)a,a+=7,tmp));
12050 t13=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16656,a[2]=t9,tmp=(C_word)a,a+=3,tmp));
12051 t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16694,a[2]=t1,a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
12052 /* support.scm:1473: walk */
12053 t15=((C_word*)t9)[1];
12054 f_16472(t15,t14,t2,C_SCHEME_END_OF_LIST);}
12055 
12056 /* walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16472(C_word t0,C_word t1,C_word t2,C_word t3)12057 static void C_fcall f_16472(C_word t0,C_word t1,C_word t2,C_word t3){
12058 C_word tmp;
12059 C_word t4;
12060 C_word t5;
12061 C_word t6;
12062 C_word t7;
12063 C_word t8;
12064 C_word t9;
12065 C_word t10;
12066 C_word t11;
12067 C_word t12;
12068 C_word *a;
12069 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
12070 C_save_and_reclaim_args((void *)trf_16472,4,t0,t1,t2,t3);}
12071 a=C_alloc(12);
12072 t4=C_slot(t2,C_fix(3));
12073 t5=C_slot(t2,C_fix(2));
12074 t6=C_slot(t2,C_fix(1));
12075 t7=C_eqp(t6,lf[85]);
12076 t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16506,a[2]=t1,a[3]=t6,a[4]=t5,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=t4,a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp);
12077 if(C_truep(t7)){
12078 t9=t8;
12079 f_16506(t9,t7);}
12080 else{
12081 t9=C_eqp(t6,lf[159]);
12082 if(C_truep(t9)){
12083 t10=t8;
12084 f_16506(t10,t9);}
12085 else{
12086 t10=C_eqp(t6,lf[171]);
12087 if(C_truep(t10)){
12088 t11=t8;
12089 f_16506(t11,t10);}
12090 else{
12091 t11=C_eqp(t6,lf[174]);
12092 t12=t8;
12093 f_16506(t12,(C_truep(t11)?t11:C_eqp(t6,lf[184])));}}}}
12094 
12095 /* k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16506(C_word t0,C_word t1)12096 static void C_fcall f_16506(C_word t0,C_word t1){
12097 C_word tmp;
12098 C_word t2;
12099 C_word t3;
12100 C_word t4;
12101 C_word t5;
12102 C_word t6;
12103 C_word t7;
12104 C_word t8;
12105 C_word *a;
12106 if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
12107 C_save_and_reclaim_args((void *)trf_16506,2,t0,t1);}
12108 a=C_alloc(10);
12109 if(C_truep(t1)){
12110 t2=((C_word*)t0)[2];{
12111 C_word av2[2];
12112 av2[0]=t2;
12113 av2[1]=C_SCHEME_FALSE;
12114 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
12115 else{
12116 t2=C_eqp(((C_word*)t0)[3],lf[154]);
12117 if(C_truep(t2)){
12118 t3=C_i_car(((C_word*)t0)[4]);
12119 if(C_truep(C_i_memq(t3,((C_word*)t0)[5]))){
12120 t4=C_SCHEME_UNDEFINED;
12121 t5=((C_word*)t0)[2];{
12122 C_word av2[2];
12123 av2[0]=t5;
12124 av2[1]=t4;
12125 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
12126 else{
12127 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16525,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=t3,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
12128 /* support.scm:1453: lset-adjoin/eq? */
12129 f_6202(t4,((C_word*)((C_word*)t0)[6])[1],C_a_i_list(&a,1,t3));}}
12130 else{
12131 t3=C_eqp(((C_word*)t0)[3],lf[124]);
12132 if(C_truep(t3)){
12133 t4=C_i_car(((C_word*)t0)[4]);
12134 if(C_truep(C_i_memq(t4,((C_word*)t0)[5]))){
12135 /* support.scm:1459: walk */
12136 t5=((C_word*)((C_word*)t0)[9])[1];
12137 f_16472(t5,((C_word*)t0)[2],C_i_car(((C_word*)t0)[10]),((C_word*)t0)[5]);}
12138 else{
12139 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16561,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
12140 /* support.scm:1458: lset-adjoin/eq? */
12141 f_6202(t5,((C_word*)((C_word*)t0)[6])[1],C_a_i_list(&a,1,t4));}}
12142 else{
12143 t4=C_eqp(((C_word*)t0)[3],lf[96]);
12144 if(C_truep(t4)){
12145 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16570,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
12146 /* support.scm:1461: walk */
12147 t6=((C_word*)((C_word*)t0)[9])[1];
12148 f_16472(t6,t5,C_i_car(((C_word*)t0)[10]),((C_word*)t0)[5]);}
12149 else{
12150 t5=C_eqp(((C_word*)t0)[3],lf[118]);
12151 if(C_truep(t5)){
12152 t6=C_i_caddr(((C_word*)t0)[4]);
12153 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16600,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
12154 /* support.scm:1464: ##sys#decompose-lambda-list */
12155 t8=*((C_word*)lf[225]+1);{
12156 C_word av2[4];
12157 av2[0]=t8;
12158 av2[1]=((C_word*)t0)[2];
12159 av2[2]=t6;
12160 av2[3]=t7;
12161 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
12162 else{
12163 /* support.scm:1468: walkeach */
12164 t6=((C_word*)((C_word*)t0)[11])[1];
12165 f_16656(t6,((C_word*)t0)[2],((C_word*)t0)[10],((C_word*)t0)[5]);}}}}}}
12166 
12167 /* k16523 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16525(C_word c,C_word * av)12168 static void C_ccall f_16525(C_word c,C_word *av){
12169 C_word tmp;
12170 C_word t0=av[0];
12171 C_word t1=av[1];
12172 C_word t2;
12173 C_word t3;
12174 C_word t4;
12175 C_word *a;
12176 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
12177 C_save_and_reclaim((void *)f_16525,c,av);}
12178 a=C_alloc(5);
12179 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
12180 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16531,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
12181 /* support.scm:1454: variable-visible? */
12182 t4=*((C_word*)lf[260]+1);{
12183 C_word *av2;
12184 if(c >= 4) {
12185   av2=av;
12186 } else {
12187   av2=C_alloc(4);
12188 }
12189 av2[0]=t4;
12190 av2[1]=t3;
12191 av2[2]=((C_word*)t0)[5];
12192 av2[3]=((C_word*)t0)[6];
12193 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
12194 
12195 /* k16529 in k16523 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16531(C_word c,C_word * av)12196 static void C_ccall f_16531(C_word c,C_word *av){
12197 C_word tmp;
12198 C_word t0=av[0];
12199 C_word t1=av[1];
12200 C_word t2;
12201 C_word t3;
12202 C_word *a;
12203 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
12204 C_save_and_reclaim((void *)f_16531,c,av);}
12205 a=C_alloc(7);
12206 if(C_truep(t1)){
12207 t2=((C_word*)t0)[2];{
12208 C_word *av2=av;
12209 av2[0]=t2;
12210 av2[1]=C_SCHEME_UNDEFINED;
12211 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
12212 else{
12213 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16535,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
12214 /* support.scm:1455: lset-adjoin/eq? */
12215 f_6202(t2,((C_word*)((C_word*)t0)[3])[1],C_a_i_list(&a,1,((C_word*)t0)[4]));}}
12216 
12217 /* k16533 in k16529 in k16523 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16535(C_word c,C_word * av)12218 static void C_ccall f_16535(C_word c,C_word *av){
12219 C_word tmp;
12220 C_word t0=av[0];
12221 C_word t1=av[1];
12222 C_word t2;
12223 C_word t3;
12224 C_word *a;
12225 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
12226 C_save_and_reclaim((void *)f_16535,c,av);}
12227 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
12228 t3=((C_word*)t0)[3];{
12229 C_word *av2=av;
12230 av2[0]=t3;
12231 av2[1]=t2;
12232 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12233 
12234 /* k16559 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16561(C_word c,C_word * av)12235 static void C_ccall f_16561(C_word c,C_word *av){
12236 C_word tmp;
12237 C_word t0=av[0];
12238 C_word t1=av[1];
12239 C_word t2;
12240 C_word t3;
12241 C_word *a;
12242 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
12243 C_save_and_reclaim((void *)f_16561,c,av);}
12244 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
12245 /* support.scm:1459: walk */
12246 t3=((C_word*)((C_word*)t0)[3])[1];
12247 f_16472(t3,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6]);}
12248 
12249 /* k16568 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16570(C_word c,C_word * av)12250 static void C_ccall f_16570(C_word c,C_word *av){
12251 C_word tmp;
12252 C_word t0=av[0];
12253 C_word t1=av[1];
12254 C_word t2;
12255 C_word t3;
12256 C_word t4;
12257 C_word *a;
12258 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
12259 C_save_and_reclaim((void *)f_16570,c,av);}
12260 a=C_alloc(5);
12261 t2=C_i_cadr(((C_word*)t0)[2]);
12262 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16581,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
12263 /* support.scm:1462: scheme#append */
12264 t4=*((C_word*)lf[58]+1);{
12265 C_word *av2;
12266 if(c >= 4) {
12267   av2=av;
12268 } else {
12269   av2=C_alloc(4);
12270 }
12271 av2[0]=t4;
12272 av2[1]=t3;
12273 av2[2]=((C_word*)t0)[5];
12274 av2[3]=((C_word*)t0)[6];
12275 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
12276 
12277 /* k16579 in k16568 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16581(C_word c,C_word * av)12278 static void C_ccall f_16581(C_word c,C_word *av){
12279 C_word tmp;
12280 C_word t0=av[0];
12281 C_word t1=av[1];
12282 C_word t2;
12283 C_word *a;
12284 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
12285 C_save_and_reclaim((void *)f_16581,c,av);}
12286 /* support.scm:1462: walk */
12287 t2=((C_word*)((C_word*)t0)[2])[1];
12288 f_16472(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
12289 
12290 /* a16599 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16600(C_word c,C_word * av)12291 static void C_ccall f_16600(C_word c,C_word *av){
12292 C_word tmp;
12293 C_word t0=av[0];
12294 C_word t1=av[1];
12295 C_word t2=av[2];
12296 C_word t3=av[3];
12297 C_word t4=av[4];
12298 C_word t5;
12299 C_word t6;
12300 C_word t7;
12301 C_word *a;
12302 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
12303 C_save_and_reclaim((void *)f_16600,c,av);}
12304 a=C_alloc(5);
12305 t5=C_i_car(((C_word*)t0)[2]);
12306 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16612,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
12307 /* support.scm:1467: scheme#append */
12308 t7=*((C_word*)lf[58]+1);{
12309 C_word *av2=av;
12310 av2[0]=t7;
12311 av2[1]=t6;
12312 av2[2]=t2;
12313 av2[3]=((C_word*)t0)[4];
12314 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
12315 
12316 /* k16610 in a16599 in k16504 in walk in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16612(C_word c,C_word * av)12317 static void C_ccall f_16612(C_word c,C_word *av){
12318 C_word tmp;
12319 C_word t0=av[0];
12320 C_word t1=av[1];
12321 C_word t2;
12322 C_word *a;
12323 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
12324 C_save_and_reclaim((void *)f_16612,c,av);}
12325 /* support.scm:1467: walk */
12326 t2=((C_word*)((C_word*)t0)[2])[1];
12327 f_16472(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
12328 
12329 /* walkeach in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16656(C_word t0,C_word t1,C_word t2,C_word t3)12330 static void C_fcall f_16656(C_word t0,C_word t1,C_word t2,C_word t3){
12331 C_word tmp;
12332 C_word t4;
12333 C_word t5;
12334 C_word t6;
12335 C_word t7;
12336 C_word t8;
12337 C_word t9;
12338 C_word *a;
12339 if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
12340 C_save_and_reclaim_args((void *)trf_16656,4,t0,t1,t2,t3);}
12341 a=C_alloc(10);
12342 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16658,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
12343 t5=C_i_check_list_2(t2,lf[44]);
12344 t6=C_SCHEME_UNDEFINED;
12345 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
12346 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16670,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
12347 t9=((C_word*)t7)[1];
12348 f_16670(t9,t1,t2);}
12349 
12350 /* g4038 in walkeach in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16658(C_word t0,C_word t1,C_word t2)12351 static void C_fcall f_16658(C_word t0,C_word t1,C_word t2){
12352 C_word tmp;
12353 C_word t3;
12354 C_word *a;
12355 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
12356 C_save_and_reclaim_args((void *)trf_16658,3,t0,t1,t2);}
12357 /* support.scm:1471: walk */
12358 t3=((C_word*)((C_word*)t0)[2])[1];
12359 f_16472(t3,t1,t2,((C_word*)t0)[3]);}
12360 
12361 /* for-each-loop4037 in walkeach in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16670(C_word t0,C_word t1,C_word t2)12362 static void C_fcall f_16670(C_word t0,C_word t1,C_word t2){
12363 C_word tmp;
12364 C_word t3;
12365 C_word t4;
12366 C_word *a;
12367 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
12368 C_save_and_reclaim_args((void *)trf_16670,3,t0,t1,t2);}
12369 a=C_alloc(5);
12370 if(C_truep(C_i_pairp(t2))){
12371 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16680,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
12372 /* support.scm:1471: g4038 */
12373 t4=((C_word*)t0)[3];
12374 f_16658(t4,t3,C_slot(t2,C_fix(0)));}
12375 else{
12376 t3=C_SCHEME_UNDEFINED;
12377 t4=t1;{
12378 C_word av2[2];
12379 av2[0]=t4;
12380 av2[1]=t3;
12381 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
12382 
12383 /* k16678 in for-each-loop4037 in walkeach in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16680(C_word c,C_word * av)12384 static void C_ccall f_16680(C_word c,C_word *av){
12385 C_word tmp;
12386 C_word t0=av[0];
12387 C_word t1=av[1];
12388 C_word t2;
12389 C_word *a;
12390 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
12391 C_save_and_reclaim((void *)f_16680,c,av);}
12392 t2=((C_word*)((C_word*)t0)[2])[1];
12393 f_16670(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
12394 
12395 /* k16692 in chicken.compiler.support#scan-free-variables in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16694(C_word c,C_word * av)12396 static void C_ccall f_16694(C_word c,C_word *av){
12397 C_word tmp;
12398 C_word t0=av[0];
12399 C_word t1=av[1];
12400 C_word t2;
12401 C_word *a;
12402 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
12403 C_save_and_reclaim((void *)f_16694,c,av);}
12404 /* support.scm:1474: scheme#values */{
12405 C_word *av2;
12406 if(c >= 4) {
12407   av2=av;
12408 } else {
12409   av2=C_alloc(4);
12410 }
12411 av2[0]=0;
12412 av2[1]=((C_word*)t0)[2];
12413 av2[2]=((C_word*)((C_word*)t0)[3])[1];
12414 av2[3]=((C_word*)((C_word*)t0)[4])[1];
12415 C_values(4,av2);}}
12416 
12417 /* chicken.compiler.support#chop-separator in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16699(C_word c,C_word * av)12418 static void C_ccall f_16699(C_word c,C_word *av){
12419 C_word tmp;
12420 C_word t0=av[0];
12421 C_word t1=av[1];
12422 C_word t2=av[2];
12423 C_word t3;
12424 C_word t4;
12425 C_word t5;
12426 C_word t6;
12427 C_word *a;
12428 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
12429 C_save_and_reclaim((void *)f_16699,c,av);}
12430 a=C_alloc(5);
12431 t3=C_i_string_length(t2);
12432 t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1));
12433 if(C_truep(C_i_integer_greaterp(t4,C_fix(0)))){
12434 t5=C_i_string_ref(t2,t4);
12435 if(C_truep((C_truep(C_eqp(t5,C_make_character(92)))?C_SCHEME_TRUE:(C_truep(C_eqp(t5,C_make_character(47)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
12436 /* support.scm:1483: scheme#substring */
12437 t6=*((C_word*)lf[462]+1);{
12438 C_word *av2;
12439 if(c >= 5) {
12440   av2=av;
12441 } else {
12442   av2=C_alloc(5);
12443 }
12444 av2[0]=t6;
12445 av2[1]=t1;
12446 av2[2]=t2;
12447 av2[3]=C_fix(0);
12448 av2[4]=t4;
12449 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
12450 else{
12451 t6=t1;{
12452 C_word *av2=av;
12453 av2[0]=t6;
12454 av2[1]=t2;
12455 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
12456 else{
12457 t5=t1;{
12458 C_word *av2=av;
12459 av2[0]=t5;
12460 av2[1]=t2;
12461 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
12462 
12463 /* chicken.compiler.support#make-block-variable-literal in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16723(C_word c,C_word * av)12464 static void C_ccall f_16723(C_word c,C_word *av){
12465 C_word tmp;
12466 C_word t0=av[0];
12467 C_word t1=av[1];
12468 C_word t2=av[2];
12469 C_word t3;
12470 C_word *a;
12471 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
12472 C_save_and_reclaim((void *)f_16723,c,av);}
12473 a=C_alloc(3);
12474 t3=t1;{
12475 C_word *av2=av;
12476 av2[0]=t3;
12477 av2[1]=C_a_i_record2(&a,2,lf[464],t2);
12478 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12479 
12480 /* chicken.compiler.support#block-variable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16729(C_word c,C_word * av)12481 static void C_ccall f_16729(C_word c,C_word *av){
12482 C_word tmp;
12483 C_word t0=av[0];
12484 C_word t1=av[1];
12485 C_word t2=av[2];
12486 C_word t3;
12487 C_word *a;
12488 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
12489 C_save_and_reclaim((void *)f_16729,c,av);}
12490 t3=t1;{
12491 C_word *av2=av;
12492 av2[0]=t3;
12493 av2[1]=C_i_structurep(t2,lf[464]);
12494 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12495 
12496 /* chicken.compiler.support#block-variable-literal-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16735(C_word c,C_word * av)12497 static void C_ccall f_16735(C_word c,C_word *av){
12498 C_word tmp;
12499 C_word t0=av[0];
12500 C_word t1=av[1];
12501 C_word t2=av[2];
12502 C_word t3;
12503 C_word t4;
12504 C_word *a;
12505 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
12506 C_save_and_reclaim((void *)f_16735,c,av);}
12507 t3=C_i_check_structure_2(t2,lf[464],lf[467]);
12508 t4=t1;{
12509 C_word *av2=av;
12510 av2[0]=t4;
12511 av2[1]=C_i_block_ref(t2,C_fix(1));
12512 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12513 
12514 /* chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16744(C_word c,C_word * av)12515 static void C_ccall f_16744(C_word c,C_word *av){
12516 C_word tmp;
12517 C_word t0=av[0];
12518 C_word t1=av[1];
12519 C_word t2;
12520 C_word *a;
12521 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
12522 C_save_and_reclaim((void*)f_16744,c,av);}
12523 a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
12524 t2=C_build_rest(&a,c,2,av);
12525 C_word t3;
12526 C_word t4;
12527 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16752,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
12528 /* support.scm:1499: chicken.base#open-output-string */
12529 t4=*((C_word*)lf[334]+1);{
12530 C_word *av2=av;
12531 av2[0]=t4;
12532 av2[1]=t3;
12533 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12534 
12535 /* k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16752(C_word c,C_word * av)12536 static void C_ccall f_16752(C_word c,C_word *av){
12537 C_word tmp;
12538 C_word t0=av[0];
12539 C_word t1=av[1];
12540 C_word t2;
12541 C_word t3;
12542 C_word t4;
12543 C_word t5;
12544 C_word *a;
12545 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
12546 C_save_and_reclaim((void *)f_16752,c,av);}
12547 a=C_alloc(8);
12548 t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[328]);
12549 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16758,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
12550 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16779,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
12551 if(C_truep(C_i_nullp(((C_word*)t0)[3]))){
12552 /* support.scm:1500: chicken.base#gensym */
12553 t5=*((C_word*)lf[97]+1);{
12554 C_word *av2=av;
12555 av2[0]=t5;
12556 av2[1]=t4;
12557 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
12558 else{
12559 /* support.scm:1499: ##sys#print */
12560 t5=*((C_word*)lf[27]+1);{
12561 C_word *av2;
12562 if(c >= 5) {
12563   av2=av;
12564 } else {
12565   av2=C_alloc(5);
12566 }
12567 av2[0]=t5;
12568 av2[1]=t3;
12569 av2[2]=C_i_car(((C_word*)t0)[3]);
12570 av2[3]=C_SCHEME_FALSE;
12571 av2[4]=t1;
12572 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
12573 
12574 /* k16756 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16758(C_word c,C_word * av)12575 static void C_ccall f_16758(C_word c,C_word *av){
12576 C_word tmp;
12577 C_word t0=av[0];
12578 C_word t1=av[1];
12579 C_word t2;
12580 C_word t3;
12581 C_word *a;
12582 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
12583 C_save_and_reclaim((void *)f_16758,c,av);}
12584 a=C_alloc(4);
12585 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12586 /* support.scm:1499: ##sys#write-char-0 */
12587 t3=*((C_word*)lf[26]+1);{
12588 C_word *av2;
12589 if(c >= 4) {
12590   av2=av;
12591 } else {
12592   av2=C_alloc(4);
12593 }
12594 av2[0]=t3;
12595 av2[1]=t2;
12596 av2[2]=C_make_character(45);
12597 av2[3]=((C_word*)t0)[3];
12598 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
12599 
12600 /* k16759 in k16756 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16761(C_word c,C_word * av)12601 static void C_ccall f_16761(C_word c,C_word *av){
12602 C_word tmp;
12603 C_word t0=av[0];
12604 C_word t1=av[1];
12605 C_word t2;
12606 C_word t3;
12607 C_word t4;
12608 C_word *a;
12609 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
12610 C_save_and_reclaim((void *)f_16761,c,av);}
12611 a=C_alloc(8);
12612 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12613 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16775,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12614 /* support.scm:1501: chicken.time#current-seconds */
12615 t4=*((C_word*)lf[469]+1);{
12616 C_word *av2=av;
12617 av2[0]=t4;
12618 av2[1]=t3;
12619 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12620 
12621 /* k16762 in k16759 in k16756 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16764(C_word c,C_word * av)12622 static void C_ccall f_16764(C_word c,C_word *av){
12623 C_word tmp;
12624 C_word t0=av[0];
12625 C_word t1=av[1];
12626 C_word t2;
12627 C_word t3;
12628 C_word *a;
12629 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
12630 C_save_and_reclaim((void *)f_16764,c,av);}
12631 a=C_alloc(4);
12632 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12633 /* support.scm:1499: ##sys#print */
12634 t3=*((C_word*)lf[27]+1);{
12635 C_word *av2;
12636 if(c >= 5) {
12637   av2=av;
12638 } else {
12639   av2=C_alloc(5);
12640 }
12641 av2[0]=t3;
12642 av2[1]=t2;
12643 av2[2]=C_random_fixnum(C_fix(1000));
12644 av2[3]=C_SCHEME_FALSE;
12645 av2[4]=((C_word*)t0)[3];
12646 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
12647 
12648 /* k16765 in k16762 in k16759 in k16756 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16767(C_word c,C_word * av)12649 static void C_ccall f_16767(C_word c,C_word *av){
12650 C_word tmp;
12651 C_word t0=av[0];
12652 C_word t1=av[1];
12653 C_word t2;
12654 C_word t3;
12655 C_word *a;
12656 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
12657 C_save_and_reclaim((void *)f_16767,c,av);}
12658 a=C_alloc(3);
12659 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16770,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
12660 /* support.scm:1499: chicken.base#get-output-string */
12661 t3=*((C_word*)lf[331]+1);{
12662 C_word *av2;
12663 if(c >= 3) {
12664   av2=av;
12665 } else {
12666   av2=C_alloc(3);
12667 }
12668 av2[0]=t3;
12669 av2[1]=t2;
12670 av2[2]=((C_word*)t0)[3];
12671 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
12672 
12673 /* k16768 in k16765 in k16762 in k16759 in k16756 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16770(C_word c,C_word * av)12674 static void C_ccall f_16770(C_word c,C_word *av){
12675 C_word tmp;
12676 C_word t0=av[0];
12677 C_word t1=av[1];
12678 C_word t2;
12679 C_word *a;
12680 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
12681 C_save_and_reclaim((void *)f_16770,c,av);}
12682 /* support.scm:1498: scheme#string->symbol */
12683 t2=*((C_word*)lf[468]+1);{
12684 C_word *av2;
12685 if(c >= 3) {
12686   av2=av;
12687 } else {
12688   av2=C_alloc(3);
12689 }
12690 av2[0]=t2;
12691 av2[1]=((C_word*)t0)[2];
12692 av2[2]=t1;
12693 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
12694 
12695 /* k16773 in k16759 in k16756 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16775(C_word c,C_word * av)12696 static void C_ccall f_16775(C_word c,C_word *av){
12697 C_word tmp;
12698 C_word t0=av[0];
12699 C_word t1=av[1];
12700 C_word t2;
12701 C_word *a;
12702 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12703 C_save_and_reclaim((void *)f_16775,c,av);}
12704 /* support.scm:1499: ##sys#print */
12705 t2=*((C_word*)lf[27]+1);{
12706 C_word *av2;
12707 if(c >= 5) {
12708   av2=av;
12709 } else {
12710   av2=C_alloc(5);
12711 }
12712 av2[0]=t2;
12713 av2[1]=((C_word*)t0)[2];
12714 av2[2]=t1;
12715 av2[3]=C_SCHEME_FALSE;
12716 av2[4]=((C_word*)t0)[3];
12717 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
12718 
12719 /* k16777 in k16750 in chicken.compiler.support#make-random-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16779(C_word c,C_word * av)12720 static void C_ccall f_16779(C_word c,C_word *av){
12721 C_word tmp;
12722 C_word t0=av[0];
12723 C_word t1=av[1];
12724 C_word t2;
12725 C_word *a;
12726 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12727 C_save_and_reclaim((void *)f_16779,c,av);}
12728 /* support.scm:1499: ##sys#print */
12729 t2=*((C_word*)lf[27]+1);{
12730 C_word *av2;
12731 if(c >= 5) {
12732   av2=av;
12733 } else {
12734   av2=C_alloc(5);
12735 }
12736 av2[0]=t2;
12737 av2[1]=((C_word*)t0)[2];
12738 av2[2]=t1;
12739 av2[3]=C_SCHEME_FALSE;
12740 av2[4]=((C_word*)t0)[3];
12741 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
12742 
12743 /* chicken.compiler.support#clear-real-name-table! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16791(C_word c,C_word * av)12744 static void C_ccall f_16791(C_word c,C_word *av){
12745 C_word tmp;
12746 C_word t0=av[0];
12747 C_word t1=av[1];
12748 C_word t2;
12749 C_word t3;
12750 C_word *a;
12751 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
12752 C_save_and_reclaim((void *)f_16791,c,av);}
12753 a=C_alloc(3);
12754 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16796,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
12755 /* support.scm:1517: scheme#make-vector */
12756 t3=*((C_word*)lf[301]+1);{
12757 C_word *av2;
12758 if(c >= 4) {
12759   av2=av;
12760 } else {
12761   av2=C_alloc(4);
12762 }
12763 av2[0]=t3;
12764 av2[1]=t2;
12765 av2[2]=C_fix(997);
12766 av2[3]=C_SCHEME_END_OF_LIST;
12767 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
12768 
12769 /* k16794 in chicken.compiler.support#clear-real-name-table! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16796(C_word c,C_word * av)12770 static void C_ccall f_16796(C_word c,C_word *av){
12771 C_word tmp;
12772 C_word t0=av[0];
12773 C_word t1=av[1];
12774 C_word t2;
12775 C_word t3;
12776 C_word *a;
12777 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
12778 C_save_and_reclaim((void *)f_16796,c,av);}
12779 t2=C_mutate(&lf[470] /* (set! chicken.compiler.support#real-name-table ...) */,t1);
12780 t3=((C_word*)t0)[2];{
12781 C_word *av2=av;
12782 av2[0]=t3;
12783 av2[1]=t2;
12784 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12785 
12786 /* chicken.compiler.support#set-real-name! in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16798(C_word c,C_word * av)12787 static void C_ccall f_16798(C_word c,C_word *av){
12788 C_word tmp;
12789 C_word t0=av[0];
12790 C_word t1=av[1];
12791 C_word t2=av[2];
12792 C_word t3=av[3];
12793 C_word t4;
12794 C_word *a;
12795 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12796 C_save_and_reclaim((void *)f_16798,c,av);}
12797 /* support.scm:1520: chicken.internal#hash-table-set! */
12798 t4=*((C_word*)lf[132]+1);{
12799 C_word *av2;
12800 if(c >= 5) {
12801   av2=av;
12802 } else {
12803   av2=C_alloc(5);
12804 }
12805 av2[0]=t4;
12806 av2[1]=t1;
12807 av2[2]=lf[470];
12808 av2[3]=t2;
12809 av2[4]=t3;
12810 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
12811 
12812 /* chicken.compiler.support#get-real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16804(C_word c,C_word * av)12813 static void C_ccall f_16804(C_word c,C_word *av){
12814 C_word tmp;
12815 C_word t0=av[0];
12816 C_word t1=av[1];
12817 C_word t2=av[2];
12818 C_word t3;
12819 C_word *a;
12820 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
12821 C_save_and_reclaim((void *)f_16804,c,av);}
12822 /* support.scm:1525: chicken.internal#hash-table-ref */
12823 t3=*((C_word*)lf[128]+1);{
12824 C_word *av2;
12825 if(c >= 4) {
12826   av2=av;
12827 } else {
12828   av2=C_alloc(4);
12829 }
12830 av2[0]=t3;
12831 av2[1]=t1;
12832 av2[2]=lf[470];
12833 av2[3]=t2;
12834 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
12835 
12836 /* chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16811(C_word c,C_word * av)12837 static void C_ccall f_16811(C_word c,C_word *av){
12838 C_word tmp;
12839 C_word t0=av[0];
12840 C_word t1=av[1];
12841 C_word t2=av[2];
12842 C_word t3;
12843 C_word *a;
12844 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,3)))){
12845 C_save_and_reclaim((void*)f_16811,c,av);}
12846 a=C_alloc((c-3)*C_SIZEOF_PAIR+8);
12847 t3=C_build_rest(&a,c,3,av);
12848 C_word t4;
12849 C_word t5;
12850 C_word t6;
12851 t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16814,tmp=(C_word)a,a+=2,tmp);
12852 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16830,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
12853 /* support.scm:1537: resolve */
12854 f_16814(t5,t2);}
12855 
12856 /* resolve in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16814(C_word t1,C_word t2)12857 static void C_fcall f_16814(C_word t1,C_word t2){
12858 C_word tmp;
12859 C_word t3;
12860 C_word t4;
12861 C_word *a;
12862 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
12863 C_save_and_reclaim_args((void *)trf_16814,2,t1,t2);}
12864 a=C_alloc(4);
12865 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16818,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
12866 /* support.scm:1532: chicken.internal#hash-table-ref */
12867 t4=*((C_word*)lf[128]+1);{
12868 C_word av2[4];
12869 av2[0]=t4;
12870 av2[1]=t3;
12871 av2[2]=lf[470];
12872 av2[3]=t2;
12873 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
12874 
12875 /* k16816 in resolve in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16818(C_word c,C_word * av)12876 static void C_ccall f_16818(C_word c,C_word *av){
12877 C_word tmp;
12878 C_word t0=av[0];
12879 C_word t1=av[1];
12880 C_word t2;
12881 C_word t3;
12882 C_word *a;
12883 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
12884 C_save_and_reclaim((void *)f_16818,c,av);}
12885 a=C_alloc(4);
12886 if(C_truep(t1)){
12887 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16824,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
12888 /* support.scm:1534: chicken.internal#hash-table-ref */
12889 t3=*((C_word*)lf[128]+1);{
12890 C_word *av2;
12891 if(c >= 4) {
12892   av2=av;
12893 } else {
12894   av2=C_alloc(4);
12895 }
12896 av2[0]=t3;
12897 av2[1]=t2;
12898 av2[2]=lf[470];
12899 av2[3]=t1;
12900 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
12901 else{
12902 t2=((C_word*)t0)[2];{
12903 C_word *av2=av;
12904 av2[0]=t2;
12905 av2[1]=((C_word*)t0)[3];
12906 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
12907 
12908 /* k16822 in k16816 in resolve in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16824(C_word c,C_word * av)12909 static void C_ccall f_16824(C_word c,C_word *av){
12910 C_word tmp;
12911 C_word t0=av[0];
12912 C_word t1=av[1];
12913 C_word t2;
12914 C_word *a;
12915 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
12916 C_save_and_reclaim((void *)f_16824,c,av);}
12917 t2=((C_word*)t0)[2];{
12918 C_word *av2=av;
12919 av2[0]=t2;
12920 av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]);
12921 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
12922 
12923 /* k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16830(C_word c,C_word * av)12924 static void C_ccall f_16830(C_word c,C_word *av){
12925 C_word tmp;
12926 C_word t0=av[0];
12927 C_word t1=av[1];
12928 C_word t2;
12929 C_word t3;
12930 C_word t4;
12931 C_word *a;
12932 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
12933 C_save_and_reclaim((void *)f_16830,c,av);}
12934 a=C_alloc(6);
12935 if(C_truep(C_i_not(t1))){
12936 /* support.scm:1538: ##sys#symbol->string */
12937 t2=*((C_word*)lf[180]+1);{
12938 C_word *av2;
12939 if(c >= 3) {
12940   av2=av;
12941 } else {
12942   av2=C_alloc(3);
12943 }
12944 av2[0]=t2;
12945 av2[1]=((C_word*)t0)[2];
12946 av2[2]=((C_word*)t0)[3];
12947 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
12948 else{
12949 if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
12950 t2=C_u_i_car(((C_word*)t0)[4]);
12951 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16926,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
12952 /* support.scm:1541: ##sys#symbol->string */
12953 t4=*((C_word*)lf[180]+1);{
12954 C_word *av2;
12955 if(c >= 3) {
12956   av2=av;
12957 } else {
12958   av2=C_alloc(3);
12959 }
12960 av2[0]=t4;
12961 av2[1]=t3;
12962 av2[2]=t1;
12963 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
12964 else{
12965 /* support.scm:1555: ##sys#symbol->string */
12966 t2=*((C_word*)lf[180]+1);{
12967 C_word *av2;
12968 if(c >= 3) {
12969   av2=av;
12970 } else {
12971   av2=C_alloc(3);
12972 }
12973 av2[0]=t2;
12974 av2[1]=((C_word*)t0)[2];
12975 av2[2]=t1;
12976 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}}
12977 
12978 /* k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16857(C_word c,C_word * av)12979 static void C_ccall f_16857(C_word c,C_word *av){
12980 C_word tmp;
12981 C_word t0=av[0];
12982 C_word t1=av[1];
12983 C_word t2;
12984 C_word t3;
12985 C_word t4;
12986 C_word t5;
12987 C_word *a;
12988 if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
12989 C_save_and_reclaim((void *)f_16857,c,av);}
12990 a=C_alloc(7);
12991 t2=C_SCHEME_UNDEFINED;
12992 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
12993 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16859,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp));
12994 t5=((C_word*)t3)[1];
12995 f_16859(t5,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),t1);}
12996 
12997 /* loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16859(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)12998 static void C_fcall f_16859(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
12999 C_word tmp;
13000 C_word t5;
13001 C_word t6;
13002 C_word t7;
13003 C_word *a;
13004 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
13005 C_save_and_reclaim_args((void *)trf_16859,5,t0,t1,t2,t3,t4);}
13006 a=C_alloc(8);
13007 if(C_truep(C_i_greaterp(t3,C_fix(20)))){
13008 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16873,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
13009 t6=C_a_i_cons(&a,2,lf[476],t2);
13010 /* support.scm:1546: scheme#reverse */
13011 t7=*((C_word*)lf[80]+1);{
13012 C_word av2[3];
13013 av2[0]=t7;
13014 av2[1]=t5;
13015 av2[2]=t6;
13016 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
13017 else{
13018 if(C_truep(t4)){
13019 t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16883,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
13020 /* support.scm:1548: resolve */
13021 f_16814(t5,t4);}
13022 else{
13023 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16922,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
13024 /* support.scm:1554: scheme#reverse */
13025 t6=*((C_word*)lf[80]+1);{
13026 C_word av2[3];
13027 av2[0]=t6;
13028 av2[1]=t5;
13029 av2[2]=t2;
13030 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}
13031 
13032 /* k16871 in loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16873(C_word c,C_word * av)13033 static void C_ccall f_16873(C_word c,C_word *av){
13034 C_word tmp;
13035 C_word t0=av[0];
13036 C_word t1=av[1];
13037 C_word t2;
13038 C_word *a;
13039 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13040 C_save_and_reclaim((void *)f_16873,c,av);}
13041 /* support.scm:1546: chicken.string#string-intersperse */
13042 t2=*((C_word*)lf[474]+1);{
13043 C_word *av2;
13044 if(c >= 4) {
13045   av2=av;
13046 } else {
13047   av2=C_alloc(4);
13048 }
13049 av2[0]=t2;
13050 av2[1]=((C_word*)t0)[2];
13051 av2[2]=t1;
13052 av2[3]=lf[475];
13053 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13054 
13055 /* k16881 in loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16883(C_word c,C_word * av)13056 static void C_ccall f_16883(C_word c,C_word *av){
13057 C_word tmp;
13058 C_word t0=av[0];
13059 C_word t1=av[1];
13060 C_word t2;
13061 C_word t3;
13062 C_word t4;
13063 C_word *a;
13064 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
13065 C_save_and_reclaim((void *)f_16883,c,av);}
13066 a=C_alloc(8);
13067 t2=C_eqp(t1,((C_word*)t0)[2]);
13068 if(C_truep(t2)){
13069 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16896,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
13070 /* support.scm:1550: scheme#reverse */
13071 t4=*((C_word*)lf[80]+1);{
13072 C_word *av2;
13073 if(c >= 3) {
13074   av2=av;
13075 } else {
13076   av2=C_alloc(3);
13077 }
13078 av2[0]=t4;
13079 av2[1]=t3;
13080 av2[2]=((C_word*)t0)[4];
13081 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
13082 else{
13083 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16915,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
13084 /* support.scm:1551: scheme#symbol->string */
13085 t4=*((C_word*)lf[240]+1);{
13086 C_word *av2;
13087 if(c >= 3) {
13088   av2=av;
13089 } else {
13090   av2=C_alloc(3);
13091 }
13092 av2[0]=t4;
13093 av2[1]=t3;
13094 av2[2]=t1;
13095 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
13096 
13097 /* k16894 in k16881 in loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16896(C_word c,C_word * av)13098 static void C_ccall f_16896(C_word c,C_word *av){
13099 C_word tmp;
13100 C_word t0=av[0];
13101 C_word t1=av[1];
13102 C_word t2;
13103 C_word *a;
13104 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13105 C_save_and_reclaim((void *)f_16896,c,av);}
13106 /* support.scm:1550: chicken.string#string-intersperse */
13107 t2=*((C_word*)lf[474]+1);{
13108 C_word *av2;
13109 if(c >= 4) {
13110   av2=av;
13111 } else {
13112   av2=C_alloc(4);
13113 }
13114 av2[0]=t2;
13115 av2[1]=((C_word*)t0)[2];
13116 av2[2]=t1;
13117 av2[3]=lf[477];
13118 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13119 
13120 /* k16909 in k16913 in k16881 in loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16911(C_word c,C_word * av)13121 static void C_ccall f_16911(C_word c,C_word *av){
13122 C_word tmp;
13123 C_word t0=av[0];
13124 C_word t1=av[1];
13125 C_word t2;
13126 C_word *a;
13127 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
13128 C_save_and_reclaim((void *)f_16911,c,av);}
13129 /* support.scm:1551: loop */
13130 t2=((C_word*)((C_word*)t0)[2])[1];
13131 f_16859(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
13132 
13133 /* k16913 in k16881 in loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16915(C_word c,C_word * av)13134 static void C_ccall f_16915(C_word c,C_word *av){
13135 C_word tmp;
13136 C_word t0=av[0];
13137 C_word t1=av[1];
13138 C_word t2;
13139 C_word t3;
13140 C_word t4;
13141 C_word t5;
13142 C_word *a;
13143 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
13144 C_save_and_reclaim((void *)f_16915,c,av);}
13145 a=C_alloc(9);
13146 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
13147 t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
13148 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16911,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
13149 /* support.scm:1553: db-get */
13150 t5=*((C_word*)lf[127]+1);{
13151 C_word *av2;
13152 if(c >= 5) {
13153   av2=av;
13154 } else {
13155   av2=C_alloc(5);
13156 }
13157 av2[0]=t5;
13158 av2[1]=t4;
13159 av2[2]=((C_word*)t0)[6];
13160 av2[3]=((C_word*)t0)[7];
13161 av2[4]=lf[478];
13162 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
13163 
13164 /* k16920 in loop in k16855 in k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16922(C_word c,C_word * av)13165 static void C_ccall f_16922(C_word c,C_word *av){
13166 C_word tmp;
13167 C_word t0=av[0];
13168 C_word t1=av[1];
13169 C_word t2;
13170 C_word *a;
13171 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13172 C_save_and_reclaim((void *)f_16922,c,av);}
13173 /* support.scm:1554: chicken.string#string-intersperse */
13174 t2=*((C_word*)lf[474]+1);{
13175 C_word *av2;
13176 if(c >= 4) {
13177   av2=av;
13178 } else {
13179   av2=C_alloc(4);
13180 }
13181 av2[0]=t2;
13182 av2[1]=((C_word*)t0)[2];
13183 av2[2]=t1;
13184 av2[3]=lf[479];
13185 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13186 
13187 /* k16924 in k16828 in chicken.compiler.support#real-name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16926(C_word c,C_word * av)13188 static void C_ccall f_16926(C_word c,C_word *av){
13189 C_word tmp;
13190 C_word t0=av[0];
13191 C_word t1=av[1];
13192 C_word t2;
13193 C_word t3;
13194 C_word t4;
13195 C_word *a;
13196 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
13197 C_save_and_reclaim((void *)f_16926,c,av);}
13198 a=C_alloc(9);
13199 t2=C_a_i_list1(&a,1,t1);
13200 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
13201 /* support.scm:1543: db-get */
13202 t4=*((C_word*)lf[127]+1);{
13203 C_word *av2;
13204 if(c >= 5) {
13205   av2=av;
13206 } else {
13207   av2=C_alloc(5);
13208 }
13209 av2[0]=t4;
13210 av2[1]=t3;
13211 av2[2]=((C_word*)t0)[2];
13212 av2[3]=((C_word*)t0)[5];
13213 av2[4]=lf[478];
13214 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
13215 
13216 /* chicken.compiler.support#real-name2 in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16931(C_word c,C_word * av)13217 static void C_ccall f_16931(C_word c,C_word *av){
13218 C_word tmp;
13219 C_word t0=av[0];
13220 C_word t1=av[1];
13221 C_word t2=av[2];
13222 C_word t3=av[3];
13223 C_word t4;
13224 C_word t5;
13225 C_word *a;
13226 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
13227 C_save_and_reclaim((void *)f_16931,c,av);}
13228 a=C_alloc(4);
13229 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16935,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
13230 /* support.scm:1558: chicken.internal#hash-table-ref */
13231 t5=*((C_word*)lf[128]+1);{
13232 C_word *av2=av;
13233 av2[0]=t5;
13234 av2[1]=t4;
13235 av2[2]=lf[470];
13236 av2[3]=t2;
13237 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
13238 
13239 /* k16933 in chicken.compiler.support#real-name2 in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16935(C_word c,C_word * av)13240 static void C_ccall f_16935(C_word c,C_word *av){
13241 C_word tmp;
13242 C_word t0=av[0];
13243 C_word t1=av[1];
13244 C_word t2;
13245 C_word *a;
13246 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13247 C_save_and_reclaim((void *)f_16935,c,av);}
13248 if(C_truep(t1)){
13249 /* support.scm:1559: real-name */
13250 t2=*((C_word*)lf[181]+1);{
13251 C_word *av2;
13252 if(c >= 4) {
13253   av2=av;
13254 } else {
13255   av2=C_alloc(4);
13256 }
13257 av2[0]=t2;
13258 av2[1]=((C_word*)t0)[2];
13259 av2[2]=t1;
13260 av2[3]=((C_word*)t0)[3];
13261 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13262 else{
13263 t2=((C_word*)t0)[2];{
13264 C_word *av2=av;
13265 av2[0]=t2;
13266 av2[1]=C_SCHEME_FALSE;
13267 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
13268 
13269 /* chicken.compiler.support#display-real-name-table in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16943(C_word c,C_word * av)13270 static void C_ccall f_16943(C_word c,C_word *av){
13271 C_word tmp;
13272 C_word t0=av[0];
13273 C_word t1=av[1];
13274 C_word t2;
13275 C_word t3;
13276 C_word *a;
13277 if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
13278 C_save_and_reclaim((void *)f_16943,c,av);}
13279 a=C_alloc(2);
13280 t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16949,tmp=(C_word)a,a+=2,tmp);
13281 /* support.scm:1562: chicken.internal#hash-table-for-each */
13282 t3=*((C_word*)lf[139]+1);{
13283 C_word *av2;
13284 if(c >= 4) {
13285   av2=av;
13286 } else {
13287   av2=C_alloc(4);
13288 }
13289 av2[0]=t3;
13290 av2[1]=t1;
13291 av2[2]=t2;
13292 av2[3]=lf[470];
13293 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
13294 
13295 /* a16948 in chicken.compiler.support#display-real-name-table in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16949(C_word c,C_word * av)13296 static void C_ccall f_16949(C_word c,C_word *av){
13297 C_word tmp;
13298 C_word t0=av[0];
13299 C_word t1=av[1];
13300 C_word t2=av[2];
13301 C_word t3=av[3];
13302 C_word t4;
13303 C_word t5;
13304 C_word t6;
13305 C_word t7;
13306 C_word t8;
13307 C_word *a;
13308 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
13309 C_save_and_reclaim((void *)f_16949,c,av);}
13310 a=C_alloc(5);
13311 t4=*((C_word*)lf[24]+1);
13312 t5=*((C_word*)lf[24]+1);
13313 t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
13314 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16956,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
13315 /* support.scm:1564: ##sys#print */
13316 t8=*((C_word*)lf[27]+1);{
13317 C_word *av2;
13318 if(c >= 5) {
13319   av2=av;
13320 } else {
13321   av2=C_alloc(5);
13322 }
13323 av2[0]=t8;
13324 av2[1]=t7;
13325 av2[2]=t2;
13326 av2[3]=C_SCHEME_TRUE;
13327 av2[4]=*((C_word*)lf[24]+1);
13328 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
13329 
13330 /* k16954 in a16948 in chicken.compiler.support#display-real-name-table in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16956(C_word c,C_word * av)13331 static void C_ccall f_16956(C_word c,C_word *av){
13332 C_word tmp;
13333 C_word t0=av[0];
13334 C_word t1=av[1];
13335 C_word t2;
13336 C_word t3;
13337 C_word *a;
13338 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
13339 C_save_and_reclaim((void *)f_16956,c,av);}
13340 a=C_alloc(5);
13341 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
13342 /* support.scm:1564: ##sys#write-char-0 */
13343 t3=*((C_word*)lf[26]+1);{
13344 C_word *av2;
13345 if(c >= 4) {
13346   av2=av;
13347 } else {
13348   av2=C_alloc(4);
13349 }
13350 av2[0]=t3;
13351 av2[1]=t2;
13352 av2[2]=C_make_character(9);
13353 av2[3]=((C_word*)t0)[3];
13354 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
13355 
13356 /* k16957 in k16954 in a16948 in chicken.compiler.support#display-real-name-table in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16959(C_word c,C_word * av)13357 static void C_ccall f_16959(C_word c,C_word *av){
13358 C_word tmp;
13359 C_word t0=av[0];
13360 C_word t1=av[1];
13361 C_word t2;
13362 C_word t3;
13363 C_word *a;
13364 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
13365 C_save_and_reclaim((void *)f_16959,c,av);}
13366 a=C_alloc(4);
13367 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16962,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
13368 /* support.scm:1564: ##sys#print */
13369 t3=*((C_word*)lf[27]+1);{
13370 C_word *av2;
13371 if(c >= 5) {
13372   av2=av;
13373 } else {
13374   av2=C_alloc(5);
13375 }
13376 av2[0]=t3;
13377 av2[1]=t2;
13378 av2[2]=((C_word*)t0)[4];
13379 av2[3]=C_SCHEME_TRUE;
13380 av2[4]=((C_word*)t0)[3];
13381 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
13382 
13383 /* k16960 in k16957 in k16954 in a16948 in chicken.compiler.support#display-real-name-table in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16962(C_word c,C_word * av)13384 static void C_ccall f_16962(C_word c,C_word *av){
13385 C_word tmp;
13386 C_word t0=av[0];
13387 C_word t1=av[1];
13388 C_word t2;
13389 C_word *a;
13390 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13391 C_save_and_reclaim((void *)f_16962,c,av);}
13392 /* support.scm:1564: ##sys#write-char-0 */
13393 t2=*((C_word*)lf[26]+1);{
13394 C_word *av2;
13395 if(c >= 4) {
13396   av2=av;
13397 } else {
13398   av2=C_alloc(4);
13399 }
13400 av2[0]=t2;
13401 av2[1]=((C_word*)t0)[2];
13402 av2[2]=C_make_character(10);
13403 av2[3]=((C_word*)t0)[3];
13404 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13405 
13406 /* chicken.compiler.support#source-info->string in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16967(C_word c,C_word * av)13407 static void C_ccall f_16967(C_word c,C_word *av){
13408 C_word tmp;
13409 C_word t0=av[0];
13410 C_word t1=av[1];
13411 C_word t2=av[2];
13412 C_word t3;
13413 C_word t4;
13414 C_word t5;
13415 C_word t6;
13416 C_word t7;
13417 C_word t8;
13418 C_word t9;
13419 C_word *a;
13420 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
13421 C_save_and_reclaim((void *)f_16967,c,av);}
13422 a=C_alloc(13);
13423 if(C_truep(C_i_listp(t2))){
13424 t3=C_i_car(t2);
13425 t4=C_i_cadr(t2);
13426 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16987,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
13427 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16991,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
13428 t7=C_i_string_length(t3);
13429 t8=C_a_i_fixnum_difference(&a,2,C_fix(4),t7);
13430 /* support.scm:1571: scheme#max */
13431 t9=*((C_word*)lf[487]+1);{
13432 C_word *av2;
13433 if(c >= 4) {
13434   av2=av;
13435 } else {
13436   av2=C_alloc(4);
13437 }
13438 av2[0]=t9;
13439 av2[1]=t6;
13440 av2[2]=C_fix(0);
13441 av2[3]=t8;
13442 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
13443 else{
13444 /* support.scm:1572: chicken.string#->string */
13445 t3=*((C_word*)lf[66]+1);{
13446 C_word *av2=av;
13447 av2[0]=t3;
13448 av2[1]=t1;
13449 av2[2]=t2;
13450 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
13451 
13452 /* k16985 in chicken.compiler.support#source-info->string in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16987(C_word c,C_word * av)13453 static void C_ccall f_16987(C_word c,C_word *av){
13454 C_word tmp;
13455 C_word t0=av[0];
13456 C_word t1=av[1];
13457 C_word t2;
13458 C_word *a;
13459 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
13460 C_save_and_reclaim((void *)f_16987,c,av);}
13461 /* support.scm:1571: chicken.string#conc */
13462 t2=*((C_word*)lf[483]+1);{
13463 C_word *av2;
13464 if(c >= 7) {
13465   av2=av;
13466 } else {
13467   av2=C_alloc(7);
13468 }
13469 av2[0]=t2;
13470 av2[1]=((C_word*)t0)[2];
13471 av2[2]=((C_word*)t0)[3];
13472 av2[3]=lf[484];
13473 av2[4]=t1;
13474 av2[5]=lf[485];
13475 av2[6]=((C_word*)t0)[4];
13476 ((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}
13477 
13478 /* k16989 in chicken.compiler.support#source-info->string in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_16991(C_word c,C_word * av)13479 static void C_ccall f_16991(C_word c,C_word *av){
13480 C_word tmp;
13481 C_word t0=av[0];
13482 C_word t1=av[1];
13483 C_word t2;
13484 C_word *a;
13485 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13486 C_save_and_reclaim((void *)f_16991,c,av);}
13487 /* support.scm:1571: scheme#make-string */
13488 t2=*((C_word*)lf[486]+1);{
13489 C_word *av2;
13490 if(c >= 4) {
13491   av2=av;
13492 } else {
13493   av2=C_alloc(4);
13494 }
13495 av2[0]=t2;
13496 av2[1]=((C_word*)t0)[2];
13497 av2[2]=t1;
13498 av2[3]=C_make_character(32);
13499 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13500 
13501 /* chicken.compiler.support#source-info->name in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17002(C_word c,C_word * av)13502 static void C_ccall f_17002(C_word c,C_word *av){
13503 C_word tmp;
13504 C_word t0=av[0];
13505 C_word t1=av[1];
13506 C_word t2=av[2];
13507 C_word t3;
13508 C_word *a;
13509 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
13510 C_save_and_reclaim((void *)f_17002,c,av);}
13511 if(C_truep(C_i_listp(t2))){
13512 t3=t1;{
13513 C_word *av2=av;
13514 av2[0]=t3;
13515 av2[1]=C_i_cadr(t2);
13516 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
13517 else{
13518 /* support.scm:1575: chicken.string#->string */
13519 t3=*((C_word*)lf[66]+1);{
13520 C_word *av2=av;
13521 av2[0]=t3;
13522 av2[1]=t1;
13523 av2[2]=t2;
13524 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
13525 
13526 /* chicken.compiler.support#source-info->line in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17017(C_word c,C_word * av)13527 static void C_ccall f_17017(C_word c,C_word *av){
13528 C_word tmp;
13529 C_word t0=av[0];
13530 C_word t1=av[1];
13531 C_word t2=av[2];
13532 C_word t3;
13533 C_word t4;
13534 C_word *a;
13535 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13536 C_save_and_reclaim((void *)f_17017,c,av);}
13537 t3=C_i_listp(t2);
13538 t4=t1;{
13539 C_word *av2=av;
13540 av2[0]=t4;
13541 av2[1]=(C_truep(t3)?C_i_car(t2):C_SCHEME_FALSE);
13542 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
13543 
13544 /* chicken.compiler.support#call-info in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17029(C_word c,C_word * av)13545 static void C_ccall f_17029(C_word c,C_word *av){
13546 C_word tmp;
13547 C_word t0=av[0];
13548 C_word t1=av[1];
13549 C_word t2=av[2];
13550 C_word t3=av[3];
13551 C_word t4;
13552 C_word t5;
13553 C_word t6;
13554 C_word t7;
13555 C_word t8;
13556 C_word t9;
13557 C_word t10;
13558 C_word *a;
13559 if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
13560 C_save_and_reclaim((void *)f_17029,c,av);}
13561 a=C_alloc(4);
13562 t4=C_i_cdr(t2);
13563 t5=C_i_pairp(t4);
13564 t6=(C_truep(t5)?C_i_cadr(t2):C_SCHEME_FALSE);
13565 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17036,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
13566 if(C_truep(t6)){
13567 if(C_truep(C_i_listp(t6))){
13568 t8=C_i_car(t6);
13569 t9=C_i_cadr(t6);
13570 /* support.scm:1585: chicken.string#conc */
13571 t10=*((C_word*)lf[483]+1);{
13572 C_word *av2;
13573 if(c >= 6) {
13574   av2=av;
13575 } else {
13576   av2=C_alloc(6);
13577 }
13578 av2[0]=t10;
13579 av2[1]=t7;
13580 av2[2]=lf[491];
13581 av2[3]=t8;
13582 av2[4]=lf[492];
13583 av2[5]=t3;
13584 ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}
13585 else{
13586 t8=t1;{
13587 C_word *av2=av;
13588 av2[0]=t8;
13589 av2[1]=t3;
13590 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
13591 else{
13592 t8=t1;{
13593 C_word *av2=av;
13594 av2[0]=t8;
13595 av2[1]=t3;
13596 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
13597 
13598 /* k17034 in chicken.compiler.support#call-info in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17036(C_word c,C_word * av)13599 static void C_ccall f_17036(C_word c,C_word *av){
13600 C_word tmp;
13601 C_word t0=av[0];
13602 C_word t1=av[1];
13603 C_word t2;
13604 C_word *a;
13605 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13606 C_save_and_reclaim((void *)f_17036,c,av);}
13607 t2=((C_word*)t0)[2];{
13608 C_word *av2=av;
13609 av2[0]=t2;
13610 av2[1]=(C_truep(t1)?t1:((C_word*)t0)[3]);
13611 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13612 
13613 /* chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17066(C_word c,C_word * av)13614 static void C_ccall f_17066(C_word c,C_word *av){
13615 C_word tmp;
13616 C_word t0=av[0];
13617 C_word t1=av[1];
13618 C_word t2=av[2];
13619 C_word t3=av[3];
13620 C_word t4=av[4];
13621 C_word t5;
13622 C_word t6;
13623 C_word t7;
13624 C_word t8;
13625 C_word t9;
13626 C_word t10;
13627 C_word t11;
13628 C_word t12;
13629 C_word t13;
13630 C_word t14;
13631 C_word *a;
13632 if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
13633 C_save_and_reclaim((void *)f_17066,c,av);}
13634 a=C_alloc(17);
13635 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13636 t6=t5;
13637 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
13638 t8=((C_word*)t7)[1];
13639 t9=C_i_check_list_2(t3,lf[125]);
13640 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17090,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
13641 t11=C_SCHEME_UNDEFINED;
13642 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
13643 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17262,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
13644 t14=((C_word*)t12)[1];
13645 f_17262(t14,t10,t3);}
13646 
13647 /* k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17090(C_word c,C_word * av)13648 static void C_ccall f_17090(C_word c,C_word *av){
13649 C_word tmp;
13650 C_word t0=av[0];
13651 C_word t1=av[1];
13652 C_word t2;
13653 C_word t3;
13654 C_word t4;
13655 C_word t5;
13656 C_word t6;
13657 C_word t7;
13658 C_word t8;
13659 C_word t9;
13660 C_word t10;
13661 C_word t11;
13662 C_word *a;
13663 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
13664 C_save_and_reclaim((void *)f_17090,c,av);}
13665 a=C_alloc(18);
13666 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13667 t3=t2;
13668 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
13669 t5=((C_word*)t4)[1];
13670 t6=C_i_check_list_2(t1,lf[125]);
13671 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17226,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
13672 t8=C_SCHEME_UNDEFINED;
13673 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
13674 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17228,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
13675 t11=((C_word*)t9)[1];
13676 f_17228(t11,t7,t1);}
13677 
13678 /* k17103 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17105(C_word c,C_word * av)13679 static void C_ccall f_17105(C_word c,C_word *av){
13680 C_word tmp;
13681 C_word t0=av[0];
13682 C_word t1=av[1];
13683 C_word t2;
13684 C_word t3;
13685 C_word *a;
13686 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
13687 C_save_and_reclaim((void *)f_17105,c,av);}
13688 a=C_alloc(5);
13689 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17108,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
13690 /* support.scm:1597: g4235 */
13691 t3=t1;{
13692 C_word *av2=av;
13693 av2[0]=t3;
13694 av2[1]=t2;
13695 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
13696 
13697 /* k17106 in k17103 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17108(C_word c,C_word * av)13698 static void C_ccall f_17108(C_word c,C_word *av){
13699 C_word tmp;
13700 C_word t0=av[0];
13701 C_word t1=av[1];
13702 C_word t2;
13703 C_word t3;
13704 C_word *a;
13705 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
13706 C_save_and_reclaim((void *)f_17108,c,av);}
13707 a=C_alloc(6);
13708 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
13709 /* support.scm:1598: chicken.condition#condition? */
13710 t3=*((C_word*)lf[497]+1);{
13711 C_word *av2;
13712 if(c >= 3) {
13713   av2=av;
13714 } else {
13715   av2=C_alloc(3);
13716 }
13717 av2[0]=t3;
13718 av2[1]=t2;
13719 av2[2]=t1;
13720 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
13721 
13722 /* k17112 in k17106 in k17103 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17114(C_word c,C_word * av)13723 static void C_ccall f_17114(C_word c,C_word *av){
13724 C_word tmp;
13725 C_word t0=av[0];
13726 C_word t1=av[1];
13727 C_word t2;
13728 C_word t3;
13729 C_word t4;
13730 C_word t5;
13731 C_word *a;
13732 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
13733 C_save_and_reclaim((void *)f_17114,c,av);}
13734 a=C_alloc(6);
13735 if(C_truep(t1)){
13736 /* support.scm:1598: k */
13737 t2=((C_word*)t0)[2];{
13738 C_word *av2;
13739 if(c >= 4) {
13740   av2=av;
13741 } else {
13742   av2=C_alloc(4);
13743 }
13744 av2[0]=t2;
13745 av2[1]=((C_word*)t0)[3];
13746 av2[2]=C_SCHEME_FALSE;
13747 av2[3]=C_SCHEME_FALSE;
13748 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13749 else{
13750 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17123,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
13751 t3=C_i_length(((C_word*)t0)[4]);
13752 t4=C_eqp(C_fix(1),t3);
13753 if(C_truep(t4)){
13754 /* support.scm:1600: encodeable-literal? */
13755 t5=lf[496];{
13756 C_word *av2;
13757 if(c >= 3) {
13758   av2=av;
13759 } else {
13760   av2=C_alloc(3);
13761 }
13762 av2[0]=t5;
13763 av2[1]=t2;
13764 av2[2]=C_i_car(((C_word*)t0)[4]);
13765 f_17395(3,av2);}}
13766 else{
13767 t5=t2;{
13768 C_word *av2=av;
13769 av2[0]=t5;
13770 av2[1]=C_SCHEME_FALSE;
13771 f_17123(2,av2);}}}}
13772 
13773 /* k17121 in k17112 in k17106 in k17103 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17123(C_word c,C_word * av)13774 static void C_ccall f_17123(C_word c,C_word *av){
13775 C_word tmp;
13776 C_word t0=av[0];
13777 C_word t1=av[1];
13778 C_word t2;
13779 C_word t3;
13780 C_word *a;
13781 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
13782 C_save_and_reclaim((void *)f_17123,c,av);}
13783 a=C_alloc(5);
13784 if(C_truep(t1)){
13785 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17126,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
13786 /* support.scm:1601: debugging */
13787 t3=*((C_word*)lf[22]+1);{
13788 C_word *av2;
13789 if(c >= 5) {
13790   av2=av;
13791 } else {
13792   av2=C_alloc(5);
13793 }
13794 av2[0]=t3;
13795 av2[1]=t2;
13796 av2[2]=lf[190];
13797 av2[3]=lf[494];
13798 av2[4]=((C_word*)t0)[5];
13799 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
13800 else{
13801 t2=C_eqp(C_fix(1),C_u_i_length(((C_word*)t0)[4]));
13802 if(C_truep(t2)){
13803 /* support.scm:1604: k */
13804 t3=((C_word*)t0)[2];{
13805 C_word *av2;
13806 if(c >= 4) {
13807   av2=av;
13808 } else {
13809   av2=C_alloc(4);
13810 }
13811 av2[0]=t3;
13812 av2[1]=((C_word*)t0)[3];
13813 av2[2]=C_SCHEME_FALSE;
13814 av2[3]=C_SCHEME_FALSE;
13815 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
13816 else{
13817 /* support.scm:1606: bomb */
13818 t3=*((C_word*)lf[13]+1);{
13819 C_word *av2;
13820 if(c >= 4) {
13821   av2=av;
13822 } else {
13823   av2=C_alloc(4);
13824 }
13825 av2[0]=t3;
13826 av2[1]=((C_word*)t0)[3];
13827 av2[2]=lf[495];
13828 av2[3]=((C_word*)t0)[5];
13829 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}
13830 
13831 /* k17124 in k17121 in k17112 in k17106 in k17103 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17126(C_word c,C_word * av)13832 static void C_ccall f_17126(C_word c,C_word *av){
13833 C_word tmp;
13834 C_word t0=av[0];
13835 C_word t1=av[1];
13836 C_word t2;
13837 C_word *a;
13838 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13839 C_save_and_reclaim((void *)f_17126,c,av);}
13840 /* support.scm:1602: k */
13841 t2=((C_word*)t0)[2];{
13842 C_word *av2;
13843 if(c >= 4) {
13844   av2=av;
13845 } else {
13846   av2=C_alloc(4);
13847 }
13848 av2[0]=t2;
13849 av2[1]=((C_word*)t0)[3];
13850 av2[2]=C_SCHEME_TRUE;
13851 av2[3]=C_i_car(((C_word*)t0)[4]);
13852 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13853 
13854 /* a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17165(C_word c,C_word * av)13855 static void C_ccall f_17165(C_word c,C_word *av){
13856 C_word tmp;
13857 C_word t0=av[0];
13858 C_word t1=av[1];
13859 C_word t2=av[2];
13860 C_word t3;
13861 C_word t4;
13862 C_word t5;
13863 C_word *a;
13864 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
13865 C_save_and_reclaim((void *)f_17165,c,av);}
13866 a=C_alloc(8);
13867 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17171,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
13868 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17180,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
13869 /* support.scm:1597: chicken.condition#with-exception-handler */
13870 t5=*((C_word*)lf[106]+1);{
13871 C_word *av2;
13872 if(c >= 4) {
13873   av2=av;
13874 } else {
13875   av2=C_alloc(4);
13876 }
13877 av2[0]=t5;
13878 av2[1]=t1;
13879 av2[2]=t3;
13880 av2[3]=t4;
13881 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
13882 
13883 /* a17170 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17171(C_word c,C_word * av)13884 static void C_ccall f_17171(C_word c,C_word *av){
13885 C_word tmp;
13886 C_word t0=av[0];
13887 C_word t1=av[1];
13888 C_word t2=av[2];
13889 C_word t3;
13890 C_word t4;
13891 C_word *a;
13892 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13893 C_save_and_reclaim((void *)f_17171,c,av);}
13894 a=C_alloc(3);
13895 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17177,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
13896 /* support.scm:1597: k4232 */
13897 t4=((C_word*)t0)[2];{
13898 C_word *av2=av;
13899 av2[0]=t4;
13900 av2[1]=t1;
13901 av2[2]=t3;
13902 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
13903 
13904 /* a17176 in a17170 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17177(C_word c,C_word * av)13905 static void C_ccall f_17177(C_word c,C_word *av){
13906 C_word tmp;
13907 C_word t0=av[0];
13908 C_word t1=av[1];
13909 C_word t2;
13910 C_word *a;
13911 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13912 C_save_and_reclaim((void *)f_17177,c,av);}
13913 t2=t1;{
13914 C_word *av2=av;
13915 av2[0]=t2;
13916 av2[1]=((C_word*)t0)[2];
13917 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13918 
13919 /* a17179 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17180(C_word c,C_word * av)13920 static void C_ccall f_17180(C_word c,C_word *av){
13921 C_word tmp;
13922 C_word t0=av[0];
13923 C_word t1=av[1];
13924 C_word t2;
13925 C_word t3;
13926 C_word t4;
13927 C_word *a;
13928 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
13929 C_save_and_reclaim((void *)f_17180,c,av);}
13930 a=C_alloc(7);
13931 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
13932 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17198,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
13933 /* support.scm:1597: ##sys#call-with-values */{
13934 C_word *av2;
13935 if(c >= 4) {
13936   av2=av;
13937 } else {
13938   av2=C_alloc(4);
13939 }
13940 av2[0]=0;
13941 av2[1]=t1;
13942 av2[2]=t2;
13943 av2[3]=t3;
13944 C_call_with_values(4,av2);}}
13945 
13946 /* a17185 in a17179 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17186(C_word c,C_word * av)13947 static void C_ccall f_17186(C_word c,C_word *av){
13948 C_word tmp;
13949 C_word t0=av[0];
13950 C_word t1=av[1];
13951 C_word t2;
13952 C_word t3;
13953 C_word *a;
13954 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
13955 C_save_and_reclaim((void *)f_17186,c,av);}
13956 a=C_alloc(4);
13957 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17192,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
13958 /* support.scm:1597: ##sys#call-with-values */{
13959 C_word *av2;
13960 if(c >= 4) {
13961   av2=av;
13962 } else {
13963   av2=C_alloc(4);
13964 }
13965 av2[0]=0;
13966 av2[1]=t1;
13967 av2[2]=t2;
13968 av2[3]=*((C_word*)lf[498]+1);
13969 C_call_with_values(4,av2);}}
13970 
13971 /* a17191 in a17185 in a17179 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17192(C_word c,C_word * av)13972 static void C_ccall f_17192(C_word c,C_word *av){
13973 C_word tmp;
13974 C_word t0=av[0];
13975 C_word t1=av[1];
13976 C_word t2;
13977 C_word *a;
13978 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13979 C_save_and_reclaim((void *)f_17192,c,av);}{
13980 C_word *av2;
13981 if(c >= 4) {
13982   av2=av;
13983 } else {
13984   av2=C_alloc(4);
13985 }
13986 av2[0]=0;
13987 av2[1]=t1;
13988 av2[2]=((C_word*)t0)[2];
13989 av2[3]=((C_word*)t0)[3];
13990 C_apply(4,av2);}}
13991 
13992 /* a17197 in a17179 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17198(C_word c,C_word * av)13993 static void C_ccall f_17198(C_word c,C_word *av){
13994 C_word tmp;
13995 C_word t0=av[0];
13996 C_word t1=av[1];
13997 C_word t2;
13998 C_word *a;
13999 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){
14000 C_save_and_reclaim((void*)f_17198,c,av);}
14001 a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
14002 t2=C_build_rest(&a,c,2,av);
14003 C_word t3;
14004 C_word t4;
14005 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17204,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
14006 /* support.scm:1597: k4232 */
14007 t4=((C_word*)t0)[2];{
14008 C_word *av2;
14009 if(c >= 3) {
14010   av2=av;
14011 } else {
14012   av2=C_alloc(3);
14013 }
14014 av2[0]=t4;
14015 av2[1]=t1;
14016 av2[2]=t3;
14017 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
14018 
14019 /* a17203 in a17197 in a17179 in a17164 in k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17204(C_word c,C_word * av)14020 static void C_ccall f_17204(C_word c,C_word *av){
14021 C_word tmp;
14022 C_word t0=av[0];
14023 C_word t1=av[1];
14024 C_word t2;
14025 C_word *a;
14026 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
14027 C_save_and_reclaim((void *)f_17204,c,av);}{
14028 C_word *av2;
14029 if(c >= 3) {
14030   av2=av;
14031 } else {
14032   av2=C_alloc(3);
14033 }
14034 av2[0]=0;
14035 av2[1]=t1;
14036 av2[2]=((C_word*)t0)[2];
14037 C_apply_values(3,av2);}}
14038 
14039 /* k17224 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17226(C_word c,C_word * av)14040 static void C_ccall f_17226(C_word c,C_word *av){
14041 C_word tmp;
14042 C_word t0=av[0];
14043 C_word t1=av[1];
14044 C_word t2;
14045 C_word t3;
14046 C_word t4;
14047 C_word t5;
14048 C_word t6;
14049 C_word *a;
14050 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
14051 C_save_and_reclaim((void *)f_17226,c,av);}
14052 a=C_alloc(12);
14053 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
14054 t3=C_slot(((C_word*)t0)[2],C_fix(0));
14055 if(C_truep(C_i_closurep(t3))){
14056 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17105,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
14057 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17165,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
14058 /* support.scm:1597: scheme#call-with-current-continuation */
14059 t6=*((C_word*)lf[107]+1);{
14060 C_word *av2;
14061 if(c >= 3) {
14062   av2=av;
14063 } else {
14064   av2=C_alloc(3);
14065 }
14066 av2[0]=t6;
14067 av2[1]=t4;
14068 av2[2]=t5;
14069 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
14070 else{
14071 /* support.scm:1607: bomb */
14072 t4=*((C_word*)lf[13]+1);{
14073 C_word *av2;
14074 if(c >= 4) {
14075   av2=av;
14076 } else {
14077   av2=C_alloc(4);
14078 }
14079 av2[0]=t4;
14080 av2[1]=((C_word*)t0)[4];
14081 av2[2]=lf[499];
14082 av2[3]=t2;
14083 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
14084 
14085 /* map-loop4202 in k17088 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17228(C_word t0,C_word t1,C_word t2)14086 static void C_fcall f_17228(C_word t0,C_word t1,C_word t2){
14087 C_word tmp;
14088 C_word t3;
14089 C_word t4;
14090 C_word t5;
14091 C_word t6;
14092 C_word t7;
14093 C_word t8;
14094 C_word t9;
14095 C_word t10;
14096 C_word *a;
14097 loop:
14098 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
14099 C_save_and_reclaim_args((void *)trf_17228,3,t0,t1,t2);}
14100 a=C_alloc(9);
14101 if(C_truep(C_i_pairp(t2))){
14102 t3=C_slot(t2,C_fix(0));
14103 t4=C_a_i_list(&a,2,lf[85],t3);
14104 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
14105 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
14106 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
14107 t9=t1;
14108 t10=C_slot(t2,C_fix(1));
14109 t1=t9;
14110 t2=t10;
14111 goto loop;}
14112 else{
14113 t3=t1;{
14114 C_word av2[2];
14115 av2[0]=t3;
14116 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
14117 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14118 
14119 /* map-loop4171 in chicken.compiler.support#constant-form-eval in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17262(C_word t0,C_word t1,C_word t2)14120 static void C_fcall f_17262(C_word t0,C_word t1,C_word t2){
14121 C_word tmp;
14122 C_word t3;
14123 C_word t4;
14124 C_word t5;
14125 C_word t6;
14126 C_word t7;
14127 C_word t8;
14128 C_word t9;
14129 C_word t10;
14130 C_word t11;
14131 C_word *a;
14132 loop:
14133 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
14134 C_save_and_reclaim_args((void *)trf_17262,3,t0,t1,t2);}
14135 a=C_alloc(3);
14136 if(C_truep(C_i_pairp(t2))){
14137 t3=C_slot(t2,C_fix(0));
14138 t4=C_slot(t3,C_fix(2));
14139 t5=C_i_car(t4);
14140 t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST);
14141 t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6);
14142 t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
14143 t10=t1;
14144 t11=C_slot(t2,C_fix(1));
14145 t1=t10;
14146 t2=t11;
14147 goto loop;}
14148 else{
14149 t3=t1;{
14150 C_word av2[2];
14151 av2[0]=t3;
14152 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
14153 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14154 
14155 /* chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17296(C_word c,C_word * av)14156 static void C_ccall f_17296(C_word c,C_word *av){
14157 C_word tmp;
14158 C_word t0=av[0];
14159 C_word t1=av[1];
14160 C_word t2=av[2];
14161 C_word t3=av[3];
14162 C_word t4=av[4];
14163 C_word t5;
14164 C_word t6;
14165 C_word t7;
14166 C_word t8;
14167 C_word t9;
14168 C_word t10;
14169 C_word t11;
14170 C_word t12;
14171 C_word t13;
14172 C_word *a;
14173 if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
14174 C_save_and_reclaim((void *)f_17296,c,av);}
14175 a=C_alloc(14);
14176 t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17299,tmp=(C_word)a,a+=2,tmp);
14177 t6=C_i_car(t3);
14178 t7=C_slot(t6,C_fix(1));
14179 t8=C_eqp(lf[154],t7);
14180 if(C_truep(t8)){
14181 t9=C_slot(C_u_i_car(t3),C_fix(2));
14182 t10=C_i_car(t9);
14183 t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17327,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t10,tmp=(C_word)a,a+=6,tmp);
14184 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17349,a[2]=t11,a[3]=t5,a[4]=t3,a[5]=t10,tmp=(C_word)a,a+=6,tmp);
14185 /* tweaks.scm:51: ##sys#get */
14186 t13=*((C_word*)lf[182]+1);{
14187 C_word *av2=av;
14188 av2[0]=t13;
14189 av2[1]=t12;
14190 av2[2]=t10;
14191 av2[3]=lf[503];
14192 ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}
14193 else{
14194 /* support.scm:1619: k */
14195 t9=t4;{
14196 C_word *av2=av;
14197 av2[0]=t9;
14198 av2[1]=t1;
14199 av2[2]=C_SCHEME_FALSE;
14200 av2[3]=C_SCHEME_FALSE;
14201 av2[4]=C_SCHEME_FALSE;
14202 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}
14203 
14204 /* constant-node? in chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17299(C_word c,C_word * av)14205 static void C_ccall f_17299(C_word c,C_word *av){
14206 C_word tmp;
14207 C_word t0=av[0];
14208 C_word t1=av[1];
14209 C_word t2=av[2];
14210 C_word t3;
14211 C_word *a;
14212 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14213 C_save_and_reclaim((void *)f_17299,c,av);}
14214 t3=t1;{
14215 C_word *av2=av;
14216 av2[0]=t3;
14217 av2[1]=C_eqp(lf[85],C_slot(t2,C_fix(1)));
14218 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
14219 
14220 /* k17325 in chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17327(C_word c,C_word * av)14221 static void C_ccall f_17327(C_word c,C_word *av){
14222 C_word tmp;
14223 C_word t0=av[0];
14224 C_word t1=av[1];
14225 C_word t2;
14226 C_word t3;
14227 C_word t4;
14228 C_word *a;
14229 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
14230 C_save_and_reclaim((void *)f_17327,c,av);}
14231 a=C_alloc(3);
14232 if(C_truep(t1)){
14233 t2=C_u_i_cdr(((C_word*)t0)[2]);
14234 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17334,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
14235 /* support.scm:1617: constant-form-eval */
14236 t4=*((C_word*)lf[493]+1);{
14237 C_word *av2;
14238 if(c >= 5) {
14239   av2=av;
14240 } else {
14241   av2=C_alloc(5);
14242 }
14243 av2[0]=t4;
14244 av2[1]=((C_word*)t0)[4];
14245 av2[2]=((C_word*)t0)[5];
14246 av2[3]=t2;
14247 av2[4]=t3;
14248 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
14249 else{
14250 /* support.scm:1618: k */
14251 t2=((C_word*)t0)[3];{
14252 C_word *av2;
14253 if(c >= 5) {
14254   av2=av;
14255 } else {
14256   av2=C_alloc(5);
14257 }
14258 av2[0]=t2;
14259 av2[1]=((C_word*)t0)[4];
14260 av2[2]=C_SCHEME_FALSE;
14261 av2[3]=C_SCHEME_FALSE;
14262 av2[4]=C_SCHEME_FALSE;
14263 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}
14264 
14265 /* a17333 in k17325 in chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17334(C_word c,C_word * av)14266 static void C_ccall f_17334(C_word c,C_word *av){
14267 C_word tmp;
14268 C_word t0=av[0];
14269 C_word t1=av[1];
14270 C_word t2=av[2];
14271 C_word t3=av[3];
14272 C_word t4;
14273 C_word *a;
14274 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
14275 C_save_and_reclaim((void *)f_17334,c,av);}
14276 /* support.scm:1617: k */
14277 t4=((C_word*)t0)[2];{
14278 C_word *av2;
14279 if(c >= 5) {
14280   av2=av;
14281 } else {
14282   av2=C_alloc(5);
14283 }
14284 av2[0]=t4;
14285 av2[1]=t1;
14286 av2[2]=t2;
14287 av2[3]=t3;
14288 av2[4]=C_SCHEME_TRUE;
14289 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
14290 
14291 /* k17347 in chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17349(C_word c,C_word * av)14292 static void C_ccall f_17349(C_word c,C_word *av){
14293 C_word tmp;
14294 C_word t0=av[0];
14295 C_word t1=av[1];
14296 C_word t2;
14297 C_word t3;
14298 C_word *a;
14299 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
14300 C_save_and_reclaim((void *)f_17349,c,av);}
14301 a=C_alloc(6);
14302 if(C_truep(t1)){
14303 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
14304 /* support.scm:1614: foldable? */
14305 t3=*((C_word*)lf[502]+1);{
14306 C_word *av2;
14307 if(c >= 3) {
14308   av2=av;
14309 } else {
14310   av2=C_alloc(3);
14311 }
14312 av2[0]=t3;
14313 av2[1]=t2;
14314 av2[2]=((C_word*)t0)[5];
14315 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
14316 else{
14317 t2=((C_word*)t0)[2];{
14318 C_word *av2=av;
14319 av2[0]=t2;
14320 av2[1]=C_SCHEME_FALSE;
14321 f_17327(2,av2);}}}
14322 
14323 /* k17353 in k17347 in chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17355(C_word c,C_word * av)14324 static void C_ccall f_17355(C_word c,C_word *av){
14325 C_word tmp;
14326 C_word t0=av[0];
14327 C_word t1=av[1];
14328 C_word t2;
14329 C_word t3;
14330 C_word *a;
14331 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
14332 C_save_and_reclaim((void *)f_17355,c,av);}
14333 a=C_alloc(5);
14334 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
14335 if(C_truep(t1)){
14336 if(C_truep(t1)){
14337 /* support.scm:1616: every */
14338 f_5743(((C_word*)t0)[2],((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
14339 else{
14340 t3=((C_word*)t0)[2];{
14341 C_word *av2=av;
14342 av2[0]=t3;
14343 av2[1]=C_SCHEME_FALSE;
14344 f_17327(2,av2);}}}
14345 else{
14346 /* support.scm:1615: predicate? */
14347 t3=*((C_word*)lf[501]+1);{
14348 C_word *av2;
14349 if(c >= 3) {
14350   av2=av;
14351 } else {
14352   av2=C_alloc(3);
14353 }
14354 av2[0]=t3;
14355 av2[1]=t2;
14356 av2[2]=((C_word*)t0)[5];
14357 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
14358 
14359 /* k17356 in k17353 in k17347 in chicken.compiler.support#maybe-constant-fold-call in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17358(C_word c,C_word * av)14360 static void C_ccall f_17358(C_word c,C_word *av){
14361 C_word tmp;
14362 C_word t0=av[0];
14363 C_word t1=av[1];
14364 C_word t2;
14365 C_word *a;
14366 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
14367 C_save_and_reclaim((void *)f_17358,c,av);}
14368 if(C_truep(t1)){
14369 /* support.scm:1616: every */
14370 f_5743(((C_word*)t0)[2],((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
14371 else{
14372 t2=((C_word*)t0)[2];{
14373 C_word *av2=av;
14374 av2[0]=t2;
14375 av2[1]=C_SCHEME_FALSE;
14376 f_17327(2,av2);}}}
14377 
14378 /* chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17395(C_word c,C_word * av)14379 static void C_ccall f_17395(C_word c,C_word *av){
14380 C_word tmp;
14381 C_word t0=av[0];
14382 C_word t1=av[1];
14383 C_word t2=av[2];
14384 C_word t3;
14385 C_word t4;
14386 C_word *a;
14387 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
14388 C_save_and_reclaim((void *)f_17395,c,av);}
14389 a=C_alloc(4);
14390 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17410,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
14391 /* support.scm:1629: immediate? */
14392 t4=*((C_word*)lf[89]+1);{
14393 C_word *av2=av;
14394 av2[0]=t4;
14395 av2[1]=t3;
14396 av2[2]=t2;
14397 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
14398 
14399 /* k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17410(C_word c,C_word * av)14400 static void C_ccall f_17410(C_word c,C_word *av){
14401 C_word tmp;
14402 C_word t0=av[0];
14403 C_word t1=av[1];
14404 C_word t2;
14405 C_word t3;
14406 C_word t4;
14407 C_word t5;
14408 C_word t6;
14409 C_word t7;
14410 C_word t8;
14411 C_word t9;
14412 C_word *a;
14413 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
14414 C_save_and_reclaim((void *)f_17410,c,av);}
14415 a=C_alloc(13);
14416 if(C_truep(t1)){
14417 t2=((C_word*)t0)[2];{
14418 C_word *av2=av;
14419 av2[0]=t2;
14420 av2[1]=t1;
14421 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14422 else{
14423 if(C_truep(C_i_exact_integerp(((C_word*)t0)[3]))){
14424 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17420,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
14425 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17435,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
14426 /* support.scm:1634: scheme#call-with-current-continuation */
14427 t4=*((C_word*)lf[107]+1);{
14428 C_word *av2;
14429 if(c >= 3) {
14430   av2=av;
14431 } else {
14432   av2=C_alloc(3);
14433 }
14434 av2[0]=t4;
14435 av2[1]=t2;
14436 av2[2]=t3;
14437 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
14438 else{
14439 t2=C_i_flonump(((C_word*)t0)[3]);
14440 if(C_truep(t2)){
14441 t3=((C_word*)t0)[2];{
14442 C_word *av2=av;
14443 av2[0]=t3;
14444 av2[1]=t2;
14445 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
14446 else{
14447 if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
14448 t3=C_slot(((C_word*)t0)[3],C_fix(1));
14449 t4=C_i_string_length(t3);
14450 t5=((C_word*)t0)[2];{
14451 C_word *av2=av;
14452 av2[0]=t5;
14453 av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t4),C_fix(24));
14454 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
14455 else{
14456 if(C_truep(C_byteblockp(((C_word*)t0)[3]))){
14457 t3=stub4284(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
14458 t4=((C_word*)t0)[2];{
14459 C_word *av2=av;
14460 av2[0]=t4;
14461 av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t3),C_fix(24));
14462 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14463 else{
14464 t3=stub4284(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
14465 if(C_truep(C_fixnum_less_or_equal_p(C_i_integer_length(t3),C_fix(24)))){
14466 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17524,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
14467 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17526,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
14468 t6=C_SCHEME_UNDEFINED;
14469 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
14470 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6391,a[2]=t3,a[3]=t5,a[4]=t7,tmp=(C_word)a,a+=5,tmp));
14471 t9=((C_word*)t7)[1];
14472 f_6391(t9,t4,C_fix(0));}
14473 else{
14474 t4=((C_word*)t0)[2];{
14475 C_word *av2=av;
14476 av2[0]=t4;
14477 av2[1]=C_SCHEME_FALSE;
14478 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}}}}
14479 
14480 /* k17418 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17420(C_word c,C_word * av)14481 static void C_ccall f_17420(C_word c,C_word *av){
14482 C_word tmp;
14483 C_word t0=av[0];
14484 C_word t1=av[1];
14485 C_word t2;
14486 C_word t3;
14487 C_word *a;
14488 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
14489 C_save_and_reclaim((void *)f_17420,c,av);}
14490 a=C_alloc(3);
14491 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17423,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
14492 /* support.scm:1634: g4293 */
14493 t3=t1;{
14494 C_word *av2=av;
14495 av2[0]=t3;
14496 av2[1]=t2;
14497 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
14498 
14499 /* k17421 in k17418 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17423(C_word c,C_word * av)14500 static void C_ccall f_17423(C_word c,C_word *av){
14501 C_word tmp;
14502 C_word t0=av[0];
14503 C_word t1=av[1];
14504 C_word t2;
14505 C_word t3;
14506 C_word *a;
14507 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14508 C_save_and_reclaim((void *)f_17423,c,av);}
14509 if(C_truep(t1)){
14510 t2=C_i_string_length(t1);
14511 t3=((C_word*)t0)[2];{
14512 C_word *av2=av;
14513 av2[0]=t3;
14514 av2[1]=C_fixnum_less_or_equal_p(C_i_integer_length(t2),C_fix(24));
14515 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
14516 else{
14517 t2=((C_word*)t0)[2];{
14518 C_word *av2=av;
14519 av2[0]=t2;
14520 av2[1]=C_SCHEME_FALSE;
14521 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
14522 
14523 /* a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17435(C_word c,C_word * av)14524 static void C_ccall f_17435(C_word c,C_word *av){
14525 C_word tmp;
14526 C_word t0=av[0];
14527 C_word t1=av[1];
14528 C_word t2=av[2];
14529 C_word t3;
14530 C_word t4;
14531 C_word t5;
14532 C_word *a;
14533 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
14534 C_save_and_reclaim((void *)f_17435,c,av);}
14535 a=C_alloc(7);
14536 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17441,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
14537 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17450,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
14538 /* support.scm:1634: chicken.condition#with-exception-handler */
14539 t5=*((C_word*)lf[106]+1);{
14540 C_word *av2;
14541 if(c >= 4) {
14542   av2=av;
14543 } else {
14544   av2=C_alloc(4);
14545 }
14546 av2[0]=t5;
14547 av2[1]=t1;
14548 av2[2]=t3;
14549 av2[3]=t4;
14550 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
14551 
14552 /* a17440 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17441(C_word c,C_word * av)14553 static void C_ccall f_17441(C_word c,C_word *av){
14554 C_word tmp;
14555 C_word t0=av[0];
14556 C_word t1=av[1];
14557 C_word t2=av[2];
14558 C_word t3;
14559 C_word t4;
14560 C_word *a;
14561 if(C_unlikely(!C_demand(C_calculate_demand(2,c,2)))){
14562 C_save_and_reclaim((void *)f_17441,c,av);}
14563 a=C_alloc(2);
14564 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17447,tmp=(C_word)a,a+=2,tmp);
14565 /* support.scm:1634: k4290 */
14566 t4=((C_word*)t0)[2];{
14567 C_word *av2=av;
14568 av2[0]=t4;
14569 av2[1]=t1;
14570 av2[2]=t3;
14571 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
14572 
14573 /* a17446 in a17440 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17447(C_word c,C_word * av)14574 static void C_ccall f_17447(C_word c,C_word *av){
14575 C_word tmp;
14576 C_word t0=av[0];
14577 C_word t1=av[1];
14578 C_word t2;
14579 C_word *a;
14580 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14581 C_save_and_reclaim((void *)f_17447,c,av);}
14582 t2=t1;{
14583 C_word *av2=av;
14584 av2[0]=t2;
14585 av2[1]=C_SCHEME_FALSE;
14586 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14587 
14588 /* a17449 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17450(C_word c,C_word * av)14589 static void C_ccall f_17450(C_word c,C_word *av){
14590 C_word tmp;
14591 C_word t0=av[0];
14592 C_word t1=av[1];
14593 C_word t2;
14594 C_word t3;
14595 C_word t4;
14596 C_word t5;
14597 C_word *a;
14598 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
14599 C_save_and_reclaim((void *)f_17450,c,av);}
14600 a=C_alloc(10);
14601 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17452,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
14602 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17459,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
14603 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17476,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
14604 /* tmp15335 */
14605 t5=t2;
14606 f_17452(t5,t4);}
14607 
14608 /* tmp15335 in a17449 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17452(C_word t0,C_word t1)14609 static void C_fcall f_17452(C_word t0,C_word t1){
14610 C_word tmp;
14611 C_word t2;
14612 C_word *a;
14613 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
14614 C_save_and_reclaim_args((void *)trf_17452,2,t0,t1);}
14615 /* ##sys#number->string */
14616 t2=*((C_word*)lf[504]+1);{
14617 C_word av2[4];
14618 av2[0]=t2;
14619 av2[1]=t1;
14620 av2[2]=((C_word*)t0)[2];
14621 av2[3]=C_fix(16);
14622 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
14623 
14624 /* tmp25336 in a17449 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17459(C_word t0,C_word t1,C_word t2)14625 static void C_fcall f_17459(C_word t0,C_word t1,C_word t2){
14626 C_word tmp;
14627 C_word t3;
14628 C_word t4;
14629 C_word *a;
14630 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
14631 C_save_and_reclaim_args((void *)trf_17459,3,t0,t1,t2);}
14632 a=C_alloc(3);
14633 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17465,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
14634 /* support.scm:1634: k4290 */
14635 t4=((C_word*)t0)[2];{
14636 C_word av2[3];
14637 av2[0]=t4;
14638 av2[1]=t1;
14639 av2[2]=t3;
14640 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
14641 
14642 /* a17464 in tmp25336 in a17449 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17465(C_word c,C_word * av)14643 static void C_ccall f_17465(C_word c,C_word *av){
14644 C_word tmp;
14645 C_word t0=av[0];
14646 C_word t1=av[1];
14647 C_word t2;
14648 C_word *a;
14649 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
14650 C_save_and_reclaim((void *)f_17465,c,av);}{
14651 C_word *av2;
14652 if(c >= 3) {
14653   av2=av;
14654 } else {
14655   av2=C_alloc(3);
14656 }
14657 av2[0]=0;
14658 av2[1]=t1;
14659 av2[2]=((C_word*)t0)[2];
14660 C_apply_values(3,av2);}}
14661 
14662 /* k17474 in a17449 in a17434 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17476(C_word c,C_word * av)14663 static void C_ccall f_17476(C_word c,C_word *av){
14664 C_word tmp;
14665 C_word t0=av[0];
14666 C_word t1=av[1];
14667 C_word t2;
14668 C_word *a;
14669 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
14670 C_save_and_reclaim((void *)f_17476,c,av);}
14671 a=C_alloc(3);
14672 /* tmp25336 */
14673 t2=((C_word*)t0)[2];
14674 f_17459(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));}
14675 
14676 /* k17522 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17524(C_word c,C_word * av)14677 static void C_ccall f_17524(C_word c,C_word *av){
14678 C_word tmp;
14679 C_word t0=av[0];
14680 C_word t1=av[1];
14681 C_word t2;
14682 C_word *a;
14683 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
14684 C_save_and_reclaim((void *)f_17524,c,av);}
14685 /* support.scm:1645: every */
14686 f_5743(((C_word*)t0)[2],lf[496],t1);}
14687 
14688 /* a17525 in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17526(C_word t0,C_word t1)14689 static C_word C_fcall f_17526(C_word t0,C_word t1){
14690 C_word tmp;
14691 C_word t2;
14692 C_stack_overflow_check;{}
14693 return(C_slot(((C_word*)t0)[2],t1));}
14694 
14695 /* chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17532(C_word c,C_word * av)14696 static void C_ccall f_17532(C_word c,C_word *av){
14697 C_word tmp;
14698 C_word t0=av[0];
14699 C_word t1=av[1];
14700 C_word t2=av[2];
14701 C_word t3;
14702 C_word t4;
14703 C_word t5;
14704 C_word t6;
14705 C_word t7;
14706 C_word *a;
14707 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
14708 C_save_and_reclaim((void *)f_17532,c,av);}
14709 a=C_alloc(8);
14710 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17536,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
14711 t4=C_SCHEME_UNDEFINED;
14712 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
14713 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17541,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
14714 t7=((C_word*)t5)[1];
14715 f_17541(t7,t3,C_fix(0),t2);}
14716 
14717 /* k17534 in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17536(C_word c,C_word * av)14718 static void C_ccall f_17536(C_word c,C_word *av){
14719 C_word tmp;
14720 C_word t0=av[0];
14721 C_word t1=av[1];
14722 C_word t2;
14723 C_word *a;
14724 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14725 C_save_and_reclaim((void *)f_17536,c,av);}
14726 /* support.scm:1670: scheme#newline */
14727 t2=*((C_word*)lf[23]+1);{
14728 C_word *av2=av;
14729 av2[0]=t2;
14730 av2[1]=((C_word*)t0)[2];
14731 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14732 
14733 /* loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17541(C_word t0,C_word t1,C_word t2,C_word t3)14734 static void C_fcall f_17541(C_word t0,C_word t1,C_word t2,C_word t3){
14735 C_word tmp;
14736 C_word t4;
14737 C_word t5;
14738 C_word t6;
14739 C_word t7;
14740 C_word t8;
14741 C_word *a;
14742 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
14743 C_save_and_reclaim_args((void *)trf_17541,4,t0,t1,t2,t3);}
14744 a=C_alloc(9);
14745 t4=C_slot(t3,C_fix(1));
14746 t5=C_slot(t3,C_fix(2));
14747 t6=C_slot(t3,C_fix(3));
14748 t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17569,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=t3,a[6]=t1,a[7]=t5,a[8]=t4,tmp=(C_word)a,a+=9,tmp);
14749 /* support.scm:1658: scheme#make-string */
14750 t8=*((C_word*)lf[486]+1);{
14751 C_word av2[4];
14752 av2[0]=t8;
14753 av2[1]=t7;
14754 av2[2]=t2;
14755 av2[3]=C_make_character(32);
14756 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
14757 
14758 /* k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17569(C_word c,C_word * av)14759 static void C_ccall f_17569(C_word c,C_word *av){
14760 C_word tmp;
14761 C_word t0=av[0];
14762 C_word t1=av[1];
14763 C_word t2;
14764 C_word t3;
14765 C_word t4;
14766 C_word t5;
14767 C_word t6;
14768 C_word t7;
14769 C_word *a;
14770 if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
14771 C_save_and_reclaim((void *)f_17569,c,av);}
14772 a=C_alloc(16);
14773 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
14774 t3=*((C_word*)lf[24]+1);
14775 t4=*((C_word*)lf[24]+1);
14776 t5=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
14777 t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17577,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
14778 /* support.scm:1660: ##sys#write-char-0 */
14779 t7=*((C_word*)lf[26]+1);{
14780 C_word *av2;
14781 if(c >= 4) {
14782   av2=av;
14783 } else {
14784   av2=C_alloc(4);
14785 }
14786 av2[0]=t7;
14787 av2[1]=t6;
14788 av2[2]=C_make_character(10);
14789 av2[3]=*((C_word*)lf[24]+1);
14790 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
14791 
14792 /* k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17577(C_word c,C_word * av)14793 static void C_ccall f_17577(C_word c,C_word *av){
14794 C_word tmp;
14795 C_word t0=av[0];
14796 C_word t1=av[1];
14797 C_word t2;
14798 C_word t3;
14799 C_word *a;
14800 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
14801 C_save_and_reclaim((void *)f_17577,c,av);}
14802 a=C_alloc(10);
14803 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17580,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
14804 /* support.scm:1660: ##sys#print */
14805 t3=*((C_word*)lf[27]+1);{
14806 C_word *av2;
14807 if(c >= 5) {
14808   av2=av;
14809 } else {
14810   av2=C_alloc(5);
14811 }
14812 av2[0]=t3;
14813 av2[1]=t2;
14814 av2[2]=((C_word*)t0)[10];
14815 av2[3]=C_SCHEME_FALSE;
14816 av2[4]=((C_word*)t0)[8];
14817 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
14818 
14819 /* k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17580(C_word c,C_word * av)14820 static void C_ccall f_17580(C_word c,C_word *av){
14821 C_word tmp;
14822 C_word t0=av[0];
14823 C_word t1=av[1];
14824 C_word t2;
14825 C_word t3;
14826 C_word *a;
14827 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
14828 C_save_and_reclaim((void *)f_17580,c,av);}
14829 a=C_alloc(10);
14830 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17583,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
14831 /* support.scm:1660: ##sys#write-char-0 */
14832 t3=*((C_word*)lf[26]+1);{
14833 C_word *av2;
14834 if(c >= 4) {
14835   av2=av;
14836 } else {
14837   av2=C_alloc(4);
14838 }
14839 av2[0]=t3;
14840 av2[1]=t2;
14841 av2[2]=C_make_character(60);
14842 av2[3]=((C_word*)t0)[8];
14843 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
14844 
14845 /* k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17583(C_word c,C_word * av)14846 static void C_ccall f_17583(C_word c,C_word *av){
14847 C_word tmp;
14848 C_word t0=av[0];
14849 C_word t1=av[1];
14850 C_word t2;
14851 C_word t3;
14852 C_word *a;
14853 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
14854 C_save_and_reclaim((void *)f_17583,c,av);}
14855 a=C_alloc(9);
14856 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
14857 /* support.scm:1660: ##sys#print */
14858 t3=*((C_word*)lf[27]+1);{
14859 C_word *av2;
14860 if(c >= 5) {
14861   av2=av;
14862 } else {
14863   av2=C_alloc(5);
14864 }
14865 av2[0]=t3;
14866 av2[1]=t2;
14867 av2[2]=((C_word*)t0)[9];
14868 av2[3]=C_SCHEME_FALSE;
14869 av2[4]=((C_word*)t0)[8];
14870 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
14871 
14872 /* k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17586(C_word c,C_word * av)14873 static void C_ccall f_17586(C_word c,C_word *av){
14874 C_word tmp;
14875 C_word t0=av[0];
14876 C_word t1=av[1];
14877 C_word t2;
14878 C_word t3;
14879 C_word *a;
14880 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
14881 C_save_and_reclaim((void *)f_17586,c,av);}
14882 a=C_alloc(9);
14883 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17589,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
14884 /* support.scm:1660: ##sys#write-char-0 */
14885 t3=*((C_word*)lf[26]+1);{
14886 C_word *av2;
14887 if(c >= 4) {
14888   av2=av;
14889 } else {
14890   av2=C_alloc(4);
14891 }
14892 av2[0]=t3;
14893 av2[1]=t2;
14894 av2[2]=C_make_character(32);
14895 av2[3]=((C_word*)t0)[8];
14896 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
14897 
14898 /* k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17589(C_word c,C_word * av)14899 static void C_ccall f_17589(C_word c,C_word *av){
14900 C_word tmp;
14901 C_word t0=av[0];
14902 C_word t1=av[1];
14903 C_word t2;
14904 C_word t3;
14905 C_word *a;
14906 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
14907 C_save_and_reclaim((void *)f_17589,c,av);}
14908 a=C_alloc(7);
14909 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17592,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
14910 /* support.scm:1660: ##sys#print */
14911 t3=*((C_word*)lf[27]+1);{
14912 C_word *av2;
14913 if(c >= 5) {
14914   av2=av;
14915 } else {
14916   av2=C_alloc(5);
14917 }
14918 av2[0]=t3;
14919 av2[1]=t2;
14920 av2[2]=((C_word*)t0)[7];
14921 av2[3]=C_SCHEME_TRUE;
14922 av2[4]=((C_word*)t0)[8];
14923 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
14924 
14925 /* k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_17592(C_word c,C_word * av)14926 static void C_ccall f_17592(C_word c,C_word *av){
14927 C_word tmp;
14928 C_word t0=av[0];
14929 C_word t1=av[1];
14930 C_word t2;
14931 C_word t3;
14932 C_word t4;
14933 C_word t5;
14934 C_word t6;
14935 C_word t7;
14936 C_word t8;
14937 C_word *a;
14938 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
14939 C_save_and_reclaim((void *)f_17592,c,av);}
14940 a=C_alloc(14);
14941 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
14942 t3=C_i_check_list_2(((C_word*)t0)[4],lf[44]);
14943 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17603,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
14944 t5=C_SCHEME_UNDEFINED;
14945 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
14946 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17665,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
14947 t8=((C_word*)t6)[1];
14948 f_17665(t8,t4,((C_word*)t0)[4]);}
14949 
14950 /* g4333 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_17593(C_word t0,C_word t1,C_word t2)14951 static void C_fcall f_17593(C_word t0,C_word t1,C_word t2){
14952 C_word tmp;
14953 C_word t3;
14954 C_word *a;
14955 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
14956 C_save_and_reclaim_args((void *)trf_17593,3,t0,t1,t2);}
14957 /* support.scm:1661: g4355 */
14958 t3=((C_word*)((C_word*)t0)[2])[1];
14959 f_17541(t3,t1,((C_word*)t0)[3],t2);}
14960 
14961 /* k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_17603(C_word c,C_word * av)14962 static void C_ccall f_17603(C_word c,C_word *av){
14963 C_word tmp;
14964 C_word t0=av[0];
14965 C_word t1=av[1];
14966 C_word t2;
14967 C_word t3;
14968 C_word t4;
14969 C_word t5;
14970 C_word t6;
14971 C_word t7;
14972 C_word t8;
14973 C_word *a;
14974 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
14975 C_save_and_reclaim((void *)f_17603,c,av);}
14976 a=C_alloc(9);
14977 t2=C_block_size(((C_word*)t0)[2]);
14978 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17609,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
14979 if(C_truep(C_fixnum_greaterp(t2,C_fix(4)))){
14980 t4=*((C_word*)lf[24]+1);
14981 t5=*((C_word*)lf[24]+1);
14982 t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
14983 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17621,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
14984 /* support.scm:1664: ##sys#write-char-0 */
14985 t8=*((C_word*)lf[26]+1);{
14986 C_word *av2;
14987 if(c >= 4) {
14988   av2=av;
14989 } else {
14990   av2=C_alloc(4);
14991 }
14992 av2[0]=t8;
14993 av2[1]=t7;
14994 av2[2]=C_make_character(91);
14995 av2[3]=*((C_word*)lf[24]+1);
14996 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
14997 else{
14998 /* ##sys#write-char/port */
14999 t4=*((C_word*)lf[506]+1);{
15000 C_word *av2;
15001 if(c >= 4) {
15002   av2=av;
15003 } else {
15004   av2=C_alloc(4);
15005 }
15006 av2[0]=t4;
15007 av2[1]=((C_word*)t0)[3];
15008 av2[2]=C_make_character(62);
15009 av2[3]=*((C_word*)lf[24]+1);
15010 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
15011 
15012 /* k17607 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_17609(C_word c,C_word * av)15013 static void C_ccall f_17609(C_word c,C_word *av){
15014 C_word tmp;
15015 C_word t0=av[0];
15016 C_word t1=av[1];
15017 C_word t2;
15018 C_word *a;
15019 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
15020 C_save_and_reclaim((void *)f_17609,c,av);}
15021 /* ##sys#write-char/port */
15022 t2=*((C_word*)lf[506]+1);{
15023 C_word *av2;
15024 if(c >= 4) {
15025   av2=av;
15026 } else {
15027   av2=C_alloc(4);
15028 }
15029 av2[0]=t2;
15030 av2[1]=((C_word*)t0)[2];
15031 av2[2]=C_make_character(62);
15032 av2[3]=*((C_word*)lf[24]+1);
15033 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
15034 
15035 /* k17619 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_17621(C_word c,C_word * av)15036 static void C_ccall f_17621(C_word c,C_word *av){
15037 C_word tmp;
15038 C_word t0=av[0];
15039 C_word t1=av[1];
15040 C_word t2;
15041 C_word t3;
15042 C_word *a;
15043 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
15044 C_save_and_reclaim((void *)f_17621,c,av);}
15045 a=C_alloc(5);
15046 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17624,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
15047 /* support.scm:1664: ##sys#print */
15048 t3=*((C_word*)lf[27]+1);{
15049 C_word *av2;
15050 if(c >= 5) {
15051   av2=av;
15052 } else {
15053   av2=C_alloc(5);
15054 }
15055 av2[0]=t3;
15056 av2[1]=t2;
15057 av2[2]=C_slot(((C_word*)t0)[4],C_fix(4));
15058 av2[3]=C_SCHEME_TRUE;
15059 av2[4]=((C_word*)t0)[5];
15060 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
15061 
15062 /* k17622 in k17619 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in ... */
f_17624(C_word c,C_word * av)15063 static void C_ccall f_17624(C_word c,C_word *av){
15064 C_word tmp;
15065 C_word t0=av[0];
15066 C_word t1=av[1];
15067 C_word t2;
15068 C_word t3;
15069 C_word t4;
15070 C_word t5;
15071 C_word t6;
15072 C_word *a;
15073 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
15074 C_save_and_reclaim((void *)f_17624,c,av);}
15075 a=C_alloc(10);
15076 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17627,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
15077 t3=C_SCHEME_UNDEFINED;
15078 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
15079 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17632,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
15080 t6=((C_word*)t4)[1];
15081 f_17632(t6,t2,C_fix(5));}
15082 
15083 /* k17625 in k17622 in k17619 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_17627(C_word c,C_word * av)15084 static void C_ccall f_17627(C_word c,C_word *av){
15085 C_word tmp;
15086 C_word t0=av[0];
15087 C_word t1=av[1];
15088 C_word t2;
15089 C_word *a;
15090 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
15091 C_save_and_reclaim((void *)f_17627,c,av);}
15092 /* ##sys#write-char/port */
15093 t2=*((C_word*)lf[506]+1);{
15094 C_word *av2;
15095 if(c >= 4) {
15096   av2=av;
15097 } else {
15098   av2=C_alloc(4);
15099 }
15100 av2[0]=t2;
15101 av2[1]=((C_word*)t0)[2];
15102 av2[2]=C_make_character(93);
15103 av2[3]=*((C_word*)lf[24]+1);
15104 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
15105 
15106 /* doloop4369 in k17622 in k17619 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in ... */
f_17632(C_word t0,C_word t1,C_word t2)15107 static void C_fcall f_17632(C_word t0,C_word t1,C_word t2){
15108 C_word tmp;
15109 C_word t3;
15110 C_word t4;
15111 C_word t5;
15112 C_word t6;
15113 C_word t7;
15114 C_word *a;
15115 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
15116 C_save_and_reclaim_args((void *)trf_17632,3,t0,t1,t2);}
15117 a=C_alloc(7);
15118 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
15119 t3=C_SCHEME_UNDEFINED;
15120 t4=t1;{
15121 C_word av2[2];
15122 av2[0]=t4;
15123 av2[1]=t3;
15124 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
15125 else{
15126 t3=*((C_word*)lf[24]+1);
15127 t4=*((C_word*)lf[24]+1);
15128 t5=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
15129 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17645,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
15130 /* support.scm:1667: ##sys#write-char-0 */
15131 t7=*((C_word*)lf[26]+1);{
15132 C_word av2[4];
15133 av2[0]=t7;
15134 av2[1]=t6;
15135 av2[2]=C_make_character(32);
15136 av2[3]=*((C_word*)lf[24]+1);
15137 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
15138 
15139 /* k17643 in doloop4369 in k17622 in k17619 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in ... */
f_17645(C_word c,C_word * av)15140 static void C_ccall f_17645(C_word c,C_word *av){
15141 C_word tmp;
15142 C_word t0=av[0];
15143 C_word t1=av[1];
15144 C_word t2;
15145 C_word t3;
15146 C_word *a;
15147 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
15148 C_save_and_reclaim((void *)f_17645,c,av);}
15149 a=C_alloc(5);
15150 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
15151 /* support.scm:1667: ##sys#print */
15152 t3=*((C_word*)lf[27]+1);{
15153 C_word *av2;
15154 if(c >= 5) {
15155   av2=av;
15156 } else {
15157   av2=C_alloc(5);
15158 }
15159 av2[0]=t3;
15160 av2[1]=t2;
15161 av2[2]=C_slot(((C_word*)t0)[5],((C_word*)t0)[4]);
15162 av2[3]=C_SCHEME_TRUE;
15163 av2[4]=((C_word*)t0)[6];
15164 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
15165 
15166 /* k17646 in k17643 in doloop4369 in k17622 in k17619 in k17601 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in ... */
f_17648(C_word c,C_word * av)15167 static void C_ccall f_17648(C_word c,C_word *av){
15168 C_word tmp;
15169 C_word t0=av[0];
15170 C_word t1=av[1];
15171 C_word t2;
15172 C_word *a;
15173 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
15174 C_save_and_reclaim((void *)f_17648,c,av);}
15175 t2=((C_word*)((C_word*)t0)[2])[1];
15176 f_17632(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
15177 
15178 /* for-each-loop4332 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in ... */
f_17665(C_word t0,C_word t1,C_word t2)15179 static void C_fcall f_17665(C_word t0,C_word t1,C_word t2){
15180 C_word tmp;
15181 C_word t3;
15182 C_word t4;
15183 C_word *a;
15184 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
15185 C_save_and_reclaim_args((void *)trf_17665,3,t0,t1,t2);}
15186 a=C_alloc(5);
15187 if(C_truep(C_i_pairp(t2))){
15188 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17675,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
15189 /* support.scm:1661: g4333 */
15190 t4=((C_word*)t0)[3];
15191 f_17593(t4,t3,C_slot(t2,C_fix(0)));}
15192 else{
15193 t3=C_SCHEME_UNDEFINED;
15194 t4=t1;{
15195 C_word av2[2];
15196 av2[0]=t4;
15197 av2[1]=t3;
15198 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
15199 
15200 /* k17673 in for-each-loop4332 in k17590 in k17587 in k17584 in k17581 in k17578 in k17575 in k17567 in loop in chicken.compiler.support#dump-nodes in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in ... */
f_17675(C_word c,C_word * av)15201 static void C_ccall f_17675(C_word c,C_word *av){
15202 C_word tmp;
15203 C_word t0=av[0];
15204 C_word t1=av[1];
15205 C_word t2;
15206 C_word *a;
15207 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
15208 C_save_and_reclaim((void *)f_17675,c,av);}
15209 t2=((C_word*)((C_word*)t0)[2])[1];
15210 f_17665(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
15211 
15212 /* chicken.compiler.support#read-info-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17688(C_word c,C_word * av)15213 static void C_ccall f_17688(C_word c,C_word *av){
15214 C_word tmp;
15215 C_word t0=av[0];
15216 C_word t1=av[1];
15217 C_word t2=av[2];
15218 C_word t3=av[3];
15219 C_word t4=av[4];
15220 C_word t5;
15221 C_word t6;
15222 C_word t7;
15223 C_word t8;
15224 C_word t9;
15225 C_word t10;
15226 C_word *a;
15227 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
15228 C_save_and_reclaim((void *)f_17688,c,av);}
15229 a=C_alloc(9);
15230 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17692,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
15231 t6=C_eqp(lf[508],t2);
15232 t7=(C_truep(t6)?C_i_symbolp(C_i_car(t3)):C_SCHEME_FALSE);
15233 if(C_truep(t7)){
15234 t8=C_i_car(t3);
15235 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17710,a[2]=t3,a[3]=t5,a[4]=t8,tmp=(C_word)a,a+=5,tmp);
15236 /* support.scm:1681: chicken.string#conc */
15237 t10=*((C_word*)lf[483]+1);{
15238 C_word *av2=av;
15239 av2[0]=t10;
15240 av2[1]=t9;
15241 av2[2]=*((C_word*)lf[509]+1);
15242 av2[3]=lf[510];
15243 av2[4]=t4;
15244 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
15245 else{
15246 t8=t1;{
15247 C_word *av2=av;
15248 av2[0]=t8;
15249 av2[1]=t3;
15250 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
15251 
15252 /* k17690 in chicken.compiler.support#read-info-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17692(C_word c,C_word * av)15253 static void C_ccall f_17692(C_word c,C_word *av){
15254 C_word tmp;
15255 C_word t0=av[0];
15256 C_word t1=av[1];
15257 C_word t2;
15258 C_word *a;
15259 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15260 C_save_and_reclaim((void *)f_17692,c,av);}
15261 t2=((C_word*)t0)[2];{
15262 C_word *av2=av;
15263 av2[0]=t2;
15264 av2[1]=((C_word*)t0)[3];
15265 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
15266 
15267 /* k17708 in chicken.compiler.support#read-info-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17710(C_word c,C_word * av)15268 static void C_ccall f_17710(C_word c,C_word *av){
15269 C_word tmp;
15270 C_word t0=av[0];
15271 C_word t1=av[1];
15272 C_word t2;
15273 C_word t3;
15274 C_word *a;
15275 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
15276 C_save_and_reclaim((void *)f_17710,c,av);}
15277 a=C_alloc(6);
15278 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17714,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
15279 /* support.scm:1682: chicken.internal#hash-table-ref */
15280 t3=*((C_word*)lf[128]+1);{
15281 C_word *av2;
15282 if(c >= 4) {
15283   av2=av;
15284 } else {
15285   av2=C_alloc(4);
15286 }
15287 av2[0]=t3;
15288 av2[1]=t2;
15289 av2[2]=*((C_word*)lf[136]+1);
15290 av2[3]=C_u_i_car(((C_word*)t0)[2]);
15291 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
15292 
15293 /* k17712 in k17708 in chicken.compiler.support#read-info-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17714(C_word c,C_word * av)15294 static void C_ccall f_17714(C_word c,C_word *av){
15295 C_word tmp;
15296 C_word t0=av[0];
15297 C_word t1=av[1];
15298 C_word t2;
15299 C_word t3;
15300 C_word t4;
15301 C_word *a;
15302 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
15303 C_save_and_reclaim((void *)f_17714,c,av);}
15304 a=C_alloc(6);
15305 if(C_truep(t1)){
15306 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
15307 t3=C_a_i_cons(&a,2,t2,t1);
15308 /* support.scm:1677: chicken.internal#hash-table-set! */
15309 t4=*((C_word*)lf[132]+1);{
15310 C_word *av2;
15311 if(c >= 5) {
15312   av2=av;
15313 } else {
15314   av2=C_alloc(5);
15315 }
15316 av2[0]=t4;
15317 av2[1]=((C_word*)t0)[4];
15318 av2[2]=*((C_word*)lf[136]+1);
15319 av2[3]=((C_word*)t0)[5];
15320 av2[4]=t3;
15321 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
15322 else{
15323 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
15324 t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
15325 /* support.scm:1677: chicken.internal#hash-table-set! */
15326 t4=*((C_word*)lf[132]+1);{
15327 C_word *av2;
15328 if(c >= 5) {
15329   av2=av;
15330 } else {
15331   av2=C_alloc(5);
15332 }
15333 av2[0]=t4;
15334 av2[1]=((C_word*)t0)[4];
15335 av2[2]=*((C_word*)lf[136]+1);
15336 av2[3]=((C_word*)t0)[5];
15337 av2[4]=t3;
15338 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
15339 
15340 /* chicken.compiler.support#read/source-info in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17731(C_word c,C_word * av)15341 static void C_ccall f_17731(C_word c,C_word *av){
15342 C_word tmp;
15343 C_word t0=av[0];
15344 C_word t1=av[1];
15345 C_word t2=av[2];
15346 C_word t3;
15347 C_word *a;
15348 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
15349 C_save_and_reclaim((void *)f_17731,c,av);}
15350 /* support.scm:1687: ##sys#read */
15351 t3=*((C_word*)lf[512]+1);{
15352 C_word *av2;
15353 if(c >= 4) {
15354   av2=av;
15355 } else {
15356   av2=C_alloc(4);
15357 }
15358 av2[0]=t3;
15359 av2[1]=t1;
15360 av2[2]=t2;
15361 av2[3]=*((C_word*)lf[507]+1);
15362 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
15363 
15364 /* ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17737(C_word c,C_word * av)15365 static void C_ccall f_17737(C_word c,C_word *av){
15366 C_word tmp;
15367 C_word t0=av[0];
15368 C_word t1=av[1];
15369 C_word t2=av[2];
15370 C_word t3=av[3];
15371 C_word t4;
15372 C_word t5;
15373 C_word *a;
15374 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
15375 C_save_and_reclaim((void *)f_17737,c,av);}
15376 a=C_alloc(4);
15377 if(C_truep(C_i_char_equalp(C_make_character(62),t2))){
15378 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17747,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
15379 /* ##sys#read-char/port */
15380 t5=*((C_word*)lf[517]+1);{
15381 C_word *av2=av;
15382 av2[0]=t5;
15383 av2[1]=t4;
15384 av2[2]=t3;
15385 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
15386 else{
15387 /* support.scm:1699: old-hook */
15388 t4=((C_word*)t0)[2];{
15389 C_word *av2=av;
15390 av2[0]=t4;
15391 av2[1]=t1;
15392 av2[2]=t2;
15393 av2[3]=t3;
15394 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
15395 
15396 /* k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17747(C_word c,C_word * av)15397 static void C_ccall f_17747(C_word c,C_word *av){
15398 C_word tmp;
15399 C_word t0=av[0];
15400 C_word t1=av[1];
15401 C_word t2;
15402 C_word t3;
15403 C_word t4;
15404 C_word *a;
15405 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
15406 C_save_and_reclaim((void *)f_17747,c,av);}
15407 a=C_alloc(7);
15408 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17750,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
15409 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17766,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
15410 /* support.scm:1702: chicken.base#open-output-string */
15411 t4=*((C_word*)lf[334]+1);{
15412 C_word *av2=av;
15413 av2[0]=t4;
15414 av2[1]=t3;
15415 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
15416 
15417 /* k17748 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17750(C_word c,C_word * av)15418 static void C_ccall f_17750(C_word c,C_word *av){
15419 C_word tmp;
15420 C_word t0=av[0];
15421 C_word t1=av[1];
15422 C_word t2;
15423 C_word t3;
15424 C_word *a;
15425 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
15426 C_save_and_reclaim((void *)f_17750,c,av);}
15427 a=C_alloc(12);
15428 t2=C_a_i_list(&a,2,lf[514],t1);
15429 t3=((C_word*)t0)[2];{
15430 C_word *av2=av;
15431 av2[0]=t3;
15432 av2[1]=C_a_i_list(&a,2,lf[515],t2);
15433 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
15434 
15435 /* k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17766(C_word c,C_word * av)15436 static void C_ccall f_17766(C_word c,C_word *av){
15437 C_word tmp;
15438 C_word t0=av[0];
15439 C_word t1=av[1];
15440 C_word t2;
15441 C_word t3;
15442 C_word t4;
15443 C_word t5;
15444 C_word *a;
15445 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
15446 C_save_and_reclaim((void *)f_17766,c,av);}
15447 a=C_alloc(7);
15448 t2=C_SCHEME_UNDEFINED;
15449 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
15450 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17771,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp));
15451 t5=((C_word*)t3)[1];
15452 f_17771(t5,((C_word*)t0)[3]);}
15453 
15454 /* loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17771(C_word t0,C_word t1)15455 static void C_fcall f_17771(C_word t0,C_word t1){
15456 C_word tmp;
15457 C_word t2;
15458 C_word t3;
15459 C_word *a;
15460 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
15461 C_save_and_reclaim_args((void *)trf_17771,2,t0,t1);}
15462 a=C_alloc(6);
15463 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17775,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
15464 /* ##sys#read-char/port */
15465 t3=*((C_word*)lf[517]+1);{
15466 C_word av2[3];
15467 av2[0]=t3;
15468 av2[1]=t2;
15469 av2[2]=((C_word*)t0)[4];
15470 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
15471 
15472 /* k17773 in loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17775(C_word c,C_word * av)15473 static void C_ccall f_17775(C_word c,C_word *av){
15474 C_word tmp;
15475 C_word t0=av[0];
15476 C_word t1=av[1];
15477 C_word t2;
15478 C_word t3;
15479 C_word *a;
15480 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
15481 C_save_and_reclaim((void *)f_17775,c,av);}
15482 a=C_alloc(5);
15483 if(C_truep(C_eofp(t1))){
15484 /* support.scm:1706: quit-compiling */
15485 t2=*((C_word*)lf[37]+1);{
15486 C_word *av2;
15487 if(c >= 3) {
15488   av2=av;
15489 } else {
15490   av2=C_alloc(3);
15491 }
15492 av2[0]=t2;
15493 av2[1]=((C_word*)t0)[2];
15494 av2[2]=lf[516];
15495 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
15496 else{
15497 if(C_truep(C_u_i_char_equalp(t1,C_make_character(10)))){
15498 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17792,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
15499 /* support.scm:1708: scheme#newline */
15500 t3=*((C_word*)lf[23]+1);{
15501 C_word *av2;
15502 if(c >= 3) {
15503   av2=av;
15504 } else {
15505   av2=C_alloc(3);
15506 }
15507 av2[0]=t3;
15508 av2[1]=t2;
15509 av2[2]=((C_word*)t0)[4];
15510 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
15511 else{
15512 if(C_truep(C_u_i_char_equalp(t1,C_make_character(60)))){
15513 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17803,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
15514 /* ##sys#read-char/port */
15515 t3=*((C_word*)lf[517]+1);{
15516 C_word *av2;
15517 if(c >= 3) {
15518   av2=av;
15519 } else {
15520   av2=C_alloc(3);
15521 }
15522 av2[0]=t3;
15523 av2[1]=t2;
15524 av2[2]=((C_word*)t0)[5];
15525 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
15526 else{
15527 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17826,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
15528 /* ##sys#write-char/port */
15529 t3=*((C_word*)lf[506]+1);{
15530 C_word *av2;
15531 if(c >= 4) {
15532   av2=av;
15533 } else {
15534   av2=C_alloc(4);
15535 }
15536 av2[0]=t3;
15537 av2[1]=t2;
15538 av2[2]=t1;
15539 av2[3]=((C_word*)t0)[4];
15540 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}
15541 
15542 /* k17790 in k17773 in loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17792(C_word c,C_word * av)15543 static void C_ccall f_17792(C_word c,C_word *av){
15544 C_word tmp;
15545 C_word t0=av[0];
15546 C_word t1=av[1];
15547 C_word t2;
15548 C_word *a;
15549 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15550 C_save_and_reclaim((void *)f_17792,c,av);}
15551 /* support.scm:1709: loop */
15552 t2=((C_word*)((C_word*)t0)[2])[1];
15553 f_17771(t2,((C_word*)t0)[3]);}
15554 
15555 /* k17801 in k17773 in loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17803(C_word c,C_word * av)15556 static void C_ccall f_17803(C_word c,C_word *av){
15557 C_word tmp;
15558 C_word t0=av[0];
15559 C_word t1=av[1];
15560 C_word t2;
15561 C_word t3;
15562 C_word t4;
15563 C_word *a;
15564 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
15565 C_save_and_reclaim((void *)f_17803,c,av);}
15566 a=C_alloc(6);
15567 t2=C_eqp(C_make_character(35),t1);
15568 if(C_truep(t2)){
15569 /* support.scm:1713: chicken.base#get-output-string */
15570 t3=*((C_word*)lf[331]+1);{
15571 C_word *av2;
15572 if(c >= 3) {
15573   av2=av;
15574 } else {
15575   av2=C_alloc(3);
15576 }
15577 av2[0]=t3;
15578 av2[1]=((C_word*)t0)[2];
15579 av2[2]=((C_word*)t0)[3];
15580 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
15581 else{
15582 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17815,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
15583 /* ##sys#write-char/port */
15584 t4=*((C_word*)lf[506]+1);{
15585 C_word *av2;
15586 if(c >= 4) {
15587   av2=av;
15588 } else {
15589   av2=C_alloc(4);
15590 }
15591 av2[0]=t4;
15592 av2[1]=t3;
15593 av2[2]=C_make_character(60);
15594 av2[3]=((C_word*)t0)[3];
15595 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
15596 
15597 /* k17813 in k17801 in k17773 in loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17815(C_word c,C_word * av)15598 static void C_ccall f_17815(C_word c,C_word *av){
15599 C_word tmp;
15600 C_word t0=av[0];
15601 C_word t1=av[1];
15602 C_word t2;
15603 C_word t3;
15604 C_word *a;
15605 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
15606 C_save_and_reclaim((void *)f_17815,c,av);}
15607 a=C_alloc(4);
15608 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
15609 /* ##sys#write-char/port */
15610 t3=*((C_word*)lf[506]+1);{
15611 C_word *av2;
15612 if(c >= 4) {
15613   av2=av;
15614 } else {
15615   av2=C_alloc(4);
15616 }
15617 av2[0]=t3;
15618 av2[1]=t2;
15619 av2[2]=((C_word*)t0)[4];
15620 av2[3]=((C_word*)t0)[5];
15621 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
15622 
15623 /* k17816 in k17813 in k17801 in k17773 in loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17818(C_word c,C_word * av)15624 static void C_ccall f_17818(C_word c,C_word *av){
15625 C_word tmp;
15626 C_word t0=av[0];
15627 C_word t1=av[1];
15628 C_word t2;
15629 C_word *a;
15630 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15631 C_save_and_reclaim((void *)f_17818,c,av);}
15632 /* support.scm:1717: loop */
15633 t2=((C_word*)((C_word*)t0)[2])[1];
15634 f_17771(t2,((C_word*)t0)[3]);}
15635 
15636 /* k17824 in k17773 in loop in k17764 in k17745 in ##sys#user-read-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17826(C_word c,C_word * av)15637 static void C_ccall f_17826(C_word c,C_word *av){
15638 C_word tmp;
15639 C_word t0=av[0];
15640 C_word t1=av[1];
15641 C_word t2;
15642 C_word *a;
15643 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15644 C_save_and_reclaim((void *)f_17826,c,av);}
15645 /* support.scm:1720: loop */
15646 t2=((C_word*)((C_word*)t0)[2])[1];
15647 f_17771(t2,((C_word*)t0)[3]);}
15648 
15649 /* chicken.compiler.support#big-fixnum? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17831(C_word c,C_word * av)15650 static void C_ccall f_17831(C_word c,C_word *av){
15651 C_word tmp;
15652 C_word t0=av[0];
15653 C_word t1=av[1];
15654 C_word t2=av[2];
15655 C_word t3;
15656 C_word t4;
15657 C_word *a;
15658 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
15659 C_save_and_reclaim((void *)f_17831,c,av);}
15660 a=C_alloc(4);
15661 if(C_truep(C_fixnump(t2))){
15662 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17844,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
15663 /* support.scm:1727: chicken.platform#feature? */
15664 t4=*((C_word*)lf[518]+1);{
15665 C_word *av2=av;
15666 av2[0]=t4;
15667 av2[1]=t3;
15668 av2[2]=lf[519];
15669 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
15670 else{
15671 t3=t1;{
15672 C_word *av2=av;
15673 av2[0]=t3;
15674 av2[1]=C_SCHEME_FALSE;
15675 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
15676 
15677 /* k17842 in chicken.compiler.support#big-fixnum? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17844(C_word c,C_word * av)15678 static void C_ccall f_17844(C_word c,C_word *av){
15679 C_word tmp;
15680 C_word t0=av[0];
15681 C_word t1=av[1];
15682 C_word t2;
15683 C_word t3;
15684 C_word *a;
15685 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15686 C_save_and_reclaim((void *)f_17844,c,av);}
15687 if(C_truep(t1)){
15688 t2=C_fixnum_greaterp(((C_word*)t0)[2],C_fix(1073741823));
15689 t3=((C_word*)t0)[3];{
15690 C_word *av2=av;
15691 av2[0]=t3;
15692 av2[1]=(C_truep(t2)?t2:C_fixnum_lessp(((C_word*)t0)[2],C_fix(-1073741824)));
15693 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
15694 else{
15695 t2=((C_word*)t0)[3];{
15696 C_word *av2=av;
15697 av2[0]=t2;
15698 av2[1]=C_SCHEME_FALSE;
15699 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
15700 
15701 /* chicken.compiler.support#small-bignum? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17855(C_word c,C_word * av)15702 static void C_ccall f_17855(C_word c,C_word *av){
15703 C_word tmp;
15704 C_word t0=av[0];
15705 C_word t1=av[1];
15706 C_word t2=av[2];
15707 C_word t3;
15708 C_word t4;
15709 C_word *a;
15710 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
15711 C_save_and_reclaim((void *)f_17855,c,av);}
15712 a=C_alloc(4);
15713 if(C_truep(C_i_bignump(t2))){
15714 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17877,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
15715 /* support.scm:1733: chicken.platform#feature? */
15716 t4=*((C_word*)lf[518]+1);{
15717 C_word *av2=av;
15718 av2[0]=t4;
15719 av2[1]=t3;
15720 av2[2]=lf[519];
15721 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
15722 else{
15723 t3=t1;{
15724 C_word *av2=av;
15725 av2[0]=t3;
15726 av2[1]=C_SCHEME_FALSE;
15727 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
15728 
15729 /* k17875 in chicken.compiler.support#small-bignum? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17877(C_word c,C_word * av)15730 static void C_ccall f_17877(C_word c,C_word *av){
15731 C_word tmp;
15732 C_word t0=av[0];
15733 C_word t1=av[1];
15734 C_word t2;
15735 C_word t3;
15736 C_word *a;
15737 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15738 C_save_and_reclaim((void *)f_17877,c,av);}
15739 t2=C_i_not(t1);
15740 t3=((C_word*)t0)[2];{
15741 C_word *av2=av;
15742 av2[0]=t3;
15743 av2[1]=(C_truep(t2)?C_fixnum_less_or_equal_p(C_i_integer_length(((C_word*)t0)[3]),C_fix(62)):C_SCHEME_FALSE);
15744 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
15745 
15746 /* chicken.compiler.support#hide-variable in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17879(C_word c,C_word * av)15747 static void C_ccall f_17879(C_word c,C_word *av){
15748 C_word tmp;
15749 C_word t0=av[0];
15750 C_word t1=av[1];
15751 C_word t2=av[2];
15752 C_word t3;
15753 C_word t4;
15754 C_word *a;
15755 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
15756 C_save_and_reclaim((void *)f_17879,c,av);}
15757 a=C_alloc(3);
15758 t3=C_a_i_list(&a,1,lf[521]);
15759 if(C_truep(C_i_nullp(t3))){
15760 /* tweaks.scm:57: ##sys#put! */
15761 t4=*((C_word*)lf[262]+1);{
15762 C_word *av2;
15763 if(c >= 5) {
15764   av2=av;
15765 } else {
15766   av2=C_alloc(5);
15767 }
15768 av2[0]=t4;
15769 av2[1]=t1;
15770 av2[2]=t2;
15771 av2[3]=lf[280];
15772 av2[4]=C_SCHEME_TRUE;
15773 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
15774 else{
15775 /* tweaks.scm:57: ##sys#put! */
15776 t4=*((C_word*)lf[262]+1);{
15777 C_word *av2;
15778 if(c >= 5) {
15779   av2=av;
15780 } else {
15781   av2=C_alloc(5);
15782 }
15783 av2[0]=t4;
15784 av2[1]=t1;
15785 av2[2]=t2;
15786 av2[3]=lf[280];
15787 av2[4]=C_i_car(t3);
15788 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
15789 
15790 /* chicken.compiler.support#export-variable in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17899(C_word c,C_word * av)15791 static void C_ccall f_17899(C_word c,C_word *av){
15792 C_word tmp;
15793 C_word t0=av[0];
15794 C_word t1=av[1];
15795 C_word t2=av[2];
15796 C_word t3;
15797 C_word t4;
15798 C_word *a;
15799 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
15800 C_save_and_reclaim((void *)f_17899,c,av);}
15801 a=C_alloc(3);
15802 t3=C_a_i_list(&a,1,lf[523]);
15803 if(C_truep(C_i_nullp(t3))){
15804 /* tweaks.scm:57: ##sys#put! */
15805 t4=*((C_word*)lf[262]+1);{
15806 C_word *av2;
15807 if(c >= 5) {
15808   av2=av;
15809 } else {
15810   av2=C_alloc(5);
15811 }
15812 av2[0]=t4;
15813 av2[1]=t1;
15814 av2[2]=t2;
15815 av2[3]=lf[280];
15816 av2[4]=C_SCHEME_TRUE;
15817 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
15818 else{
15819 /* tweaks.scm:57: ##sys#put! */
15820 t4=*((C_word*)lf[262]+1);{
15821 C_word *av2;
15822 if(c >= 5) {
15823   av2=av;
15824 } else {
15825   av2=C_alloc(5);
15826 }
15827 av2[0]=t4;
15828 av2[1]=t1;
15829 av2[2]=t2;
15830 av2[3]=lf[280];
15831 av2[4]=C_i_car(t3);
15832 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
15833 
15834 /* chicken.compiler.support#variable-hidden? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17919(C_word c,C_word * av)15835 static void C_ccall f_17919(C_word c,C_word *av){
15836 C_word tmp;
15837 C_word t0=av[0];
15838 C_word t1=av[1];
15839 C_word t2=av[2];
15840 C_word t3;
15841 C_word t4;
15842 C_word *a;
15843 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
15844 C_save_and_reclaim((void *)f_17919,c,av);}
15845 a=C_alloc(3);
15846 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17927,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
15847 /* support.scm:1746: ##sys#get */
15848 t4=*((C_word*)lf[182]+1);{
15849 C_word *av2;
15850 if(c >= 4) {
15851   av2=av;
15852 } else {
15853   av2=C_alloc(4);
15854 }
15855 av2[0]=t4;
15856 av2[1]=t3;
15857 av2[2]=t2;
15858 av2[3]=lf[280];
15859 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
15860 
15861 /* k17925 in chicken.compiler.support#variable-hidden? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17927(C_word c,C_word * av)15862 static void C_ccall f_17927(C_word c,C_word *av){
15863 C_word tmp;
15864 C_word t0=av[0];
15865 C_word t1=av[1];
15866 C_word t2;
15867 C_word *a;
15868 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15869 C_save_and_reclaim((void *)f_17927,c,av);}
15870 t2=((C_word*)t0)[2];{
15871 C_word *av2=av;
15872 av2[0]=t2;
15873 av2[1]=C_eqp(t1,lf[521]);
15874 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
15875 
15876 /* k17934 in ##sys#toplevel-definition-hook in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17936(C_word c,C_word * av)15877 static void C_ccall f_17936(C_word c,C_word *av){
15878 C_word tmp;
15879 C_word t0=av[0];
15880 C_word t1=av[1];
15881 C_word t2;
15882 C_word t3;
15883 C_word *a;
15884 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
15885 C_save_and_reclaim((void *)f_17936,c,av);}
15886 if(C_truep(t1)){
15887 /* support.scm:1749: chicken.plist#remprop! */
15888 t2=*((C_word*)lf[279]+1);{
15889 C_word *av2;
15890 if(c >= 4) {
15891   av2=av;
15892 } else {
15893   av2=C_alloc(4);
15894 }
15895 av2[0]=t2;
15896 av2[1]=((C_word*)t0)[2];
15897 av2[2]=((C_word*)t0)[3];
15898 av2[3]=lf[280];
15899 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
15900 else{
15901 t2=C_SCHEME_UNDEFINED;
15902 t3=((C_word*)t0)[2];{
15903 C_word *av2=av;
15904 av2[0]=t3;
15905 av2[1]=t2;
15906 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
15907 
15908 /* chicken.compiler.support#variable-visible? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17941(C_word c,C_word * av)15909 static void C_ccall f_17941(C_word c,C_word *av){
15910 C_word tmp;
15911 C_word t0=av[0];
15912 C_word t1=av[1];
15913 C_word t2=av[2];
15914 C_word t3=av[3];
15915 C_word t4;
15916 C_word t5;
15917 C_word *a;
15918 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
15919 C_save_and_reclaim((void *)f_17941,c,av);}
15920 a=C_alloc(4);
15921 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17945,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
15922 /* support.scm:1752: ##sys#get */
15923 t5=*((C_word*)lf[182]+1);{
15924 C_word *av2=av;
15925 av2[0]=t5;
15926 av2[1]=t4;
15927 av2[2]=t2;
15928 av2[3]=lf[280];
15929 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
15930 
15931 /* k17943 in chicken.compiler.support#variable-visible? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17945(C_word c,C_word * av)15932 static void C_ccall f_17945(C_word c,C_word *av){
15933 C_word tmp;
15934 C_word t0=av[0];
15935 C_word t1=av[1];
15936 C_word t2;
15937 C_word t3;
15938 C_word t4;
15939 C_word *a;
15940 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15941 C_save_and_reclaim((void *)f_17945,c,av);}
15942 t2=C_eqp(t1,lf[521]);
15943 if(C_truep(t2)){
15944 t3=((C_word*)t0)[2];{
15945 C_word *av2=av;
15946 av2[0]=t3;
15947 av2[1]=C_SCHEME_FALSE;
15948 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
15949 else{
15950 t3=C_eqp(t1,lf[523]);
15951 t4=((C_word*)t0)[2];{
15952 C_word *av2=av;
15953 av2[0]=t4;
15954 av2[1]=(C_truep(t3)?C_SCHEME_TRUE:C_i_not(((C_word*)t0)[3]));
15955 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
15956 
15957 /* chicken.compiler.support#mark-variable in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17966(C_word c,C_word * av)15958 static void C_ccall f_17966(C_word c,C_word *av){
15959 C_word tmp;
15960 C_word t0=av[0];
15961 C_word t1=av[1];
15962 C_word t2=av[2];
15963 C_word t3=av[3];
15964 C_word t4;
15965 C_word *a;
15966 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
15967 C_save_and_reclaim((void *)f_17966,c,av);}
15968 if(C_truep(C_rest_nullp(c,4))){
15969 /* support.scm:1762: ##sys#put! */
15970 t4=*((C_word*)lf[262]+1);{
15971 C_word av2[5];
15972 av2[0]=t4;
15973 av2[1]=t1;
15974 av2[2]=t2;
15975 av2[3]=t3;
15976 av2[4]=C_SCHEME_TRUE;
15977 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
15978 else{
15979 /* support.scm:1762: ##sys#put! */
15980 t4=*((C_word*)lf[262]+1);{
15981 C_word av2[5];
15982 av2[0]=t4;
15983 av2[1]=t1;
15984 av2[2]=t2;
15985 av2[3]=t3;
15986 av2[4]=C_get_rest_arg(c,4,av,4,t0);
15987 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
15988 
15989 /* chicken.compiler.support#variable-mark in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17981(C_word c,C_word * av)15990 static void C_ccall f_17981(C_word c,C_word *av){
15991 C_word tmp;
15992 C_word t0=av[0];
15993 C_word t1=av[1];
15994 C_word t2=av[2];
15995 C_word t3=av[3];
15996 C_word t4;
15997 C_word *a;
15998 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
15999 C_save_and_reclaim((void *)f_17981,c,av);}
16000 /* support.scm:1765: ##sys#get */
16001 t4=*((C_word*)lf[182]+1);{
16002 C_word *av2=av;
16003 av2[0]=t4;
16004 av2[1]=t1;
16005 av2[2]=t2;
16006 av2[3]=t3;
16007 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16008 
16009 /* chicken.compiler.support#intrinsic? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17987(C_word c,C_word * av)16010 static void C_ccall f_17987(C_word c,C_word *av){
16011 C_word tmp;
16012 C_word t0=av[0];
16013 C_word t1=av[1];
16014 C_word t2=av[2];
16015 C_word t3;
16016 C_word *a;
16017 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16018 C_save_and_reclaim((void *)f_17987,c,av);}
16019 /* tweaks.scm:60: ##sys#get */
16020 t3=*((C_word*)lf[182]+1);{
16021 C_word *av2;
16022 if(c >= 4) {
16023   av2=av;
16024 } else {
16025   av2=C_alloc(4);
16026 }
16027 av2[0]=t3;
16028 av2[1]=t1;
16029 av2[2]=t2;
16030 av2[3]=lf[503];
16031 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16032 
16033 /* chicken.compiler.support#foldable? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_17998(C_word c,C_word * av)16034 static void C_ccall f_17998(C_word c,C_word *av){
16035 C_word tmp;
16036 C_word t0=av[0];
16037 C_word t1=av[1];
16038 C_word t2=av[2];
16039 C_word t3;
16040 C_word *a;
16041 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16042 C_save_and_reclaim((void *)f_17998,c,av);}
16043 /* tweaks.scm:60: ##sys#get */
16044 t3=*((C_word*)lf[182]+1);{
16045 C_word *av2;
16046 if(c >= 4) {
16047   av2=av;
16048 } else {
16049   av2=C_alloc(4);
16050 }
16051 av2[0]=t3;
16052 av2[1]=t1;
16053 av2[2]=t2;
16054 av2[3]=lf[527];
16055 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16056 
16057 /* chicken.compiler.support#predicate? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18009(C_word c,C_word * av)16058 static void C_ccall f_18009(C_word c,C_word *av){
16059 C_word tmp;
16060 C_word t0=av[0];
16061 C_word t1=av[1];
16062 C_word t2=av[2];
16063 C_word t3;
16064 C_word *a;
16065 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16066 C_save_and_reclaim((void *)f_18009,c,av);}
16067 /* tweaks.scm:60: ##sys#get */
16068 t3=*((C_word*)lf[182]+1);{
16069 C_word *av2;
16070 if(c >= 4) {
16071   av2=av;
16072 } else {
16073   av2=C_alloc(4);
16074 }
16075 av2[0]=t3;
16076 av2[1]=t1;
16077 av2[2]=t2;
16078 av2[3]=lf[528];
16079 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16080 
16081 /* chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18020(C_word c,C_word * av)16082 static void C_ccall f_18020(C_word c,C_word *av){
16083 C_word tmp;
16084 C_word t0=av[0];
16085 C_word t1=av[1];
16086 C_word t2=av[2];
16087 C_word t3;
16088 C_word t4;
16089 C_word t5;
16090 C_word *a;
16091 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
16092 C_save_and_reclaim((void *)f_18020,c,av);}
16093 a=C_alloc(7);
16094 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18024,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
16095 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18113,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
16096 /* support.scm:1776: chicken.platform#repository-path */
16097 t5=*((C_word*)lf[536]+1);{
16098 C_word *av2=av;
16099 av2[0]=t5;
16100 av2[1]=t4;
16101 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
16102 
16103 /* k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18024(C_word c,C_word * av)16104 static void C_ccall f_18024(C_word c,C_word *av){
16105 C_word tmp;
16106 C_word t0=av[0];
16107 C_word t1=av[1];
16108 C_word t2;
16109 C_word t3;
16110 C_word t4;
16111 C_word *a;
16112 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
16113 C_save_and_reclaim((void *)f_18024,c,av);}
16114 a=C_alloc(8);
16115 if(C_truep(t1)){
16116 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18030,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
16117 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18091,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
16118 /* support.scm:1777: chicken.base#open-output-string */
16119 t4=*((C_word*)lf[334]+1);{
16120 C_word *av2=av;
16121 av2[0]=t4;
16122 av2[1]=t3;
16123 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
16124 else{
16125 t2=((C_word*)t0)[2];{
16126 C_word *av2=av;
16127 av2[0]=t2;
16128 av2[1]=C_SCHEME_FALSE;
16129 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
16130 
16131 /* k18028 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18030(C_word c,C_word * av)16132 static void C_ccall f_18030(C_word c,C_word *av){
16133 C_word tmp;
16134 C_word t0=av[0];
16135 C_word t1=av[1];
16136 C_word t2;
16137 C_word t3;
16138 C_word *a;
16139 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
16140 C_save_and_reclaim((void *)f_18030,c,av);}
16141 a=C_alloc(3);
16142 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18058,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
16143 /* support.scm:1784: scheme#call-with-input-file */
16144 t3=*((C_word*)lf[531]+1);{
16145 C_word *av2;
16146 if(c >= 4) {
16147   av2=av;
16148 } else {
16149   av2=C_alloc(4);
16150 }
16151 av2[0]=t3;
16152 av2[1]=t2;
16153 av2[2]=((C_word*)t0)[3];
16154 av2[3]=*((C_word*)lf[82]+1);
16155 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16156 
16157 /* k18040 in for-each-loop4545 in k18056 in k18028 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18042(C_word c,C_word * av)16158 static void C_ccall f_18042(C_word c,C_word *av){
16159 C_word tmp;
16160 C_word t0=av[0];
16161 C_word t1=av[1];
16162 C_word t2;
16163 C_word *a;
16164 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
16165 C_save_and_reclaim((void *)f_18042,c,av);}
16166 /* support.scm:1781: ##sys#put! */
16167 t2=*((C_word*)lf[262]+1);{
16168 C_word *av2;
16169 if(c >= 5) {
16170   av2=av;
16171 } else {
16172   av2=C_alloc(5);
16173 }
16174 av2[0]=t2;
16175 av2[1]=((C_word*)t0)[2];
16176 av2[2]=((C_word*)t0)[3];
16177 av2[3]=lf[530];
16178 av2[4]=t1;
16179 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
16180 
16181 /* k18044 in for-each-loop4545 in k18056 in k18028 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18046(C_word c,C_word * av)16182 static void C_ccall f_18046(C_word c,C_word *av){
16183 C_word tmp;
16184 C_word t0=av[0];
16185 C_word t1=av[1];
16186 C_word t2;
16187 C_word t3;
16188 C_word t4;
16189 C_word t5;
16190 C_word *a;
16191 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
16192 C_save_and_reclaim((void *)f_18046,c,av);}
16193 a=C_alloc(3);
16194 t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
16195 t3=C_u_i_cdr(((C_word*)t0)[2]);
16196 t4=C_a_i_list1(&a,1,t3);
16197 /* support.scm:1783: scheme#append */
16198 t5=*((C_word*)lf[58]+1);{
16199 C_word *av2;
16200 if(c >= 4) {
16201   av2=av;
16202 } else {
16203   av2=C_alloc(4);
16204 }
16205 av2[0]=t5;
16206 av2[1]=((C_word*)t0)[3];
16207 av2[2]=t2;
16208 av2[3]=t4;
16209 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
16210 
16211 /* k18056 in k18028 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18058(C_word c,C_word * av)16212 static void C_ccall f_18058(C_word c,C_word *av){
16213 C_word tmp;
16214 C_word t0=av[0];
16215 C_word t1=av[1];
16216 C_word t2;
16217 C_word t3;
16218 C_word t4;
16219 C_word t5;
16220 C_word t6;
16221 C_word *a;
16222 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
16223 C_save_and_reclaim((void *)f_18058,c,av);}
16224 a=C_alloc(5);
16225 t2=C_i_check_list_2(t1,lf[44]);
16226 t3=C_SCHEME_UNDEFINED;
16227 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
16228 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18066,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
16229 t6=((C_word*)t4)[1];
16230 f_18066(t6,((C_word*)t0)[2],t1);}
16231 
16232 /* for-each-loop4545 in k18056 in k18028 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18066(C_word t0,C_word t1,C_word t2)16233 static void C_fcall f_18066(C_word t0,C_word t1,C_word t2){
16234 C_word tmp;
16235 C_word t3;
16236 C_word t4;
16237 C_word t5;
16238 C_word t6;
16239 C_word t7;
16240 C_word t8;
16241 C_word *a;
16242 if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
16243 C_save_and_reclaim_args((void *)trf_18066,3,t0,t1,t2);}
16244 a=C_alloc(13);
16245 if(C_truep(C_i_pairp(t2))){
16246 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18076,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
16247 t4=C_slot(t2,C_fix(0));
16248 t5=C_i_car(t4);
16249 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18042,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
16250 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18046,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
16251 /* support.scm:1783: ##sys#get */
16252 t8=*((C_word*)lf[182]+1);{
16253 C_word av2[4];
16254 av2[0]=t8;
16255 av2[1]=t7;
16256 av2[2]=t5;
16257 av2[3]=lf[530];
16258 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
16259 else{
16260 t3=C_SCHEME_UNDEFINED;
16261 t4=t1;{
16262 C_word av2[2];
16263 av2[0]=t4;
16264 av2[1]=t3;
16265 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
16266 
16267 /* k18074 in for-each-loop4545 in k18056 in k18028 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18076(C_word c,C_word * av)16268 static void C_ccall f_18076(C_word c,C_word *av){
16269 C_word tmp;
16270 C_word t0=av[0];
16271 C_word t1=av[1];
16272 C_word t2;
16273 C_word *a;
16274 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
16275 C_save_and_reclaim((void *)f_18076,c,av);}
16276 t2=((C_word*)((C_word*)t0)[2])[1];
16277 f_18066(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
16278 
16279 /* k18089 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18091(C_word c,C_word * av)16280 static void C_ccall f_18091(C_word c,C_word *av){
16281 C_word tmp;
16282 C_word t0=av[0];
16283 C_word t1=av[1];
16284 C_word t2;
16285 C_word t3;
16286 C_word t4;
16287 C_word *a;
16288 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
16289 C_save_and_reclaim((void *)f_18091,c,av);}
16290 a=C_alloc(5);
16291 t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[328]);
16292 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18097,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
16293 /* support.scm:1777: ##sys#print */
16294 t4=*((C_word*)lf[27]+1);{
16295 C_word *av2;
16296 if(c >= 5) {
16297   av2=av;
16298 } else {
16299   av2=C_alloc(5);
16300 }
16301 av2[0]=t4;
16302 av2[1]=t3;
16303 av2[2]=lf[534];
16304 av2[3]=C_SCHEME_FALSE;
16305 av2[4]=t1;
16306 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
16307 
16308 /* k18095 in k18089 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18097(C_word c,C_word * av)16309 static void C_ccall f_18097(C_word c,C_word *av){
16310 C_word tmp;
16311 C_word t0=av[0];
16312 C_word t1=av[1];
16313 C_word t2;
16314 C_word t3;
16315 C_word *a;
16316 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
16317 C_save_and_reclaim((void *)f_18097,c,av);}
16318 a=C_alloc(4);
16319 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18100,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
16320 /* support.scm:1777: ##sys#print */
16321 t3=*((C_word*)lf[27]+1);{
16322 C_word *av2;
16323 if(c >= 5) {
16324   av2=av;
16325 } else {
16326   av2=C_alloc(5);
16327 }
16328 av2[0]=t3;
16329 av2[1]=t2;
16330 av2[2]=((C_word*)t0)[4];
16331 av2[3]=C_SCHEME_FALSE;
16332 av2[4]=((C_word*)t0)[3];
16333 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
16334 
16335 /* k18098 in k18095 in k18089 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18100(C_word c,C_word * av)16336 static void C_ccall f_18100(C_word c,C_word *av){
16337 C_word tmp;
16338 C_word t0=av[0];
16339 C_word t1=av[1];
16340 C_word t2;
16341 C_word t3;
16342 C_word *a;
16343 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
16344 C_save_and_reclaim((void *)f_18100,c,av);}
16345 a=C_alloc(4);
16346 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18103,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
16347 /* support.scm:1777: ##sys#print */
16348 t3=*((C_word*)lf[27]+1);{
16349 C_word *av2;
16350 if(c >= 5) {
16351   av2=av;
16352 } else {
16353   av2=C_alloc(5);
16354 }
16355 av2[0]=t3;
16356 av2[1]=t2;
16357 av2[2]=lf[533];
16358 av2[3]=C_SCHEME_FALSE;
16359 av2[4]=((C_word*)t0)[3];
16360 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
16361 
16362 /* k18101 in k18098 in k18095 in k18089 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18103(C_word c,C_word * av)16363 static void C_ccall f_18103(C_word c,C_word *av){
16364 C_word tmp;
16365 C_word t0=av[0];
16366 C_word t1=av[1];
16367 C_word t2;
16368 C_word t3;
16369 C_word *a;
16370 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
16371 C_save_and_reclaim((void *)f_18103,c,av);}
16372 a=C_alloc(4);
16373 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18106,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
16374 /* support.scm:1777: ##sys#write-char-0 */
16375 t3=*((C_word*)lf[26]+1);{
16376 C_word *av2;
16377 if(c >= 4) {
16378   av2=av;
16379 } else {
16380   av2=C_alloc(4);
16381 }
16382 av2[0]=t3;
16383 av2[1]=t2;
16384 av2[2]=C_make_character(10);
16385 av2[3]=((C_word*)t0)[3];
16386 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16387 
16388 /* k18104 in k18101 in k18098 in k18095 in k18089 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18106(C_word c,C_word * av)16389 static void C_ccall f_18106(C_word c,C_word *av){
16390 C_word tmp;
16391 C_word t0=av[0];
16392 C_word t1=av[1];
16393 C_word t2;
16394 C_word t3;
16395 C_word *a;
16396 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16397 C_save_and_reclaim((void *)f_18106,c,av);}
16398 a=C_alloc(3);
16399 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18109,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
16400 /* support.scm:1777: chicken.base#get-output-string */
16401 t3=*((C_word*)lf[331]+1);{
16402 C_word *av2;
16403 if(c >= 3) {
16404   av2=av;
16405 } else {
16406   av2=C_alloc(3);
16407 }
16408 av2[0]=t3;
16409 av2[1]=t2;
16410 av2[2]=((C_word*)t0)[3];
16411 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
16412 
16413 /* k18107 in k18104 in k18101 in k18098 in k18095 in k18089 in k18022 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18109(C_word c,C_word * av)16414 static void C_ccall f_18109(C_word c,C_word *av){
16415 C_word tmp;
16416 C_word t0=av[0];
16417 C_word t1=av[1];
16418 C_word t2;
16419 C_word *a;
16420 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16421 C_save_and_reclaim((void *)f_18109,c,av);}
16422 /* support.scm:1777: debugging */
16423 t2=*((C_word*)lf[22]+1);{
16424 C_word *av2;
16425 if(c >= 4) {
16426   av2=av;
16427 } else {
16428   av2=C_alloc(4);
16429 }
16430 av2[0]=t2;
16431 av2[1]=((C_word*)t0)[2];
16432 av2[2]=lf[532];
16433 av2[3]=t1;
16434 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16435 
16436 /* k18111 in chicken.compiler.support#load-identifier-database in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18113(C_word c,C_word * av)16437 static void C_ccall f_18113(C_word c,C_word *av){
16438 C_word tmp;
16439 C_word t0=av[0];
16440 C_word t1=av[1];
16441 C_word t2;
16442 C_word *a;
16443 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16444 C_save_and_reclaim((void *)f_18113,c,av);}
16445 /* support.scm:1776: chicken.load#find-file */
16446 t2=*((C_word*)lf[535]+1);{
16447 C_word *av2;
16448 if(c >= 4) {
16449   av2=av;
16450 } else {
16451   av2=C_alloc(4);
16452 }
16453 av2[0]=t2;
16454 av2[1]=((C_word*)t0)[2];
16455 av2[2]=((C_word*)t0)[3];
16456 av2[3]=t1;
16457 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16458 
16459 /* chicken.compiler.support#print-version in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18115(C_word c,C_word * av)16460 static void C_ccall f_18115(C_word c,C_word *av){
16461 C_word tmp;
16462 C_word t0=av[0];
16463 C_word t1=av[1];
16464 C_word t2;
16465 C_word t3;
16466 C_word t4;
16467 C_word t5;
16468 C_word t6;
16469 C_word *a;
16470 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
16471 C_save_and_reclaim((void *)f_18115,c,av);}
16472 a=C_alloc(6);
16473 t2=C_rest_nullp(c,2);
16474 t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
16475 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18122,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
16476 if(C_truep(t3)){
16477 /* support.scm:1790: chicken.base#print* */
16478 t5=*((C_word*)lf[538]+1);{
16479 C_word av2[3];
16480 av2[0]=t5;
16481 av2[1]=t4;
16482 av2[2]=lf[539];
16483 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
16484 else{
16485 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f19850,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
16486 /* support.scm:1791: chicken.platform#chicken-version */
16487 t6=*((C_word*)lf[249]+1);{
16488 C_word av2[3];
16489 av2[0]=t6;
16490 av2[1]=t5;
16491 av2[2]=C_SCHEME_TRUE;
16492 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
16493 
16494 /* k18120 in chicken.compiler.support#print-version in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18122(C_word c,C_word * av)16495 static void C_ccall f_18122(C_word c,C_word *av){
16496 C_word tmp;
16497 C_word t0=av[0];
16498 C_word t1=av[1];
16499 C_word t2;
16500 C_word t3;
16501 C_word *a;
16502 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16503 C_save_and_reclaim((void *)f_18122,c,av);}
16504 a=C_alloc(3);
16505 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18129,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
16506 /* support.scm:1791: chicken.platform#chicken-version */
16507 t3=*((C_word*)lf[249]+1);{
16508 C_word *av2;
16509 if(c >= 3) {
16510   av2=av;
16511 } else {
16512   av2=C_alloc(3);
16513 }
16514 av2[0]=t3;
16515 av2[1]=t2;
16516 av2[2]=C_SCHEME_TRUE;
16517 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
16518 
16519 /* k18127 in k18120 in chicken.compiler.support#print-version in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18129(C_word c,C_word * av)16520 static void C_ccall f_18129(C_word c,C_word *av){
16521 C_word tmp;
16522 C_word t0=av[0];
16523 C_word t1=av[1];
16524 C_word t2;
16525 C_word *a;
16526 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
16527 C_save_and_reclaim((void *)f_18129,c,av);}
16528 /* support.scm:1791: chicken.base#print */
16529 t2=*((C_word*)lf[237]+1);{
16530 C_word *av2;
16531 if(c >= 3) {
16532   av2=av;
16533 } else {
16534   av2=C_alloc(3);
16535 }
16536 av2[0]=t2;
16537 av2[1]=((C_word*)t0)[2];
16538 av2[2]=t1;
16539 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
16540 
16541 /* chicken.compiler.support#print-usage in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18140(C_word c,C_word * av)16542 static void C_ccall f_18140(C_word c,C_word *av){
16543 C_word tmp;
16544 C_word t0=av[0];
16545 C_word t1=av[1];
16546 C_word t2;
16547 C_word t3;
16548 C_word *a;
16549 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16550 C_save_and_reclaim((void *)f_18140,c,av);}
16551 a=C_alloc(3);
16552 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18144,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
16553 /* support.scm:1796: print-version */
16554 t3=*((C_word*)lf[537]+1);{
16555 C_word *av2=av;
16556 av2[0]=t3;
16557 av2[1]=t2;
16558 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
16559 
16560 /* k18142 in chicken.compiler.support#print-usage in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18144(C_word c,C_word * av)16561 static void C_ccall f_18144(C_word c,C_word *av){
16562 C_word tmp;
16563 C_word t0=av[0];
16564 C_word t1=av[1];
16565 C_word t2;
16566 C_word t3;
16567 C_word *a;
16568 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16569 C_save_and_reclaim((void *)f_18144,c,av);}
16570 a=C_alloc(3);
16571 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18147,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
16572 /* support.scm:1797: scheme#newline */
16573 t3=*((C_word*)lf[23]+1);{
16574 C_word *av2=av;
16575 av2[0]=t3;
16576 av2[1]=t2;
16577 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
16578 
16579 /* k18145 in k18142 in chicken.compiler.support#print-usage in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18147(C_word c,C_word * av)16580 static void C_ccall f_18147(C_word c,C_word *av){
16581 C_word tmp;
16582 C_word t0=av[0];
16583 C_word t1=av[1];
16584 C_word t2;
16585 C_word *a;
16586 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
16587 C_save_and_reclaim((void *)f_18147,c,av);}
16588 /* support.scm:1798: scheme#display */
16589 t2=*((C_word*)lf[29]+1);{
16590 C_word *av2;
16591 if(c >= 3) {
16592   av2=av;
16593 } else {
16594   av2=C_alloc(3);
16595 }
16596 av2[0]=t2;
16597 av2[1]=((C_word*)t0)[2];
16598 av2[2]=lf[541];
16599 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
16600 
16601 /* chicken.compiler.support#print-debug-options in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18152(C_word c,C_word * av)16602 static void C_ccall f_18152(C_word c,C_word *av){
16603 C_word tmp;
16604 C_word t0=av[0];
16605 C_word t1=av[1];
16606 C_word t2;
16607 C_word *a;
16608 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
16609 C_save_and_reclaim((void *)f_18152,c,av);}
16610 /* support.scm:1930: scheme#display */
16611 t2=*((C_word*)lf[29]+1);{
16612 C_word *av2;
16613 if(c >= 3) {
16614   av2=av;
16615 } else {
16616   av2=C_alloc(3);
16617 }
16618 av2[0]=t2;
16619 av2[1]=t1;
16620 av2[2]=lf[543];
16621 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
16622 
16623 /* a18157 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18158(C_word c,C_word * av)16624 static void C_ccall f_18158(C_word c,C_word *av){
16625 C_word tmp;
16626 C_word t0=av[0];
16627 C_word t1=av[1];
16628 C_word t2=av[2];
16629 C_word t3=av[3];
16630 C_word t4;
16631 C_word t5;
16632 C_word t6;
16633 C_word *a;
16634 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
16635 C_save_and_reclaim((void *)f_18158,c,av);}
16636 a=C_alloc(5);
16637 t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[32]);
16638 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18165,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
16639 /* support.scm:477: ##sys#print */
16640 t6=*((C_word*)lf[27]+1);{
16641 C_word *av2;
16642 if(c >= 5) {
16643   av2=av;
16644 } else {
16645   av2=C_alloc(5);
16646 }
16647 av2[0]=t6;
16648 av2[1]=t5;
16649 av2[2]=lf[544];
16650 av2[3]=C_SCHEME_FALSE;
16651 av2[4]=t3;
16652 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
16653 
16654 /* k18163 in a18157 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18165(C_word c,C_word * av)16655 static void C_ccall f_18165(C_word c,C_word *av){
16656 C_word tmp;
16657 C_word t0=av[0];
16658 C_word t1=av[1];
16659 C_word t2;
16660 C_word t3;
16661 C_word *a;
16662 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
16663 C_save_and_reclaim((void *)f_18165,c,av);}
16664 a=C_alloc(5);
16665 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18168,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
16666 /* support.scm:477: ##sys#print */
16667 t3=*((C_word*)lf[27]+1);{
16668 C_word *av2;
16669 if(c >= 5) {
16670   av2=av;
16671 } else {
16672   av2=C_alloc(5);
16673 }
16674 av2[0]=t3;
16675 av2[1]=t2;
16676 av2[2]=C_slot(((C_word*)t0)[4],C_fix(1));
16677 av2[3]=C_SCHEME_FALSE;
16678 av2[4]=((C_word*)t0)[3];
16679 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
16680 
16681 /* k18166 in k18163 in a18157 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18168(C_word c,C_word * av)16682 static void C_ccall f_18168(C_word c,C_word *av){
16683 C_word tmp;
16684 C_word t0=av[0];
16685 C_word t1=av[1];
16686 C_word t2;
16687 C_word t3;
16688 C_word *a;
16689 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
16690 C_save_and_reclaim((void *)f_18168,c,av);}
16691 a=C_alloc(5);
16692 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
16693 /* support.scm:477: ##sys#write-char-0 */
16694 t3=*((C_word*)lf[26]+1);{
16695 C_word *av2;
16696 if(c >= 4) {
16697   av2=av;
16698 } else {
16699   av2=C_alloc(4);
16700 }
16701 av2[0]=t3;
16702 av2[1]=t2;
16703 av2[2]=C_make_character(32);
16704 av2[3]=((C_word*)t0)[3];
16705 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16706 
16707 /* k18169 in k18166 in k18163 in a18157 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18171(C_word c,C_word * av)16708 static void C_ccall f_18171(C_word c,C_word *av){
16709 C_word tmp;
16710 C_word t0=av[0];
16711 C_word t1=av[1];
16712 C_word t2;
16713 C_word t3;
16714 C_word *a;
16715 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
16716 C_save_and_reclaim((void *)f_18171,c,av);}
16717 a=C_alloc(4);
16718 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18174,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
16719 /* support.scm:477: ##sys#print */
16720 t3=*((C_word*)lf[27]+1);{
16721 C_word *av2;
16722 if(c >= 5) {
16723   av2=av;
16724 } else {
16725   av2=C_alloc(5);
16726 }
16727 av2[0]=t3;
16728 av2[1]=t2;
16729 av2[2]=C_slot(((C_word*)t0)[4],C_fix(2));
16730 av2[3]=C_SCHEME_FALSE;
16731 av2[4]=((C_word*)t0)[3];
16732 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
16733 
16734 /* k18172 in k18169 in k18166 in k18163 in a18157 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_18174(C_word c,C_word * av)16735 static void C_ccall f_18174(C_word c,C_word *av){
16736 C_word tmp;
16737 C_word t0=av[0];
16738 C_word t1=av[1];
16739 C_word t2;
16740 C_word *a;
16741 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16742 C_save_and_reclaim((void *)f_18174,c,av);}
16743 /* support.scm:477: ##sys#write-char-0 */
16744 t2=*((C_word*)lf[26]+1);{
16745 C_word *av2;
16746 if(c >= 4) {
16747   av2=av;
16748 } else {
16749   av2=C_alloc(4);
16750 }
16751 av2[0]=t2;
16752 av2[1]=((C_word*)t0)[2];
16753 av2[2]=C_make_character(62);
16754 av2[3]=((C_word*)t0)[3];
16755 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16756 
16757 /* k5346 */
f_5348(C_word c,C_word * av)16758 static void C_ccall f_5348(C_word c,C_word *av){
16759 C_word tmp;
16760 C_word t0=av[0];
16761 C_word t1=av[1];
16762 C_word t2;
16763 C_word t3;
16764 C_word *a;
16765 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16766 C_save_and_reclaim((void *)f_5348,c,av);}
16767 a=C_alloc(3);
16768 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5351,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16769 C_word *av2=av;
16770 av2[0]=C_SCHEME_UNDEFINED;
16771 av2[1]=t2;
16772 C_eval_toplevel(2,av2);}}
16773 
16774 /* k5349 in k5346 */
f_5351(C_word c,C_word * av)16775 static void C_ccall f_5351(C_word c,C_word *av){
16776 C_word tmp;
16777 C_word t0=av[0];
16778 C_word t1=av[1];
16779 C_word t2;
16780 C_word t3;
16781 C_word *a;
16782 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16783 C_save_and_reclaim((void *)f_5351,c,av);}
16784 a=C_alloc(3);
16785 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5354,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16786 C_word *av2=av;
16787 av2[0]=C_SCHEME_UNDEFINED;
16788 av2[1]=t2;
16789 C_data_2dstructures_toplevel(2,av2);}}
16790 
16791 /* k5352 in k5349 in k5346 */
f_5354(C_word c,C_word * av)16792 static void C_ccall f_5354(C_word c,C_word *av){
16793 C_word tmp;
16794 C_word t0=av[0];
16795 C_word t1=av[1];
16796 C_word t2;
16797 C_word t3;
16798 C_word *a;
16799 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16800 C_save_and_reclaim((void *)f_5354,c,av);}
16801 a=C_alloc(3);
16802 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5357,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16803 C_word *av2=av;
16804 av2[0]=C_SCHEME_UNDEFINED;
16805 av2[1]=t2;
16806 C_extras_toplevel(2,av2);}}
16807 
16808 /* k5355 in k5352 in k5349 in k5346 */
f_5357(C_word c,C_word * av)16809 static void C_ccall f_5357(C_word c,C_word *av){
16810 C_word tmp;
16811 C_word t0=av[0];
16812 C_word t1=av[1];
16813 C_word t2;
16814 C_word t3;
16815 C_word *a;
16816 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16817 C_save_and_reclaim((void *)f_5357,c,av);}
16818 a=C_alloc(3);
16819 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5360,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16820 C_word *av2=av;
16821 av2[0]=C_SCHEME_UNDEFINED;
16822 av2[1]=t2;
16823 C_file_toplevel(2,av2);}}
16824 
16825 /* k5358 in k5355 in k5352 in k5349 in k5346 */
f_5360(C_word c,C_word * av)16826 static void C_ccall f_5360(C_word c,C_word *av){
16827 C_word tmp;
16828 C_word t0=av[0];
16829 C_word t1=av[1];
16830 C_word t2;
16831 C_word t3;
16832 C_word *a;
16833 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16834 C_save_and_reclaim((void *)f_5360,c,av);}
16835 a=C_alloc(3);
16836 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5363,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16837 C_word *av2=av;
16838 av2[0]=C_SCHEME_UNDEFINED;
16839 av2[1]=t2;
16840 C_internal_toplevel(2,av2);}}
16841 
16842 /* k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5363(C_word c,C_word * av)16843 static void C_ccall f_5363(C_word c,C_word *av){
16844 C_word tmp;
16845 C_word t0=av[0];
16846 C_word t1=av[1];
16847 C_word t2;
16848 C_word t3;
16849 C_word *a;
16850 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16851 C_save_and_reclaim((void *)f_5363,c,av);}
16852 a=C_alloc(3);
16853 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5366,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16854 C_word *av2=av;
16855 av2[0]=C_SCHEME_UNDEFINED;
16856 av2[1]=t2;
16857 C_pathname_toplevel(2,av2);}}
16858 
16859 /* k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5366(C_word c,C_word * av)16860 static void C_ccall f_5366(C_word c,C_word *av){
16861 C_word tmp;
16862 C_word t0=av[0];
16863 C_word t1=av[1];
16864 C_word t2;
16865 C_word t3;
16866 C_word *a;
16867 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16868 C_save_and_reclaim((void *)f_5366,c,av);}
16869 a=C_alloc(3);
16870 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5369,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16871 C_word *av2=av;
16872 av2[0]=C_SCHEME_UNDEFINED;
16873 av2[1]=t2;
16874 C_port_toplevel(2,av2);}}
16875 
16876 /* k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5369(C_word c,C_word * av)16877 static void C_ccall f_5369(C_word c,C_word *av){
16878 C_word tmp;
16879 C_word t0=av[0];
16880 C_word t1=av[1];
16881 C_word t2;
16882 C_word t3;
16883 C_word t4;
16884 C_word t5;
16885 C_word *a;
16886 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
16887 C_save_and_reclaim((void *)f_5369,c,av);}
16888 a=C_alloc(19);
16889 t2=C_a_i_provide(&a,1,lf[0]);
16890 t3=C_a_i_provide(&a,1,lf[1]);
16891 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5372,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
16892 C_word *av2=av;
16893 av2[0]=C_SCHEME_UNDEFINED;
16894 av2[1]=t4;
16895 C_expand_toplevel(2,av2);}}
16896 
16897 /* k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5372(C_word c,C_word * av)16898 static void C_ccall f_5372(C_word c,C_word *av){
16899 C_word tmp;
16900 C_word t0=av[0];
16901 C_word t1=av[1];
16902 C_word t2;
16903 C_word t3;
16904 C_word t4;
16905 C_word t5;
16906 C_word t6;
16907 C_word t7;
16908 C_word t8;
16909 C_word t9;
16910 C_word t10;
16911 C_word t11;
16912 C_word t12;
16913 C_word t13;
16914 C_word t14;
16915 C_word *a;
16916 if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
16917 C_save_and_reclaim((void *)f_5372,c,av);}
16918 a=C_alloc(19);
16919 t2=C_mutate(&lf[2] /* (set! chicken.compiler.support#take ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5482,tmp=(C_word)a,a+=2,tmp));
16920 t3=C_mutate(&lf[3] /* (set! chicken.compiler.support#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5743,tmp=(C_word)a,a+=2,tmp));
16921 t4=C_mutate(&lf[4] /* (set! chicken.compiler.support#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5777,tmp=(C_word)a,a+=2,tmp));
16922 t5=C_mutate(&lf[5] /* (set! chicken.compiler.support#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_5807,tmp=(C_word)a,a+=2,tmp));
16923 t6=C_mutate(&lf[6] /* (set! chicken.compiler.support#last ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6143,tmp=(C_word)a,a+=2,tmp));
16924 t7=C_mutate(&lf[7] /* (set! chicken.compiler.support#lset-adjoin/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6202,tmp=(C_word)a,a+=2,tmp));
16925 t8=C_mutate((C_word*)lf[8]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[9]);
16926 t9=C_set_block_item(lf[10] /* chicken.compiler.support#unsafe */,0,C_SCHEME_FALSE);
16927 t10=C_mutate((C_word*)lf[11]+1 /* (set! chicken.compiler.support#compiler-cleanup-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6655,tmp=(C_word)a,a+=2,tmp));
16928 t11=C_set_block_item(lf[12] /* chicken.compiler.support#debugging-chicken */,0,C_SCHEME_END_OF_LIST);
16929 t12=C_mutate((C_word*)lf[13]+1 /* (set! chicken.compiler.support#bomb ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6659,tmp=(C_word)a,a+=2,tmp));
16930 t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6684,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
16931 /* support.scm:121: chicken.base#open-output-string */
16932 t14=*((C_word*)lf[334]+1);{
16933 C_word *av2=av;
16934 av2[0]=t14;
16935 av2[1]=t13;
16936 ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
16937 
16938 /* chicken.compiler.support#take in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5482(C_word t1,C_word t2,C_word t3)16939 static void C_fcall f_5482(C_word t1,C_word t2,C_word t3){
16940 C_word tmp;
16941 C_word t4;
16942 C_word t5;
16943 C_word t6;
16944 C_word t7;
16945 C_word t8;
16946 C_word t9;
16947 C_word *a;
16948 loop:
16949 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
16950 C_save_and_reclaim_args((void *)trf_5482,3,t1,t2,t3);}
16951 a=C_alloc(4);
16952 if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){
16953 t4=t1;{
16954 C_word av2[2];
16955 av2[0]=t4;
16956 av2[1]=C_SCHEME_END_OF_LIST;
16957 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
16958 else{
16959 t4=C_i_car(t2);
16960 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5500,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
16961 /* mini-srfi-1.scm:56: take */
16962 t7=t5;
16963 t8=C_u_i_cdr(t2);
16964 t9=C_fixnum_difference(t3,C_fix(1));
16965 t1=t7;
16966 t2=t8;
16967 t3=t9;
16968 goto loop;}}
16969 
16970 /* k5498 in chicken.compiler.support#take in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5500(C_word c,C_word * av)16971 static void C_ccall f_5500(C_word c,C_word *av){
16972 C_word tmp;
16973 C_word t0=av[0];
16974 C_word t1=av[1];
16975 C_word t2;
16976 C_word *a;
16977 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
16978 C_save_and_reclaim((void *)f_5500,c,av);}
16979 a=C_alloc(3);
16980 t2=((C_word*)t0)[2];{
16981 C_word *av2=av;
16982 av2[0]=t2;
16983 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
16984 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
16985 
16986 /* loop in a10632 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5540(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)16987 static void C_fcall f_5540(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
16988 C_word tmp;
16989 C_word t5;
16990 C_word t6;
16991 C_word t7;
16992 C_word t8;
16993 C_word t9;
16994 C_word t10;
16995 C_word t11;
16996 C_word t12;
16997 C_word *a;
16998 loop:
16999 if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
17000 C_save_and_reclaim_args((void *)trf_5540,5,t0,t1,t2,t3,t4);}
17001 a=C_alloc(4);
17002 if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){
17003 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5554,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
17004 /* mini-srfi-1.scm:67: scheme#reverse */
17005 t6=*((C_word*)lf[80]+1);{
17006 C_word av2[3];
17007 av2[0]=t6;
17008 av2[1]=t5;
17009 av2[2]=t3;
17010 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
17011 else{
17012 t5=C_fixnum_difference(t2,C_fix(1));
17013 t6=C_i_car(t4);
17014 t7=C_a_i_cons(&a,2,t6,t3);
17015 /* mini-srfi-1.scm:68: loop */
17016 t9=t1;
17017 t10=t5;
17018 t11=t7;
17019 t12=C_u_i_cdr(t4);
17020 t1=t9;
17021 t2=t10;
17022 t3=t11;
17023 t4=t12;
17024 goto loop;}}
17025 
17026 /* k5552 in loop in a10632 in a10626 in chicken.compiler.support#inline-lambda-bindings in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5554(C_word c,C_word * av)17027 static void C_ccall f_5554(C_word c,C_word *av){
17028 C_word tmp;
17029 C_word t0=av[0];
17030 C_word t1=av[1];
17031 C_word t2;
17032 C_word *a;
17033 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17034 C_save_and_reclaim((void *)f_5554,c,av);}
17035 /* mini-srfi-1.scm:67: scheme#values */{
17036 C_word *av2;
17037 if(c >= 4) {
17038   av2=av;
17039 } else {
17040   av2=C_alloc(4);
17041 }
17042 av2[0]=0;
17043 av2[1]=((C_word*)t0)[2];
17044 av2[2]=t1;
17045 av2[3]=((C_word*)t0)[3];
17046 C_values(4,av2);}}
17047 
17048 /* chicken.compiler.support#every in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5743(C_word t1,C_word t2,C_word t3)17049 static void C_fcall f_5743(C_word t1,C_word t2,C_word t3){
17050 C_word tmp;
17051 C_word t4;
17052 C_word t5;
17053 C_word t6;
17054 C_word t7;
17055 C_word *a;
17056 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
17057 C_save_and_reclaim_args((void *)trf_5743,3,t1,t2,t3);}
17058 a=C_alloc(6);
17059 t4=C_SCHEME_UNDEFINED;
17060 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
17061 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5749,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
17062 t7=((C_word*)t5)[1];
17063 f_5749(t7,t1,t3);}
17064 
17065 /* loop in chicken.compiler.support#every in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5749(C_word t0,C_word t1,C_word t2)17066 static void C_fcall f_5749(C_word t0,C_word t1,C_word t2){
17067 C_word tmp;
17068 C_word t3;
17069 C_word t4;
17070 C_word t5;
17071 C_word *a;
17072 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
17073 C_save_and_reclaim_args((void *)trf_5749,3,t0,t1,t2);}
17074 a=C_alloc(5);
17075 t3=C_i_nullp(t2);
17076 if(C_truep(t3)){
17077 t4=t1;{
17078 C_word av2[2];
17079 av2[0]=t4;
17080 av2[1]=t3;
17081 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17082 else{
17083 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5771,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
17084 /* mini-srfi-1.scm:82: pred */
17085 t5=((C_word*)t0)[3];{
17086 C_word av2[3];
17087 av2[0]=t5;
17088 av2[1]=t4;
17089 av2[2]=C_i_car(t2);
17090 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
17091 
17092 /* k5769 in loop in chicken.compiler.support#every in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5771(C_word c,C_word * av)17093 static void C_ccall f_5771(C_word c,C_word *av){
17094 C_word tmp;
17095 C_word t0=av[0];
17096 C_word t1=av[1];
17097 C_word t2;
17098 C_word *a;
17099 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
17100 C_save_and_reclaim((void *)f_5771,c,av);}
17101 if(C_truep(C_i_not(t1))){
17102 t2=((C_word*)t0)[2];{
17103 C_word *av2=av;
17104 av2[0]=t2;
17105 av2[1]=C_SCHEME_FALSE;
17106 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17107 else{
17108 /* mini-srfi-1.scm:83: loop */
17109 t2=((C_word*)((C_word*)t0)[3])[1];
17110 f_5749(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}
17111 
17112 /* chicken.compiler.support#any in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5777(C_word t1,C_word t2,C_word t3)17113 static void C_fcall f_5777(C_word t1,C_word t2,C_word t3){
17114 C_word tmp;
17115 C_word t4;
17116 C_word t5;
17117 C_word t6;
17118 C_word t7;
17119 C_word *a;
17120 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
17121 C_save_and_reclaim_args((void *)trf_5777,3,t1,t2,t3);}
17122 a=C_alloc(6);
17123 t4=C_SCHEME_UNDEFINED;
17124 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
17125 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5783,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
17126 t7=((C_word*)t5)[1];
17127 f_5783(t7,t1,t3);}
17128 
17129 /* loop in chicken.compiler.support#any in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5783(C_word t0,C_word t1,C_word t2)17130 static void C_fcall f_5783(C_word t0,C_word t1,C_word t2){
17131 C_word tmp;
17132 C_word t3;
17133 C_word t4;
17134 C_word *a;
17135 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
17136 C_save_and_reclaim_args((void *)trf_5783,3,t0,t1,t2);}
17137 a=C_alloc(5);
17138 if(C_truep(C_i_nullp(t2))){
17139 t3=t1;{
17140 C_word av2[2];
17141 av2[0]=t3;
17142 av2[1]=C_SCHEME_FALSE;
17143 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
17144 else{
17145 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5793,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
17146 /* mini-srfi-1.scm:88: pred */
17147 t4=((C_word*)t0)[3];{
17148 C_word av2[3];
17149 av2[0]=t4;
17150 av2[1]=t3;
17151 av2[2]=C_i_car(t2);
17152 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
17153 
17154 /* k5791 in loop in chicken.compiler.support#any in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5793(C_word c,C_word * av)17155 static void C_ccall f_5793(C_word c,C_word *av){
17156 C_word tmp;
17157 C_word t0=av[0];
17158 C_word t1=av[1];
17159 C_word t2;
17160 C_word *a;
17161 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
17162 C_save_and_reclaim((void *)f_5793,c,av);}
17163 if(C_truep(t1)){
17164 t2=((C_word*)t0)[2];{
17165 C_word *av2=av;
17166 av2[0]=t2;
17167 av2[1]=t1;
17168 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17169 else{
17170 /* mini-srfi-1.scm:89: loop */
17171 t2=((C_word*)((C_word*)t0)[3])[1];
17172 f_5783(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}
17173 
17174 /* chicken.compiler.support#cons* in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5807(C_word t1,C_word t2,C_word t3)17175 static void C_fcall f_5807(C_word t1,C_word t2,C_word t3){
17176 C_word tmp;
17177 C_word t4;
17178 C_word t5;
17179 C_word t6;
17180 C_word t7;
17181 C_word *a;
17182 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
17183 C_save_and_reclaim_args((void *)trf_5807,3,t1,t2,t3);}
17184 a=C_alloc(5);
17185 t4=C_SCHEME_UNDEFINED;
17186 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
17187 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5813,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
17188 t7=((C_word*)t5)[1];
17189 f_5813(t7,t1,t2,t3);}
17190 
17191 /* loop in chicken.compiler.support#cons* in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5813(C_word t0,C_word t1,C_word t2,C_word t3)17192 static void C_fcall f_5813(C_word t0,C_word t1,C_word t2,C_word t3){
17193 C_word tmp;
17194 C_word t4;
17195 C_word t5;
17196 C_word t6;
17197 C_word t7;
17198 C_word t8;
17199 C_word *a;
17200 loop:
17201 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
17202 C_save_and_reclaim_args((void *)trf_5813,4,t0,t1,t2,t3);}
17203 a=C_alloc(4);
17204 if(C_truep(C_i_nullp(t3))){
17205 t4=t1;{
17206 C_word av2[2];
17207 av2[0]=t4;
17208 av2[1]=t2;
17209 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17210 else{
17211 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5827,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
17212 /* mini-srfi-1.scm:95: loop */
17213 t6=t4;
17214 t7=C_i_car(t3);
17215 t8=C_u_i_cdr(t3);
17216 t1=t6;
17217 t2=t7;
17218 t3=t8;
17219 goto loop;}}
17220 
17221 /* k5825 in loop in chicken.compiler.support#cons* in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_5827(C_word c,C_word * av)17222 static void C_ccall f_5827(C_word c,C_word *av){
17223 C_word tmp;
17224 C_word t0=av[0];
17225 C_word t1=av[1];
17226 C_word t2;
17227 C_word *a;
17228 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
17229 C_save_and_reclaim((void *)f_5827,c,av);}
17230 a=C_alloc(3);
17231 t2=((C_word*)t0)[2];{
17232 C_word *av2=av;
17233 av2[0]=t2;
17234 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
17235 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17236 
17237 /* foldr408 in k8152 in chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6036(C_word t0,C_word t1,C_word t2)17238 static void C_fcall f_6036(C_word t0,C_word t1,C_word t2){
17239 C_word tmp;
17240 C_word t3;
17241 C_word t4;
17242 C_word t5;
17243 C_word t6;
17244 C_word t7;
17245 C_word t8;
17246 C_word *a;
17247 loop:
17248 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
17249 C_save_and_reclaim_args((void *)trf_6036,3,t0,t1,t2);}
17250 a=C_alloc(8);
17251 if(C_truep(C_i_pairp(t2))){
17252 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6044,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
17253 t4=C_slot(t2,C_fix(0));
17254 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6070,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
17255 t7=t5;
17256 t8=C_slot(t2,C_fix(1));
17257 t1=t7;
17258 t2=t8;
17259 goto loop;}
17260 else{
17261 t3=t1;{
17262 C_word av2[2];
17263 av2[0]=t3;
17264 av2[1]=C_SCHEME_END_OF_LIST;
17265 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17266 
17267 /* g413 in foldr408 in k8152 in chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6044(C_word t0,C_word t1,C_word t2,C_word t3)17268 static void C_fcall f_6044(C_word t0,C_word t1,C_word t2,C_word t3){
17269 C_word tmp;
17270 C_word t4;
17271 C_word t5;
17272 C_word t6;
17273 C_word *a;
17274 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
17275 C_save_and_reclaim_args((void *)trf_6044,4,t0,t1,t2,t3);}
17276 a=C_alloc(6);
17277 t4=(
17278 /* mini-srfi-1.scm:135: pred */
17279   f_8162(((C_word*)t0)[2],t2)
17280 );
17281 if(C_truep(t4)){
17282 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6052,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
17283 /* mini-srfi-1.scm:135: g423 */
17284 t6=t1;{
17285 C_word av2[2];
17286 av2[0]=t6;
17287 av2[1]=(
17288 /* mini-srfi-1.scm:135: g423 */
17289   f_6052(C_a_i(&a,3),t5,t4)
17290 );
17291 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
17292 else{
17293 t5=t1;{
17294 C_word av2[2];
17295 av2[0]=t5;
17296 av2[1]=t3;
17297 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
17298 
17299 /* g423 in g413 in foldr408 in k8152 in chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6052(C_word * a,C_word t0,C_word t1)17300 static C_word C_fcall f_6052(C_word *a,C_word t0,C_word t1){
17301 C_word tmp;
17302 C_word t2;
17303 C_stack_overflow_check;{}
17304 return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));}
17305 
17306 /* k6068 in foldr408 in k8152 in chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6070(C_word c,C_word * av)17307 static void C_ccall f_6070(C_word c,C_word *av){
17308 C_word tmp;
17309 C_word t0=av[0];
17310 C_word t1=av[1];
17311 C_word t2;
17312 C_word *a;
17313 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17314 C_save_and_reclaim((void *)f_6070,c,av);}
17315 /* mini-srfi-1.scm:134: g413 */
17316 t2=((C_word*)t0)[2];
17317 f_6044(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
17318 
17319 /* map-loop436 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6109(C_word t0,C_word t1,C_word t2)17320 static void C_fcall f_6109(C_word t0,C_word t1,C_word t2){
17321 C_word tmp;
17322 C_word t3;
17323 C_word t4;
17324 C_word t5;
17325 C_word t6;
17326 C_word t7;
17327 C_word t8;
17328 C_word t9;
17329 C_word t10;
17330 C_word *a;
17331 loop:
17332 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
17333 C_save_and_reclaim_args((void *)trf_6109,3,t0,t1,t2);}
17334 a=C_alloc(3);
17335 if(C_truep(C_i_pairp(t2))){
17336 t3=C_slot(t2,C_fix(0));
17337 t4=C_i_car(t3);
17338 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
17339 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
17340 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
17341 t9=t1;
17342 t10=C_slot(t2,C_fix(1));
17343 t1=t9;
17344 t2=t10;
17345 goto loop;}
17346 else{
17347 t3=t1;{
17348 C_word av2[2];
17349 av2[0]=t3;
17350 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
17351 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17352 
17353 /* chicken.compiler.support#last in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6143(C_word t1,C_word t2)17354 static void C_fcall f_6143(C_word t1,C_word t2){
17355 C_word tmp;
17356 C_word t3;
17357 C_word t4;
17358 C_word *a;
17359 if(C_unlikely(!C_demand(C_calculate_demand(2,0,2)))){
17360 C_save_and_reclaim_args((void *)trf_6143,2,t1,t2);}
17361 a=C_alloc(2);
17362 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6149,tmp=(C_word)a,a+=2,tmp);
17363 t4=t1;{
17364 C_word av2[2];
17365 av2[0]=t4;
17366 av2[1]=(
17367   f_6149(t2)
17368 );
17369 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17370 
17371 /* loop in chicken.compiler.support#last in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6149(C_word t1)17372 static C_word C_fcall f_6149(C_word t1){
17373 C_word tmp;
17374 C_word t2;
17375 C_word t3;
17376 C_word t4;
17377 C_stack_overflow_check;
17378 loop:{}
17379 t2=C_i_cdr(t1);
17380 if(C_truep(C_i_nullp(t2))){
17381 return(C_u_i_car(t1));}
17382 else{
17383 t4=C_u_i_cdr(t1);
17384 t1=t4;
17385 goto loop;}}
17386 
17387 /* chicken.compiler.support#lset-adjoin/eq? in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6202(C_word t1,C_word t2,C_word t3)17388 static void C_fcall f_6202(C_word t1,C_word t2,C_word t3){
17389 C_word tmp;
17390 C_word t4;
17391 C_word t5;
17392 C_word t6;
17393 C_word t7;
17394 C_word *a;
17395 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
17396 C_save_and_reclaim_args((void *)trf_6202,3,t1,t2,t3);}
17397 a=C_alloc(5);
17398 t4=C_SCHEME_UNDEFINED;
17399 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
17400 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6208,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
17401 t7=((C_word*)t5)[1];
17402 f_6208(t7,t1,t3,t2);}
17403 
17404 /* loop in chicken.compiler.support#lset-adjoin/eq? in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6208(C_word t0,C_word t1,C_word t2,C_word t3)17405 static void C_fcall f_6208(C_word t0,C_word t1,C_word t2,C_word t3){
17406 C_word tmp;
17407 C_word t4;
17408 C_word t5;
17409 C_word t6;
17410 C_word t7;
17411 C_word t8;
17412 C_word t9;
17413 C_word t10;
17414 C_word t11;
17415 C_word *a;
17416 loop:
17417 if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
17418 C_save_and_reclaim_args((void *)trf_6208,4,t0,t1,t2,t3);}
17419 a=C_alloc(3);
17420 if(C_truep(C_i_nullp(t2))){
17421 t4=t1;{
17422 C_word av2[2];
17423 av2[0]=t4;
17424 av2[1]=t3;
17425 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17426 else{
17427 t4=C_i_car(t2);
17428 if(C_truep(C_i_memq(t4,t3))){
17429 /* mini-srfi-1.scm:160: loop */
17430 t9=t1;
17431 t10=C_u_i_cdr(t2);
17432 t11=t3;
17433 t1=t9;
17434 t2=t10;
17435 t3=t11;
17436 goto loop;}
17437 else{
17438 t5=C_u_i_cdr(t2);
17439 t6=C_u_i_car(t2);
17440 t7=C_a_i_cons(&a,2,t6,t3);
17441 /* mini-srfi-1.scm:161: loop */
17442 t9=t1;
17443 t10=t5;
17444 t11=t7;
17445 t1=t9;
17446 t2=t10;
17447 t3=t11;
17448 goto loop;}}}
17449 
17450 /* loop in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6391(C_word t0,C_word t1,C_word t2)17451 static void C_fcall f_6391(C_word t0,C_word t1,C_word t2){
17452 C_word tmp;
17453 C_word t3;
17454 C_word t4;
17455 C_word t5;
17456 C_word t6;
17457 C_word t7;
17458 C_word *a;
17459 loop:
17460 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
17461 C_save_and_reclaim_args((void *)trf_6391,3,t0,t1,t2);}
17462 a=C_alloc(4);
17463 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
17464 t3=t1;{
17465 C_word av2[2];
17466 av2[0]=t3;
17467 av2[1]=C_SCHEME_END_OF_LIST;
17468 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
17469 else{
17470 t3=(
17471 /* mini-srfi-1.scm:190: proc */
17472   f_17526(((C_word*)t0)[3],t2)
17473 );
17474 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6409,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
17475 /* mini-srfi-1.scm:190: loop */
17476 t6=t4;
17477 t7=C_fixnum_plus(t2,C_fix(1));
17478 t1=t6;
17479 t2=t7;
17480 goto loop;}}
17481 
17482 /* k6407 in loop in k17408 in chicken.compiler.support#encodeable-literal? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6409(C_word c,C_word * av)17483 static void C_ccall f_6409(C_word c,C_word *av){
17484 C_word tmp;
17485 C_word t0=av[0];
17486 C_word t1=av[1];
17487 C_word t2;
17488 C_word *a;
17489 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
17490 C_save_and_reclaim((void *)f_6409,c,av);}
17491 a=C_alloc(3);
17492 t2=((C_word*)t0)[2];{
17493 C_word *av2=av;
17494 av2[0]=t2;
17495 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
17496 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17497 
17498 /* loop in k12761 in walk in chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6504(C_word t0,C_word t1,C_word t2)17499 static void C_fcall f_6504(C_word t0,C_word t1,C_word t2){
17500 C_word tmp;
17501 C_word t3;
17502 C_word t4;
17503 C_word *a;
17504 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
17505 C_save_and_reclaim_args((void *)trf_6504,3,t0,t1,t2);}
17506 a=C_alloc(5);
17507 if(C_truep(C_i_nullp(t2))){
17508 t3=t1;{
17509 C_word av2[2];
17510 av2[0]=t3;
17511 av2[1]=C_SCHEME_FALSE;
17512 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
17513 else{
17514 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6517,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
17515 /* mini-srfi-1.scm:216: pred */
17516 t4=((C_word*)t0)[3];
17517 f_12777(t4,t3,C_i_car(t2));}}
17518 
17519 /* k6515 in loop in k12761 in walk in chicken.compiler.support#expression-has-side-effects? in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6517(C_word c,C_word * av)17520 static void C_ccall f_6517(C_word c,C_word *av){
17521 C_word tmp;
17522 C_word t0=av[0];
17523 C_word t1=av[1];
17524 C_word t2;
17525 C_word *a;
17526 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
17527 C_save_and_reclaim((void *)f_6517,c,av);}
17528 if(C_truep(t1)){
17529 t2=((C_word*)t0)[2];{
17530 C_word *av2=av;
17531 av2[0]=t2;
17532 av2[1]=C_u_i_car(((C_word*)t0)[3]);
17533 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17534 else{
17535 /* mini-srfi-1.scm:217: loop */
17536 t2=((C_word*)((C_word*)t0)[4])[1];
17537 f_6504(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]));}}
17538 
17539 /* chicken.compiler.support#compiler-cleanup-hook in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6655(C_word c,C_word * av)17540 static void C_ccall f_6655(C_word c,C_word *av){
17541 C_word tmp;
17542 C_word t0=av[0];
17543 C_word t1=av[1];
17544 C_word t2;
17545 C_word *a;
17546 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
17547 C_save_and_reclaim((void *)f_6655,c,av);}
17548 t2=t1;{
17549 C_word *av2=av;
17550 av2[0]=t2;
17551 av2[1]=C_SCHEME_FALSE;
17552 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17553 
17554 /* chicken.compiler.support#bomb in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6659(C_word c,C_word * av)17555 static void C_ccall f_6659(C_word c,C_word *av){
17556 C_word tmp;
17557 C_word t0=av[0];
17558 C_word t1=av[1];
17559 C_word t2;
17560 C_word *a;
17561 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){
17562 C_save_and_reclaim((void*)f_6659,c,av);}
17563 a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
17564 t2=C_build_rest(&a,c,2,av);
17565 C_word t3;
17566 C_word t4;
17567 if(C_truep(C_i_pairp(t2))){
17568 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6673,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
17569 /* support.scm:117: scheme#string-append */
17570 t4=*((C_word*)lf[15]+1);{
17571 C_word *av2;
17572 if(c >= 4) {
17573   av2=av;
17574 } else {
17575   av2=C_alloc(4);
17576 }
17577 av2[0]=t4;
17578 av2[1]=t3;
17579 av2[2]=lf[16];
17580 av2[3]=C_u_i_car(t2);
17581 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
17582 else{
17583 /* support.scm:118: chicken.base#error */
17584 t3=*((C_word*)lf[14]+1);{
17585 C_word *av2;
17586 if(c >= 3) {
17587   av2=av;
17588 } else {
17589   av2=C_alloc(3);
17590 }
17591 av2[0]=t3;
17592 av2[1]=t1;
17593 av2[2]=lf[17];
17594 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
17595 
17596 /* k6671 in chicken.compiler.support#bomb in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6673(C_word c,C_word * av)17597 static void C_ccall f_6673(C_word c,C_word *av){
17598 C_word tmp;
17599 C_word t0=av[0];
17600 C_word t1=av[1];
17601 C_word t2;
17602 C_word *a;
17603 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
17604 C_save_and_reclaim((void *)f_6673,c,av);}{
17605 C_word *av2;
17606 if(c >= 5) {
17607   av2=av;
17608 } else {
17609   av2=C_alloc(5);
17610 }
17611 av2[0]=0;
17612 av2[1]=((C_word*)t0)[2];
17613 av2[2]=*((C_word*)lf[14]+1);
17614 av2[3]=t1;
17615 av2[4]=C_u_i_cdr(((C_word*)t0)[3]);
17616 C_apply(5,av2);}}
17617 
17618 /* k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6684(C_word c,C_word * av)17619 static void C_ccall f_6684(C_word c,C_word *av){
17620 C_word tmp;
17621 C_word t0=av[0];
17622 C_word t1=av[1];
17623 C_word t2;
17624 C_word t3;
17625 C_word t4;
17626 C_word t5;
17627 C_word t6;
17628 C_word t7;
17629 C_word t8;
17630 C_word t9;
17631 C_word t10;
17632 C_word t11;
17633 C_word t12;
17634 C_word t13;
17635 C_word t14;
17636 C_word t15;
17637 C_word t16;
17638 C_word t17;
17639 C_word t18;
17640 C_word t19;
17641 C_word t20;
17642 C_word t21;
17643 C_word t22;
17644 C_word t23;
17645 C_word t24;
17646 C_word t25;
17647 C_word t26;
17648 C_word t27;
17649 C_word t28;
17650 C_word *a;
17651 if(C_unlikely(!C_demand(C_calculate_demand(47,c,5)))){
17652 C_save_and_reclaim((void *)f_6684,c,av);}
17653 a=C_alloc(47);
17654 t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.support#collected-debugging-output ...) */,t1);
17655 t3=C_mutate(&lf[19] /* (set! chicken.compiler.support#+logged-debugging-modes+ ...) */,lf[20]);
17656 t4=C_mutate(&lf[21] /* (set! chicken.compiler.support#test-debugging-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6687,tmp=(C_word)a,a+=2,tmp));
17657 t5=C_mutate((C_word*)lf[22]+1 /* (set! chicken.compiler.support#debugging ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6708,tmp=(C_word)a,a+=2,tmp));
17658 t6=C_mutate((C_word*)lf[34]+1 /* (set! chicken.compiler.support#with-debugging-output ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6828,tmp=(C_word)a,a+=2,tmp));
17659 t7=C_mutate((C_word*)lf[37]+1 /* (set! chicken.compiler.support#quit-compiling ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6925,tmp=(C_word)a,a+=2,tmp));
17660 t8=C_mutate((C_word*)lf[42]+1 /* (set! ##sys#syntax-error-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6941,tmp=(C_word)a,a+=2,tmp));
17661 t9=C_mutate((C_word*)lf[51]+1 /* (set! chicken.syntax#syntax-error ...) */,*((C_word*)lf[42]+1));
17662 t10=C_mutate((C_word*)lf[52]+1 /* (set! chicken.compiler.support#emit-syntax-trace-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7038,tmp=(C_word)a,a+=2,tmp));
17663 t11=C_mutate((C_word*)lf[53]+1 /* (set! chicken.compiler.support#check-signature ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7092,tmp=(C_word)a,a+=2,tmp));
17664 t12=C_mutate((C_word*)lf[54]+1 /* (set! chicken.compiler.support#build-lambda-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7133,tmp=(C_word)a,a+=2,tmp));
17665 t13=C_mutate((C_word*)lf[55]+1 /* (set! chicken.compiler.support#c-ify-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7170,tmp=(C_word)a,a+=2,tmp));
17666 t14=C_mutate((C_word*)lf[65]+1 /* (set! chicken.compiler.support#valid-c-identifier? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7269,tmp=(C_word)a,a+=2,tmp));
17667 t15=C_mutate((C_word*)lf[67]+1 /* (set! chicken.compiler.support#bytes->words ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7319,tmp=(C_word)a,a+=2,tmp));
17668 t16=C_mutate((C_word*)lf[68]+1 /* (set! chicken.compiler.support#words->bytes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7326,tmp=(C_word)a,a+=2,tmp));
17669 t17=C_mutate((C_word*)lf[69]+1 /* (set! chicken.compiler.support#check-and-open-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7333,tmp=(C_word)a,a+=2,tmp));
17670 t18=C_mutate((C_word*)lf[76]+1 /* (set! chicken.compiler.support#close-checked-input-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7377,tmp=(C_word)a,a+=2,tmp));
17671 t19=C_mutate((C_word*)lf[79]+1 /* (set! chicken.compiler.support#fold-inner ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7389,tmp=(C_word)a,a+=2,tmp));
17672 t20=C_mutate(&lf[81] /* (set! chicken.compiler.support#follow-without-loop ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7445,tmp=(C_word)a,a+=2,tmp));
17673 t21=C_mutate((C_word*)lf[82]+1 /* (set! chicken.compiler.support#read-expressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7496,tmp=(C_word)a,a+=2,tmp));
17674 t22=C_mutate((C_word*)lf[84]+1 /* (set! chicken.compiler.support#constant? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7540,tmp=(C_word)a,a+=2,tmp));
17675 t23=C_mutate((C_word*)lf[88]+1 /* (set! chicken.compiler.support#collapsable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7602,tmp=(C_word)a,a+=2,tmp));
17676 t24=C_mutate((C_word*)lf[89]+1 /* (set! chicken.compiler.support#immediate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7632,tmp=(C_word)a,a+=2,tmp));
17677 t25=C_mutate((C_word*)lf[91]+1 /* (set! chicken.compiler.support#basic-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7678,tmp=(C_word)a,a+=2,tmp));
17678 t26=C_mutate((C_word*)lf[93]+1 /* (set! chicken.compiler.support#canonicalize-begin-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7734,tmp=(C_word)a,a+=2,tmp));
17679 t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7809,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
17680 /* support.scm:344: chicken.condition#condition-predicate */
17681 t28=*((C_word*)lf[549]+1);{
17682 C_word *av2;
17683 if(c >= 3) {
17684   av2=av;
17685 } else {
17686   av2=C_alloc(3);
17687 }
17688 av2[0]=t28;
17689 av2[1]=t27;
17690 av2[2]=lf[547];
17691 ((C_proc)(void*)(*((C_word*)t28+1)))(3,av2);}}
17692 
17693 /* chicken.compiler.support#test-debugging-mode in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6687(C_word t1,C_word t2,C_word t3)17694 static void C_fcall f_6687(C_word t1,C_word t2,C_word t3){
17695 C_word tmp;
17696 C_word t4;
17697 C_word t5;
17698 C_word *a;
17699 if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
17700 C_save_and_reclaim_args((void *)trf_6687,3,t1,t2,t3);}
17701 a=C_alloc(3);
17702 if(C_truep(C_i_symbolp(t2))){
17703 t4=t1;{
17704 C_word av2[2];
17705 av2[0]=t4;
17706 av2[1]=C_i_memq(t2,t3);
17707 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17708 else{
17709 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6702,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
17710 /* support.scm:128: any */
17711 f_5777(t1,t4,t2);}}
17712 
17713 /* a6701 in chicken.compiler.support#test-debugging-mode in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6702(C_word c,C_word * av)17714 static void C_ccall f_6702(C_word c,C_word *av){
17715 C_word tmp;
17716 C_word t0=av[0];
17717 C_word t1=av[1];
17718 C_word t2=av[2];
17719 C_word t3;
17720 C_word *a;
17721 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
17722 C_save_and_reclaim((void *)f_6702,c,av);}
17723 t3=t1;{
17724 C_word *av2=av;
17725 av2[0]=t3;
17726 av2[1]=C_i_memq(t2,((C_word*)t0)[2]);
17727 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
17728 
17729 /* chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6708(C_word c,C_word * av)17730 static void C_ccall f_6708(C_word c,C_word *av){
17731 C_word tmp;
17732 C_word t0=av[0];
17733 C_word t1=av[1];
17734 C_word t2=av[2];
17735 C_word t3=av[3];
17736 C_word t4;
17737 C_word *a;
17738 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +17,c,3)))){
17739 C_save_and_reclaim((void*)f_6708,c,av);}
17740 a=C_alloc((c-4)*C_SIZEOF_PAIR+17);
17741 t4=C_build_rest(&a,c,4,av);
17742 C_word t5;
17743 C_word t6;
17744 C_word t7;
17745 C_word t8;
17746 C_word t9;
17747 C_word t10;
17748 C_word t11;
17749 C_word t12;
17750 t5=C_SCHEME_UNDEFINED;
17751 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
17752 t7=C_SCHEME_UNDEFINED;
17753 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
17754 t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6711,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
17755 t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6776,a[2]=t2,tmp=(C_word)a,a+=3,tmp));
17756 t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6795,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
17757 /* support.scm:143: test-debugging-mode */
17758 f_6687(t11,t2,*((C_word*)lf[12]+1));}
17759 
17760 /* text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6711(C_word t0,C_word t1)17761 static void C_fcall f_6711(C_word t0,C_word t1){
17762 C_word tmp;
17763 C_word t2;
17764 C_word t3;
17765 C_word *a;
17766 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
17767 C_save_and_reclaim_args((void *)trf_6711,2,t0,t1);}
17768 a=C_alloc(4);
17769 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
17770 /* support.scm:132: chicken.port#with-output-to-string */
17771 t3=*((C_word*)lf[31]+1);{
17772 C_word av2[3];
17773 av2[0]=t3;
17774 av2[1]=t1;
17775 av2[2]=t2;
17776 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
17777 
17778 /* a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6717(C_word c,C_word * av)17779 static void C_ccall f_6717(C_word c,C_word *av){
17780 C_word tmp;
17781 C_word t0=av[0];
17782 C_word t1=av[1];
17783 C_word t2;
17784 C_word t3;
17785 C_word *a;
17786 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
17787 C_save_and_reclaim((void *)f_6717,c,av);}
17788 a=C_alloc(4);
17789 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6721,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
17790 /* support.scm:134: scheme#display */
17791 t3=*((C_word*)lf[29]+1);{
17792 C_word *av2;
17793 if(c >= 3) {
17794   av2=av;
17795 } else {
17796   av2=C_alloc(3);
17797 }
17798 av2[0]=t3;
17799 av2[1]=t2;
17800 av2[2]=((C_word*)t0)[3];
17801 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
17802 
17803 /* k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6721(C_word c,C_word * av)17804 static void C_ccall f_6721(C_word c,C_word *av){
17805 C_word tmp;
17806 C_word t0=av[0];
17807 C_word t1=av[1];
17808 C_word t2;
17809 C_word t3;
17810 C_word t4;
17811 C_word *a;
17812 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
17813 C_save_and_reclaim((void *)f_6721,c,av);}
17814 a=C_alloc(7);
17815 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
17816 if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
17817 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6733,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
17818 /* support.scm:136: scheme#display */
17819 t4=*((C_word*)lf[29]+1);{
17820 C_word *av2;
17821 if(c >= 3) {
17822   av2=av;
17823 } else {
17824   av2=C_alloc(3);
17825 }
17826 av2[0]=t4;
17827 av2[1]=t3;
17828 av2[2]=lf[30];
17829 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
17830 else{
17831 /* support.scm:140: scheme#newline */
17832 t3=*((C_word*)lf[23]+1);{
17833 C_word *av2=av;
17834 av2[0]=t3;
17835 av2[1]=((C_word*)t0)[2];
17836 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17837 
17838 /* k6722 in k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6724(C_word c,C_word * av)17839 static void C_ccall f_6724(C_word c,C_word *av){
17840 C_word tmp;
17841 C_word t0=av[0];
17842 C_word t1=av[1];
17843 C_word t2;
17844 C_word *a;
17845 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
17846 C_save_and_reclaim((void *)f_6724,c,av);}
17847 /* support.scm:140: scheme#newline */
17848 t2=*((C_word*)lf[23]+1);{
17849 C_word *av2=av;
17850 av2[0]=t2;
17851 av2[1]=((C_word*)t0)[2];
17852 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17853 
17854 /* k6731 in k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6733(C_word c,C_word * av)17855 static void C_ccall f_6733(C_word c,C_word *av){
17856 C_word tmp;
17857 C_word t0=av[0];
17858 C_word t1=av[1];
17859 C_word t2;
17860 C_word t3;
17861 C_word t4;
17862 C_word t5;
17863 C_word *a;
17864 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
17865 C_save_and_reclaim((void *)f_6733,c,av);}
17866 a=C_alloc(5);
17867 t2=C_SCHEME_UNDEFINED;
17868 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
17869 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6753,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
17870 t5=((C_word*)t3)[1];
17871 f_6753(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}
17872 
17873 /* k6739 in for-each-loop704 in k6731 in k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6741(C_word c,C_word * av)17874 static void C_ccall f_6741(C_word c,C_word *av){
17875 C_word tmp;
17876 C_word t0=av[0];
17877 C_word t1=av[1];
17878 C_word t2;
17879 C_word *a;
17880 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17881 C_save_and_reclaim((void *)f_6741,c,av);}
17882 /* support.scm:138: ##sys#write-char-0 */
17883 t2=*((C_word*)lf[26]+1);{
17884 C_word *av2;
17885 if(c >= 4) {
17886   av2=av;
17887 } else {
17888   av2=C_alloc(4);
17889 }
17890 av2[0]=t2;
17891 av2[1]=((C_word*)t0)[2];
17892 av2[2]=C_make_character(32);
17893 av2[3]=((C_word*)t0)[3];
17894 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
17895 
17896 /* k6746 in for-each-loop704 in k6731 in k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6748(C_word c,C_word * av)17897 static void C_ccall f_6748(C_word c,C_word *av){
17898 C_word tmp;
17899 C_word t0=av[0];
17900 C_word t1=av[1];
17901 C_word t2;
17902 C_word *a;
17903 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
17904 C_save_and_reclaim((void *)f_6748,c,av);}
17905 /* support.scm:138: ##sys#print */
17906 t2=*((C_word*)lf[27]+1);{
17907 C_word *av2;
17908 if(c >= 5) {
17909   av2=av;
17910 } else {
17911   av2=C_alloc(5);
17912 }
17913 av2[0]=t2;
17914 av2[1]=((C_word*)t0)[2];
17915 av2[2]=t1;
17916 av2[3]=C_SCHEME_TRUE;
17917 av2[4]=((C_word*)t0)[3];
17918 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
17919 
17920 /* for-each-loop704 in k6731 in k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6753(C_word t0,C_word t1,C_word t2)17921 static void C_fcall f_6753(C_word t0,C_word t1,C_word t2){
17922 C_word tmp;
17923 C_word t3;
17924 C_word t4;
17925 C_word t5;
17926 C_word t6;
17927 C_word t7;
17928 C_word t8;
17929 C_word t9;
17930 C_word t10;
17931 C_word *a;
17932 if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
17933 C_save_and_reclaim_args((void *)trf_6753,3,t0,t1,t2);}
17934 a=C_alloc(13);
17935 if(C_truep(C_i_pairp(t2))){
17936 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6763,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
17937 t4=C_slot(t2,C_fix(0));
17938 t5=*((C_word*)lf[24]+1);
17939 t6=*((C_word*)lf[24]+1);
17940 t7=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
17941 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6741,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
17942 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6748,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
17943 /* support.scm:138: scheme#force */
17944 t10=*((C_word*)lf[28]+1);{
17945 C_word av2[3];
17946 av2[0]=t10;
17947 av2[1]=t9;
17948 av2[2]=t4;
17949 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
17950 else{
17951 t3=C_SCHEME_UNDEFINED;
17952 t4=t1;{
17953 C_word av2[2];
17954 av2[0]=t4;
17955 av2[1]=t3;
17956 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
17957 
17958 /* k6761 in for-each-loop704 in k6731 in k6719 in a6716 in text in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6763(C_word c,C_word * av)17959 static void C_ccall f_6763(C_word c,C_word *av){
17960 C_word tmp;
17961 C_word t0=av[0];
17962 C_word t1=av[1];
17963 C_word t2;
17964 C_word *a;
17965 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
17966 C_save_and_reclaim((void *)f_6763,c,av);}
17967 t2=((C_word*)((C_word*)t0)[2])[1];
17968 f_6753(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
17969 
17970 /* dump in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6776(C_word t0,C_word t1,C_word t2)17971 static void C_fcall f_6776(C_word t0,C_word t1,C_word t2){
17972 C_word tmp;
17973 C_word t3;
17974 C_word t4;
17975 C_word t5;
17976 C_word t6;
17977 C_word t7;
17978 C_word *a;
17979 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
17980 C_save_and_reclaim_args((void *)trf_6776,3,t0,t1,t2);}
17981 a=C_alloc(5);
17982 t3=*((C_word*)lf[18]+1);
17983 t4=*((C_word*)lf[18]+1);
17984 t5=C_i_check_port_2(*((C_word*)lf[18]+1),C_fix(2),C_SCHEME_TRUE,lf[32]);
17985 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6783,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
17986 /* support.scm:142: ##sys#print */
17987 t7=*((C_word*)lf[27]+1);{
17988 C_word av2[5];
17989 av2[0]=t7;
17990 av2[1]=t6;
17991 av2[2]=((C_word*)t0)[2];
17992 av2[3]=C_SCHEME_FALSE;
17993 av2[4]=*((C_word*)lf[18]+1);
17994 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
17995 
17996 /* k6781 in dump in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6783(C_word c,C_word * av)17997 static void C_ccall f_6783(C_word c,C_word *av){
17998 C_word tmp;
17999 C_word t0=av[0];
18000 C_word t1=av[1];
18001 C_word t2;
18002 C_word t3;
18003 C_word *a;
18004 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
18005 C_save_and_reclaim((void *)f_6783,c,av);}
18006 a=C_alloc(5);
18007 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18008 /* support.scm:142: ##sys#write-char-0 */
18009 t3=*((C_word*)lf[26]+1);{
18010 C_word *av2;
18011 if(c >= 4) {
18012   av2=av;
18013 } else {
18014   av2=C_alloc(4);
18015 }
18016 av2[0]=t3;
18017 av2[1]=t2;
18018 av2[2]=C_make_character(124);
18019 av2[3]=((C_word*)t0)[4];
18020 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
18021 
18022 /* k6784 in k6781 in dump in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6786(C_word c,C_word * av)18023 static void C_ccall f_6786(C_word c,C_word *av){
18024 C_word tmp;
18025 C_word t0=av[0];
18026 C_word t1=av[1];
18027 C_word t2;
18028 C_word *a;
18029 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
18030 C_save_and_reclaim((void *)f_6786,c,av);}
18031 /* support.scm:142: ##sys#print */
18032 t2=*((C_word*)lf[27]+1);{
18033 C_word *av2;
18034 if(c >= 5) {
18035   av2=av;
18036 } else {
18037   av2=C_alloc(5);
18038 }
18039 av2[0]=t2;
18040 av2[1]=((C_word*)t0)[2];
18041 av2[2]=((C_word*)t0)[3];
18042 av2[3]=C_SCHEME_FALSE;
18043 av2[4]=((C_word*)t0)[4];
18044 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
18045 
18046 /* k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6795(C_word c,C_word * av)18047 static void C_ccall f_6795(C_word c,C_word *av){
18048 C_word tmp;
18049 C_word t0=av[0];
18050 C_word t1=av[1];
18051 C_word t2;
18052 C_word t3;
18053 C_word t4;
18054 C_word *a;
18055 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
18056 C_save_and_reclaim((void *)f_6795,c,av);}
18057 a=C_alloc(9);
18058 if(C_truep(t1)){
18059 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18060 /* support.scm:144: text */
18061 t3=((C_word*)((C_word*)t0)[5])[1];
18062 f_6711(t3,t2);}
18063 else{
18064 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6816,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18065 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6819,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
18066 /* support.scm:151: test-debugging-mode */
18067 f_6687(t3,((C_word*)t0)[4],lf[19]);}}
18068 
18069 /* k6796 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6798(C_word c,C_word * av)18070 static void C_ccall f_6798(C_word c,C_word *av){
18071 C_word tmp;
18072 C_word t0=av[0];
18073 C_word t1=av[1];
18074 C_word t2;
18075 C_word t3;
18076 C_word *a;
18077 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18078 C_save_and_reclaim((void *)f_6798,c,av);}
18079 a=C_alloc(6);
18080 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
18081 /* support.scm:145: scheme#display */
18082 t3=*((C_word*)lf[29]+1);{
18083 C_word *av2;
18084 if(c >= 3) {
18085   av2=av;
18086 } else {
18087   av2=C_alloc(3);
18088 }
18089 av2[0]=t3;
18090 av2[1]=t2;
18091 av2[2]=t1;
18092 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18093 
18094 /* k6799 in k6796 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6801(C_word c,C_word * av)18095 static void C_ccall f_6801(C_word c,C_word *av){
18096 C_word tmp;
18097 C_word t0=av[0];
18098 C_word t1=av[1];
18099 C_word t2;
18100 C_word t3;
18101 C_word *a;
18102 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18103 C_save_and_reclaim((void *)f_6801,c,av);}
18104 a=C_alloc(6);
18105 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
18106 /* support.scm:146: chicken.base#flush-output */
18107 t3=*((C_word*)lf[33]+1);{
18108 C_word *av2=av;
18109 av2[0]=t3;
18110 av2[1]=t2;
18111 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
18112 
18113 /* k6802 in k6799 in k6796 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6804(C_word c,C_word * av)18114 static void C_ccall f_6804(C_word c,C_word *av){
18115 C_word tmp;
18116 C_word t0=av[0];
18117 C_word t1=av[1];
18118 C_word t2;
18119 C_word t3;
18120 C_word t4;
18121 C_word *a;
18122 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
18123 C_save_and_reclaim((void *)f_6804,c,av);}
18124 a=C_alloc(9);
18125 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6807,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18126 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6810,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
18127 /* support.scm:147: test-debugging-mode */
18128 f_6687(t3,((C_word*)t0)[5],lf[19]);}
18129 
18130 /* k6805 in k6802 in k6799 in k6796 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6807(C_word c,C_word * av)18131 static void C_ccall f_6807(C_word c,C_word *av){
18132 C_word tmp;
18133 C_word t0=av[0];
18134 C_word t1=av[1];
18135 C_word t2;
18136 C_word *a;
18137 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
18138 C_save_and_reclaim((void *)f_6807,c,av);}
18139 t2=((C_word*)t0)[2];{
18140 C_word *av2=av;
18141 av2[0]=t2;
18142 av2[1]=C_SCHEME_TRUE;
18143 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
18144 
18145 /* k6808 in k6802 in k6799 in k6796 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6810(C_word c,C_word * av)18146 static void C_ccall f_6810(C_word c,C_word *av){
18147 C_word tmp;
18148 C_word t0=av[0];
18149 C_word t1=av[1];
18150 C_word t2;
18151 C_word *a;
18152 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18153 C_save_and_reclaim((void *)f_6810,c,av);}
18154 if(C_truep(t1)){
18155 /* support.scm:148: dump */
18156 t2=((C_word*)((C_word*)t0)[2])[1];
18157 f_6776(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
18158 else{
18159 t2=((C_word*)t0)[5];{
18160 C_word *av2=av;
18161 av2[0]=t2;
18162 av2[1]=C_SCHEME_TRUE;
18163 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18164 
18165 /* k6814 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6816(C_word c,C_word * av)18166 static void C_ccall f_6816(C_word c,C_word *av){
18167 C_word tmp;
18168 C_word t0=av[0];
18169 C_word t1=av[1];
18170 C_word t2;
18171 C_word *a;
18172 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
18173 C_save_and_reclaim((void *)f_6816,c,av);}
18174 t2=((C_word*)t0)[2];{
18175 C_word *av2=av;
18176 av2[0]=t2;
18177 av2[1]=C_SCHEME_FALSE;
18178 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
18179 
18180 /* k6817 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6819(C_word c,C_word * av)18181 static void C_ccall f_6819(C_word c,C_word *av){
18182 C_word tmp;
18183 C_word t0=av[0];
18184 C_word t1=av[1];
18185 C_word t2;
18186 C_word t3;
18187 C_word *a;
18188 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
18189 C_save_and_reclaim((void *)f_6819,c,av);}
18190 a=C_alloc(4);
18191 if(C_truep(t1)){
18192 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
18193 /* support.scm:152: text */
18194 t3=((C_word*)((C_word*)t0)[4])[1];
18195 f_6711(t3,t2);}
18196 else{
18197 t2=((C_word*)t0)[5];{
18198 C_word *av2=av;
18199 av2[0]=t2;
18200 av2[1]=C_SCHEME_FALSE;
18201 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18202 
18203 /* k6824 in k6817 in k6793 in chicken.compiler.support#debugging in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6826(C_word c,C_word * av)18204 static void C_ccall f_6826(C_word c,C_word *av){
18205 C_word tmp;
18206 C_word t0=av[0];
18207 C_word t1=av[1];
18208 C_word t2;
18209 C_word *a;
18210 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18211 C_save_and_reclaim((void *)f_6826,c,av);}
18212 /* support.scm:152: dump */
18213 t2=((C_word*)((C_word*)t0)[2])[1];
18214 f_6776(t2,((C_word*)t0)[3],t1);}
18215 
18216 /* chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6828(C_word c,C_word * av)18217 static void C_ccall f_6828(C_word c,C_word *av){
18218 C_word tmp;
18219 C_word t0=av[0];
18220 C_word t1=av[1];
18221 C_word t2=av[2];
18222 C_word t3=av[3];
18223 C_word t4;
18224 C_word t5;
18225 C_word t6;
18226 C_word *a;
18227 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
18228 C_save_and_reclaim((void *)f_6828,c,av);}
18229 a=C_alloc(9);
18230 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6831,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
18231 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6892,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
18232 /* support.scm:163: test-debugging-mode */
18233 f_6687(t5,t2,*((C_word*)lf[12]+1));}
18234 
18235 /* collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6831(C_word t0,C_word t1,C_word t2)18236 static void C_fcall f_6831(C_word t0,C_word t1,C_word t2){
18237 C_word tmp;
18238 C_word t3;
18239 C_word t4;
18240 C_word t5;
18241 C_word *a;
18242 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
18243 C_save_and_reclaim_args((void *)trf_6831,3,t0,t1,t2);}
18244 a=C_alloc(7);
18245 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6833,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18246 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6860,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
18247 /* support.scm:162: chicken.string#string-split */
18248 t5=*((C_word*)lf[35]+1);{
18249 C_word av2[4];
18250 av2[0]=t5;
18251 av2[1]=t4;
18252 av2[2]=t2;
18253 av2[3]=lf[36];
18254 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
18255 
18256 /* g756 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6833(C_word t0,C_word t1,C_word t2)18257 static void C_fcall f_6833(C_word t0,C_word t1,C_word t2){
18258 C_word tmp;
18259 C_word t3;
18260 C_word t4;
18261 C_word t5;
18262 C_word t6;
18263 C_word t7;
18264 C_word *a;
18265 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
18266 C_save_and_reclaim_args((void *)trf_6833,3,t0,t1,t2);}
18267 a=C_alloc(5);
18268 t3=*((C_word*)lf[18]+1);
18269 t4=*((C_word*)lf[18]+1);
18270 t5=C_i_check_port_2(*((C_word*)lf[18]+1),C_fix(2),C_SCHEME_TRUE,lf[32]);
18271 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6840,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
18272 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
18273 /* support.scm:159: ##sys#print */
18274 t7=*((C_word*)lf[27]+1);{
18275 C_word av2[5];
18276 av2[0]=t7;
18277 av2[1]=t6;
18278 av2[2]=C_u_i_car(((C_word*)t0)[2]);
18279 av2[3]=C_SCHEME_FALSE;
18280 av2[4]=*((C_word*)lf[18]+1);
18281 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
18282 else{
18283 /* support.scm:159: ##sys#print */
18284 t7=*((C_word*)lf[27]+1);{
18285 C_word av2[5];
18286 av2[0]=t7;
18287 av2[1]=t6;
18288 av2[2]=((C_word*)t0)[2];
18289 av2[3]=C_SCHEME_FALSE;
18290 av2[4]=t3;
18291 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}
18292 
18293 /* k6838 in g756 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6840(C_word c,C_word * av)18294 static void C_ccall f_6840(C_word c,C_word *av){
18295 C_word tmp;
18296 C_word t0=av[0];
18297 C_word t1=av[1];
18298 C_word t2;
18299 C_word t3;
18300 C_word *a;
18301 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
18302 C_save_and_reclaim((void *)f_6840,c,av);}
18303 a=C_alloc(5);
18304 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18305 /* support.scm:159: ##sys#write-char-0 */
18306 t3=*((C_word*)lf[26]+1);{
18307 C_word *av2;
18308 if(c >= 4) {
18309   av2=av;
18310 } else {
18311   av2=C_alloc(4);
18312 }
18313 av2[0]=t3;
18314 av2[1]=t2;
18315 av2[2]=C_make_character(124);
18316 av2[3]=((C_word*)t0)[3];
18317 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
18318 
18319 /* k6841 in k6838 in g756 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6843(C_word c,C_word * av)18320 static void C_ccall f_6843(C_word c,C_word *av){
18321 C_word tmp;
18322 C_word t0=av[0];
18323 C_word t1=av[1];
18324 C_word t2;
18325 C_word t3;
18326 C_word *a;
18327 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
18328 C_save_and_reclaim((void *)f_6843,c,av);}
18329 a=C_alloc(4);
18330 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6846,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
18331 /* support.scm:159: ##sys#print */
18332 t3=*((C_word*)lf[27]+1);{
18333 C_word *av2;
18334 if(c >= 5) {
18335   av2=av;
18336 } else {
18337   av2=C_alloc(5);
18338 }
18339 av2[0]=t3;
18340 av2[1]=t2;
18341 av2[2]=((C_word*)t0)[4];
18342 av2[3]=C_SCHEME_FALSE;
18343 av2[4]=((C_word*)t0)[3];
18344 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18345 
18346 /* k6844 in k6841 in k6838 in g756 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6846(C_word c,C_word * av)18347 static void C_ccall f_6846(C_word c,C_word *av){
18348 C_word tmp;
18349 C_word t0=av[0];
18350 C_word t1=av[1];
18351 C_word t2;
18352 C_word *a;
18353 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
18354 C_save_and_reclaim((void *)f_6846,c,av);}
18355 /* support.scm:159: ##sys#write-char-0 */
18356 t2=*((C_word*)lf[26]+1);{
18357 C_word *av2;
18358 if(c >= 4) {
18359   av2=av;
18360 } else {
18361   av2=C_alloc(4);
18362 }
18363 av2[0]=t2;
18364 av2[1]=((C_word*)t0)[2];
18365 av2[2]=C_make_character(10);
18366 av2[3]=((C_word*)t0)[3];
18367 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
18368 
18369 /* k6858 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6860(C_word c,C_word * av)18370 static void C_ccall f_6860(C_word c,C_word *av){
18371 C_word tmp;
18372 C_word t0=av[0];
18373 C_word t1=av[1];
18374 C_word t2;
18375 C_word t3;
18376 C_word t4;
18377 C_word t5;
18378 C_word *a;
18379 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
18380 C_save_and_reclaim((void *)f_6860,c,av);}
18381 a=C_alloc(6);
18382 t2=C_SCHEME_UNDEFINED;
18383 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
18384 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6865,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
18385 t5=((C_word*)t3)[1];
18386 f_6865(t5,((C_word*)t0)[3],t1);}
18387 
18388 /* for-each-loop755 in k6858 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6865(C_word t0,C_word t1,C_word t2)18389 static void C_fcall f_6865(C_word t0,C_word t1,C_word t2){
18390 C_word tmp;
18391 C_word t3;
18392 C_word t4;
18393 C_word *a;
18394 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
18395 C_save_and_reclaim_args((void *)trf_6865,3,t0,t1,t2);}
18396 a=C_alloc(5);
18397 if(C_truep(C_i_pairp(t2))){
18398 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6875,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
18399 /* support.scm:157: g756 */
18400 t4=((C_word*)t0)[3];
18401 f_6833(t4,t3,C_slot(t2,C_fix(0)));}
18402 else{
18403 t3=C_SCHEME_UNDEFINED;
18404 t4=t1;{
18405 C_word av2[2];
18406 av2[0]=t4;
18407 av2[1]=t3;
18408 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
18409 
18410 /* k6873 in for-each-loop755 in k6858 in collect in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6875(C_word c,C_word * av)18411 static void C_ccall f_6875(C_word c,C_word *av){
18412 C_word tmp;
18413 C_word t0=av[0];
18414 C_word t1=av[1];
18415 C_word t2;
18416 C_word *a;
18417 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18418 C_save_and_reclaim((void *)f_6875,c,av);}
18419 t2=((C_word*)((C_word*)t0)[2])[1];
18420 f_6865(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
18421 
18422 /* k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6892(C_word c,C_word * av)18423 static void C_ccall f_6892(C_word c,C_word *av){
18424 C_word tmp;
18425 C_word t0=av[0];
18426 C_word t1=av[1];
18427 C_word t2;
18428 C_word t3;
18429 C_word *a;
18430 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
18431 C_save_and_reclaim((void *)f_6892,c,av);}
18432 a=C_alloc(5);
18433 if(C_truep(t1)){
18434 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6895,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18435 /* support.scm:164: chicken.port#with-output-to-string */
18436 t3=*((C_word*)lf[31]+1);{
18437 C_word *av2;
18438 if(c >= 3) {
18439   av2=av;
18440 } else {
18441   av2=C_alloc(3);
18442 }
18443 av2[0]=t3;
18444 av2[1]=t2;
18445 av2[2]=((C_word*)t0)[5];
18446 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18447 else{
18448 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
18449 /* support.scm:169: test-debugging-mode */
18450 f_6687(t2,((C_word*)t0)[4],lf[19]);}}
18451 
18452 /* k6893 in k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6895(C_word c,C_word * av)18453 static void C_ccall f_6895(C_word c,C_word *av){
18454 C_word tmp;
18455 C_word t0=av[0];
18456 C_word t1=av[1];
18457 C_word t2;
18458 C_word t3;
18459 C_word *a;
18460 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18461 C_save_and_reclaim((void *)f_6895,c,av);}
18462 a=C_alloc(6);
18463 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
18464 /* support.scm:165: scheme#display */
18465 t3=*((C_word*)lf[29]+1);{
18466 C_word *av2;
18467 if(c >= 3) {
18468   av2=av;
18469 } else {
18470   av2=C_alloc(3);
18471 }
18472 av2[0]=t3;
18473 av2[1]=t2;
18474 av2[2]=t1;
18475 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18476 
18477 /* k6896 in k6893 in k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6898(C_word c,C_word * av)18478 static void C_ccall f_6898(C_word c,C_word *av){
18479 C_word tmp;
18480 C_word t0=av[0];
18481 C_word t1=av[1];
18482 C_word t2;
18483 C_word t3;
18484 C_word *a;
18485 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18486 C_save_and_reclaim((void *)f_6898,c,av);}
18487 a=C_alloc(6);
18488 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
18489 /* support.scm:166: chicken.base#flush-output */
18490 t3=*((C_word*)lf[33]+1);{
18491 C_word *av2=av;
18492 av2[0]=t3;
18493 av2[1]=t2;
18494 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
18495 
18496 /* k6899 in k6896 in k6893 in k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6901(C_word c,C_word * av)18497 static void C_ccall f_6901(C_word c,C_word *av){
18498 C_word tmp;
18499 C_word t0=av[0];
18500 C_word t1=av[1];
18501 C_word t2;
18502 C_word t3;
18503 C_word *a;
18504 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
18505 C_save_and_reclaim((void *)f_6901,c,av);}
18506 a=C_alloc(5);
18507 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6907,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18508 /* support.scm:167: test-debugging-mode */
18509 f_6687(t2,((C_word*)t0)[5],lf[19]);}
18510 
18511 /* k6905 in k6899 in k6896 in k6893 in k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6907(C_word c,C_word * av)18512 static void C_ccall f_6907(C_word c,C_word *av){
18513 C_word tmp;
18514 C_word t0=av[0];
18515 C_word t1=av[1];
18516 C_word t2;
18517 C_word *a;
18518 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18519 C_save_and_reclaim((void *)f_6907,c,av);}
18520 if(C_truep(t1)){
18521 /* support.scm:168: collect */
18522 t2=((C_word*)t0)[2];
18523 f_6831(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
18524 else{
18525 t2=((C_word*)t0)[3];{
18526 C_word *av2=av;
18527 av2[0]=t2;
18528 av2[1]=C_SCHEME_UNDEFINED;
18529 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18530 
18531 /* k6914 in k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6916(C_word c,C_word * av)18532 static void C_ccall f_6916(C_word c,C_word *av){
18533 C_word tmp;
18534 C_word t0=av[0];
18535 C_word t1=av[1];
18536 C_word t2;
18537 C_word t3;
18538 C_word *a;
18539 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
18540 C_save_and_reclaim((void *)f_6916,c,av);}
18541 a=C_alloc(4);
18542 if(C_truep(t1)){
18543 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6923,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
18544 /* support.scm:170: chicken.port#with-output-to-string */
18545 t3=*((C_word*)lf[31]+1);{
18546 C_word *av2;
18547 if(c >= 3) {
18548   av2=av;
18549 } else {
18550   av2=C_alloc(3);
18551 }
18552 av2[0]=t3;
18553 av2[1]=t2;
18554 av2[2]=((C_word*)t0)[4];
18555 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18556 else{
18557 t2=((C_word*)t0)[3];{
18558 C_word *av2=av;
18559 av2[0]=t2;
18560 av2[1]=C_SCHEME_UNDEFINED;
18561 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18562 
18563 /* k6921 in k6914 in k6890 in chicken.compiler.support#with-debugging-output in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6923(C_word c,C_word * av)18564 static void C_ccall f_6923(C_word c,C_word *av){
18565 C_word tmp;
18566 C_word t0=av[0];
18567 C_word t1=av[1];
18568 C_word t2;
18569 C_word *a;
18570 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18571 C_save_and_reclaim((void *)f_6923,c,av);}
18572 /* support.scm:170: collect */
18573 t2=((C_word*)t0)[2];
18574 f_6831(t2,((C_word*)t0)[3],t1);}
18575 
18576 /* chicken.compiler.support#quit-compiling in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6925(C_word c,C_word * av)18577 static void C_ccall f_6925(C_word c,C_word *av){
18578 C_word tmp;
18579 C_word t0=av[0];
18580 C_word t1=av[1];
18581 C_word t2=av[2];
18582 C_word t3;
18583 C_word *a;
18584 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +9,c,3)))){
18585 C_save_and_reclaim((void*)f_6925,c,av);}
18586 a=C_alloc((c-3)*C_SIZEOF_PAIR+9);
18587 t3=C_build_rest(&a,c,3,av);
18588 C_word t4;
18589 C_word t5;
18590 C_word t6;
18591 C_word t7;
18592 t4=*((C_word*)lf[38]+1);
18593 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6929,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
18594 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6939,a[2]=t5,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
18595 /* support.scm:174: scheme#string-append */
18596 t7=*((C_word*)lf[15]+1);{
18597 C_word *av2;
18598 if(c >= 4) {
18599   av2=av;
18600 } else {
18601   av2=C_alloc(4);
18602 }
18603 av2[0]=t7;
18604 av2[1]=t6;
18605 av2[2]=lf[41];
18606 av2[3]=t2;
18607 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
18608 
18609 /* k6927 in chicken.compiler.support#quit-compiling in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6929(C_word c,C_word * av)18610 static void C_ccall f_6929(C_word c,C_word *av){
18611 C_word tmp;
18612 C_word t0=av[0];
18613 C_word t1=av[1];
18614 C_word t2;
18615 C_word t3;
18616 C_word *a;
18617 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
18618 C_save_and_reclaim((void *)f_6929,c,av);}
18619 a=C_alloc(3);
18620 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6932,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18621 /* support.scm:175: scheme#newline */
18622 t3=*((C_word*)lf[23]+1);{
18623 C_word *av2;
18624 if(c >= 3) {
18625   av2=av;
18626 } else {
18627   av2=C_alloc(3);
18628 }
18629 av2[0]=t3;
18630 av2[1]=t2;
18631 av2[2]=((C_word*)t0)[3];
18632 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18633 
18634 /* k6930 in k6927 in chicken.compiler.support#quit-compiling in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6932(C_word c,C_word * av)18635 static void C_ccall f_6932(C_word c,C_word *av){
18636 C_word tmp;
18637 C_word t0=av[0];
18638 C_word t1=av[1];
18639 C_word t2;
18640 C_word *a;
18641 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18642 C_save_and_reclaim((void *)f_6932,c,av);}
18643 /* support.scm:176: chicken.base#exit */
18644 t2=*((C_word*)lf[39]+1);{
18645 C_word *av2;
18646 if(c >= 3) {
18647   av2=av;
18648 } else {
18649   av2=C_alloc(3);
18650 }
18651 av2[0]=t2;
18652 av2[1]=((C_word*)t0)[2];
18653 av2[2]=C_fix(1);
18654 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
18655 
18656 /* k6937 in chicken.compiler.support#quit-compiling in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6939(C_word c,C_word * av)18657 static void C_ccall f_6939(C_word c,C_word *av){
18658 C_word tmp;
18659 C_word t0=av[0];
18660 C_word t1=av[1];
18661 C_word t2;
18662 C_word *a;
18663 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
18664 C_save_and_reclaim((void *)f_6939,c,av);}{
18665 C_word *av2;
18666 if(c >= 6) {
18667   av2=av;
18668 } else {
18669   av2=C_alloc(6);
18670 }
18671 av2[0]=0;
18672 av2[1]=((C_word*)t0)[2];
18673 av2[2]=*((C_word*)lf[40]+1);
18674 av2[3]=((C_word*)t0)[3];
18675 av2[4]=t1;
18676 av2[5]=((C_word*)t0)[4];
18677 C_apply(6,av2);}}
18678 
18679 /* ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6941(C_word c,C_word * av)18680 static void C_ccall f_6941(C_word c,C_word *av){
18681 C_word tmp;
18682 C_word t0=av[0];
18683 C_word t1=av[1];
18684 C_word t2=av[2];
18685 C_word t3;
18686 C_word *a;
18687 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +10,c,2)))){
18688 C_save_and_reclaim((void*)f_6941,c,av);}
18689 a=C_alloc((c-3)*C_SIZEOF_PAIR+10);
18690 t3=C_build_rest(&a,c,3,av);
18691 C_word t4;
18692 C_word t5;
18693 C_word t6;
18694 C_word t7;
18695 C_word t8;
18696 C_word t9;
18697 C_word t10;
18698 C_word t11;
18699 C_word t12;
18700 C_word t13;
18701 t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
18702 t5=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
18703 t6=*((C_word*)lf[38]+1);
18704 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6945,a[2]=t6,a[3]=t5,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
18705 if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){
18706 t8=((C_word*)t4)[1];
18707 t9=C_i_car(((C_word*)t5)[1]);
18708 t10=C_set_block_item(t4,0,t9);
18709 t11=C_i_cdr(((C_word*)t5)[1]);
18710 t12=C_set_block_item(t5,0,t11);
18711 t13=t7;
18712 f_6945(t13,t8);}
18713 else{
18714 t8=t7;
18715 f_6945(t8,C_SCHEME_FALSE);}}
18716 
18717 /* k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6945(C_word t0,C_word t1)18718 static void C_fcall f_6945(C_word t0,C_word t1){
18719 C_word tmp;
18720 C_word t2;
18721 C_word t3;
18722 C_word t4;
18723 C_word t5;
18724 C_word *a;
18725 if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
18726 C_save_and_reclaim_args((void *)trf_6945,2,t0,t1);}
18727 a=C_alloc(11);
18728 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18729 if(C_truep(t1)){
18730 t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[32]);
18731 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6994,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
18732 /* support.scm:187: ##sys#print */
18733 t5=*((C_word*)lf[27]+1);{
18734 C_word av2[5];
18735 av2[0]=t5;
18736 av2[1]=t4;
18737 av2[2]=lf[49];
18738 av2[3]=C_SCHEME_FALSE;
18739 av2[4]=((C_word*)t0)[2];
18740 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
18741 else{
18742 t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[32]);
18743 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7015,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
18744 /* support.scm:188: ##sys#print */
18745 t5=*((C_word*)lf[27]+1);{
18746 C_word av2[5];
18747 av2[0]=t5;
18748 av2[1]=t4;
18749 av2[2]=lf[50];
18750 av2[3]=C_SCHEME_FALSE;
18751 av2[4]=((C_word*)t0)[2];
18752 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
18753 
18754 /* k6946 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6948(C_word c,C_word * av)18755 static void C_ccall f_6948(C_word c,C_word *av){
18756 C_word tmp;
18757 C_word t0=av[0];
18758 C_word t1=av[1];
18759 C_word t2;
18760 C_word t3;
18761 C_word t4;
18762 C_word t5;
18763 C_word t6;
18764 C_word t7;
18765 C_word t8;
18766 C_word t9;
18767 C_word *a;
18768 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
18769 C_save_and_reclaim((void *)f_6948,c,av);}
18770 a=C_alloc(13);
18771 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6949,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18772 t3=((C_word*)((C_word*)t0)[3])[1];
18773 t4=C_i_check_list_2(t3,lf[44]);
18774 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6959,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
18775 t6=C_SCHEME_UNDEFINED;
18776 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
18777 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6967,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
18778 t9=((C_word*)t7)[1];
18779 f_6967(t9,t5,t3);}
18780 
18781 /* g800 in k6946 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6949(C_word t0,C_word t1,C_word t2)18782 static void C_fcall f_6949(C_word t0,C_word t1,C_word t2){
18783 C_word tmp;
18784 C_word t3;
18785 C_word *a;
18786 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
18787 C_save_and_reclaim_args((void *)trf_6949,3,t0,t1,t2);}
18788 /* support.scm:189: g833 */
18789 t3=*((C_word*)lf[40]+1);{
18790 C_word av2[5];
18791 av2[0]=t3;
18792 av2[1]=t1;
18793 av2[2]=((C_word*)t0)[2];
18794 av2[3]=lf[43];
18795 av2[4]=t2;
18796 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18797 
18798 /* k6957 in k6946 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6959(C_word c,C_word * av)18799 static void C_ccall f_6959(C_word c,C_word *av){
18800 C_word tmp;
18801 C_word t0=av[0];
18802 C_word t1=av[1];
18803 C_word t2;
18804 C_word t3;
18805 C_word *a;
18806 if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
18807 C_save_and_reclaim((void *)f_6959,c,av);}
18808 a=C_alloc(3);
18809 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6962,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18810 /* support.scm:190: chicken.base#print-call-chain */
18811 t3=*((C_word*)lf[45]+1);{
18812 C_word *av2;
18813 if(c >= 6) {
18814   av2=av;
18815 } else {
18816   av2=C_alloc(6);
18817 }
18818 av2[0]=t3;
18819 av2[1]=t2;
18820 av2[2]=((C_word*)t0)[3];
18821 av2[3]=C_fix(0);
18822 av2[4]=*((C_word*)lf[46]+1);
18823 av2[5]=lf[47];
18824 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
18825 
18826 /* k6960 in k6957 in k6946 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6962(C_word c,C_word * av)18827 static void C_ccall f_6962(C_word c,C_word *av){
18828 C_word tmp;
18829 C_word t0=av[0];
18830 C_word t1=av[1];
18831 C_word t2;
18832 C_word *a;
18833 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18834 C_save_and_reclaim((void *)f_6962,c,av);}
18835 /* support.scm:191: chicken.base#exit */
18836 t2=*((C_word*)lf[39]+1);{
18837 C_word *av2;
18838 if(c >= 3) {
18839   av2=av;
18840 } else {
18841   av2=C_alloc(3);
18842 }
18843 av2[0]=t2;
18844 av2[1]=((C_word*)t0)[2];
18845 av2[2]=C_fix(70);
18846 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
18847 
18848 /* for-each-loop799 in k6946 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6967(C_word t0,C_word t1,C_word t2)18849 static void C_fcall f_6967(C_word t0,C_word t1,C_word t2){
18850 C_word tmp;
18851 C_word t3;
18852 C_word t4;
18853 C_word *a;
18854 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
18855 C_save_and_reclaim_args((void *)trf_6967,3,t0,t1,t2);}
18856 a=C_alloc(5);
18857 if(C_truep(C_i_pairp(t2))){
18858 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6977,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
18859 /* support.scm:189: g800 */
18860 t4=((C_word*)t0)[3];
18861 f_6949(t4,t3,C_slot(t2,C_fix(0)));}
18862 else{
18863 t3=C_SCHEME_UNDEFINED;
18864 t4=t1;{
18865 C_word av2[2];
18866 av2[0]=t4;
18867 av2[1]=t3;
18868 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
18869 
18870 /* k6975 in for-each-loop799 in k6946 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6977(C_word c,C_word * av)18871 static void C_ccall f_6977(C_word c,C_word *av){
18872 C_word tmp;
18873 C_word t0=av[0];
18874 C_word t1=av[1];
18875 C_word t2;
18876 C_word *a;
18877 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18878 C_save_and_reclaim((void *)f_6977,c,av);}
18879 t2=((C_word*)((C_word*)t0)[2])[1];
18880 f_6967(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
18881 
18882 /* k6992 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6994(C_word c,C_word * av)18883 static void C_ccall f_6994(C_word c,C_word *av){
18884 C_word tmp;
18885 C_word t0=av[0];
18886 C_word t1=av[1];
18887 C_word t2;
18888 C_word t3;
18889 C_word *a;
18890 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
18891 C_save_and_reclaim((void *)f_6994,c,av);}
18892 a=C_alloc(5);
18893 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6997,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18894 /* support.scm:187: ##sys#print */
18895 t3=*((C_word*)lf[27]+1);{
18896 C_word *av2;
18897 if(c >= 5) {
18898   av2=av;
18899 } else {
18900   av2=C_alloc(5);
18901 }
18902 av2[0]=t3;
18903 av2[1]=t2;
18904 av2[2]=((C_word*)t0)[5];
18905 av2[3]=C_SCHEME_FALSE;
18906 av2[4]=((C_word*)t0)[3];
18907 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18908 
18909 /* k6995 in k6992 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_6997(C_word c,C_word * av)18910 static void C_ccall f_6997(C_word c,C_word *av){
18911 C_word tmp;
18912 C_word t0=av[0];
18913 C_word t1=av[1];
18914 C_word t2;
18915 C_word t3;
18916 C_word *a;
18917 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
18918 C_save_and_reclaim((void *)f_6997,c,av);}
18919 a=C_alloc(5);
18920 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7000,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18921 /* support.scm:187: ##sys#print */
18922 t3=*((C_word*)lf[27]+1);{
18923 C_word *av2;
18924 if(c >= 5) {
18925   av2=av;
18926 } else {
18927   av2=C_alloc(5);
18928 }
18929 av2[0]=t3;
18930 av2[1]=t2;
18931 av2[2]=lf[48];
18932 av2[3]=C_SCHEME_FALSE;
18933 av2[4]=((C_word*)t0)[3];
18934 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18935 
18936 /* k6998 in k6995 in k6992 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7000(C_word c,C_word * av)18937 static void C_ccall f_7000(C_word c,C_word *av){
18938 C_word tmp;
18939 C_word t0=av[0];
18940 C_word t1=av[1];
18941 C_word t2;
18942 C_word t3;
18943 C_word *a;
18944 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
18945 C_save_and_reclaim((void *)f_7000,c,av);}
18946 a=C_alloc(4);
18947 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
18948 /* support.scm:187: ##sys#print */
18949 t3=*((C_word*)lf[27]+1);{
18950 C_word *av2;
18951 if(c >= 5) {
18952   av2=av;
18953 } else {
18954   av2=C_alloc(5);
18955 }
18956 av2[0]=t3;
18957 av2[1]=t2;
18958 av2[2]=((C_word*)((C_word*)t0)[4])[1];
18959 av2[3]=C_SCHEME_FALSE;
18960 av2[4]=((C_word*)t0)[3];
18961 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18962 
18963 /* k7001 in k6998 in k6995 in k6992 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7003(C_word c,C_word * av)18964 static void C_ccall f_7003(C_word c,C_word *av){
18965 C_word tmp;
18966 C_word t0=av[0];
18967 C_word t1=av[1];
18968 C_word t2;
18969 C_word t3;
18970 C_word *a;
18971 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
18972 C_save_and_reclaim((void *)f_7003,c,av);}
18973 a=C_alloc(4);
18974 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7006,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
18975 /* support.scm:187: ##sys#write-char-0 */
18976 t3=*((C_word*)lf[26]+1);{
18977 C_word *av2;
18978 if(c >= 4) {
18979   av2=av;
18980 } else {
18981   av2=C_alloc(4);
18982 }
18983 av2[0]=t3;
18984 av2[1]=t2;
18985 av2[2]=C_make_character(10);
18986 av2[3]=((C_word*)t0)[3];
18987 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
18988 
18989 /* k7004 in k7001 in k6998 in k6995 in k6992 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7006(C_word c,C_word * av)18990 static void C_ccall f_7006(C_word c,C_word *av){
18991 C_word tmp;
18992 C_word t0=av[0];
18993 C_word t1=av[1];
18994 C_word t2;
18995 C_word *a;
18996 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
18997 C_save_and_reclaim((void *)f_7006,c,av);}
18998 /* support.scm:187: ##sys#write-char-0 */
18999 t2=*((C_word*)lf[26]+1);{
19000 C_word *av2;
19001 if(c >= 4) {
19002   av2=av;
19003 } else {
19004   av2=C_alloc(4);
19005 }
19006 av2[0]=t2;
19007 av2[1]=((C_word*)t0)[2];
19008 av2[2]=C_make_character(10);
19009 av2[3]=((C_word*)t0)[3];
19010 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
19011 
19012 /* k7013 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7015(C_word c,C_word * av)19013 static void C_ccall f_7015(C_word c,C_word *av){
19014 C_word tmp;
19015 C_word t0=av[0];
19016 C_word t1=av[1];
19017 C_word t2;
19018 C_word t3;
19019 C_word *a;
19020 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
19021 C_save_and_reclaim((void *)f_7015,c,av);}
19022 a=C_alloc(4);
19023 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
19024 /* support.scm:188: ##sys#print */
19025 t3=*((C_word*)lf[27]+1);{
19026 C_word *av2;
19027 if(c >= 5) {
19028   av2=av;
19029 } else {
19030   av2=C_alloc(5);
19031 }
19032 av2[0]=t3;
19033 av2[1]=t2;
19034 av2[2]=((C_word*)((C_word*)t0)[4])[1];
19035 av2[3]=C_SCHEME_FALSE;
19036 av2[4]=((C_word*)t0)[3];
19037 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
19038 
19039 /* k7016 in k7013 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7018(C_word c,C_word * av)19040 static void C_ccall f_7018(C_word c,C_word *av){
19041 C_word tmp;
19042 C_word t0=av[0];
19043 C_word t1=av[1];
19044 C_word t2;
19045 C_word t3;
19046 C_word *a;
19047 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
19048 C_save_and_reclaim((void *)f_7018,c,av);}
19049 a=C_alloc(4);
19050 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
19051 /* support.scm:188: ##sys#write-char-0 */
19052 t3=*((C_word*)lf[26]+1);{
19053 C_word *av2;
19054 if(c >= 4) {
19055   av2=av;
19056 } else {
19057   av2=C_alloc(4);
19058 }
19059 av2[0]=t3;
19060 av2[1]=t2;
19061 av2[2]=C_make_character(10);
19062 av2[3]=((C_word*)t0)[3];
19063 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
19064 
19065 /* k7019 in k7016 in k7013 in k6943 in ##sys#syntax-error-hook in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7021(C_word c,C_word * av)19066 static void C_ccall f_7021(C_word c,C_word *av){
19067 C_word tmp;
19068 C_word t0=av[0];
19069 C_word t1=av[1];
19070 C_word t2;
19071 C_word *a;
19072 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
19073 C_save_and_reclaim((void *)f_7021,c,av);}
19074 /* support.scm:188: ##sys#write-char-0 */
19075 t2=*((C_word*)lf[26]+1);{
19076 C_word *av2;
19077 if(c >= 4) {
19078   av2=av;
19079 } else {
19080   av2=C_alloc(4);
19081 }
19082 av2[0]=t2;
19083 av2[1]=((C_word*)t0)[2];
19084 av2[2]=C_make_character(10);
19085 av2[3]=((C_word*)t0)[3];
19086 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
19087 
19088 /* chicken.compiler.support#emit-syntax-trace-info in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7038(C_word c,C_word * av)19089 static void C_ccall f_7038(C_word c,C_word *av){
19090 C_word tmp;
19091 C_word t0=av[0];
19092 C_word t1=av[1];
19093 C_word t2=av[2];
19094 C_word t3=av[3];
19095 C_word t4;
19096 C_word t5;
19097 C_word *a;
19098 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19099 C_save_and_reclaim((void *)f_7038,c,av);}
19100 t4=*((C_word*)lf[46]+1);
19101 t5=t1;{
19102 C_word *av2=av;
19103 av2[0]=t5;
19104 av2[1]=C_emit_syntax_trace_info(t2,t3,C_slot(*((C_word*)lf[46]+1),C_fix(14)));
19105 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19106 
19107 /* chicken.compiler.support#check-signature in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7092(C_word c,C_word * av)19108 static void C_ccall f_7092(C_word c,C_word *av){
19109 C_word tmp;
19110 C_word t0=av[0];
19111 C_word t1=av[1];
19112 C_word t2=av[2];
19113 C_word t3=av[3];
19114 C_word t4=av[4];
19115 C_word t5;
19116 C_word t6;
19117 C_word *a;
19118 if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
19119 C_save_and_reclaim((void *)f_7092,c,av);}
19120 a=C_alloc(2);
19121 t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7098,tmp=(C_word)a,a+=2,tmp);
19122 t6=t1;{
19123 C_word *av2=av;
19124 av2[0]=t6;
19125 av2[1]=(
19126   f_7098(t3,t4)
19127 );
19128 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
19129 
19130 /* loop in chicken.compiler.support#check-signature in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7098(C_word t1,C_word t2)19131 static C_word C_fcall f_7098(C_word t1,C_word t2){
19132 C_word tmp;
19133 C_word t3;
19134 C_word t4;
19135 C_word t5;
19136 C_word t6;
19137 C_stack_overflow_check;
19138 loop:{}
19139 if(C_truep(C_i_nullp(t2))){
19140 return(C_i_nullp(t1));}
19141 else{
19142 t3=C_i_symbolp(t2);
19143 if(C_truep(t3)){
19144 return(t3);}
19145 else{
19146 if(C_truep(C_i_nullp(t1))){
19147 return(C_SCHEME_FALSE);}
19148 else{
19149 t5=C_i_cdr(t1);
19150 t6=C_i_cdr(t2);
19151 t1=t5;
19152 t2=t6;
19153 goto loop;}}}}
19154 
19155 /* chicken.compiler.support#build-lambda-list in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7133(C_word c,C_word * av)19156 static void C_ccall f_7133(C_word c,C_word *av){
19157 C_word tmp;
19158 C_word t0=av[0];
19159 C_word t1=av[1];
19160 C_word t2=av[2];
19161 C_word t3=av[3];
19162 C_word t4=av[4];
19163 C_word t5;
19164 C_word t6;
19165 C_word t7;
19166 C_word t8;
19167 C_word *a;
19168 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
19169 C_save_and_reclaim((void *)f_7133,c,av);}
19170 a=C_alloc(6);
19171 t5=C_SCHEME_UNDEFINED;
19172 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
19173 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7139,a[2]=t4,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
19174 t8=((C_word*)t6)[1];
19175 f_7139(t8,t1,t2,t3);}
19176 
19177 /* loop in chicken.compiler.support#build-lambda-list in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7139(C_word t0,C_word t1,C_word t2,C_word t3)19178 static void C_fcall f_7139(C_word t0,C_word t1,C_word t2,C_word t3){
19179 C_word tmp;
19180 C_word t4;
19181 C_word t5;
19182 C_word t6;
19183 C_word t7;
19184 C_word t8;
19185 C_word t9;
19186 C_word t10;
19187 C_word t11;
19188 C_word t12;
19189 C_word t13;
19190 C_word *a;
19191 loop:
19192 if(C_unlikely(!C_demand(C_calculate_demand(33,0,3)))){
19193 C_save_and_reclaim_args((void *)trf_7139,4,t0,t1,t2,t3);}
19194 a=C_alloc(33);
19195 t4=C_i_zerop(t3);
19196 t5=(C_truep(t4)?t4:C_i_nullp(t2));
19197 if(C_truep(t5)){
19198 t6=t1;{
19199 C_word av2[2];
19200 av2[0]=t6;
19201 av2[1]=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_SCHEME_END_OF_LIST);
19202 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
19203 else{
19204 t6=C_i_car(t2);
19205 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7161,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
19206 t8=C_u_i_cdr(t2);
19207 t9=C_s_a_i_minus(&a,2,t3,C_fix(1));
19208 /* support.scm:219: loop */
19209 t11=t7;
19210 t12=t8;
19211 t13=t9;
19212 t1=t11;
19213 t2=t12;
19214 t3=t13;
19215 goto loop;}}
19216 
19217 /* k7159 in loop in chicken.compiler.support#build-lambda-list in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7161(C_word c,C_word * av)19218 static void C_ccall f_7161(C_word c,C_word *av){
19219 C_word tmp;
19220 C_word t0=av[0];
19221 C_word t1=av[1];
19222 C_word t2;
19223 C_word *a;
19224 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
19225 C_save_and_reclaim((void *)f_7161,c,av);}
19226 a=C_alloc(3);
19227 t2=((C_word*)t0)[2];{
19228 C_word *av2=av;
19229 av2[0]=t2;
19230 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
19231 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
19232 
19233 /* chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7170(C_word c,C_word * av)19234 static void C_ccall f_7170(C_word c,C_word *av){
19235 C_word tmp;
19236 C_word t0=av[0];
19237 C_word t1=av[1];
19238 C_word t2=av[2];
19239 C_word t3;
19240 C_word t4;
19241 C_word t5;
19242 C_word *a;
19243 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
19244 C_save_and_reclaim((void *)f_7170,c,av);}
19245 a=C_alloc(6);
19246 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7182,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
19247 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7186,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
19248 /* ##sys#string->list */
19249 t5=*((C_word*)lf[60]+1);{
19250 C_word *av2=av;
19251 av2[0]=t5;
19252 av2[1]=t4;
19253 av2[2]=t2;
19254 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19255 
19256 /* k7180 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7182(C_word c,C_word * av)19257 static void C_ccall f_7182(C_word c,C_word *av){
19258 C_word tmp;
19259 C_word t0=av[0];
19260 C_word t1=av[1];
19261 C_word t2;
19262 C_word t3;
19263 C_word *a;
19264 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
19265 C_save_and_reclaim((void *)f_7182,c,av);}
19266 a=C_alloc(3);
19267 t2=C_a_i_cons(&a,2,C_make_character(34),t1);
19268 /* ##sys#list->string */
19269 t3=*((C_word*)lf[56]+1);{
19270 C_word *av2;
19271 if(c >= 3) {
19272   av2=av;
19273 } else {
19274   av2=C_alloc(3);
19275 }
19276 av2[0]=t3;
19277 av2[1]=((C_word*)t0)[2];
19278 av2[2]=t2;
19279 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
19280 
19281 /* k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7186(C_word c,C_word * av)19282 static void C_ccall f_7186(C_word c,C_word *av){
19283 C_word tmp;
19284 C_word t0=av[0];
19285 C_word t1=av[1];
19286 C_word t2;
19287 C_word t3;
19288 C_word t4;
19289 C_word t5;
19290 C_word *a;
19291 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
19292 C_save_and_reclaim((void *)f_7186,c,av);}
19293 a=C_alloc(5);
19294 t2=C_SCHEME_UNDEFINED;
19295 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19296 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7188,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
19297 t5=((C_word*)t3)[1];
19298 f_7188(t5,((C_word*)t0)[2],t1);}
19299 
19300 /* loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7188(C_word t0,C_word t1,C_word t2)19301 static void C_fcall f_7188(C_word t0,C_word t1,C_word t2){
19302 C_word tmp;
19303 C_word t3;
19304 C_word t4;
19305 C_word t5;
19306 C_word t6;
19307 C_word t7;
19308 C_word t8;
19309 C_word *a;
19310 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
19311 C_save_and_reclaim_args((void *)trf_7188,3,t0,t1,t2);}
19312 a=C_alloc(7);
19313 if(C_truep(C_i_nullp(t2))){
19314 t3=t1;{
19315 C_word av2[2];
19316 av2[0]=t3;
19317 av2[1]=lf[57];
19318 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19319 else{
19320 t3=C_i_car(t2);
19321 t4=C_fix(C_character_code(t3));
19322 t5=C_fixnum_lessp(t4,C_fix(32));
19323 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7210,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t4,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
19324 if(C_truep(t5)){
19325 t7=t6;
19326 f_7210(t7,t5);}
19327 else{
19328 t7=C_fixnum_greater_or_equal_p(t4,C_fix(127));
19329 t8=t6;
19330 f_7210(t8,(C_truep(t7)?t7:C_u_i_memq(t3,lf[64])));}}}
19331 
19332 /* k7208 in loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7210(C_word t0,C_word t1)19333 static void C_fcall f_7210(C_word t0,C_word t1){
19334 C_word tmp;
19335 C_word t2;
19336 C_word t3;
19337 C_word t4;
19338 C_word *a;
19339 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
19340 C_save_and_reclaim_args((void *)trf_7210,2,t0,t1);}
19341 a=C_alloc(6);
19342 if(C_truep(t1)){
19343 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
19344 if(C_truep(C_fixnum_lessp(((C_word*)t0)[5],C_fix(8)))){
19345 t3=t2;
19346 f_7217(t3,lf[62]);}
19347 else{
19348 t3=C_fixnum_lessp(((C_word*)t0)[5],C_fix(64));
19349 t4=t2;
19350 f_7217(t4,(C_truep(t3)?lf[63]:C_SCHEME_END_OF_LIST));}}
19351 else{
19352 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
19353 /* support.scm:238: loop */
19354 t3=((C_word*)((C_word*)t0)[3])[1];
19355 f_7188(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}}
19356 
19357 /* k7215 in k7208 in loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7217(C_word t0,C_word t1)19358 static void C_fcall f_7217(C_word t0,C_word t1){
19359 C_word tmp;
19360 C_word t2;
19361 C_word t3;
19362 C_word t4;
19363 C_word *a;
19364 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
19365 C_save_and_reclaim_args((void *)trf_7217,2,t0,t1);}
19366 a=C_alloc(9);
19367 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7221,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
19368 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7231,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
19369 /* ##sys#fixnum->string */
19370 t4=*((C_word*)lf[61]+1);{
19371 C_word av2[4];
19372 av2[0]=t4;
19373 av2[1]=t3;
19374 av2[2]=((C_word*)t0)[5];
19375 av2[3]=C_fix(8);
19376 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
19377 
19378 /* k7219 in k7215 in k7208 in loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7221(C_word c,C_word * av)19379 static void C_ccall f_7221(C_word c,C_word *av){
19380 C_word tmp;
19381 C_word t0=av[0];
19382 C_word t1=av[1];
19383 C_word t2;
19384 C_word t3;
19385 C_word *a;
19386 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
19387 C_save_and_reclaim((void *)f_7221,c,av);}
19388 a=C_alloc(5);
19389 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
19390 /* support.scm:237: loop */
19391 t3=((C_word*)((C_word*)t0)[4])[1];
19392 f_7188(t3,t2,C_u_i_cdr(((C_word*)t0)[5]));}
19393 
19394 /* k7223 in k7219 in k7215 in k7208 in loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7225(C_word c,C_word * av)19395 static void C_ccall f_7225(C_word c,C_word *av){
19396 C_word tmp;
19397 C_word t0=av[0];
19398 C_word t1=av[1];
19399 C_word t2;
19400 C_word *a;
19401 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
19402 C_save_and_reclaim((void *)f_7225,c,av);}
19403 /* support.scm:232: scheme#append */
19404 t2=*((C_word*)lf[58]+1);{
19405 C_word *av2;
19406 if(c >= 6) {
19407   av2=av;
19408 } else {
19409   av2=C_alloc(6);
19410 }
19411 av2[0]=t2;
19412 av2[1]=((C_word*)t0)[2];
19413 av2[2]=lf[59];
19414 av2[3]=((C_word*)t0)[3];
19415 av2[4]=((C_word*)t0)[4];
19416 av2[5]=t1;
19417 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
19418 
19419 /* k7229 in k7215 in k7208 in loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7231(C_word c,C_word * av)19420 static void C_ccall f_7231(C_word c,C_word *av){
19421 C_word tmp;
19422 C_word t0=av[0];
19423 C_word t1=av[1];
19424 C_word t2;
19425 C_word *a;
19426 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19427 C_save_and_reclaim((void *)f_7231,c,av);}
19428 /* ##sys#string->list */
19429 t2=*((C_word*)lf[60]+1);{
19430 C_word *av2;
19431 if(c >= 3) {
19432   av2=av;
19433 } else {
19434   av2=C_alloc(3);
19435 }
19436 av2[0]=t2;
19437 av2[1]=((C_word*)t0)[2];
19438 av2[2]=t1;
19439 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
19440 
19441 /* k7251 in k7208 in loop in k7184 in chicken.compiler.support#c-ify-string in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7253(C_word c,C_word * av)19442 static void C_ccall f_7253(C_word c,C_word *av){
19443 C_word tmp;
19444 C_word t0=av[0];
19445 C_word t1=av[1];
19446 C_word t2;
19447 C_word *a;
19448 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
19449 C_save_and_reclaim((void *)f_7253,c,av);}
19450 a=C_alloc(3);
19451 t2=((C_word*)t0)[2];{
19452 C_word *av2=av;
19453 av2[0]=t2;
19454 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
19455 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
19456 
19457 /* chicken.compiler.support#valid-c-identifier? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7269(C_word c,C_word * av)19458 static void C_ccall f_7269(C_word c,C_word *av){
19459 C_word tmp;
19460 C_word t0=av[0];
19461 C_word t1=av[1];
19462 C_word t2=av[2];
19463 C_word t3;
19464 C_word t4;
19465 C_word t5;
19466 C_word *a;
19467 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
19468 C_save_and_reclaim((void *)f_7269,c,av);}
19469 a=C_alloc(6);
19470 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7273,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
19471 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7317,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
19472 /* support.scm:242: chicken.string#->string */
19473 t5=*((C_word*)lf[66]+1);{
19474 C_word *av2=av;
19475 av2[0]=t5;
19476 av2[1]=t4;
19477 av2[2]=t2;
19478 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19479 
19480 /* k7271 in chicken.compiler.support#valid-c-identifier? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7273(C_word c,C_word * av)19481 static void C_ccall f_7273(C_word c,C_word *av){
19482 C_word tmp;
19483 C_word t0=av[0];
19484 C_word t1=av[1];
19485 C_word t2;
19486 C_word t3;
19487 C_word t4;
19488 C_word t5;
19489 C_word t6;
19490 C_word *a;
19491 if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
19492 C_save_and_reclaim((void *)f_7273,c,av);}
19493 a=C_alloc(2);
19494 if(C_truep(C_i_pairp(t1))){
19495 t2=C_u_i_car(t1);
19496 t3=C_u_i_char_alphabeticp(t2);
19497 t4=(C_truep(t3)?t3:C_u_i_char_equalp(C_make_character(95),t2));
19498 if(C_truep(t4)){
19499 t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7294,tmp=(C_word)a,a+=2,tmp);
19500 /* support.scm:246: every */
19501 f_5743(((C_word*)t0)[2],t5,C_u_i_cdr(t1));}
19502 else{
19503 t5=((C_word*)t0)[2];{
19504 C_word *av2=av;
19505 av2[0]=t5;
19506 av2[1]=C_SCHEME_FALSE;
19507 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
19508 else{
19509 t2=((C_word*)t0)[2];{
19510 C_word *av2=av;
19511 av2[0]=t2;
19512 av2[1]=C_SCHEME_FALSE;
19513 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
19514 
19515 /* a7293 in k7271 in chicken.compiler.support#valid-c-identifier? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7294(C_word c,C_word * av)19516 static void C_ccall f_7294(C_word c,C_word *av){
19517 C_word tmp;
19518 C_word t0=av[0];
19519 C_word t1=av[1];
19520 C_word t2=av[2];
19521 C_word t3;
19522 C_word t4;
19523 C_word t5;
19524 C_word *a;
19525 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19526 C_save_and_reclaim((void *)f_7294,c,av);}
19527 t3=C_u_i_char_alphabeticp(t2);
19528 if(C_truep(t3)){
19529 t4=t1;{
19530 C_word *av2=av;
19531 av2[0]=t4;
19532 av2[1]=t3;
19533 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
19534 else{
19535 t4=C_u_i_char_numericp(t2);
19536 t5=t1;{
19537 C_word *av2=av;
19538 av2[0]=t5;
19539 av2[1]=(C_truep(t4)?t4:C_u_i_char_equalp(C_make_character(95),t2));
19540 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
19541 
19542 /* k7315 in chicken.compiler.support#valid-c-identifier? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7317(C_word c,C_word * av)19543 static void C_ccall f_7317(C_word c,C_word *av){
19544 C_word tmp;
19545 C_word t0=av[0];
19546 C_word t1=av[1];
19547 C_word t2;
19548 C_word *a;
19549 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19550 C_save_and_reclaim((void *)f_7317,c,av);}
19551 /* ##sys#string->list */
19552 t2=*((C_word*)lf[60]+1);{
19553 C_word *av2;
19554 if(c >= 3) {
19555   av2=av;
19556 } else {
19557   av2=C_alloc(3);
19558 }
19559 av2[0]=t2;
19560 av2[1]=((C_word*)t0)[2];
19561 av2[2]=t1;
19562 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
19563 
19564 /* chicken.compiler.support#bytes->words in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7319(C_word c,C_word * av)19565 static void C_ccall f_7319(C_word c,C_word *av){
19566 C_word tmp;
19567 C_word t0=av[0];
19568 C_word t1=av[1];
19569 C_word t2=av[2];
19570 C_word t3;
19571 C_word *a;
19572 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19573 C_save_and_reclaim((void *)f_7319,c,av);}
19574 t3=t1;{
19575 C_word *av2=av;
19576 av2[0]=t3;
19577 av2[1]=stub927(C_SCHEME_UNDEFINED,C_i_foreign_fixnum_argumentp(t2));
19578 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19579 
19580 /* chicken.compiler.support#words->bytes in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7326(C_word c,C_word * av)19581 static void C_ccall f_7326(C_word c,C_word *av){
19582 C_word tmp;
19583 C_word t0=av[0];
19584 C_word t1=av[1];
19585 C_word t2=av[2];
19586 C_word t3;
19587 C_word *a;
19588 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19589 C_save_and_reclaim((void *)f_7326,c,av);}
19590 t3=t1;{
19591 C_word *av2=av;
19592 av2[0]=t3;
19593 av2[1]=stub932(C_SCHEME_UNDEFINED,C_i_foreign_fixnum_argumentp(t2));
19594 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19595 
19596 /* chicken.compiler.support#check-and-open-input-file in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7333(C_word c,C_word * av)19597 static void C_ccall f_7333(C_word c,C_word *av){
19598 C_word tmp;
19599 C_word t0=av[0];
19600 C_word t1=av[1];
19601 C_word t2=av[2];
19602 C_word t3;
19603 C_word *a;
19604 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
19605 C_save_and_reclaim((void*)f_7333,c,av);}
19606 a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
19607 t3=C_build_rest(&a,c,3,av);
19608 C_word t4;
19609 C_word t5;
19610 if(C_truep(C_i_string_equal_p(t2,lf[70]))){
19611 t4=*((C_word*)lf[71]+1);
19612 t5=t1;{
19613 C_word *av2=av;
19614 av2[0]=t5;
19615 av2[1]=*((C_word*)lf[71]+1);
19616 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19617 else{
19618 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7346,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
19619 /* support.scm:256: chicken.file#file-exists? */
19620 t5=*((C_word*)lf[75]+1);{
19621 C_word *av2=av;
19622 av2[0]=t5;
19623 av2[1]=t4;
19624 av2[2]=t2;
19625 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
19626 
19627 /* k7344 in chicken.compiler.support#check-and-open-input-file in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7346(C_word c,C_word * av)19628 static void C_ccall f_7346(C_word c,C_word *av){
19629 C_word tmp;
19630 C_word t0=av[0];
19631 C_word t1=av[1];
19632 C_word t2;
19633 C_word t3;
19634 C_word t4;
19635 C_word *a;
19636 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
19637 C_save_and_reclaim((void *)f_7346,c,av);}
19638 if(C_truep(t1)){
19639 /* support.scm:256: scheme#open-input-file */
19640 t2=*((C_word*)lf[72]+1);{
19641 C_word *av2;
19642 if(c >= 3) {
19643   av2=av;
19644 } else {
19645   av2=C_alloc(3);
19646 }
19647 av2[0]=t2;
19648 av2[1]=((C_word*)t0)[2];
19649 av2[2]=((C_word*)t0)[3];
19650 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
19651 else{
19652 t2=C_i_nullp(((C_word*)t0)[4]);
19653 t3=(C_truep(t2)?t2:C_i_not(C_i_car(((C_word*)t0)[4])));
19654 if(C_truep(t3)){
19655 /* support.scm:258: quit-compiling */
19656 t4=*((C_word*)lf[37]+1);{
19657 C_word *av2;
19658 if(c >= 4) {
19659   av2=av;
19660 } else {
19661   av2=C_alloc(4);
19662 }
19663 av2[0]=t4;
19664 av2[1]=((C_word*)t0)[2];
19665 av2[2]=lf[73];
19666 av2[3]=((C_word*)t0)[3];
19667 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
19668 else{
19669 /* support.scm:259: quit-compiling */
19670 t4=*((C_word*)lf[37]+1);{
19671 C_word *av2;
19672 if(c >= 5) {
19673   av2=av;
19674 } else {
19675   av2=C_alloc(5);
19676 }
19677 av2[0]=t4;
19678 av2[1]=((C_word*)t0)[2];
19679 av2[2]=lf[74];
19680 av2[3]=C_i_car(((C_word*)t0)[4]);
19681 av2[4]=((C_word*)t0)[3];
19682 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}}
19683 
19684 /* chicken.compiler.support#close-checked-input-file in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7377(C_word c,C_word * av)19685 static void C_ccall f_7377(C_word c,C_word *av){
19686 C_word tmp;
19687 C_word t0=av[0];
19688 C_word t1=av[1];
19689 C_word t2=av[2];
19690 C_word t3=av[3];
19691 C_word t4;
19692 C_word t5;
19693 C_word *a;
19694 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19695 C_save_and_reclaim((void *)f_7377,c,av);}
19696 if(C_truep(C_i_string_equal_p(t3,lf[77]))){
19697 t4=C_SCHEME_UNDEFINED;
19698 t5=t1;{
19699 C_word *av2=av;
19700 av2[0]=t5;
19701 av2[1]=t4;
19702 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19703 else{
19704 /* support.scm:262: scheme#close-input-port */
19705 t4=*((C_word*)lf[78]+1);{
19706 C_word *av2=av;
19707 av2[0]=t4;
19708 av2[1]=t1;
19709 av2[2]=t2;
19710 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
19711 
19712 /* chicken.compiler.support#fold-inner in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7389(C_word c,C_word * av)19713 static void C_ccall f_7389(C_word c,C_word *av){
19714 C_word tmp;
19715 C_word t0=av[0];
19716 C_word t1=av[1];
19717 C_word t2=av[2];
19718 C_word t3=av[3];
19719 C_word t4;
19720 C_word t5;
19721 C_word t6;
19722 C_word *a;
19723 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
19724 C_save_and_reclaim((void *)f_7389,c,av);}
19725 a=C_alloc(4);
19726 t4=C_i_cdr(t3);
19727 if(C_truep(C_i_nullp(t4))){
19728 t5=t1;{
19729 C_word *av2=av;
19730 av2[0]=t5;
19731 av2[1]=t3;
19732 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19733 else{
19734 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7403,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
19735 /* support.scm:267: scheme#reverse */
19736 t6=*((C_word*)lf[80]+1);{
19737 C_word *av2=av;
19738 av2[0]=t6;
19739 av2[1]=t5;
19740 av2[2]=t3;
19741 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
19742 
19743 /* k7401 in chicken.compiler.support#fold-inner in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7403(C_word c,C_word * av)19744 static void C_ccall f_7403(C_word c,C_word *av){
19745 C_word tmp;
19746 C_word t0=av[0];
19747 C_word t1=av[1];
19748 C_word t2;
19749 C_word t3;
19750 C_word t4;
19751 C_word t5;
19752 C_word *a;
19753 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
19754 C_save_and_reclaim((void *)f_7403,c,av);}
19755 a=C_alloc(6);
19756 t2=C_SCHEME_UNDEFINED;
19757 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19758 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7405,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
19759 t5=((C_word*)t3)[1];
19760 f_7405(t5,((C_word*)t0)[3],t1);}
19761 
19762 /* fold in k7401 in chicken.compiler.support#fold-inner in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7405(C_word t0,C_word t1,C_word t2)19763 static void C_fcall f_7405(C_word t0,C_word t1,C_word t2){
19764 C_word tmp;
19765 C_word t3;
19766 C_word t4;
19767 C_word t5;
19768 C_word t6;
19769 C_word t7;
19770 C_word t8;
19771 C_word t9;
19772 C_word t10;
19773 C_word *a;
19774 loop:
19775 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
19776 C_save_and_reclaim_args((void *)trf_7405,3,t0,t1,t2);}
19777 a=C_alloc(6);
19778 t3=C_i_cddr(t2);
19779 if(C_truep(C_i_nullp(t3))){
19780 t4=C_u_i_cdr(t2);
19781 t5=C_u_i_car(t4);
19782 t6=C_u_i_car(t2);
19783 t7=C_a_i_list2(&a,2,t5,t6);{
19784 C_word av2[4];
19785 av2[0]=0;
19786 av2[1]=t1;
19787 av2[2]=((C_word*)t0)[2];
19788 av2[3]=t7;
19789 C_apply(4,av2);}}
19790 else{
19791 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7431,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
19792 /* support.scm:272: fold */
19793 t9=t4;
19794 t10=C_u_i_cdr(t2);
19795 t1=t9;
19796 t2=t10;
19797 goto loop;}}
19798 
19799 /* k7429 in fold in k7401 in chicken.compiler.support#fold-inner in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7431(C_word c,C_word * av)19800 static void C_ccall f_7431(C_word c,C_word *av){
19801 C_word tmp;
19802 C_word t0=av[0];
19803 C_word t1=av[1];
19804 C_word t2;
19805 C_word t3;
19806 C_word t4;
19807 C_word *a;
19808 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
19809 C_save_and_reclaim((void *)f_7431,c,av);}
19810 a=C_alloc(6);
19811 t2=C_u_i_car(((C_word*)t0)[2]);
19812 t3=C_a_i_list2(&a,2,t1,t2);{
19813 C_word *av2;
19814 if(c >= 4) {
19815   av2=av;
19816 } else {
19817   av2=C_alloc(4);
19818 }
19819 av2[0]=0;
19820 av2[1]=((C_word*)t0)[3];
19821 av2[2]=((C_word*)t0)[4];
19822 av2[3]=t3;
19823 C_apply(4,av2);}}
19824 
19825 /* chicken.compiler.support#follow-without-loop in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7445(C_word t1,C_word t2,C_word t3,C_word t4)19826 static void C_fcall f_7445(C_word t1,C_word t2,C_word t3,C_word t4){
19827 C_word tmp;
19828 C_word t5;
19829 C_word t6;
19830 C_word t7;
19831 C_word t8;
19832 C_word *a;
19833 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
19834 C_save_and_reclaim_args((void *)trf_7445,4,t1,t2,t3,t4);}
19835 a=C_alloc(7);
19836 t5=C_SCHEME_UNDEFINED;
19837 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
19838 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7451,a[2]=t4,a[3]=t6,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
19839 t8=((C_word*)t6)[1];
19840 f_7451(t8,t1,t2,C_SCHEME_END_OF_LIST);}
19841 
19842 /* loop in chicken.compiler.support#follow-without-loop in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7451(C_word t0,C_word t1,C_word t2,C_word t3)19843 static void C_fcall f_7451(C_word t0,C_word t1,C_word t2,C_word t3){
19844 C_word tmp;
19845 C_word t4;
19846 C_word t5;
19847 C_word *a;
19848 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
19849 C_save_and_reclaim_args((void *)trf_7451,4,t0,t1,t2,t3);}
19850 a=C_alloc(5);
19851 if(C_truep(C_i_member(t2,t3))){
19852 /* support.scm:277: abort */
19853 t4=((C_word*)t0)[2];{
19854 C_word av2[2];
19855 av2[0]=t4;
19856 av2[1]=t1;
19857 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
19858 else{
19859 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7466,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
19860 /* support.scm:278: proc */
19861 t5=((C_word*)t0)[4];{
19862 C_word av2[4];
19863 av2[0]=t5;
19864 av2[1]=t1;
19865 av2[2]=t2;
19866 av2[3]=t4;
19867 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
19868 
19869 /* a7465 in loop in chicken.compiler.support#follow-without-loop in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7466(C_word c,C_word * av)19870 static void C_ccall f_7466(C_word c,C_word *av){
19871 C_word tmp;
19872 C_word t0=av[0];
19873 C_word t1=av[1];
19874 C_word t2=av[2];
19875 C_word t3;
19876 C_word t4;
19877 C_word *a;
19878 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
19879 C_save_and_reclaim((void *)f_7466,c,av);}
19880 a=C_alloc(3);
19881 t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
19882 /* support.scm:278: loop */
19883 t4=((C_word*)((C_word*)t0)[4])[1];
19884 f_7451(t4,t1,t2,t3);}
19885 
19886 /* a7481 in k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7482(C_word c,C_word * av)19887 static void C_ccall f_7482(C_word c,C_word *av){
19888 C_word tmp;
19889 C_word t0=av[0];
19890 C_word t1=av[1];
19891 C_word t2=av[2];
19892 C_word t3=av[3];
19893 C_word t4;
19894 C_word t5;
19895 C_word *a;
19896 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
19897 C_save_and_reclaim((void *)f_7482,c,av);}
19898 a=C_alloc(4);
19899 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7490,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
19900 /* support.scm:281: scheme#symbol->string */
19901 t5=*((C_word*)lf[240]+1);{
19902 C_word *av2=av;
19903 av2[0]=t5;
19904 av2[1]=t4;
19905 av2[2]=t2;
19906 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19907 
19908 /* k7488 in a7481 in k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7490(C_word c,C_word * av)19909 static void C_ccall f_7490(C_word c,C_word *av){
19910 C_word tmp;
19911 C_word t0=av[0];
19912 C_word t1=av[1];
19913 C_word t2;
19914 C_word t3;
19915 C_word *a;
19916 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
19917 C_save_and_reclaim((void *)f_7490,c,av);}
19918 a=C_alloc(4);
19919 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7494,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
19920 /* support.scm:281: scheme#symbol->string */
19921 t3=*((C_word*)lf[240]+1);{
19922 C_word *av2;
19923 if(c >= 3) {
19924   av2=av;
19925 } else {
19926   av2=C_alloc(3);
19927 }
19928 av2[0]=t3;
19929 av2[1]=t2;
19930 av2[2]=((C_word*)t0)[3];
19931 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
19932 
19933 /* k7492 in k7488 in a7481 in k12188 in k12182 in k12179 in chicken.compiler.support#emit-global-inline-file in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7494(C_word c,C_word * av)19934 static void C_ccall f_7494(C_word c,C_word *av){
19935 C_word tmp;
19936 C_word t0=av[0];
19937 C_word t1=av[1];
19938 C_word t2;
19939 C_word *a;
19940 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
19941 C_save_and_reclaim((void *)f_7494,c,av);}
19942 /* support.scm:281: scheme#string<? */
19943 t2=*((C_word*)lf[239]+1);{
19944 C_word *av2;
19945 if(c >= 4) {
19946   av2=av;
19947 } else {
19948   av2=C_alloc(4);
19949 }
19950 av2[0]=t2;
19951 av2[1]=((C_word*)t0)[2];
19952 av2[2]=((C_word*)t0)[3];
19953 av2[3]=t1;
19954 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
19955 
19956 /* chicken.compiler.support#read-expressions in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7496(C_word c,C_word * av)19957 static void C_ccall f_7496(C_word c,C_word *av){
19958 C_word tmp;
19959 C_word t0=av[0];
19960 C_word t1=av[1];
19961 C_word t2;
19962 C_word t3;
19963 C_word t4;
19964 C_word t5;
19965 C_word *a;
19966 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
19967 C_save_and_reclaim((void *)f_7496,c,av);}
19968 a=C_alloc(4);
19969 t2=C_rest_nullp(c,2);
19970 t3=(C_truep(t2)?*((C_word*)lf[71]+1):C_get_rest_arg(c,2,av,2,t0));
19971 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7507,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
19972 /* support.scm:284: scheme#read */
19973 t5=*((C_word*)lf[83]+1);{
19974 C_word av2[3];
19975 av2[0]=t5;
19976 av2[1]=t4;
19977 av2[2]=t3;
19978 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19979 
19980 /* k7505 in chicken.compiler.support#read-expressions in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7507(C_word c,C_word * av)19981 static void C_ccall f_7507(C_word c,C_word *av){
19982 C_word tmp;
19983 C_word t0=av[0];
19984 C_word t1=av[1];
19985 C_word t2;
19986 C_word t3;
19987 C_word t4;
19988 C_word t5;
19989 C_word *a;
19990 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
19991 C_save_and_reclaim((void *)f_7507,c,av);}
19992 a=C_alloc(6);
19993 t2=C_SCHEME_UNDEFINED;
19994 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19995 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7509,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
19996 t5=((C_word*)t3)[1];
19997 f_7509(t5,((C_word*)t0)[3],t1,C_fix(0),C_SCHEME_END_OF_LIST);}
19998 
19999 /* doloop978 in k7505 in chicken.compiler.support#read-expressions in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7509(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)20000 static void C_fcall f_7509(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
20001 C_word tmp;
20002 C_word t5;
20003 C_word t6;
20004 C_word *a;
20005 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
20006 C_save_and_reclaim_args((void *)trf_7509,5,t0,t1,t2,t3,t4);}
20007 a=C_alloc(7);
20008 if(C_truep(C_eofp(t2))){
20009 /* support.scm:287: scheme#reverse */
20010 t5=*((C_word*)lf[80]+1);{
20011 C_word av2[3];
20012 av2[0]=t5;
20013 av2[1]=t1;
20014 av2[2]=t4;
20015 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20016 else{
20017 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7526,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
20018 /* support.scm:284: scheme#read */
20019 t6=*((C_word*)lf[83]+1);{
20020 C_word av2[3];
20021 av2[0]=t6;
20022 av2[1]=t5;
20023 av2[2]=((C_word*)t0)[3];
20024 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
20025 
20026 /* k7524 in doloop978 in k7505 in chicken.compiler.support#read-expressions in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7526(C_word c,C_word * av)20027 static void C_ccall f_7526(C_word c,C_word *av){
20028 C_word tmp;
20029 C_word t0=av[0];
20030 C_word t1=av[1];
20031 C_word t2;
20032 C_word t3;
20033 C_word t4;
20034 C_word *a;
20035 if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
20036 C_save_and_reclaim((void *)f_7526,c,av);}
20037 a=C_alloc(32);
20038 t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
20039 t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
20040 t4=((C_word*)((C_word*)t0)[5])[1];
20041 f_7509(t4,((C_word*)t0)[6],t1,t2,t3);}
20042 
20043 /* chicken.compiler.support#constant? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7540(C_word c,C_word * av)20044 static void C_ccall f_7540(C_word c,C_word *av){
20045 C_word tmp;
20046 C_word t0=av[0];
20047 C_word t1=av[1];
20048 C_word t2=av[2];
20049 C_word t3;
20050 C_word t4;
20051 C_word t5;
20052 C_word t6;
20053 C_word t7;
20054 C_word t8;
20055 C_word t9;
20056 C_word *a;
20057 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
20058 C_save_and_reclaim((void *)f_7540,c,av);}
20059 a=C_alloc(4);
20060 t3=C_i_numberp(t2);
20061 if(C_truep(t3)){
20062 t4=t1;{
20063 C_word *av2=av;
20064 av2[0]=t4;
20065 av2[1]=t3;
20066 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20067 else{
20068 t4=C_charp(t2);
20069 if(C_truep(t4)){
20070 t5=t1;{
20071 C_word *av2=av;
20072 av2[0]=t5;
20073 av2[1]=t4;
20074 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
20075 else{
20076 t5=C_i_stringp(t2);
20077 if(C_truep(t5)){
20078 t6=t1;{
20079 C_word *av2=av;
20080 av2[0]=t6;
20081 av2[1]=t5;
20082 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
20083 else{
20084 t6=C_booleanp(t2);
20085 if(C_truep(t6)){
20086 t7=t1;{
20087 C_word *av2=av;
20088 av2[0]=t7;
20089 av2[1]=t6;
20090 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
20091 else{
20092 t7=C_eofp(t2);
20093 if(C_truep(t7)){
20094 t8=t1;{
20095 C_word *av2=av;
20096 av2[0]=t8;
20097 av2[1]=t7;
20098 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
20099 else{
20100 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7574,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
20101 /* support.scm:298: chicken.blob#blob? */
20102 t9=*((C_word*)lf[87]+1);{
20103 C_word *av2=av;
20104 av2[0]=t9;
20105 av2[1]=t8;
20106 av2[2]=t2;
20107 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}
20108 
20109 /* k7572 in chicken.compiler.support#constant? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7574(C_word c,C_word * av)20110 static void C_ccall f_7574(C_word c,C_word *av){
20111 C_word tmp;
20112 C_word t0=av[0];
20113 C_word t1=av[1];
20114 C_word t2;
20115 C_word t3;
20116 C_word t4;
20117 C_word *a;
20118 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
20119 C_save_and_reclaim((void *)f_7574,c,av);}
20120 a=C_alloc(4);
20121 if(C_truep(t1)){
20122 t2=((C_word*)t0)[2];{
20123 C_word *av2=av;
20124 av2[0]=t2;
20125 av2[1]=t1;
20126 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20127 else{
20128 t2=C_i_vectorp(((C_word*)t0)[3]);
20129 if(C_truep(t2)){
20130 t3=((C_word*)t0)[2];{
20131 C_word *av2=av;
20132 av2[0]=t3;
20133 av2[1]=t2;
20134 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
20135 else{
20136 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7586,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
20137 /* support.scm:300: ##sys#srfi-4-vector? */
20138 t4=*((C_word*)lf[86]+1);{
20139 C_word *av2;
20140 if(c >= 3) {
20141   av2=av;
20142 } else {
20143   av2=C_alloc(3);
20144 }
20145 av2[0]=t4;
20146 av2[1]=t3;
20147 av2[2]=((C_word*)t0)[3];
20148 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}
20149 
20150 /* k7584 in k7572 in chicken.compiler.support#constant? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7586(C_word c,C_word * av)20151 static void C_ccall f_7586(C_word c,C_word *av){
20152 C_word tmp;
20153 C_word t0=av[0];
20154 C_word t1=av[1];
20155 C_word t2;
20156 C_word t3;
20157 C_word *a;
20158 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20159 C_save_and_reclaim((void *)f_7586,c,av);}
20160 if(C_truep(t1)){
20161 t2=((C_word*)t0)[2];{
20162 C_word *av2=av;
20163 av2[0]=t2;
20164 av2[1]=t1;
20165 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20166 else{
20167 t2=C_i_pairp(((C_word*)t0)[3]);
20168 t3=((C_word*)t0)[2];{
20169 C_word *av2=av;
20170 av2[0]=t3;
20171 av2[1]=(C_truep(t2)?C_eqp(lf[85],C_u_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
20172 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20173 
20174 /* chicken.compiler.support#collapsable-literal? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7602(C_word c,C_word * av)20175 static void C_ccall f_7602(C_word c,C_word *av){
20176 C_word tmp;
20177 C_word t0=av[0];
20178 C_word t1=av[1];
20179 C_word t2=av[2];
20180 C_word t3;
20181 C_word t4;
20182 C_word t5;
20183 C_word t6;
20184 C_word t7;
20185 C_word *a;
20186 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20187 C_save_and_reclaim((void *)f_7602,c,av);}
20188 t3=C_booleanp(t2);
20189 if(C_truep(t3)){
20190 t4=t1;{
20191 C_word *av2=av;
20192 av2[0]=t4;
20193 av2[1]=t3;
20194 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20195 else{
20196 t4=C_charp(t2);
20197 if(C_truep(t4)){
20198 t5=t1;{
20199 C_word *av2=av;
20200 av2[0]=t5;
20201 av2[1]=t4;
20202 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
20203 else{
20204 t5=C_eofp(t2);
20205 if(C_truep(t5)){
20206 t6=t1;{
20207 C_word *av2=av;
20208 av2[0]=t6;
20209 av2[1]=t5;
20210 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
20211 else{
20212 t6=C_i_numberp(t2);
20213 t7=t1;{
20214 C_word *av2=av;
20215 av2[0]=t7;
20216 av2[1]=(C_truep(t6)?t6:C_i_symbolp(t2));
20217 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}
20218 
20219 /* chicken.compiler.support#immediate? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7632(C_word c,C_word * av)20220 static void C_ccall f_7632(C_word c,C_word *av){
20221 C_word tmp;
20222 C_word t0=av[0];
20223 C_word t1=av[1];
20224 C_word t2=av[2];
20225 C_word t3;
20226 C_word t4;
20227 C_word t5;
20228 C_word *a;
20229 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
20230 C_save_and_reclaim((void *)f_7632,c,av);}
20231 a=C_alloc(7);
20232 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7636,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
20233 if(C_truep(C_fixnump(t2))){
20234 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7676,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
20235 /* support.scm:311: big-fixnum? */
20236 t5=*((C_word*)lf[90]+1);{
20237 C_word *av2=av;
20238 av2[0]=t5;
20239 av2[1]=t4;
20240 av2[2]=t2;
20241 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20242 else{
20243 t4=t3;
20244 f_7636(t4,C_SCHEME_FALSE);}}
20245 
20246 /* k7634 in chicken.compiler.support#immediate? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7636(C_word t0,C_word t1)20247 static void C_fcall f_7636(C_word t0,C_word t1){
20248 C_word tmp;
20249 C_word t2;
20250 C_word t3;
20251 C_word t4;
20252 C_word t5;
20253 C_word t6;
20254 C_word *a;
20255 if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){
20256 C_save_and_reclaim_args((void *)trf_7636,2,t0,t1);}
20257 if(C_truep(t1)){
20258 t2=((C_word*)t0)[2];{
20259 C_word av2[2];
20260 av2[0]=t2;
20261 av2[1]=t1;
20262 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20263 else{
20264 t2=C_eqp(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
20265 if(C_truep(t2)){
20266 t3=((C_word*)t0)[2];{
20267 C_word av2[2];
20268 av2[0]=t3;
20269 av2[1]=t2;
20270 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
20271 else{
20272 t3=C_i_nullp(((C_word*)t0)[3]);
20273 if(C_truep(t3)){
20274 t4=((C_word*)t0)[2];{
20275 C_word av2[2];
20276 av2[0]=t4;
20277 av2[1]=t3;
20278 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20279 else{
20280 t4=C_eofp(((C_word*)t0)[3]);
20281 if(C_truep(t4)){
20282 t5=((C_word*)t0)[2];{
20283 C_word av2[2];
20284 av2[0]=t5;
20285 av2[1]=t4;
20286 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
20287 else{
20288 t5=C_charp(((C_word*)t0)[3]);
20289 t6=((C_word*)t0)[2];{
20290 C_word av2[2];
20291 av2[0]=t6;
20292 av2[1]=(C_truep(t5)?t5:C_booleanp(((C_word*)t0)[3]));
20293 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}
20294 
20295 /* k7674 in chicken.compiler.support#immediate? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7676(C_word c,C_word * av)20296 static void C_ccall f_7676(C_word c,C_word *av){
20297 C_word tmp;
20298 C_word t0=av[0];
20299 C_word t1=av[1];
20300 C_word t2;
20301 C_word *a;
20302 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20303 C_save_and_reclaim((void *)f_7676,c,av);}
20304 t2=((C_word*)t0)[2];
20305 f_7636(t2,C_i_not(t1));}
20306 
20307 /* chicken.compiler.support#basic-literal? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7678(C_word c,C_word * av)20308 static void C_ccall f_7678(C_word c,C_word *av){
20309 C_word tmp;
20310 C_word t0=av[0];
20311 C_word t1=av[1];
20312 C_word t2=av[2];
20313 C_word t3;
20314 C_word t4;
20315 C_word t5;
20316 C_word t6;
20317 C_word *a;
20318 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
20319 C_save_and_reclaim((void *)f_7678,c,av);}
20320 a=C_alloc(4);
20321 t3=C_i_nullp(t2);
20322 if(C_truep(t3)){
20323 t4=t1;{
20324 C_word *av2=av;
20325 av2[0]=t4;
20326 av2[1]=t3;
20327 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20328 else{
20329 t4=C_i_symbolp(t2);
20330 if(C_truep(t4)){
20331 t5=t1;{
20332 C_word *av2=av;
20333 av2[0]=t5;
20334 av2[1]=t4;
20335 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
20336 else{
20337 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7694,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
20338 /* support.scm:321: constant? */
20339 t6=*((C_word*)lf[84]+1);{
20340 C_word *av2=av;
20341 av2[0]=t6;
20342 av2[1]=t5;
20343 av2[2]=t2;
20344 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}
20345 
20346 /* k7692 in chicken.compiler.support#basic-literal? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7694(C_word c,C_word * av)20347 static void C_ccall f_7694(C_word c,C_word *av){
20348 C_word tmp;
20349 C_word t0=av[0];
20350 C_word t1=av[1];
20351 C_word t2;
20352 C_word t3;
20353 C_word t4;
20354 C_word *a;
20355 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
20356 C_save_and_reclaim((void *)f_7694,c,av);}
20357 a=C_alloc(7);
20358 if(C_truep(t1)){
20359 t2=((C_word*)t0)[2];{
20360 C_word *av2=av;
20361 av2[0]=t2;
20362 av2[1]=t1;
20363 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20364 else{
20365 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7700,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
20366 if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){
20367 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7732,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20368 /* support.scm:322: scheme#vector->list */
20369 t4=*((C_word*)lf[92]+1);{
20370 C_word *av2;
20371 if(c >= 3) {
20372   av2=av;
20373 } else {
20374   av2=C_alloc(3);
20375 }
20376 av2[0]=t4;
20377 av2[1]=t3;
20378 av2[2]=((C_word*)t0)[3];
20379 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
20380 else{
20381 t3=t2;{
20382 C_word *av2=av;
20383 av2[0]=t3;
20384 av2[1]=C_SCHEME_FALSE;
20385 f_7700(2,av2);}}}}
20386 
20387 /* k7698 in k7692 in chicken.compiler.support#basic-literal? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7700(C_word c,C_word * av)20388 static void C_ccall f_7700(C_word c,C_word *av){
20389 C_word tmp;
20390 C_word t0=av[0];
20391 C_word t1=av[1];
20392 C_word t2;
20393 C_word t3;
20394 C_word *a;
20395 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
20396 C_save_and_reclaim((void *)f_7700,c,av);}
20397 a=C_alloc(4);
20398 if(C_truep(t1)){
20399 t2=((C_word*)t0)[2];{
20400 C_word *av2=av;
20401 av2[0]=t2;
20402 av2[1]=t1;
20403 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20404 else{
20405 if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
20406 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
20407 /* support.scm:324: basic-literal? */
20408 t3=*((C_word*)lf[91]+1);{
20409 C_word *av2;
20410 if(c >= 3) {
20411   av2=av;
20412 } else {
20413   av2=C_alloc(3);
20414 }
20415 av2[0]=t3;
20416 av2[1]=t2;
20417 av2[2]=C_u_i_car(((C_word*)t0)[3]);
20418 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
20419 else{
20420 t2=((C_word*)t0)[2];{
20421 C_word *av2=av;
20422 av2[0]=t2;
20423 av2[1]=C_SCHEME_FALSE;
20424 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
20425 
20426 /* k7713 in k7698 in k7692 in chicken.compiler.support#basic-literal? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7715(C_word c,C_word * av)20427 static void C_ccall f_7715(C_word c,C_word *av){
20428 C_word tmp;
20429 C_word t0=av[0];
20430 C_word t1=av[1];
20431 C_word t2;
20432 C_word *a;
20433 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
20434 C_save_and_reclaim((void *)f_7715,c,av);}
20435 if(C_truep(t1)){
20436 /* support.scm:325: basic-literal? */
20437 t2=*((C_word*)lf[91]+1);{
20438 C_word *av2;
20439 if(c >= 3) {
20440   av2=av;
20441 } else {
20442   av2=C_alloc(3);
20443 }
20444 av2[0]=t2;
20445 av2[1]=((C_word*)t0)[2];
20446 av2[2]=C_u_i_cdr(((C_word*)t0)[3]);
20447 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
20448 else{
20449 t2=((C_word*)t0)[2];{
20450 C_word *av2=av;
20451 av2[0]=t2;
20452 av2[1]=C_SCHEME_FALSE;
20453 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
20454 
20455 /* k7730 in k7692 in chicken.compiler.support#basic-literal? in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7732(C_word c,C_word * av)20456 static void C_ccall f_7732(C_word c,C_word *av){
20457 C_word tmp;
20458 C_word t0=av[0];
20459 C_word t1=av[1];
20460 C_word t2;
20461 C_word *a;
20462 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
20463 C_save_and_reclaim((void *)f_7732,c,av);}
20464 /* support.scm:322: every */
20465 f_5743(((C_word*)t0)[2],*((C_word*)lf[91]+1),t1);}
20466 
20467 /* chicken.compiler.support#canonicalize-begin-body in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7734(C_word c,C_word * av)20468 static void C_ccall f_7734(C_word c,C_word *av){
20469 C_word tmp;
20470 C_word t0=av[0];
20471 C_word t1=av[1];
20472 C_word t2=av[2];
20473 C_word t3;
20474 C_word t4;
20475 C_word t5;
20476 C_word t6;
20477 C_word *a;
20478 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
20479 C_save_and_reclaim((void *)f_7734,c,av);}
20480 a=C_alloc(5);
20481 t3=C_SCHEME_UNDEFINED;
20482 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
20483 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7740,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
20484 t6=((C_word*)t4)[1];
20485 f_7740(t6,t1,t2);}
20486 
20487 /* loop in chicken.compiler.support#canonicalize-begin-body in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7740(C_word t0,C_word t1,C_word t2)20488 static void C_fcall f_7740(C_word t0,C_word t1,C_word t2){
20489 C_word tmp;
20490 C_word t3;
20491 C_word t4;
20492 C_word t5;
20493 C_word t6;
20494 C_word t7;
20495 C_word t8;
20496 C_word *a;
20497 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
20498 C_save_and_reclaim_args((void *)trf_7740,3,t0,t1,t2);}
20499 a=C_alloc(9);
20500 if(C_truep(C_i_nullp(t2))){
20501 t3=t1;{
20502 C_word av2[2];
20503 av2[0]=t3;
20504 av2[1]=lf[94];
20505 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
20506 else{
20507 t3=C_i_cdr(t2);
20508 if(C_truep(C_i_nullp(t3))){
20509 t4=t1;{
20510 C_word av2[2];
20511 av2[0]=t4;
20512 av2[1]=C_u_i_car(t2);
20513 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20514 else{
20515 t4=C_u_i_car(t2);
20516 t5=C_i_equalp(t4,lf[95]);
20517 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7764,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
20518 if(C_truep(t5)){
20519 t7=t6;
20520 f_7764(t7,t5);}
20521 else{
20522 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7795,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
20523 /* support.scm:336: constant? */
20524 t8=*((C_word*)lf[84]+1);{
20525 C_word av2[3];
20526 av2[0]=t8;
20527 av2[1]=t7;
20528 av2[2]=t4;
20529 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}}
20530 
20531 /* k7762 in loop in chicken.compiler.support#canonicalize-begin-body in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7764(C_word t0,C_word t1)20532 static void C_fcall f_7764(C_word t0,C_word t1){
20533 C_word tmp;
20534 C_word t2;
20535 C_word t3;
20536 C_word *a;
20537 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
20538 C_save_and_reclaim_args((void *)trf_7764,2,t0,t1);}
20539 a=C_alloc(5);
20540 if(C_truep(t1)){
20541 /* support.scm:338: loop */
20542 t2=((C_word*)((C_word*)t0)[2])[1];
20543 f_7740(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
20544 else{
20545 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7790,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
20546 /* support.scm:339: chicken.base#gensym */
20547 t3=*((C_word*)lf[97]+1);{
20548 C_word av2[3];
20549 av2[0]=t3;
20550 av2[1]=t2;
20551 av2[2]=lf[98];
20552 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
20553 
20554 /* k7778 in k7788 in k7762 in loop in chicken.compiler.support#canonicalize-begin-body in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7780(C_word c,C_word * av)20555 static void C_ccall f_7780(C_word c,C_word *av){
20556 C_word tmp;
20557 C_word t0=av[0];
20558 C_word t1=av[1];
20559 C_word t2;
20560 C_word *a;
20561 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
20562 C_save_and_reclaim((void *)f_7780,c,av);}
20563 a=C_alloc(9);
20564 t2=((C_word*)t0)[2];{
20565 C_word *av2=av;
20566 av2[0]=t2;
20567 av2[1]=C_a_i_list(&a,3,lf[96],((C_word*)t0)[3],t1);
20568 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20569 
20570 /* k7788 in k7762 in loop in chicken.compiler.support#canonicalize-begin-body in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7790(C_word c,C_word * av)20571 static void C_ccall f_7790(C_word c,C_word *av){
20572 C_word tmp;
20573 C_word t0=av[0];
20574 C_word t1=av[1];
20575 C_word t2;
20576 C_word t3;
20577 C_word t4;
20578 C_word t5;
20579 C_word t6;
20580 C_word *a;
20581 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
20582 C_save_and_reclaim((void *)f_7790,c,av);}
20583 a=C_alloc(13);
20584 t2=C_u_i_car(((C_word*)t0)[2]);
20585 t3=C_a_i_list(&a,2,t1,t2);
20586 t4=C_a_i_list(&a,1,t3);
20587 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7780,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
20588 /* support.scm:340: loop */
20589 t6=((C_word*)((C_word*)t0)[4])[1];
20590 f_7740(t6,t5,C_u_i_cdr(((C_word*)t0)[2]));}
20591 
20592 /* k7793 in loop in chicken.compiler.support#canonicalize-begin-body in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7795(C_word c,C_word * av)20593 static void C_ccall f_7795(C_word c,C_word *av){
20594 C_word tmp;
20595 C_word t0=av[0];
20596 C_word t1=av[1];
20597 C_word t2;
20598 C_word *a;
20599 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20600 C_save_and_reclaim((void *)f_7795,c,av);}
20601 t2=((C_word*)t0)[2];
20602 f_7764(t2,(C_truep(t1)?t1:C_i_equalp(((C_word*)t0)[3],lf[99])));}
20603 
20604 /* k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7809(C_word c,C_word * av)20605 static void C_ccall f_7809(C_word c,C_word *av){
20606 C_word tmp;
20607 C_word t0=av[0];
20608 C_word t1=av[1];
20609 C_word t2;
20610 C_word t3;
20611 C_word *a;
20612 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
20613 C_save_and_reclaim((void *)f_7809,c,av);}
20614 a=C_alloc(4);
20615 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7812,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
20616 /* support.scm:345: chicken.condition#condition-property-accessor */
20617 t3=*((C_word*)lf[546]+1);{
20618 C_word *av2;
20619 if(c >= 4) {
20620   av2=av;
20621 } else {
20622   av2=C_alloc(4);
20623 }
20624 av2[0]=t3;
20625 av2[1]=t2;
20626 av2[2]=lf[547];
20627 av2[3]=lf[548];
20628 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
20629 
20630 /* k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7812(C_word c,C_word * av)20631 static void C_ccall f_7812(C_word c,C_word *av){
20632 C_word tmp;
20633 C_word t0=av[0];
20634 C_word t1=av[1];
20635 C_word t2;
20636 C_word t3;
20637 C_word t4;
20638 C_word t5;
20639 C_word t6;
20640 C_word t7;
20641 C_word t8;
20642 C_word t9;
20643 C_word t10;
20644 C_word t11;
20645 C_word t12;
20646 C_word t13;
20647 C_word t14;
20648 C_word t15;
20649 C_word t16;
20650 C_word t17;
20651 C_word t18;
20652 C_word t19;
20653 C_word t20;
20654 C_word t21;
20655 C_word t22;
20656 C_word t23;
20657 C_word t24;
20658 C_word t25;
20659 C_word t26;
20660 C_word t27;
20661 C_word t28;
20662 C_word t29;
20663 C_word *a;
20664 if(C_unlikely(!C_demand(C_calculate_demand(51,c,6)))){
20665 C_save_and_reclaim((void *)f_7812,c,av);}
20666 a=C_alloc(51);
20667 t2=C_mutate((C_word*)lf[100]+1 /* (set! chicken.compiler.support#string->expr ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7813,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
20668 t3=C_mutate((C_word*)lf[108]+1 /* (set! chicken.compiler.support#llist-length ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7931,tmp=(C_word)a,a+=2,tmp));
20669 t4=C_mutate((C_word*)lf[109]+1 /* (set! chicken.compiler.support#llist-match? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7934,tmp=(C_word)a,a+=2,tmp));
20670 t5=lf[110] /* chicken.compiler.support#profile-info-vector-name */ =C_SCHEME_FALSE;;
20671 t6=C_mutate((C_word*)lf[111]+1 /* (set! chicken.compiler.support#reset-profile-info-vector-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7979,tmp=(C_word)a,a+=2,tmp));
20672 t7=lf[114] /* chicken.compiler.support#profile-lambda-list */ =C_SCHEME_END_OF_LIST;;
20673 t8=lf[115] /* chicken.compiler.support#profile-lambda-index */ =C_fix(0);;
20674 t9=C_mutate((C_word*)lf[116]+1 /* (set! chicken.compiler.support#expand-profile-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7988,tmp=(C_word)a,a+=2,tmp));
20675 t10=C_mutate((C_word*)lf[122]+1 /* (set! chicken.compiler.support#profiling-prelude-exps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8043,tmp=(C_word)a,a+=2,tmp));
20676 t11=C_mutate((C_word*)lf[127]+1 /* (set! chicken.compiler.support#db-get ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8132,tmp=(C_word)a,a+=2,tmp));
20677 t12=C_mutate((C_word*)lf[129]+1 /* (set! chicken.compiler.support#db-get-all ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8150,tmp=(C_word)a,a+=2,tmp));
20678 t13=C_mutate((C_word*)lf[131]+1 /* (set! chicken.compiler.support#db-put! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8168,tmp=(C_word)a,a+=2,tmp));
20679 t14=C_mutate((C_word*)lf[133]+1 /* (set! chicken.compiler.support#collect! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8214,tmp=(C_word)a,a+=2,tmp));
20680 t15=C_mutate((C_word*)lf[134]+1 /* (set! chicken.compiler.support#db-get-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8266,tmp=(C_word)a,a+=2,tmp));
20681 t16=C_mutate((C_word*)lf[135]+1 /* (set! chicken.compiler.support#get-line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8275,tmp=(C_word)a,a+=2,tmp));
20682 t17=C_mutate((C_word*)lf[137]+1 /* (set! chicken.compiler.support#get-line-2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8285,tmp=(C_word)a,a+=2,tmp));
20683 t18=C_mutate((C_word*)lf[138]+1 /* (set! chicken.compiler.support#display-line-number-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8326,tmp=(C_word)a,a+=2,tmp));
20684 t19=C_mutate((C_word*)lf[140]+1 /* (set! chicken.compiler.support#make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8398,tmp=(C_word)a,a+=2,tmp));
20685 t20=C_mutate((C_word*)lf[142]+1 /* (set! chicken.compiler.support#node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8404,tmp=(C_word)a,a+=2,tmp));
20686 t21=C_mutate((C_word*)lf[143]+1 /* (set! chicken.compiler.support#node-class ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8410,tmp=(C_word)a,a+=2,tmp));
20687 t22=C_mutate((C_word*)lf[145]+1 /* (set! chicken.compiler.support#node-class-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8419,tmp=(C_word)a,a+=2,tmp));
20688 t23=C_mutate((C_word*)lf[147]+1 /* (set! chicken.compiler.support#node-parameters ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8428,tmp=(C_word)a,a+=2,tmp));
20689 t24=C_mutate((C_word*)lf[149]+1 /* (set! chicken.compiler.support#node-parameters-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8437,tmp=(C_word)a,a+=2,tmp));
20690 t25=C_mutate((C_word*)lf[150]+1 /* (set! chicken.compiler.support#node-subexpressions ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8446,tmp=(C_word)a,a+=2,tmp));
20691 t26=C_mutate((C_word*)lf[152]+1 /* (set! chicken.compiler.support#node-subexpressions-set! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8455,tmp=(C_word)a,a+=2,tmp));
20692 t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8465,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
20693 t28=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18158,tmp=(C_word)a,a+=2,tmp);
20694 /* support.scm:475: chicken.base#set-record-printer! */
20695 t29=*((C_word*)lf[545]+1);{
20696 C_word *av2;
20697 if(c >= 4) {
20698   av2=av;
20699 } else {
20700   av2=C_alloc(4);
20701 }
20702 av2[0]=t29;
20703 av2[1]=t27;
20704 av2[2]=lf[141];
20705 av2[3]=t28;
20706 ((C_proc)(void*)(*((C_word*)t29+1)))(4,av2);}}
20707 
20708 /* chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7813(C_word c,C_word * av)20709 static void C_ccall f_7813(C_word c,C_word *av){
20710 C_word tmp;
20711 C_word t0=av[0];
20712 C_word t1=av[1];
20713 C_word t2=av[2];
20714 C_word t3;
20715 C_word t4;
20716 C_word t5;
20717 C_word *a;
20718 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
20719 C_save_and_reclaim((void *)f_7813,c,av);}
20720 a=C_alloc(8);
20721 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7817,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
20722 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7822,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
20723 /* support.scm:347: scheme#call-with-current-continuation */
20724 t5=*((C_word*)lf[107]+1);{
20725 C_word *av2=av;
20726 av2[0]=t5;
20727 av2[1]=t3;
20728 av2[2]=t4;
20729 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20730 
20731 /* k7815 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7817(C_word c,C_word * av)20732 static void C_ccall f_7817(C_word c,C_word *av){
20733 C_word tmp;
20734 C_word t0=av[0];
20735 C_word t1=av[1];
20736 C_word t2;
20737 C_word *a;
20738 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20739 C_save_and_reclaim((void *)f_7817,c,av);}
20740 /* support.scm:346: g1086 */
20741 t2=t1;{
20742 C_word *av2=av;
20743 av2[0]=t2;
20744 av2[1]=((C_word*)t0)[2];
20745 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20746 
20747 /* a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7822(C_word c,C_word * av)20748 static void C_ccall f_7822(C_word c,C_word *av){
20749 C_word tmp;
20750 C_word t0=av[0];
20751 C_word t1=av[1];
20752 C_word t2=av[2];
20753 C_word t3;
20754 C_word t4;
20755 C_word t5;
20756 C_word *a;
20757 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
20758 C_save_and_reclaim((void *)f_7822,c,av);}
20759 a=C_alloc(10);
20760 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7828,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
20761 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7853,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
20762 /* support.scm:347: chicken.condition#with-exception-handler */
20763 t5=*((C_word*)lf[106]+1);{
20764 C_word *av2;
20765 if(c >= 4) {
20766   av2=av;
20767 } else {
20768   av2=C_alloc(4);
20769 }
20770 av2[0]=t5;
20771 av2[1]=t1;
20772 av2[2]=t3;
20773 av2[3]=t4;
20774 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
20775 
20776 /* a7827 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7828(C_word c,C_word * av)20777 static void C_ccall f_7828(C_word c,C_word *av){
20778 C_word tmp;
20779 C_word t0=av[0];
20780 C_word t1=av[1];
20781 C_word t2=av[2];
20782 C_word t3;
20783 C_word t4;
20784 C_word *a;
20785 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
20786 C_save_and_reclaim((void *)f_7828,c,av);}
20787 a=C_alloc(6);
20788 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7834,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
20789 /* support.scm:347: k1083 */
20790 t4=((C_word*)t0)[5];{
20791 C_word *av2=av;
20792 av2[0]=t4;
20793 av2[1]=t1;
20794 av2[2]=t3;
20795 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
20796 
20797 /* a7833 in a7827 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7834(C_word c,C_word * av)20798 static void C_ccall f_7834(C_word c,C_word *av){
20799 C_word tmp;
20800 C_word t0=av[0];
20801 C_word t1=av[1];
20802 C_word t2;
20803 C_word t3;
20804 C_word t4;
20805 C_word *a;
20806 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
20807 C_save_and_reclaim((void *)f_7834,c,av);}
20808 a=C_alloc(9);
20809 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7842,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
20810 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7845,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
20811 /* support.scm:350: exn? */
20812 t4=((C_word*)t0)[5];{
20813 C_word *av2;
20814 if(c >= 3) {
20815   av2=av;
20816 } else {
20817   av2=C_alloc(3);
20818 }
20819 av2[0]=t4;
20820 av2[1]=t3;
20821 av2[2]=((C_word*)t0)[4];
20822 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
20823 
20824 /* k7840 in a7833 in a7827 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7842(C_word c,C_word * av)20825 static void C_ccall f_7842(C_word c,C_word *av){
20826 C_word tmp;
20827 C_word t0=av[0];
20828 C_word t1=av[1];
20829 C_word t2;
20830 C_word *a;
20831 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
20832 C_save_and_reclaim((void *)f_7842,c,av);}
20833 /* support.scm:348: quit-compiling */
20834 t2=*((C_word*)lf[37]+1);{
20835 C_word *av2;
20836 if(c >= 5) {
20837   av2=av;
20838 } else {
20839   av2=C_alloc(5);
20840 }
20841 av2[0]=t2;
20842 av2[1]=((C_word*)t0)[2];
20843 av2[2]=lf[101];
20844 av2[3]=((C_word*)t0)[3];
20845 av2[4]=t1;
20846 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
20847 
20848 /* k7843 in a7833 in a7827 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7845(C_word c,C_word * av)20849 static void C_ccall f_7845(C_word c,C_word *av){
20850 C_word tmp;
20851 C_word t0=av[0];
20852 C_word t1=av[1];
20853 C_word t2;
20854 C_word *a;
20855 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
20856 C_save_and_reclaim((void *)f_7845,c,av);}
20857 if(C_truep(t1)){
20858 /* support.scm:351: exn-msg */
20859 t2=((C_word*)t0)[2];{
20860 C_word *av2;
20861 if(c >= 3) {
20862   av2=av;
20863 } else {
20864   av2=C_alloc(3);
20865 }
20866 av2[0]=t2;
20867 av2[1]=((C_word*)t0)[3];
20868 av2[2]=((C_word*)t0)[4];
20869 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
20870 else{
20871 /* support.scm:352: chicken.string#->string */
20872 t2=*((C_word*)lf[66]+1);{
20873 C_word *av2;
20874 if(c >= 3) {
20875   av2=av;
20876 } else {
20877   av2=C_alloc(3);
20878 }
20879 av2[0]=t2;
20880 av2[1]=((C_word*)t0)[3];
20881 av2[2]=((C_word*)t0)[4];
20882 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}
20883 
20884 /* a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7853(C_word c,C_word * av)20885 static void C_ccall f_7853(C_word c,C_word *av){
20886 C_word tmp;
20887 C_word t0=av[0];
20888 C_word t1=av[1];
20889 C_word t2;
20890 C_word t3;
20891 C_word t4;
20892 C_word t5;
20893 C_word *a;
20894 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
20895 C_save_and_reclaim((void *)f_7853,c,av);}
20896 a=C_alloc(10);
20897 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7855,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20898 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7912,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
20899 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7929,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
20900 /* tmp14965 */
20901 t5=t2;
20902 f_7855(t5,t4);}
20903 
20904 /* tmp14965 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7855(C_word t0,C_word t1)20905 static void C_fcall f_7855(C_word t0,C_word t1){
20906 C_word tmp;
20907 C_word t2;
20908 C_word t3;
20909 C_word t4;
20910 C_word *a;
20911 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
20912 C_save_and_reclaim_args((void *)trf_7855,2,t0,t1);}
20913 a=C_alloc(5);
20914 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7859,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
20915 t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7881,tmp=(C_word)a,a+=2,tmp);
20916 /* support.scm:353: chicken.port#with-input-from-string */
20917 t4=*((C_word*)lf[105]+1);{
20918 C_word av2[4];
20919 av2[0]=t4;
20920 av2[1]=t2;
20921 av2[2]=((C_word*)t0)[2];
20922 av2[3]=t3;
20923 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
20924 
20925 /* k7857 in tmp14965 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7859(C_word c,C_word * av)20926 static void C_ccall f_7859(C_word c,C_word *av){
20927 C_word tmp;
20928 C_word t0=av[0];
20929 C_word t1=av[1];
20930 C_word t2;
20931 C_word t3;
20932 C_word t4;
20933 C_word *a;
20934 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
20935 C_save_and_reclaim((void *)f_7859,c,av);}
20936 a=C_alloc(3);
20937 if(C_truep(C_i_nullp(t1))){
20938 t2=((C_word*)t0)[2];{
20939 C_word *av2=av;
20940 av2[0]=t2;
20941 av2[1]=lf[102];
20942 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20943 else{
20944 t2=C_i_cdr(t1);
20945 t3=C_i_nullp(t2);
20946 t4=((C_word*)t0)[2];{
20947 C_word *av2=av;
20948 av2[0]=t4;
20949 av2[1]=(C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[103],t1));
20950 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
20951 
20952 /* a7880 in tmp14965 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7881(C_word c,C_word * av)20953 static void C_ccall f_7881(C_word c,C_word *av){
20954 C_word tmp;
20955 C_word t0=av[0];
20956 C_word t1=av[1];
20957 C_word t2;
20958 C_word t3;
20959 C_word t4;
20960 C_word t5;
20961 C_word *a;
20962 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
20963 C_save_and_reclaim((void *)f_7881,c,av);}
20964 a=C_alloc(5);
20965 t2=C_SCHEME_UNDEFINED;
20966 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
20967 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7887,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
20968 t5=((C_word*)t3)[1];
20969 f_7887(t5,t1,C_SCHEME_END_OF_LIST);}
20970 
20971 /* loop in a7880 in tmp14965 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7887(C_word t0,C_word t1,C_word t2)20972 static void C_fcall f_7887(C_word t0,C_word t1,C_word t2){
20973 C_word tmp;
20974 C_word t3;
20975 C_word t4;
20976 C_word *a;
20977 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
20978 C_save_and_reclaim_args((void *)trf_7887,3,t0,t1,t2);}
20979 a=C_alloc(5);
20980 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7891,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
20981 /* support.scm:357: scheme#read */
20982 t4=*((C_word*)lf[83]+1);{
20983 C_word av2[2];
20984 av2[0]=t4;
20985 av2[1]=t3;
20986 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20987 
20988 /* k7889 in loop in a7880 in tmp14965 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7891(C_word c,C_word * av)20989 static void C_ccall f_7891(C_word c,C_word *av){
20990 C_word tmp;
20991 C_word t0=av[0];
20992 C_word t1=av[1];
20993 C_word t2;
20994 C_word t3;
20995 C_word *a;
20996 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
20997 C_save_and_reclaim((void *)f_7891,c,av);}
20998 a=C_alloc(3);
20999 if(C_truep(C_eofp(t1))){
21000 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
21001 /* support.scm:359: scheme#reverse */
21002 t3=*((C_word*)lf[80]+1);{
21003 C_word *av2;
21004 if(c >= 3) {
21005   av2=av;
21006 } else {
21007   av2=C_alloc(3);
21008 }
21009 av2[0]=t3;
21010 av2[1]=t2;
21011 av2[2]=((C_word*)t0)[3];
21012 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
21013 else{
21014 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
21015 /* support.scm:360: loop */
21016 t3=((C_word*)((C_word*)t0)[4])[1];
21017 f_7887(t3,((C_word*)t0)[2],t2);}}
21018 
21019 /* k7902 in k7889 in loop in a7880 in tmp14965 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7904(C_word c,C_word * av)21020 static void C_ccall f_7904(C_word c,C_word *av){
21021 C_word tmp;
21022 C_word t0=av[0];
21023 C_word t1=av[1];
21024 C_word t2;
21025 C_word *a;
21026 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21027 C_save_and_reclaim((void *)f_7904,c,av);}{
21028 C_word *av2;
21029 if(c >= 4) {
21030   av2=av;
21031 } else {
21032   av2=C_alloc(4);
21033 }
21034 av2[0]=0;
21035 av2[1]=((C_word*)t0)[2];
21036 av2[2]=*((C_word*)lf[104]+1);
21037 av2[3]=t1;
21038 C_apply(4,av2);}}
21039 
21040 /* tmp24966 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7912(C_word t0,C_word t1,C_word t2)21041 static void C_fcall f_7912(C_word t0,C_word t1,C_word t2){
21042 C_word tmp;
21043 C_word t3;
21044 C_word t4;
21045 C_word *a;
21046 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
21047 C_save_and_reclaim_args((void *)trf_7912,3,t0,t1,t2);}
21048 a=C_alloc(3);
21049 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7918,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21050 /* support.scm:347: k1083 */
21051 t4=((C_word*)t0)[2];{
21052 C_word av2[3];
21053 av2[0]=t4;
21054 av2[1]=t1;
21055 av2[2]=t3;
21056 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
21057 
21058 /* a7917 in tmp24966 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7918(C_word c,C_word * av)21059 static void C_ccall f_7918(C_word c,C_word *av){
21060 C_word tmp;
21061 C_word t0=av[0];
21062 C_word t1=av[1];
21063 C_word t2;
21064 C_word *a;
21065 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
21066 C_save_and_reclaim((void *)f_7918,c,av);}{
21067 C_word *av2;
21068 if(c >= 3) {
21069   av2=av;
21070 } else {
21071   av2=C_alloc(3);
21072 }
21073 av2[0]=0;
21074 av2[1]=t1;
21075 av2[2]=((C_word*)t0)[2];
21076 C_apply_values(3,av2);}}
21077 
21078 /* k7927 in a7852 in a7821 in chicken.compiler.support#string->expr in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7929(C_word c,C_word * av)21079 static void C_ccall f_7929(C_word c,C_word *av){
21080 C_word tmp;
21081 C_word t0=av[0];
21082 C_word t1=av[1];
21083 C_word t2;
21084 C_word *a;
21085 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
21086 C_save_and_reclaim((void *)f_7929,c,av);}
21087 a=C_alloc(3);
21088 /* tmp24966 */
21089 t2=((C_word*)t0)[2];
21090 f_7912(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));}
21091 
21092 /* chicken.compiler.support#llist-length in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7931(C_word c,C_word * av)21093 static void C_ccall f_7931(C_word c,C_word *av){
21094 C_word tmp;
21095 C_word t0=av[0];
21096 C_word t1=av[1];
21097 C_word t2=av[2];
21098 C_word t3;
21099 C_word *a;
21100 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
21101 C_save_and_reclaim((void *)f_7931,c,av);}
21102 t3=t1;{
21103 C_word *av2=av;
21104 av2[0]=t3;
21105 av2[1]=C_u_i_length(t2);
21106 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
21107 
21108 /* chicken.compiler.support#llist-match? in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7934(C_word c,C_word * av)21109 static void C_ccall f_7934(C_word c,C_word *av){
21110 C_word tmp;
21111 C_word t0=av[0];
21112 C_word t1=av[1];
21113 C_word t2=av[2];
21114 C_word t3=av[3];
21115 C_word t4;
21116 C_word t5;
21117 C_word *a;
21118 if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
21119 C_save_and_reclaim((void *)f_7934,c,av);}
21120 a=C_alloc(2);
21121 t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7940,tmp=(C_word)a,a+=2,tmp);
21122 t5=t1;{
21123 C_word *av2=av;
21124 av2[0]=t5;
21125 av2[1]=(
21126   f_7940(t2,t3)
21127 );
21128 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
21129 
21130 /* loop in chicken.compiler.support#llist-match? in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7940(C_word t1,C_word t2)21131 static C_word C_fcall f_7940(C_word t1,C_word t2){
21132 C_word tmp;
21133 C_word t3;
21134 C_word t4;
21135 C_word t5;
21136 C_word t6;
21137 C_stack_overflow_check;
21138 loop:{}
21139 if(C_truep(C_i_nullp(t1))){
21140 return(C_i_nullp(t2));}
21141 else{
21142 t3=C_i_symbolp(t1);
21143 if(C_truep(t3)){
21144 return(t3);}
21145 else{
21146 if(C_truep(C_i_nullp(t2))){
21147 return(C_i_not_pair_p(t1));}
21148 else{
21149 t5=C_i_cdr(t1);
21150 t6=C_i_cdr(t2);
21151 t1=t5;
21152 t2=t6;
21153 goto loop;}}}}
21154 
21155 /* chicken.compiler.support#reset-profile-info-vector-name! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7979(C_word c,C_word * av)21156 static void C_ccall f_7979(C_word c,C_word *av){
21157 C_word tmp;
21158 C_word t0=av[0];
21159 C_word t1=av[1];
21160 C_word t2;
21161 C_word t3;
21162 C_word *a;
21163 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
21164 C_save_and_reclaim((void *)f_7979,c,av);}
21165 a=C_alloc(3);
21166 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7984,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
21167 /* support.scm:381: make-random-name */
21168 t3=*((C_word*)lf[112]+1);{
21169 C_word *av2;
21170 if(c >= 3) {
21171   av2=av;
21172 } else {
21173   av2=C_alloc(3);
21174 }
21175 av2[0]=t3;
21176 av2[1]=t2;
21177 av2[2]=lf[113];
21178 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
21179 
21180 /* k7982 in chicken.compiler.support#reset-profile-info-vector-name! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7984(C_word c,C_word * av)21181 static void C_ccall f_7984(C_word c,C_word *av){
21182 C_word tmp;
21183 C_word t0=av[0];
21184 C_word t1=av[1];
21185 C_word t2;
21186 C_word t3;
21187 C_word *a;
21188 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
21189 C_save_and_reclaim((void *)f_7984,c,av);}
21190 t2=C_mutate(&lf[110] /* (set! chicken.compiler.support#profile-info-vector-name ...) */,t1);
21191 t3=((C_word*)t0)[2];{
21192 C_word *av2=av;
21193 av2[0]=t3;
21194 av2[1]=t2;
21195 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
21196 
21197 /* chicken.compiler.support#expand-profile-lambda in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7988(C_word c,C_word * av)21198 static void C_ccall f_7988(C_word c,C_word *av){
21199 C_word tmp;
21200 C_word t0=av[0];
21201 C_word t1=av[1];
21202 C_word t2=av[2];
21203 C_word t3=av[3];
21204 C_word t4=av[4];
21205 C_word t5;
21206 C_word t6;
21207 C_word t7;
21208 C_word *a;
21209 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
21210 C_save_and_reclaim((void *)f_7988,c,av);}
21211 a=C_alloc(7);
21212 t5=lf[115];
21213 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7992,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
21214 /* support.scm:388: chicken.base#gensym */
21215 t7=*((C_word*)lf[97]+1);{
21216 C_word *av2=av;
21217 av2[0]=t7;
21218 av2[1]=t6;
21219 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
21220 
21221 /* k7990 in chicken.compiler.support#expand-profile-lambda in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_7992(C_word c,C_word * av)21222 static void C_ccall f_7992(C_word c,C_word *av){
21223 C_word tmp;
21224 C_word t0=av[0];
21225 C_word t1=av[1];
21226 C_word t2;
21227 C_word t3;
21228 C_word t4;
21229 C_word t5;
21230 C_word t6;
21231 C_word t7;
21232 C_word t8;
21233 C_word t9;
21234 C_word t10;
21235 C_word t11;
21236 C_word t12;
21237 C_word t13;
21238 C_word t14;
21239 C_word t15;
21240 C_word t16;
21241 C_word t17;
21242 C_word *a;
21243 if(C_unlikely(!C_demand(C_calculate_demand(131,c,1)))){
21244 C_save_and_reclaim((void *)f_7992,c,av);}
21245 a=C_alloc(131);
21246 t2=lf[114];
21247 t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
21248 t4=C_a_i_cons(&a,2,t3,lf[114]);
21249 t5=C_mutate(&lf[114] /* (set! chicken.compiler.support#profile-lambda-list ...) */,t4);
21250 t6=C_mutate(&lf[115] /* (set! chicken.compiler.support#profile-lambda-index ...) */,C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)));
21251 t7=C_a_i_list(&a,2,lf[85],((C_word*)t0)[2]);
21252 t8=C_a_i_list(&a,3,lf[117],t7,lf[110]);
21253 t9=C_a_i_list(&a,3,lf[118],C_SCHEME_END_OF_LIST,t8);
21254 t10=C_a_i_list(&a,3,lf[118],((C_word*)t0)[4],((C_word*)t0)[5]);
21255 t11=C_a_i_list(&a,3,lf[119],t10,t1);
21256 t12=C_a_i_list(&a,3,lf[118],C_SCHEME_END_OF_LIST,t11);
21257 t13=C_a_i_list(&a,2,lf[85],((C_word*)t0)[2]);
21258 t14=C_a_i_list(&a,3,lf[120],t13,lf[110]);
21259 t15=C_a_i_list(&a,3,lf[118],C_SCHEME_END_OF_LIST,t14);
21260 t16=C_a_i_list(&a,4,lf[121],t9,t12,t15);
21261 t17=((C_word*)t0)[6];{
21262 C_word *av2=av;
21263 av2[0]=t17;
21264 av2[1]=C_a_i_list(&a,3,lf[118],t1,t16);
21265 ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
21266 
21267 /* chicken.compiler.support#profiling-prelude-exps in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8043(C_word c,C_word * av)21268 static void C_ccall f_8043(C_word c,C_word *av){
21269 C_word tmp;
21270 C_word t0=av[0];
21271 C_word t1=av[1];
21272 C_word t2=av[2];
21273 C_word t3;
21274 C_word t4;
21275 C_word t5;
21276 C_word t6;
21277 C_word t7;
21278 C_word t8;
21279 C_word t9;
21280 C_word t10;
21281 C_word t11;
21282 C_word t12;
21283 C_word t13;
21284 C_word t14;
21285 C_word t15;
21286 C_word t16;
21287 C_word t17;
21288 C_word t18;
21289 C_word *a;
21290 if(C_unlikely(!C_demand(C_calculate_demand(46,c,3)))){
21291 C_save_and_reclaim((void *)f_8043,c,av);}
21292 a=C_alloc(46);
21293 t3=C_i_length(lf[114]);
21294 t4=C_a_i_list(&a,2,lf[85],t3);
21295 t5=C_a_i_list(&a,2,lf[85],t2);
21296 t6=C_a_i_list(&a,3,lf[123],t4,t5);
21297 t7=C_a_i_list(&a,3,lf[124],lf[110],t6);
21298 t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
21299 t9=t8;
21300 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
21301 t11=((C_word*)t10)[1];
21302 t12=lf[114];
21303 t13=C_i_check_list_2(lf[114],lf[125]);
21304 t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8080,a[2]=t1,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
21305 t15=C_SCHEME_UNDEFINED;
21306 t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
21307 t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8082,a[2]=t10,a[3]=t16,a[4]=t11,tmp=(C_word)a,a+=5,tmp));
21308 t18=((C_word*)t16)[1];
21309 f_8082(t18,t14,lf[114]);}
21310 
21311 /* k8078 in chicken.compiler.support#profiling-prelude-exps in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8080(C_word c,C_word * av)21312 static void C_ccall f_8080(C_word c,C_word *av){
21313 C_word tmp;
21314 C_word t0=av[0];
21315 C_word t1=av[1];
21316 C_word t2;
21317 C_word *a;
21318 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
21319 C_save_and_reclaim((void *)f_8080,c,av);}
21320 a=C_alloc(3);
21321 t2=((C_word*)t0)[2];{
21322 C_word *av2=av;
21323 av2[0]=t2;
21324 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
21325 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
21326 
21327 /* map-loop1141 in chicken.compiler.support#profiling-prelude-exps in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8082(C_word t0,C_word t1,C_word t2)21328 static void C_fcall f_8082(C_word t0,C_word t1,C_word t2){
21329 C_word tmp;
21330 C_word t3;
21331 C_word t4;
21332 C_word t5;
21333 C_word t6;
21334 C_word t7;
21335 C_word t8;
21336 C_word t9;
21337 C_word t10;
21338 C_word t11;
21339 C_word t12;
21340 C_word t13;
21341 C_word t14;
21342 C_word *a;
21343 loop:
21344 if(C_unlikely(!C_demand(C_calculate_demand(27,0,2)))){
21345 C_save_and_reclaim_args((void *)trf_8082,3,t0,t1,t2);}
21346 a=C_alloc(27);
21347 if(C_truep(C_i_pairp(t2))){
21348 t3=C_slot(t2,C_fix(0));
21349 t4=C_i_car(t3);
21350 t5=C_a_i_list(&a,2,lf[85],t4);
21351 t6=C_u_i_cdr(t3);
21352 t7=C_a_i_list(&a,2,lf[85],t6);
21353 t8=C_a_i_list(&a,4,lf[126],lf[110],t5,t7);
21354 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
21355 t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
21356 t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
21357 t13=t1;
21358 t14=C_slot(t2,C_fix(1));
21359 t1=t13;
21360 t2=t14;
21361 goto loop;}
21362 else{
21363 t3=t1;{
21364 C_word av2[2];
21365 av2[0]=t3;
21366 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
21367 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
21368 
21369 /* chicken.compiler.support#db-get in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8132(C_word c,C_word * av)21370 static void C_ccall f_8132(C_word c,C_word *av){
21371 C_word tmp;
21372 C_word t0=av[0];
21373 C_word t1=av[1];
21374 C_word t2=av[2];
21375 C_word t3=av[3];
21376 C_word t4=av[4];
21377 C_word t5;
21378 C_word t6;
21379 C_word *a;
21380 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
21381 C_save_and_reclaim((void *)f_8132,c,av);}
21382 a=C_alloc(4);
21383 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8136,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
21384 /* support.scm:413: chicken.internal#hash-table-ref */
21385 t6=*((C_word*)lf[128]+1);{
21386 C_word *av2=av;
21387 av2[0]=t6;
21388 av2[1]=t5;
21389 av2[2]=t2;
21390 av2[3]=t3;
21391 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
21392 
21393 /* k8134 in chicken.compiler.support#db-get in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8136(C_word c,C_word * av)21394 static void C_ccall f_8136(C_word c,C_word *av){
21395 C_word tmp;
21396 C_word t0=av[0];
21397 C_word t1=av[1];
21398 C_word t2;
21399 C_word t3;
21400 C_word *a;
21401 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
21402 C_save_and_reclaim((void *)f_8136,c,av);}
21403 if(C_truep(t1)){
21404 t2=C_i_assq(((C_word*)t0)[2],t1);
21405 t3=((C_word*)t0)[3];{
21406 C_word *av2=av;
21407 av2[0]=t3;
21408 av2[1]=(C_truep(t2)?C_slot(t2,C_fix(1)):C_SCHEME_FALSE);
21409 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
21410 else{
21411 t2=((C_word*)t0)[3];{
21412 C_word *av2=av;
21413 av2[0]=t2;
21414 av2[1]=C_SCHEME_FALSE;
21415 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
21416 
21417 /* chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8150(C_word c,C_word * av)21418 static void C_ccall f_8150(C_word c,C_word *av){
21419 C_word tmp;
21420 C_word t0=av[0];
21421 C_word t1=av[1];
21422 C_word t2=av[2];
21423 C_word t3=av[3];
21424 C_word t4;
21425 C_word *a;
21426 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +4,c,3)))){
21427 C_save_and_reclaim((void*)f_8150,c,av);}
21428 a=C_alloc((c-4)*C_SIZEOF_PAIR+4);
21429 t4=C_build_rest(&a,c,4,av);
21430 C_word t5;
21431 C_word t6;
21432 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8154,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
21433 /* support.scm:419: chicken.internal#hash-table-ref */
21434 t6=*((C_word*)lf[128]+1);{
21435 C_word *av2=av;
21436 av2[0]=t6;
21437 av2[1]=t5;
21438 av2[2]=t2;
21439 av2[3]=t3;
21440 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
21441 
21442 /* k8152 in chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8154(C_word c,C_word * av)21443 static void C_ccall f_8154(C_word c,C_word *av){
21444 C_word tmp;
21445 C_word t0=av[0];
21446 C_word t1=av[1];
21447 C_word t2;
21448 C_word t3;
21449 C_word t4;
21450 C_word t5;
21451 C_word t6;
21452 C_word t7;
21453 C_word *a;
21454 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
21455 C_save_and_reclaim((void *)f_8154,c,av);}
21456 a=C_alloc(9);
21457 if(C_truep(t1)){
21458 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8162,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
21459 t3=C_i_check_list_2(((C_word*)t0)[2],lf[130]);
21460 t4=C_SCHEME_UNDEFINED;
21461 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
21462 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6036,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
21463 t7=((C_word*)t5)[1];
21464 f_6036(t7,((C_word*)t0)[3],((C_word*)t0)[2]);}
21465 else{
21466 t2=((C_word*)t0)[3];{
21467 C_word *av2=av;
21468 av2[0]=t2;
21469 av2[1]=C_SCHEME_END_OF_LIST;
21470 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
21471 
21472 /* a8161 in k8152 in chicken.compiler.support#db-get-all in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8162(C_word t0,C_word t1)21473 static C_word C_fcall f_8162(C_word t0,C_word t1){
21474 C_word tmp;
21475 C_word t2;
21476 C_stack_overflow_check;{}
21477 return(C_i_assq(t1,((C_word*)t0)[2]));}
21478 
21479 /* chicken.compiler.support#db-put! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8168(C_word c,C_word * av)21480 static void C_ccall f_8168(C_word c,C_word *av){
21481 C_word tmp;
21482 C_word t0=av[0];
21483 C_word t1=av[1];
21484 C_word t2=av[2];
21485 C_word t3=av[3];
21486 C_word t4=av[4];
21487 C_word t5=av[5];
21488 C_word t6;
21489 C_word t7;
21490 C_word *a;
21491 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
21492 C_save_and_reclaim((void *)f_8168,c,av);}
21493 a=C_alloc(7);
21494 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8172,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
21495 /* support.scm:425: chicken.internal#hash-table-ref */
21496 t7=*((C_word*)lf[128]+1);{
21497 C_word *av2=av;
21498 av2[0]=t7;
21499 av2[1]=t6;
21500 av2[2]=t2;
21501 av2[3]=t3;
21502 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
21503 
21504 /* k8170 in chicken.compiler.support#db-put! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8172(C_word c,C_word * av)21505 static void C_ccall f_8172(C_word c,C_word *av){
21506 C_word tmp;
21507 C_word t0=av[0];
21508 C_word t1=av[1];
21509 C_word t2;
21510 C_word t3;
21511 C_word t4;
21512 C_word t5;
21513 C_word t6;
21514 C_word *a;
21515 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
21516 C_save_and_reclaim((void *)f_8172,c,av);}
21517 a=C_alloc(6);
21518 if(C_truep(t1)){
21519 t2=C_i_assq(((C_word*)t0)[2],t1);
21520 if(C_truep(t2)){
21521 t3=((C_word*)t0)[3];{
21522 C_word *av2=av;
21523 av2[0]=t3;
21524 av2[1]=C_i_setslot(t2,C_fix(1),((C_word*)t0)[4]);
21525 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
21526 else{
21527 if(C_truep(((C_word*)t0)[4])){
21528 t3=C_slot(t1,C_fix(1));
21529 t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]);
21530 t5=C_a_i_cons(&a,2,t4,t3);
21531 t6=((C_word*)t0)[3];{
21532 C_word *av2=av;
21533 av2[0]=t6;
21534 av2[1]=C_i_setslot(t1,C_fix(1),t5);
21535 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
21536 else{
21537 t3=C_SCHEME_UNDEFINED;
21538 t4=((C_word*)t0)[3];{
21539 C_word *av2=av;
21540 av2[0]=t4;
21541 av2[1]=t3;
21542 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
21543 else{
21544 if(C_truep(((C_word*)t0)[4])){
21545 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]);
21546 t3=C_a_i_list1(&a,1,t2);
21547 /* support.scm:430: chicken.internal#hash-table-set! */
21548 t4=*((C_word*)lf[132]+1);{
21549 C_word *av2;
21550 if(c >= 5) {
21551   av2=av;
21552 } else {
21553   av2=C_alloc(5);
21554 }
21555 av2[0]=t4;
21556 av2[1]=((C_word*)t0)[3];
21557 av2[2]=((C_word*)t0)[5];
21558 av2[3]=((C_word*)t0)[6];
21559 av2[4]=t3;
21560 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
21561 else{
21562 t2=((C_word*)t0)[3];{
21563 C_word *av2=av;
21564 av2[0]=t2;
21565 av2[1]=C_SCHEME_UNDEFINED;
21566 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
21567 
21568 /* chicken.compiler.support#collect! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8214(C_word c,C_word * av)21569 static void C_ccall f_8214(C_word c,C_word *av){
21570 C_word tmp;
21571 C_word t0=av[0];
21572 C_word t1=av[1];
21573 C_word t2=av[2];
21574 C_word t3=av[3];
21575 C_word t4=av[4];
21576 C_word t5=av[5];
21577 C_word t6;
21578 C_word t7;
21579 C_word *a;
21580 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
21581 C_save_and_reclaim((void *)f_8214,c,av);}
21582 a=C_alloc(7);
21583 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8218,a[2]=t4,a[3]=t5,a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
21584 /* support.scm:433: chicken.internal#hash-table-ref */
21585 t7=*((C_word*)lf[128]+1);{
21586 C_word *av2=av;
21587 av2[0]=t7;
21588 av2[1]=t6;
21589 av2[2]=t2;
21590 av2[3]=t3;
21591 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
21592 
21593 /* k8216 in chicken.compiler.support#collect! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8218(C_word c,C_word * av)21594 static void C_ccall f_8218(C_word c,C_word *av){
21595 C_word tmp;
21596 C_word t0=av[0];
21597 C_word t1=av[1];
21598 C_word t2;
21599 C_word t3;
21600 C_word t4;
21601 C_word t5;
21602 C_word t6;
21603 C_word t7;
21604 C_word *a;
21605 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
21606 C_save_and_reclaim((void *)f_8218,c,av);}
21607 a=C_alloc(9);
21608 if(C_truep(t1)){
21609 t2=C_i_assq(((C_word*)t0)[2],t1);
21610 if(C_truep(t2)){
21611 t3=C_slot(t2,C_fix(1));
21612 t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3);
21613 t5=((C_word*)t0)[4];{
21614 C_word *av2=av;
21615 av2[0]=t5;
21616 av2[1]=C_i_setslot(t2,C_fix(1),t4);
21617 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
21618 else{
21619 t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
21620 t4=C_slot(t1,C_fix(1));
21621 t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t3);
21622 t6=C_a_i_cons(&a,2,t5,t4);
21623 t7=((C_word*)t0)[4];{
21624 C_word *av2=av;
21625 av2[0]=t7;
21626 av2[1]=C_i_setslot(t1,C_fix(1),t6);
21627 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
21628 else{
21629 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
21630 t3=C_a_i_list1(&a,1,t2);
21631 /* support.scm:438: chicken.internal#hash-table-set! */
21632 t4=*((C_word*)lf[132]+1);{
21633 C_word *av2;
21634 if(c >= 5) {
21635   av2=av;
21636 } else {
21637   av2=C_alloc(5);
21638 }
21639 av2[0]=t4;
21640 av2[1]=((C_word*)t0)[4];
21641 av2[2]=((C_word*)t0)[5];
21642 av2[3]=((C_word*)t0)[6];
21643 av2[4]=t3;
21644 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
21645 
21646 /* chicken.compiler.support#db-get-list in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8266(C_word c,C_word * av)21647 static void C_ccall f_8266(C_word c,C_word *av){
21648 C_word tmp;
21649 C_word t0=av[0];
21650 C_word t1=av[1];
21651 C_word t2=av[2];
21652 C_word t3=av[3];
21653 C_word t4=av[4];
21654 C_word t5;
21655 C_word t6;
21656 C_word *a;
21657 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
21658 C_save_and_reclaim((void *)f_8266,c,av);}
21659 a=C_alloc(3);
21660 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8270,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
21661 /* support.scm:441: db-get */
21662 t6=*((C_word*)lf[127]+1);{
21663 C_word *av2=av;
21664 av2[0]=t6;
21665 av2[1]=t5;
21666 av2[2]=t2;
21667 av2[3]=t3;
21668 av2[4]=t4;
21669 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
21670 
21671 /* k8268 in chicken.compiler.support#db-get-list in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8270(C_word c,C_word * av)21672 static void C_ccall f_8270(C_word c,C_word *av){
21673 C_word tmp;
21674 C_word t0=av[0];
21675 C_word t1=av[1];
21676 C_word t2;
21677 C_word *a;
21678 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
21679 C_save_and_reclaim((void *)f_8270,c,av);}
21680 t2=((C_word*)t0)[2];{
21681 C_word *av2=av;
21682 av2[0]=t2;
21683 av2[1]=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
21684 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
21685 
21686 /* chicken.compiler.support#get-line in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8275(C_word c,C_word * av)21687 static void C_ccall f_8275(C_word c,C_word *av){
21688 C_word tmp;
21689 C_word t0=av[0];
21690 C_word t1=av[1];
21691 C_word t2=av[2];
21692 C_word t3;
21693 C_word *a;
21694 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
21695 C_save_and_reclaim((void *)f_8275,c,av);}
21696 /* support.scm:448: db-get */
21697 t3=*((C_word*)lf[127]+1);{
21698 C_word *av2;
21699 if(c >= 5) {
21700   av2=av;
21701 } else {
21702   av2=C_alloc(5);
21703 }
21704 av2[0]=t3;
21705 av2[1]=t1;
21706 av2[2]=*((C_word*)lf[136]+1);
21707 av2[3]=C_i_car(t2);
21708 av2[4]=t2;
21709 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
21710 
21711 /* chicken.compiler.support#get-line-2 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8285(C_word c,C_word * av)21712 static void C_ccall f_8285(C_word c,C_word *av){
21713 C_word tmp;
21714 C_word t0=av[0];
21715 C_word t1=av[1];
21716 C_word t2=av[2];
21717 C_word t3;
21718 C_word t4;
21719 C_word t5;
21720 C_word *a;
21721 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
21722 C_save_and_reclaim((void *)f_8285,c,av);}
21723 a=C_alloc(5);
21724 t3=C_i_car(t2);
21725 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8292,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
21726 /* support.scm:452: chicken.internal#hash-table-ref */
21727 t5=*((C_word*)lf[128]+1);{
21728 C_word *av2;
21729 if(c >= 4) {
21730   av2=av;
21731 } else {
21732   av2=C_alloc(4);
21733 }
21734 av2[0]=t5;
21735 av2[1]=t4;
21736 av2[2]=*((C_word*)lf[136]+1);
21737 av2[3]=t3;
21738 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
21739 
21740 /* k8290 in chicken.compiler.support#get-line-2 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8292(C_word c,C_word * av)21741 static void C_ccall f_8292(C_word c,C_word *av){
21742 C_word tmp;
21743 C_word t0=av[0];
21744 C_word t1=av[1];
21745 C_word t2;
21746 C_word t3;
21747 C_word t4;
21748 C_word *a;
21749 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
21750 C_save_and_reclaim((void *)f_8292,c,av);}
21751 a=C_alloc(3);
21752 t2=(C_truep(t1)?C_i_assq(((C_word*)t0)[2],C_i_cdr(t1)):C_SCHEME_FALSE);
21753 if(C_truep(t2)){
21754 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8299,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
21755 /* support.scm:453: g1224 */
21756 t4=t3;
21757 f_8299(t4,((C_word*)t0)[3],t2);}
21758 else{
21759 /* support.scm:455: scheme#values */{
21760 C_word *av2;
21761 if(c >= 4) {
21762   av2=av;
21763 } else {
21764   av2=C_alloc(4);
21765 }
21766 av2[0]=0;
21767 av2[1]=((C_word*)t0)[3];
21768 av2[2]=((C_word*)t0)[4];
21769 av2[3]=C_SCHEME_FALSE;
21770 C_values(4,av2);}}}
21771 
21772 /* g1224 in k8290 in chicken.compiler.support#get-line-2 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8299(C_word t0,C_word t1,C_word t2)21773 static void C_fcall f_8299(C_word t0,C_word t1,C_word t2){
21774 C_word tmp;
21775 C_word t3;
21776 C_word *a;
21777 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
21778 C_save_and_reclaim_args((void *)trf_8299,3,t0,t1,t2);}
21779 /* support.scm:454: scheme#values */{
21780 C_word av2[4];
21781 av2[0]=0;
21782 av2[1]=t1;
21783 av2[2]=C_i_car(((C_word*)t0)[2]);
21784 av2[3]=C_i_cdr(t2);
21785 C_values(4,av2);}}
21786 
21787 /* chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8326(C_word c,C_word * av)21788 static void C_ccall f_8326(C_word c,C_word *av){
21789 C_word tmp;
21790 C_word t0=av[0];
21791 C_word t1=av[1];
21792 C_word t2;
21793 C_word t3;
21794 C_word *a;
21795 if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
21796 C_save_and_reclaim((void *)f_8326,c,av);}
21797 a=C_alloc(2);
21798 t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8332,tmp=(C_word)a,a+=2,tmp);
21799 /* support.scm:458: chicken.internal#hash-table-for-each */
21800 t3=*((C_word*)lf[139]+1);{
21801 C_word *av2;
21802 if(c >= 4) {
21803   av2=av;
21804 } else {
21805   av2=C_alloc(4);
21806 }
21807 av2[0]=t3;
21808 av2[1]=t1;
21809 av2[2]=t2;
21810 av2[3]=*((C_word*)lf[136]+1);
21811 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
21812 
21813 /* a8331 in chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8332(C_word c,C_word * av)21814 static void C_ccall f_8332(C_word c,C_word *av){
21815 C_word tmp;
21816 C_word t0=av[0];
21817 C_word t1=av[1];
21818 C_word t2=av[2];
21819 C_word t3=av[3];
21820 C_word t4;
21821 C_word t5;
21822 C_word t6;
21823 C_word t7;
21824 C_word t8;
21825 C_word *a;
21826 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
21827 C_save_and_reclaim((void *)f_8332,c,av);}
21828 a=C_alloc(5);
21829 if(C_truep(t3)){
21830 t4=*((C_word*)lf[24]+1);
21831 t5=*((C_word*)lf[24]+1);
21832 t6=C_i_check_port_2(*((C_word*)lf[24]+1),C_fix(2),C_SCHEME_TRUE,lf[25]);
21833 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8342,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
21834 /* support.scm:460: ##sys#print */
21835 t8=*((C_word*)lf[27]+1);{
21836 C_word *av2;
21837 if(c >= 5) {
21838   av2=av;
21839 } else {
21840   av2=C_alloc(5);
21841 }
21842 av2[0]=t8;
21843 av2[1]=t7;
21844 av2[2]=t2;
21845 av2[3]=C_SCHEME_TRUE;
21846 av2[4]=*((C_word*)lf[24]+1);
21847 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
21848 else{
21849 t4=C_SCHEME_UNDEFINED;
21850 t5=t1;{
21851 C_word *av2=av;
21852 av2[0]=t5;
21853 av2[1]=t4;
21854 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
21855 
21856 /* k8340 in a8331 in chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8342(C_word c,C_word * av)21857 static void C_ccall f_8342(C_word c,C_word *av){
21858 C_word tmp;
21859 C_word t0=av[0];
21860 C_word t1=av[1];
21861 C_word t2;
21862 C_word t3;
21863 C_word *a;
21864 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
21865 C_save_and_reclaim((void *)f_8342,c,av);}
21866 a=C_alloc(5);
21867 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
21868 /* support.scm:460: ##sys#write-char-0 */
21869 t3=*((C_word*)lf[26]+1);{
21870 C_word *av2;
21871 if(c >= 4) {
21872   av2=av;
21873 } else {
21874   av2=C_alloc(4);
21875 }
21876 av2[0]=t3;
21877 av2[1]=t2;
21878 av2[2]=C_make_character(32);
21879 av2[3]=((C_word*)t0)[3];
21880 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
21881 
21882 /* k8343 in k8340 in a8331 in chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8345(C_word c,C_word * av)21883 static void C_ccall f_8345(C_word c,C_word *av){
21884 C_word tmp;
21885 C_word t0=av[0];
21886 C_word t1=av[1];
21887 C_word t2;
21888 C_word t3;
21889 C_word t4;
21890 C_word t5;
21891 C_word t6;
21892 C_word t7;
21893 C_word t8;
21894 C_word t9;
21895 C_word t10;
21896 C_word t11;
21897 C_word t12;
21898 C_word *a;
21899 if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
21900 C_save_and_reclaim((void *)f_8345,c,av);}
21901 a=C_alloc(20);
21902 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21903 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
21904 t4=t3;
21905 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
21906 t6=((C_word*)t5)[1];
21907 t7=C_i_check_list_2(((C_word*)t0)[4],lf[125]);
21908 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8361,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21909 t9=C_SCHEME_UNDEFINED;
21910 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
21911 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8363,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
21912 t12=((C_word*)t10)[1];
21913 f_8363(t12,t8,((C_word*)t0)[4]);}
21914 
21915 /* k8346 in k8343 in k8340 in a8331 in chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8348(C_word c,C_word * av)21916 static void C_ccall f_8348(C_word c,C_word *av){
21917 C_word tmp;
21918 C_word t0=av[0];
21919 C_word t1=av[1];
21920 C_word t2;
21921 C_word *a;
21922 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21923 C_save_and_reclaim((void *)f_8348,c,av);}
21924 /* support.scm:460: ##sys#write-char-0 */
21925 t2=*((C_word*)lf[26]+1);{
21926 C_word *av2;
21927 if(c >= 4) {
21928   av2=av;
21929 } else {
21930   av2=C_alloc(4);
21931 }
21932 av2[0]=t2;
21933 av2[1]=((C_word*)t0)[2];
21934 av2[2]=C_make_character(10);
21935 av2[3]=((C_word*)t0)[3];
21936 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
21937 
21938 /* k8359 in k8343 in k8340 in a8331 in chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8361(C_word c,C_word * av)21939 static void C_ccall f_8361(C_word c,C_word *av){
21940 C_word tmp;
21941 C_word t0=av[0];
21942 C_word t1=av[1];
21943 C_word t2;
21944 C_word *a;
21945 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
21946 C_save_and_reclaim((void *)f_8361,c,av);}
21947 /* support.scm:460: ##sys#print */
21948 t2=*((C_word*)lf[27]+1);{
21949 C_word *av2;
21950 if(c >= 5) {
21951   av2=av;
21952 } else {
21953   av2=C_alloc(5);
21954 }
21955 av2[0]=t2;
21956 av2[1]=((C_word*)t0)[2];
21957 av2[2]=t1;
21958 av2[3]=C_SCHEME_TRUE;
21959 av2[4]=((C_word*)t0)[3];
21960 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
21961 
21962 /* map-loop1236 in k8343 in k8340 in a8331 in chicken.compiler.support#display-line-number-database in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8363(C_word t0,C_word t1,C_word t2)21963 static void C_fcall f_8363(C_word t0,C_word t1,C_word t2){
21964 C_word tmp;
21965 C_word t3;
21966 C_word t4;
21967 C_word t5;
21968 C_word t6;
21969 C_word t7;
21970 C_word t8;
21971 C_word t9;
21972 C_word t10;
21973 C_word *a;
21974 loop:
21975 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
21976 C_save_and_reclaim_args((void *)trf_8363,3,t0,t1,t2);}
21977 a=C_alloc(3);
21978 if(C_truep(C_i_pairp(t2))){
21979 t3=C_slot(t2,C_fix(0));
21980 t4=C_i_cdr(t3);
21981 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
21982 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
21983 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
21984 t9=t1;
21985 t10=C_slot(t2,C_fix(1));
21986 t1=t9;
21987 t2=t10;
21988 goto loop;}
21989 else{
21990 t3=t1;{
21991 C_word av2[2];
21992 av2[0]=t3;
21993 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
21994 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
21995 
21996 /* chicken.compiler.support#make-node in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8398(C_word c,C_word * av)21997 static void C_ccall f_8398(C_word c,C_word *av){
21998 C_word tmp;
21999 C_word t0=av[0];
22000 C_word t1=av[1];
22001 C_word t2=av[2];
22002 C_word t3=av[3];
22003 C_word t4=av[4];
22004 C_word t5;
22005 C_word *a;
22006 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
22007 C_save_and_reclaim((void *)f_8398,c,av);}
22008 a=C_alloc(5);
22009 t5=t1;{
22010 C_word *av2=av;
22011 av2[0]=t5;
22012 av2[1]=C_a_i_record4(&a,4,lf[141],t2,t3,t4);
22013 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
22014 
22015 /* chicken.compiler.support#node? in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8404(C_word c,C_word * av)22016 static void C_ccall f_8404(C_word c,C_word *av){
22017 C_word tmp;
22018 C_word t0=av[0];
22019 C_word t1=av[1];
22020 C_word t2=av[2];
22021 C_word t3;
22022 C_word *a;
22023 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
22024 C_save_and_reclaim((void *)f_8404,c,av);}
22025 t3=t1;{
22026 C_word *av2=av;
22027 av2[0]=t3;
22028 av2[1]=C_i_structurep(t2,lf[141]);
22029 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
22030 
22031 /* chicken.compiler.support#node-class in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8410(C_word c,C_word * av)22032 static void C_ccall f_8410(C_word c,C_word *av){
22033 C_word tmp;
22034 C_word t0=av[0];
22035 C_word t1=av[1];
22036 C_word t2=av[2];
22037 C_word t3;
22038 C_word t4;
22039 C_word *a;
22040 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
22041 C_save_and_reclaim((void *)f_8410,c,av);}
22042 t3=C_i_check_structure_2(t2,lf[141],lf[144]);
22043 t4=t1;{
22044 C_word *av2=av;
22045 av2[0]=t4;
22046 av2[1]=C_i_block_ref(t2,C_fix(1));
22047 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22048 
22049 /* chicken.compiler.support#node-class-set! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8419(C_word c,C_word * av)22050 static void C_ccall f_8419(C_word c,C_word *av){
22051 C_word tmp;
22052 C_word t0=av[0];
22053 C_word t1=av[1];
22054 C_word t2=av[2];
22055 C_word t3=av[3];
22056 C_word t4;
22057 C_word t5;
22058 C_word *a;
22059 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
22060 C_save_and_reclaim((void *)f_8419,c,av);}
22061 t4=C_i_check_structure_2(t2,lf[141],C_SCHEME_FALSE);
22062 /* support.scm:468: ##sys#block-set! */
22063 t5=*((C_word*)lf[146]+1);{
22064 C_word *av2;
22065 if(c >= 5) {
22066   av2=av;
22067 } else {
22068   av2=C_alloc(5);
22069 }
22070 av2[0]=t5;
22071 av2[1]=t1;
22072 av2[2]=t2;
22073 av2[3]=C_fix(1);
22074 av2[4]=t3;
22075 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
22076 
22077 /* chicken.compiler.support#node-parameters in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8428(C_word c,C_word * av)22078 static void C_ccall f_8428(C_word c,C_word *av){
22079 C_word tmp;
22080 C_word t0=av[0];
22081 C_word t1=av[1];
22082 C_word t2=av[2];
22083 C_word t3;
22084 C_word t4;
22085 C_word *a;
22086 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
22087 C_save_and_reclaim((void *)f_8428,c,av);}
22088 t3=C_i_check_structure_2(t2,lf[141],lf[148]);
22089 t4=t1;{
22090 C_word *av2=av;
22091 av2[0]=t4;
22092 av2[1]=C_i_block_ref(t2,C_fix(2));
22093 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22094 
22095 /* chicken.compiler.support#node-parameters-set! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8437(C_word c,C_word * av)22096 static void C_ccall f_8437(C_word c,C_word *av){
22097 C_word tmp;
22098 C_word t0=av[0];
22099 C_word t1=av[1];
22100 C_word t2=av[2];
22101 C_word t3=av[3];
22102 C_word t4;
22103 C_word t5;
22104 C_word *a;
22105 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
22106 C_save_and_reclaim((void *)f_8437,c,av);}
22107 t4=C_i_check_structure_2(t2,lf[141],C_SCHEME_FALSE);
22108 /* support.scm:468: ##sys#block-set! */
22109 t5=*((C_word*)lf[146]+1);{
22110 C_word *av2;
22111 if(c >= 5) {
22112   av2=av;
22113 } else {
22114   av2=C_alloc(5);
22115 }
22116 av2[0]=t5;
22117 av2[1]=t1;
22118 av2[2]=t2;
22119 av2[3]=C_fix(2);
22120 av2[4]=t3;
22121 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
22122 
22123 /* chicken.compiler.support#node-subexpressions in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8446(C_word c,C_word * av)22124 static void C_ccall f_8446(C_word c,C_word *av){
22125 C_word tmp;
22126 C_word t0=av[0];
22127 C_word t1=av[1];
22128 C_word t2=av[2];
22129 C_word t3;
22130 C_word t4;
22131 C_word *a;
22132 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
22133 C_save_and_reclaim((void *)f_8446,c,av);}
22134 t3=C_i_check_structure_2(t2,lf[141],lf[151]);
22135 t4=t1;{
22136 C_word *av2=av;
22137 av2[0]=t4;
22138 av2[1]=C_i_block_ref(t2,C_fix(3));
22139 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22140 
22141 /* chicken.compiler.support#node-subexpressions-set! in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8455(C_word c,C_word * av)22142 static void C_ccall f_8455(C_word c,C_word *av){
22143 C_word tmp;
22144 C_word t0=av[0];
22145 C_word t1=av[1];
22146 C_word t2=av[2];
22147 C_word t3=av[3];
22148 C_word t4;
22149 C_word t5;
22150 C_word *a;
22151 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
22152 C_save_and_reclaim((void *)f_8455,c,av);}
22153 t4=C_i_check_structure_2(t2,lf[141],C_SCHEME_FALSE);
22154 /* support.scm:468: ##sys#block-set! */
22155 t5=*((C_word*)lf[146]+1);{
22156 C_word *av2;
22157 if(c >= 5) {
22158   av2=av;
22159 } else {
22160   av2=C_alloc(5);
22161 }
22162 av2[0]=t5;
22163 av2[1]=t1;
22164 av2[2]=t2;
22165 av2[3]=C_fix(3);
22166 av2[4]=t3;
22167 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
22168 
22169 /* k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8465(C_word c,C_word * av)22170 static void C_ccall f_8465(C_word c,C_word *av){
22171 C_word tmp;
22172 C_word t0=av[0];
22173 C_word t1=av[1];
22174 C_word t2;
22175 C_word t3;
22176 C_word t4;
22177 C_word t5;
22178 C_word t6;
22179 C_word t7;
22180 C_word t8;
22181 C_word t9;
22182 C_word t10;
22183 C_word t11;
22184 C_word t12;
22185 C_word t13;
22186 C_word t14;
22187 C_word t15;
22188 C_word t16;
22189 C_word t17;
22190 C_word t18;
22191 C_word t19;
22192 C_word t20;
22193 C_word t21;
22194 C_word t22;
22195 C_word t23;
22196 C_word t24;
22197 C_word t25;
22198 C_word t26;
22199 C_word t27;
22200 C_word t28;
22201 C_word t29;
22202 C_word t30;
22203 C_word t31;
22204 C_word t32;
22205 C_word t33;
22206 C_word t34;
22207 C_word t35;
22208 C_word t36;
22209 C_word t37;
22210 C_word t38;
22211 C_word t39;
22212 C_word t40;
22213 C_word t41;
22214 C_word t42;
22215 C_word t43;
22216 C_word t44;
22217 C_word t45;
22218 C_word t46;
22219 C_word t47;
22220 C_word t48;
22221 C_word t49;
22222 C_word t50;
22223 C_word t51;
22224 C_word t52;
22225 C_word t53;
22226 C_word t54;
22227 C_word t55;
22228 C_word t56;
22229 C_word t57;
22230 C_word t58;
22231 C_word t59;
22232 C_word t60;
22233 C_word t61;
22234 C_word t62;
22235 C_word t63;
22236 C_word t64;
22237 C_word t65;
22238 C_word t66;
22239 C_word t67;
22240 C_word t68;
22241 C_word t69;
22242 C_word t70;
22243 C_word t71;
22244 C_word t72;
22245 C_word t73;
22246 C_word t74;
22247 C_word t75;
22248 C_word t76;
22249 C_word t77;
22250 C_word t78;
22251 C_word t79;
22252 C_word t80;
22253 C_word t81;
22254 C_word t82;
22255 C_word t83;
22256 C_word t84;
22257 C_word t85;
22258 C_word t86;
22259 C_word t87;
22260 C_word *a;
22261 if(C_unlikely(!C_demand(C_calculate_demand(162,c,8)))){
22262 C_save_and_reclaim((void *)f_8465,c,av);}
22263 a=C_alloc(162);
22264 t2=C_mutate((C_word*)lf[140]+1 /* (set! chicken.compiler.support#make-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8467,tmp=(C_word)a,a+=2,tmp));
22265 t3=C_mutate((C_word*)lf[153]+1 /* (set! chicken.compiler.support#varnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8473,tmp=(C_word)a,a+=2,tmp));
22266 t4=C_mutate((C_word*)lf[155]+1 /* (set! chicken.compiler.support#qnode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8488,tmp=(C_word)a,a+=2,tmp));
22267 t5=C_mutate((C_word*)lf[156]+1 /* (set! chicken.compiler.support#build-node-graph ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8503,tmp=(C_word)a,a+=2,tmp));
22268 t6=C_mutate((C_word*)lf[192]+1 /* (set! chicken.compiler.support#build-expression-tree ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9699,tmp=(C_word)a,a+=2,tmp));
22269 t7=C_mutate((C_word*)lf[205]+1 /* (set! chicken.compiler.support#fold-boolean ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10569,tmp=(C_word)a,a+=2,tmp));
22270 t8=C_mutate((C_word*)lf[207]+1 /* (set! chicken.compiler.support#inline-lambda-bindings ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10621,tmp=(C_word)a,a+=2,tmp));
22271 t9=C_mutate((C_word*)lf[227]+1 /* (set! chicken.compiler.support#replace-rest-op-with-list-ops ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11696,tmp=(C_word)a,a+=2,tmp));
22272 t10=C_mutate((C_word*)lf[226]+1 /* (set! chicken.compiler.support#tree-copy ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11860,tmp=(C_word)a,a+=2,tmp));
22273 t11=C_mutate((C_word*)lf[235]+1 /* (set! chicken.compiler.support#copy-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11890,tmp=(C_word)a,a+=2,tmp));
22274 t12=C_mutate((C_word*)lf[214]+1 /* (set! chicken.compiler.support#copy-node! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11928,tmp=(C_word)a,a+=2,tmp));
22275 t13=C_mutate((C_word*)lf[236]+1 /* (set! chicken.compiler.support#emit-global-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12124,tmp=(C_word)a,a+=2,tmp));
22276 t14=C_mutate((C_word*)lf[261]+1 /* (set! chicken.compiler.support#load-inline-file ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12442,tmp=(C_word)a,a+=2,tmp));
22277 t15=C_mutate((C_word*)lf[264]+1 /* (set! chicken.compiler.support#match-node ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12498,tmp=(C_word)a,a+=2,tmp));
22278 t16=C_mutate((C_word*)lf[267]+1 /* (set! chicken.compiler.support#expression-has-side-effects? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12731,tmp=(C_word)a,a+=2,tmp));
22279 t17=C_mutate((C_word*)lf[270]+1 /* (set! chicken.compiler.support#simple-lambda-node? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12840,tmp=(C_word)a,a+=2,tmp));
22280 t18=C_mutate((C_word*)lf[271]+1 /* (set! chicken.compiler.support#dump-undefined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12966,tmp=(C_word)a,a+=2,tmp));
22281 t19=C_mutate((C_word*)lf[276]+1 /* (set! chicken.compiler.support#dump-defined-globals ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13007,tmp=(C_word)a,a+=2,tmp));
22282 t20=C_mutate((C_word*)lf[277]+1 /* (set! chicken.compiler.support#dump-global-refs ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13044,tmp=(C_word)a,a+=2,tmp));
22283 t21=C_mutate((C_word*)lf[278]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13093,tmp=(C_word)a,a+=2,tmp));
22284 t22=C_set_block_item(lf[269] /* chicken.compiler.support#foreign-callback-stubs */,0,C_SCHEME_END_OF_LIST);
22285 t23=C_mutate((C_word*)lf[284]+1 /* (set! chicken.compiler.support#make-foreign-callback-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13121,tmp=(C_word)a,a+=2,tmp));
22286 t24=C_mutate((C_word*)lf[286]+1 /* (set! chicken.compiler.support#foreign-callback-stub? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13127,tmp=(C_word)a,a+=2,tmp));
22287 t25=C_mutate((C_word*)lf[268]+1 /* (set! chicken.compiler.support#foreign-callback-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13133,tmp=(C_word)a,a+=2,tmp));
22288 t26=C_mutate((C_word*)lf[288]+1 /* (set! chicken.compiler.support#foreign-callback-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13142,tmp=(C_word)a,a+=2,tmp));
22289 t27=C_mutate((C_word*)lf[290]+1 /* (set! chicken.compiler.support#foreign-callback-stub-qualifiers ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13151,tmp=(C_word)a,a+=2,tmp));
22290 t28=C_mutate((C_word*)lf[292]+1 /* (set! chicken.compiler.support#foreign-callback-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13160,tmp=(C_word)a,a+=2,tmp));
22291 t29=C_mutate((C_word*)lf[294]+1 /* (set! chicken.compiler.support#foreign-callback-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13169,tmp=(C_word)a,a+=2,tmp));
22292 t30=C_mutate((C_word*)lf[296]+1 /* (set! chicken.compiler.support#register-foreign-callback-stub! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13178,tmp=(C_word)a,a+=2,tmp));
22293 t31=lf[298] /* chicken.compiler.support#foreign-type-table */ =C_SCHEME_FALSE;;
22294 t32=C_mutate((C_word*)lf[299]+1 /* (set! chicken.compiler.support#clear-foreign-type-table! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13207,tmp=(C_word)a,a+=2,tmp));
22295 t33=C_mutate((C_word*)lf[302]+1 /* (set! chicken.compiler.support#register-foreign-type! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13220,tmp=(C_word)a,a+=2,tmp));
22296 t34=C_mutate((C_word*)lf[303]+1 /* (set! chicken.compiler.support#lookup-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13274,tmp=(C_word)a,a+=2,tmp));
22297 t35=lf[304];
22298 t36=C_mutate((C_word*)lf[305]+1 /* (set! chicken.compiler.support#foreign-type-check ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13280,a[2]=t35,tmp=(C_word)a,a+=3,tmp));
22299 t37=C_mutate(&lf[402] /* (set! chicken.compiler.support#foreign-type-result-converter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14356,tmp=(C_word)a,a+=2,tmp));
22300 t38=C_mutate(&lf[403] /* (set! chicken.compiler.support#foreign-type-argument-converter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14377,tmp=(C_word)a,a+=2,tmp));
22301 t39=C_mutate((C_word*)lf[404]+1 /* (set! chicken.compiler.support#foreign-type-convert-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14398,tmp=(C_word)a,a+=2,tmp));
22302 t40=C_mutate((C_word*)lf[405]+1 /* (set! chicken.compiler.support#foreign-type-convert-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14413,tmp=(C_word)a,a+=2,tmp));
22303 t41=C_mutate((C_word*)lf[406]+1 /* (set! chicken.compiler.support#final-foreign-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14428,tmp=(C_word)a,a+=2,tmp));
22304 t42=C_mutate((C_word*)lf[408]+1 /* (set! chicken.compiler.support#estimate-foreign-result-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14467,tmp=(C_word)a,a+=2,tmp));
22305 t43=C_mutate((C_word*)lf[414]+1 /* (set! chicken.compiler.support#estimate-foreign-result-location-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14942,tmp=(C_word)a,a+=2,tmp));
22306 t44=C_mutate((C_word*)lf[417]+1 /* (set! chicken.compiler.support#finish-foreign-result ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15392,tmp=(C_word)a,a+=2,tmp));
22307 t45=C_mutate((C_word*)lf[431]+1 /* (set! chicken.compiler.support#foreign-type->scrutiny-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15660,tmp=(C_word)a,a+=2,tmp));
22308 t46=C_mutate((C_word*)lf[459]+1 /* (set! chicken.compiler.support#scan-used-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16314,tmp=(C_word)a,a+=2,tmp));
22309 t47=C_mutate((C_word*)lf[460]+1 /* (set! chicken.compiler.support#scan-free-variables ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16469,tmp=(C_word)a,a+=2,tmp));
22310 t48=C_mutate((C_word*)lf[461]+1 /* (set! chicken.compiler.support#chop-separator ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16699,tmp=(C_word)a,a+=2,tmp));
22311 t49=C_mutate((C_word*)lf[463]+1 /* (set! chicken.compiler.support#make-block-variable-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16723,tmp=(C_word)a,a+=2,tmp));
22312 t50=C_mutate((C_word*)lf[465]+1 /* (set! chicken.compiler.support#block-variable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16729,tmp=(C_word)a,a+=2,tmp));
22313 t51=C_mutate((C_word*)lf[466]+1 /* (set! chicken.compiler.support#block-variable-literal-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16735,tmp=(C_word)a,a+=2,tmp));
22314 t52=C_mutate((C_word*)lf[112]+1 /* (set! chicken.compiler.support#make-random-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16744,tmp=(C_word)a,a+=2,tmp));
22315 t53=lf[470] /* chicken.compiler.support#real-name-table */ =C_SCHEME_FALSE;;
22316 t54=C_mutate((C_word*)lf[471]+1 /* (set! chicken.compiler.support#clear-real-name-table! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16791,tmp=(C_word)a,a+=2,tmp));
22317 t55=C_mutate((C_word*)lf[472]+1 /* (set! chicken.compiler.support#set-real-name! ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16798,tmp=(C_word)a,a+=2,tmp));
22318 t56=C_mutate((C_word*)lf[473]+1 /* (set! chicken.compiler.support#get-real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16804,tmp=(C_word)a,a+=2,tmp));
22319 t57=C_mutate((C_word*)lf[181]+1 /* (set! chicken.compiler.support#real-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16811,tmp=(C_word)a,a+=2,tmp));
22320 t58=C_mutate((C_word*)lf[480]+1 /* (set! chicken.compiler.support#real-name2 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16931,tmp=(C_word)a,a+=2,tmp));
22321 t59=C_mutate((C_word*)lf[481]+1 /* (set! chicken.compiler.support#display-real-name-table ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16943,tmp=(C_word)a,a+=2,tmp));
22322 t60=C_mutate((C_word*)lf[482]+1 /* (set! chicken.compiler.support#source-info->string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16967,tmp=(C_word)a,a+=2,tmp));
22323 t61=C_mutate((C_word*)lf[488]+1 /* (set! chicken.compiler.support#source-info->name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17002,tmp=(C_word)a,a+=2,tmp));
22324 t62=C_mutate((C_word*)lf[489]+1 /* (set! chicken.compiler.support#source-info->line ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17017,tmp=(C_word)a,a+=2,tmp));
22325 t63=C_mutate((C_word*)lf[490]+1 /* (set! chicken.compiler.support#call-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17029,tmp=(C_word)a,a+=2,tmp));
22326 t64=C_mutate((C_word*)lf[493]+1 /* (set! chicken.compiler.support#constant-form-eval ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17066,tmp=(C_word)a,a+=2,tmp));
22327 t65=C_mutate((C_word*)lf[500]+1 /* (set! chicken.compiler.support#maybe-constant-fold-call ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17296,tmp=(C_word)a,a+=2,tmp));
22328 t66=C_mutate(&lf[496] /* (set! chicken.compiler.support#encodeable-literal? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17395,tmp=(C_word)a,a+=2,tmp));
22329 t67=C_mutate((C_word*)lf[505]+1 /* (set! chicken.compiler.support#dump-nodes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17532,tmp=(C_word)a,a+=2,tmp));
22330 t68=C_mutate((C_word*)lf[507]+1 /* (set! chicken.compiler.support#read-info-hook ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17688,tmp=(C_word)a,a+=2,tmp));
22331 t69=C_mutate((C_word*)lf[511]+1 /* (set! chicken.compiler.support#read/source-info ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17731,tmp=(C_word)a,a+=2,tmp));
22332 t70=*((C_word*)lf[513]+1);
22333 t71=C_mutate((C_word*)lf[513]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17737,a[2]=t70,tmp=(C_word)a,a+=3,tmp));
22334 t72=C_mutate((C_word*)lf[90]+1 /* (set! chicken.compiler.support#big-fixnum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17831,tmp=(C_word)a,a+=2,tmp));
22335 t73=C_mutate((C_word*)lf[520]+1 /* (set! chicken.compiler.support#small-bignum? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17855,tmp=(C_word)a,a+=2,tmp));
22336 t74=C_mutate((C_word*)lf[282]+1 /* (set! chicken.compiler.support#hide-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17879,tmp=(C_word)a,a+=2,tmp));
22337 t75=C_mutate((C_word*)lf[522]+1 /* (set! chicken.compiler.support#export-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17899,tmp=(C_word)a,a+=2,tmp));
22338 t76=C_mutate((C_word*)lf[281]+1 /* (set! chicken.compiler.support#variable-hidden? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17919,tmp=(C_word)a,a+=2,tmp));
22339 t77=C_mutate((C_word*)lf[260]+1 /* (set! chicken.compiler.support#variable-visible? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17941,tmp=(C_word)a,a+=2,tmp));
22340 t78=C_mutate((C_word*)lf[524]+1 /* (set! chicken.compiler.support#mark-variable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17966,tmp=(C_word)a,a+=2,tmp));
22341 t79=C_mutate((C_word*)lf[525]+1 /* (set! chicken.compiler.support#variable-mark ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17981,tmp=(C_word)a,a+=2,tmp));
22342 t80=C_mutate((C_word*)lf[526]+1 /* (set! chicken.compiler.support#intrinsic? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17987,tmp=(C_word)a,a+=2,tmp));
22343 t81=C_mutate((C_word*)lf[502]+1 /* (set! chicken.compiler.support#foldable? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17998,tmp=(C_word)a,a+=2,tmp));
22344 t82=C_mutate((C_word*)lf[501]+1 /* (set! chicken.compiler.support#predicate? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18009,tmp=(C_word)a,a+=2,tmp));
22345 t83=C_mutate((C_word*)lf[529]+1 /* (set! chicken.compiler.support#load-identifier-database ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18020,tmp=(C_word)a,a+=2,tmp));
22346 t84=C_mutate((C_word*)lf[537]+1 /* (set! chicken.compiler.support#print-version ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18115,tmp=(C_word)a,a+=2,tmp));
22347 t85=C_mutate((C_word*)lf[540]+1 /* (set! chicken.compiler.support#print-usage ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18140,tmp=(C_word)a,a+=2,tmp));
22348 t86=C_mutate((C_word*)lf[542]+1 /* (set! chicken.compiler.support#print-debug-options ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_18152,tmp=(C_word)a,a+=2,tmp));
22349 t87=((C_word*)t0)[2];{
22350 C_word *av2=av;
22351 av2[0]=t87;
22352 av2[1]=C_SCHEME_UNDEFINED;
22353 ((C_proc)(void*)(*((C_word*)t87+1)))(2,av2);}}
22354 
22355 /* chicken.compiler.support#make-node in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8467(C_word c,C_word * av)22356 static void C_ccall f_8467(C_word c,C_word *av){
22357 C_word tmp;
22358 C_word t0=av[0];
22359 C_word t1=av[1];
22360 C_word t2=av[2];
22361 C_word t3=av[3];
22362 C_word t4=av[4];
22363 C_word t5;
22364 C_word *a;
22365 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
22366 C_save_and_reclaim((void *)f_8467,c,av);}
22367 a=C_alloc(5);
22368 t5=t1;{
22369 C_word *av2=av;
22370 av2[0]=t5;
22371 av2[1]=C_a_i_record4(&a,4,lf[141],t2,t3,t4);
22372 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
22373 
22374 /* chicken.compiler.support#varnode in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8473(C_word c,C_word * av)22375 static void C_ccall f_8473(C_word c,C_word *av){
22376 C_word tmp;
22377 C_word t0=av[0];
22378 C_word t1=av[1];
22379 C_word t2=av[2];
22380 C_word t3;
22381 C_word t4;
22382 C_word *a;
22383 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
22384 C_save_and_reclaim((void *)f_8473,c,av);}
22385 a=C_alloc(8);
22386 t3=C_a_i_list1(&a,1,t2);
22387 t4=t1;{
22388 C_word *av2=av;
22389 av2[0]=t4;
22390 av2[1]=C_a_i_record4(&a,4,lf[141],lf[154],t3,C_SCHEME_END_OF_LIST);
22391 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22392 
22393 /* chicken.compiler.support#qnode in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8488(C_word c,C_word * av)22394 static void C_ccall f_8488(C_word c,C_word *av){
22395 C_word tmp;
22396 C_word t0=av[0];
22397 C_word t1=av[1];
22398 C_word t2=av[2];
22399 C_word t3;
22400 C_word t4;
22401 C_word *a;
22402 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
22403 C_save_and_reclaim((void *)f_8488,c,av);}
22404 a=C_alloc(8);
22405 t3=C_a_i_list1(&a,1,t2);
22406 t4=t1;{
22407 C_word *av2=av;
22408 av2[0]=t4;
22409 av2[1]=C_a_i_record4(&a,4,lf[141],lf[85],t3,C_SCHEME_END_OF_LIST);
22410 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22411 
22412 /* chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8503(C_word c,C_word * av)22413 static void C_ccall f_8503(C_word c,C_word *av){
22414 C_word tmp;
22415 C_word t0=av[0];
22416 C_word t1=av[1];
22417 C_word t2=av[2];
22418 C_word t3;
22419 C_word t4;
22420 C_word t5;
22421 C_word t6;
22422 C_word t7;
22423 C_word t8;
22424 C_word t9;
22425 C_word *a;
22426 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
22427 C_save_and_reclaim((void *)f_8503,c,av);}
22428 a=C_alloc(12);
22429 t3=C_fix(0);
22430 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
22431 t5=C_SCHEME_UNDEFINED;
22432 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
22433 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8506,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
22434 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9690,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
22435 /* support.scm:578: walk */
22436 t9=((C_word*)t6)[1];
22437 f_8506(t9,t8,t2);}
22438 
22439 /* walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8506(C_word t0,C_word t1,C_word t2)22440 static void C_fcall f_8506(C_word t0,C_word t1,C_word t2){
22441 C_word tmp;
22442 C_word t3;
22443 C_word t4;
22444 C_word t5;
22445 C_word t6;
22446 C_word t7;
22447 C_word t8;
22448 C_word t9;
22449 C_word t10;
22450 C_word t11;
22451 C_word t12;
22452 C_word t13;
22453 C_word t14;
22454 C_word t15;
22455 C_word t16;
22456 C_word t17;
22457 C_word t18;
22458 C_word t19;
22459 C_word t20;
22460 C_word t21;
22461 C_word t22;
22462 C_word t23;
22463 C_word *a;
22464 loop:
22465 if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
22466 C_save_and_reclaim_args((void *)trf_8506,3,t0,t1,t2);}
22467 a=C_alloc(20);
22468 if(C_truep(C_i_symbolp(t2))){
22469 /* support.scm:488: varnode */
22470 t3=*((C_word*)lf[153]+1);{
22471 C_word av2[3];
22472 av2[0]=t3;
22473 av2[1]=t1;
22474 av2[2]=t2;
22475 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
22476 else{
22477 if(C_truep(C_i_structurep(t2,lf[141]))){
22478 t3=t1;{
22479 C_word av2[2];
22480 av2[0]=t3;
22481 av2[1]=t2;
22482 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
22483 else{
22484 t3=C_i_pairp(t2);
22485 if(C_truep(C_i_not(t3))){
22486 /* support.scm:490: bomb */
22487 t4=*((C_word*)lf[13]+1);{
22488 C_word av2[4];
22489 av2[0]=t4;
22490 av2[1]=t1;
22491 av2[2]=lf[157];
22492 av2[3]=t2;
22493 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
22494 else{
22495 t4=C_i_car(t2);
22496 if(C_truep(C_i_symbolp(t4))){
22497 t5=C_u_i_car(t2);
22498 t6=C_eqp(t5,lf[158]);
22499 t7=(C_truep(t6)?t6:C_eqp(t5,lf[159]));
22500 if(C_truep(t7)){
22501 t8=C_u_i_car(t2);
22502 t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
22503 t10=t9;
22504 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
22505 t12=((C_word*)t11)[1];
22506 t13=C_u_i_cdr(t2);
22507 t14=C_i_check_list_2(t13,lf[125]);
22508 t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8573,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
22509 t16=C_SCHEME_UNDEFINED;
22510 t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
22511 t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8575,a[2]=t11,a[3]=t17,a[4]=((C_word*)t0)[2],a[5]=t12,tmp=(C_word)a,a+=6,tmp));
22512 t19=((C_word*)t17)[1];
22513 f_8575(t19,t15,t13);}
22514 else{
22515 t8=C_eqp(t5,lf[85]);
22516 if(C_truep(t8)){
22517 t9=C_i_cadr(t2);
22518 t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8623,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
22519 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8626,a[2]=t10,a[3]=t9,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
22520 if(C_truep(C_i_numberp(t9))){
22521 t12=C_eqp(lf[164],*((C_word*)lf[8]+1));
22522 t13=t11;
22523 f_8626(t13,(C_truep(t12)?C_i_not(C_i_integerp(t9)):C_SCHEME_FALSE));}
22524 else{
22525 t12=t11;
22526 f_8626(t12,C_SCHEME_FALSE);}}
22527 else{
22528 t9=C_eqp(t5,lf[96]);
22529 if(C_truep(t9)){
22530 t10=C_i_cadr(t2);
22531 t11=C_i_caddr(t2);
22532 if(C_truep(C_i_nullp(t10))){
22533 /* support.scm:508: walk */
22534 t22=t1;
22535 t23=t11;
22536 t1=t22;
22537 t2=t23;
22538 goto loop;}
22539 else{
22540 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8683,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t11,tmp=(C_word)a,a+=6,tmp);
22541 t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
22542 t14=t13;
22543 t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
22544 t16=((C_word*)t15)[1];
22545 t17=C_i_check_list_2(t10,lf[125]);
22546 t18=C_SCHEME_UNDEFINED;
22547 t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
22548 t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6109,a[2]=t15,a[3]=t19,a[4]=t16,tmp=(C_word)a,a+=5,tmp));
22549 t21=((C_word*)t19)[1];
22550 f_6109(t21,t12,t10);}}
22551 else{
22552 t10=C_eqp(t5,lf[165]);
22553 t11=(C_truep(t10)?t10:C_eqp(t5,lf[118]));
22554 if(C_truep(t11)){
22555 t12=C_i_cadr(t2);
22556 t13=C_a_i_list1(&a,1,t12);
22557 t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8780,a[2]=t1,a[3]=t13,tmp=(C_word)a,a+=4,tmp);
22558 /* support.scm:514: walk */
22559 t22=t14;
22560 t23=C_i_caddr(t2);
22561 t1=t22;
22562 t2=t23;
22563 goto loop;}
22564 else{
22565 t12=C_eqp(t5,lf[166]);
22566 if(C_truep(t12)){
22567 t13=C_i_cadr(t2);
22568 t14=C_i_caddr(t2);
22569 t15=C_a_i_list2(&a,2,t13,t14);
22570 t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8814,a[2]=t1,a[3]=t15,tmp=(C_word)a,a+=4,tmp);
22571 /* support.scm:518: walk */
22572 t22=t16;
22573 t23=C_i_cadddr(t2);
22574 t1=t22;
22575 t2=t23;
22576 goto loop;}
22577 else{
22578 t13=C_eqp(t5,lf[167]);
22579 if(C_truep(t13)){
22580 t14=C_i_cdddr(t2);
22581 t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8968,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t14,tmp=(C_word)a,a+=6,tmp);
22582 t16=C_u_i_cdr(t2);
22583 t17=C_u_i_cdr(t16);
22584 /* support.scm:521: walk */
22585 t22=t15;
22586 t23=C_u_i_car(t17);
22587 t1=t22;
22588 t2=t23;
22589 goto loop;}
22590 else{
22591 t14=C_eqp(t5,lf[171]);
22592 if(C_truep(t14)){
22593 t15=C_i_cadr(t2);
22594 t16=C_u_i_car(t2);
22595 t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8995,a[2]=t2,a[3]=t1,a[4]=t16,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
22596 if(C_truep(C_i_pairp(t15))){
22597 t18=C_eqp(lf[85],C_u_i_car(t15));
22598 if(C_truep(t18)){
22599 t19=C_i_cadr(t15);
22600 t20=t17;
22601 f_8995(t20,C_a_i_list1(&a,1,t19));}
22602 else{
22603 t19=t17;
22604 f_8995(t19,C_a_i_list1(&a,1,t15));}}
22605 else{
22606 t18=t17;
22607 f_8995(t18,C_a_i_list1(&a,1,t15));}}
22608 else{
22609 t15=C_eqp(t5,lf[172]);
22610 t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9068,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
22611 if(C_truep(t15)){
22612 t17=t16;
22613 f_9068(t17,t15);}
22614 else{
22615 t17=C_eqp(t5,lf[188]);
22616 t18=t16;
22617 f_9068(t18,(C_truep(t17)?t17:C_eqp(t5,lf[189])));}}}}}}}}}
22618 else{
22619 t5=C_a_i_list1(&a,1,C_SCHEME_FALSE);
22620 t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
22621 t7=t6;
22622 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
22623 t9=((C_word*)t8)[1];
22624 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9645,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
22625 t11=C_SCHEME_UNDEFINED;
22626 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
22627 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9647,a[2]=t8,a[3]=t12,a[4]=((C_word*)t0)[2],a[5]=t9,tmp=(C_word)a,a+=6,tmp));
22628 t14=((C_word*)t12)[1];
22629 f_9647(t14,t10,t2);}}}}}
22630 
22631 /* k8571 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8573(C_word c,C_word * av)22632 static void C_ccall f_8573(C_word c,C_word *av){
22633 C_word tmp;
22634 C_word t0=av[0];
22635 C_word t1=av[1];
22636 C_word t2;
22637 C_word *a;
22638 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
22639 C_save_and_reclaim((void *)f_8573,c,av);}
22640 a=C_alloc(5);
22641 t2=((C_word*)t0)[2];{
22642 C_word *av2=av;
22643 av2[0]=t2;
22644 av2[1]=C_a_i_record4(&a,4,lf[141],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);
22645 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
22646 
22647 /* map-loop1366 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8575(C_word t0,C_word t1,C_word t2)22648 static void C_fcall f_8575(C_word t0,C_word t1,C_word t2){
22649 C_word tmp;
22650 C_word t3;
22651 C_word t4;
22652 C_word *a;
22653 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
22654 C_save_and_reclaim_args((void *)trf_8575,3,t0,t1,t2);}
22655 a=C_alloc(6);
22656 if(C_truep(C_i_pairp(t2))){
22657 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
22658 /* support.scm:493: g1372 */
22659 t4=((C_word*)((C_word*)t0)[4])[1];
22660 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
22661 else{
22662 t3=t1;{
22663 C_word av2[2];
22664 av2[0]=t3;
22665 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
22666 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
22667 
22668 /* k8598 in map-loop1366 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8600(C_word c,C_word * av)22669 static void C_ccall f_8600(C_word c,C_word *av){
22670 C_word tmp;
22671 C_word t0=av[0];
22672 C_word t1=av[1];
22673 C_word t2;
22674 C_word t3;
22675 C_word t4;
22676 C_word t5;
22677 C_word *a;
22678 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
22679 C_save_and_reclaim((void *)f_8600,c,av);}
22680 a=C_alloc(3);
22681 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
22682 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
22683 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
22684 t5=((C_word*)((C_word*)t0)[3])[1];
22685 f_8575(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
22686 
22687 /* k8621 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8623(C_word c,C_word * av)22688 static void C_ccall f_8623(C_word c,C_word *av){
22689 C_word tmp;
22690 C_word t0=av[0];
22691 C_word t1=av[1];
22692 C_word t2;
22693 C_word *a;
22694 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
22695 C_save_and_reclaim((void *)f_8623,c,av);}
22696 /* support.scm:496: qnode */
22697 t2=*((C_word*)lf[155]+1);{
22698 C_word *av2;
22699 if(c >= 3) {
22700   av2=av;
22701 } else {
22702   av2=C_alloc(3);
22703 }
22704 av2[0]=t2;
22705 av2[1]=((C_word*)t0)[2];
22706 av2[2]=t1;
22707 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
22708 
22709 /* k8624 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8626(C_word t0,C_word t1)22710 static void C_fcall f_8626(C_word t0,C_word t1){
22711 C_word tmp;
22712 C_word t2;
22713 C_word t3;
22714 C_word *a;
22715 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
22716 C_save_and_reclaim_args((void *)trf_8626,2,t0,t1);}
22717 a=C_alloc(4);
22718 if(C_truep(t1)){
22719 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8629,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
22720 /* support.scm:500: chicken.base#warning */
22721 t3=*((C_word*)lf[162]+1);{
22722 C_word av2[4];
22723 av2[0]=t3;
22724 av2[1]=t2;
22725 av2[2]=lf[163];
22726 av2[3]=((C_word*)t0)[3];
22727 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
22728 else{
22729 /* support.scm:496: qnode */
22730 t2=*((C_word*)lf[155]+1);{
22731 C_word av2[3];
22732 av2[0]=t2;
22733 av2[1]=((C_word*)t0)[4];
22734 av2[2]=((C_word*)t0)[3];
22735 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}
22736 
22737 /* k8627 in k8624 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8629(C_word c,C_word * av)22738 static void C_ccall f_8629(C_word c,C_word *av){
22739 C_word tmp;
22740 C_word t0=av[0];
22741 C_word t1=av[1];
22742 C_word t2;
22743 C_word t3;
22744 C_word *a;
22745 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
22746 C_save_and_reclaim((void *)f_8629,c,av);}
22747 a=C_alloc(3);
22748 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8636,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
22749 /* support.scm:502: scheme#truncate */
22750 t3=*((C_word*)lf[161]+1);{
22751 C_word *av2;
22752 if(c >= 3) {
22753   av2=av;
22754 } else {
22755   av2=C_alloc(3);
22756 }
22757 av2[0]=t3;
22758 av2[1]=t2;
22759 av2[2]=((C_word*)t0)[3];
22760 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
22761 
22762 /* k8634 in k8627 in k8624 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8636(C_word c,C_word * av)22763 static void C_ccall f_8636(C_word c,C_word *av){
22764 C_word tmp;
22765 C_word t0=av[0];
22766 C_word t1=av[1];
22767 C_word t2;
22768 C_word *a;
22769 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
22770 C_save_and_reclaim((void *)f_8636,c,av);}
22771 /* support.scm:502: scheme#inexact->exact */
22772 t2=*((C_word*)lf[160]+1);{
22773 C_word *av2;
22774 if(c >= 3) {
22775   av2=av;
22776 } else {
22777   av2=C_alloc(3);
22778 }
22779 av2[0]=t2;
22780 av2[1]=((C_word*)t0)[2];
22781 av2[2]=t1;
22782 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
22783 
22784 /* k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8683(C_word c,C_word * av)22785 static void C_ccall f_8683(C_word c,C_word *av){
22786 C_word tmp;
22787 C_word t0=av[0];
22788 C_word t1=av[1];
22789 C_word t2;
22790 C_word t3;
22791 C_word t4;
22792 C_word t5;
22793 C_word t6;
22794 C_word t7;
22795 C_word t8;
22796 C_word t9;
22797 C_word t10;
22798 C_word t11;
22799 C_word t12;
22800 C_word t13;
22801 C_word t14;
22802 C_word *a;
22803 if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
22804 C_save_and_reclaim((void *)f_8683,c,av);}
22805 a=C_alloc(25);
22806 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8687,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
22807 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
22808 t4=t3;
22809 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
22810 t6=((C_word*)t5)[1];
22811 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8692,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
22812 t8=C_i_cadr(((C_word*)t0)[4]);
22813 t9=C_i_check_list_2(t8,lf[125]);
22814 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8709,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
22815 t11=C_SCHEME_UNDEFINED;
22816 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
22817 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8719,a[2]=t5,a[3]=t12,a[4]=t7,a[5]=t6,tmp=(C_word)a,a+=6,tmp));
22818 t14=((C_word*)t12)[1];
22819 f_8719(t14,t10,t8);}
22820 
22821 /* k8685 in k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8687(C_word c,C_word * av)22822 static void C_ccall f_8687(C_word c,C_word *av){
22823 C_word tmp;
22824 C_word t0=av[0];
22825 C_word t1=av[1];
22826 C_word t2;
22827 C_word *a;
22828 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
22829 C_save_and_reclaim((void *)f_8687,c,av);}
22830 a=C_alloc(5);
22831 t2=((C_word*)t0)[2];{
22832 C_word *av2=av;
22833 av2[0]=t2;
22834 av2[1]=C_a_i_record4(&a,4,lf[141],lf[96],((C_word*)t0)[3],t1);
22835 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
22836 
22837 /* g1409 in k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8692(C_word t0,C_word t1,C_word t2)22838 static void C_fcall f_8692(C_word t0,C_word t1,C_word t2){
22839 C_word tmp;
22840 C_word t3;
22841 C_word *a;
22842 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
22843 C_save_and_reclaim_args((void *)trf_8692,3,t0,t1,t2);}
22844 /* support.scm:511: walk */
22845 t3=((C_word*)((C_word*)t0)[2])[1];
22846 f_8506(t3,t1,C_i_cadr(t2));}
22847 
22848 /* k8707 in k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8709(C_word c,C_word * av)22849 static void C_ccall f_8709(C_word c,C_word *av){
22850 C_word tmp;
22851 C_word t0=av[0];
22852 C_word t1=av[1];
22853 C_word t2;
22854 C_word t3;
22855 C_word *a;
22856 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
22857 C_save_and_reclaim((void *)f_8709,c,av);}
22858 a=C_alloc(4);
22859 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8717,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
22860 /* support.scm:512: walk */
22861 t3=((C_word*)((C_word*)t0)[3])[1];
22862 f_8506(t3,t2,((C_word*)t0)[4]);}
22863 
22864 /* k8715 in k8707 in k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8717(C_word c,C_word * av)22865 static void C_ccall f_8717(C_word c,C_word *av){
22866 C_word tmp;
22867 C_word t0=av[0];
22868 C_word t1=av[1];
22869 C_word t2;
22870 C_word t3;
22871 C_word *a;
22872 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
22873 C_save_and_reclaim((void *)f_8717,c,av);}
22874 a=C_alloc(3);
22875 t2=C_a_i_list1(&a,1,t1);
22876 /* support.scm:511: scheme#append */
22877 t3=*((C_word*)lf[58]+1);{
22878 C_word *av2;
22879 if(c >= 4) {
22880   av2=av;
22881 } else {
22882   av2=C_alloc(4);
22883 }
22884 av2[0]=t3;
22885 av2[1]=((C_word*)t0)[2];
22886 av2[2]=((C_word*)t0)[3];
22887 av2[3]=t2;
22888 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
22889 
22890 /* map-loop1403 in k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8719(C_word t0,C_word t1,C_word t2)22891 static void C_fcall f_8719(C_word t0,C_word t1,C_word t2){
22892 C_word tmp;
22893 C_word t3;
22894 C_word t4;
22895 C_word *a;
22896 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
22897 C_save_and_reclaim_args((void *)trf_8719,3,t0,t1,t2);}
22898 a=C_alloc(6);
22899 if(C_truep(C_i_pairp(t2))){
22900 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
22901 /* support.scm:511: g1409 */
22902 t4=((C_word*)t0)[4];
22903 f_8692(t4,t3,C_slot(t2,C_fix(0)));}
22904 else{
22905 t3=t1;{
22906 C_word av2[2];
22907 av2[0]=t3;
22908 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
22909 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
22910 
22911 /* k8742 in map-loop1403 in k8681 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8744(C_word c,C_word * av)22912 static void C_ccall f_8744(C_word c,C_word *av){
22913 C_word tmp;
22914 C_word t0=av[0];
22915 C_word t1=av[1];
22916 C_word t2;
22917 C_word t3;
22918 C_word t4;
22919 C_word t5;
22920 C_word *a;
22921 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
22922 C_save_and_reclaim((void *)f_8744,c,av);}
22923 a=C_alloc(3);
22924 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
22925 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
22926 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
22927 t5=((C_word*)((C_word*)t0)[3])[1];
22928 f_8719(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
22929 
22930 /* k8778 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8780(C_word c,C_word * av)22931 static void C_ccall f_8780(C_word c,C_word *av){
22932 C_word tmp;
22933 C_word t0=av[0];
22934 C_word t1=av[1];
22935 C_word t2;
22936 C_word t3;
22937 C_word *a;
22938 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
22939 C_save_and_reclaim((void *)f_8780,c,av);}
22940 a=C_alloc(8);
22941 t2=C_a_i_list1(&a,1,t1);
22942 t3=((C_word*)t0)[2];{
22943 C_word *av2=av;
22944 av2[0]=t3;
22945 av2[1]=C_a_i_record4(&a,4,lf[141],lf[165],((C_word*)t0)[3],t2);
22946 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
22947 
22948 /* k8812 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8814(C_word c,C_word * av)22949 static void C_ccall f_8814(C_word c,C_word *av){
22950 C_word tmp;
22951 C_word t0=av[0];
22952 C_word t1=av[1];
22953 C_word t2;
22954 C_word t3;
22955 C_word *a;
22956 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
22957 C_save_and_reclaim((void *)f_8814,c,av);}
22958 a=C_alloc(8);
22959 t2=C_a_i_list1(&a,1,t1);
22960 t3=((C_word*)t0)[2];{
22961 C_word *av2=av;
22962 av2[0]=t3;
22963 av2[1]=C_a_i_record4(&a,4,lf[141],lf[166],((C_word*)t0)[3],t2);
22964 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
22965 
22966 /* loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8845(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)22967 static void C_fcall f_8845(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
22968 C_word tmp;
22969 C_word t5;
22970 C_word t6;
22971 C_word t7;
22972 C_word t8;
22973 C_word t9;
22974 C_word t10;
22975 C_word t11;
22976 C_word t12;
22977 C_word *a;
22978 if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
22979 C_save_and_reclaim_args((void *)trf_8845,5,t0,t1,t2,t3,t4);}
22980 a=C_alloc(14);
22981 if(C_truep(C_i_nullp(t2))){
22982 t5=C_i_cadr(((C_word*)t0)[2]);
22983 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8889,a[2]=t5,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
22984 /* support.scm:525: scheme#reverse */
22985 t7=*((C_word*)lf[80]+1);{
22986 C_word av2[3];
22987 av2[0]=t7;
22988 av2[1]=t6;
22989 av2[2]=t3;
22990 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
22991 else{
22992 t5=C_i_caar(t2);
22993 t6=C_eqp(lf[168],t5);
22994 if(C_truep(t6)){
22995 t7=C_i_cadr(((C_word*)t0)[2]);
22996 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8931,a[2]=t7,a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
22997 t9=C_a_i_cons(&a,2,lf[170],t3);
22998 /* support.scm:531: scheme#reverse */
22999 t10=*((C_word*)lf[80]+1);{
23000 C_word av2[3];
23001 av2[0]=t10;
23002 av2[1]=t8;
23003 av2[2]=t9;
23004 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
23005 else{
23006 t7=C_u_i_cdr(t2);
23007 t8=C_i_caar(t2);
23008 t9=C_a_i_cons(&a,2,t8,t3);
23009 t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8952,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t7,a[6]=t9,tmp=(C_word)a,a+=7,tmp);
23010 t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8956,a[2]=((C_word*)t0)[3],a[3]=t10,tmp=(C_word)a,a+=4,tmp);
23011 /* support.scm:535: scheme#cadar */
23012 t12=*((C_word*)lf[169]+1);{
23013 C_word av2[3];
23014 av2[0]=t12;
23015 av2[1]=t11;
23016 av2[2]=t2;
23017 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}}
23018 
23019 /* k8866 in k8887 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8868(C_word c,C_word * av)23020 static void C_ccall f_8868(C_word c,C_word *av){
23021 C_word tmp;
23022 C_word t0=av[0];
23023 C_word t1=av[1];
23024 C_word t2;
23025 C_word *a;
23026 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23027 C_save_and_reclaim((void *)f_8868,c,av);}
23028 a=C_alloc(5);
23029 t2=((C_word*)t0)[2];{
23030 C_word *av2=av;
23031 av2[0]=t2;
23032 av2[1]=C_a_i_record4(&a,4,lf[141],lf[167],((C_word*)t0)[3],t1);
23033 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23034 
23035 /* k8887 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8889(C_word c,C_word * av)23036 static void C_ccall f_8889(C_word c,C_word *av){
23037 C_word tmp;
23038 C_word t0=av[0];
23039 C_word t1=av[1];
23040 C_word t2;
23041 C_word t3;
23042 C_word t4;
23043 C_word t5;
23044 C_word t6;
23045 C_word *a;
23046 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
23047 C_save_and_reclaim((void *)f_8889,c,av);}
23048 a=C_alloc(15);
23049 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
23050 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8868,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
23051 t4=C_a_i_record4(&a,4,lf[141],lf[159],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);
23052 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
23053 /* support.scm:526: scheme#reverse */
23054 t6=*((C_word*)lf[80]+1);{
23055 C_word *av2;
23056 if(c >= 3) {
23057   av2=av;
23058 } else {
23059   av2=C_alloc(3);
23060 }
23061 av2[0]=t6;
23062 av2[1]=t3;
23063 av2[2]=t5;
23064 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
23065 
23066 /* k8909 in k8929 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8911(C_word c,C_word * av)23067 static void C_ccall f_8911(C_word c,C_word *av){
23068 C_word tmp;
23069 C_word t0=av[0];
23070 C_word t1=av[1];
23071 C_word t2;
23072 C_word *a;
23073 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23074 C_save_and_reclaim((void *)f_8911,c,av);}
23075 a=C_alloc(5);
23076 t2=((C_word*)t0)[2];{
23077 C_word *av2=av;
23078 av2[0]=t2;
23079 av2[1]=C_a_i_record4(&a,4,lf[141],lf[167],((C_word*)t0)[3],t1);
23080 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23081 
23082 /* k8917 in k8929 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8919(C_word c,C_word * av)23083 static void C_ccall f_8919(C_word c,C_word *av){
23084 C_word tmp;
23085 C_word t0=av[0];
23086 C_word t1=av[1];
23087 C_word t2;
23088 C_word t3;
23089 C_word *a;
23090 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23091 C_save_and_reclaim((void *)f_8919,c,av);}
23092 a=C_alloc(3);
23093 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
23094 /* support.scm:532: scheme#reverse */
23095 t3=*((C_word*)lf[80]+1);{
23096 C_word *av2;
23097 if(c >= 3) {
23098   av2=av;
23099 } else {
23100   av2=C_alloc(3);
23101 }
23102 av2[0]=t3;
23103 av2[1]=((C_word*)t0)[3];
23104 av2[2]=t2;
23105 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
23106 
23107 /* k8921 in k8929 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8923(C_word c,C_word * av)23108 static void C_ccall f_8923(C_word c,C_word *av){
23109 C_word tmp;
23110 C_word t0=av[0];
23111 C_word t1=av[1];
23112 C_word t2;
23113 C_word *a;
23114 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
23115 C_save_and_reclaim((void *)f_8923,c,av);}
23116 /* support.scm:532: walk */
23117 t2=((C_word*)((C_word*)t0)[2])[1];
23118 f_8506(t2,((C_word*)t0)[3],t1);}
23119 
23120 /* k8929 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8931(C_word c,C_word * av)23121 static void C_ccall f_8931(C_word c,C_word *av){
23122 C_word tmp;
23123 C_word t0=av[0];
23124 C_word t1=av[1];
23125 C_word t2;
23126 C_word t3;
23127 C_word t4;
23128 C_word t5;
23129 C_word t6;
23130 C_word *a;
23131 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
23132 C_save_and_reclaim((void *)f_8931,c,av);}
23133 a=C_alloc(15);
23134 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
23135 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8911,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
23136 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8919,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
23137 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8923,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
23138 /* support.scm:532: scheme#cadar */
23139 t6=*((C_word*)lf[169]+1);{
23140 C_word *av2;
23141 if(c >= 3) {
23142   av2=av;
23143 } else {
23144   av2=C_alloc(3);
23145 }
23146 av2[0]=t6;
23147 av2[1]=t5;
23148 av2[2]=((C_word*)t0)[6];
23149 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
23150 
23151 /* k8950 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8952(C_word c,C_word * av)23152 static void C_ccall f_8952(C_word c,C_word *av){
23153 C_word tmp;
23154 C_word t0=av[0];
23155 C_word t1=av[1];
23156 C_word t2;
23157 C_word t3;
23158 C_word *a;
23159 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
23160 C_save_and_reclaim((void *)f_8952,c,av);}
23161 a=C_alloc(3);
23162 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
23163 /* support.scm:533: loop */
23164 t3=((C_word*)((C_word*)t0)[3])[1];
23165 f_8845(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);}
23166 
23167 /* k8954 in loop in k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8956(C_word c,C_word * av)23168 static void C_ccall f_8956(C_word c,C_word *av){
23169 C_word tmp;
23170 C_word t0=av[0];
23171 C_word t1=av[1];
23172 C_word t2;
23173 C_word *a;
23174 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
23175 C_save_and_reclaim((void *)f_8956,c,av);}
23176 /* support.scm:535: walk */
23177 t2=((C_word*)((C_word*)t0)[2])[1];
23178 f_8506(t2,((C_word*)t0)[3],t1);}
23179 
23180 /* k8966 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8968(C_word c,C_word * av)23181 static void C_ccall f_8968(C_word c,C_word *av){
23182 C_word tmp;
23183 C_word t0=av[0];
23184 C_word t1=av[1];
23185 C_word t2;
23186 C_word t3;
23187 C_word t4;
23188 C_word t5;
23189 C_word t6;
23190 C_word *a;
23191 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
23192 C_save_and_reclaim((void *)f_8968,c,av);}
23193 a=C_alloc(10);
23194 t2=C_a_i_list1(&a,1,t1);
23195 t3=C_SCHEME_UNDEFINED;
23196 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
23197 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp));
23198 t6=((C_word*)t4)[1];
23199 f_8845(t6,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_END_OF_LIST,t2);}
23200 
23201 /* k8993 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_8995(C_word t0,C_word t1)23202 static void C_fcall f_8995(C_word t0,C_word t1){
23203 C_word tmp;
23204 C_word t2;
23205 C_word t3;
23206 C_word t4;
23207 C_word t5;
23208 C_word t6;
23209 C_word t7;
23210 C_word t8;
23211 C_word t9;
23212 C_word t10;
23213 C_word t11;
23214 C_word t12;
23215 C_word t13;
23216 C_word *a;
23217 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
23218 C_save_and_reclaim_args((void *)trf_8995,2,t0,t1);}
23219 a=C_alloc(18);
23220 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
23221 t3=t2;
23222 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
23223 t5=((C_word*)t4)[1];
23224 t6=C_u_i_cdr(((C_word*)t0)[2]);
23225 t7=C_u_i_cdr(t6);
23226 t8=C_i_check_list_2(t7,lf[125]);
23227 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9007,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
23228 t10=C_SCHEME_UNDEFINED;
23229 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
23230 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9009,a[2]=t4,a[3]=t11,a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp));
23231 t13=((C_word*)t11)[1];
23232 f_9009(t13,t9,t7);}
23233 
23234 /* k9005 in k8993 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9007(C_word c,C_word * av)23235 static void C_ccall f_9007(C_word c,C_word *av){
23236 C_word tmp;
23237 C_word t0=av[0];
23238 C_word t1=av[1];
23239 C_word t2;
23240 C_word *a;
23241 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23242 C_save_and_reclaim((void *)f_9007,c,av);}
23243 a=C_alloc(5);
23244 t2=((C_word*)t0)[2];{
23245 C_word *av2=av;
23246 av2[0]=t2;
23247 av2[1]=C_a_i_record4(&a,4,lf[141],((C_word*)t0)[3],((C_word*)t0)[4],t1);
23248 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23249 
23250 /* map-loop1474 in k8993 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9009(C_word t0,C_word t1,C_word t2)23251 static void C_fcall f_9009(C_word t0,C_word t1,C_word t2){
23252 C_word tmp;
23253 C_word t3;
23254 C_word t4;
23255 C_word *a;
23256 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23257 C_save_and_reclaim_args((void *)trf_9009,3,t0,t1,t2);}
23258 a=C_alloc(6);
23259 if(C_truep(C_i_pairp(t2))){
23260 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23261 /* support.scm:541: g1480 */
23262 t4=((C_word*)((C_word*)t0)[4])[1];
23263 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23264 else{
23265 t3=t1;{
23266 C_word av2[2];
23267 av2[0]=t3;
23268 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23269 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23270 
23271 /* k9032 in map-loop1474 in k8993 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9034(C_word c,C_word * av)23272 static void C_ccall f_9034(C_word c,C_word *av){
23273 C_word tmp;
23274 C_word t0=av[0];
23275 C_word t1=av[1];
23276 C_word t2;
23277 C_word t3;
23278 C_word t4;
23279 C_word t5;
23280 C_word *a;
23281 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23282 C_save_and_reclaim((void *)f_9034,c,av);}
23283 a=C_alloc(3);
23284 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23285 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23286 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
23287 t5=((C_word*)((C_word*)t0)[3])[1];
23288 f_9009(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
23289 
23290 /* k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9068(C_word t0,C_word t1)23291 static void C_fcall f_9068(C_word t0,C_word t1){
23292 C_word tmp;
23293 C_word t2;
23294 C_word t3;
23295 C_word t4;
23296 C_word t5;
23297 C_word t6;
23298 C_word t7;
23299 C_word t8;
23300 C_word t9;
23301 C_word t10;
23302 C_word t11;
23303 C_word t12;
23304 C_word t13;
23305 C_word t14;
23306 C_word t15;
23307 C_word t16;
23308 C_word t17;
23309 C_word t18;
23310 C_word t19;
23311 C_word *a;
23312 if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
23313 C_save_and_reclaim_args((void *)trf_9068,2,t0,t1);}
23314 a=C_alloc(21);
23315 if(C_truep(t1)){
23316 t2=C_u_i_car(((C_word*)t0)[2]);
23317 t3=C_i_cadr(((C_word*)t0)[2]);
23318 t4=C_a_i_list1(&a,1,t3);
23319 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
23320 t6=t5;
23321 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
23322 t8=((C_word*)t7)[1];
23323 t9=C_u_i_cdr(((C_word*)t0)[2]);
23324 t10=C_u_i_cdr(t9);
23325 t11=C_i_check_list_2(t10,lf[125]);
23326 t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9094,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
23327 t13=C_SCHEME_UNDEFINED;
23328 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
23329 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9096,a[2]=t7,a[3]=t14,a[4]=((C_word*)t0)[4],a[5]=t8,tmp=(C_word)a,a+=6,tmp));
23330 t16=((C_word*)t14)[1];
23331 f_9096(t16,t12,t10);}
23332 else{
23333 t2=C_eqp(((C_word*)t0)[5],lf[173]);
23334 if(C_truep(t2)){
23335 t3=C_u_i_car(((C_word*)t0)[2]);
23336 t4=C_u_i_cdr(((C_word*)t0)[2]);
23337 t5=((C_word*)t0)[3];{
23338 C_word av2[2];
23339 av2[0]=t5;
23340 av2[1]=C_a_i_record4(&a,4,lf[141],t3,t4,C_SCHEME_END_OF_LIST);
23341 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
23342 else{
23343 t3=C_eqp(((C_word*)t0)[5],lf[174]);
23344 if(C_truep(t3)){
23345 t4=C_i_cadr(((C_word*)t0)[2]);
23346 t5=C_a_i_list2(&a,2,t4,C_SCHEME_TRUE);
23347 t6=((C_word*)t0)[3];{
23348 C_word av2[2];
23349 av2[0]=t6;
23350 av2[1]=C_a_i_record4(&a,4,lf[141],lf[174],t5,C_SCHEME_END_OF_LIST);
23351 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
23352 else{
23353 t4=C_eqp(((C_word*)t0)[5],lf[124]);
23354 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[5],lf[175]));
23355 if(C_truep(t5)){
23356 t6=C_i_cadr(((C_word*)t0)[2]);
23357 t7=C_a_i_list1(&a,1,t6);
23358 t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
23359 t9=t8;
23360 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
23361 t11=((C_word*)t10)[1];
23362 t12=C_u_i_cdr(((C_word*)t0)[2]);
23363 t13=C_u_i_cdr(t12);
23364 t14=C_i_check_list_2(t13,lf[125]);
23365 t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9205,a[2]=((C_word*)t0)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
23366 t16=C_SCHEME_UNDEFINED;
23367 t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
23368 t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9207,a[2]=t10,a[3]=t17,a[4]=((C_word*)t0)[4],a[5]=t11,tmp=(C_word)a,a+=6,tmp));
23369 t19=((C_word*)t17)[1];
23370 f_9207(t19,t15,t13);}
23371 else{
23372 t6=C_eqp(((C_word*)t0)[5],lf[176]);
23373 if(C_truep(t6)){
23374 t7=C_i_cadr(((C_word*)t0)[2]);
23375 t8=C_i_cadr(t7);
23376 t9=C_i_caddr(((C_word*)t0)[2]);
23377 t10=C_i_cadr(t9);
23378 t11=C_i_cadddr(((C_word*)t0)[2]);
23379 t12=C_i_cadr(t11);
23380 t13=C_i_cddddr(((C_word*)t0)[2]);
23381 t14=C_i_car(t13);
23382 t15=C_i_cadr(t14);
23383 t16=C_a_i_list4(&a,4,t8,t10,t12,t15);
23384 t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9272,a[2]=((C_word*)t0)[3],a[3]=t16,tmp=(C_word)a,a+=4,tmp);
23385 /* support.scm:557: walk */
23386 t18=((C_word*)((C_word*)t0)[4])[1];
23387 f_8506(t18,t17,C_i_list_ref(((C_word*)t0)[2],C_fix(5)));}
23388 else{
23389 t7=C_eqp(((C_word*)t0)[5],lf[177]);
23390 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
23391 if(C_truep(t7)){
23392 t9=t8;
23393 f_9313(t9,t7);}
23394 else{
23395 t9=C_eqp(((C_word*)t0)[5],lf[184]);
23396 if(C_truep(t9)){
23397 t10=t8;
23398 f_9313(t10,t9);}
23399 else{
23400 t10=C_eqp(((C_word*)t0)[5],lf[185]);
23401 if(C_truep(t10)){
23402 t11=t8;
23403 f_9313(t11,t10);}
23404 else{
23405 t11=C_eqp(((C_word*)t0)[5],lf[186]);
23406 t12=t8;
23407 f_9313(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[5],lf[187])));}}}}}}}}}
23408 
23409 /* k9092 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9094(C_word c,C_word * av)23410 static void C_ccall f_9094(C_word c,C_word *av){
23411 C_word tmp;
23412 C_word t0=av[0];
23413 C_word t1=av[1];
23414 C_word t2;
23415 C_word *a;
23416 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23417 C_save_and_reclaim((void *)f_9094,c,av);}
23418 a=C_alloc(5);
23419 t2=((C_word*)t0)[2];{
23420 C_word *av2=av;
23421 av2[0]=t2;
23422 av2[1]=C_a_i_record4(&a,4,lf[141],((C_word*)t0)[3],((C_word*)t0)[4],t1);
23423 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23424 
23425 /* map-loop1511 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9096(C_word t0,C_word t1,C_word t2)23426 static void C_fcall f_9096(C_word t0,C_word t1,C_word t2){
23427 C_word tmp;
23428 C_word t3;
23429 C_word t4;
23430 C_word *a;
23431 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23432 C_save_and_reclaim_args((void *)trf_9096,3,t0,t1,t2);}
23433 a=C_alloc(6);
23434 if(C_truep(C_i_pairp(t2))){
23435 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23436 /* support.scm:543: g1517 */
23437 t4=((C_word*)((C_word*)t0)[4])[1];
23438 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23439 else{
23440 t3=t1;{
23441 C_word av2[2];
23442 av2[0]=t3;
23443 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23444 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23445 
23446 /* k9119 in map-loop1511 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9121(C_word c,C_word * av)23447 static void C_ccall f_9121(C_word c,C_word *av){
23448 C_word tmp;
23449 C_word t0=av[0];
23450 C_word t1=av[1];
23451 C_word t2;
23452 C_word t3;
23453 C_word t4;
23454 C_word t5;
23455 C_word *a;
23456 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23457 C_save_and_reclaim((void *)f_9121,c,av);}
23458 a=C_alloc(3);
23459 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23460 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23461 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
23462 t5=((C_word*)((C_word*)t0)[3])[1];
23463 f_9096(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
23464 
23465 /* k9203 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9205(C_word c,C_word * av)23466 static void C_ccall f_9205(C_word c,C_word *av){
23467 C_word tmp;
23468 C_word t0=av[0];
23469 C_word t1=av[1];
23470 C_word t2;
23471 C_word *a;
23472 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23473 C_save_and_reclaim((void *)f_9205,c,av);}
23474 a=C_alloc(5);
23475 t2=((C_word*)t0)[2];{
23476 C_word *av2=av;
23477 av2[0]=t2;
23478 av2[1]=C_a_i_record4(&a,4,lf[141],lf[124],((C_word*)t0)[3],t1);
23479 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23480 
23481 /* map-loop1555 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9207(C_word t0,C_word t1,C_word t2)23482 static void C_fcall f_9207(C_word t0,C_word t1,C_word t2){
23483 C_word tmp;
23484 C_word t3;
23485 C_word t4;
23486 C_word *a;
23487 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23488 C_save_and_reclaim_args((void *)trf_9207,3,t0,t1,t2);}
23489 a=C_alloc(6);
23490 if(C_truep(C_i_pairp(t2))){
23491 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9232,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23492 /* support.scm:551: g1561 */
23493 t4=((C_word*)((C_word*)t0)[4])[1];
23494 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23495 else{
23496 t3=t1;{
23497 C_word av2[2];
23498 av2[0]=t3;
23499 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23500 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23501 
23502 /* k9230 in map-loop1555 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9232(C_word c,C_word * av)23503 static void C_ccall f_9232(C_word c,C_word *av){
23504 C_word tmp;
23505 C_word t0=av[0];
23506 C_word t1=av[1];
23507 C_word t2;
23508 C_word t3;
23509 C_word t4;
23510 C_word t5;
23511 C_word *a;
23512 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23513 C_save_and_reclaim((void *)f_9232,c,av);}
23514 a=C_alloc(3);
23515 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23516 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23517 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
23518 t5=((C_word*)((C_word*)t0)[3])[1];
23519 f_9207(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
23520 
23521 /* k9270 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9272(C_word c,C_word * av)23522 static void C_ccall f_9272(C_word c,C_word *av){
23523 C_word tmp;
23524 C_word t0=av[0];
23525 C_word t1=av[1];
23526 C_word t2;
23527 C_word t3;
23528 C_word *a;
23529 if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){
23530 C_save_and_reclaim((void *)f_9272,c,av);}
23531 a=C_alloc(8);
23532 t2=C_a_i_list1(&a,1,t1);
23533 t3=((C_word*)t0)[2];{
23534 C_word *av2=av;
23535 av2[0]=t3;
23536 av2[1]=C_a_i_record4(&a,4,lf[141],lf[176],((C_word*)t0)[3],t2);
23537 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
23538 
23539 /* k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9313(C_word t0,C_word t1)23540 static void C_fcall f_9313(C_word t0,C_word t1){
23541 C_word tmp;
23542 C_word t2;
23543 C_word t3;
23544 C_word t4;
23545 C_word t5;
23546 C_word t6;
23547 C_word t7;
23548 C_word t8;
23549 C_word t9;
23550 C_word t10;
23551 C_word t11;
23552 C_word t12;
23553 C_word t13;
23554 C_word t14;
23555 C_word *a;
23556 if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){
23557 C_save_and_reclaim_args((void *)trf_9313,2,t0,t1);}
23558 a=C_alloc(20);
23559 if(C_truep(t1)){
23560 t2=C_i_car(((C_word*)t0)[2]);
23561 t3=C_i_cadr(((C_word*)t0)[2]);
23562 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
23563 t5=t4;
23564 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
23565 t7=((C_word*)t6)[1];
23566 t8=C_i_cddr(((C_word*)t0)[2]);
23567 t9=C_i_check_list_2(t8,lf[125]);
23568 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9342,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
23569 t11=C_SCHEME_UNDEFINED;
23570 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
23571 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9344,a[2]=t6,a[3]=t12,a[4]=((C_word*)t0)[4],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
23572 t14=((C_word*)t12)[1];
23573 f_9344(t14,t10,t8);}
23574 else{
23575 t2=C_eqp(((C_word*)t0)[5],lf[178]);
23576 if(C_truep(t2)){
23577 t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
23578 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
23579 t5=t4;
23580 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
23581 t7=((C_word*)t6)[1];
23582 t8=C_u_i_cdr(((C_word*)t0)[2]);
23583 t9=C_i_check_list_2(t8,lf[125]);
23584 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9405,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
23585 t11=C_SCHEME_UNDEFINED;
23586 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
23587 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9407,a[2]=t6,a[3]=t12,a[4]=((C_word*)t0)[4],a[5]=t7,tmp=(C_word)a,a+=6,tmp));
23588 t14=((C_word*)t12)[1];
23589 f_9407(t14,t10,t8);}
23590 else{
23591 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9444,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
23592 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
23593 /* support.scm:564: ##sys#call-with-values */{
23594 C_word av2[4];
23595 av2[0]=0;
23596 av2[1]=((C_word*)t0)[3];
23597 av2[2]=t3;
23598 av2[3]=t4;
23599 C_call_with_values(4,av2);}}}}
23600 
23601 /* k9340 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9342(C_word c,C_word * av)23602 static void C_ccall f_9342(C_word c,C_word *av){
23603 C_word tmp;
23604 C_word t0=av[0];
23605 C_word t1=av[1];
23606 C_word t2;
23607 C_word *a;
23608 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23609 C_save_and_reclaim((void *)f_9342,c,av);}
23610 a=C_alloc(5);
23611 t2=((C_word*)t0)[2];{
23612 C_word *av2=av;
23613 av2[0]=t2;
23614 av2[1]=C_a_i_record4(&a,4,lf[141],((C_word*)t0)[3],((C_word*)t0)[4],t1);
23615 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23616 
23617 /* map-loop1604 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9344(C_word t0,C_word t1,C_word t2)23618 static void C_fcall f_9344(C_word t0,C_word t1,C_word t2){
23619 C_word tmp;
23620 C_word t3;
23621 C_word t4;
23622 C_word *a;
23623 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23624 C_save_and_reclaim_args((void *)trf_9344,3,t0,t1,t2);}
23625 a=C_alloc(6);
23626 if(C_truep(C_i_pairp(t2))){
23627 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23628 /* support.scm:560: g1610 */
23629 t4=((C_word*)((C_word*)t0)[4])[1];
23630 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23631 else{
23632 t3=t1;{
23633 C_word av2[2];
23634 av2[0]=t3;
23635 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23636 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23637 
23638 /* k9367 in map-loop1604 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9369(C_word c,C_word * av)23639 static void C_ccall f_9369(C_word c,C_word *av){
23640 C_word tmp;
23641 C_word t0=av[0];
23642 C_word t1=av[1];
23643 C_word t2;
23644 C_word t3;
23645 C_word t4;
23646 C_word t5;
23647 C_word *a;
23648 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23649 C_save_and_reclaim((void *)f_9369,c,av);}
23650 a=C_alloc(3);
23651 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23652 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23653 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
23654 t5=((C_word*)((C_word*)t0)[3])[1];
23655 f_9344(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
23656 
23657 /* k9403 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9405(C_word c,C_word * av)23658 static void C_ccall f_9405(C_word c,C_word *av){
23659 C_word tmp;
23660 C_word t0=av[0];
23661 C_word t1=av[1];
23662 C_word t2;
23663 C_word *a;
23664 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23665 C_save_and_reclaim((void *)f_9405,c,av);}
23666 a=C_alloc(5);
23667 t2=((C_word*)t0)[2];{
23668 C_word *av2=av;
23669 av2[0]=t2;
23670 av2[1]=C_a_i_record4(&a,4,lf[141],lf[179],((C_word*)t0)[3],t1);
23671 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23672 
23673 /* map-loop1635 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9407(C_word t0,C_word t1,C_word t2)23674 static void C_fcall f_9407(C_word t0,C_word t1,C_word t2){
23675 C_word tmp;
23676 C_word t3;
23677 C_word t4;
23678 C_word *a;
23679 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23680 C_save_and_reclaim_args((void *)trf_9407,3,t0,t1,t2);}
23681 a=C_alloc(6);
23682 if(C_truep(C_i_pairp(t2))){
23683 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23684 /* support.scm:562: g1641 */
23685 t4=((C_word*)((C_word*)t0)[4])[1];
23686 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23687 else{
23688 t3=t1;{
23689 C_word av2[2];
23690 av2[0]=t3;
23691 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23692 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23693 
23694 /* k9430 in map-loop1635 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9432(C_word c,C_word * av)23695 static void C_ccall f_9432(C_word c,C_word *av){
23696 C_word tmp;
23697 C_word t0=av[0];
23698 C_word t1=av[1];
23699 C_word t2;
23700 C_word t3;
23701 C_word t4;
23702 C_word t5;
23703 C_word *a;
23704 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23705 C_save_and_reclaim((void *)f_9432,c,av);}
23706 a=C_alloc(3);
23707 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23708 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23709 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
23710 t5=((C_word*)((C_word*)t0)[3])[1];
23711 f_9407(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
23712 
23713 /* a9443 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9444(C_word c,C_word * av)23714 static void C_ccall f_9444(C_word c,C_word *av){
23715 C_word tmp;
23716 C_word t0=av[0];
23717 C_word t1=av[1];
23718 C_word t2;
23719 C_word *a;
23720 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
23721 C_save_and_reclaim((void *)f_9444,c,av);}
23722 /* support.scm:564: get-line-2 */
23723 t2=*((C_word*)lf[137]+1);{
23724 C_word *av2;
23725 if(c >= 3) {
23726   av2=av;
23727 } else {
23728   av2=C_alloc(3);
23729 }
23730 av2[0]=t2;
23731 av2[1]=t1;
23732 av2[2]=((C_word*)t0)[2];
23733 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
23734 
23735 /* a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9450(C_word c,C_word * av)23736 static void C_ccall f_9450(C_word c,C_word *av){
23737 C_word tmp;
23738 C_word t0=av[0];
23739 C_word t1=av[1];
23740 C_word t2=av[2];
23741 C_word t3=av[3];
23742 C_word t4;
23743 C_word t5;
23744 C_word t6;
23745 C_word *a;
23746 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
23747 C_save_and_reclaim((void *)f_9450,c,av);}
23748 a=C_alloc(11);
23749 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9511,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
23750 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9539,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
23751 /* tweaks.scm:60: ##sys#get */
23752 t6=*((C_word*)lf[182]+1);{
23753 C_word *av2=av;
23754 av2[0]=t6;
23755 av2[1]=t5;
23756 av2[2]=t2;
23757 av2[3]=lf[183];
23758 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
23759 
23760 /* k9471 in k9513 in k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9473(C_word c,C_word * av)23761 static void C_ccall f_9473(C_word c,C_word *av){
23762 C_word tmp;
23763 C_word t0=av[0];
23764 C_word t1=av[1];
23765 C_word t2;
23766 C_word *a;
23767 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23768 C_save_and_reclaim((void *)f_9473,c,av);}
23769 a=C_alloc(5);
23770 t2=((C_word*)t0)[2];{
23771 C_word *av2=av;
23772 av2[0]=t2;
23773 av2[1]=C_a_i_record4(&a,4,lf[141],lf[179],((C_word*)t0)[3],t1);
23774 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23775 
23776 /* map-loop1681 in k9513 in k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9475(C_word t0,C_word t1,C_word t2)23777 static void C_fcall f_9475(C_word t0,C_word t1,C_word t2){
23778 C_word tmp;
23779 C_word t3;
23780 C_word t4;
23781 C_word *a;
23782 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23783 C_save_and_reclaim_args((void *)trf_9475,3,t0,t1,t2);}
23784 a=C_alloc(6);
23785 if(C_truep(C_i_pairp(t2))){
23786 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23787 /* support.scm:576: g1687 */
23788 t4=((C_word*)((C_word*)t0)[4])[1];
23789 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23790 else{
23791 t3=t1;{
23792 C_word av2[2];
23793 av2[0]=t3;
23794 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23795 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23796 
23797 /* k9498 in map-loop1681 in k9513 in k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 in ... */
f_9500(C_word c,C_word * av)23798 static void C_ccall f_9500(C_word c,C_word *av){
23799 C_word tmp;
23800 C_word t0=av[0];
23801 C_word t1=av[1];
23802 C_word t2;
23803 C_word t3;
23804 C_word t4;
23805 C_word t5;
23806 C_word *a;
23807 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23808 C_save_and_reclaim((void *)f_9500,c,av);}
23809 a=C_alloc(3);
23810 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23811 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23812 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
23813 t5=((C_word*)((C_word*)t0)[3])[1];
23814 f_9475(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
23815 
23816 /* k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9511(C_word t0,C_word t1)23817 static void C_fcall f_9511(C_word t0,C_word t1){
23818 C_word tmp;
23819 C_word t2;
23820 C_word t3;
23821 C_word t4;
23822 C_word *a;
23823 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
23824 C_save_and_reclaim_args((void *)trf_9511,2,t0,t1);}
23825 a=C_alloc(11);
23826 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9515,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
23827 if(C_truep(((C_word*)t0)[5])){
23828 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9518,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
23829 /* support.scm:572: real-name */
23830 t4=*((C_word*)lf[181]+1);{
23831 C_word av2[3];
23832 av2[0]=t4;
23833 av2[1]=t3;
23834 av2[2]=((C_word*)t0)[6];
23835 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
23836 else{
23837 /* support.scm:575: ##sys#symbol->string */
23838 t3=*((C_word*)lf[180]+1);{
23839 C_word av2[3];
23840 av2[0]=t3;
23841 av2[1]=t2;
23842 av2[2]=((C_word*)t0)[6];
23843 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
23844 
23845 /* k9513 in k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9515(C_word c,C_word * av)23846 static void C_ccall f_9515(C_word c,C_word *av){
23847 C_word tmp;
23848 C_word t0=av[0];
23849 C_word t1=av[1];
23850 C_word t2;
23851 C_word t3;
23852 C_word t4;
23853 C_word t5;
23854 C_word t6;
23855 C_word t7;
23856 C_word t8;
23857 C_word t9;
23858 C_word t10;
23859 C_word t11;
23860 C_word t12;
23861 C_word *a;
23862 if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
23863 C_save_and_reclaim((void *)f_9515,c,av);}
23864 a=C_alloc(23);
23865 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
23866 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
23867 t4=t3;
23868 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
23869 t6=((C_word*)t5)[1];
23870 t7=C_i_check_list_2(((C_word*)t0)[3],lf[125]);
23871 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9473,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
23872 t9=C_SCHEME_UNDEFINED;
23873 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
23874 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9475,a[2]=t5,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
23875 t12=((C_word*)t10)[1];
23876 f_9475(t12,t8,((C_word*)t0)[3]);}
23877 
23878 /* k9516 in k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9518(C_word c,C_word * av)23879 static void C_ccall f_9518(C_word c,C_word *av){
23880 C_word tmp;
23881 C_word t0=av[0];
23882 C_word t1=av[1];
23883 C_word t2;
23884 C_word t3;
23885 C_word *a;
23886 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
23887 C_save_and_reclaim((void *)f_9518,c,av);}
23888 a=C_alloc(10);
23889 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
23890 if(C_truep(t1)){
23891 t3=((C_word*)t0)[2];{
23892 C_word *av2=av;
23893 av2[0]=t3;
23894 av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
23895 f_9515(2,av2);}}
23896 else{
23897 /* support.scm:574: ##sys#symbol->string */
23898 t3=*((C_word*)lf[180]+1);{
23899 C_word *av2;
23900 if(c >= 3) {
23901   av2=av;
23902 } else {
23903   av2=C_alloc(3);
23904 }
23905 av2[0]=t3;
23906 av2[1]=t2;
23907 av2[2]=((C_word*)t0)[4];
23908 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
23909 
23910 /* k9523 in k9516 in k9509 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9525(C_word c,C_word * av)23911 static void C_ccall f_9525(C_word c,C_word *av){
23912 C_word tmp;
23913 C_word t0=av[0];
23914 C_word t1=av[1];
23915 C_word t2;
23916 C_word *a;
23917 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
23918 C_save_and_reclaim((void *)f_9525,c,av);}
23919 a=C_alloc(6);
23920 t2=((C_word*)t0)[2];{
23921 C_word *av2=av;
23922 av2[0]=t2;
23923 av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
23924 f_9515(2,av2);}}
23925 
23926 /* k9537 in a9449 in k9311 in k9066 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9539(C_word c,C_word * av)23927 static void C_ccall f_9539(C_word c,C_word *av){
23928 C_word tmp;
23929 C_word t0=av[0];
23930 C_word t1=av[1];
23931 C_word t2;
23932 C_word t3;
23933 C_word t4;
23934 C_word *a;
23935 if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
23936 C_save_and_reclaim((void *)f_9539,c,av);}
23937 a=C_alloc(29);
23938 if(C_truep(t1)){
23939 t2=((C_word*)((C_word*)t0)[2])[1];
23940 t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
23941 t4=((C_word*)t0)[3];
23942 f_9511(t4,C_SCHEME_TRUE);}
23943 else{
23944 t2=((C_word*)t0)[3];
23945 f_9511(t2,C_SCHEME_FALSE);}}
23946 
23947 /* k9643 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9645(C_word c,C_word * av)23948 static void C_ccall f_9645(C_word c,C_word *av){
23949 C_word tmp;
23950 C_word t0=av[0];
23951 C_word t1=av[1];
23952 C_word t2;
23953 C_word *a;
23954 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
23955 C_save_and_reclaim((void *)f_9645,c,av);}
23956 a=C_alloc(5);
23957 t2=((C_word*)t0)[2];{
23958 C_word *av2=av;
23959 av2[0]=t2;
23960 av2[1]=C_a_i_record4(&a,4,lf[141],lf[179],((C_word*)t0)[3],t1);
23961 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23962 
23963 /* map-loop1712 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9647(C_word t0,C_word t1,C_word t2)23964 static void C_fcall f_9647(C_word t0,C_word t1,C_word t2){
23965 C_word tmp;
23966 C_word t3;
23967 C_word t4;
23968 C_word *a;
23969 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23970 C_save_and_reclaim_args((void *)trf_9647,3,t0,t1,t2);}
23971 a=C_alloc(6);
23972 if(C_truep(C_i_pairp(t2))){
23973 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
23974 /* support.scm:577: g1718 */
23975 t4=((C_word*)((C_word*)t0)[4])[1];
23976 f_8506(t4,t3,C_slot(t2,C_fix(0)));}
23977 else{
23978 t3=t1;{
23979 C_word av2[2];
23980 av2[0]=t3;
23981 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
23982 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
23983 
23984 /* k9670 in map-loop1712 in walk in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9672(C_word c,C_word * av)23985 static void C_ccall f_9672(C_word c,C_word *av){
23986 C_word tmp;
23987 C_word t0=av[0];
23988 C_word t1=av[1];
23989 C_word t2;
23990 C_word t3;
23991 C_word t4;
23992 C_word t5;
23993 C_word *a;
23994 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
23995 C_save_and_reclaim((void *)f_9672,c,av);}
23996 a=C_alloc(3);
23997 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
23998 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
23999 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
24000 t5=((C_word*)((C_word*)t0)[3])[1];
24001 f_9647(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
24002 
24003 /* k9688 in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9690(C_word c,C_word * av)24004 static void C_ccall f_9690(C_word c,C_word *av){
24005 C_word tmp;
24006 C_word t0=av[0];
24007 C_word t1=av[1];
24008 C_word t2;
24009 C_word t3;
24010 C_word t4;
24011 C_word *a;
24012 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
24013 C_save_and_reclaim((void *)f_9690,c,av);}
24014 a=C_alloc(4);
24015 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9693,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
24016 t3=((C_word*)((C_word*)t0)[3])[1];
24017 if(C_truep(C_i_positivep(t3))){
24018 /* support.scm:580: debugging */
24019 t4=*((C_word*)lf[22]+1);{
24020 C_word *av2;
24021 if(c >= 5) {
24022   av2=av;
24023 } else {
24024   av2=C_alloc(5);
24025 }
24026 av2[0]=t4;
24027 av2[1]=t2;
24028 av2[2]=lf[190];
24029 av2[3]=lf[191];
24030 av2[4]=((C_word*)((C_word*)t0)[3])[1];
24031 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
24032 else{
24033 t4=((C_word*)t0)[2];{
24034 C_word *av2=av;
24035 av2[0]=t4;
24036 av2[1]=t1;
24037 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
24038 
24039 /* k9691 in k9688 in chicken.compiler.support#build-node-graph in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9693(C_word c,C_word * av)24040 static void C_ccall f_9693(C_word c,C_word *av){
24041 C_word tmp;
24042 C_word t0=av[0];
24043 C_word t1=av[1];
24044 C_word t2;
24045 C_word *a;
24046 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
24047 C_save_and_reclaim((void *)f_9693,c,av);}
24048 t2=((C_word*)t0)[2];{
24049 C_word *av2=av;
24050 av2[0]=t2;
24051 av2[1]=((C_word*)t0)[3];
24052 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
24053 
24054 /* chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9699(C_word c,C_word * av)24055 static void C_ccall f_9699(C_word c,C_word *av){
24056 C_word tmp;
24057 C_word t0=av[0];
24058 C_word t1=av[1];
24059 C_word t2=av[2];
24060 C_word t3;
24061 C_word t4;
24062 C_word t5;
24063 C_word t6;
24064 C_word *a;
24065 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
24066 C_save_and_reclaim((void *)f_9699,c,av);}
24067 a=C_alloc(5);
24068 t3=C_SCHEME_UNDEFINED;
24069 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
24070 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9705,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
24071 t6=((C_word*)t4)[1];
24072 f_9705(t6,t1,t2);}
24073 
24074 /* walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9705(C_word t0,C_word t1,C_word t2)24075 static void C_fcall f_9705(C_word t0,C_word t1,C_word t2){
24076 C_word tmp;
24077 C_word t3;
24078 C_word t4;
24079 C_word t5;
24080 C_word t6;
24081 C_word t7;
24082 C_word t8;
24083 C_word t9;
24084 C_word *a;
24085 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
24086 C_save_and_reclaim_args((void *)trf_9705,3,t0,t1,t2);}
24087 a=C_alloc(7);
24088 t3=C_slot(t2,C_fix(3));
24089 t4=C_slot(t2,C_fix(2));
24090 t5=C_slot(t2,C_fix(1));
24091 t6=C_eqp(t5,lf[158]);
24092 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9739,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=t4,tmp=(C_word)a,a+=7,tmp);
24093 if(C_truep(t6)){
24094 t8=t7;
24095 f_9739(t8,t6);}
24096 else{
24097 t8=C_eqp(t5,lf[203]);
24098 t9=t7;
24099 f_9739(t9,(C_truep(t8)?t8:C_eqp(t5,lf[204])));}}
24100 
24101 /* k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9739(C_word t0,C_word t1)24102 static void C_fcall f_9739(C_word t0,C_word t1){
24103 C_word tmp;
24104 C_word t2;
24105 C_word t3;
24106 C_word t4;
24107 C_word t5;
24108 C_word t6;
24109 C_word t7;
24110 C_word t8;
24111 C_word t9;
24112 C_word t10;
24113 C_word t11;
24114 C_word t12;
24115 C_word t13;
24116 C_word t14;
24117 C_word t15;
24118 C_word t16;
24119 C_word t17;
24120 C_word t18;
24121 C_word t19;
24122 C_word t20;
24123 C_word t21;
24124 C_word t22;
24125 C_word *a;
24126 if(C_unlikely(!C_demand(C_calculate_demand(20,0,5)))){
24127 C_save_and_reclaim_args((void *)trf_9739,2,t0,t1);}
24128 a=C_alloc(20);
24129 if(C_truep(t1)){
24130 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24131 t3=t2;
24132 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
24133 t5=((C_word*)t4)[1];
24134 t6=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
24135 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9752,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
24136 t8=C_SCHEME_UNDEFINED;
24137 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
24138 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9754,a[2]=t4,a[3]=t9,a[4]=((C_word*)t0)[5],a[5]=t5,tmp=(C_word)a,a+=6,tmp));
24139 t11=((C_word*)t9)[1];
24140 f_9754(t11,t7,((C_word*)t0)[2]);}
24141 else{
24142 t2=C_eqp(((C_word*)t0)[4],lf[193]);
24143 if(C_truep(t2)){
24144 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24145 t4=t3;
24146 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
24147 t6=((C_word*)t5)[1];
24148 t7=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
24149 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9809,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
24150 t9=C_SCHEME_UNDEFINED;
24151 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
24152 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9811,a[2]=t5,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
24153 t12=((C_word*)t10)[1];
24154 f_9811(t12,t8,((C_word*)t0)[2]);}
24155 else{
24156 t3=C_eqp(((C_word*)t0)[4],lf[154]);
24157 if(C_truep(t3)){
24158 t4=((C_word*)t0)[3];{
24159 C_word av2[2];
24160 av2[0]=t4;
24161 av2[1]=C_i_car(((C_word*)t0)[6]);
24162 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
24163 else{
24164 t4=C_eqp(((C_word*)t0)[4],lf[85]);
24165 if(C_truep(t4)){
24166 t5=C_i_car(((C_word*)t0)[6]);
24167 t6=C_booleanp(t5);
24168 if(C_truep(t6)){
24169 if(C_truep(t6)){
24170 t7=((C_word*)t0)[3];{
24171 C_word av2[2];
24172 av2[0]=t7;
24173 av2[1]=t5;
24174 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
24175 else{
24176 t7=C_u_i_car(((C_word*)t0)[6]);
24177 t8=((C_word*)t0)[3];{
24178 C_word av2[2];
24179 av2[0]=t8;
24180 av2[1]=C_a_i_list(&a,2,lf[85],t7);
24181 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
24182 else{
24183 t7=C_i_stringp(t5);
24184 if(C_truep(t7)){
24185 if(C_truep(t7)){
24186 t8=((C_word*)t0)[3];{
24187 C_word av2[2];
24188 av2[0]=t8;
24189 av2[1]=t5;
24190 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
24191 else{
24192 t8=C_u_i_car(((C_word*)t0)[6]);
24193 t9=((C_word*)t0)[3];{
24194 C_word av2[2];
24195 av2[0]=t9;
24196 av2[1]=C_a_i_list(&a,2,lf[85],t8);
24197 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
24198 else{
24199 t8=C_i_numberp(t5);
24200 t9=(C_truep(t8)?t8:C_charp(t5));
24201 if(C_truep(t9)){
24202 t10=((C_word*)t0)[3];{
24203 C_word av2[2];
24204 av2[0]=t10;
24205 av2[1]=t5;
24206 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
24207 else{
24208 t10=C_u_i_car(((C_word*)t0)[6]);
24209 t11=((C_word*)t0)[3];{
24210 C_word av2[2];
24211 av2[0]=t11;
24212 av2[1]=C_a_i_list(&a,2,lf[85],t10);
24213 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}
24214 else{
24215 t5=C_eqp(((C_word*)t0)[4],lf[96]);
24216 if(C_truep(t5)){
24217 t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24218 t7=t6;
24219 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
24220 t9=((C_word*)t8)[1];
24221 t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24222 t11=t10;
24223 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
24224 t13=((C_word*)t12)[1];
24225 t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9909,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=t8,a[7]=t9,a[8]=t12,a[9]=t13,tmp=(C_word)a,a+=10,tmp);
24226 /* support.scm:599: chicken.base#butlast */
24227 t15=*((C_word*)lf[194]+1);{
24228 C_word av2[3];
24229 av2[0]=t15;
24230 av2[1]=t14;
24231 av2[2]=((C_word*)t0)[2];
24232 ((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}
24233 else{
24234 t6=C_eqp(((C_word*)t0)[4],lf[118]);
24235 if(C_truep(t6)){
24236 t7=C_i_cadr(((C_word*)t0)[6]);
24237 t8=(C_truep(t7)?lf[165]:lf[118]);
24238 t9=C_i_caddr(((C_word*)t0)[6]);
24239 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10032,a[2]=((C_word*)t0)[3],a[3]=t8,a[4]=t9,tmp=(C_word)a,a+=5,tmp);
24240 /* support.scm:606: walk */
24241 t11=((C_word*)((C_word*)t0)[5])[1];
24242 f_9705(t11,t10,C_i_car(((C_word*)t0)[2]));}
24243 else{
24244 t7=C_eqp(((C_word*)t0)[4],lf[166]);
24245 if(C_truep(t7)){
24246 t8=C_i_car(((C_word*)t0)[6]);
24247 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10056,a[2]=((C_word*)t0)[3],a[3]=t8,tmp=(C_word)a,a+=4,tmp);
24248 /* support.scm:608: walk */
24249 t10=((C_word*)((C_word*)t0)[5])[1];
24250 f_9705(t10,t9,C_i_car(((C_word*)t0)[2]));}
24251 else{
24252 t8=C_eqp(((C_word*)t0)[4],lf[196]);
24253 if(C_truep(t8)){
24254 /* support.scm:610: walk */
24255 t9=((C_word*)((C_word*)t0)[5])[1];
24256 f_9705(t9,((C_word*)t0)[3],C_i_car(((C_word*)t0)[2]));}
24257 else{
24258 t9=C_eqp(((C_word*)t0)[4],lf[167]);
24259 if(C_truep(t9)){
24260 t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10090,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
24261 /* support.scm:613: walk */
24262 t11=((C_word*)((C_word*)t0)[5])[1];
24263 f_9705(t11,t10,C_i_car(((C_word*)t0)[2]));}
24264 else{
24265 t10=C_eqp(((C_word*)t0)[4],lf[179]);
24266 if(C_truep(t10)){
24267 t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24268 t12=t11;
24269 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
24270 t14=((C_word*)t13)[1];
24271 t15=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
24272 t16=C_SCHEME_UNDEFINED;
24273 t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
24274 t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10180,a[2]=t13,a[3]=t17,a[4]=((C_word*)t0)[5],a[5]=t14,tmp=(C_word)a,a+=6,tmp));
24275 t19=((C_word*)t17)[1];
24276 f_10180(t19,((C_word*)t0)[3],((C_word*)t0)[2]);}
24277 else{
24278 t11=C_eqp(((C_word*)t0)[4],lf[189]);
24279 if(C_truep(t11)){
24280 t12=C_i_car(((C_word*)t0)[6]);
24281 t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24282 t14=t13;
24283 t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
24284 t16=((C_word*)t15)[1];
24285 t17=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
24286 t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10235,a[2]=((C_word*)t0)[3],a[3]=t12,tmp=(C_word)a,a+=4,tmp);
24287 t19=C_SCHEME_UNDEFINED;
24288 t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
24289 t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10237,a[2]=t15,a[3]=t20,a[4]=((C_word*)t0)[5],a[5]=t16,tmp=(C_word)a,a+=6,tmp));
24290 t22=((C_word*)t20)[1];
24291 f_10237(t22,t18,((C_word*)t0)[2]);}
24292 else{
24293 t12=C_eqp(((C_word*)t0)[4],lf[159]);
24294 if(C_truep(t12)){
24295 t13=((C_word*)t0)[3];{
24296 C_word av2[2];
24297 av2[0]=t13;
24298 av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[4]);
24299 ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
24300 else{
24301 t13=C_eqp(((C_word*)t0)[4],lf[198]);
24302 if(C_truep(t13)){
24303 t14=C_i_car(((C_word*)t0)[6]);
24304 t15=C_SCHEME_UNDEFINED;
24305 t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
24306 t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10293,a[2]=((C_word*)t0)[5],a[3]=t16,tmp=(C_word)a,a+=4,tmp));
24307 t18=((C_word*)t16)[1];
24308 f_10293(t18,((C_word*)t0)[3],t14,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);}
24309 else{
24310 t14=C_eqp(((C_word*)t0)[4],lf[199]);
24311 t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10343,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
24312 if(C_truep(t14)){
24313 t16=t15;
24314 f_10343(t16,t14);}
24315 else{
24316 t16=C_eqp(((C_word*)t0)[4],lf[200]);
24317 if(C_truep(t16)){
24318 t17=t15;
24319 f_10343(t17,t16);}
24320 else{
24321 t17=C_eqp(((C_word*)t0)[4],lf[201]);
24322 t18=t15;
24323 f_10343(t18,(C_truep(t17)?t17:C_eqp(((C_word*)t0)[4],lf[202])));}}}}}}}}}}}}}}}}
24324 
24325 /* k9750 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9752(C_word c,C_word * av)24326 static void C_ccall f_9752(C_word c,C_word *av){
24327 C_word tmp;
24328 C_word t0=av[0];
24329 C_word t1=av[1];
24330 C_word t2;
24331 C_word *a;
24332 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
24333 C_save_and_reclaim((void *)f_9752,c,av);}
24334 a=C_alloc(3);
24335 t2=((C_word*)t0)[2];{
24336 C_word *av2=av;
24337 av2[0]=t2;
24338 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
24339 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
24340 
24341 /* map-loop1769 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9754(C_word t0,C_word t1,C_word t2)24342 static void C_fcall f_9754(C_word t0,C_word t1,C_word t2){
24343 C_word tmp;
24344 C_word t3;
24345 C_word t4;
24346 C_word *a;
24347 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
24348 C_save_and_reclaim_args((void *)trf_9754,3,t0,t1,t2);}
24349 a=C_alloc(6);
24350 if(C_truep(C_i_pairp(t2))){
24351 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
24352 /* support.scm:589: g1775 */
24353 t4=((C_word*)((C_word*)t0)[4])[1];
24354 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
24355 else{
24356 t3=t1;{
24357 C_word av2[2];
24358 av2[0]=t3;
24359 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
24360 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
24361 
24362 /* k9777 in map-loop1769 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9779(C_word c,C_word * av)24363 static void C_ccall f_9779(C_word c,C_word *av){
24364 C_word tmp;
24365 C_word t0=av[0];
24366 C_word t1=av[1];
24367 C_word t2;
24368 C_word t3;
24369 C_word t4;
24370 C_word t5;
24371 C_word *a;
24372 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
24373 C_save_and_reclaim((void *)f_9779,c,av);}
24374 a=C_alloc(3);
24375 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
24376 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
24377 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
24378 t5=((C_word*)((C_word*)t0)[3])[1];
24379 f_9754(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
24380 
24381 /* k9807 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9809(C_word c,C_word * av)24382 static void C_ccall f_9809(C_word c,C_word *av){
24383 C_word tmp;
24384 C_word t0=av[0];
24385 C_word t1=av[1];
24386 C_word t2;
24387 C_word t3;
24388 C_word *a;
24389 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
24390 C_save_and_reclaim((void *)f_9809,c,av);}
24391 a=C_alloc(6);
24392 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
24393 t3=((C_word*)t0)[3];{
24394 C_word *av2=av;
24395 av2[0]=t3;
24396 av2[1]=C_a_i_cons(&a,2,lf[193],t2);
24397 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
24398 
24399 /* map-loop1798 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9811(C_word t0,C_word t1,C_word t2)24400 static void C_fcall f_9811(C_word t0,C_word t1,C_word t2){
24401 C_word tmp;
24402 C_word t3;
24403 C_word t4;
24404 C_word *a;
24405 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
24406 C_save_and_reclaim_args((void *)trf_9811,3,t0,t1,t2);}
24407 a=C_alloc(6);
24408 if(C_truep(C_i_pairp(t2))){
24409 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9836,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
24410 /* support.scm:591: g1804 */
24411 t4=((C_word*)((C_word*)t0)[4])[1];
24412 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
24413 else{
24414 t3=t1;{
24415 C_word av2[2];
24416 av2[0]=t3;
24417 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
24418 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
24419 
24420 /* k9834 in map-loop1798 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9836(C_word c,C_word * av)24421 static void C_ccall f_9836(C_word c,C_word *av){
24422 C_word tmp;
24423 C_word t0=av[0];
24424 C_word t1=av[1];
24425 C_word t2;
24426 C_word t3;
24427 C_word t4;
24428 C_word t5;
24429 C_word *a;
24430 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
24431 C_save_and_reclaim((void *)f_9836,c,av);}
24432 a=C_alloc(3);
24433 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
24434 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
24435 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
24436 t5=((C_word*)((C_word*)t0)[3])[1];
24437 f_9811(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
24438 
24439 /* k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9909(C_word c,C_word * av)24440 static void C_ccall f_9909(C_word c,C_word *av){
24441 C_word tmp;
24442 C_word t0=av[0];
24443 C_word t1=av[1];
24444 C_word t2;
24445 C_word t3;
24446 C_word t4;
24447 C_word t5;
24448 C_word t6;
24449 C_word *a;
24450 if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
24451 C_save_and_reclaim((void *)f_9909,c,av);}
24452 a=C_alloc(16);
24453 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9912,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
24454 t3=C_SCHEME_UNDEFINED;
24455 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
24456 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9979,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp));
24457 t6=((C_word*)t4)[1];
24458 f_9979(t6,t2,t1);}
24459 
24460 /* k9910 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9912(C_word c,C_word * av)24461 static void C_ccall f_9912(C_word c,C_word *av){
24462 C_word tmp;
24463 C_word t0=av[0];
24464 C_word t1=av[1];
24465 C_word t2;
24466 C_word t3;
24467 C_word t4;
24468 C_word t5;
24469 C_word t6;
24470 C_word t7;
24471 C_word t8;
24472 C_word *a;
24473 if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
24474 C_save_and_reclaim((void *)f_9912,c,av);}
24475 a=C_alloc(12);
24476 t2=C_i_check_list_2(((C_word*)t0)[2],lf[125]);
24477 t3=C_i_check_list_2(t1,lf[125]);
24478 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9921,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
24479 t5=C_SCHEME_UNDEFINED;
24480 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
24481 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9931,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp));
24482 t8=((C_word*)t6)[1];
24483 f_9931(t8,t4,((C_word*)t0)[2],t1);}
24484 
24485 /* k9919 in k9910 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9921(C_word c,C_word * av)24486 static void C_ccall f_9921(C_word c,C_word *av){
24487 C_word tmp;
24488 C_word t0=av[0];
24489 C_word t1=av[1];
24490 C_word t2;
24491 C_word t3;
24492 C_word t4;
24493 C_word *a;
24494 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
24495 C_save_and_reclaim((void *)f_9921,c,av);}
24496 a=C_alloc(8);
24497 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9925,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
24498 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9929,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
24499 /* support.scm:600: last */
24500 f_6143(t3,((C_word*)t0)[4]);}
24501 
24502 /* k9923 in k9919 in k9910 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9925(C_word c,C_word * av)24503 static void C_ccall f_9925(C_word c,C_word *av){
24504 C_word tmp;
24505 C_word t0=av[0];
24506 C_word t1=av[1];
24507 C_word t2;
24508 C_word *a;
24509 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
24510 C_save_and_reclaim((void *)f_9925,c,av);}
24511 a=C_alloc(9);
24512 t2=((C_word*)t0)[2];{
24513 C_word *av2=av;
24514 av2[0]=t2;
24515 av2[1]=C_a_i_list(&a,3,lf[96],((C_word*)t0)[3],t1);
24516 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
24517 
24518 /* k9927 in k9919 in k9910 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9929(C_word c,C_word * av)24519 static void C_ccall f_9929(C_word c,C_word *av){
24520 C_word tmp;
24521 C_word t0=av[0];
24522 C_word t1=av[1];
24523 C_word t2;
24524 C_word *a;
24525 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
24526 C_save_and_reclaim((void *)f_9929,c,av);}
24527 /* support.scm:600: walk */
24528 t2=((C_word*)((C_word*)t0)[2])[1];
24529 f_9705(t2,((C_word*)t0)[3],t1);}
24530 
24531 /* map-loop1840 in k9910 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9931(C_word t0,C_word t1,C_word t2,C_word t3)24532 static void C_fcall f_9931(C_word t0,C_word t1,C_word t2,C_word t3){
24533 C_word tmp;
24534 C_word t4;
24535 C_word t5;
24536 C_word t6;
24537 C_word t7;
24538 C_word t8;
24539 C_word t9;
24540 C_word t10;
24541 C_word t11;
24542 C_word t12;
24543 C_word t13;
24544 C_word t14;
24545 C_word t15;
24546 C_word *a;
24547 loop:
24548 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
24549 C_save_and_reclaim_args((void *)trf_9931,4,t0,t1,t2,t3);}
24550 a=C_alloc(9);
24551 t4=C_i_pairp(t2);
24552 t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
24553 if(C_truep(t5)){
24554 t6=C_slot(t2,C_fix(0));
24555 t7=C_slot(t3,C_fix(0));
24556 t8=C_a_i_list2(&a,2,t6,t7);
24557 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
24558 t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
24559 t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
24560 t13=t1;
24561 t14=C_slot(t2,C_fix(1));
24562 t15=C_slot(t3,C_fix(1));
24563 t1=t13;
24564 t2=t14;
24565 t3=t15;
24566 goto loop;}
24567 else{
24568 t6=t1;{
24569 C_word av2[2];
24570 av2[0]=t6;
24571 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
24572 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
24573 
24574 /* map-loop1861 in k9907 in k9737 in walk in chicken.compiler.support#build-expression-tree in k8463 in k7810 in k7807 in k6682 in k5370 in k5367 in k5364 in k5361 in k5358 in k5355 in k5352 in k5349 in k5346 */
f_9979(C_word t0,C_word t1,C_word t2)24575 static void C_fcall f_9979(C_word t0,C_word t1,C_word t2){
24576 C_word tmp;
24577 C_word t3;
24578 C_word t4;
24579 C_word *a;
24580 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
24581 C_save_and_reclaim_args((void *)trf_9979,3,t0,t1,t2);}
24582 a=C_alloc(6);
24583 if(C_truep(C_i_pairp(t2))){
24584 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10004,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
24585 /* support.scm:599: g1867 */
24586 t4=((C_word*)((C_word*)t0)[4])[1];
24587 f_9705(t4,t3,C_slot(t2,C_fix(0)));}
24588 else{
24589 t3=t1;{
24590 C_word av2[2];
24591 av2[0]=t3;
24592 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
24593 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
24594 
24595 /* toplevel */
24596 static C_TLS int toplevel_initialized=0;
24597 
C_support_toplevel(C_word c,C_word * av)24598 void C_ccall C_support_toplevel(C_word c,C_word *av){
24599 C_word tmp;
24600 C_word t0=av[0];
24601 C_word t1=av[1];
24602 C_word t2;
24603 C_word t3;
24604 C_word *a;
24605 if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
24606 else C_toplevel_entry(C_text("support"));
24607 C_check_nursery_minimum(C_calculate_demand(3,c,2));
24608 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
24609 C_save_and_reclaim((void*)C_support_toplevel,c,av);}
24610 toplevel_initialized=1;
24611 if(C_unlikely(!C_demand_2(4077))){
24612 C_save(t1);
24613 C_rereclaim2(4077*sizeof(C_word),1);
24614 t1=C_restore;}
24615 a=C_alloc(3);
24616 C_initialize_lf(lf,550);
24617 lf[0]=C_h_intern(&lf[0],7, C_text("support"));
24618 lf[1]=C_h_intern(&lf[1],25, C_text("chicken.compiler.support#"));
24619 lf[8]=C_h_intern(&lf[8],36, C_text("chicken.compiler.support#number-type"));
24620 lf[9]=C_h_intern(&lf[9],7, C_text("generic"));
24621 lf[10]=C_h_intern(&lf[10],31, C_text("chicken.compiler.support#unsafe"));
24622 lf[11]=C_h_intern(&lf[11],46, C_text("chicken.compiler.support#compiler-cleanup-hook"));
24623 lf[12]=C_h_intern(&lf[12],42, C_text("chicken.compiler.support#debugging-chicken"));
24624 lf[13]=C_h_intern(&lf[13],29, C_text("chicken.compiler.support#bomb"));
24625 lf[14]=C_h_intern(&lf[14],18, C_text("chicken.base#error"));
24626 lf[15]=C_h_intern(&lf[15],20, C_text("scheme#string-append"));
24627 lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032[internal compiler error] "));
24628 lf[17]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031[internal compiler error]"));
24629 lf[18]=C_h_intern(&lf[18],51, C_text("chicken.compiler.support#collected-debugging-output"));
24630 lf[20]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001o\376\003\000\000\002\376\001\000\000\001\001x\376\003\000\000\002\376\001\000\000\001\001S\376\377\016"));
24631 lf[22]=C_h_intern(&lf[22],34, C_text("chicken.compiler.support#debugging"));
24632 lf[23]=C_h_intern(&lf[23],14, C_text("scheme#newline"));
24633 lf[24]=C_h_intern(&lf[24],21, C_text("##sys#standard-output"));
24634 lf[25]=C_h_intern(&lf[25],6, C_text("printf"));
24635 lf[26]=C_h_intern(&lf[26],18, C_text("##sys#write-char-0"));
24636 lf[27]=C_h_intern(&lf[27],11, C_text("##sys#print"));
24637 lf[28]=C_h_intern(&lf[28],12, C_text("scheme#force"));
24638 lf[29]=C_h_intern(&lf[29],14, C_text("scheme#display"));
24639 lf[30]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: "));
24640 lf[31]=C_h_intern(&lf[31],34, C_text("chicken.port#with-output-to-string"));
24641 lf[32]=C_h_intern(&lf[32],7, C_text("fprintf"));
24642 lf[33]=C_h_intern(&lf[33],25, C_text("chicken.base#flush-output"));
24643 lf[34]=C_h_intern(&lf[34],46, C_text("chicken.compiler.support#with-debugging-output"));
24644 lf[35]=C_h_intern(&lf[35],27, C_text("chicken.string#string-split"));
24645 lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
24646 lf[37]=C_h_intern(&lf[37],39, C_text("chicken.compiler.support#quit-compiling"));
24647 lf[38]=C_h_intern(&lf[38],20, C_text("##sys#standard-error"));
24648 lf[39]=C_h_intern(&lf[39],17, C_text("chicken.base#exit"));
24649 lf[40]=C_h_intern(&lf[40],22, C_text("chicken.format#fprintf"));
24650 lf[41]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010\012Error: "));
24651 lf[42]=C_h_intern(&lf[42],23, C_text("##sys#syntax-error-hook"));
24652 lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\011~s~%"));
24653 lf[44]=C_h_intern(&lf[44],8, C_text("for-each"));
24654 lf[45]=C_h_intern(&lf[45],29, C_text("chicken.base#print-call-chain"));
24655 lf[46]=C_h_intern(&lf[46],20, C_text("##sys#current-thread"));
24656 lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\012\011Expansion history:\012"));
24657 lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003): "));
24658 lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012Syntax error ("));
24659 lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012Syntax error: "));
24660 lf[51]=C_h_intern(&lf[51],27, C_text("chicken.syntax#syntax-error"));
24661 lf[52]=C_h_intern(&lf[52],47, C_text("chicken.compiler.support#emit-syntax-trace-info"));
24662 lf[53]=C_h_intern(&lf[53],40, C_text("chicken.compiler.support#check-signature"));
24663 lf[54]=C_h_intern(&lf[54],42, C_text("chicken.compiler.support#build-lambda-list"));
24664 lf[55]=C_h_intern(&lf[55],37, C_text("chicken.compiler.support#c-ify-string"));
24665 lf[56]=C_h_intern(&lf[56],18, C_text("##sys#list->string"));
24666 lf[57]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\042\376\377\016"));
24667 lf[58]=C_h_intern(&lf[58],13, C_text("scheme#append"));
24668 lf[59]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\377\016"));
24669 lf[60]=C_h_intern(&lf[60],18, C_text("##sys#string->list"));
24670 lf[61]=C_h_intern(&lf[61],20, C_text("##sys#fixnum->string"));
24671 lf[62]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\0000\376\003\000\000\002\376\377\012\000\0000\376\377\016"));
24672 lf[63]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\0000\376\377\016"));
24673 lf[64]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\077\376\003\000\000\002\376\377\012\000\000\052\376\377\016"));
24674 lf[65]=C_h_intern(&lf[65],44, C_text("chicken.compiler.support#valid-c-identifier\077"));
24675 lf[66]=C_h_intern(&lf[66],23, C_text("chicken.string#->string"));
24676 lf[67]=C_h_intern(&lf[67],37, C_text("chicken.compiler.support#bytes->words"));
24677 lf[68]=C_h_intern(&lf[68],37, C_text("chicken.compiler.support#words->bytes"));
24678 lf[69]=C_h_intern(&lf[69],50, C_text("chicken.compiler.support#check-and-open-input-file"));
24679 lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-"));
24680 lf[71]=C_h_intern(&lf[71],20, C_text("##sys#standard-input"));
24681 lf[72]=C_h_intern(&lf[72],22, C_text("scheme#open-input-file"));
24682 lf[73]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024Can not open file ~s"));
24683 lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031(~a) can not open file ~s"));
24684 lf[75]=C_h_intern(&lf[75],25, C_text("chicken.file#file-exists\077"));
24685 lf[76]=C_h_intern(&lf[76],49, C_text("chicken.compiler.support#close-checked-input-file"));
24686 lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-"));
24687 lf[78]=C_h_intern(&lf[78],23, C_text("scheme#close-input-port"));
24688 lf[79]=C_h_intern(&lf[79],35, C_text("chicken.compiler.support#fold-inner"));
24689 lf[80]=C_h_intern(&lf[80],14, C_text("scheme#reverse"));
24690 lf[82]=C_h_intern(&lf[82],41, C_text("chicken.compiler.support#read-expressions"));
24691 lf[83]=C_h_intern(&lf[83],11, C_text("scheme#read"));
24692 lf[84]=C_h_intern(&lf[84],34, C_text("chicken.compiler.support#constant\077"));
24693 lf[85]=C_h_intern(&lf[85],5, C_text("quote"));
24694 lf[86]=C_h_intern(&lf[86],20, C_text("##sys#srfi-4-vector\077"));
24695 lf[87]=C_h_intern(&lf[87],18, C_text("chicken.blob#blob\077"));
24696 lf[88]=C_h_intern(&lf[88],45, C_text("chicken.compiler.support#collapsable-literal\077"));
24697 lf[89]=C_h_intern(&lf[89],35, C_text("chicken.compiler.support#immediate\077"));
24698 lf[90]=C_h_intern(&lf[90],36, C_text("chicken.compiler.support#big-fixnum\077"));
24699 lf[91]=C_h_intern(&lf[91],39, C_text("chicken.compiler.support#basic-literal\077"));
24700 lf[92]=C_h_intern(&lf[92],19, C_text("scheme#vector->list"));
24701 lf[93]=C_h_intern(&lf[93],48, C_text("chicken.compiler.support#canonicalize-begin-body"));
24702 lf[94]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
24703 lf[95]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
24704 lf[96]=C_h_intern(&lf[96],3, C_text("let"));
24705 lf[97]=C_h_intern(&lf[97],19, C_text("chicken.base#gensym"));
24706 lf[98]=C_h_intern(&lf[98],1, C_text("t"));
24707 lf[99]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#void\376\377\016"));
24708 lf[100]=C_h_intern(&lf[100],37, C_text("chicken.compiler.support#string->expr"));
24709 lf[101]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042cannot parse expression: ~s [~a]~%"));
24710 lf[102]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
24711 lf[103]=C_h_intern(&lf[103],5, C_text("begin"));
24712 lf[104]=C_h_intern(&lf[104],13, C_text("scheme#values"));
24713 lf[105]=C_h_intern(&lf[105],35, C_text("chicken.port#with-input-from-string"));
24714 lf[106]=C_h_intern(&lf[106],40, C_text("chicken.condition#with-exception-handler"));
24715 lf[107]=C_h_intern(&lf[107],37, C_text("scheme#call-with-current-continuation"));
24716 lf[108]=C_h_intern(&lf[108],37, C_text("chicken.compiler.support#llist-length"));
24717 lf[109]=C_h_intern(&lf[109],37, C_text("chicken.compiler.support#llist-match\077"));
24718 lf[111]=C_h_intern(&lf[111],56, C_text("chicken.compiler.support#reset-profile-info-vector-name!"));
24719 lf[112]=C_h_intern(&lf[112],41, C_text("chicken.compiler.support#make-random-name"));
24720 lf[113]=C_h_intern(&lf[113],12, C_text("profile-info"));
24721 lf[116]=C_h_intern(&lf[116],46, C_text("chicken.compiler.support#expand-profile-lambda"));
24722 lf[117]=C_h_intern(&lf[117],19, C_text("##sys#profile-entry"));
24723 lf[118]=C_h_intern(&lf[118],13, C_text("##core#lambda"));
24724 lf[119]=C_h_intern(&lf[119],11, C_text("##sys#apply"));
24725 lf[120]=C_h_intern(&lf[120],18, C_text("##sys#profile-exit"));
24726 lf[121]=C_h_intern(&lf[121],18, C_text("##sys#dynamic-wind"));
24727 lf[122]=C_h_intern(&lf[122],47, C_text("chicken.compiler.support#profiling-prelude-exps"));
24728 lf[123]=C_h_intern(&lf[123],27, C_text("##sys#register-profile-info"));
24729 lf[124]=C_h_intern(&lf[124],4, C_text("set!"));
24730 lf[125]=C_h_intern(&lf[125],3, C_text("map"));
24731 lf[126]=C_h_intern(&lf[126],30, C_text("##sys#set-profile-info-vector!"));
24732 lf[127]=C_h_intern(&lf[127],31, C_text("chicken.compiler.support#db-get"));
24733 lf[128]=C_h_intern(&lf[128],31, C_text("chicken.internal#hash-table-ref"));
24734 lf[129]=C_h_intern(&lf[129],35, C_text("chicken.compiler.support#db-get-all"));
24735 lf[130]=C_h_intern(&lf[130],5, C_text("foldr"));
24736 lf[131]=C_h_intern(&lf[131],32, C_text("chicken.compiler.support#db-put!"));
24737 lf[132]=C_h_intern(&lf[132],32, C_text("chicken.internal#hash-table-set!"));
24738 lf[133]=C_h_intern(&lf[133],33, C_text("chicken.compiler.support#collect!"));
24739 lf[134]=C_h_intern(&lf[134],36, C_text("chicken.compiler.support#db-get-list"));
24740 lf[135]=C_h_intern(&lf[135],33, C_text("chicken.compiler.support#get-line"));
24741 lf[136]=C_h_intern(&lf[136],26, C_text("##sys#line-number-database"));
24742 lf[137]=C_h_intern(&lf[137],35, C_text("chicken.compiler.support#get-line-2"));
24743 lf[138]=C_h_intern(&lf[138],53, C_text("chicken.compiler.support#display-line-number-database"));
24744 lf[139]=C_h_intern(&lf[139],36, C_text("chicken.internal#hash-table-for-each"));
24745 lf[140]=C_h_intern(&lf[140],34, C_text("chicken.compiler.support#make-node"));
24746 lf[141]=C_h_intern(&lf[141],29, C_text("chicken.compiler.support#node"));
24747 lf[142]=C_h_intern(&lf[142],30, C_text("chicken.compiler.support#node\077"));
24748 lf[143]=C_h_intern(&lf[143],35, C_text("chicken.compiler.support#node-class"));
24749 lf[144]=C_h_intern(&lf[144],10, C_text("node-class"));
24750 lf[145]=C_h_intern(&lf[145],40, C_text("chicken.compiler.support#node-class-set!"));
24751 lf[146]=C_h_intern(&lf[146],16, C_text("##sys#block-set!"));
24752 lf[147]=C_h_intern(&lf[147],40, C_text("chicken.compiler.support#node-parameters"));
24753 lf[148]=C_h_intern(&lf[148],15, C_text("node-parameters"));
24754 lf[149]=C_h_intern(&lf[149],45, C_text("chicken.compiler.support#node-parameters-set!"));
24755 lf[150]=C_h_intern(&lf[150],44, C_text("chicken.compiler.support#node-subexpressions"));
24756 lf[151]=C_h_intern(&lf[151],19, C_text("node-subexpressions"));
24757 lf[152]=C_h_intern(&lf[152],49, C_text("chicken.compiler.support#node-subexpressions-set!"));
24758 lf[153]=C_h_intern(&lf[153],32, C_text("chicken.compiler.support#varnode"));
24759 lf[154]=C_h_intern(&lf[154],15, C_text("##core#variable"));
24760 lf[155]=C_h_intern(&lf[155],30, C_text("chicken.compiler.support#qnode"));
24761 lf[156]=C_h_intern(&lf[156],41, C_text("chicken.compiler.support#build-node-graph"));
24762 lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016bad expression"));
24763 lf[158]=C_h_intern(&lf[158],2, C_text("if"));
24764 lf[159]=C_h_intern(&lf[159],16, C_text("##core#undefined"));
24765 lf[160]=C_h_intern(&lf[160],21, C_text("scheme#inexact->exact"));
24766 lf[161]=C_h_intern(&lf[161],15, C_text("scheme#truncate"));
24767 lf[162]=C_h_intern(&lf[162],20, C_text("chicken.base#warning"));
24768 lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\0006literal is out of range - will be truncated to integer"));
24769 lf[164]=C_h_intern(&lf[164],6, C_text("fixnum"));
24770 lf[165]=C_h_intern(&lf[165],6, C_text("lambda"));
24771 lf[166]=C_h_intern(&lf[166],10, C_text("##core#the"));
24772 lf[167]=C_h_intern(&lf[167],15, C_text("##core#typecase"));
24773 lf[168]=C_h_intern(&lf[168],4, C_text("else"));
24774 lf[169]=C_h_intern(&lf[169],12, C_text("scheme#cadar"));
24775 lf[170]=C_h_intern(&lf[170],1, C_text("\052"));
24776 lf[171]=C_h_intern(&lf[171],16, C_text("##core#primitive"));
24777 lf[172]=C_h_intern(&lf[172],13, C_text("##core#inline"));
24778 lf[173]=C_h_intern(&lf[173],18, C_text("##core#debug-event"));
24779 lf[174]=C_h_intern(&lf[174],11, C_text("##core#proc"));
24780 lf[175]=C_h_intern(&lf[175],11, C_text("##core#set!"));
24781 lf[176]=C_h_intern(&lf[176],31, C_text("##core#foreign-callback-wrapper"));
24782 lf[177]=C_h_intern(&lf[177],22, C_text("##core#inline_allocate"));
24783 lf[178]=C_h_intern(&lf[178],10, C_text("##core#app"));
24784 lf[179]=C_h_intern(&lf[179],11, C_text("##core#call"));
24785 lf[180]=C_h_intern(&lf[180],20, C_text("##sys#symbol->string"));
24786 lf[181]=C_h_intern(&lf[181],34, C_text("chicken.compiler.support#real-name"));
24787 lf[182]=C_h_intern(&lf[182],9, C_text("##sys#get"));
24788 lf[183]=C_h_intern(&lf[183],36, C_text("##compiler#always-bound-to-procedure"));
24789 lf[184]=C_h_intern(&lf[184],17, C_text("##core#inline_ref"));
24790 lf[185]=C_h_intern(&lf[185],20, C_text("##core#inline_update"));
24791 lf[186]=C_h_intern(&lf[186],21, C_text("##core#inline_loc_ref"));
24792 lf[187]=C_h_intern(&lf[187],24, C_text("##core#inline_loc_update"));
24793 lf[188]=C_h_intern(&lf[188],14, C_text("##core#provide"));
24794 lf[189]=C_h_intern(&lf[189],15, C_text("##core#callunit"));
24795 lf[190]=C_h_intern(&lf[190],1, C_text("o"));
24796 lf[191]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033eliminated procedure checks"));
24797 lf[192]=C_h_intern(&lf[192],46, C_text("chicken.compiler.support#build-expression-tree"));
24798 lf[193]=C_h_intern(&lf[193],14, C_text("##core#closure"));
24799 lf[194]=C_h_intern(&lf[194],20, C_text("chicken.base#butlast"));
24800 lf[195]=C_h_intern(&lf[195],3, C_text("the"));
24801 lf[196]=C_h_intern(&lf[196],17, C_text("##core#the/result"));
24802 lf[197]=C_h_intern(&lf[197],17, C_text("compiler-typecase"));
24803 lf[198]=C_h_intern(&lf[198],11, C_text("##core#bind"));
24804 lf[199]=C_h_intern(&lf[199],12, C_text("##core#unbox"));
24805 lf[200]=C_h_intern(&lf[200],10, C_text("##core#ref"));
24806 lf[201]=C_h_intern(&lf[201],13, C_text("##core#update"));
24807 lf[202]=C_h_intern(&lf[202],15, C_text("##core#update_i"));
24808 lf[203]=C_h_intern(&lf[203],10, C_text("##core#box"));
24809 lf[204]=C_h_intern(&lf[204],11, C_text("##core#cond"));
24810 lf[205]=C_h_intern(&lf[205],37, C_text("chicken.compiler.support#fold-boolean"));
24811 lf[206]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\005C_and\376\377\016"));
24812 lf[207]=C_h_intern(&lf[207],47, C_text("chicken.compiler.support#inline-lambda-bindings"));
24813 lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_a_i_list"));
24814 lf[209]=C_h_intern(&lf[209],10, C_text("references"));
24815 lf[210]=C_h_intern(&lf[210],10, C_text("rest-null\077"));
24816 lf[211]=C_h_intern(&lf[211],8, C_text("rest-cdr"));
24817 lf[212]=C_h_intern(&lf[212],17, C_text("derived-rest-vars"));
24818 lf[213]=C_h_intern(&lf[213],17, C_text("##core#rest-null\077"));
24819 lf[214]=C_h_intern(&lf[214],35, C_text("chicken.compiler.support#copy-node!"));
24820 lf[215]=C_h_intern(&lf[215],15, C_text("##core#rest-car"));
24821 lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000$C_rest_arg_out_of_bounds_error_value"));
24822 lf[217]=C_h_intern(&lf[217],15, C_text("##core#rest-cdr"));
24823 lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_cdr"));
24824 lf[219]=C_h_intern(&lf[219],4, C_text("rarg"));
24825 lf[220]=C_h_intern(&lf[220],22, C_text("chicken.base#alist-ref"));
24826 lf[221]=C_h_intern(&lf[221],10, C_text("scheme#eq\077"));
24827 lf[222]=C_h_intern(&lf[222],12, C_text("contractable"));
24828 lf[223]=C_h_intern(&lf[223],16, C_text("inline-transient"));
24829 lf[224]=C_h_intern(&lf[224],1, C_text("f"));
24830 lf[225]=C_h_intern(&lf[225],27, C_text("##sys#decompose-lambda-list"));
24831 lf[226]=C_h_intern(&lf[226],34, C_text("chicken.compiler.support#tree-copy"));
24832 lf[227]=C_h_intern(&lf[227],54, C_text("chicken.compiler.support#replace-rest-op-with-list-ops"));
24833 lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_list_ref"));
24834 lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_cdr"));
24835 lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_i_greater_or_equalp"));
24836 lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_length"));
24837 lf[232]=C_h_intern(&lf[232],18, C_text("##core#rest-length"));
24838 lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_length"));
24839 lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000gUnknown rest op node class while undoing rest op for explicitly consed rest"
24840 " arg. This shouldn\047t happen!"));
24841 lf[235]=C_h_intern(&lf[235],34, C_text("chicken.compiler.support#copy-node"));
24842 lf[236]=C_h_intern(&lf[236],48, C_text("chicken.compiler.support#emit-global-inline-file"));
24843 lf[237]=C_h_intern(&lf[237],18, C_text("chicken.base#print"));
24844 lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
24845 lf[239]=C_h_intern(&lf[239],15, C_text("scheme#string<\077"));
24846 lf[240]=C_h_intern(&lf[240],21, C_text("scheme#symbol->string"));
24847 lf[241]=C_h_intern(&lf[241],17, C_text("chicken.sort#sort"));
24848 lf[242]=C_h_intern(&lf[242],1, C_text("i"));
24849 lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\0001the following procedures can be globally inlined:"));
24850 lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015; END OF FILE"));
24851 lf[245]=C_h_intern(&lf[245],23, C_text("chicken.pretty-print#pp"));
24852 lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027; GENERATED BY CHICKEN "));
24853 lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 FROM "));
24854 lf[248]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
24855 lf[249]=C_h_intern(&lf[249],32, C_text("chicken.platform#chicken-version"));
24856 lf[250]=C_h_intern(&lf[250],26, C_text("scheme#with-output-to-file"));
24857 lf[251]=C_h_intern(&lf[251],11, C_text("local-value"));
24858 lf[252]=C_h_intern(&lf[252],5, C_text("value"));
24859 lf[253]=C_h_intern(&lf[253],9, C_text("inlinable"));
24860 lf[254]=C_h_intern(&lf[254],3, C_text("yes"));
24861 lf[255]=C_h_intern(&lf[255],2, C_text("no"));
24862 lf[256]=C_h_intern(&lf[256],17, C_text("##compiler#inline"));
24863 lf[257]=C_h_intern(&lf[257],11, C_text("hidden-refs"));
24864 lf[258]=C_h_intern(&lf[258],7, C_text("unknown"));
24865 lf[259]=C_h_intern(&lf[259],24, C_text("##compiler#inline-global"));
24866 lf[260]=C_h_intern(&lf[260],42, C_text("chicken.compiler.support#variable-visible\077"));
24867 lf[261]=C_h_intern(&lf[261],41, C_text("chicken.compiler.support#load-inline-file"));
24868 lf[262]=C_h_intern(&lf[262],10, C_text("##sys#put!"));
24869 lf[263]=C_h_intern(&lf[263],27, C_text("scheme#with-input-from-file"));
24870 lf[264]=C_h_intern(&lf[264],35, C_text("chicken.compiler.support#match-node"));
24871 lf[265]=C_h_intern(&lf[265],1, C_text("a"));
24872 lf[266]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007matched"));
24873 lf[267]=C_h_intern(&lf[267],53, C_text("chicken.compiler.support#expression-has-side-effects\077"));
24874 lf[268]=C_h_intern(&lf[268],49, C_text("chicken.compiler.support#foreign-callback-stub-id"));
24875 lf[269]=C_h_intern(&lf[269],47, C_text("chicken.compiler.support#foreign-callback-stubs"));
24876 lf[270]=C_h_intern(&lf[270],44, C_text("chicken.compiler.support#simple-lambda-node\077"));
24877 lf[271]=C_h_intern(&lf[271],47, C_text("chicken.compiler.support#dump-undefined-globals"));
24878 lf[272]=C_h_intern(&lf[272],12, C_text("scheme#write"));
24879 lf[273]=C_h_intern(&lf[273],6, C_text("global"));
24880 lf[274]=C_h_intern(&lf[274],8, C_text("assigned"));
24881 lf[275]=C_h_intern(&lf[275],24, C_text("chicken.keyword#keyword\077"));
24882 lf[276]=C_h_intern(&lf[276],45, C_text("chicken.compiler.support#dump-defined-globals"));
24883 lf[277]=C_h_intern(&lf[277],41, C_text("chicken.compiler.support#dump-global-refs"));
24884 lf[278]=C_h_intern(&lf[278],30, C_text("##sys#toplevel-definition-hook"));
24885 lf[279]=C_h_intern(&lf[279],22, C_text("chicken.plist#remprop!"));
24886 lf[280]=C_h_intern(&lf[280],21, C_text("##compiler#visibility"));
24887 lf[281]=C_h_intern(&lf[281],41, C_text("chicken.compiler.support#variable-hidden\077"));
24888 lf[282]=C_h_intern(&lf[282],38, C_text("chicken.compiler.support#hide-variable"));
24889 lf[283]=C_decode_literal(C_heaptop,C_text("\376B\000\000 hiding unexported module binding"));
24890 lf[284]=C_h_intern(&lf[284],51, C_text("chicken.compiler.support#make-foreign-callback-stub"));
24891 lf[285]=C_h_intern(&lf[285],46, C_text("chicken.compiler.support#foreign-callback-stub"));
24892 lf[286]=C_h_intern(&lf[286],47, C_text("chicken.compiler.support#foreign-callback-stub\077"));
24893 lf[287]=C_h_intern(&lf[287],24, C_text("foreign-callback-stub-id"));
24894 lf[288]=C_h_intern(&lf[288],51, C_text("chicken.compiler.support#foreign-callback-stub-name"));
24895 lf[289]=C_h_intern(&lf[289],26, C_text("foreign-callback-stub-name"));
24896 lf[290]=C_h_intern(&lf[290],57, C_text("chicken.compiler.support#foreign-callback-stub-qualifiers"));
24897 lf[291]=C_h_intern(&lf[291],32, C_text("foreign-callback-stub-qualifiers"));
24898 lf[292]=C_h_intern(&lf[292],58, C_text("chicken.compiler.support#foreign-callback-stub-return-type"));
24899 lf[293]=C_h_intern(&lf[293],33, C_text("foreign-callback-stub-return-type"));
24900 lf[294]=C_h_intern(&lf[294],61, C_text("chicken.compiler.support#foreign-callback-stub-argument-types"));
24901 lf[295]=C_h_intern(&lf[295],36, C_text("foreign-callback-stub-argument-types"));
24902 lf[296]=C_h_intern(&lf[296],56, C_text("chicken.compiler.support#register-foreign-callback-stub!"));
24903 lf[297]=C_h_intern(&lf[297],26, C_text("##compiler#callback-lambda"));
24904 lf[299]=C_h_intern(&lf[299],50, C_text("chicken.compiler.support#clear-foreign-type-table!"));
24905 lf[300]=C_h_intern(&lf[300],19, C_text("scheme#vector-fill!"));
24906 lf[301]=C_h_intern(&lf[301],18, C_text("scheme#make-vector"));
24907 lf[302]=C_h_intern(&lf[302],47, C_text("chicken.compiler.support#register-foreign-type!"));
24908 lf[303]=C_h_intern(&lf[303],44, C_text("chicken.compiler.support#lookup-foreign-type"));
24909 lf[304]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001integer\376B\000\000\003int\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001unsigned-integer\376B\000\000\014unsigned int"
24910 "\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001integer32\376B\000\000\005C_s32\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001unsigned-integer32\376B\000\000\005C_u32\376"
24911 "\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001integer64\376B\000\000\005C_s64\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001unsigned-integer64\376B\000\000\005C_u64\376\003"
24912 "\000\000\002\376\003\000\000\002\376\001\000\000\005\001short\376B\000\000\005short\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001unsigned-short\376B\000\000\016unsigned short\376\003"
24913 "\000\000\002\376\003\000\000\002\376\001\000\000\004\001long\376B\000\000\004long\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001unsigned-long\376B\000\000\015unsigned long\376\003\000\000\002\376"
24914 "\003\000\000\002\376\001\000\000\007\001ssize_t\376B\000\000\007ssize_t\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001size_t\376B\000\000\006size_t\376\377\016"));
24915 lf[305]=C_h_intern(&lf[305],43, C_text("chicken.compiler.support#foreign-type-check"));
24916 lf[306]=C_h_intern(&lf[306],4, C_text("char"));
24917 lf[307]=C_h_intern(&lf[307],13, C_text("unsigned-char"));
24918 lf[308]=C_h_intern(&lf[308],27, C_text("##sys#foreign-char-argument"));
24919 lf[309]=C_h_intern(&lf[309],3, C_text("int"));
24920 lf[310]=C_h_intern(&lf[310],29, C_text("##sys#foreign-fixnum-argument"));
24921 lf[311]=C_h_intern(&lf[311],5, C_text("float"));
24922 lf[312]=C_h_intern(&lf[312],29, C_text("##sys#foreign-flonum-argument"));
24923 lf[313]=C_h_intern(&lf[313],4, C_text("blob"));
24924 lf[314]=C_h_intern(&lf[314],14, C_text("scheme-pointer"));
24925 lf[315]=C_h_intern(&lf[315],28, C_text("##sys#foreign-block-argument"));
24926 lf[316]=C_h_intern(&lf[316],12, C_text("##core#quote"));
24927 lf[317]=C_h_intern(&lf[317],9, C_text("##core#if"));
24928 lf[318]=C_h_intern(&lf[318],10, C_text("##core#let"));
24929 lf[319]=C_h_intern(&lf[319],22, C_text("nonnull-scheme-pointer"));
24930 lf[320]=C_h_intern(&lf[320],12, C_text("nonnull-blob"));
24931 lf[321]=C_h_intern(&lf[321],14, C_text("pointer-vector"));
24932 lf[322]=C_h_intern(&lf[322],37, C_text("##sys#foreign-struct-wrapper-argument"));
24933 lf[323]=C_h_intern(&lf[323],22, C_text("nonnull-pointer-vector"));
24934 lf[324]=C_h_intern(&lf[324],8, C_text("u8vector"));
24935 lf[325]=C_h_intern(&lf[325],16, C_text("nonnull-u8vector"));
24936 lf[326]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001nonnull-u8vector\376\001\000\000\010\001u8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-u16vector\376"
24937 "\001\000\000\011\001u16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001nonnull-s8vector\376\001\000\000\010\001s8vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonn"
24938 "ull-s16vector\376\001\000\000\011\001s16vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-u32vector\376\001\000\000\011\001u32vector\376\003\000\000"
24939 "\002\376\003\000\000\002\376\001\000\000\021\001nonnull-s32vector\376\001\000\000\011\001s32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-u64vector\376\001\000"
24940 "\000\011\001u64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-s64vector\376\001\000\000\011\001s64vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonn"
24941 "ull-f32vector\376\001\000\000\011\001f32vector\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001nonnull-f64vector\376\001\000\000\011\001f64vector\376\377\016"));
24942 lf[327]=C_h_intern(&lf[327],9, C_text("integer32"));
24943 lf[328]=C_h_intern(&lf[328],6, C_text("format"));
24944 lf[329]=C_h_intern(&lf[329],13, C_text("foreign-value"));
24945 lf[330]=C_h_intern(&lf[330],37, C_text("##sys#foreign-ranged-integer-argument"));
24946 lf[331]=C_h_intern(&lf[331],30, C_text("chicken.base#get-output-string"));
24947 lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014) \052 CHAR_BIT"));
24948 lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007sizeof("));
24949 lf[334]=C_h_intern(&lf[334],31, C_text("chicken.base#open-output-string"));
24950 lf[335]=C_h_intern(&lf[335],14, C_text("unsigned-short"));
24951 lf[336]=C_h_intern(&lf[336],46, C_text("##sys#foreign-unsigned-ranged-integer-argument"));
24952 lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014) \052 CHAR_BIT"));
24953 lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007sizeof("));
24954 lf[339]=C_h_intern(&lf[339],9, C_text("c-pointer"));
24955 lf[340]=C_h_intern(&lf[340],30, C_text("##sys#foreign-pointer-argument"));
24956 lf[341]=C_h_intern(&lf[341],17, C_text("nonnull-c-pointer"));
24957 lf[342]=C_h_intern(&lf[342],8, C_text("c-string"));
24958 lf[343]=C_h_intern(&lf[343],19, C_text("##sys#make-c-string"));
24959 lf[344]=C_h_intern(&lf[344],29, C_text("##sys#foreign-string-argument"));
24960 lf[345]=C_h_intern(&lf[345],16, C_text("nonnull-c-string"));
24961 lf[346]=C_h_intern(&lf[346],6, C_text("symbol"));
24962 lf[347]=C_h_intern(&lf[347],3, C_text("ref"));
24963 lf[348]=C_h_intern(&lf[348],8, C_text("instance"));
24964 lf[349]=C_h_intern(&lf[349],12, C_text("instance-ref"));
24965 lf[350]=C_h_intern(&lf[350],4, C_text("this"));
24966 lf[351]=C_h_intern(&lf[351],8, C_text("slot-ref"));
24967 lf[352]=C_h_intern(&lf[352],16, C_text("nonnull-instance"));
24968 lf[353]=C_h_intern(&lf[353],5, C_text("const"));
24969 lf[354]=C_h_intern(&lf[354],4, C_text("enum"));
24970 lf[355]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026sizeof(int) \052 CHAR_BIT"));
24971 lf[356]=C_h_intern(&lf[356],15, C_text("nonnull-pointer"));
24972 lf[357]=C_h_intern(&lf[357],7, C_text("pointer"));
24973 lf[358]=C_h_intern(&lf[358],8, C_text("function"));
24974 lf[359]=C_h_intern(&lf[359],17, C_text("nonnull-c-string\052"));
24975 lf[360]=C_h_intern(&lf[360],26, C_text("nonnull-unsigned-c-string\052"));
24976 lf[361]=C_h_intern(&lf[361],9, C_text("c-string\052"));
24977 lf[362]=C_h_intern(&lf[362],17, C_text("unsigned-c-string"));
24978 lf[363]=C_h_intern(&lf[363],18, C_text("unsigned-c-string\052"));
24979 lf[364]=C_h_intern(&lf[364],13, C_text("c-string-list"));
24980 lf[365]=C_h_intern(&lf[365],14, C_text("c-string-list\052"));
24981 lf[366]=C_h_intern(&lf[366],13, C_text("unsigned-long"));
24982 lf[367]=C_h_intern(&lf[367],16, C_text("unsigned-integer"));
24983 lf[368]=C_h_intern(&lf[368],6, C_text("size_t"));
24984 lf[369]=C_h_intern(&lf[369],18, C_text("unsigned-integer32"));
24985 lf[370]=C_h_intern(&lf[370],18, C_text("unsigned-integer64"));
24986 lf[371]=C_h_intern(&lf[371],9, C_text("integer64"));
24987 lf[372]=C_h_intern(&lf[372],7, C_text("integer"));
24988 lf[373]=C_h_intern(&lf[373],5, C_text("short"));
24989 lf[374]=C_h_intern(&lf[374],4, C_text("long"));
24990 lf[375]=C_h_intern(&lf[375],7, C_text("ssize_t"));
24991 lf[376]=C_h_intern(&lf[376],17, C_text("nonnull-u16vector"));
24992 lf[377]=C_h_intern(&lf[377],16, C_text("nonnull-s8vector"));
24993 lf[378]=C_h_intern(&lf[378],17, C_text("nonnull-s16vector"));
24994 lf[379]=C_h_intern(&lf[379],17, C_text("nonnull-u32vector"));
24995 lf[380]=C_h_intern(&lf[380],17, C_text("nonnull-s32vector"));
24996 lf[381]=C_h_intern(&lf[381],17, C_text("nonnull-u64vector"));
24997 lf[382]=C_h_intern(&lf[382],17, C_text("nonnull-s64vector"));
24998 lf[383]=C_h_intern(&lf[383],17, C_text("nonnull-f32vector"));
24999 lf[384]=C_h_intern(&lf[384],17, C_text("nonnull-f64vector"));
25000 lf[385]=C_h_intern(&lf[385],9, C_text("u16vector"));
25001 lf[386]=C_h_intern(&lf[386],8, C_text("s8vector"));
25002 lf[387]=C_h_intern(&lf[387],9, C_text("s16vector"));
25003 lf[388]=C_h_intern(&lf[388],9, C_text("u32vector"));
25004 lf[389]=C_h_intern(&lf[389],9, C_text("s32vector"));
25005 lf[390]=C_h_intern(&lf[390],9, C_text("u64vector"));
25006 lf[391]=C_h_intern(&lf[391],9, C_text("s64vector"));
25007 lf[392]=C_h_intern(&lf[392],9, C_text("f32vector"));
25008 lf[393]=C_h_intern(&lf[393],9, C_text("f64vector"));
25009 lf[394]=C_h_intern(&lf[394],6, C_text("double"));
25010 lf[395]=C_h_intern(&lf[395],6, C_text("number"));
25011 lf[396]=C_h_intern(&lf[396],12, C_text("unsigned-int"));
25012 lf[397]=C_h_intern(&lf[397],4, C_text("byte"));
25013 lf[398]=C_h_intern(&lf[398],13, C_text("unsigned-byte"));
25014 lf[399]=C_h_intern(&lf[399],5, C_text("int32"));
25015 lf[400]=C_h_intern(&lf[400],14, C_text("unsigned-int32"));
25016 lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself"));
25017 lf[404]=C_h_intern(&lf[404],52, C_text("chicken.compiler.support#foreign-type-convert-result"));
25018 lf[405]=C_h_intern(&lf[405],54, C_text("chicken.compiler.support#foreign-type-convert-argument"));
25019 lf[406]=C_h_intern(&lf[406],43, C_text("chicken.compiler.support#final-foreign-type"));
25020 lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself"));
25021 lf[408]=C_h_intern(&lf[408],53, C_text("chicken.compiler.support#estimate-foreign-result-size"));
25022 lf[409]=C_decode_literal(C_heaptop,C_text("\376B\000\0008cannot compute size for unknown foreign type `~S\047 result"));
25023 lf[410]=C_h_intern(&lf[410],4, C_text("bool"));
25024 lf[411]=C_h_intern(&lf[411],4, C_text("void"));
25025 lf[412]=C_h_intern(&lf[412],13, C_text("scheme-object"));
25026 lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself"));
25027 lf[414]=C_h_intern(&lf[414],62, C_text("chicken.compiler.support#estimate-foreign-result-location-size"));
25028 lf[415]=C_decode_literal(C_heaptop,C_text("\376B\000\0005cannot compute size of location for foreign type `~S\047"));
25029 lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042foreign type `~S\047 refers to itself"));
25030 lf[417]=C_h_intern(&lf[417],46, C_text("chicken.compiler.support#finish-foreign-result"));
25031 lf[418]=C_h_intern(&lf[418],19, C_text("##sys#peek-c-string"));
25032 lf[419]=C_h_intern(&lf[419],27, C_text("##sys#peek-nonnull-c-string"));
25033 lf[420]=C_h_intern(&lf[420],28, C_text("##sys#peek-and-free-c-string"));
25034 lf[421]=C_h_intern(&lf[421],36, C_text("##sys#peek-and-free-nonnull-c-string"));
25035 lf[422]=C_h_intern(&lf[422],19, C_text("##sys#intern-symbol"));
25036 lf[423]=C_h_intern(&lf[423],24, C_text("##sys#peek-c-string-list"));
25037 lf[424]=C_h_intern(&lf[424],33, C_text("##sys#peek-and-free-c-string-list"));
25038 lf[425]=C_h_intern(&lf[425],19, C_text("##sys#null-pointer\077"));
25039 lf[426]=C_h_intern(&lf[426],3, C_text("not"));
25040 lf[427]=C_h_intern(&lf[427],4, C_text("make"));
25041 lf[428]=C_h_intern(&lf[428],3, C_text("and"));
25042 lf[429]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001c-string\376\003\000\000\002\376\001\000\000\011\001c-string\052\376\003\000\000\002\376\001\000\000\021\001unsigned-c-string\376\003\000\000\002\376\001\000\000\022\001un"
25043 "signed-c-string\052\376\003\000\000\002\376\001\000\000\020\001nonnull-c-string\376\003\000\000\002\376\001\000\000\021\001nonnull-c-string\052\376\003\000\000\002\376\001\000\000"
25044 "\030\001nonnull-unsigned-string\052\376\377\016"));
25045 lf[430]=C_h_intern(&lf[430],27, C_text("chicken.syntax#strip-syntax"));
25046 lf[431]=C_h_intern(&lf[431],52, C_text("chicken.compiler.support#foreign-type->scrutiny-type"));
25047 lf[432]=C_h_intern(&lf[432],9, C_text("undefined"));
25048 lf[433]=C_h_intern(&lf[433],3, C_text("arg"));
25049 lf[434]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\004\001blob\376\377\016"));
25050 lf[435]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\016\001pointer-vector\376\377\016"));
25051 lf[436]=C_h_intern(&lf[436],6, C_text("struct"));
25052 lf[437]=C_h_intern(&lf[437],2, C_text("or"));
25053 lf[438]=C_h_intern(&lf[438],5, C_text("false"));
25054 lf[439]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\010\001u8vector\376\377\016"));
25055 lf[440]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\010\001s8vector\376\377\016"));
25056 lf[441]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001u16vector\376\377\016"));
25057 lf[442]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001s16vector\376\377\016"));
25058 lf[443]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001u32vector\376\377\016"));
25059 lf[444]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001s32vector\376\377\016"));
25060 lf[445]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001u64vector\376\377\016"));
25061 lf[446]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001s64vector\376\377\016"));
25062 lf[447]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001f32vector\376\377\016"));
25063 lf[448]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001struct\376\003\000\000\002\376\001\000\000\011\001f64vector\376\377\016"));
25064 lf[449]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016"));
25065 lf[450]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\007\001pointer\376\377\016"));
25066 lf[451]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016"));
25067 lf[452]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\006\001string\376\377\016"));
25068 lf[453]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001list-of\376\003\000\000\002\376\001\000\000\006\001string\376\377\016"));
25069 lf[454]=C_h_intern(&lf[454],6, C_text("string"));
25070 lf[455]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016"));
25071 lf[456]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\005\001false\376\003\000\000\002\376\001\000\000\007\001pointer\376\377\016"));
25072 lf[457]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\010\001locative\376\377\016"));
25073 lf[458]=C_h_intern(&lf[458],6, C_text("result"));
25074 lf[459]=C_h_intern(&lf[459],44, C_text("chicken.compiler.support#scan-used-variables"));
25075 lf[460]=C_h_intern(&lf[460],44, C_text("chicken.compiler.support#scan-free-variables"));
25076 lf[461]=C_h_intern(&lf[461],39, C_text("chicken.compiler.support#chop-separator"));
25077 lf[462]=C_h_intern(&lf[462],16, C_text("scheme#substring"));
25078 lf[463]=C_h_intern(&lf[463],52, C_text("chicken.compiler.support#make-block-variable-literal"));
25079 lf[464]=C_h_intern(&lf[464],47, C_text("chicken.compiler.support#block-variable-literal"));
25080 lf[465]=C_h_intern(&lf[465],48, C_text("chicken.compiler.support#block-variable-literal\077"));
25081 lf[466]=C_h_intern(&lf[466],52, C_text("chicken.compiler.support#block-variable-literal-name"));
25082 lf[467]=C_h_intern(&lf[467],27, C_text("block-variable-literal-name"));
25083 lf[468]=C_h_intern(&lf[468],21, C_text("scheme#string->symbol"));
25084 lf[469]=C_h_intern(&lf[469],28, C_text("chicken.time#current-seconds"));
25085 lf[471]=C_h_intern(&lf[471],47, C_text("chicken.compiler.support#clear-real-name-table!"));
25086 lf[472]=C_h_intern(&lf[472],39, C_text("chicken.compiler.support#set-real-name!"));
25087 lf[473]=C_h_intern(&lf[473],38, C_text("chicken.compiler.support#get-real-name"));
25088 lf[474]=C_h_intern(&lf[474],33, C_text("chicken.string#string-intersperse"));
25089 lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in "));
25090 lf[476]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003..."));
25091 lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in "));
25092 lf[478]=C_h_intern(&lf[478],12, C_text("contained-in"));
25093 lf[479]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 in "));
25094 lf[480]=C_h_intern(&lf[480],35, C_text("chicken.compiler.support#real-name2"));
25095 lf[481]=C_h_intern(&lf[481],48, C_text("chicken.compiler.support#display-real-name-table"));
25096 lf[482]=C_h_intern(&lf[482],44, C_text("chicken.compiler.support#source-info->string"));
25097 lf[483]=C_h_intern(&lf[483],19, C_text("chicken.string#conc"));
25098 lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:"));
25099 lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 "));
25100 lf[486]=C_h_intern(&lf[486],18, C_text("scheme#make-string"));
25101 lf[487]=C_h_intern(&lf[487],10, C_text("scheme#max"));
25102 lf[488]=C_h_intern(&lf[488],42, C_text("chicken.compiler.support#source-info->name"));
25103 lf[489]=C_h_intern(&lf[489],42, C_text("chicken.compiler.support#source-info->line"));
25104 lf[490]=C_h_intern(&lf[490],34, C_text("chicken.compiler.support#call-info"));
25105 lf[491]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001("));
25106 lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002) "));
25107 lf[493]=C_h_intern(&lf[493],43, C_text("chicken.compiler.support#constant-form-eval"));
25108 lf[494]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032folded constant expression"));
25109 lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000Dattempt to constant-fold call to procedure that has multiple results"));
25110 lf[497]=C_h_intern(&lf[497],28, C_text("chicken.condition#condition\077"));
25111 lf[498]=C_h_intern(&lf[498],10, C_text("##sys#list"));
25112 lf[499]=C_decode_literal(C_heaptop,C_text("\376B\000\000.attempt to constant-fold call to non-procedure"));
25113 lf[500]=C_h_intern(&lf[500],49, C_text("chicken.compiler.support#maybe-constant-fold-call"));
25114 lf[501]=C_h_intern(&lf[501],35, C_text("chicken.compiler.support#predicate\077"));
25115 lf[502]=C_h_intern(&lf[502],34, C_text("chicken.compiler.support#foldable\077"));
25116 lf[503]=C_h_intern(&lf[503],20, C_text("##compiler#intrinsic"));
25117 lf[504]=C_h_intern(&lf[504],20, C_text("##sys#number->string"));
25118 lf[505]=C_h_intern(&lf[505],35, C_text("chicken.compiler.support#dump-nodes"));
25119 lf[506]=C_h_intern(&lf[506],21, C_text("##sys#write-char/port"));
25120 lf[507]=C_h_intern(&lf[507],39, C_text("chicken.compiler.support#read-info-hook"));
25121 lf[508]=C_h_intern(&lf[508],9, C_text("list-info"));
25122 lf[509]=C_h_intern(&lf[509],29, C_text("##sys#current-source-filename"));
25123 lf[510]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:"));
25124 lf[511]=C_h_intern(&lf[511],41, C_text("chicken.compiler.support#read/source-info"));
25125 lf[512]=C_h_intern(&lf[512],10, C_text("##sys#read"));
25126 lf[513]=C_h_intern(&lf[513],20, C_text("##sys#user-read-hook"));
25127 lf[514]=C_h_intern(&lf[514],15, C_text("foreign-declare"));
25128 lf[515]=C_h_intern(&lf[515],7, C_text("declare"));
25129 lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000&unexpected end of `#> ... <#\047 sequence"));
25130 lf[517]=C_h_intern(&lf[517],20, C_text("##sys#read-char/port"));
25131 lf[518]=C_h_intern(&lf[518],25, C_text("chicken.platform#feature\077"));
25132 lf[519]=C_h_intern_kw(&lf[519],5, C_text("64bit"));
25133 lf[520]=C_h_intern(&lf[520],38, C_text("chicken.compiler.support#small-bignum\077"));
25134 lf[521]=C_h_intern(&lf[521],6, C_text("hidden"));
25135 lf[522]=C_h_intern(&lf[522],40, C_text("chicken.compiler.support#export-variable"));
25136 lf[523]=C_h_intern(&lf[523],8, C_text("exported"));
25137 lf[524]=C_h_intern(&lf[524],38, C_text("chicken.compiler.support#mark-variable"));
25138 lf[525]=C_h_intern(&lf[525],38, C_text("chicken.compiler.support#variable-mark"));
25139 lf[526]=C_h_intern(&lf[526],35, C_text("chicken.compiler.support#intrinsic\077"));
25140 lf[527]=C_h_intern(&lf[527],19, C_text("##compiler#foldable"));
25141 lf[528]=C_h_intern(&lf[528],20, C_text("##compiler#predicate"));
25142 lf[529]=C_h_intern(&lf[529],49, C_text("chicken.compiler.support#load-identifier-database"));
25143 lf[530]=C_h_intern(&lf[530],9, C_text("##core#db"));
25144 lf[531]=C_h_intern(&lf[531],27, C_text("scheme#call-with-input-file"));
25145 lf[532]=C_h_intern(&lf[532],1, C_text("p"));
25146 lf[533]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004 ..."));
25147 lf[534]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034loading identifier database "));
25148 lf[535]=C_h_intern(&lf[535],22, C_text("chicken.load#find-file"));
25149 lf[536]=C_h_intern(&lf[536],32, C_text("chicken.platform#repository-path"));
25150 lf[537]=C_h_intern(&lf[537],38, C_text("chicken.compiler.support#print-version"));
25151 lf[538]=C_h_intern(&lf[538],19, C_text("chicken.base#print\052"));
25152 lf[539]=C_decode_literal(C_heaptop,C_text("\376B\000\000KCHICKEN\012(c) 2008-2021, The CHICKEN Team\012(c) 2000-2007, Felix L. Winkelmann\012"
25153 ));
25154 lf[540]=C_h_intern(&lf[540],36, C_text("chicken.compiler.support#print-usage"));
25155 lf[541]=C_decode_literal(C_heaptop,C_text("\376B\000\031\317Usage: chicken FILENAME [OPTION ...]\012\012  `chicken\047 is the CHICKEN compiler.\012"
25156 "  \012  FILENAME should be a complete source file name with extension, or \042-\042 for\012 "
25157 " standard input. OPTION may be one of the following:\012\012  General options:\012\012    -h"
25158 "elp                        display this text and exit\012    -version              "
25159 "       display compiler version and exit\012    -release                     print "
25160 "release number and exit\012    -verbose                     display information on "
25161 "compilation progress\012\012  File and pathname options:\012\012    -output-file FILENAME   "
25162 "     specifies output-filename, default is \047out.c\047\012    -include-path PATHNAME   "
25163 "    specifies alternative path for included files\012    -to-stdout                "
25164 "   write compiled file to stdout instead of file\012\012  Language options:\012\012    -feat"
25165 "ure SYMBOL              register feature identifier\012    -no-feature SYMBOL      "
25166 "     disable built-in feature identifier\012\012  Syntax related options:\012\012    -case-i"
25167 "nsensitive            don\047t preserve case of read symbols\012    -keyword-style STY"
25168 "LE         allow alternative keyword syntax\012                                  (p"
25169 "refix, suffix or none)\012    -no-parentheses-synonyms     disables list delimiter "
25170 "synonyms\012    -no-symbol-escape            disables support for escaped symbols\012 "
25171 "   -r5rs-syntax                 disables the CHICKEN extensions to\012             "
25172 "                     R5RS syntax\012    -compile-syntax              macros are mad"
25173 "e available at run-time\012    -emit-import-library MODULE  write compile-time modu"
25174 "le information into\012                                  separate file\012    -emit-al"
25175 "l-import-libraries   emit import-libraries for all defined modules\012    -no-compi"
25176 "ler-syntax          disable expansion of compiler-macros\012    -module NAME       "
25177 "          wrap compiled code in a module\012    -module-registration         always"
25178 " generate module registration code\012    -no-module-registration      never genera"
25179 "te module registration code\012                                  (overrides `-modul"
25180 "e-registration\047)\012\012  Translation options:\012\012    -explicit-use                do no"
25181 "t use units \047library\047 and \047eval\047 by\012                                  default\012  "
25182 "  -check-syntax                stop compilation after macro-expansion\012    -analy"
25183 "ze-only                stop compilation after first analysis pass\012\012  Debugging o"
25184 "ptions:\012\012    -no-warnings                 disable warnings\012    -debug-level NUMB"
25185 "ER          set level of available debugging information\012    -no-trace          "
25186 "          disable tracing information\012    -debug-info                  enable de"
25187 "bug-information in compiled code for use\012                                  with "
25188 "an external debugger\012    -profile                     executable emits profiling"
25189 " information \012    -profile-name FILENAME       name of the generated profile inf"
25190 "ormation file\012    -accumulate-profile          executable emits profiling inform"
25191 "ation in\012                                  append mode\012    -no-lambda-info      "
25192 "        omit additional procedure-information\012    -emit-types-file FILENAME    w"
25193 "rite type-declaration information into file\012    -consult-types-file FILENAME loa"
25194 "d additional type database\012\012  Optimization options:\012\012    -optimize-level NUMBER "
25195 "      enable certain sets of optimization options\012    -optimize-leaf-routines   "
25196 "   enable leaf routine optimization\012    -no-usual-integrations       standard pr"
25197 "ocedures may be redefined\012    -unsafe                      disable all safety ch"
25198 "ecks\012    -local                       assume globals are only modified in curren"
25199 "t\012                                  file\012    -block                       enable"
25200 " block-compilation\012    -disable-interrupts          disable interrupts in compil"
25201 "ed code\012    -fixnum-arithmetic           assume all numbers are fixnums\012    -dis"
25202 "able-stack-overflow-checks  disables detection of stack-overflows\012    -inline   "
25203 "                   enable inlining\012    -inline-limit LIMIT          set inlining"
25204 " threshold\012    -inline-global               enable cross-module inlining\012    -sp"
25205 "ecialize                  perform type-based specialization of primitive calls\012 "
25206 "   -emit-inline-file FILENAME   generate file with globally inlinable\012          "
25207 "                        procedures (implies -inline -local)\012    -consult-inline-"
25208 "file FILENAME  explicitly load inline file\012    -no-argc-checks              disa"
25209 "ble argument count checks\012    -no-bound-checks             disable bound variabl"
25210 "e checks\012    -no-procedure-checks         disable procedure call checks\012    -no-"
25211 "procedure-checks-for-usual-bindings\012                                   disable p"
25212 "rocedure call checks only for usual\012                                   bindings\012"
25213 "    -no-procedure-checks-for-toplevel-bindings\012                                 "
25214 "  disable procedure call checks for toplevel\012                                   "
25215 "bindings\012    -strict-types                assume variable do not change their ty"
25216 "pe\012    -clustering                  combine groups of local procedures into disp"
25217 "atch\012                                   loop\012    -lfa2                        pe"
25218 "rform additional lightweight flow-analysis pass\012    -unroll-limit LIMIT         "
25219 " specifies inlining limit for self-recursive calls\012\012  Configuration options:\012\012  "
25220 "  -unit NAME                   compile file as a library unit\012    -uses NAME    "
25221 "               declare library unit as used.\012    -heap-size NUMBER            sp"
25222 "ecifies heap-size of compiled executable\012    -nursery NUMBER  -stack-size NUMBER"
25223 "\012                                 specifies nursery size of compiled executable\012"
25224 "    -extend FILENAME             load file before compilation commences\012    -pre"
25225 "lude EXPRESSION          add expression to front of source file\012    -postlude EX"
25226 "PRESSION         add expression to end of source file\012    -prologue FILENAME    "
25227 "       include file before main source file\012    -epilogue FILENAME           inc"
25228 "lude file after main source file\012    -dynamic                     compile as dyn"
25229 "amically loadable code\012    -require-extension NAME      require and import exten"
25230 "sion NAME\012\012  Obscure options:\012\012    -debug MODES                 display debuggin"
25231 "g output for the given modes\012    -raw                         do not generate im"
25232 "plicit init- and exit code                           \012    -emit-external-prototy"
25233 "pes-first\012                                 emit prototypes for callbacks before "
25234 "foreign\012                                  declarations\012    -regenerate-import-li"
25235 "braries emit import libraries even when unchanged\012    -ignore-repository        "
25236 "   do not refer to repository for extensions\012    -setup-mode                  pr"
25237 "efer the current directory when locating extensions\012"));
25238 lf[542]=C_h_intern(&lf[542],44, C_text("chicken.compiler.support#print-debug-options"));
25239 lf[543]=C_decode_literal(C_heaptop,C_text("\376B\000\006\344\012Available debugging options:\012\012     a          show node-matching during si"
25240 "mplification\012     b          show breakdown of time needed for each compiler pas"
25241 "s\012     c          print every expression before macro-expansion\012     d          "
25242 "lists all assigned global variables\012     e          show information about speci"
25243 "alizations\012     h          you already figured that out\012     i          show inf"
25244 "ormation about inlining\012     m          show GC statistics during compilation\012  "
25245 "   n          print the line-number database \012     o          show performed opt"
25246 "imizations\012     p          display information about what the compiler is curren"
25247 "tly doing\012     r          show invocation parameters\012     s          show progra"
25248 "m-size information and other statistics\012     t          show time needed for com"
25249 "pilation\012     u          lists all unassigned global variable references\012     x "
25250 "         display information about experimental features\012     D          when pr"
25251 "inting nodes, use node-tree output\012     I          show inferred type informatio"
25252 "n for unexported globals\012     N          show the real-name mapping table\012     P"
25253 "          show expressions after specialization\012     S          show application"
25254 "s of compiler syntax\012     T          show expressions after converting to node t"
25255 "ree\012     1          show source expressions\012     2          show canonicalized e"
25256 "xpressions\012     3          show expressions converted into CPS\012     4          s"
25257 "how database after each analysis pass\012     5          show expressions after eac"
25258 "h optimization pass\012     6          show expressions after each inlining pass\012  "
25259 "   7          show expressions after complete optimization\012     8          show "
25260 "database after final analysis\012     9          show expressions after closure con"
25261 "version\012\012"));
25262 lf[544]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007#<node "));
25263 lf[545]=C_h_intern(&lf[545],32, C_text("chicken.base#set-record-printer!"));
25264 lf[546]=C_h_intern(&lf[546],45, C_text("chicken.condition#condition-property-accessor"));
25265 lf[547]=C_h_intern(&lf[547],3, C_text("exn"));
25266 lf[548]=C_h_intern(&lf[548],7, C_text("message"));
25267 lf[549]=C_h_intern(&lf[549],37, C_text("chicken.condition#condition-predicate"));
25268 C_register_lf2(lf,550,create_ptable());{}
25269 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5348,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
25270 C_word *av2=av;
25271 av2[0]=C_SCHEME_UNDEFINED;
25272 av2[1]=t2;
25273 C_library_toplevel(2,av2);}}
25274 
25275 #ifdef C_ENABLE_PTABLES
25276 static C_PTABLE_ENTRY ptable[782] = {
25277 {C_text("f19850:support_2escm"),(void*)f19850},
25278 {C_text("f_10004:support_2escm"),(void*)f_10004},
25279 {C_text("f_10032:support_2escm"),(void*)f_10032},
25280 {C_text("f_10056:support_2escm"),(void*)f_10056},
25281 {C_text("f_10090:support_2escm"),(void*)f_10090},
25282 {C_text("f_10094:support_2escm"),(void*)f_10094},
25283 {C_text("f_10104:support_2escm"),(void*)f_10104},
25284 {C_text("f_10128:support_2escm"),(void*)f_10128},
25285 {C_text("f_10143:support_2escm"),(void*)f_10143},
25286 {C_text("f_10155:support_2escm"),(void*)f_10155},
25287 {C_text("f_10180:support_2escm"),(void*)f_10180},
25288 {C_text("f_10205:support_2escm"),(void*)f_10205},
25289 {C_text("f_10235:support_2escm"),(void*)f_10235},
25290 {C_text("f_10237:support_2escm"),(void*)f_10237},
25291 {C_text("f_10262:support_2escm"),(void*)f_10262},
25292 {C_text("f_10293:support_2escm"),(void*)f_10293},
25293 {C_text("f_10305:support_2escm"),(void*)f_10305},
25294 {C_text("f_10309:support_2escm"),(void*)f_10309},
25295 {C_text("f_10332:support_2escm"),(void*)f_10332},
25296 {C_text("f_10343:support_2escm"),(void*)f_10343},
25297 {C_text("f_10350:support_2escm"),(void*)f_10350},
25298 {C_text("f_10361:support_2escm"),(void*)f_10361},
25299 {C_text("f_10363:support_2escm"),(void*)f_10363},
25300 {C_text("f_10388:support_2escm"),(void*)f_10388},
25301 {C_text("f_10418:support_2escm"),(void*)f_10418},
25302 {C_text("f_10420:support_2escm"),(void*)f_10420},
25303 {C_text("f_10445:support_2escm"),(void*)f_10445},
25304 {C_text("f_10459:support_2escm"),(void*)f_10459},
25305 {C_text("f_10469:support_2escm"),(void*)f_10469},
25306 {C_text("f_10471:support_2escm"),(void*)f_10471},
25307 {C_text("f_10496:support_2escm"),(void*)f_10496},
25308 {C_text("f_10569:support_2escm"),(void*)f_10569},
25309 {C_text("f_10575:support_2escm"),(void*)f_10575},
25310 {C_text("f_10601:support_2escm"),(void*)f_10601},
25311 {C_text("f_10605:support_2escm"),(void*)f_10605},
25312 {C_text("f_10621:support_2escm"),(void*)f_10621},
25313 {C_text("f_10627:support_2escm"),(void*)f_10627},
25314 {C_text("f_10633:support_2escm"),(void*)f_10633},
25315 {C_text("f_10639:support_2escm"),(void*)f_10639},
25316 {C_text("f_10643:support_2escm"),(void*)f_10643},
25317 {C_text("f_10646:support_2escm"),(void*)f_10646},
25318 {C_text("f_10660:support_2escm"),(void*)f_10660},
25319 {C_text("f_10663:support_2escm"),(void*)f_10663},
25320 {C_text("f_10666:support_2escm"),(void*)f_10666},
25321 {C_text("f_10673:support_2escm"),(void*)f_10673},
25322 {C_text("f_10675:support_2escm"),(void*)f_10675},
25323 {C_text("f_10690:support_2escm"),(void*)f_10690},
25324 {C_text("f_10723:support_2escm"),(void*)f_10723},
25325 {C_text("f_10751:support_2escm"),(void*)f_10751},
25326 {C_text("f_10755:support_2escm"),(void*)f_10755},
25327 {C_text("f_10779:support_2escm"),(void*)f_10779},
25328 {C_text("f_10811:support_2escm"),(void*)f_10811},
25329 {C_text("f_10820:support_2escm"),(void*)f_10820},
25330 {C_text("f_10824:support_2escm"),(void*)f_10824},
25331 {C_text("f_10830:support_2escm"),(void*)f_10830},
25332 {C_text("f_10836:support_2escm"),(void*)f_10836},
25333 {C_text("f_10839:support_2escm"),(void*)f_10839},
25334 {C_text("f_10844:support_2escm"),(void*)f_10844},
25335 {C_text("f_10854:support_2escm"),(void*)f_10854},
25336 {C_text("f_10869:support_2escm"),(void*)f_10869},
25337 {C_text("f_10871:support_2escm"),(void*)f_10871},
25338 {C_text("f_10896:support_2escm"),(void*)f_10896},
25339 {C_text("f_10917:support_2escm"),(void*)f_10917},
25340 {C_text("f_10942:support_2escm"),(void*)f_10942},
25341 {C_text("f_10964:support_2escm"),(void*)f_10964},
25342 {C_text("f_10972:support_2escm"),(void*)f_10972},
25343 {C_text("f_11023:support_2escm"),(void*)f_11023},
25344 {C_text("f_11030:support_2escm"),(void*)f_11030},
25345 {C_text("f_11033:support_2escm"),(void*)f_11033},
25346 {C_text("f_11062:support_2escm"),(void*)f_11062},
25347 {C_text("f_11070:support_2escm"),(void*)f_11070},
25348 {C_text("f_11086:support_2escm"),(void*)f_11086},
25349 {C_text("f_11089:support_2escm"),(void*)f_11089},
25350 {C_text("f_11095:support_2escm"),(void*)f_11095},
25351 {C_text("f_11115:support_2escm"),(void*)f_11115},
25352 {C_text("f_11138:support_2escm"),(void*)f_11138},
25353 {C_text("f_11143:support_2escm"),(void*)f_11143},
25354 {C_text("f_11147:support_2escm"),(void*)f_11147},
25355 {C_text("f_11150:support_2escm"),(void*)f_11150},
25356 {C_text("f_11156:support_2escm"),(void*)f_11156},
25357 {C_text("f_11159:support_2escm"),(void*)f_11159},
25358 {C_text("f_11176:support_2escm"),(void*)f_11176},
25359 {C_text("f_11186:support_2escm"),(void*)f_11186},
25360 {C_text("f_11188:support_2escm"),(void*)f_11188},
25361 {C_text("f_11213:support_2escm"),(void*)f_11213},
25362 {C_text("f_11224:support_2escm"),(void*)f_11224},
25363 {C_text("f_11232:support_2escm"),(void*)f_11232},
25364 {C_text("f_11240:support_2escm"),(void*)f_11240},
25365 {C_text("f_11253:support_2escm"),(void*)f_11253},
25366 {C_text("f_11255:support_2escm"),(void*)f_11255},
25367 {C_text("f_11303:support_2escm"),(void*)f_11303},
25368 {C_text("f_11328:support_2escm"),(void*)f_11328},
25369 {C_text("f_11347:support_2escm"),(void*)f_11347},
25370 {C_text("f_11352:support_2escm"),(void*)f_11352},
25371 {C_text("f_11362:support_2escm"),(void*)f_11362},
25372 {C_text("f_11364:support_2escm"),(void*)f_11364},
25373 {C_text("f_11389:support_2escm"),(void*)f_11389},
25374 {C_text("f_11411:support_2escm"),(void*)f_11411},
25375 {C_text("f_11462:support_2escm"),(void*)f_11462},
25376 {C_text("f_11506:support_2escm"),(void*)f_11506},
25377 {C_text("f_11553:support_2escm"),(void*)f_11553},
25378 {C_text("f_11581:support_2escm"),(void*)f_11581},
25379 {C_text("f_11585:support_2escm"),(void*)f_11585},
25380 {C_text("f_11589:support_2escm"),(void*)f_11589},
25381 {C_text("f_11608:support_2escm"),(void*)f_11608},
25382 {C_text("f_11620:support_2escm"),(void*)f_11620},
25383 {C_text("f_11622:support_2escm"),(void*)f_11622},
25384 {C_text("f_11664:support_2escm"),(void*)f_11664},
25385 {C_text("f_11674:support_2escm"),(void*)f_11674},
25386 {C_text("f_11696:support_2escm"),(void*)f_11696},
25387 {C_text("f_11723:support_2escm"),(void*)f_11723},
25388 {C_text("f_11743:support_2escm"),(void*)f_11743},
25389 {C_text("f_11796:support_2escm"),(void*)f_11796},
25390 {C_text("f_11843:support_2escm"),(void*)f_11843},
25391 {C_text("f_11860:support_2escm"),(void*)f_11860},
25392 {C_text("f_11866:support_2escm"),(void*)f_11866},
25393 {C_text("f_11880:support_2escm"),(void*)f_11880},
25394 {C_text("f_11884:support_2escm"),(void*)f_11884},
25395 {C_text("f_11890:support_2escm"),(void*)f_11890},
25396 {C_text("f_11928:support_2escm"),(void*)f_11928},
25397 {C_text("f_11932:support_2escm"),(void*)f_11932},
25398 {C_text("f_11935:support_2escm"),(void*)f_11935},
25399 {C_text("f_11938:support_2escm"),(void*)f_11938},
25400 {C_text("f_11973:support_2escm"),(void*)f_11973},
25401 {C_text("f_12017:support_2escm"),(void*)f_12017},
25402 {C_text("f_12019:support_2escm"),(void*)f_12019},
25403 {C_text("f_12044:support_2escm"),(void*)f_12044},
25404 {C_text("f_12059:support_2escm"),(void*)f_12059},
25405 {C_text("f_12088:support_2escm"),(void*)f_12088},
25406 {C_text("f_12090:support_2escm"),(void*)f_12090},
25407 {C_text("f_12115:support_2escm"),(void*)f_12115},
25408 {C_text("f_12124:support_2escm"),(void*)f_12124},
25409 {C_text("f_12127:support_2escm"),(void*)f_12127},
25410 {C_text("f_12133:support_2escm"),(void*)f_12133},
25411 {C_text("f_12181:support_2escm"),(void*)f_12181},
25412 {C_text("f_12184:support_2escm"),(void*)f_12184},
25413 {C_text("f_12190:support_2escm"),(void*)f_12190},
25414 {C_text("f_12198:support_2escm"),(void*)f_12198},
25415 {C_text("f_12206:support_2escm"),(void*)f_12206},
25416 {C_text("f_12216:support_2escm"),(void*)f_12216},
25417 {C_text("f_12235:support_2escm"),(void*)f_12235},
25418 {C_text("f_12239:support_2escm"),(void*)f_12239},
25419 {C_text("f_12244:support_2escm"),(void*)f_12244},
25420 {C_text("f_12250:support_2escm"),(void*)f_12250},
25421 {C_text("f_12253:support_2escm"),(void*)f_12253},
25422 {C_text("f_12258:support_2escm"),(void*)f_12258},
25423 {C_text("f_12268:support_2escm"),(void*)f_12268},
25424 {C_text("f_12283:support_2escm"),(void*)f_12283},
25425 {C_text("f_12285:support_2escm"),(void*)f_12285},
25426 {C_text("f_12292:support_2escm"),(void*)f_12292},
25427 {C_text("f_12313:support_2escm"),(void*)f_12313},
25428 {C_text("f_12347:support_2escm"),(void*)f_12347},
25429 {C_text("f_12350:support_2escm"),(void*)f_12350},
25430 {C_text("f_12375:support_2escm"),(void*)f_12375},
25431 {C_text("f_12381:support_2escm"),(void*)f_12381},
25432 {C_text("f_12407:support_2escm"),(void*)f_12407},
25433 {C_text("f_12440:support_2escm"),(void*)f_12440},
25434 {C_text("f_12442:support_2escm"),(void*)f_12442},
25435 {C_text("f_12448:support_2escm"),(void*)f_12448},
25436 {C_text("f_12454:support_2escm"),(void*)f_12454},
25437 {C_text("f_12458:support_2escm"),(void*)f_12458},
25438 {C_text("f_12481:support_2escm"),(void*)f_12481},
25439 {C_text("f_12492:support_2escm"),(void*)f_12492},
25440 {C_text("f_12498:support_2escm"),(void*)f_12498},
25441 {C_text("f_12501:support_2escm"),(void*)f_12501},
25442 {C_text("f_12509:support_2escm"),(void*)f_12509},
25443 {C_text("f_12535:support_2escm"),(void*)f_12535},
25444 {C_text("f_12557:support_2escm"),(void*)f_12557},
25445 {C_text("f_12582:support_2escm"),(void*)f_12582},
25446 {C_text("f_12604:support_2escm"),(void*)f_12604},
25447 {C_text("f_12622:support_2escm"),(void*)f_12622},
25448 {C_text("f_12653:support_2escm"),(void*)f_12653},
25449 {C_text("f_12705:support_2escm"),(void*)f_12705},
25450 {C_text("f_12711:support_2escm"),(void*)f_12711},
25451 {C_text("f_12731:support_2escm"),(void*)f_12731},
25452 {C_text("f_12737:support_2escm"),(void*)f_12737},
25453 {C_text("f_12763:support_2escm"),(void*)f_12763},
25454 {C_text("f_12777:support_2escm"),(void*)f_12777},
25455 {C_text("f_12785:support_2escm"),(void*)f_12785},
25456 {C_text("f_12840:support_2escm"),(void*)f_12840},
25457 {C_text("f_12869:support_2escm"),(void*)f_12869},
25458 {C_text("f_12966:support_2escm"),(void*)f_12966},
25459 {C_text("f_12972:support_2escm"),(void*)f_12972},
25460 {C_text("f_12979:support_2escm"),(void*)f_12979},
25461 {C_text("f_12982:support_2escm"),(void*)f_12982},
25462 {C_text("f_13005:support_2escm"),(void*)f_13005},
25463 {C_text("f_13007:support_2escm"),(void*)f_13007},
25464 {C_text("f_13013:support_2escm"),(void*)f_13013},
25465 {C_text("f_13020:support_2escm"),(void*)f_13020},
25466 {C_text("f_13023:support_2escm"),(void*)f_13023},
25467 {C_text("f_13042:support_2escm"),(void*)f_13042},
25468 {C_text("f_13044:support_2escm"),(void*)f_13044},
25469 {C_text("f_13050:support_2escm"),(void*)f_13050},
25470 {C_text("f_13063:support_2escm"),(void*)f_13063},
25471 {C_text("f_13091:support_2escm"),(void*)f_13091},
25472 {C_text("f_13093:support_2escm"),(void*)f_13093},
25473 {C_text("f_13114:support_2escm"),(void*)f_13114},
25474 {C_text("f_13121:support_2escm"),(void*)f_13121},
25475 {C_text("f_13127:support_2escm"),(void*)f_13127},
25476 {C_text("f_13133:support_2escm"),(void*)f_13133},
25477 {C_text("f_13142:support_2escm"),(void*)f_13142},
25478 {C_text("f_13151:support_2escm"),(void*)f_13151},
25479 {C_text("f_13160:support_2escm"),(void*)f_13160},
25480 {C_text("f_13169:support_2escm"),(void*)f_13169},
25481 {C_text("f_13178:support_2escm"),(void*)f_13178},
25482 {C_text("f_13204:support_2escm"),(void*)f_13204},
25483 {C_text("f_13207:support_2escm"),(void*)f_13207},
25484 {C_text("f_13218:support_2escm"),(void*)f_13218},
25485 {C_text("f_13220:support_2escm"),(void*)f_13220},
25486 {C_text("f_13274:support_2escm"),(void*)f_13274},
25487 {C_text("f_13280:support_2escm"),(void*)f_13280},
25488 {C_text("f_13286:support_2escm"),(void*)f_13286},
25489 {C_text("f_13292:support_2escm"),(void*)f_13292},
25490 {C_text("f_13317:support_2escm"),(void*)f_13317},
25491 {C_text("f_13332:support_2escm"),(void*)f_13332},
25492 {C_text("f_13350:support_2escm"),(void*)f_13350},
25493 {C_text("f_13400:support_2escm"),(void*)f_13400},
25494 {C_text("f_13415:support_2escm"),(void*)f_13415},
25495 {C_text("f_13455:support_2escm"),(void*)f_13455},
25496 {C_text("f_13458:support_2escm"),(void*)f_13458},
25497 {C_text("f_13473:support_2escm"),(void*)f_13473},
25498 {C_text("f_13497:support_2escm"),(void*)f_13497},
25499 {C_text("f_13523:support_2escm"),(void*)f_13523},
25500 {C_text("f_13529:support_2escm"),(void*)f_13529},
25501 {C_text("f_13535:support_2escm"),(void*)f_13535},
25502 {C_text("f_13538:support_2escm"),(void*)f_13538},
25503 {C_text("f_13541:support_2escm"),(void*)f_13541},
25504 {C_text("f_13544:support_2escm"),(void*)f_13544},
25505 {C_text("f_13566:support_2escm"),(void*)f_13566},
25506 {C_text("f_13572:support_2escm"),(void*)f_13572},
25507 {C_text("f_13578:support_2escm"),(void*)f_13578},
25508 {C_text("f_13581:support_2escm"),(void*)f_13581},
25509 {C_text("f_13584:support_2escm"),(void*)f_13584},
25510 {C_text("f_13587:support_2escm"),(void*)f_13587},
25511 {C_text("f_13610:support_2escm"),(void*)f_13610},
25512 {C_text("f_13613:support_2escm"),(void*)f_13613},
25513 {C_text("f_13654:support_2escm"),(void*)f_13654},
25514 {C_text("f_13657:support_2escm"),(void*)f_13657},
25515 {C_text("f_13672:support_2escm"),(void*)f_13672},
25516 {C_text("f_13699:support_2escm"),(void*)f_13699},
25517 {C_text("f_13742:support_2escm"),(void*)f_13742},
25518 {C_text("f_13746:support_2escm"),(void*)f_13746},
25519 {C_text("f_13773:support_2escm"),(void*)f_13773},
25520 {C_text("f_13776:support_2escm"),(void*)f_13776},
25521 {C_text("f_13811:support_2escm"),(void*)f_13811},
25522 {C_text("f_13847:support_2escm"),(void*)f_13847},
25523 {C_text("f_14350:support_2escm"),(void*)f_14350},
25524 {C_text("f_14356:support_2escm"),(void*)f_14356},
25525 {C_text("f_14366:support_2escm"),(void*)f_14366},
25526 {C_text("f_14377:support_2escm"),(void*)f_14377},
25527 {C_text("f_14387:support_2escm"),(void*)f_14387},
25528 {C_text("f_14398:support_2escm"),(void*)f_14398},
25529 {C_text("f_14402:support_2escm"),(void*)f_14402},
25530 {C_text("f_14413:support_2escm"),(void*)f_14413},
25531 {C_text("f_14417:support_2escm"),(void*)f_14417},
25532 {C_text("f_14428:support_2escm"),(void*)f_14428},
25533 {C_text("f_14434:support_2escm"),(void*)f_14434},
25534 {C_text("f_14438:support_2escm"),(void*)f_14438},
25535 {C_text("f_14442:support_2escm"),(void*)f_14442},
25536 {C_text("f_14461:support_2escm"),(void*)f_14461},
25537 {C_text("f_14467:support_2escm"),(void*)f_14467},
25538 {C_text("f_14470:support_2escm"),(void*)f_14470},
25539 {C_text("f_14479:support_2escm"),(void*)f_14479},
25540 {C_text("f_14489:support_2escm"),(void*)f_14489},
25541 {C_text("f_14498:support_2escm"),(void*)f_14498},
25542 {C_text("f_14510:support_2escm"),(void*)f_14510},
25543 {C_text("f_14522:support_2escm"),(void*)f_14522},
25544 {C_text("f_14534:support_2escm"),(void*)f_14534},
25545 {C_text("f_14540:support_2escm"),(void*)f_14540},
25546 {C_text("f_14544:support_2escm"),(void*)f_14544},
25547 {C_text("f_14571:support_2escm"),(void*)f_14571},
25548 {C_text("f_14936:support_2escm"),(void*)f_14936},
25549 {C_text("f_14942:support_2escm"),(void*)f_14942},
25550 {C_text("f_14954:support_2escm"),(void*)f_14954},
25551 {C_text("f_14964:support_2escm"),(void*)f_14964},
25552 {C_text("f_14976:support_2escm"),(void*)f_14976},
25553 {C_text("f_14982:support_2escm"),(void*)f_14982},
25554 {C_text("f_14986:support_2escm"),(void*)f_14986},
25555 {C_text("f_15013:support_2escm"),(void*)f_15013},
25556 {C_text("f_15386:support_2escm"),(void*)f_15386},
25557 {C_text("f_15392:support_2escm"),(void*)f_15392},
25558 {C_text("f_15396:support_2escm"),(void*)f_15396},
25559 {C_text("f_15512:support_2escm"),(void*)f_15512},
25560 {C_text("f_15540:support_2escm"),(void*)f_15540},
25561 {C_text("f_15660:support_2escm"),(void*)f_15660},
25562 {C_text("f_15667:support_2escm"),(void*)f_15667},
25563 {C_text("f_15670:support_2escm"),(void*)f_15670},
25564 {C_text("f_15673:support_2escm"),(void*)f_15673},
25565 {C_text("f_15697:support_2escm"),(void*)f_15697},
25566 {C_text("f_15772:support_2escm"),(void*)f_15772},
25567 {C_text("f_15859:support_2escm"),(void*)f_15859},
25568 {C_text("f_15892:support_2escm"),(void*)f_15892},
25569 {C_text("f_15910:support_2escm"),(void*)f_15910},
25570 {C_text("f_15932:support_2escm"),(void*)f_15932},
25571 {C_text("f_16314:support_2escm"),(void*)f_16314},
25572 {C_text("f_16318:support_2escm"),(void*)f_16318},
25573 {C_text("f_16320:support_2escm"),(void*)f_16320},
25574 {C_text("f_16352:support_2escm"),(void*)f_16352},
25575 {C_text("f_16360:support_2escm"),(void*)f_16360},
25576 {C_text("f_16370:support_2escm"),(void*)f_16370},
25577 {C_text("f_16416:support_2escm"),(void*)f_16416},
25578 {C_text("f_16424:support_2escm"),(void*)f_16424},
25579 {C_text("f_16434:support_2escm"),(void*)f_16434},
25580 {C_text("f_16469:support_2escm"),(void*)f_16469},
25581 {C_text("f_16472:support_2escm"),(void*)f_16472},
25582 {C_text("f_16506:support_2escm"),(void*)f_16506},
25583 {C_text("f_16525:support_2escm"),(void*)f_16525},
25584 {C_text("f_16531:support_2escm"),(void*)f_16531},
25585 {C_text("f_16535:support_2escm"),(void*)f_16535},
25586 {C_text("f_16561:support_2escm"),(void*)f_16561},
25587 {C_text("f_16570:support_2escm"),(void*)f_16570},
25588 {C_text("f_16581:support_2escm"),(void*)f_16581},
25589 {C_text("f_16600:support_2escm"),(void*)f_16600},
25590 {C_text("f_16612:support_2escm"),(void*)f_16612},
25591 {C_text("f_16656:support_2escm"),(void*)f_16656},
25592 {C_text("f_16658:support_2escm"),(void*)f_16658},
25593 {C_text("f_16670:support_2escm"),(void*)f_16670},
25594 {C_text("f_16680:support_2escm"),(void*)f_16680},
25595 {C_text("f_16694:support_2escm"),(void*)f_16694},
25596 {C_text("f_16699:support_2escm"),(void*)f_16699},
25597 {C_text("f_16723:support_2escm"),(void*)f_16723},
25598 {C_text("f_16729:support_2escm"),(void*)f_16729},
25599 {C_text("f_16735:support_2escm"),(void*)f_16735},
25600 {C_text("f_16744:support_2escm"),(void*)f_16744},
25601 {C_text("f_16752:support_2escm"),(void*)f_16752},
25602 {C_text("f_16758:support_2escm"),(void*)f_16758},
25603 {C_text("f_16761:support_2escm"),(void*)f_16761},
25604 {C_text("f_16764:support_2escm"),(void*)f_16764},
25605 {C_text("f_16767:support_2escm"),(void*)f_16767},
25606 {C_text("f_16770:support_2escm"),(void*)f_16770},
25607 {C_text("f_16775:support_2escm"),(void*)f_16775},
25608 {C_text("f_16779:support_2escm"),(void*)f_16779},
25609 {C_text("f_16791:support_2escm"),(void*)f_16791},
25610 {C_text("f_16796:support_2escm"),(void*)f_16796},
25611 {C_text("f_16798:support_2escm"),(void*)f_16798},
25612 {C_text("f_16804:support_2escm"),(void*)f_16804},
25613 {C_text("f_16811:support_2escm"),(void*)f_16811},
25614 {C_text("f_16814:support_2escm"),(void*)f_16814},
25615 {C_text("f_16818:support_2escm"),(void*)f_16818},
25616 {C_text("f_16824:support_2escm"),(void*)f_16824},
25617 {C_text("f_16830:support_2escm"),(void*)f_16830},
25618 {C_text("f_16857:support_2escm"),(void*)f_16857},
25619 {C_text("f_16859:support_2escm"),(void*)f_16859},
25620 {C_text("f_16873:support_2escm"),(void*)f_16873},
25621 {C_text("f_16883:support_2escm"),(void*)f_16883},
25622 {C_text("f_16896:support_2escm"),(void*)f_16896},
25623 {C_text("f_16911:support_2escm"),(void*)f_16911},
25624 {C_text("f_16915:support_2escm"),(void*)f_16915},
25625 {C_text("f_16922:support_2escm"),(void*)f_16922},
25626 {C_text("f_16926:support_2escm"),(void*)f_16926},
25627 {C_text("f_16931:support_2escm"),(void*)f_16931},
25628 {C_text("f_16935:support_2escm"),(void*)f_16935},
25629 {C_text("f_16943:support_2escm"),(void*)f_16943},
25630 {C_text("f_16949:support_2escm"),(void*)f_16949},
25631 {C_text("f_16956:support_2escm"),(void*)f_16956},
25632 {C_text("f_16959:support_2escm"),(void*)f_16959},
25633 {C_text("f_16962:support_2escm"),(void*)f_16962},
25634 {C_text("f_16967:support_2escm"),(void*)f_16967},
25635 {C_text("f_16987:support_2escm"),(void*)f_16987},
25636 {C_text("f_16991:support_2escm"),(void*)f_16991},
25637 {C_text("f_17002:support_2escm"),(void*)f_17002},
25638 {C_text("f_17017:support_2escm"),(void*)f_17017},
25639 {C_text("f_17029:support_2escm"),(void*)f_17029},
25640 {C_text("f_17036:support_2escm"),(void*)f_17036},
25641 {C_text("f_17066:support_2escm"),(void*)f_17066},
25642 {C_text("f_17090:support_2escm"),(void*)f_17090},
25643 {C_text("f_17105:support_2escm"),(void*)f_17105},
25644 {C_text("f_17108:support_2escm"),(void*)f_17108},
25645 {C_text("f_17114:support_2escm"),(void*)f_17114},
25646 {C_text("f_17123:support_2escm"),(void*)f_17123},
25647 {C_text("f_17126:support_2escm"),(void*)f_17126},
25648 {C_text("f_17165:support_2escm"),(void*)f_17165},
25649 {C_text("f_17171:support_2escm"),(void*)f_17171},
25650 {C_text("f_17177:support_2escm"),(void*)f_17177},
25651 {C_text("f_17180:support_2escm"),(void*)f_17180},
25652 {C_text("f_17186:support_2escm"),(void*)f_17186},
25653 {C_text("f_17192:support_2escm"),(void*)f_17192},
25654 {C_text("f_17198:support_2escm"),(void*)f_17198},
25655 {C_text("f_17204:support_2escm"),(void*)f_17204},
25656 {C_text("f_17226:support_2escm"),(void*)f_17226},
25657 {C_text("f_17228:support_2escm"),(void*)f_17228},
25658 {C_text("f_17262:support_2escm"),(void*)f_17262},
25659 {C_text("f_17296:support_2escm"),(void*)f_17296},
25660 {C_text("f_17299:support_2escm"),(void*)f_17299},
25661 {C_text("f_17327:support_2escm"),(void*)f_17327},
25662 {C_text("f_17334:support_2escm"),(void*)f_17334},
25663 {C_text("f_17349:support_2escm"),(void*)f_17349},
25664 {C_text("f_17355:support_2escm"),(void*)f_17355},
25665 {C_text("f_17358:support_2escm"),(void*)f_17358},
25666 {C_text("f_17395:support_2escm"),(void*)f_17395},
25667 {C_text("f_17410:support_2escm"),(void*)f_17410},
25668 {C_text("f_17420:support_2escm"),(void*)f_17420},
25669 {C_text("f_17423:support_2escm"),(void*)f_17423},
25670 {C_text("f_17435:support_2escm"),(void*)f_17435},
25671 {C_text("f_17441:support_2escm"),(void*)f_17441},
25672 {C_text("f_17447:support_2escm"),(void*)f_17447},
25673 {C_text("f_17450:support_2escm"),(void*)f_17450},
25674 {C_text("f_17452:support_2escm"),(void*)f_17452},
25675 {C_text("f_17459:support_2escm"),(void*)f_17459},
25676 {C_text("f_17465:support_2escm"),(void*)f_17465},
25677 {C_text("f_17476:support_2escm"),(void*)f_17476},
25678 {C_text("f_17524:support_2escm"),(void*)f_17524},
25679 {C_text("f_17526:support_2escm"),(void*)f_17526},
25680 {C_text("f_17532:support_2escm"),(void*)f_17532},
25681 {C_text("f_17536:support_2escm"),(void*)f_17536},
25682 {C_text("f_17541:support_2escm"),(void*)f_17541},
25683 {C_text("f_17569:support_2escm"),(void*)f_17569},
25684 {C_text("f_17577:support_2escm"),(void*)f_17577},
25685 {C_text("f_17580:support_2escm"),(void*)f_17580},
25686 {C_text("f_17583:support_2escm"),(void*)f_17583},
25687 {C_text("f_17586:support_2escm"),(void*)f_17586},
25688 {C_text("f_17589:support_2escm"),(void*)f_17589},
25689 {C_text("f_17592:support_2escm"),(void*)f_17592},
25690 {C_text("f_17593:support_2escm"),(void*)f_17593},
25691 {C_text("f_17603:support_2escm"),(void*)f_17603},
25692 {C_text("f_17609:support_2escm"),(void*)f_17609},
25693 {C_text("f_17621:support_2escm"),(void*)f_17621},
25694 {C_text("f_17624:support_2escm"),(void*)f_17624},
25695 {C_text("f_17627:support_2escm"),(void*)f_17627},
25696 {C_text("f_17632:support_2escm"),(void*)f_17632},
25697 {C_text("f_17645:support_2escm"),(void*)f_17645},
25698 {C_text("f_17648:support_2escm"),(void*)f_17648},
25699 {C_text("f_17665:support_2escm"),(void*)f_17665},
25700 {C_text("f_17675:support_2escm"),(void*)f_17675},
25701 {C_text("f_17688:support_2escm"),(void*)f_17688},
25702 {C_text("f_17692:support_2escm"),(void*)f_17692},
25703 {C_text("f_17710:support_2escm"),(void*)f_17710},
25704 {C_text("f_17714:support_2escm"),(void*)f_17714},
25705 {C_text("f_17731:support_2escm"),(void*)f_17731},
25706 {C_text("f_17737:support_2escm"),(void*)f_17737},
25707 {C_text("f_17747:support_2escm"),(void*)f_17747},
25708 {C_text("f_17750:support_2escm"),(void*)f_17750},
25709 {C_text("f_17766:support_2escm"),(void*)f_17766},
25710 {C_text("f_17771:support_2escm"),(void*)f_17771},
25711 {C_text("f_17775:support_2escm"),(void*)f_17775},
25712 {C_text("f_17792:support_2escm"),(void*)f_17792},
25713 {C_text("f_17803:support_2escm"),(void*)f_17803},
25714 {C_text("f_17815:support_2escm"),(void*)f_17815},
25715 {C_text("f_17818:support_2escm"),(void*)f_17818},
25716 {C_text("f_17826:support_2escm"),(void*)f_17826},
25717 {C_text("f_17831:support_2escm"),(void*)f_17831},
25718 {C_text("f_17844:support_2escm"),(void*)f_17844},
25719 {C_text("f_17855:support_2escm"),(void*)f_17855},
25720 {C_text("f_17877:support_2escm"),(void*)f_17877},
25721 {C_text("f_17879:support_2escm"),(void*)f_17879},
25722 {C_text("f_17899:support_2escm"),(void*)f_17899},
25723 {C_text("f_17919:support_2escm"),(void*)f_17919},
25724 {C_text("f_17927:support_2escm"),(void*)f_17927},
25725 {C_text("f_17936:support_2escm"),(void*)f_17936},
25726 {C_text("f_17941:support_2escm"),(void*)f_17941},
25727 {C_text("f_17945:support_2escm"),(void*)f_17945},
25728 {C_text("f_17966:support_2escm"),(void*)f_17966},
25729 {C_text("f_17981:support_2escm"),(void*)f_17981},
25730 {C_text("f_17987:support_2escm"),(void*)f_17987},
25731 {C_text("f_17998:support_2escm"),(void*)f_17998},
25732 {C_text("f_18009:support_2escm"),(void*)f_18009},
25733 {C_text("f_18020:support_2escm"),(void*)f_18020},
25734 {C_text("f_18024:support_2escm"),(void*)f_18024},
25735 {C_text("f_18030:support_2escm"),(void*)f_18030},
25736 {C_text("f_18042:support_2escm"),(void*)f_18042},
25737 {C_text("f_18046:support_2escm"),(void*)f_18046},
25738 {C_text("f_18058:support_2escm"),(void*)f_18058},
25739 {C_text("f_18066:support_2escm"),(void*)f_18066},
25740 {C_text("f_18076:support_2escm"),(void*)f_18076},
25741 {C_text("f_18091:support_2escm"),(void*)f_18091},
25742 {C_text("f_18097:support_2escm"),(void*)f_18097},
25743 {C_text("f_18100:support_2escm"),(void*)f_18100},
25744 {C_text("f_18103:support_2escm"),(void*)f_18103},
25745 {C_text("f_18106:support_2escm"),(void*)f_18106},
25746 {C_text("f_18109:support_2escm"),(void*)f_18109},
25747 {C_text("f_18113:support_2escm"),(void*)f_18113},
25748 {C_text("f_18115:support_2escm"),(void*)f_18115},
25749 {C_text("f_18122:support_2escm"),(void*)f_18122},
25750 {C_text("f_18129:support_2escm"),(void*)f_18129},
25751 {C_text("f_18140:support_2escm"),(void*)f_18140},
25752 {C_text("f_18144:support_2escm"),(void*)f_18144},
25753 {C_text("f_18147:support_2escm"),(void*)f_18147},
25754 {C_text("f_18152:support_2escm"),(void*)f_18152},
25755 {C_text("f_18158:support_2escm"),(void*)f_18158},
25756 {C_text("f_18165:support_2escm"),(void*)f_18165},
25757 {C_text("f_18168:support_2escm"),(void*)f_18168},
25758 {C_text("f_18171:support_2escm"),(void*)f_18171},
25759 {C_text("f_18174:support_2escm"),(void*)f_18174},
25760 {C_text("f_5348:support_2escm"),(void*)f_5348},
25761 {C_text("f_5351:support_2escm"),(void*)f_5351},
25762 {C_text("f_5354:support_2escm"),(void*)f_5354},
25763 {C_text("f_5357:support_2escm"),(void*)f_5357},
25764 {C_text("f_5360:support_2escm"),(void*)f_5360},
25765 {C_text("f_5363:support_2escm"),(void*)f_5363},
25766 {C_text("f_5366:support_2escm"),(void*)f_5366},
25767 {C_text("f_5369:support_2escm"),(void*)f_5369},
25768 {C_text("f_5372:support_2escm"),(void*)f_5372},
25769 {C_text("f_5482:support_2escm"),(void*)f_5482},
25770 {C_text("f_5500:support_2escm"),(void*)f_5500},
25771 {C_text("f_5540:support_2escm"),(void*)f_5540},
25772 {C_text("f_5554:support_2escm"),(void*)f_5554},
25773 {C_text("f_5743:support_2escm"),(void*)f_5743},
25774 {C_text("f_5749:support_2escm"),(void*)f_5749},
25775 {C_text("f_5771:support_2escm"),(void*)f_5771},
25776 {C_text("f_5777:support_2escm"),(void*)f_5777},
25777 {C_text("f_5783:support_2escm"),(void*)f_5783},
25778 {C_text("f_5793:support_2escm"),(void*)f_5793},
25779 {C_text("f_5807:support_2escm"),(void*)f_5807},
25780 {C_text("f_5813:support_2escm"),(void*)f_5813},
25781 {C_text("f_5827:support_2escm"),(void*)f_5827},
25782 {C_text("f_6036:support_2escm"),(void*)f_6036},
25783 {C_text("f_6044:support_2escm"),(void*)f_6044},
25784 {C_text("f_6052:support_2escm"),(void*)f_6052},
25785 {C_text("f_6070:support_2escm"),(void*)f_6070},
25786 {C_text("f_6109:support_2escm"),(void*)f_6109},
25787 {C_text("f_6143:support_2escm"),(void*)f_6143},
25788 {C_text("f_6149:support_2escm"),(void*)f_6149},
25789 {C_text("f_6202:support_2escm"),(void*)f_6202},
25790 {C_text("f_6208:support_2escm"),(void*)f_6208},
25791 {C_text("f_6391:support_2escm"),(void*)f_6391},
25792 {C_text("f_6409:support_2escm"),(void*)f_6409},
25793 {C_text("f_6504:support_2escm"),(void*)f_6504},
25794 {C_text("f_6517:support_2escm"),(void*)f_6517},
25795 {C_text("f_6655:support_2escm"),(void*)f_6655},
25796 {C_text("f_6659:support_2escm"),(void*)f_6659},
25797 {C_text("f_6673:support_2escm"),(void*)f_6673},
25798 {C_text("f_6684:support_2escm"),(void*)f_6684},
25799 {C_text("f_6687:support_2escm"),(void*)f_6687},
25800 {C_text("f_6702:support_2escm"),(void*)f_6702},
25801 {C_text("f_6708:support_2escm"),(void*)f_6708},
25802 {C_text("f_6711:support_2escm"),(void*)f_6711},
25803 {C_text("f_6717:support_2escm"),(void*)f_6717},
25804 {C_text("f_6721:support_2escm"),(void*)f_6721},
25805 {C_text("f_6724:support_2escm"),(void*)f_6724},
25806 {C_text("f_6733:support_2escm"),(void*)f_6733},
25807 {C_text("f_6741:support_2escm"),(void*)f_6741},
25808 {C_text("f_6748:support_2escm"),(void*)f_6748},
25809 {C_text("f_6753:support_2escm"),(void*)f_6753},
25810 {C_text("f_6763:support_2escm"),(void*)f_6763},
25811 {C_text("f_6776:support_2escm"),(void*)f_6776},
25812 {C_text("f_6783:support_2escm"),(void*)f_6783},
25813 {C_text("f_6786:support_2escm"),(void*)f_6786},
25814 {C_text("f_6795:support_2escm"),(void*)f_6795},
25815 {C_text("f_6798:support_2escm"),(void*)f_6798},
25816 {C_text("f_6801:support_2escm"),(void*)f_6801},
25817 {C_text("f_6804:support_2escm"),(void*)f_6804},
25818 {C_text("f_6807:support_2escm"),(void*)f_6807},
25819 {C_text("f_6810:support_2escm"),(void*)f_6810},
25820 {C_text("f_6816:support_2escm"),(void*)f_6816},
25821 {C_text("f_6819:support_2escm"),(void*)f_6819},
25822 {C_text("f_6826:support_2escm"),(void*)f_6826},
25823 {C_text("f_6828:support_2escm"),(void*)f_6828},
25824 {C_text("f_6831:support_2escm"),(void*)f_6831},
25825 {C_text("f_6833:support_2escm"),(void*)f_6833},
25826 {C_text("f_6840:support_2escm"),(void*)f_6840},
25827 {C_text("f_6843:support_2escm"),(void*)f_6843},
25828 {C_text("f_6846:support_2escm"),(void*)f_6846},
25829 {C_text("f_6860:support_2escm"),(void*)f_6860},
25830 {C_text("f_6865:support_2escm"),(void*)f_6865},
25831 {C_text("f_6875:support_2escm"),(void*)f_6875},
25832 {C_text("f_6892:support_2escm"),(void*)f_6892},
25833 {C_text("f_6895:support_2escm"),(void*)f_6895},
25834 {C_text("f_6898:support_2escm"),(void*)f_6898},
25835 {C_text("f_6901:support_2escm"),(void*)f_6901},
25836 {C_text("f_6907:support_2escm"),(void*)f_6907},
25837 {C_text("f_6916:support_2escm"),(void*)f_6916},
25838 {C_text("f_6923:support_2escm"),(void*)f_6923},
25839 {C_text("f_6925:support_2escm"),(void*)f_6925},
25840 {C_text("f_6929:support_2escm"),(void*)f_6929},
25841 {C_text("f_6932:support_2escm"),(void*)f_6932},
25842 {C_text("f_6939:support_2escm"),(void*)f_6939},
25843 {C_text("f_6941:support_2escm"),(void*)f_6941},
25844 {C_text("f_6945:support_2escm"),(void*)f_6945},
25845 {C_text("f_6948:support_2escm"),(void*)f_6948},
25846 {C_text("f_6949:support_2escm"),(void*)f_6949},
25847 {C_text("f_6959:support_2escm"),(void*)f_6959},
25848 {C_text("f_6962:support_2escm"),(void*)f_6962},
25849 {C_text("f_6967:support_2escm"),(void*)f_6967},
25850 {C_text("f_6977:support_2escm"),(void*)f_6977},
25851 {C_text("f_6994:support_2escm"),(void*)f_6994},
25852 {C_text("f_6997:support_2escm"),(void*)f_6997},
25853 {C_text("f_7000:support_2escm"),(void*)f_7000},
25854 {C_text("f_7003:support_2escm"),(void*)f_7003},
25855 {C_text("f_7006:support_2escm"),(void*)f_7006},
25856 {C_text("f_7015:support_2escm"),(void*)f_7015},
25857 {C_text("f_7018:support_2escm"),(void*)f_7018},
25858 {C_text("f_7021:support_2escm"),(void*)f_7021},
25859 {C_text("f_7038:support_2escm"),(void*)f_7038},
25860 {C_text("f_7092:support_2escm"),(void*)f_7092},
25861 {C_text("f_7098:support_2escm"),(void*)f_7098},
25862 {C_text("f_7133:support_2escm"),(void*)f_7133},
25863 {C_text("f_7139:support_2escm"),(void*)f_7139},
25864 {C_text("f_7161:support_2escm"),(void*)f_7161},
25865 {C_text("f_7170:support_2escm"),(void*)f_7170},
25866 {C_text("f_7182:support_2escm"),(void*)f_7182},
25867 {C_text("f_7186:support_2escm"),(void*)f_7186},
25868 {C_text("f_7188:support_2escm"),(void*)f_7188},
25869 {C_text("f_7210:support_2escm"),(void*)f_7210},
25870 {C_text("f_7217:support_2escm"),(void*)f_7217},
25871 {C_text("f_7221:support_2escm"),(void*)f_7221},
25872 {C_text("f_7225:support_2escm"),(void*)f_7225},
25873 {C_text("f_7231:support_2escm"),(void*)f_7231},
25874 {C_text("f_7253:support_2escm"),(void*)f_7253},
25875 {C_text("f_7269:support_2escm"),(void*)f_7269},
25876 {C_text("f_7273:support_2escm"),(void*)f_7273},
25877 {C_text("f_7294:support_2escm"),(void*)f_7294},
25878 {C_text("f_7317:support_2escm"),(void*)f_7317},
25879 {C_text("f_7319:support_2escm"),(void*)f_7319},
25880 {C_text("f_7326:support_2escm"),(void*)f_7326},
25881 {C_text("f_7333:support_2escm"),(void*)f_7333},
25882 {C_text("f_7346:support_2escm"),(void*)f_7346},
25883 {C_text("f_7377:support_2escm"),(void*)f_7377},
25884 {C_text("f_7389:support_2escm"),(void*)f_7389},
25885 {C_text("f_7403:support_2escm"),(void*)f_7403},
25886 {C_text("f_7405:support_2escm"),(void*)f_7405},
25887 {C_text("f_7431:support_2escm"),(void*)f_7431},
25888 {C_text("f_7445:support_2escm"),(void*)f_7445},
25889 {C_text("f_7451:support_2escm"),(void*)f_7451},
25890 {C_text("f_7466:support_2escm"),(void*)f_7466},
25891 {C_text("f_7482:support_2escm"),(void*)f_7482},
25892 {C_text("f_7490:support_2escm"),(void*)f_7490},
25893 {C_text("f_7494:support_2escm"),(void*)f_7494},
25894 {C_text("f_7496:support_2escm"),(void*)f_7496},
25895 {C_text("f_7507:support_2escm"),(void*)f_7507},
25896 {C_text("f_7509:support_2escm"),(void*)f_7509},
25897 {C_text("f_7526:support_2escm"),(void*)f_7526},
25898 {C_text("f_7540:support_2escm"),(void*)f_7540},
25899 {C_text("f_7574:support_2escm"),(void*)f_7574},
25900 {C_text("f_7586:support_2escm"),(void*)f_7586},
25901 {C_text("f_7602:support_2escm"),(void*)f_7602},
25902 {C_text("f_7632:support_2escm"),(void*)f_7632},
25903 {C_text("f_7636:support_2escm"),(void*)f_7636},
25904 {C_text("f_7676:support_2escm"),(void*)f_7676},
25905 {C_text("f_7678:support_2escm"),(void*)f_7678},
25906 {C_text("f_7694:support_2escm"),(void*)f_7694},
25907 {C_text("f_7700:support_2escm"),(void*)f_7700},
25908 {C_text("f_7715:support_2escm"),(void*)f_7715},
25909 {C_text("f_7732:support_2escm"),(void*)f_7732},
25910 {C_text("f_7734:support_2escm"),(void*)f_7734},
25911 {C_text("f_7740:support_2escm"),(void*)f_7740},
25912 {C_text("f_7764:support_2escm"),(void*)f_7764},
25913 {C_text("f_7780:support_2escm"),(void*)f_7780},
25914 {C_text("f_7790:support_2escm"),(void*)f_7790},
25915 {C_text("f_7795:support_2escm"),(void*)f_7795},
25916 {C_text("f_7809:support_2escm"),(void*)f_7809},
25917 {C_text("f_7812:support_2escm"),(void*)f_7812},
25918 {C_text("f_7813:support_2escm"),(void*)f_7813},
25919 {C_text("f_7817:support_2escm"),(void*)f_7817},
25920 {C_text("f_7822:support_2escm"),(void*)f_7822},
25921 {C_text("f_7828:support_2escm"),(void*)f_7828},
25922 {C_text("f_7834:support_2escm"),(void*)f_7834},
25923 {C_text("f_7842:support_2escm"),(void*)f_7842},
25924 {C_text("f_7845:support_2escm"),(void*)f_7845},
25925 {C_text("f_7853:support_2escm"),(void*)f_7853},
25926 {C_text("f_7855:support_2escm"),(void*)f_7855},
25927 {C_text("f_7859:support_2escm"),(void*)f_7859},
25928 {C_text("f_7881:support_2escm"),(void*)f_7881},
25929 {C_text("f_7887:support_2escm"),(void*)f_7887},
25930 {C_text("f_7891:support_2escm"),(void*)f_7891},
25931 {C_text("f_7904:support_2escm"),(void*)f_7904},
25932 {C_text("f_7912:support_2escm"),(void*)f_7912},
25933 {C_text("f_7918:support_2escm"),(void*)f_7918},
25934 {C_text("f_7929:support_2escm"),(void*)f_7929},
25935 {C_text("f_7931:support_2escm"),(void*)f_7931},
25936 {C_text("f_7934:support_2escm"),(void*)f_7934},
25937 {C_text("f_7940:support_2escm"),(void*)f_7940},
25938 {C_text("f_7979:support_2escm"),(void*)f_7979},
25939 {C_text("f_7984:support_2escm"),(void*)f_7984},
25940 {C_text("f_7988:support_2escm"),(void*)f_7988},
25941 {C_text("f_7992:support_2escm"),(void*)f_7992},
25942 {C_text("f_8043:support_2escm"),(void*)f_8043},
25943 {C_text("f_8080:support_2escm"),(void*)f_8080},
25944 {C_text("f_8082:support_2escm"),(void*)f_8082},
25945 {C_text("f_8132:support_2escm"),(void*)f_8132},
25946 {C_text("f_8136:support_2escm"),(void*)f_8136},
25947 {C_text("f_8150:support_2escm"),(void*)f_8150},
25948 {C_text("f_8154:support_2escm"),(void*)f_8154},
25949 {C_text("f_8162:support_2escm"),(void*)f_8162},
25950 {C_text("f_8168:support_2escm"),(void*)f_8168},
25951 {C_text("f_8172:support_2escm"),(void*)f_8172},
25952 {C_text("f_8214:support_2escm"),(void*)f_8214},
25953 {C_text("f_8218:support_2escm"),(void*)f_8218},
25954 {C_text("f_8266:support_2escm"),(void*)f_8266},
25955 {C_text("f_8270:support_2escm"),(void*)f_8270},
25956 {C_text("f_8275:support_2escm"),(void*)f_8275},
25957 {C_text("f_8285:support_2escm"),(void*)f_8285},
25958 {C_text("f_8292:support_2escm"),(void*)f_8292},
25959 {C_text("f_8299:support_2escm"),(void*)f_8299},
25960 {C_text("f_8326:support_2escm"),(void*)f_8326},
25961 {C_text("f_8332:support_2escm"),(void*)f_8332},
25962 {C_text("f_8342:support_2escm"),(void*)f_8342},
25963 {C_text("f_8345:support_2escm"),(void*)f_8345},
25964 {C_text("f_8348:support_2escm"),(void*)f_8348},
25965 {C_text("f_8361:support_2escm"),(void*)f_8361},
25966 {C_text("f_8363:support_2escm"),(void*)f_8363},
25967 {C_text("f_8398:support_2escm"),(void*)f_8398},
25968 {C_text("f_8404:support_2escm"),(void*)f_8404},
25969 {C_text("f_8410:support_2escm"),(void*)f_8410},
25970 {C_text("f_8419:support_2escm"),(void*)f_8419},
25971 {C_text("f_8428:support_2escm"),(void*)f_8428},
25972 {C_text("f_8437:support_2escm"),(void*)f_8437},
25973 {C_text("f_8446:support_2escm"),(void*)f_8446},
25974 {C_text("f_8455:support_2escm"),(void*)f_8455},
25975 {C_text("f_8465:support_2escm"),(void*)f_8465},
25976 {C_text("f_8467:support_2escm"),(void*)f_8467},
25977 {C_text("f_8473:support_2escm"),(void*)f_8473},
25978 {C_text("f_8488:support_2escm"),(void*)f_8488},
25979 {C_text("f_8503:support_2escm"),(void*)f_8503},
25980 {C_text("f_8506:support_2escm"),(void*)f_8506},
25981 {C_text("f_8573:support_2escm"),(void*)f_8573},
25982 {C_text("f_8575:support_2escm"),(void*)f_8575},
25983 {C_text("f_8600:support_2escm"),(void*)f_8600},
25984 {C_text("f_8623:support_2escm"),(void*)f_8623},
25985 {C_text("f_8626:support_2escm"),(void*)f_8626},
25986 {C_text("f_8629:support_2escm"),(void*)f_8629},
25987 {C_text("f_8636:support_2escm"),(void*)f_8636},
25988 {C_text("f_8683:support_2escm"),(void*)f_8683},
25989 {C_text("f_8687:support_2escm"),(void*)f_8687},
25990 {C_text("f_8692:support_2escm"),(void*)f_8692},
25991 {C_text("f_8709:support_2escm"),(void*)f_8709},
25992 {C_text("f_8717:support_2escm"),(void*)f_8717},
25993 {C_text("f_8719:support_2escm"),(void*)f_8719},
25994 {C_text("f_8744:support_2escm"),(void*)f_8744},
25995 {C_text("f_8780:support_2escm"),(void*)f_8780},
25996 {C_text("f_8814:support_2escm"),(void*)f_8814},
25997 {C_text("f_8845:support_2escm"),(void*)f_8845},
25998 {C_text("f_8868:support_2escm"),(void*)f_8868},
25999 {C_text("f_8889:support_2escm"),(void*)f_8889},
26000 {C_text("f_8911:support_2escm"),(void*)f_8911},
26001 {C_text("f_8919:support_2escm"),(void*)f_8919},
26002 {C_text("f_8923:support_2escm"),(void*)f_8923},
26003 {C_text("f_8931:support_2escm"),(void*)f_8931},
26004 {C_text("f_8952:support_2escm"),(void*)f_8952},
26005 {C_text("f_8956:support_2escm"),(void*)f_8956},
26006 {C_text("f_8968:support_2escm"),(void*)f_8968},
26007 {C_text("f_8995:support_2escm"),(void*)f_8995},
26008 {C_text("f_9007:support_2escm"),(void*)f_9007},
26009 {C_text("f_9009:support_2escm"),(void*)f_9009},
26010 {C_text("f_9034:support_2escm"),(void*)f_9034},
26011 {C_text("f_9068:support_2escm"),(void*)f_9068},
26012 {C_text("f_9094:support_2escm"),(void*)f_9094},
26013 {C_text("f_9096:support_2escm"),(void*)f_9096},
26014 {C_text("f_9121:support_2escm"),(void*)f_9121},
26015 {C_text("f_9205:support_2escm"),(void*)f_9205},
26016 {C_text("f_9207:support_2escm"),(void*)f_9207},
26017 {C_text("f_9232:support_2escm"),(void*)f_9232},
26018 {C_text("f_9272:support_2escm"),(void*)f_9272},
26019 {C_text("f_9313:support_2escm"),(void*)f_9313},
26020 {C_text("f_9342:support_2escm"),(void*)f_9342},
26021 {C_text("f_9344:support_2escm"),(void*)f_9344},
26022 {C_text("f_9369:support_2escm"),(void*)f_9369},
26023 {C_text("f_9405:support_2escm"),(void*)f_9405},
26024 {C_text("f_9407:support_2escm"),(void*)f_9407},
26025 {C_text("f_9432:support_2escm"),(void*)f_9432},
26026 {C_text("f_9444:support_2escm"),(void*)f_9444},
26027 {C_text("f_9450:support_2escm"),(void*)f_9450},
26028 {C_text("f_9473:support_2escm"),(void*)f_9473},
26029 {C_text("f_9475:support_2escm"),(void*)f_9475},
26030 {C_text("f_9500:support_2escm"),(void*)f_9500},
26031 {C_text("f_9511:support_2escm"),(void*)f_9511},
26032 {C_text("f_9515:support_2escm"),(void*)f_9515},
26033 {C_text("f_9518:support_2escm"),(void*)f_9518},
26034 {C_text("f_9525:support_2escm"),(void*)f_9525},
26035 {C_text("f_9539:support_2escm"),(void*)f_9539},
26036 {C_text("f_9645:support_2escm"),(void*)f_9645},
26037 {C_text("f_9647:support_2escm"),(void*)f_9647},
26038 {C_text("f_9672:support_2escm"),(void*)f_9672},
26039 {C_text("f_9690:support_2escm"),(void*)f_9690},
26040 {C_text("f_9693:support_2escm"),(void*)f_9693},
26041 {C_text("f_9699:support_2escm"),(void*)f_9699},
26042 {C_text("f_9705:support_2escm"),(void*)f_9705},
26043 {C_text("f_9739:support_2escm"),(void*)f_9739},
26044 {C_text("f_9752:support_2escm"),(void*)f_9752},
26045 {C_text("f_9754:support_2escm"),(void*)f_9754},
26046 {C_text("f_9779:support_2escm"),(void*)f_9779},
26047 {C_text("f_9809:support_2escm"),(void*)f_9809},
26048 {C_text("f_9811:support_2escm"),(void*)f_9811},
26049 {C_text("f_9836:support_2escm"),(void*)f_9836},
26050 {C_text("f_9909:support_2escm"),(void*)f_9909},
26051 {C_text("f_9912:support_2escm"),(void*)f_9912},
26052 {C_text("f_9921:support_2escm"),(void*)f_9921},
26053 {C_text("f_9925:support_2escm"),(void*)f_9925},
26054 {C_text("f_9929:support_2escm"),(void*)f_9929},
26055 {C_text("f_9931:support_2escm"),(void*)f_9931},
26056 {C_text("f_9979:support_2escm"),(void*)f_9979},
26057 {C_text("toplevel:support_2escm"),(void*)C_support_toplevel},
26058 {NULL,NULL}};
26059 #endif
26060 
create_ptable(void)26061 static C_PTABLE_ENTRY *create_ptable(void){
26062 #ifdef C_ENABLE_PTABLES
26063 return ptable;
26064 #else
26065 return NULL;
26066 #endif
26067 }
26068 
26069 /*
26070 o|hiding unexported module binding: chicken.compiler.support#partition
26071 o|hiding unexported module binding: chicken.compiler.support#span
26072 o|hiding unexported module binding: chicken.compiler.support#take
26073 o|hiding unexported module binding: chicken.compiler.support#drop
26074 o|hiding unexported module binding: chicken.compiler.support#split-at
26075 o|hiding unexported module binding: chicken.compiler.support#append-map
26076 o|hiding unexported module binding: chicken.compiler.support#every
26077 o|hiding unexported module binding: chicken.compiler.support#any
26078 o|hiding unexported module binding: chicken.compiler.support#cons*
26079 o|hiding unexported module binding: chicken.compiler.support#concatenate
26080 o|hiding unexported module binding: chicken.compiler.support#delete
26081 o|hiding unexported module binding: chicken.compiler.support#first
26082 o|hiding unexported module binding: chicken.compiler.support#second
26083 o|hiding unexported module binding: chicken.compiler.support#third
26084 o|hiding unexported module binding: chicken.compiler.support#fourth
26085 o|hiding unexported module binding: chicken.compiler.support#fifth
26086 o|hiding unexported module binding: chicken.compiler.support#delete-duplicates
26087 o|hiding unexported module binding: chicken.compiler.support#alist-cons
26088 o|hiding unexported module binding: chicken.compiler.support#filter
26089 o|hiding unexported module binding: chicken.compiler.support#filter-map
26090 o|hiding unexported module binding: chicken.compiler.support#remove
26091 o|hiding unexported module binding: chicken.compiler.support#unzip1
26092 o|hiding unexported module binding: chicken.compiler.support#last
26093 o|hiding unexported module binding: chicken.compiler.support#list-index
26094 o|hiding unexported module binding: chicken.compiler.support#lset-adjoin/eq?
26095 o|hiding unexported module binding: chicken.compiler.support#lset-difference/eq?
26096 o|hiding unexported module binding: chicken.compiler.support#lset-union/eq?
26097 o|hiding unexported module binding: chicken.compiler.support#lset-intersection/eq?
26098 o|hiding unexported module binding: chicken.compiler.support#list-tabulate
26099 o|hiding unexported module binding: chicken.compiler.support#lset<=/eq?
26100 o|hiding unexported module binding: chicken.compiler.support#lset=/eq?
26101 o|hiding unexported module binding: chicken.compiler.support#length+
26102 o|hiding unexported module binding: chicken.compiler.support#find
26103 o|hiding unexported module binding: chicken.compiler.support#find-tail
26104 o|hiding unexported module binding: chicken.compiler.support#iota
26105 o|hiding unexported module binding: chicken.compiler.support#make-list
26106 o|hiding unexported module binding: chicken.compiler.support#posq
26107 o|hiding unexported module binding: chicken.compiler.support#posv
26108 o|hiding unexported module binding: chicken.compiler.support#constant678
26109 o|hiding unexported module binding: chicken.compiler.support#+logged-debugging-modes+
26110 o|hiding unexported module binding: chicken.compiler.support#test-debugging-mode
26111 o|hiding unexported module binding: chicken.compiler.support#map-llist
26112 o|hiding unexported module binding: chicken.compiler.support#follow-without-loop
26113 o|hiding unexported module binding: chicken.compiler.support#sort-symbols
26114 o|hiding unexported module binding: chicken.compiler.support#profile-info-vector-name
26115 o|hiding unexported module binding: chicken.compiler.support#profile-lambda-list
26116 o|hiding unexported module binding: chicken.compiler.support#profile-lambda-index
26117 o|hiding unexported module binding: chicken.compiler.support#node
26118 o|hiding unexported module binding: chicken.compiler.support#copy-node-tree-and-rename
26119 o|hiding unexported module binding: chicken.compiler.support#replace-rest-ops-in-known-call!
26120 o|hiding unexported module binding: chicken.compiler.support#node->sexpr
26121 o|hiding unexported module binding: chicken.compiler.support#sexpr->node
26122 o|hiding unexported module binding: chicken.compiler.support#foreign-callback-stub
26123 o|hiding unexported module binding: chicken.compiler.support#foreign-type-table
26124 o|hiding unexported module binding: chicken.compiler.support#foreign-type-result-converter
26125 o|hiding unexported module binding: chicken.compiler.support#foreign-type-argument-converter
26126 o|hiding unexported module binding: chicken.compiler.support#block-variable-literal
26127 o|hiding unexported module binding: chicken.compiler.support#real-name-table
26128 o|hiding unexported module binding: chicken.compiler.support#real-name-max-depth
26129 o|hiding unexported module binding: chicken.compiler.support#encodeable-literal?
26130 o|hiding unexported module binding: chicken.compiler.support#scan-sharp-greater-string
26131 o|hiding unexported module binding: chicken.compiler.support#unhide-variable
26132 S|applied compiler syntax:
26133 S|  chicken.format#sprintf		4
26134 S|  chicken.format#fprintf		5
26135 S|  chicken.format#printf		6
26136 S|  scheme#for-each		12
26137 S|  chicken.base#foldl		3
26138 S|  scheme#map		34
26139 S|  chicken.base#foldr		3
26140 o|eliminated procedure checks: 452
26141 o|specializations:
26142 o|  1 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
26143 o|  1 (scheme#+ fixnum fixnum)
26144 o|  1 (scheme#number->string * *)
26145 o|  1 (chicken.base#exact-integer? *)
26146 o|  2 (chicken.bitwise#integer-length *)
26147 o|  1 (scheme#length list)
26148 o|  1 (scheme#- fixnum fixnum)
26149 o|  1 (scheme#> integer integer)
26150 o|  1 (chicken.base#sub1 fixnum)
26151 o|  4 (scheme#= fixnum fixnum)
26152 o|  2 (scheme#assq * (list-of pair))
26153 o|  1 (scheme#* fixnum fixnum)
26154 o|  1 (scheme#positive? *)
26155 o|  4 (scheme#cddr (pair * pair))
26156 o|  1 (scheme#caddr (pair * (pair * pair)))
26157 o|  1 (scheme#integer? *)
26158 o|  338 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
26159 o|  2 (##sys#call-with-values (procedure () *) *)
26160 o|  5 (chicken.base#add1 *)
26161 o|  1 (scheme#cadr (pair * pair))
26162 o|  2 (scheme#current-input-port)
26163 o|  4 (scheme#char=? char char)
26164 o|  1 (scheme#number->string fixnum fixnum)
26165 o|  3 (scheme#memq * list)
26166 o|  1 (scheme#>= fixnum fixnum)
26167 o|  3 (scheme#< fixnum fixnum)
26168 o|  3 (chicken.base#sub1 *)
26169 o|  4 (scheme#zero? *)
26170 o|  2 (chicken.base#current-error-port)
26171 o|  15 (##sys#check-output-port * * *)
26172 o|  1 (scheme#eqv? * *)
26173 o|  9 (##sys#check-list (or pair list) *)
26174 o|  55 (scheme#cdr pair)
26175 o|  34 (scheme#car pair)
26176 (o e)|safe calls: 1902
26177 (o e)|assignments to immediate values: 5
26178 o|safe globals: (chicken.compiler.support#bomb chicken.compiler.support#debugging-chicken chicken.compiler.support#compiler-cleanup-hook chicken.compiler.support#unsafe chicken.compiler.support#number-type chicken.compiler.support#constant678 chicken.compiler.support#posv chicken.compiler.support#posq chicken.compiler.support#make-list chicken.compiler.support#iota chicken.compiler.support#find-tail chicken.compiler.support#find chicken.compiler.support#length+ chicken.compiler.support#lset=/eq? chicken.compiler.support#lset<=/eq? chicken.compiler.support#list-tabulate chicken.compiler.support#lset-intersection/eq? chicken.compiler.support#lset-union/eq? chicken.compiler.support#lset-difference/eq? chicken.compiler.support#lset-adjoin/eq? chicken.compiler.support#list-index chicken.compiler.support#last chicken.compiler.support#unzip1 chicken.compiler.support#remove chicken.compiler.support#filter-map chicken.compiler.support#filter chicken.compiler.support#alist-cons chicken.compiler.support#delete-duplicates chicken.compiler.support#fifth chicken.compiler.support#fourth chicken.compiler.support#third chicken.compiler.support#second chicken.compiler.support#first chicken.compiler.support#delete chicken.compiler.support#concatenate chicken.compiler.support#cons* chicken.compiler.support#any chicken.compiler.support#every chicken.compiler.support#append-map chicken.compiler.support#split-at chicken.compiler.support#drop chicken.compiler.support#take chicken.compiler.support#span chicken.compiler.support#partition)
26179 o|removed side-effect free assignment to unused variable: chicken.compiler.support#partition
26180 o|removed side-effect free assignment to unused variable: chicken.compiler.support#span
26181 o|inlining procedure: k5484
26182 o|inlining procedure: k5484
26183 o|removed side-effect free assignment to unused variable: chicken.compiler.support#drop
26184 o|removed side-effect free assignment to unused variable: chicken.compiler.support#append-map
26185 o|inlining procedure: k5754
26186 o|inlining procedure: k5754
26187 o|inlining procedure: k5785
26188 o|inlining procedure: k5785
26189 o|merged explicitly consed rest parameter: xs339
26190 o|inlining procedure: k5815
26191 o|inlining procedure: k5815
26192 o|removed side-effect free assignment to unused variable: chicken.compiler.support#concatenate
26193 o|removed side-effect free assignment to unused variable: chicken.compiler.support#delete-duplicates
26194 o|inlining procedure: k6002
26195 o|inlining procedure: k6002
26196 o|inlining procedure: k5994
26197 o|inlining procedure: k5994
26198 o|removed side-effect free assignment to unused variable: chicken.compiler.support#remove
26199 o|inlining procedure: k6151
26200 o|inlining procedure: k6151
26201 o|removed side-effect free assignment to unused variable: chicken.compiler.support#list-index
26202 o|merged explicitly consed rest parameter: vals479
26203 o|inlining procedure: k6210
26204 o|inlining procedure: k6210
26205 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-difference/eq?
26206 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-union/eq?
26207 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset-intersection/eq?
26208 o|inlining procedure: k6393
26209 o|inlining procedure: k6393
26210 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset<=/eq?
26211 o|removed side-effect free assignment to unused variable: chicken.compiler.support#lset=/eq?
26212 o|removed side-effect free assignment to unused variable: chicken.compiler.support#length+
26213 o|removed side-effect free assignment to unused variable: chicken.compiler.support#find-tail
26214 o|removed side-effect free assignment to unused variable: chicken.compiler.support#iota
26215 o|removed side-effect free assignment to unused variable: chicken.compiler.support#make-list
26216 o|removed side-effect free assignment to unused variable: chicken.compiler.support#posq
26217 o|removed side-effect free assignment to unused variable: chicken.compiler.support#posv
26218 o|inlining procedure: k6661
26219 o|inlining procedure: k6661
26220 o|inlining procedure: k6689
26221 o|inlining procedure: k6689
26222 o|inlining procedure: k6722
26223 o|inlining procedure: k6755
26224 o|contracted procedure: "(support.scm:137) g705712"
26225 o|propagated global variable: out715718 ##sys#standard-output
26226 o|substituted constant variable: a6737
26227 o|substituted constant variable: a6738
26228 o|inlining procedure: k6755
26229 o|inlining procedure: k6722
26230 o|propagated global variable: out730733 chicken.compiler.support#collected-debugging-output
26231 o|substituted constant variable: a6779
26232 o|substituted constant variable: a6780
26233 o|propagated global variable: out730733 chicken.compiler.support#collected-debugging-output
26234 o|inlining procedure: k6790
26235 o|inlining procedure: k6790
26236 o|propagated global variable: out766769 chicken.compiler.support#collected-debugging-output
26237 o|substituted constant variable: a6836
26238 o|substituted constant variable: a6837
26239 o|inlining procedure: k6851
26240 o|inlining procedure: k6851
26241 o|inlining procedure: k6867
26242 o|inlining procedure: k6867
26243 o|inlining procedure: k6887
26244 o|inlining procedure: k6887
26245 o|inlining procedure: k6969
26246 o|inlining procedure: k6969
26247 o|substituted constant variable: a6990
26248 o|substituted constant variable: a6991
26249 o|substituted constant variable: a7011
26250 o|substituted constant variable: a7012
26251 o|contracted procedure: "(support.scm:198) thread-id846"
26252 o|propagated global variable: t847 ##sys#current-thread
26253 o|removed side-effect free assignment to unused variable: chicken.compiler.support#map-llist
26254 o|inlining procedure: k7100
26255 o|inlining procedure: k7100
26256 o|inlining procedure: k7115
26257 o|inlining procedure: k7115
26258 o|inlining procedure: k7141
26259 o|inlining procedure: k7141
26260 o|inlining procedure: k7190
26261 o|inlining procedure: k7190
26262 o|substituted constant variable: a7233
26263 o|inlining procedure: k7237
26264 o|inlining procedure: k7237
26265 o|substituted constant variable: a7244
26266 o|substituted constant variable: a7246
26267 o|inlining procedure: k7259
26268 o|inlining procedure: k7259
26269 o|substituted constant variable: a7263
26270 o|substituted constant variable: a7265
26271 o|substituted constant variable: a7267
26272 o|inlining procedure: k7274
26273 o|inlining procedure: k7299
26274 o|inlining procedure: k7299
26275 o|substituted constant variable: a7308
26276 o|substituted constant variable: a7312
26277 o|inlining procedure: k7274
26278 o|inlining procedure: k7335
26279 o|propagated global variable: r733618258 ##sys#standard-input
26280 o|inlining procedure: k7335
26281 o|inlining procedure: k7350
26282 o|inlining procedure: k7350
26283 o|inlining procedure: k7379
26284 o|inlining procedure: k7379
26285 o|inlining procedure: k7391
26286 o|inlining procedure: k7391
26287 o|inlining procedure: k7411
26288 o|inlining procedure: k7411
26289 o|inlining procedure: k7453
26290 o|inlining procedure: k7453
26291 o|inlining procedure: k7511
26292 o|inlining procedure: k7511
26293 o|inlining procedure: k7545
26294 o|inlining procedure: k7545
26295 o|inlining procedure: k7557
26296 o|inlining procedure: k7557
26297 o|inlining procedure: k7569
26298 o|inlining procedure: k7569
26299 o|inlining procedure: k7581
26300 o|inlining procedure: k7581
26301 o|inlining procedure: k7590
26302 o|inlining procedure: k7590
26303 o|inlining procedure: k7607
26304 o|inlining procedure: k7607
26305 o|inlining procedure: k7619
26306 o|inlining procedure: k7619
26307 o|inlining procedure: k7637
26308 o|inlining procedure: k7637
26309 o|inlining procedure: k7649
26310 o|inlining procedure: k7649
26311 o|inlining procedure: k7661
26312 o|inlining procedure: k7661
26313 o|inlining procedure: k7683
26314 o|inlining procedure: k7683
26315 o|inlining procedure: k7695
26316 o|inlining procedure: k7695
26317 o|inlining procedure: k7704
26318 o|inlining procedure: k7704
26319 o|inlining procedure: k7742
26320 o|inlining procedure: k7742
26321 o|inlining procedure: k7755
26322 o|inlining procedure: k7755
26323 o|inlining procedure: k7796
26324 o|inlining procedure: k7796
26325 o|inlining procedure: k7840
26326 o|inlining procedure: k7840
26327 o|inlining procedure: k7860
26328 o|inlining procedure: k7860
26329 o|inlining procedure: k7892
26330 o|inlining procedure: k7892
26331 o|merged explicitly consed rest parameter: args10841102
26332 o|consed rest parameter at call site: tmp24966 1
26333 o|inlining procedure: k7942
26334 o|inlining procedure: k7942
26335 o|inlining procedure: k7957
26336 o|inlining procedure: k7957
26337 o|inlining procedure: k8084
26338 o|contracted procedure: "(support.scm:403) g11471156"
26339 o|inlining procedure: k8084
26340 o|propagated global variable: g11531157 chicken.compiler.support#profile-lambda-list
26341 o|inlining procedure: k8137
26342 o|inlining procedure: k8137
26343 o|inlining procedure: k8155
26344 o|contracted procedure: "(support.scm:421) chicken.compiler.support#filter-map"
26345 o|inlining procedure: k6049
26346 o|inlining procedure: k6049
26347 o|inlining procedure: k6038
26348 o|inlining procedure: k6038
26349 o|inlining procedure: k8155
26350 o|inlining procedure: k8173
26351 o|inlining procedure: k8185
26352 o|inlining procedure: k8185
26353 o|inlining procedure: k8173
26354 o|inlining procedure: k8219
26355 o|inlining procedure: k8219
26356 o|inlining procedure: k8271
26357 o|inlining procedure: k8271
26358 o|inlining procedure: k8296
26359 o|inlining procedure: k8296
26360 o|propagated global variable: out12301233 ##sys#standard-output
26361 o|substituted constant variable: a8338
26362 o|substituted constant variable: a8339
26363 o|inlining procedure: k8334
26364 o|inlining procedure: k8365
26365 o|inlining procedure: k8365
26366 o|propagated global variable: out12301233 ##sys#standard-output
26367 o|inlining procedure: k8334
26368 o|contracted procedure: "(support.scm:482) g13261327"
26369 o|contracted procedure: "(support.scm:483) g13331334"
26370 o|inlining procedure: k8508
26371 o|inlining procedure: k8508
26372 o|inlining procedure: k8528
26373 o|inlining procedure: k8528
26374 o|inlining procedure: k8544
26375 o|contracted procedure: "(support.scm:493) g13591360"
26376 o|inlining procedure: k8577
26377 o|inlining procedure: k8577
26378 o|inlining procedure: k8544
26379 o|inlining procedure: k8621
26380 o|inlining procedure: k8621
26381 o|inlining procedure: k8640
26382 o|inlining procedure: k8640
26383 o|inlining procedure: k8651
26384 o|contracted procedure: "(support.scm:509) g13961397"
26385 o|inlining procedure: k8721
26386 o|inlining procedure: k8721
26387 o|contracted procedure: "(support.scm:510) chicken.compiler.support#unzip1"
26388 o|inlining procedure: k6111
26389 o|contracted procedure: "(mini-srfi-1.scm:143) g442451"
26390 o|inlining procedure: k6111
26391 o|inlining procedure: k8651
26392 o|contracted procedure: "(support.scm:514) g14311432"
26393 o|inlining procedure: k8789
26394 o|contracted procedure: "(support.scm:516) g14361437"
26395 o|inlining procedure: "(support.scm:518) chicken.compiler.support#fourth"
26396 o|inlining procedure: "(support.scm:517) chicken.compiler.support#third"
26397 o|inlining procedure: "(support.scm:517) chicken.compiler.support#second"
26398 o|inlining procedure: k8789
26399 o|inlining procedure: k8847
26400 o|contracted procedure: "(support.scm:523) g14491450"
26401 o|contracted procedure: "(support.scm:527) g14541455"
26402 o|inlining procedure: k8847
26403 o|contracted procedure: "(support.scm:529) g14591460"
26404 o|inlining procedure: k8973
26405 o|contracted procedure: "(support.scm:538) g14661467"
26406 o|inlining procedure: k9011
26407 o|inlining procedure: k9011
26408 o|inlining procedure: k9043
26409 o|inlining procedure: k9043
26410 o|inlining procedure: k8973
26411 o|contracted procedure: "(support.scm:543) g15041505"
26412 o|inlining procedure: k9098
26413 o|inlining procedure: k9098
26414 o|inlining procedure: k9133
26415 o|contracted procedure: "(support.scm:545) g15351536"
26416 o|inlining procedure: k9133
26417 o|contracted procedure: "(support.scm:547) g15401541"
26418 o|inlining procedure: k9173
26419 o|contracted procedure: "(support.scm:549) g15481549"
26420 o|inlining procedure: k9209
26421 o|inlining procedure: k9209
26422 o|inlining procedure: k9173
26423 o|contracted procedure: "(support.scm:554) g15801581"
26424 o|contracted procedure: "(support.scm:556) chicken.compiler.support#fifth"
26425 o|inlining procedure: "(support.scm:556) chicken.compiler.support#fourth"
26426 o|inlining procedure: "(support.scm:556) chicken.compiler.support#third"
26427 o|inlining procedure: "(support.scm:553) chicken.compiler.support#second"
26428 o|inlining procedure: k9305
26429 o|contracted procedure: "(support.scm:560) g15971598"
26430 o|inlining procedure: k9346
26431 o|inlining procedure: k9346
26432 o|inlining procedure: "(support.scm:560) chicken.compiler.support#second"
26433 o|inlining procedure: "(support.scm:560) chicken.compiler.support#first"
26434 o|inlining procedure: k9305
26435 o|contracted procedure: "(support.scm:562) g16281629"
26436 o|inlining procedure: k9409
26437 o|inlining procedure: k9409
26438 o|contracted procedure: "(support.scm:565) g16611662"
26439 o|inlining procedure: k9477
26440 o|inlining procedure: k9477
26441 o|inlining procedure: k9513
26442 o|inlining procedure: k9523
26443 o|inlining procedure: k9523
26444 o|inlining procedure: k9513
26445 o|contracted procedure: "(support.scm:567) g16701671"
26446 o|substituted constant variable: a9543
26447 o|inlining procedure: k9547
26448 o|inlining procedure: k9547
26449 o|inlining procedure: k9559
26450 o|inlining procedure: k9559
26451 o|substituted constant variable: a9566
26452 o|substituted constant variable: a9568
26453 o|substituted constant variable: a9570
26454 o|substituted constant variable: a9572
26455 o|substituted constant variable: a9574
26456 o|substituted constant variable: a9576
26457 o|substituted constant variable: a9581
26458 o|substituted constant variable: a9583
26459 o|substituted constant variable: a9585
26460 o|substituted constant variable: a9587
26461 o|inlining procedure: k9591
26462 o|inlining procedure: k9591
26463 o|substituted constant variable: a9598
26464 o|substituted constant variable: a9600
26465 o|substituted constant variable: a9602
26466 o|substituted constant variable: a9604
26467 o|substituted constant variable: a9606
26468 o|substituted constant variable: a9608
26469 o|substituted constant variable: a9613
26470 o|substituted constant variable: a9615
26471 o|substituted constant variable: a9617
26472 o|substituted constant variable: a9619
26473 o|substituted constant variable: a9624
26474 o|substituted constant variable: a9626
26475 o|contracted procedure: "(support.scm:577) g17051706"
26476 o|inlining procedure: k9649
26477 o|inlining procedure: k9649
26478 o|contracted procedure: "(support.scm:489) g13471348"
26479 o|inlining procedure: k9691
26480 o|inlining procedure: k9691
26481 o|inlining procedure: k9731
26482 o|inlining procedure: k9756
26483 o|inlining procedure: k9756
26484 o|inlining procedure: k9731
26485 o|inlining procedure: k9813
26486 o|inlining procedure: k9813
26487 o|inlining procedure: k9844
26488 o|inlining procedure: k9844
26489 o|inlining procedure: k9862
26490 o|inlining procedure: k9862
26491 o|inlining procedure: k9879
26492 o|inlining procedure: k9879
26493 o|inlining procedure: k9891
26494 o|inlining procedure: k9933
26495 o|inlining procedure: k9933
26496 o|inlining procedure: k9981
26497 o|inlining procedure: k9981
26498 o|inlining procedure: k9891
26499 o|inlining procedure: "(support.scm:605) chicken.compiler.support#third"
26500 o|inlining procedure: "(support.scm:602) chicken.compiler.support#second"
26501 o|inlining procedure: k10040
26502 o|inlining procedure: "(support.scm:608) chicken.compiler.support#first"
26503 o|inlining procedure: "(support.scm:608) chicken.compiler.support#first"
26504 o|inlining procedure: k10040
26505 o|inlining procedure: "(support.scm:610) chicken.compiler.support#first"
26506 o|inlining procedure: k10074
26507 o|inlining procedure: k10106
26508 o|inlining procedure: k10106
26509 o|inlining procedure: "(support.scm:613) chicken.compiler.support#first"
26510 o|inlining procedure: k10074
26511 o|inlining procedure: k10182
26512 o|inlining procedure: k10182
26513 o|inlining procedure: k10213
26514 o|consed rest parameter at call site: "(support.scm:623) chicken.compiler.support#cons*" 2
26515 o|inlining procedure: k10239
26516 o|inlining procedure: k10239
26517 o|inlining procedure: k10213
26518 o|inlining procedure: k10279
26519 o|inlining procedure: k10295
26520 o|inlining procedure: k10295
26521 o|inlining procedure: k10279
26522 o|consed rest parameter at call site: "(support.scm:631) chicken.compiler.support#cons*" 2
26523 o|inlining procedure: k10365
26524 o|inlining procedure: k10365
26525 o|inlining procedure: k10400
26526 o|consed rest parameter at call site: "(support.scm:633) chicken.compiler.support#cons*" 2
26527 o|inlining procedure: k10422
26528 o|inlining procedure: k10422
26529 o|inlining procedure: k10400
26530 o|inlining procedure: k10473
26531 o|inlining procedure: k10473
26532 o|substituted constant variable: a10505
26533 o|inlining procedure: k10509
26534 o|inlining procedure: k10509
26535 o|substituted constant variable: a10522
26536 o|substituted constant variable: a10524
26537 o|substituted constant variable: a10526
26538 o|substituted constant variable: a10528
26539 o|substituted constant variable: a10530
26540 o|substituted constant variable: a10532
26541 o|substituted constant variable: a10534
26542 o|substituted constant variable: a10536
26543 o|substituted constant variable: a10538
26544 o|substituted constant variable: a10540
26545 o|substituted constant variable: a10542
26546 o|substituted constant variable: a10544
26547 o|substituted constant variable: a10546
26548 o|substituted constant variable: a10548
26549 o|substituted constant variable: a10550
26550 o|substituted constant variable: a10552
26551 o|inlining procedure: k10556
26552 o|inlining procedure: k10556
26553 o|substituted constant variable: a10563
26554 o|substituted constant variable: a10565
26555 o|substituted constant variable: a10567
26556 o|contracted procedure: "(support.scm:587) g17521753"
26557 o|contracted procedure: "(support.scm:586) g17491750"
26558 o|contracted procedure: "(support.scm:585) g17461747"
26559 o|inlining procedure: k10577
26560 o|inlining procedure: k10577
26561 o|contracted procedure: "(support.scm:640) g20612062"
26562 o|inlining procedure: "(support.scm:642) chicken.compiler.support#second"
26563 o|inlining procedure: "(support.scm:642) chicken.compiler.support#first"
26564 o|contracted procedure: "(support.scm:650) chicken.compiler.support#split-at"
26565 o|inlining procedure: k5542
26566 o|inlining procedure: k5542
26567 o|inlining procedure: k10677
26568 o|inlining procedure: k10692
26569 o|contracted procedure: "(support.scm:679) g21622163"
26570 o|inlining procedure: k10721
26571 o|inlining procedure: k10721
26572 o|contracted procedure: "(support.scm:683) g21672168"
26573 o|substituted constant variable: a10743
26574 o|inlining procedure: k10692
26575 o|contracted procedure: "(support.scm:688) g21722173"
26576 o|inlining procedure: k10677
26577 o|contracted procedure: "(support.scm:692) g21782179"
26578 o|inlining procedure: k10846
26579 o|inlining procedure: k10846
26580 o|contracted procedure: "(support.scm:656) chicken.compiler.support#replace-rest-ops-in-known-call!"
26581 o|inlining procedure: k11488
26582 o|inlining procedure: "(support.scm:755) chicken.compiler.support#second"
26583 o|inlining procedure: "(support.scm:754) chicken.compiler.support#first"
26584 o|inlining procedure: k11488
26585 o|inlining procedure: k11529
26586 o|contracted procedure: "(support.scm:763) g24442445"
26587 o|inlining procedure: "(support.scm:759) chicken.compiler.support#second"
26588 o|inlining procedure: k11529
26589 o|inlining procedure: "(support.scm:758) chicken.compiler.support#first"
26590 o|inlining procedure: k11594
26591 o|inlining procedure: k11624
26592 o|inlining procedure: k11624
26593 o|contracted procedure: "(support.scm:776) g24562457"
26594 o|inlining procedure: "(support.scm:771) chicken.compiler.support#second"
26595 o|inlining procedure: "(support.scm:769) chicken.compiler.support#first"
26596 o|inlining procedure: k11594
26597 o|inlining procedure: k11666
26598 o|inlining procedure: k11666
26599 o|substituted constant variable: a11687
26600 o|substituted constant variable: a11689
26601 o|substituted constant variable: a11691
26602 o|contracted procedure: "(support.scm:751) g24332434"
26603 o|contracted procedure: "(support.scm:750) g24302431"
26604 o|contracted procedure: "(support.scm:749) g24272428"
26605 o|inlining procedure: k10873
26606 o|contracted procedure: "(support.scm:655) g21162125"
26607 o|inlining procedure: k10873
26608 o|contracted procedure: "(support.scm:653) chicken.compiler.support#copy-node-tree-and-rename"
26609 o|inlining procedure: k10998
26610 o|contracted procedure: "(support.scm:706) g22482249"
26611 o|inlining procedure: k10998
26612 o|inlining procedure: "(support.scm:711) rename2224"
26613 o|inlining procedure: "(support.scm:708) chicken.compiler.support#first"
26614 o|inlining procedure: k11037
26615 o|contracted procedure: "(support.scm:713) g22552256"
26616 o|inlining procedure: "(support.scm:715) chicken.compiler.support#first"
26617 o|inlining procedure: "(support.scm:714) rename2224"
26618 o|inlining procedure: "(support.scm:714) chicken.compiler.support#first"
26619 o|inlining procedure: k11037
26620 o|contracted procedure: "(support.scm:722) g22642265"
26621 o|inlining procedure: "(support.scm:724) chicken.compiler.support#second"
26622 o|inlining procedure: "(support.scm:718) chicken.compiler.support#first"
26623 o|inlining procedure: "(support.scm:717) chicken.compiler.support#first"
26624 o|inlining procedure: k11124
26625 o|contracted procedure: "(support.scm:735) g23352336"
26626 o|inlining procedure: k11190
26627 o|inlining procedure: k11190
26628 o|inlining procedure: "(support.scm:739) chicken.compiler.support#fourth"
26629 o|inlining procedure: k11238
26630 o|inlining procedure: "(support.scm:738) rename2224"
26631 o|inlining procedure: k11238
26632 o|inlining procedure: "(support.scm:737) chicken.compiler.support#second"
26633 o|inlining procedure: k11257
26634 o|inlining procedure: k11257
26635 o|inlining procedure: k11305
26636 o|inlining procedure: k11305
26637 o|inlining procedure: "(support.scm:727) chicken.compiler.support#third"
26638 o|inlining procedure: k11124
26639 o|contracted procedure: "(support.scm:741) g23752376"
26640 o|inlining procedure: k11366
26641 o|inlining procedure: k11366
26642 o|substituted constant variable: a11398
26643 o|substituted constant variable: a11400
26644 o|substituted constant variable: a11402
26645 o|substituted constant variable: a11404
26646 o|substituted constant variable: a11406
26647 o|contracted procedure: "(support.scm:703) g22392240"
26648 o|contracted procedure: "(support.scm:702) g22362237"
26649 o|contracted procedure: "(support.scm:701) g22332234"
26650 o|inlining procedure: k11413
26651 o|inlining procedure: k11413
26652 o|inlining procedure: k10919
26653 o|inlining procedure: k10919
26654 o|inlining procedure: k11698
26655 o|contracted procedure: "(support.scm:785) g24912492"
26656 o|inlining procedure: "(support.scm:787) chicken.compiler.support#second"
26657 o|inlining procedure: k11698
26658 o|inlining procedure: k11745
26659 o|inlining procedure: k11745
26660 o|contracted procedure: "(support.scm:794) g24992500"
26661 o|inlining procedure: "(support.scm:789) chicken.compiler.support#second"
26662 o|inlining procedure: k11771
26663 o|contracted procedure: "(support.scm:796) g25052506"
26664 o|contracted procedure: "(support.scm:799) g25102511"
26665 o|inlining procedure: "(support.scm:798) chicken.compiler.support#second"
26666 o|inlining procedure: k11771
26667 o|contracted procedure: "(support.scm:801) g25152516"
26668 o|inlining procedure: "(support.scm:803) chicken.compiler.support#second"
26669 o|substituted constant variable: a11852
26670 o|substituted constant variable: a11854
26671 o|substituted constant variable: a11856
26672 o|substituted constant variable: a11858
26673 o|inlining procedure: k11868
26674 o|inlining procedure: k11868
26675 o|contracted procedure: "(support.scm:814) g25272528"
26676 o|contracted procedure: "(support.scm:816) g25382539"
26677 o|contracted procedure: "(support.scm:815) g25352536"
26678 o|contracted procedure: "(support.scm:814) g25322533"
26679 o|contracted procedure: "(support.scm:821) g25502551"
26680 o|contracted procedure: "(support.scm:820) g25472548"
26681 o|contracted procedure: "(support.scm:819) g25442545"
26682 o|inlining procedure: k12143
26683 o|contracted procedure: "(support.scm:842) g26552656"
26684 o|inlining procedure: k12143
26685 o|contracted procedure: "(support.scm:844) g26582659"
26686 o|substituted constant variable: a12178
26687 o|contracted procedure: "(support.scm:840) g26522653"
26688 o|inlining procedure: k12185
26689 o|inlining procedure: k12208
26690 o|contracted procedure: "(support.scm:880) g27372744"
26691 o|inlining procedure: k12208
26692 o|contracted procedure: "(support.scm:880) chicken.compiler.support#sort-symbols"
26693 o|inlining procedure: k12185
26694 o|inlining procedure: k12260
26695 o|contracted procedure: "(support.scm:872) g27152722"
26696 o|inlining procedure: k12260
26697 o|inlining procedure: k12287
26698 o|inlining procedure: k12302
26699 o|inlining procedure: k12320
26700 o|inlining procedure: k12337
26701 o|inlining procedure: k12357
26702 o|contracted procedure: "(support.scm:866) chicken.compiler.support#node->sexpr"
26703 o|inlining procedure: k12021
26704 o|inlining procedure: k12021
26705 o|contracted procedure: "(support.scm:828) g25882589"
26706 o|contracted procedure: "(support.scm:827) g25662567"
26707 o|contracted procedure: "(support.scm:826) g25632564"
26708 o|inlining procedure: k12357
26709 o|inlining procedure: k12387
26710 o|inlining procedure: k12387
26711 o|inlining procedure: "(support.scm:862) chicken.compiler.support#fourth"
26712 o|substituted constant variable: a12401
26713 o|substituted constant variable: a12403
26714 o|contracted procedure: "(support.scm:858) g27052706"
26715 o|inlining procedure: k12337
26716 o|contracted procedure: "(support.scm:856) g26942695"
26717 o|inlining procedure: k12320
26718 o|inlining procedure: k12302
26719 o|contracted procedure: "(support.scm:851) g26802681"
26720 o|contracted procedure: "(support.scm:851) g26832684"
26721 o|inlining procedure: k12287
26722 o|inlining procedure: k12459
26723 o|inlining procedure: k12459
26724 o|contracted procedure: "(support.scm:889) g27662767"
26725 o|contracted procedure: "(support.scm:892) chicken.compiler.support#sexpr->node"
26726 o|contracted procedure: "(support.scm:832) g26032604"
26727 o|inlining procedure: k12092
26728 o|inlining procedure: k12092
26729 o|inlining procedure: k12506
26730 o|inlining procedure: k12506
26731 o|inlining procedure: k12537
26732 o|inlining procedure: k12537
26733 o|inlining procedure: k12552
26734 o|inlining procedure: k12552
26735 o|inlining procedure: k12584
26736 o|inlining procedure: k12584
26737 o|inlining procedure: k12599
26738 o|inlining procedure: k12624
26739 o|inlining procedure: k12624
26740 o|inlining procedure: k12642
26741 o|inlining procedure: k12642
26742 o|contracted procedure: "(support.scm:919) g28272828"
26743 o|inlining procedure: k12599
26744 o|inlining procedure: "(support.scm:918) chicken.compiler.support#second"
26745 o|contracted procedure: "(support.scm:918) g28152816"
26746 o|inlining procedure: "(support.scm:917) chicken.compiler.support#first"
26747 o|contracted procedure: "(support.scm:917) g28112812"
26748 o|inlining procedure: k12706
26749 o|contracted procedure: "(support.scm:930) g28352836"
26750 o|contracted procedure: "(support.scm:930) g28322833"
26751 o|inlining procedure: k12706
26752 o|inlining procedure: k12755
26753 o|inlining procedure: k12755
26754 o|contracted procedure: "(support.scm:943) chicken.compiler.support#find"
26755 o|inlining procedure: k6506
26756 o|inlining procedure: k6506
26757 o|propagated global variable: lst585 chicken.compiler.support#foreign-callback-stubs
26758 o|inlining procedure: "(support.scm:942) chicken.compiler.support#first"
26759 o|contracted procedure: "(support.scm:942) g28702871"
26760 o|inlining procedure: k12795
26761 o|inlining procedure: k12795
26762 o|substituted constant variable: a12811
26763 o|substituted constant variable: a12813
26764 o|substituted constant variable: a12815
26765 o|inlining procedure: k12819
26766 o|inlining procedure: k12819
26767 o|substituted constant variable: a12832
26768 o|substituted constant variable: a12834
26769 o|substituted constant variable: a12836
26770 o|substituted constant variable: a12838
26771 o|contracted procedure: "(support.scm:939) g28572858"
26772 o|contracted procedure: "(support.scm:938) g28482849"
26773 o|inlining procedure: k12856
26774 o|inlining procedure: k12879
26775 o|inlining procedure: k12902
26776 o|inlining procedure: k12902
26777 o|inlining procedure: "(support.scm:961) chicken.compiler.support#first"
26778 o|contracted procedure: "(support.scm:961) g29102911"
26779 o|contracted procedure: "(support.scm:960) g29062907"
26780 o|inlining procedure: "(support.scm:959) chicken.compiler.support#first"
26781 o|contracted procedure: "(support.scm:958) g29012902"
26782 o|inlining procedure: k12879
26783 o|contracted procedure: "(support.scm:964) g29132914"
26784 o|substituted constant variable: a12956
26785 o|substituted constant variable: a12958
26786 o|contracted procedure: "(support.scm:956) g28972898"
26787 o|inlining procedure: "(support.scm:954) chicken.compiler.support#second"
26788 o|inlining procedure: k12856
26789 o|inlining procedure: "(support.scm:952) chicken.compiler.support#first"
26790 o|inlining procedure: "(support.scm:951) chicken.compiler.support#third"
26791 o|contracted procedure: "(support.scm:950) g28812882"
26792 o|inlining procedure: k12974
26793 o|inlining procedure: k12974
26794 o|inlining procedure: k12989
26795 o|inlining procedure: k12989
26796 o|inlining procedure: k13015
26797 o|inlining procedure: k13015
26798 o|inlining procedure: k13030
26799 o|inlining procedure: k13030
26800 o|inlining procedure: k13052
26801 o|inlining procedure: k13072
26802 o|inlining procedure: k13072
26803 o|inlining procedure: k13052
26804 o|inlining procedure: k13095
26805 o|contracted procedure: "(support.scm:1004) chicken.compiler.support#unhide-variable"
26806 o|inlining procedure: k17931
26807 o|inlining procedure: k17931
26808 o|inlining procedure: k13095
26809 o|contracted procedure: "(support.scm:1003) g29452946"
26810 o|removed side-effect free assignment to unused variable: chicken.compiler.support#foreign-callback-stub
26811 o|contracted procedure: "(support.scm:1027) g29872988"
26812 o|inlining procedure: k13209
26813 o|inlining procedure: k13209
26814 o|inlining procedure: k13246
26815 o|inlining procedure: k13246
26816 o|inlining procedure: k13294
26817 o|inlining procedure: k13294
26818 o|inlining procedure: k13318
26819 o|inlining procedure: k13318
26820 o|inlining procedure: k13324
26821 o|inlining procedure: k13324
26822 o|inlining procedure: k13377
26823 o|inlining procedure: k13377
26824 o|inlining procedure: k13431
26825 o|inlining procedure: k13431
26826 o|inlining procedure: k13489
26827 o|substituted constant variable: tmap3027
26828 o|substituted constant variable: tmap3027
26829 o|inlining procedure: k13489
26830 o|substituted constant variable: a13531
26831 o|substituted constant variable: a13532
26832 o|inlining procedure: k13545
26833 o|inlining procedure: k13545
26834 o|substituted constant variable: a13574
26835 o|substituted constant variable: a13575
26836 o|inlining procedure: k13558
26837 o|inlining procedure: k13558
26838 o|inlining procedure: k13637
26839 o|inlining procedure: k13637
26840 o|inlining procedure: k13691
26841 o|inlining procedure: k13691
26842 o|inlining procedure: k13719
26843 o|inlining procedure: k13719
26844 o|inlining procedure: k13743
26845 o|inlining procedure: k13743
26846 o|inlining procedure: k13765
26847 o|inlining procedure: k13765
26848 o|inlining procedure: k13839
26849 o|inlining procedure: k13839
26850 o|inlining procedure: k13880
26851 o|inlining procedure: k13880
26852 o|inlining procedure: k13886
26853 o|inlining procedure: k13886
26854 o|inlining procedure: k13912
26855 o|inlining procedure: k13912
26856 o|substituted constant variable: a13944
26857 o|substituted constant variable: a13946
26858 o|substituted constant variable: a13948
26859 o|substituted constant variable: a13950
26860 o|substituted constant variable: a13952
26861 o|substituted constant variable: a13954
26862 o|substituted constant variable: a13956
26863 o|substituted constant variable: a13961
26864 o|substituted constant variable: a13963
26865 o|inlining procedure: k13967
26866 o|inlining procedure: k13967
26867 o|substituted constant variable: a13980
26868 o|substituted constant variable: a13982
26869 o|substituted constant variable: a13984
26870 o|substituted constant variable: a13986
26871 o|substituted constant variable: a13994
26872 o|inlining procedure: k13998
26873 o|inlining procedure: k13998
26874 o|substituted constant variable: a14005
26875 o|substituted constant variable: a14007
26876 o|substituted constant variable: a14009
26877 o|inlining procedure: k14013
26878 o|inlining procedure: k14013
26879 o|substituted constant variable: a14026
26880 o|substituted constant variable: a14028
26881 o|substituted constant variable: a14030
26882 o|substituted constant variable: a14032
26883 o|substituted constant variable: a14034
26884 o|inlining procedure: k14038
26885 o|inlining procedure: k14038
26886 o|substituted constant variable: a14045
26887 o|substituted constant variable: a14047
26888 o|substituted constant variable: a14049
26889 o|inlining procedure: k14053
26890 o|inlining procedure: k14053
26891 o|inlining procedure: k14065
26892 o|inlining procedure: k14065
26893 o|substituted constant variable: a14078
26894 o|substituted constant variable: a14080
26895 o|substituted constant variable: a14082
26896 o|substituted constant variable: a14084
26897 o|substituted constant variable: a14086
26898 o|substituted constant variable: a14088
26899 o|inlining procedure: k14092
26900 o|inlining procedure: k14092
26901 o|inlining procedure: k14104
26902 o|inlining procedure: k14104
26903 o|substituted constant variable: a14117
26904 o|substituted constant variable: a14119
26905 o|substituted constant variable: a14121
26906 o|substituted constant variable: a14123
26907 o|substituted constant variable: a14125
26908 o|substituted constant variable: a14127
26909 o|inlining procedure: k14131
26910 o|inlining procedure: k14131
26911 o|inlining procedure: k14143
26912 o|inlining procedure: k14143
26913 o|inlining procedure: k14155
26914 o|inlining procedure: k14155
26915 o|inlining procedure: k14167
26916 o|inlining procedure: k14167
26917 o|substituted constant variable: a14180
26918 o|substituted constant variable: a14182
26919 o|substituted constant variable: a14184
26920 o|substituted constant variable: a14186
26921 o|substituted constant variable: a14188
26922 o|substituted constant variable: a14190
26923 o|substituted constant variable: a14192
26924 o|substituted constant variable: a14194
26925 o|substituted constant variable: a14196
26926 o|substituted constant variable: a14198
26927 o|inlining procedure: k14202
26928 o|inlining procedure: k14202
26929 o|inlining procedure: k14214
26930 o|inlining procedure: k14214
26931 o|inlining procedure: k14226
26932 o|inlining procedure: k14226
26933 o|inlining procedure: k14238
26934 o|inlining procedure: k14238
26935 o|substituted constant variable: a14251
26936 o|substituted constant variable: a14253
26937 o|substituted constant variable: a14255
26938 o|substituted constant variable: a14257
26939 o|substituted constant variable: a14259
26940 o|substituted constant variable: a14261
26941 o|substituted constant variable: a14263
26942 o|substituted constant variable: a14265
26943 o|substituted constant variable: a14267
26944 o|substituted constant variable: a14269
26945 o|substituted constant variable: a14271
26946 o|substituted constant variable: a14273
26947 o|substituted constant variable: a14278
26948 o|substituted constant variable: a14280
26949 o|substituted constant variable: a14285
26950 o|substituted constant variable: a14287
26951 o|inlining procedure: k14291
26952 o|inlining procedure: k14291
26953 o|substituted constant variable: a14298
26954 o|substituted constant variable: a14300
26955 o|substituted constant variable: a14302
26956 o|inlining procedure: k14306
26957 o|inlining procedure: k14306
26958 o|inlining procedure: k14318
26959 o|inlining procedure: k14318
26960 o|substituted constant variable: a14331
26961 o|substituted constant variable: a14333
26962 o|substituted constant variable: a14335
26963 o|substituted constant variable: a14337
26964 o|substituted constant variable: a14339
26965 o|substituted constant variable: a14341
26966 o|substituted constant variable: a14346
26967 o|substituted constant variable: a14348
26968 o|inlining procedure: k14361
26969 o|inlining procedure: k14373
26970 o|inlining procedure: k14373
26971 o|inlining procedure: k14361
26972 o|inlining procedure: k14382
26973 o|inlining procedure: k14394
26974 o|inlining procedure: k14394
26975 o|inlining procedure: k14382
26976 o|inlining procedure: k14406
26977 o|inlining procedure: k14406
26978 o|inlining procedure: k14421
26979 o|inlining procedure: k14421
26980 o|inlining procedure: k14439
26981 o|inlining procedure: k14439
26982 o|removed unused formal parameters: (t3386)
26983 o|inlining procedure: k14481
26984 o|inlining procedure: k14481
26985 o|inlining procedure: k14502
26986 o|inlining procedure: k14502
26987 o|inlining procedure: k14526
26988 o|inlining procedure: k14526
26989 o|inlining procedure: k14556
26990 o|inlining procedure: k14575
26991 o|inlining procedure: k14575
26992 o|removed unused parameter to known procedure: t3386 "(support.scm:1272) err3385"
26993 o|substituted constant variable: a14601
26994 o|substituted constant variable: a14603
26995 o|inlining procedure: k14607
26996 o|inlining procedure: k14607
26997 o|inlining procedure: k14619
26998 o|inlining procedure: k14619
26999 o|inlining procedure: k14631
27000 o|inlining procedure: k14631
27001 o|inlining procedure: k14643
27002 o|inlining procedure: k14643
27003 o|substituted constant variable: a14650
27004 o|substituted constant variable: a14652
27005 o|substituted constant variable: a14654
27006 o|substituted constant variable: a14656
27007 o|substituted constant variable: a14658
27008 o|substituted constant variable: a14660
27009 o|substituted constant variable: a14662
27010 o|substituted constant variable: a14664
27011 o|substituted constant variable: a14666
27012 o|inlining procedure: k14556
27013 o|removed unused parameter to known procedure: t3386 "(support.scm:1273) err3385"
27014 o|inlining procedure: k14679
27015 o|inlining procedure: k14679
27016 o|substituted constant variable: a14692
27017 o|substituted constant variable: a14694
27018 o|substituted constant variable: a14696
27019 o|substituted constant variable: a14698
27020 o|inlining procedure: k14702
27021 o|inlining procedure: k14702
27022 o|substituted constant variable: a14709
27023 o|substituted constant variable: a14711
27024 o|substituted constant variable: a14713
27025 o|inlining procedure: k14717
27026 o|inlining procedure: k14717
27027 o|inlining procedure: k14729
27028 o|inlining procedure: k14729
27029 o|substituted constant variable: a14742
27030 o|substituted constant variable: a14744
27031 o|substituted constant variable: a14746
27032 o|substituted constant variable: a14748
27033 o|substituted constant variable: a14750
27034 o|substituted constant variable: a14752
27035 o|inlining procedure: k14756
27036 o|inlining procedure: k14756
27037 o|inlining procedure: k14768
27038 o|inlining procedure: k14768
27039 o|inlining procedure: k14780
27040 o|inlining procedure: k14780
27041 o|inlining procedure: k14792
27042 o|inlining procedure: k14792
27043 o|inlining procedure: k14804
27044 o|inlining procedure: k14804
27045 o|substituted constant variable: a14817
27046 o|substituted constant variable: a14819
27047 o|substituted constant variable: a14821
27048 o|substituted constant variable: a14823
27049 o|substituted constant variable: a14825
27050 o|substituted constant variable: a14827
27051 o|substituted constant variable: a14829
27052 o|substituted constant variable: a14831
27053 o|substituted constant variable: a14833
27054 o|substituted constant variable: a14835
27055 o|substituted constant variable: a14837
27056 o|substituted constant variable: a14839
27057 o|inlining procedure: k14843
27058 o|inlining procedure: k14843
27059 o|inlining procedure: k14855
27060 o|inlining procedure: k14855
27061 o|inlining procedure: k14867
27062 o|inlining procedure: k14867
27063 o|inlining procedure: k14879
27064 o|inlining procedure: k14879
27065 o|inlining procedure: k14891
27066 o|inlining procedure: k14891
27067 o|inlining procedure: k14903
27068 o|inlining procedure: k14903
27069 o|substituted constant variable: a14910
27070 o|substituted constant variable: a14912
27071 o|substituted constant variable: a14914
27072 o|substituted constant variable: a14916
27073 o|substituted constant variable: a14918
27074 o|substituted constant variable: a14920
27075 o|substituted constant variable: a14922
27076 o|substituted constant variable: a14924
27077 o|substituted constant variable: a14926
27078 o|substituted constant variable: a14928
27079 o|substituted constant variable: a14930
27080 o|substituted constant variable: a14932
27081 o|substituted constant variable: a14934
27082 o|inlining procedure: k14956
27083 o|inlining procedure: k14956
27084 o|inlining procedure: k14983
27085 o|inlining procedure: k14983
27086 o|inlining procedure: k15005
27087 o|inlining procedure: k15005
27088 o|inlining procedure: "(support.scm:1300) err3537"
27089 o|substituted constant variable: a15034
27090 o|inlining procedure: k15038
27091 o|inlining procedure: k15038
27092 o|inlining procedure: k15050
27093 o|inlining procedure: k15050
27094 o|inlining procedure: k15062
27095 o|inlining procedure: k15062
27096 o|inlining procedure: k15074
27097 o|inlining procedure: k15074
27098 o|substituted constant variable: a15081
27099 o|substituted constant variable: a15083
27100 o|substituted constant variable: a15085
27101 o|substituted constant variable: a15087
27102 o|substituted constant variable: a15089
27103 o|substituted constant variable: a15091
27104 o|substituted constant variable: a15093
27105 o|substituted constant variable: a15095
27106 o|substituted constant variable: a15097
27107 o|inlining procedure: "(support.scm:1301) err3537"
27108 o|inlining procedure: k15110
27109 o|inlining procedure: k15110
27110 o|inlining procedure: k15122
27111 o|inlining procedure: k15122
27112 o|substituted constant variable: a15129
27113 o|substituted constant variable: a15131
27114 o|substituted constant variable: a15133
27115 o|substituted constant variable: a15135
27116 o|substituted constant variable: a15137
27117 o|inlining procedure: k15141
27118 o|inlining procedure: k15141
27119 o|inlining procedure: k15153
27120 o|inlining procedure: k15153
27121 o|inlining procedure: k15165
27122 o|inlining procedure: k15165
27123 o|inlining procedure: k15177
27124 o|inlining procedure: k15177
27125 o|inlining procedure: k15189
27126 o|inlining procedure: k15189
27127 o|inlining procedure: k15201
27128 o|inlining procedure: k15201
27129 o|inlining procedure: k15213
27130 o|inlining procedure: k15213
27131 o|inlining procedure: k15225
27132 o|inlining procedure: k15225
27133 o|inlining procedure: k15237
27134 o|inlining procedure: k15237
27135 o|inlining procedure: k15249
27136 o|inlining procedure: k15249
27137 o|inlining procedure: k15261
27138 o|inlining procedure: k15261
27139 o|inlining procedure: k15273
27140 o|inlining procedure: k15273
27141 o|inlining procedure: k15285
27142 o|inlining procedure: k15285
27143 o|inlining procedure: k15297
27144 o|inlining procedure: k15297
27145 o|inlining procedure: k15309
27146 o|inlining procedure: k15309
27147 o|substituted constant variable: a15322
27148 o|substituted constant variable: a15324
27149 o|substituted constant variable: a15326
27150 o|substituted constant variable: a15328
27151 o|substituted constant variable: a15330
27152 o|substituted constant variable: a15332
27153 o|substituted constant variable: a15334
27154 o|substituted constant variable: a15336
27155 o|substituted constant variable: a15338
27156 o|substituted constant variable: a15340
27157 o|substituted constant variable: a15342
27158 o|substituted constant variable: a15344
27159 o|substituted constant variable: a15346
27160 o|substituted constant variable: a15348
27161 o|substituted constant variable: a15350
27162 o|substituted constant variable: a15352
27163 o|substituted constant variable: a15354
27164 o|substituted constant variable: a15356
27165 o|substituted constant variable: a15358
27166 o|substituted constant variable: a15360
27167 o|substituted constant variable: a15362
27168 o|substituted constant variable: a15364
27169 o|substituted constant variable: a15366
27170 o|substituted constant variable: a15368
27171 o|substituted constant variable: a15370
27172 o|substituted constant variable: a15372
27173 o|substituted constant variable: a15374
27174 o|substituted constant variable: a15376
27175 o|substituted constant variable: a15378
27176 o|substituted constant variable: a15380
27177 o|substituted constant variable: a15382
27178 o|substituted constant variable: a15384
27179 o|inlining procedure: k15397
27180 o|inlining procedure: k15397
27181 o|inlining procedure: k15426
27182 o|inlining procedure: k15426
27183 o|inlining procedure: k15458
27184 o|inlining procedure: k15458
27185 o|inlining procedure: k15488
27186 o|inlining procedure: k15488
27187 o|inlining procedure: k15507
27188 o|inlining procedure: k15507
27189 o|inlining procedure: k15529
27190 o|inlining procedure: k15529
27191 o|substituted constant variable: a15594
27192 o|substituted constant variable: a15599
27193 o|substituted constant variable: a15601
27194 o|substituted constant variable: a15602
27195 o|inlining procedure: k15610
27196 o|substituted constant variable: a15620
27197 o|inlining procedure: k15610
27198 o|substituted constant variable: a15621
27199 o|substituted constant variable: a15631
27200 o|substituted constant variable: a15633
27201 o|substituted constant variable: a15635
27202 o|substituted constant variable: a15640
27203 o|substituted constant variable: a15642
27204 o|substituted constant variable: a15647
27205 o|substituted constant variable: a15649
27206 o|substituted constant variable: a15651
27207 o|substituted constant variable: a15656
27208 o|substituted constant variable: a15658
27209 o|inlining procedure: k15662
27210 o|inlining procedure: k15662
27211 o|inlining procedure: k15680
27212 o|inlining procedure: k15680
27213 o|inlining procedure: k15698
27214 o|substituted constant variable: a15714
27215 o|inlining procedure: k15698
27216 o|inlining procedure: k15724
27217 o|substituted constant variable: a15737
27218 o|inlining procedure: k15724
27219 o|inlining procedure: k15744
27220 o|substituted constant variable: a15757
27221 o|inlining procedure: k15744
27222 o|inlining procedure: k15764
27223 o|substituted constant variable: a15790
27224 o|inlining procedure: k15764
27225 o|inlining procedure: k15797
27226 o|inlining procedure: k15797
27227 o|inlining procedure: k15809
27228 o|inlining procedure: k15809
27229 o|inlining procedure: k15821
27230 o|inlining procedure: k15821
27231 o|inlining procedure: k15833
27232 o|inlining procedure: k15833
27233 o|inlining procedure: k15845
27234 o|inlining procedure: k15845
27235 o|inlining procedure: k15860
27236 o|inlining procedure: k15860
27237 o|inlining procedure: k15878
27238 o|inlining procedure: k15878
27239 o|inlining procedure: k15884
27240 o|inlining procedure: k15884
27241 o|inlining procedure: k15902
27242 o|inlining procedure: k15902
27243 o|inlining procedure: k15917
27244 o|inlining procedure: k15933
27245 o|inlining procedure: k15933
27246 o|inlining procedure: k15939
27247 o|inlining procedure: k15939
27248 o|inlining procedure: k15958
27249 o|inlining procedure: k15958
27250 o|substituted constant variable: a15977
27251 o|substituted constant variable: a15979
27252 o|substituted constant variable: a15981
27253 o|substituted constant variable: a15983
27254 o|inlining procedure: k15987
27255 o|inlining procedure: k15987
27256 o|substituted constant variable: a16000
27257 o|substituted constant variable: a16002
27258 o|substituted constant variable: a16004
27259 o|substituted constant variable: a16006
27260 o|inlining procedure: k15917
27261 o|substituted constant variable: a16008
27262 o|inlining procedure: k16012
27263 o|inlining procedure: k16012
27264 o|substituted constant variable: a16019
27265 o|substituted constant variable: a16021
27266 o|substituted constant variable: a16023
27267 o|substituted constant variable: a16028
27268 o|substituted constant variable: a16030
27269 o|inlining procedure: k16034
27270 o|inlining procedure: k16034
27271 o|substituted constant variable: a16047
27272 o|substituted constant variable: a16049
27273 o|substituted constant variable: a16051
27274 o|substituted constant variable: a16053
27275 o|substituted constant variable: a16055
27276 o|substituted constant variable: a16057
27277 o|inlining procedure: k16061
27278 o|inlining procedure: k16061
27279 o|inlining procedure: k16073
27280 o|inlining procedure: k16073
27281 o|inlining procedure: k16085
27282 o|inlining procedure: k16085
27283 o|inlining procedure: k16097
27284 o|inlining procedure: k16097
27285 o|substituted constant variable: a16104
27286 o|substituted constant variable: a16106
27287 o|substituted constant variable: a16108
27288 o|substituted constant variable: a16110
27289 o|substituted constant variable: a16112
27290 o|substituted constant variable: a16114
27291 o|substituted constant variable: a16116
27292 o|substituted constant variable: a16118
27293 o|substituted constant variable: a16120
27294 o|substituted constant variable: a16122
27295 o|substituted constant variable: a16124
27296 o|substituted constant variable: a16126
27297 o|substituted constant variable: a16128
27298 o|substituted constant variable: a16130
27299 o|substituted constant variable: a16132
27300 o|substituted constant variable: a16134
27301 o|substituted constant variable: a16136
27302 o|substituted constant variable: a16138
27303 o|substituted constant variable: a16140
27304 o|inlining procedure: k16144
27305 o|inlining procedure: k16144
27306 o|inlining procedure: k16156
27307 o|inlining procedure: k16156
27308 o|inlining procedure: k16168
27309 o|inlining procedure: k16168
27310 o|inlining procedure: k16180
27311 o|inlining procedure: k16180
27312 o|substituted constant variable: a16193
27313 o|substituted constant variable: a16195
27314 o|substituted constant variable: a16197
27315 o|substituted constant variable: a16199
27316 o|substituted constant variable: a16201
27317 o|substituted constant variable: a16203
27318 o|substituted constant variable: a16205
27319 o|substituted constant variable: a16207
27320 o|substituted constant variable: a16209
27321 o|substituted constant variable: a16211
27322 o|substituted constant variable: a16213
27323 o|substituted constant variable: a16215
27324 o|substituted constant variable: a16217
27325 o|substituted constant variable: a16219
27326 o|substituted constant variable: a16224
27327 o|substituted constant variable: a16226
27328 o|substituted constant variable: a16231
27329 o|substituted constant variable: a16233
27330 o|inlining procedure: k16237
27331 o|inlining procedure: k16237
27332 o|inlining procedure: k16249
27333 o|inlining procedure: k16249
27334 o|inlining procedure: k16261
27335 o|inlining procedure: k16261
27336 o|substituted constant variable: a16274
27337 o|substituted constant variable: a16276
27338 o|substituted constant variable: a16278
27339 o|substituted constant variable: a16280
27340 o|substituted constant variable: a16282
27341 o|substituted constant variable: a16284
27342 o|substituted constant variable: a16286
27343 o|substituted constant variable: a16288
27344 o|substituted constant variable: a16293
27345 o|substituted constant variable: a16295
27346 o|substituted constant variable: a16297
27347 o|inlining procedure: k16298
27348 o|inlining procedure: k16298
27349 o|inlining procedure: k16338
27350 o|inlining procedure: k16362
27351 o|inlining procedure: k16362
27352 o|inlining procedure: "(support.scm:1430) chicken.compiler.support#first"
27353 o|contracted procedure: "(support.scm:1430) g39403941"
27354 o|inlining procedure: k16338
27355 o|inlining procedure: k16426
27356 o|inlining procedure: k16426
27357 o|inlining procedure: k16449
27358 o|inlining procedure: k16449
27359 o|substituted constant variable: a16456
27360 o|substituted constant variable: a16458
27361 o|substituted constant variable: a16460
27362 o|substituted constant variable: a16465
27363 o|substituted constant variable: a16467
27364 o|contracted procedure: "(support.scm:1428) g39333934"
27365 o|contracted procedure: "(support.scm:1427) g39243925"
27366 o|inlining procedure: k16498
27367 o|inlining procedure: k16498
27368 o|inlining procedure: k16516
27369 o|inlining procedure: k16516
27370 o|consed rest parameter at call site: "(support.scm:1455) chicken.compiler.support#lset-adjoin/eq?" 2
27371 o|consed rest parameter at call site: "(support.scm:1453) chicken.compiler.support#lset-adjoin/eq?" 2
27372 o|inlining procedure: "(support.scm:1451) chicken.compiler.support#first"
27373 o|inlining procedure: k16536
27374 o|consed rest parameter at call site: "(support.scm:1458) chicken.compiler.support#lset-adjoin/eq?" 2
27375 o|inlining procedure: "(support.scm:1457) chicken.compiler.support#first"
27376 o|inlining procedure: k16536
27377 o|inlining procedure: "(support.scm:1462) chicken.compiler.support#second"
27378 o|inlining procedure: "(support.scm:1461) chicken.compiler.support#first"
27379 o|inlining procedure: k16586
27380 o|inlining procedure: "(support.scm:1467) chicken.compiler.support#first"
27381 o|inlining procedure: "(support.scm:1465) chicken.compiler.support#third"
27382 o|inlining procedure: k16586
27383 o|substituted constant variable: a16617
27384 o|substituted constant variable: a16619
27385 o|substituted constant variable: a16621
27386 o|substituted constant variable: a16623
27387 o|inlining procedure: k16627
27388 o|inlining procedure: k16627
27389 o|inlining procedure: k16639
27390 o|inlining procedure: k16639
27391 o|substituted constant variable: a16646
27392 o|substituted constant variable: a16648
27393 o|substituted constant variable: a16650
27394 o|substituted constant variable: a16652
27395 o|substituted constant variable: a16654
27396 o|contracted procedure: "(support.scm:1448) g40104011"
27397 o|contracted procedure: "(support.scm:1447) g40014002"
27398 o|contracted procedure: "(support.scm:1446) g39983999"
27399 o|inlining procedure: k16672
27400 o|inlining procedure: k16672
27401 o|inlining procedure: k16705
27402 o|inlining procedure: k16705
27403 o|substituted constant variable: a16715
27404 o|substituted constant variable: a16720
27405 o|removed side-effect free assignment to unused variable: chicken.compiler.support#block-variable-literal
27406 o|substituted constant variable: a16754
27407 o|substituted constant variable: a16755
27408 o|inlining procedure: k16777
27409 o|inlining procedure: k16777
27410 o|inlining procedure: k16819
27411 o|inlining procedure: k16819
27412 o|inlining procedure: k16831
27413 o|inlining procedure: k16831
27414 o|inlining procedure: k16861
27415 o|inlining procedure: k16861
27416 o|inlining procedure: k16884
27417 o|inlining procedure: k16884
27418 o|substituted constant variable: chicken.compiler.support#real-name-max-depth
27419 o|inlining procedure: k16936
27420 o|inlining procedure: k16936
27421 o|propagated global variable: out41354138 ##sys#standard-output
27422 o|substituted constant variable: a16952
27423 o|substituted constant variable: a16953
27424 o|propagated global variable: out41354138 ##sys#standard-output
27425 o|inlining procedure: k16969
27426 o|substituted constant variable: a16993
27427 o|inlining procedure: k16969
27428 o|inlining procedure: k17004
27429 o|inlining procedure: k17004
27430 o|inlining procedure: k17019
27431 o|inlining procedure: k17019
27432 o|inlining procedure: k17037
27433 o|inlining procedure: k17037
27434 o|inlining procedure: k17040
27435 o|inlining procedure: k17040
27436 o|inlining procedure: "(support.scm:1581) chicken.compiler.support#second"
27437 o|inlining procedure: k17097
27438 o|inlining procedure: k17118
27439 o|inlining procedure: k17118
27440 o|substituted constant variable: a17146
27441 o|substituted constant variable: a17159
27442 o|inlining procedure: k17097
27443 o|inlining procedure: k17230
27444 o|contracted procedure: "(support.scm:1593) g42084217"
27445 o|inlining procedure: k17230
27446 o|inlining procedure: k17264
27447 o|contracted procedure: "(support.scm:1592) g41774186"
27448 o|inlining procedure: "(support.scm:1592) chicken.compiler.support#first"
27449 o|contracted procedure: "(support.scm:1592) g41894190"
27450 o|inlining procedure: k17264
27451 o|contracted procedure: "(support.scm:1610) g42524253"
27452 o|inlining procedure: k17313
27453 o|inlining procedure: k17350
27454 o|inlining procedure: k17350
27455 o|contracted procedure: "(support.scm:1613) g42634264"
27456 o|inlining procedure: "(support.scm:1612) chicken.compiler.support#first"
27457 o|contracted procedure: "(support.scm:1612) g42594260"
27458 o|inlining procedure: k17313
27459 o|contracted procedure: "(support.scm:1611) g42554256"
27460 o|inlining procedure: k17411
27461 o|inlining procedure: k17411
27462 o|inlining procedure: k17424
27463 o|inlining procedure: k17424
27464 o|substituted constant variable: a17458
27465 o|merged explicitly consed rest parameter: args42914297
27466 o|consed rest parameter at call site: tmp25336 1
27467 o|inlining procedure: k17480
27468 o|inlining procedure: k17480
27469 o|inlining procedure: k17499
27470 o|inlining procedure: "(support.scm:1641) getsize4281"
27471 o|inlining procedure: k17499
27472 o|inlining procedure: "(support.scm:1643) getsize4281"
27473 o|substituted constant variable: a17571
27474 o|propagated global variable: out43274340 ##sys#standard-output
27475 o|substituted constant variable: a17573
27476 o|substituted constant variable: a17574
27477 o|propagated global variable: out43634366 ##sys#standard-output
27478 o|substituted constant variable: a17617
27479 o|substituted constant variable: a17618
27480 o|inlining procedure: k17607
27481 o|inlining procedure: k17634
27482 o|propagated global variable: out43724375 ##sys#standard-output
27483 o|substituted constant variable: a17641
27484 o|substituted constant variable: a17642
27485 o|inlining procedure: k17634
27486 o|propagated global variable: out43724375 ##sys#standard-output
27487 o|propagated global variable: out43634366 ##sys#standard-output
27488 o|inlining procedure: k17607
27489 o|inlining procedure: k17667
27490 o|inlining procedure: k17667
27491 o|propagated global variable: out43274340 ##sys#standard-output
27492 o|contracted procedure: "(support.scm:1657) g43244325"
27493 o|contracted procedure: "(support.scm:1656) g43214322"
27494 o|contracted procedure: "(support.scm:1655) g43184319"
27495 o|inlining procedure: k17690
27496 o|inlining procedure: k17715
27497 o|inlining procedure: k17715
27498 o|inlining procedure: k17690
27499 o|inlining procedure: k17739
27500 o|contracted procedure: "(support.scm:1697) chicken.compiler.support#scan-sharp-greater-string"
27501 o|inlining procedure: k17776
27502 o|inlining procedure: k17776
27503 o|substituted constant variable: a17789
27504 o|substituted constant variable: a17800
27505 o|inlining procedure: k17796
27506 o|substituted constant variable: a17822
27507 o|inlining procedure: k17796
27508 o|inlining procedure: k17739
27509 o|inlining procedure: k17833
27510 o|inlining procedure: k17848
27511 o|inlining procedure: k17848
27512 o|inlining procedure: k17833
27513 o|inlining procedure: k17857
27514 o|inlining procedure: k17857
27515 o|contracted procedure: "(support.scm:1740) g44344435"
27516 o|contracted procedure: "(support.scm:1743) g44504451"
27517 o|inlining procedure: k17946
27518 o|inlining procedure: k17946
27519 o|substituted constant variable: a17962
27520 o|substituted constant variable: a17964
27521 o|contracted procedure: "(support.scm:1767) g45014502"
27522 o|contracted procedure: "(support.scm:1769) g45124513"
27523 o|contracted procedure: "(support.scm:1770) g45234524"
27524 o|inlining procedure: k18025
27525 o|inlining procedure: k18068
27526 o|contracted procedure: "(support.scm:1778) g45464553"
27527 o|inlining procedure: k18068
27528 o|substituted constant variable: a18093
27529 o|substituted constant variable: a18094
27530 o|inlining procedure: k18025
27531 o|substituted constant variable: chicken.compiler.support#constant678
27532 o|substituted constant variable: a18161
27533 o|substituted constant variable: a18162
27534 o|contracted procedure: "(support.scm:477) g13121313"
27535 o|contracted procedure: "(support.scm:477) g13091310"
27536 o|substituted constant variable: chicken.compiler.support#node
27537 o|replaced variables: 4002
27538 o|removed binding forms: 706
27539 o|substituted constant variable: r548518196
27540 o|substituted constant variable: r578618200
27541 o|removed side-effect free assignment to unused variable: chicken.compiler.support#first
27542 o|removed side-effect free assignment to unused variable: chicken.compiler.support#second
27543 o|removed side-effect free assignment to unused variable: chicken.compiler.support#third
27544 o|removed side-effect free assignment to unused variable: chicken.compiler.support#fourth
27545 o|removed side-effect free assignment to unused variable: chicken.compiler.support#filter
27546 o|removed side-effect free assignment to unused variable: chicken.compiler.support#constant678
27547 o|propagated global variable: out715718 ##sys#standard-output
27548 o|propagated global variable: out730733 chicken.compiler.support#collected-debugging-output
27549 o|substituted constant variable: r679118230
27550 o|inlining procedure: k6805
27551 o|substituted constant variable: r679118231
27552 o|inlining procedure: k6814
27553 o|propagated global variable: out766769 chicken.compiler.support#collected-debugging-output
27554 o|converted assignments to bindings: (collect751)
27555 o|substituted constant variable: r711618244
27556 o|substituted constant variable: r719118248
27557 o|substituted constant variable: r723818250
27558 o|substituted constant variable: r723818251
27559 o|substituted constant variable: r727518257
27560 o|substituted constant variable: r759118283
27561 o|substituted constant variable: r770518299
27562 o|substituted constant variable: r774318300
27563 o|substituted constant variable: r786118310
27564 o|substituted constant variable: r813818321
27565 o|substituted constant variable: r603918326
27566 o|substituted constant variable: r815618327
27567 o|substituted constant variable: r827218335
27568 o|propagated global variable: out12301233 ##sys#standard-output
27569 o|removed side-effect free assignment to unused variable: chicken.compiler.support#node
27570 o|substituted constant variable: c1328
27571 o|substituted constant variable: s1330
27572 o|substituted constant variable: c1335
27573 o|substituted constant variable: s1337
27574 o|substituted constant variable: p1362
27575 o|substituted constant variable: r864118355
27576 o|substituted constant variable: c1398
27577 o|substituted constant variable: c1433
27578 o|substituted constant variable: c1438
27579 o|substituted constant variable: c1451
27580 o|substituted constant variable: c1456
27581 o|substituted constant variable: p1457
27582 o|substituted constant variable: s1458
27583 o|substituted constant variable: c1461
27584 o|substituted constant variable: s1539
27585 o|substituted constant variable: c1542
27586 o|substituted constant variable: s1544
27587 o|substituted constant variable: c1550
27588 o|substituted constant variable: c1582
27589 o|substituted constant variable: c1630
27590 o|substituted constant variable: c1663
27591 o|substituted constant variable: mark1673
27592 o|substituted constant variable: c1707
27593 o|substituted constant variable: c2063
27594 o|substituted constant variable: p2064
27595 o|substituted constant variable: c2164
27596 o|substituted constant variable: c2169
27597 o|substituted constant variable: c2174
27598 o|substituted constant variable: c2180
27599 o|substituted constant variable: c2446
27600 o|substituted constant variable: c2458
27601 o|removed side-effect free assignment to unused variable: rename2224
27602 o|substituted constant variable: s2252
27603 o|substituted constant variable: c2257
27604 o|substituted constant variable: c2266
27605 o|substituted constant variable: c2337
27606 o|substituted constant variable: r1123918654
27607 o|substituted constant variable: r1123918654
27608 o|substituted constant variable: c2493
27609 o|substituted constant variable: c2501
27610 o|substituted constant variable: c2507
27611 o|substituted constant variable: c2512
27612 o|substituted constant variable: c2517
27613 o|substituted constant variable: r1235818720
27614 o|substituted constant variable: r1238818721
27615 o|substituted constant variable: mark2708
27616 o|substituted constant variable: r1233818728
27617 o|substituted constant variable: r1232118729
27618 o|substituted constant variable: r1230318730
27619 o|substituted constant variable: mark2686
27620 o|converted assignments to bindings: (uses-foreign-stubs?2642)
27621 o|substituted constant variable: mark2773
27622 o|substituted constant variable: r1255318742
27623 o|substituted constant variable: r1264318748
27624 o|substituted constant variable: r1260018750
27625 o|substituted constant variable: r1270718762
27626 o|substituted constant variable: r1275618763
27627 o|substituted constant variable: r650718765
27628 o|substituted constant variable: r1279618773
27629 o|substituted constant variable: r1290318779
27630 o|substituted constant variable: r1285718796
27631 o|substituted constant variable: r1299018810
27632 o|substituted constant variable: r1303118814
27633 o|substituted constant variable: r1307318818
27634 o|substituted constant variable: r1307318818
27635 o|substituted constant variable: mark2994
27636 o|substituted constant variable: r1324718829
27637 o|substituted constant variable: r1324718829
27638 o|substituted constant variable: r1437418905
27639 o|substituted constant variable: r1436218906
27640 o|substituted constant variable: r1439518909
27641 o|substituted constant variable: r1438318910
27642 o|substituted constant variable: r1448218917
27643 o|converted assignments to bindings: (err3385)
27644 o|removed side-effect free assignment to unused variable: err3537
27645 o|substituted constant variable: r1561119036
27646 o|substituted constant variable: r1566319037
27647 o|substituted constant variable: r1568119039
27648 o|substituted constant variable: r1579819049
27649 o|substituted constant variable: r1581019051
27650 o|substituted constant variable: r1582219053
27651 o|substituted constant variable: r1583419055
27652 o|substituted constant variable: r1584619057
27653 o|substituted constant variable: r1587919061
27654 o|substituted constant variable: r1587919062
27655 o|substituted constant variable: r1588519063
27656 o|substituted constant variable: r1590319065
27657 o|substituted constant variable: r1593419068
27658 o|substituted constant variable: r1593419069
27659 o|substituted constant variable: r1595919073
27660 o|substituted constant variable: r1591819076
27661 o|substituted constant variable: r1629919104
27662 o|substituted constant variable: r1649919118
27663 o|removed side-effect free assignment to unused variable: chicken.compiler.support#real-name-max-depth
27664 o|converted assignments to bindings: (resolve4104)
27665 o|substituted constant variable: r1693719177
27666 o|propagated global variable: out41354138 ##sys#standard-output
27667 o|substituted constant variable: r1702019183
27668 o|substituted constant variable: r1704119187
27669 o|substituted constant variable: r1735119208
27670 o|converted assignments to bindings: (constant-node?4250)
27671 o|removed side-effect free assignment to unused variable: getsize4281
27672 o|substituted constant variable: r1742519218
27673 o|contracted procedure: "(support.scm:1647) chicken.compiler.support#list-tabulate"
27674 o|substituted constant variable: r639418212
27675 o|propagated global variable: out43274340 ##sys#standard-output
27676 o|propagated global variable: out43634366 ##sys#standard-output
27677 o|propagated global variable: out43724375 ##sys#standard-output
27678 o|substituted constant variable: r1771619245
27679 o|substituted constant variable: r1771619245
27680 o|substituted constant variable: r1783419258
27681 o|substituted constant variable: r1785819260
27682 o|substituted constant variable: mark4441
27683 o|substituted constant variable: mark4457
27684 o|substituted constant variable: r1794719263
27685 o|substituted constant variable: mark4504
27686 o|substituted constant variable: mark4515
27687 o|substituted constant variable: mark4526
27688 o|substituted constant variable: r1802619268
27689 o|simplifications: ((let . 5))
27690 o|replaced variables: 639
27691 o|removed binding forms: 3383
27692 o|substituted constant variable: r67911823019296
27693 o|substituted constant variable: r67911823119298
27694 o|inlining procedure: "(support.scm:389) chicken.compiler.support#alist-cons"
27695 o|inlining procedure: "(support.scm:429) chicken.compiler.support#alist-cons"
27696 o|inlining procedure: "(support.scm:437) chicken.compiler.support#alist-cons"
27697 o|removed call to pure procedure with unused result: "(support.scm:655) ##sys#slot"
27698 o|inlining procedure: "(support.scm:720) chicken.compiler.support#alist-cons"
27699 o|inlining procedure: k12467
27700 o|inlining procedure: "(support.scm:904) chicken.compiler.support#alist-cons"
27701 o|inlining procedure: k12801
27702 o|inlining procedure: k13186
27703 o|inlining procedure: k13934
27704 o|inlining procedure: k14403
27705 o|inlining procedure: k14418
27706 o|inlining procedure: k16545
27707 o|inlining procedure: k16545
27708 o|inlining procedure: k17034
27709 o|inlining procedure: k17034
27710 o|inlining procedure: "(support.scm:1635) fits?4282"
27711 o|inlining procedure: "(support.scm:1639) fits?4282"
27712 o|inlining procedure: "(support.scm:1641) fits?4282"
27713 o|inlining procedure: "(support.scm:1644) fits?4282"
27714 o|converted assignments to bindings: (fits?4282)
27715 o|inlining procedure: "(support.scm:1680) chicken.compiler.support#alist-cons"
27716 o|inlining procedure: "(support.scm:1680) chicken.compiler.support#alist-cons"
27717 o|inlining procedure: k17883
27718 o|inlining procedure: k17903
27719 o|inlining procedure: k17968
27720 o|inlining procedure: k18120
27721 o|simplifications: ((let . 1))
27722 o|replaced variables: 3
27723 o|removed binding forms: 764
27724 o|removed side-effect free assignment to unused variable: chicken.compiler.support#alist-cons
27725 o|inlining procedure: k9046
27726 o|contracted procedure: k10898
27727 o|substituted constant variable: r1246819740
27728 o|contracted procedure: k13100
27729 o|substituted constant variable: r1318719768
27730 o|substituted constant variable: r1440419772
27731 o|substituted constant variable: r1440419772
27732 o|substituted constant variable: r1441919775
27733 o|substituted constant variable: r1441919775
27734 o|inlining procedure: k16708
27735 o|inlining procedure: k16708
27736 o|substituted constant variable: r1703519796
27737 o|substituted constant variable: r1703519796
27738 o|substituted constant variable: r1703519799
27739 o|substituted constant variable: r1703519799
27740 o|contracted procedure: k17506
27741 o|contracted procedure: k17509
27742 o|substituted constant variable: z38219837
27743 o|substituted constant variable: r1788419843
27744 o|substituted constant variable: r1790419844
27745 o|substituted constant variable: r1796919845
27746 o|simplifications: ((let . 1))
27747 o|replaced variables: 35
27748 o|removed binding forms: 23
27749 o|removed conditional forms: 4
27750 o|substituted constant variable: r904719902
27751 o|substituted constant variable: r1670920012
27752 o|simplifications: ((if . 1) (let . 1))
27753 o|removed binding forms: 48
27754 o|removed conditional forms: 2
27755 o|replaced variables: 2
27756 o|removed binding forms: 2
27757 o|removed binding forms: 1
27758 o|simplifications: ((if . 107) (let . 52) (##core#call . 1518))
27759 o|  call simplifications:
27760 o|    chicken.base#bignum?
27761 o|    scheme#char=?
27762 o|    scheme#read-char	3
27763 o|    ##sys#size
27764 o|    chicken.fixnum#fx>	2
27765 o|    scheme#write-char	6
27766 o|    chicken.base#flonum?
27767 o|    scheme#procedure?
27768 o|    chicken.fixnum#fx+	3
27769 o|    scheme#string-length	4
27770 o|    scheme#string-ref
27771 o|    scheme#list?	5
27772 o|    scheme#vector-ref	6
27773 o|    scheme#vector	2
27774 o|    scheme#<
27775 o|    scheme#>	2
27776 o|    scheme#<=
27777 o|    scheme#-
27778 o|    ##sys#call-with-values	4
27779 o|    scheme#cddddr
27780 o|    scheme#list-ref	2
27781 o|    scheme#cdddr
27782 o|    scheme#caar	2
27783 o|    scheme#cadddr	4
27784 o|    scheme#caddr	10
27785 o|    scheme#cadr	45
27786 o|    ##sys#check-structure	12
27787 o|    ##sys#block-ref	9
27788 o|    ##sys#structure?	5
27789 o|    ##sys#make-structure	42
27790 o|    scheme#values	4
27791 o|    scheme#assq	16
27792 o|    scheme#length	8
27793 o|    ##sys#setslot	36
27794 o|    chicken.base#atom?
27795 o|    ##sys#apply	3
27796 o|    ##sys#cons	8
27797 o|    scheme#equal?	3
27798 o|    ##sys#list	139
27799 o|    chicken.base#fixnum?	2
27800 o|    scheme#number?	4
27801 o|    scheme#char?	4
27802 o|    scheme#string?	2
27803 o|    scheme#boolean?	4
27804 o|    scheme#vector?	2
27805 o|    scheme#eq?	369
27806 o|    scheme#eof-object?	7
27807 o|    scheme#member
27808 o|    scheme#cddr	4
27809 o|    scheme#list	65
27810 o|    scheme#string=?	2
27811 o|    ##sys#foreign-fixnum-argument	2
27812 o|    scheme#char-alphabetic?	2
27813 o|    scheme#char-numeric?
27814 o|    scheme#char->integer
27815 o|    chicken.fixnum#fx>=	3
27816 o|    chicken.fixnum#fx<	4
27817 o|    scheme#string->list	3
27818 o|    scheme#list->string
27819 o|    ##sys#check-list	42
27820 o|    ##sys#slot	191
27821 o|    scheme#symbol?	16
27822 o|    scheme#pair?	69
27823 o|    scheme#apply	7
27824 o|    scheme#memq	9
27825 o|    scheme#cdr	23
27826 o|    scheme#null?	47
27827 o|    scheme#not	23
27828 o|    chicken.fixnum#fx<=	7
27829 o|    scheme#car	89
27830 o|    chicken.fixnum#fx-	2
27831 o|    scheme#cons	113
27832 o|contracted procedure: k5487
27833 o|contracted procedure: k5494
27834 o|contracted procedure: k5504
27835 o|contracted procedure: k5751
27836 o|contracted procedure: k5760
27837 o|contracted procedure: k5773
27838 o|contracted procedure: k5788
27839 o|contracted procedure: k5803
27840 o|contracted procedure: k5818
27841 o|contracted procedure: k5829
27842 o|contracted procedure: k6164
27843 o|contracted procedure: k6154
27844 o|contracted procedure: k6213
27845 o|contracted procedure: k6239
27846 o|contracted procedure: k6219
27847 o|contracted procedure: k6233
27848 o|contracted procedure: k6664
27849 o|contracted procedure: k6692
27850 o|contracted procedure: k6728
27851 o|contracted procedure: k6758
27852 o|contracted procedure: k6768
27853 o|contracted procedure: k6772
27854 o|contracted procedure: k6854
27855 o|propagated global variable: out766769 chicken.compiler.support#collected-debugging-output
27856 o|contracted procedure: k6870
27857 o|contracted procedure: k6880
27858 o|contracted procedure: k6884
27859 o|contracted procedure: k6954
27860 o|contracted procedure: k6972
27861 o|contracted procedure: k6982
27862 o|contracted procedure: k6986
27863 o|contracted procedure: k7025
27864 o|contracted procedure: k7029
27865 o|contracted procedure: k7033
27866 o|contracted procedure: k7047
27867 o|contracted procedure: k7103
27868 o|contracted procedure: k7109
27869 o|contracted procedure: k7118
27870 o|contracted procedure: k7125
27871 o|contracted procedure: k7129
27872 o|contracted procedure: k7145
27873 o|contracted procedure: k7155
27874 o|contracted procedure: k7176
27875 o|contracted procedure: k7193
27876 o|contracted procedure: k7196
27877 o|contracted procedure: k7199
27878 o|contracted procedure: k7205
27879 o|contracted procedure: k7234
27880 o|contracted procedure: k7240
27881 o|contracted procedure: k7256
27882 o|contracted procedure: k7277
27883 o|contracted procedure: k7284
27884 o|contracted procedure: k7287
27885 o|contracted procedure: k7296
27886 o|contracted procedure: k7302
27887 o|contracted procedure: k7322
27888 o|contracted procedure: k7329
27889 o|contracted procedure: k7338
27890 o|contracted procedure: k7353
27891 o|contracted procedure: k7366
27892 o|contracted procedure: k7373
27893 o|contracted procedure: k7382
27894 o|contracted procedure: k7441
27895 o|contracted procedure: k7394
27896 o|contracted procedure: k7437
27897 o|contracted procedure: k7414
27898 o|inlining procedure: k7411
27899 o|inlining procedure: k7411
27900 o|contracted procedure: k7456
27901 o|contracted procedure: k7472
27902 o|contracted procedure: k7533
27903 o|contracted procedure: k7498
27904 o|contracted procedure: k7514
27905 o|contracted procedure: k7530
27906 o|contracted procedure: k7542
27907 o|contracted procedure: k7548
27908 o|contracted procedure: k7554
27909 o|contracted procedure: k7560
27910 o|contracted procedure: k7566
27911 o|contracted procedure: k7578
27912 o|contracted procedure: k7593
27913 o|contracted procedure: k7604
27914 o|contracted procedure: k7610
27915 o|contracted procedure: k7616
27916 o|contracted procedure: k7622
27917 o|contracted procedure: k7640
27918 o|contracted procedure: k7646
27919 o|contracted procedure: k7652
27920 o|contracted procedure: k7658
27921 o|contracted procedure: k7667
27922 o|contracted procedure: k7680
27923 o|contracted procedure: k7686
27924 o|contracted procedure: k7707
27925 o|contracted procedure: k7723
27926 o|contracted procedure: k7745
27927 o|contracted procedure: k7803
27928 o|contracted procedure: k7751
27929 o|contracted procedure: k7759
27930 o|contracted procedure: k7784
27931 o|contracted procedure: k7774
27932 o|contracted procedure: k7863
27933 o|contracted procedure: k7877
27934 o|contracted procedure: k7869
27935 o|contracted procedure: k7895
27936 o|contracted procedure: k7909
27937 o|contracted procedure: k7945
27938 o|contracted procedure: k7951
27939 o|contracted procedure: k7960
27940 o|contracted procedure: k7970
27941 o|contracted procedure: k7974
27942 o|contracted procedure: k597919594
27943 o|contracted procedure: k7994
27944 o|propagated global variable: z38219591 chicken.compiler.support#profile-lambda-list
27945 o|contracted procedure: k8039
27946 o|contracted procedure: k8035
27947 o|contracted procedure: k8007
27948 o|contracted procedure: k8031
27949 o|contracted procedure: k8027
27950 o|contracted procedure: k8011
27951 o|contracted procedure: k8023
27952 o|contracted procedure: k8019
27953 o|contracted procedure: k8015
27954 o|contracted procedure: k8003
27955 o|contracted procedure: k8128
27956 o|contracted procedure: k8120
27957 o|contracted procedure: k8124
27958 o|contracted procedure: k8116
27959 o|contracted procedure: k8049
27960 o|contracted procedure: k8053
27961 o|contracted procedure: k8075
27962 o|contracted procedure: k8087
27963 o|contracted procedure: k8109
27964 o|contracted procedure: k8072
27965 o|contracted procedure: k8062
27966 o|contracted procedure: k8066
27967 o|contracted procedure: k8105
27968 o|contracted procedure: k8090
27969 o|contracted procedure: k8093
27970 o|contracted procedure: k8101
27971 o|propagated global variable: g11531157 chicken.compiler.support#profile-lambda-list
27972 o|contracted procedure: k8140
27973 o|contracted procedure: k6029
27974 o|contracted procedure: k6041
27975 o|contracted procedure: k6064
27976 o|contracted procedure: k6072
27977 o|contracted procedure: k8176
27978 o|contracted procedure: k8196
27979 o|contracted procedure: k597919605
27980 o|contracted procedure: k8192
27981 o|contracted procedure: k8210
27982 o|contracted procedure: k8206
27983 o|contracted procedure: k8222
27984 o|contracted procedure: k8236
27985 o|contracted procedure: k8232
27986 o|contracted procedure: k8247
27987 o|contracted procedure: k8251
27988 o|contracted procedure: k597919612
27989 o|contracted procedure: k8243
27990 o|contracted procedure: k8262
27991 o|contracted procedure: k8258
27992 o|contracted procedure: k8281
27993 o|contracted procedure: k8287
27994 o|contracted procedure: k8305
27995 o|contracted procedure: k8309
27996 o|contracted procedure: k8322
27997 o|contracted procedure: k8353
27998 o|contracted procedure: k8356
27999 o|contracted procedure: k8368
28000 o|contracted procedure: k8390
28001 o|contracted procedure: k8386
28002 o|contracted procedure: k8371
28003 o|contracted procedure: k8374
28004 o|contracted procedure: k8382
28005 o|contracted procedure: k8412
28006 o|contracted procedure: k8421
28007 o|contracted procedure: k8430
28008 o|contracted procedure: k8439
28009 o|contracted procedure: k8448
28010 o|contracted procedure: k8457
28011 o|contracted procedure: k8484
28012 o|contracted procedure: k8499
28013 o|contracted procedure: k8511
28014 o|contracted procedure: k8525
28015 o|contracted procedure: k9685
28016 o|contracted procedure: k8531
28017 o|contracted procedure: k9681
28018 o|contracted procedure: k8540
28019 o|contracted procedure: k8547
28020 o|contracted procedure: k8550
28021 o|contracted procedure: k8564
28022 o|contracted procedure: k8568
28023 o|contracted procedure: k8580
28024 o|contracted procedure: k8583
28025 o|contracted procedure: k8586
28026 o|contracted procedure: k8594
28027 o|contracted procedure: k8602
28028 o|contracted procedure: k8611
28029 o|contracted procedure: k8614
28030 o|contracted procedure: k8637
28031 o|contracted procedure: k8643
28032 o|contracted procedure: k8654
28033 o|contracted procedure: k8657
28034 o|contracted procedure: k8660
28035 o|contracted procedure: k8666
28036 o|contracted procedure: k8689
28037 o|contracted procedure: k8698
28038 o|contracted procedure: k8701
28039 o|contracted procedure: k8704
28040 o|contracted procedure: k8711
28041 o|contracted procedure: k8724
28042 o|contracted procedure: k8727
28043 o|contracted procedure: k8730
28044 o|contracted procedure: k8738
28045 o|contracted procedure: k8746
28046 o|contracted procedure: k6094
28047 o|contracted procedure: k6102
28048 o|contracted procedure: k6114
28049 o|contracted procedure: k6136
28050 o|contracted procedure: k6132
28051 o|contracted procedure: k6117
28052 o|contracted procedure: k6120
28053 o|contracted procedure: k6128
28054 o|contracted procedure: k8755
28055 o|contracted procedure: k8758
28056 o|contracted procedure: k8786
28057 o|contracted procedure: k8770
28058 o|contracted procedure: k8774
28059 o|contracted procedure: k8782
28060 o|contracted procedure: k8792
28061 o|contracted procedure: k8820
28062 o|contracted procedure: k8824
28063 o|contracted procedure: k8804
28064 o|contracted procedure: k8808
28065 o|contracted procedure: k8816
28066 o|contracted procedure: k8830
28067 o|contracted procedure: k8837
28068 o|contracted procedure: k8841
28069 o|contracted procedure: k8850
28070 o|contracted procedure: k8883
28071 o|contracted procedure: k8862
28072 o|contracted procedure: k8879
28073 o|contracted procedure: k8870
28074 o|contracted procedure: k8962
28075 o|contracted procedure: k8893
28076 o|contracted procedure: k8925
28077 o|contracted procedure: k8905
28078 o|contracted procedure: k8913
28079 o|contracted procedure: k8933
28080 o|contracted procedure: k8958
28081 o|contracted procedure: k8942
28082 o|contracted procedure: k8946
28083 o|contracted procedure: k8976
28084 o|contracted procedure: k8979
28085 o|contracted procedure: k8997
28086 o|contracted procedure: k9002
28087 o|contracted procedure: k9014
28088 o|contracted procedure: k9017
28089 o|contracted procedure: k9020
28090 o|contracted procedure: k9028
28091 o|contracted procedure: k9036
28092 o|contracted procedure: k9052
28093 o|contracted procedure: k9046
28094 o|contracted procedure: k9043
28095 o|contracted procedure: k9063
28096 o|contracted procedure: k9130
28097 o|contracted procedure: k9080
28098 o|contracted procedure: k9084
28099 o|contracted procedure: k9089
28100 o|contracted procedure: k9101
28101 o|contracted procedure: k9104
28102 o|contracted procedure: k9107
28103 o|contracted procedure: k9115
28104 o|contracted procedure: k9123
28105 o|contracted procedure: k9136
28106 o|contracted procedure: k9154
28107 o|contracted procedure: k9170
28108 o|contracted procedure: k9166
28109 o|contracted procedure: k9176
28110 o|contracted procedure: k9179
28111 o|contracted procedure: k9241
28112 o|contracted procedure: k9191
28113 o|contracted procedure: k9195
28114 o|contracted procedure: k9200
28115 o|contracted procedure: k9212
28116 o|contracted procedure: k9215
28117 o|contracted procedure: k9218
28118 o|contracted procedure: k9226
28119 o|contracted procedure: k9234
28120 o|contracted procedure: k9247
28121 o|contracted procedure: k9302
28122 o|contracted procedure: k9250
28123 o|contracted procedure: k9298
28124 o|contracted procedure: k9278
28125 o|contracted procedure: k9294
28126 o|contracted procedure: k9282
28127 o|contracted procedure: k5934
28128 o|contracted procedure: k9290
28129 o|contracted procedure: k9286
28130 o|contracted procedure: k9262
28131 o|contracted procedure: k9266
28132 o|contracted procedure: k9274
28133 o|contracted procedure: k9308
28134 o|contracted procedure: k9323
28135 o|contracted procedure: k9327
28136 o|contracted procedure: k9331
28137 o|contracted procedure: k9334
28138 o|contracted procedure: k9337
28139 o|contracted procedure: k9349
28140 o|contracted procedure: k9352
28141 o|contracted procedure: k9355
28142 o|contracted procedure: k9363
28143 o|contracted procedure: k9371
28144 o|contracted procedure: k9380
28145 o|contracted procedure: k9392
28146 o|contracted procedure: k9396
28147 o|contracted procedure: k9400
28148 o|contracted procedure: k9412
28149 o|contracted procedure: k9415
28150 o|contracted procedure: k9418
28151 o|contracted procedure: k9426
28152 o|contracted procedure: k9434
28153 o|contracted procedure: k9461
28154 o|contracted procedure: k9465
28155 o|contracted procedure: k9468
28156 o|contracted procedure: k9480
28157 o|contracted procedure: k9483
28158 o|contracted procedure: k9486
28159 o|contracted procedure: k9494
28160 o|contracted procedure: k9502
28161 o|contracted procedure: k9544
28162 o|contracted procedure: k9550
28163 o|contracted procedure: k9556
28164 o|contracted procedure: k9588
28165 o|contracted procedure: k9636
28166 o|contracted procedure: k9640
28167 o|contracted procedure: k9652
28168 o|contracted procedure: k9655
28169 o|contracted procedure: k9658
28170 o|contracted procedure: k9666
28171 o|contracted procedure: k9674
28172 o|contracted procedure: k9712
28173 o|contracted procedure: k9720
28174 o|contracted procedure: k9728
28175 o|contracted procedure: k9734
28176 o|contracted procedure: k9744
28177 o|contracted procedure: k9747
28178 o|contracted procedure: k9759
28179 o|contracted procedure: k9762
28180 o|contracted procedure: k9765
28181 o|contracted procedure: k9773
28182 o|contracted procedure: k9781
28183 o|contracted procedure: k9790
28184 o|contracted procedure: k9801
28185 o|contracted procedure: k9804
28186 o|contracted procedure: k9797
28187 o|contracted procedure: k9816
28188 o|contracted procedure: k9819
28189 o|contracted procedure: k9822
28190 o|contracted procedure: k9830
28191 o|contracted procedure: k9838
28192 o|contracted procedure: k9847
28193 o|contracted procedure: k9856
28194 o|contracted procedure: k9859
28195 o|contracted procedure: k9865
28196 o|inlining procedure: k9868
28197 o|contracted procedure: k9876
28198 o|inlining procedure: k9868
28199 o|contracted procedure: k9882
28200 o|contracted procedure: k9894
28201 o|contracted procedure: k9901
28202 o|contracted procedure: k9904
28203 o|contracted procedure: k9913
28204 o|contracted procedure: k9916
28205 o|contracted procedure: k9972
28206 o|contracted procedure: k9936
28207 o|contracted procedure: k9962
28208 o|contracted procedure: k9966
28209 o|contracted procedure: k9958
28210 o|contracted procedure: k9939
28211 o|contracted procedure: k9942
28212 o|contracted procedure: k9950
28213 o|contracted procedure: k9954
28214 o|contracted procedure: k9984
28215 o|contracted procedure: k9987
28216 o|contracted procedure: k9990
28217 o|contracted procedure: k9998
28218 o|contracted procedure: k10006
28219 o|contracted procedure: k10015
28220 o|contracted procedure: k10037
28221 o|contracted procedure: k10022
28222 o|contracted procedure: k10026
28223 o|contracted procedure: k10034
28224 o|contracted procedure: k10043
28225 o|contracted procedure: k10050
28226 o|contracted procedure: k10058
28227 o|contracted procedure: k10064
28228 o|contracted procedure: k10071
28229 o|contracted procedure: k10077
28230 o|contracted procedure: k10084
28231 o|contracted procedure: k10096
28232 o|contracted procedure: k10100
28233 o|contracted procedure: k10109
28234 o|contracted procedure: k10115
28235 o|contracted procedure: k10122
28236 o|contracted procedure: k10130
28237 o|contracted procedure: k10149
28238 o|contracted procedure: k10137
28239 o|contracted procedure: k10157
28240 o|contracted procedure: k10161
28241 o|contracted procedure: k10167
28242 o|contracted procedure: k10170
28243 o|contracted procedure: k10173
28244 o|contracted procedure: k10185
28245 o|contracted procedure: k10188
28246 o|contracted procedure: k10191
28247 o|contracted procedure: k10199
28248 o|contracted procedure: k10207
28249 o|contracted procedure: k10216
28250 o|contracted procedure: k10223
28251 o|contracted procedure: k10227
28252 o|contracted procedure: k10230
28253 o|contracted procedure: k10242
28254 o|contracted procedure: k10245
28255 o|contracted procedure: k10248
28256 o|contracted procedure: k10256
28257 o|contracted procedure: k10264
28258 o|contracted procedure: k10273
28259 o|contracted procedure: k10282
28260 o|contracted procedure: k10289
28261 o|contracted procedure: k10311
28262 o|contracted procedure: k10318
28263 o|contracted procedure: k10322
28264 o|contracted procedure: k10326
28265 o|contracted procedure: k10338
28266 o|contracted procedure: k10352
28267 o|contracted procedure: k10356
28268 o|contracted procedure: k10368
28269 o|contracted procedure: k10371
28270 o|contracted procedure: k10374
28271 o|contracted procedure: k10382
28272 o|contracted procedure: k10390
28273 o|contracted procedure: k10397
28274 o|contracted procedure: k10403
28275 o|contracted procedure: k10410
28276 o|contracted procedure: k10413
28277 o|contracted procedure: k10425
28278 o|contracted procedure: k10428
28279 o|contracted procedure: k10431
28280 o|contracted procedure: k10439
28281 o|contracted procedure: k10447
28282 o|contracted procedure: k10461
28283 o|contracted procedure: k10464
28284 o|contracted procedure: k10476
28285 o|contracted procedure: k10479
28286 o|contracted procedure: k10482
28287 o|contracted procedure: k10490
28288 o|contracted procedure: k10498
28289 o|contracted procedure: k10506
28290 o|contracted procedure: k10512
28291 o|contracted procedure: k10553
28292 o|contracted procedure: k10617
28293 o|contracted procedure: k10580
28294 o|contracted procedure: k10595
28295 o|contracted procedure: k10609
28296 o|contracted procedure: k10613
28297 o|contracted procedure: k5545
28298 o|contracted procedure: k5559
28299 o|contracted procedure: k5569
28300 o|contracted procedure: k5563
28301 o|contracted procedure: k10647
28302 o|contracted procedure: k10655
28303 o|contracted procedure: k10680
28304 o|contracted procedure: k10695
28305 o|contracted procedure: k10701
28306 o|contracted procedure: k10713
28307 o|contracted procedure: k10717
28308 o|contracted procedure: k10724
28309 o|contracted procedure: k10745
28310 o|contracted procedure: k10739
28311 o|contracted procedure: k10785
28312 o|contracted procedure: k10765
28313 o|contracted procedure: k10773
28314 o|contracted procedure: k10769
28315 o|contracted procedure: k10817
28316 o|contracted procedure: k10797
28317 o|contracted procedure: k10805
28318 o|contracted procedure: k10801
28319 o|contracted procedure: k10831
28320 o|contracted procedure: k10849
28321 o|contracted procedure: k10859
28322 o|contracted procedure: k10863
28323 o|contracted procedure: k11469
28324 o|contracted procedure: k11477
28325 o|contracted procedure: k11485
28326 o|contracted procedure: k11491
28327 o|contracted procedure: k11520
28328 o|contracted procedure: k11497
28329 o|contracted procedure: k11512
28330 o|contracted procedure: k11516
28331 o|contracted procedure: k11508
28332 o|contracted procedure: k11526
28333 o|contracted procedure: k11591
28334 o|contracted procedure: k11532
28335 o|contracted procedure: k11535
28336 o|contracted procedure: k11538
28337 o|contracted procedure: k11544
28338 o|contracted procedure: k11555
28339 o|contracted procedure: k11571
28340 o|contracted procedure: k11575
28341 o|contracted procedure: k11567
28342 o|contracted procedure: k11597
28343 o|contracted procedure: k11654
28344 o|contracted procedure: k11603
28345 o|contracted procedure: k11614
28346 o|contracted procedure: k11646
28347 o|contracted procedure: k11650
28348 o|contracted procedure: k11642
28349 o|contracted procedure: k11657
28350 o|contracted procedure: k11669
28351 o|contracted procedure: k11679
28352 o|contracted procedure: k11683
28353 o|contracted procedure: k10876
28354 o|contracted procedure: k10879
28355 o|contracted procedure: k10882
28356 o|contracted procedure: k10890
28357 o|contracted procedure: k10953
28358 o|contracted procedure: k10956
28359 o|contracted procedure: k10959
28360 o|contracted procedure: k10979
28361 o|contracted procedure: k10987
28362 o|contracted procedure: k10995
28363 o|contracted procedure: k11001
28364 o|contracted procedure: k11015
28365 o|contracted procedure: k11018
28366 o|contracted procedure: k11040
28367 o|contracted procedure: k11052
28368 o|contracted procedure: k11056
28369 o|contracted procedure: k11064
28370 o|contracted procedure: k11072
28371 o|contracted procedure: k11078
28372 o|contracted procedure: k11081
28373 o|contracted procedure: k597919705
28374 o|contracted procedure: k11090
28375 o|contracted procedure: k11105
28376 o|contracted procedure: k11109
28377 o|contracted procedure: k11117
28378 o|contracted procedure: k11121
28379 o|contracted procedure: k11127
28380 o|contracted procedure: k11134
28381 o|contracted procedure: k11140
28382 o|contracted procedure: k11151
28383 o|contracted procedure: k11226
28384 o|contracted procedure: k11234
28385 o|contracted procedure: k11169
28386 o|contracted procedure: k11173
28387 o|contracted procedure: k11181
28388 o|contracted procedure: k11193
28389 o|contracted procedure: k11196
28390 o|contracted procedure: k11199
28391 o|contracted procedure: k11207
28392 o|contracted procedure: k11215
28393 o|contracted procedure: k11245
28394 o|contracted procedure: k11248
28395 o|contracted procedure: k11296
28396 o|contracted procedure: k11260
28397 o|contracted procedure: k11286
28398 o|contracted procedure: k11290
28399 o|contracted procedure: k11282
28400 o|contracted procedure: k11263
28401 o|contracted procedure: k11266
28402 o|contracted procedure: k11274
28403 o|contracted procedure: k11278
28404 o|contracted procedure: k11308
28405 o|contracted procedure: k11311
28406 o|contracted procedure: k11314
28407 o|contracted procedure: k11322
28408 o|contracted procedure: k11330
28409 o|contracted procedure: k11349
28410 o|contracted procedure: k11357
28411 o|contracted procedure: k11369
28412 o|contracted procedure: k11372
28413 o|contracted procedure: k11375
28414 o|contracted procedure: k11383
28415 o|contracted procedure: k11391
28416 o|contracted procedure: k11452
28417 o|contracted procedure: k11416
28418 o|contracted procedure: k11442
28419 o|contracted procedure: k11446
28420 o|contracted procedure: k11438
28421 o|contracted procedure: k11419
28422 o|contracted procedure: k11422
28423 o|contracted procedure: k11430
28424 o|contracted procedure: k11434
28425 o|contracted procedure: k10907
28426 o|contracted procedure: k10910
28427 o|contracted procedure: k10922
28428 o|contracted procedure: k10925
28429 o|contracted procedure: k10928
28430 o|contracted procedure: k10936
28431 o|contracted procedure: k10944
28432 o|contracted procedure: k11701
28433 o|contracted procedure: k11713
28434 o|contracted procedure: k11717
28435 o|contracted procedure: k11725
28436 o|contracted procedure: k11731
28437 o|contracted procedure: k11739
28438 o|contracted procedure: k11764
28439 o|contracted procedure: k11768
28440 o|contracted procedure: k11760
28441 o|contracted procedure: k11774
28442 o|contracted procedure: k11786
28443 o|contracted procedure: k11807
28444 o|contracted procedure: k11811
28445 o|contracted procedure: k11803
28446 o|contracted procedure: k11790
28447 o|contracted procedure: k11815
28448 o|contracted procedure: k11821
28449 o|contracted procedure: k11833
28450 o|contracted procedure: k11837
28451 o|contracted procedure: k11845
28452 o|contracted procedure: k11871
28453 o|contracted procedure: k11906
28454 o|contracted procedure: k11915
28455 o|contracted procedure: k11924
28456 o|contracted procedure: k11945
28457 o|contracted procedure: k11954
28458 o|contracted procedure: k11963
28459 o|contracted procedure: k12140
28460 o|contracted procedure: k12146
28461 o|contracted procedure: k12162
28462 o|contracted procedure: k12153
28463 o|contracted procedure: k12174
28464 o|contracted procedure: k12199
28465 o|contracted procedure: k12211
28466 o|contracted procedure: k12221
28467 o|contracted procedure: k12225
28468 o|contracted procedure: k12228
28469 o|contracted procedure: k12263
28470 o|contracted procedure: k12273
28471 o|contracted procedure: k12277
28472 o|contracted procedure: k12293
28473 o|contracted procedure: k12429
28474 o|contracted procedure: k12299
28475 o|contracted procedure: k12305
28476 o|contracted procedure: k12308
28477 o|contracted procedure: k12317
28478 o|contracted procedure: k12409
28479 o|contracted procedure: k12328
28480 o|contracted procedure: k12334
28481 o|contracted procedure: k12354
28482 o|contracted procedure: k12361
28483 o|contracted procedure: k12369
28484 o|contracted procedure: k12365
28485 o|contracted procedure: k11984
28486 o|contracted procedure: k11997
28487 o|contracted procedure: k12001
28488 o|contracted procedure: k12009
28489 o|contracted procedure: k12012
28490 o|contracted procedure: k11988
28491 o|contracted procedure: k12024
28492 o|contracted procedure: k12027
28493 o|contracted procedure: k12030
28494 o|contracted procedure: k12038
28495 o|contracted procedure: k12046
28496 o|contracted procedure: k12384
28497 o|contracted procedure: k12390
28498 o|contracted procedure: k12397
28499 o|contracted procedure: k12420
28500 o|contracted procedure: k12416
28501 o|contracted procedure: k12462
28502 o|contracted procedure: k12486
28503 o|contracted procedure: k12473
28504 o|contracted procedure: k12467
28505 o|contracted procedure: k12494
28506 o|contracted procedure: k12070
28507 o|contracted procedure: k12074
28508 o|contracted procedure: k12078
28509 o|contracted procedure: k12083
28510 o|contracted procedure: k12095
28511 o|contracted procedure: k12098
28512 o|contracted procedure: k12101
28513 o|contracted procedure: k12109
28514 o|contracted procedure: k12117
28515 o|contracted procedure: k12503
28516 o|contracted procedure: k12515
28517 o|contracted procedure: k12524
28518 o|contracted procedure: k597919757
28519 o|contracted procedure: k12528
28520 o|contracted procedure: k12578
28521 o|contracted procedure: k12540
28522 o|contracted procedure: k12574
28523 o|contracted procedure: k12549
28524 o|contracted procedure: k12566
28525 o|contracted procedure: k12570
28526 o|contracted procedure: k12700
28527 o|contracted procedure: k12587
28528 o|contracted procedure: k12692
28529 o|contracted procedure: k12696
28530 o|contracted procedure: k12596
28531 o|contracted procedure: k12614
28532 o|contracted procedure: k12618
28533 o|contracted procedure: k12627
28534 o|contracted procedure: k12670
28535 o|contracted procedure: k12636
28536 o|contracted procedure: k12645
28537 o|contracted procedure: k12662
28538 o|contracted procedure: k12666
28539 o|contracted procedure: k12679
28540 o|contracted procedure: k12683
28541 o|contracted procedure: k12718
28542 o|contracted procedure: k12727
28543 o|contracted procedure: k12744
28544 o|contracted procedure: k12752
28545 o|contracted procedure: k12758
28546 o|contracted procedure: k12767
28547 o|contracted procedure: k12792
28548 o|contracted procedure: k12770
28549 o|contracted procedure: k6509
28550 o|contracted procedure: k6525
28551 o|contracted procedure: k12798
28552 o|contracted procedure: k12801
28553 o|contracted procedure: k12816
28554 o|contracted procedure: k12822
28555 o|contracted procedure: k12847
28556 o|contracted procedure: k12850
28557 o|contracted procedure: k12959
28558 o|contracted procedure: k12853
28559 o|contracted procedure: k12862
28560 o|contracted procedure: k12876
28561 o|contracted procedure: k12882
28562 o|contracted procedure: k12890
28563 o|contracted procedure: k12893
28564 o|contracted procedure: k12934
28565 o|contracted procedure: k12899
28566 o|contracted procedure: k12925
28567 o|contracted procedure: k12916
28568 o|contracted procedure: k12905
28569 o|contracted procedure: k12912
28570 o|contracted procedure: k12940
28571 o|contracted procedure: k12952
28572 o|contracted procedure: k12986
28573 o|contracted procedure: k12992
28574 o|contracted procedure: k12999
28575 o|contracted procedure: k13027
28576 o|contracted procedure: k13033
28577 o|contracted procedure: k13082
28578 o|contracted procedure: k13055
28579 o|contracted procedure: k13058
28580 o|contracted procedure: k13079
28581 o|contracted procedure: k13072
28582 o|inlining procedure: k13068
28583 o|inlining procedure: k13068
28584 o|contracted procedure: k13109
28585 o|contracted procedure: k13135
28586 o|contracted procedure: k13144
28587 o|contracted procedure: k13153
28588 o|contracted procedure: k13162
28589 o|contracted procedure: k13171
28590 o|contracted procedure: k13181
28591 o|contracted procedure: k13192
28592 o|contracted procedure: k13186
28593 o|contracted procedure: k13267
28594 o|contracted procedure: k13222
28595 o|contracted procedure: k13261
28596 o|contracted procedure: k13225
28597 o|contracted procedure: k13255
28598 o|contracted procedure: k13228
28599 o|contracted procedure: k13249
28600 o|contracted procedure: k13231
28601 o|contracted procedure: k13242
28602 o|contracted procedure: k13238
28603 o|contracted procedure: k13297
28604 o|contracted procedure: k13300
28605 o|contracted procedure: k13312
28606 o|contracted procedure: k13327
28607 o|contracted procedure: k13342
28608 o|contracted procedure: k13345
28609 o|contracted procedure: k13374
28610 o|contracted procedure: k13355
28611 o|contracted procedure: k13363
28612 o|contracted procedure: k13367
28613 o|contracted procedure: k13359
28614 o|contracted procedure: k13380
28615 o|contracted procedure: k13383
28616 o|contracted procedure: k13395
28617 o|contracted procedure: k13428
28618 o|contracted procedure: k13405
28619 o|contracted procedure: k13417
28620 o|contracted procedure: k13409
28621 o|contracted procedure: k13424
28622 o|contracted procedure: k13434
28623 o|contracted procedure: k13444
28624 o|contracted procedure: k13450
28625 o|contracted procedure: k13486
28626 o|contracted procedure: k13463
28627 o|contracted procedure: k13475
28628 o|contracted procedure: k13467
28629 o|contracted procedure: k13482
28630 o|contracted procedure: k13492
28631 o|contracted procedure: k13509
28632 o|contracted procedure: k13505
28633 o|contracted procedure: k13518
28634 o|contracted procedure: k13524
28635 o|contracted procedure: k13552
28636 o|contracted procedure: k13561
28637 o|contracted procedure: k13599
28638 o|contracted procedure: k13567
28639 o|contracted procedure: k13595
28640 o|contracted procedure: k13605
28641 o|contracted procedure: k13634
28642 o|contracted procedure: k13618
28643 o|contracted procedure: k13626
28644 o|contracted procedure: k13630
28645 o|contracted procedure: k13622
28646 o|contracted procedure: k13640
28647 o|contracted procedure: k13649
28648 o|contracted procedure: k13688
28649 o|contracted procedure: k13662
28650 o|contracted procedure: k13674
28651 o|contracted procedure: k13666
28652 o|contracted procedure: k13684
28653 o|contracted procedure: k13694
28654 o|contracted procedure: k13710
28655 o|contracted procedure: k13716
28656 o|contracted procedure: k13726
28657 o|contracted procedure: k13737
28658 o|contracted procedure: k13733
28659 o|contracted procedure: k13752
28660 o|contracted procedure: k13761
28661 o|contracted procedure: k13768
28662 o|contracted procedure: k13797
28663 o|contracted procedure: k13781
28664 o|contracted procedure: k13789
28665 o|contracted procedure: k13793
28666 o|contracted procedure: k13785
28667 o|contracted procedure: k13803
28668 o|contracted procedure: k13806
28669 o|contracted procedure: k13836
28670 o|contracted procedure: k13816
28671 o|contracted procedure: k13832
28672 o|contracted procedure: k13824
28673 o|contracted procedure: k13828
28674 o|contracted procedure: k13820
28675 o|contracted procedure: k13842
28676 o|contracted procedure: k13871
28677 o|contracted procedure: k13852
28678 o|contracted procedure: k13860
28679 o|contracted procedure: k13864
28680 o|contracted procedure: k13856
28681 o|contracted procedure: k13877
28682 o|contracted procedure: k13889
28683 o|contracted procedure: k13896
28684 o|contracted procedure: k13902
28685 o|contracted procedure: k13909
28686 o|contracted procedure: k13915
28687 o|contracted procedure: k13925
28688 o|contracted procedure: k13931
28689 o|contracted procedure: k13934
28690 o|contracted procedure: k13964
28691 o|contracted procedure: k13970
28692 o|contracted procedure: k13987
28693 o|contracted procedure: k13995
28694 o|contracted procedure: k14010
28695 o|contracted procedure: k14016
28696 o|contracted procedure: k14035
28697 o|contracted procedure: k14050
28698 o|contracted procedure: k14056
28699 o|contracted procedure: k14062
28700 o|contracted procedure: k14068
28701 o|contracted procedure: k14089
28702 o|contracted procedure: k14095
28703 o|contracted procedure: k14101
28704 o|contracted procedure: k14107
28705 o|contracted procedure: k14128
28706 o|contracted procedure: k14134
28707 o|contracted procedure: k14140
28708 o|contracted procedure: k14146
28709 o|contracted procedure: k14152
28710 o|contracted procedure: k14158
28711 o|contracted procedure: k14164
28712 o|contracted procedure: k14170
28713 o|contracted procedure: k14199
28714 o|contracted procedure: k14205
28715 o|contracted procedure: k14211
28716 o|contracted procedure: k14217
28717 o|contracted procedure: k14223
28718 o|contracted procedure: k14229
28719 o|contracted procedure: k14235
28720 o|contracted procedure: k14241
28721 o|contracted procedure: k14288
28722 o|contracted procedure: k14303
28723 o|contracted procedure: k14309
28724 o|contracted procedure: k14315
28725 o|contracted procedure: k14321
28726 o|contracted procedure: k14358
28727 o|contracted procedure: k14370
28728 o|contracted procedure: k14379
28729 o|contracted procedure: k14391
28730 o|contracted procedure: k14403
28731 o|contracted procedure: k14418
28732 o|contracted procedure: k14448
28733 o|contracted procedure: k14454
28734 o|contracted procedure: k14484
28735 o|contracted procedure: k14493
28736 o|contracted procedure: k14505
28737 o|contracted procedure: k14517
28738 o|contracted procedure: k14529
28739 o|contracted procedure: k14550
28740 o|contracted procedure: k14559
28741 o|contracted procedure: k14566
28742 o|contracted procedure: k14578
28743 o|contracted procedure: k14585
28744 o|contracted procedure: k14591
28745 o|contracted procedure: k14604
28746 o|contracted procedure: k14610
28747 o|contracted procedure: k14616
28748 o|contracted procedure: k14622
28749 o|contracted procedure: k14628
28750 o|contracted procedure: k14634
28751 o|contracted procedure: k14640
28752 o|contracted procedure: k14670
28753 o|contracted procedure: k14676
28754 o|contracted procedure: k14682
28755 o|contracted procedure: k14699
28756 o|contracted procedure: k14714
28757 o|contracted procedure: k14720
28758 o|contracted procedure: k14726
28759 o|contracted procedure: k14732
28760 o|contracted procedure: k14753
28761 o|contracted procedure: k14759
28762 o|contracted procedure: k14765
28763 o|contracted procedure: k14771
28764 o|contracted procedure: k14777
28765 o|contracted procedure: k14783
28766 o|contracted procedure: k14789
28767 o|contracted procedure: k14795
28768 o|contracted procedure: k14801
28769 o|contracted procedure: k14807
28770 o|contracted procedure: k14840
28771 o|contracted procedure: k14846
28772 o|contracted procedure: k14852
28773 o|contracted procedure: k14858
28774 o|contracted procedure: k14864
28775 o|contracted procedure: k14870
28776 o|contracted procedure: k14876
28777 o|contracted procedure: k14882
28778 o|contracted procedure: k14888
28779 o|contracted procedure: k14894
28780 o|contracted procedure: k14900
28781 o|contracted procedure: k14959
28782 o|contracted procedure: k14971
28783 o|contracted procedure: k14992
28784 o|contracted procedure: k15001
28785 o|contracted procedure: k15008
28786 o|contracted procedure: k15020
28787 o|contracted procedure: k15027
28788 o|contracted procedure: k15035
28789 o|contracted procedure: k15041
28790 o|contracted procedure: k15047
28791 o|contracted procedure: k15053
28792 o|contracted procedure: k15059
28793 o|contracted procedure: k15065
28794 o|contracted procedure: k15071
28795 o|contracted procedure: k15101
28796 o|contracted procedure: k15107
28797 o|contracted procedure: k15113
28798 o|contracted procedure: k15119
28799 o|contracted procedure: k15138
28800 o|contracted procedure: k15144
28801 o|contracted procedure: k15150
28802 o|contracted procedure: k15156
28803 o|contracted procedure: k15162
28804 o|contracted procedure: k15168
28805 o|contracted procedure: k15174
28806 o|contracted procedure: k15180
28807 o|contracted procedure: k15186
28808 o|contracted procedure: k15192
28809 o|contracted procedure: k15198
28810 o|contracted procedure: k15204
28811 o|contracted procedure: k15210
28812 o|contracted procedure: k15216
28813 o|contracted procedure: k15222
28814 o|contracted procedure: k15228
28815 o|contracted procedure: k15234
28816 o|contracted procedure: k15240
28817 o|contracted procedure: k15246
28818 o|contracted procedure: k15252
28819 o|contracted procedure: k15258
28820 o|contracted procedure: k15264
28821 o|contracted procedure: k15270
28822 o|contracted procedure: k15276
28823 o|contracted procedure: k15282
28824 o|contracted procedure: k15288
28825 o|contracted procedure: k15294
28826 o|contracted procedure: k15300
28827 o|contracted procedure: k15306
28828 o|contracted procedure: k15312
28829 o|contracted procedure: k15400
28830 o|contracted procedure: k15403
28831 o|contracted procedure: k15410
28832 o|contracted procedure: k15416
28833 o|contracted procedure: k15423
28834 o|contracted procedure: k15429
28835 o|contracted procedure: k15432
28836 o|contracted procedure: k15439
28837 o|contracted procedure: k15445
28838 o|contracted procedure: k15448
28839 o|contracted procedure: k15455
28840 o|contracted procedure: k15461
28841 o|contracted procedure: k15472
28842 o|contracted procedure: k15468
28843 o|contracted procedure: k15478
28844 o|contracted procedure: k15485
28845 o|contracted procedure: k15491
28846 o|contracted procedure: k15498
28847 o|contracted procedure: k15504
28848 o|contracted procedure: k15517
28849 o|contracted procedure: k15604
28850 o|contracted procedure: k15523
28851 o|contracted procedure: k15526
28852 o|contracted procedure: k15532
28853 o|contracted procedure: k15535
28854 o|contracted procedure: k15573
28855 o|contracted procedure: k15545
28856 o|contracted procedure: k15569
28857 o|contracted procedure: k15553
28858 o|contracted procedure: k15561
28859 o|contracted procedure: k15565
28860 o|contracted procedure: k15557
28861 o|contracted procedure: k15549
28862 o|contracted procedure: k15579
28863 o|contracted procedure: k15586
28864 o|contracted procedure: k15590
28865 o|contracted procedure: k15627
28866 o|contracted procedure: k15607
28867 o|contracted procedure: k15623
28868 o|contracted procedure: k15613
28869 o|contracted procedure: k15617
28870 o|contracted procedure: k15677
28871 o|contracted procedure: k15683
28872 o|contracted procedure: k15686
28873 o|contracted procedure: k15692
28874 o|contracted procedure: k15701
28875 o|contracted procedure: k15704
28876 o|contracted procedure: k15710
28877 o|contracted procedure: k15718
28878 o|contracted procedure: k15721
28879 o|contracted procedure: k15727
28880 o|contracted procedure: k15733
28881 o|contracted procedure: k15741
28882 o|contracted procedure: k15747
28883 o|contracted procedure: k15753
28884 o|contracted procedure: k15761
28885 o|contracted procedure: k15767
28886 o|contracted procedure: k15776
28887 o|contracted procedure: k15783
28888 o|contracted procedure: k15794
28889 o|contracted procedure: k15800
28890 o|contracted procedure: k15806
28891 o|contracted procedure: k15812
28892 o|contracted procedure: k15818
28893 o|contracted procedure: k15824
28894 o|contracted procedure: k15830
28895 o|contracted procedure: k15836
28896 o|contracted procedure: k15842
28897 o|contracted procedure: k15848
28898 o|contracted procedure: k15854
28899 o|contracted procedure: k15863
28900 o|contracted procedure: k15869
28901 o|contracted procedure: k15875
28902 o|contracted procedure: k15881
28903 o|contracted procedure: k15887
28904 o|contracted procedure: k15896
28905 o|contracted procedure: k15899
28906 o|contracted procedure: k15905
28907 o|contracted procedure: k15914
28908 o|contracted procedure: k15920
28909 o|contracted procedure: k15927
28910 o|contracted procedure: k15936
28911 o|contracted procedure: k15942
28912 o|contracted procedure: k15949
28913 o|contracted procedure: k15955
28914 o|contracted procedure: k15961
28915 o|contracted procedure: k15964
28916 o|contracted procedure: k15970
28917 o|contracted procedure: k15984
28918 o|contracted procedure: k15990
28919 o|contracted procedure: k16009
28920 o|contracted procedure: k16031
28921 o|contracted procedure: k16037
28922 o|contracted procedure: k16058
28923 o|contracted procedure: k16064
28924 o|contracted procedure: k16070
28925 o|contracted procedure: k16076
28926 o|contracted procedure: k16082
28927 o|contracted procedure: k16088
28928 o|contracted procedure: k16094
28929 o|contracted procedure: k16141
28930 o|contracted procedure: k16147
28931 o|contracted procedure: k16153
28932 o|contracted procedure: k16159
28933 o|contracted procedure: k16165
28934 o|contracted procedure: k16171
28935 o|contracted procedure: k16177
28936 o|contracted procedure: k16183
28937 o|contracted procedure: k16234
28938 o|contracted procedure: k16240
28939 o|contracted procedure: k16246
28940 o|contracted procedure: k16252
28941 o|contracted procedure: k16258
28942 o|contracted procedure: k16264
28943 o|contracted procedure: k16301
28944 o|contracted procedure: k16307
28945 o|contracted procedure: k16327
28946 o|contracted procedure: k16335
28947 o|contracted procedure: k16341
28948 o|contracted procedure: k16344
28949 o|contracted procedure: k16405
28950 o|contracted procedure: k16347
28951 o|contracted procedure: k16353
28952 o|contracted procedure: k16365
28953 o|contracted procedure: k16375
28954 o|contracted procedure: k16379
28955 o|contracted procedure: k16386
28956 o|contracted procedure: k16389
28957 o|contracted procedure: k16396
28958 o|contracted procedure: k16411
28959 o|contracted procedure: k16417
28960 o|contracted procedure: k16429
28961 o|contracted procedure: k16439
28962 o|contracted procedure: k16443
28963 o|contracted procedure: k16446
28964 o|contracted procedure: k16479
28965 o|contracted procedure: k16487
28966 o|contracted procedure: k16495
28967 o|contracted procedure: k16501
28968 o|contracted procedure: k16510
28969 o|contracted procedure: k16513
28970 o|contracted procedure: k16519
28971 o|contracted procedure: k16539
28972 o|contracted procedure: k16542
28973 o|contracted procedure: k16555
28974 o|contracted procedure: k1655219787
28975 o|contracted procedure: k1655219791
28976 o|contracted procedure: k16565
28977 o|contracted procedure: k16575
28978 o|contracted procedure: k16583
28979 o|contracted procedure: k16589
28980 o|contracted procedure: k16596
28981 o|contracted procedure: k16606
28982 o|contracted procedure: k16624
28983 o|contracted procedure: k16630
28984 o|contracted procedure: k16636
28985 o|contracted procedure: k16663
28986 o|contracted procedure: k16675
28987 o|contracted procedure: k16685
28988 o|contracted procedure: k16689
28989 o|contracted procedure: k16702
28990 o|contracted procedure: k16717
28991 o|contracted procedure: k16737
28992 o|contracted procedure: k16780
28993 o|inlining procedure: k16777
28994 o|contracted procedure: k16834
28995 o|contracted procedure: k16843
28996 o|contracted procedure: k16851
28997 o|contracted procedure: k16864
28998 o|contracted procedure: k16875
28999 o|contracted procedure: k16887
29000 o|contracted procedure: k16901
29001 o|contracted procedure: k16905
29002 o|contracted procedure: k16972
29003 o|contracted procedure: k16975
29004 o|contracted procedure: k16978
29005 o|contracted procedure: k16995
29006 o|contracted procedure: k17007
29007 o|contracted procedure: k17022
29008 o|contracted procedure: k17062
29009 o|contracted procedure: k17055
29010 o|contracted procedure: k17031
29011 o|contracted procedure: k17043
29012 o|contracted procedure: k17046
29013 o|contracted procedure: k17049
29014 o|contracted procedure: k17068
29015 o|contracted procedure: k17085
29016 o|contracted procedure: k17213
29017 o|contracted procedure: k17221
29018 o|contracted procedure: k17091
29019 o|contracted procedure: k17094
29020 o|contracted procedure: k17100
29021 o|contracted procedure: k17131
29022 o|contracted procedure: k17137
29023 o|contracted procedure: k17161
29024 o|contracted procedure: k17149
29025 o|contracted procedure: k17156
29026 o|contracted procedure: k17233
29027 o|contracted procedure: k17255
29028 o|contracted procedure: k17251
29029 o|contracted procedure: k17236
29030 o|contracted procedure: k17239
29031 o|contracted procedure: k17247
29032 o|contracted procedure: k17267
29033 o|contracted procedure: k17289
29034 o|contracted procedure: k17082
29035 o|contracted procedure: k17285
29036 o|contracted procedure: k17270
29037 o|contracted procedure: k17273
29038 o|contracted procedure: k17281
29039 o|contracted procedure: k17310
29040 o|contracted procedure: k17391
29041 o|contracted procedure: k17387
29042 o|contracted procedure: k17316
29043 o|contracted procedure: k17373
29044 o|contracted procedure: k17319
29045 o|inlining procedure: k17356
29046 o|contracted procedure: k17431
29047 o|contracted procedure: k17477
29048 o|contracted procedure: k17486
29049 o|contracted procedure: k17489
29050 o|contracted procedure: k17496
29051 o|contracted procedure: k17515
29052 o|contracted procedure: k6396
29053 o|contracted procedure: k6411
29054 o|contracted procedure: k17548
29055 o|contracted procedure: k17556
29056 o|contracted procedure: k17564
29057 o|contracted procedure: k17598
29058 o|contracted procedure: k17604
29059 o|contracted procedure: k17613
29060 o|contracted procedure: k17637
29061 o|contracted procedure: k17653
29062 o|contracted procedure: k17657
29063 o|contracted procedure: k17661
29064 o|contracted procedure: k17670
29065 o|contracted procedure: k17680
29066 o|contracted procedure: k17684
29067 o|contracted procedure: k17700
29068 o|contracted procedure: k597919833
29069 o|inlining procedure: k17704
29070 o|contracted procedure: k597919840
29071 o|inlining procedure: k17704
29072 o|contracted procedure: k17720
29073 o|contracted procedure: k17727
29074 o|contracted procedure: k17742
29075 o|contracted procedure: k17755
29076 o|contracted procedure: k17779
29077 o|contracted procedure: k17807
29078 o|contracted procedure: k17836
29079 o|contracted procedure: k17845
29080 o|contracted procedure: k17860
29081 o|contracted procedure: k17866
29082 o|contracted procedure: k17889
29083 o|contracted procedure: k17883
29084 o|contracted procedure: k17909
29085 o|contracted procedure: k17903
29086 o|contracted procedure: k17949
29087 o|contracted procedure: k17955
29088 o|contracted procedure: k17974
29089 o|contracted procedure: k17968
29090 o|contracted procedure: k18059
29091 o|contracted procedure: k18071
29092 o|contracted procedure: k18081
29093 o|contracted procedure: k18085
29094 o|contracted procedure: k18033
29095 o|contracted procedure: k18047
29096 o|contracted procedure: k18051
29097 o|contracted procedure: k18133
29098 o|contracted procedure: k18117
29099 o|contracted procedure: k18184
29100 o|contracted procedure: k18193
29101 o|simplifications: ((if . 7) (let . 314))
29102 o|removed binding forms: 1256
29103 o|contracted procedure: k7356
29104 (o x)|known list op on rest arg sublist: ##core#rest-null? rest971972 0
29105 (o x)|known list op on rest arg sublist: ##core#rest-car rest971972 0
29106 o|contracted procedure: k8293
29107 o|contracted procedure: k9868
29108 o|inlining procedure: k10721
29109 (o x)|known list op on rest arg sublist: ##core#rest-null? rest30083011 0
29110 (o x)|known list op on rest arg sublist: ##core#rest-car rest30083011 0
29111 (o x)|known list op on rest arg sublist: ##core#rest-null? rest30083011 0
29112 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest30083011 0
29113 o|contracted procedure: k16382
29114 o|contracted procedure: k17693
29115 (o x)|known list op on rest arg sublist: ##core#rest-null? rest44824485 0
29116 (o x)|known list op on rest arg sublist: ##core#rest-car rest44824485 0
29117 (o x)|known list op on rest arg sublist: ##core#rest-null? rest45714572 0
29118 (o x)|known list op on rest arg sublist: ##core#rest-car rest45714572 0
29119 o|simplifications: ((let . 1))
29120 o|replaced variables: 3
29121 o|removed binding forms: 8
29122 (o x)|known list op on rest arg sublist: ##core#rest-null? r13226 1
29123 (o x)|known list op on rest arg sublist: ##core#rest-car r13226 1
29124 (o x)|known list op on rest arg sublist: ##core#rest-null? r13226 1
29125 (o x)|known list op on rest arg sublist: ##core#rest-cdr r13226 1
29126 o|removed binding forms: 3
29127 o|removed binding forms: 2
29128 o|direct leaf routine/allocation: loop463 0
29129 o|direct leaf routine/allocation: loop863 0
29130 o|direct leaf routine/allocation: loop1108 0
29131 o|direct leaf routine/allocation: a8161 0
29132 o|direct leaf routine/allocation: g423424 3
29133 o|direct leaf routine/allocation: g27982799 0
29134 o|direct leaf routine/allocation: a17525 0
29135 o|converted assignments to bindings: (loop463)
29136 o|converted assignments to bindings: (loop863)
29137 o|converted assignments to bindings: (loop1108)
29138 o|contracted procedure: "(mini-srfi-1.scm:135) k6046"
29139 o|contracted procedure: "(mini-srfi-1.scm:190) k6403"
29140 o|simplifications: ((let . 3))
29141 o|removed binding forms: 2
29142 o|customizable procedures: (for-each-loop45454560 loop4409 g43334347 for-each-loop43324357 doloop43694370 loop4310 loop558 tmp15335 tmp25336 map-loop41714192 map-loop42024223 resolve4104 loop4116 g40384045 for-each-loop40374048 k16504 walkeach3993 walk3992 chicken.compiler.support#lset-adjoin/eq? k16414 for-each-loop39703980 k16350 walk3921 for-each-loop39453956 k15695 k15770 k15857 k15890 k15908 k15930 k15510 k14962 k14974 k15011 g36593660 k14487 k14496 k14508 k14520 k14532 k14569 err3385 g35013502 g33803381 chicken.compiler.support#foreign-type-argument-converter chicken.compiler.support#foreign-type-result-converter chicken.compiler.support#follow-without-loop k13315 k13330 k13453 k13495 k13521 k13564 k13608 k13652 k13697 k13771 repeat3033 g32853286 k13670 k13471 k13413 k13018 k12977 k12761 a12776 loop586 matchn2789 loop2818 match12788 resolve2787 walk2601 map-loop26102627 loop2764 k12311 k12348 uses-foreign-stubs?2642 walk2558 map-loop25712591 for-each-loop27142726 for-each-loop27362754 rec2522 lp2496 map-loop20822099 map-loop21952214 g23882397 map-loop23822407 g22822291 map-loop22762296 map-loop23062325 g23492358 map-loop23432368 walk2225 map-loop21102128 walk2422 for-each-loop24652475 lp2453 g21382145 for-each-loop21372149 loop2156 loop22159 loop230 fold2059 k9737 k10341 map-loop20312048 map-loop20052022 map-loop19791996 loop1960 map-loop19361953 chicken.compiler.support#cons* map-loop19101927 loop1901 map-loop18611878 map-loop18401885 chicken.compiler.support#last map-loop17981815 walk1741 map-loop17691786 map-loop17121729 k9066 k9311 k9509 map-loop16811698 map-loop16351652 map-loop16041621 map-loop15551572 map-loop15111528 k8993 map-loop14741491 loop1441 map-loop436454 g14091418 map-loop14031421 k8624 walk1341 map-loop13661383 map-loop12361253 g12241225 foldr408411 g413414 map-loop11411162 tmp14965 tmp24966 loop1091 k7762 loop1062 k7634 doloop978979 loop958 fold951 chicken.compiler.support#every k7208 k7215 loop894 loop878 k6943 g800825 for-each-loop799835 collect751 g756763 for-each-loop755774 text700 chicken.compiler.support#test-debugging-mode dump701 for-each-loop704721 chicken.compiler.support#any loop480 loop340 loop327 loop314 chicken.compiler.support#take)
29143 o|calls to known targets: 530
29144 o|identified direct recursive calls: f_5482 1
29145 o|identified direct recursive calls: f_5813 1
29146 o|identified direct recursive calls: f_6149 1
29147 o|identified direct recursive calls: f_6208 2
29148 o|identified direct recursive calls: f_7098 1
29149 o|identified direct recursive calls: f_7139 1
29150 o|identified direct recursive calls: f_7405 1
29151 o|unused rest argument: rest971972 f_7496
29152 o|identified direct recursive calls: f_7940 1
29153 o|identified direct recursive calls: f_8082 1
29154 o|identified direct recursive calls: f_6036 1
29155 o|identified direct recursive calls: f_8363 1
29156 o|identified direct recursive calls: f_6109 1
29157 o|identified direct recursive calls: f_8506 4
29158 o|identified direct recursive calls: f_9931 1
29159 o|identified direct recursive calls: f_5540 1
29160 o|identified direct recursive calls: f_10690 1
29161 o|identified direct recursive calls: f_10675 1
29162 o|identified direct recursive calls: f_11622 1
29163 o|identified direct recursive calls: f_11255 1
29164 o|identified direct recursive calls: f_10972 1
29165 o|identified direct recursive calls: f_11411 1
29166 o|identified direct recursive calls: f_11743 1
29167 o|identified direct recursive calls: f_11866 1
29168 o|identified direct recursive calls: f_12535 1
29169 o|unused rest argument: rest30083011 f_13220
29170 o|identified direct recursive calls: f_17228 1
29171 o|identified direct recursive calls: f_17262 1
29172 o|identified direct recursive calls: f_6391 1
29173 o|unused rest argument: rest44824485 f_17966
29174 o|unused rest argument: rest45714572 f_18115
29175 o|fast box initializations: 94
29176 o|fast global references: 63
29177 o|fast global assignments: 22
29178 o|dropping unused closure argument: f_14356
29179 o|dropping unused closure argument: f_14377
29180 o|dropping unused closure argument: f_16814
29181 o|dropping unused closure argument: f_5482
29182 o|dropping unused closure argument: f_5743
29183 o|dropping unused closure argument: f_5777
29184 o|dropping unused closure argument: f_5807
29185 o|dropping unused closure argument: f_6143
29186 o|dropping unused closure argument: f_6149
29187 o|dropping unused closure argument: f_6202
29188 o|dropping unused closure argument: f_6687
29189 o|dropping unused closure argument: f_7098
29190 o|dropping unused closure argument: f_7445
29191 o|dropping unused closure argument: f_7940
29192 */
29193 /* end of file */
29194