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

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

Added initial version of cmk.
File size: 71.4 KB
Line 
1/* Generated from ports.scm by the CHICKEN compiler
2   http://www.call-with-current-continuation.org
3   2008-11-17 12:51
4   Version 3.4.0 - linux-unix-gnu-x86   [ manyargs dload ptables applyhook hostpcre ]
5   compiled 2008-09-29 on debian (Linux)
6   command line: ports.scm -quiet -no-trace -optimize-level 2 -include-path . -include-path ./ -explicit-use -output-file ports.c -extend private-namespace.scm
7   unit: ports
8*/
9
10#include "chicken.h"
11
12#define C_mem_compare(to, from, n)   C_fix(C_memcmp(C_c_string(to), C_c_string(from), C_unfix(n)))
13
14static C_PTABLE_ENTRY *create_ptable(void);
15
16static C_TLS C_word lf[44];
17static double C_possibly_force_alignment;
18static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
19static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,26),40,112,111,114,116,45,102,111,114,45,101,97,99,104,32,102,110,49,32,116,104,117,110,107,50,41,0,0,0,0,0,0};
20static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,120,115,49,49,41,0,0,0,0,0};
21static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,21),40,112,111,114,116,45,109,97,112,32,102,110,56,32,116,104,117,110,107,57,41,0,0,0};
22static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,97,99,99,49,56,41,0,0,0,0};
23static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,30),40,112,111,114,116,45,102,111,108,100,32,102,110,49,52,32,97,99,99,49,53,32,116,104,117,110,107,49,54,41,0,0};
24static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,12),40,97,50,57,49,32,103,50,51,50,52,41,0,0,0,0};
25static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,10),40,97,50,56,53,32,115,50,50,41,0,0,0,0,0,0};
26static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,6),40,97,50,57,55,41,0,0};
27static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,31),40,109,97,107,101,45,98,114,111,97,100,99,97,115,116,45,112,111,114,116,32,46,32,112,111,114,116,115,50,49,41,0};
28static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
29static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,6),40,97,51,49,50,41,0,0};
30static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,6),40,97,51,52,55,41,0,0};
31static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
32static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,6),40,97,51,54,55,41,0,0};
33static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,110,52,49,32,99,52,50,41,0,0};
34static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,29),40,97,52,48,50,32,112,51,54,32,110,51,55,32,100,101,115,116,51,56,32,115,116,97,114,116,51,57,41,0,0,0};
35static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,39),40,109,97,107,101,45,99,111,110,99,97,116,101,110,97,116,101,100,45,112,111,114,116,32,112,49,50,53,32,46,32,112,111,114,116,115,50,54,41,0};
36static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,6),40,97,52,54,52,41,0,0};
37static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,6),40,97,52,55,50,41,0,0};
38static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,6),40,97,52,55,56,41,0,0};
39static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,37),40,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,112,111,114,116,32,112,111,114,116,52,54,32,116,104,117,110,107,52,55,41,0,0,0};
40static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,6),40,97,52,57,53,41,0,0};
41static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,6),40,97,53,48,51,41,0,0};
42static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,6),40,97,53,48,57,41,0,0};
43static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,36),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,112,111,114,116,32,112,111,114,116,53,55,32,116,104,117,110,107,53,56,41,0,0,0,0};
44static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,6),40,97,53,50,54,41,0,0};
45static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,6),40,97,53,51,52,41,0,0};
46static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,6),40,97,53,52,48,41,0,0};
47static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,42),40,119,105,116,104,45,101,114,114,111,114,45,111,117,116,112,117,116,45,116,111,45,112,111,114,116,32,112,111,114,116,54,56,32,116,104,117,110,107,54,57,41,0,0,0,0,0,0};
48static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,37),40,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,115,116,114,105,110,103,32,115,116,114,56,48,32,112,114,111,99,56,49,41,0,0,0};
49static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,32),40,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,115,116,114,105,110,103,32,112,114,111,99,56,53,41};
50static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,6),40,97,53,55,56,41,0,0};
51static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,6),40,97,53,56,54,41,0,0};
52static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,6),40,97,53,57,50,41,0,0};
53static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,38),40,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,115,116,114,105,110,103,32,115,116,114,56,57,32,116,104,117,110,107,57,48,41,0,0};
54static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,6),40,97,54,48,57,41,0,0};
55static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,6),40,97,54,49,55,41,0,0};
56static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,6),40,97,54,50,54,41,0,0};
57static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,32),40,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,115,116,114,105,110,103,32,116,104,117,110,107,49,48,49,41};
58static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,11),40,97,54,53,49,32,112,49,51,48,41,0,0,0,0,0};
59static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,11),40,97,54,55,50,32,112,49,51,51,41,0,0,0,0,0};
60static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,11),40,97,54,57,51,32,112,49,51,55,41,0,0,0,0,0};
61static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,11),40,97,55,48,50,32,112,49,51,57,41,0,0,0,0,0};
62static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,45),40,98,111,100,121,49,49,57,32,112,101,101,107,49,50,54,32,114,101,97,100,45,115,116,114,105,110,103,49,50,55,32,114,101,97,100,45,108,105,110,101,49,50,56,41,0,0,0};
63static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,49),40,100,101,102,45,114,101,97,100,45,108,105,110,101,49,50,51,32,37,112,101,101,107,49,49,54,49,52,52,32,37,114,101,97,100,45,115,116,114,105,110,103,49,49,55,49,52,53,41,0,0,0,0,0,0,0};
64static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,32),40,100,101,102,45,114,101,97,100,45,115,116,114,105,110,103,49,50,50,32,37,112,101,101,107,49,49,54,49,52,55,41};
65static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,13),40,100,101,102,45,112,101,101,107,49,50,49,41,0,0,0};
66static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,54),40,109,97,107,101,45,105,110,112,117,116,45,112,111,114,116,32,114,101,97,100,49,49,50,32,114,101,97,100,121,63,49,49,51,32,99,108,111,115,101,49,49,52,32,46,32,103,49,49,49,49,49,53,41,0,0};
67static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,16),40,97,55,57,56,32,112,49,54,53,32,99,49,54,54,41};
68static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,16),40,97,56,48,56,32,112,49,54,55,32,115,49,54,56,41};
69static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,11),40,97,56,49,52,32,112,49,54,57,41,0,0,0,0,0};
70static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,11),40,97,56,50,51,32,112,49,55,49,41,0,0,0,0,0};
71static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,46),40,109,97,107,101,45,111,117,116,112,117,116,45,112,111,114,116,32,119,114,105,116,101,49,53,56,32,99,108,111,115,101,49,53,57,32,46,32,103,49,53,55,49,54,48,41,0,0};
72static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
73
74
75C_noret_decl(C_ports_toplevel)
76C_externexport void C_ccall C_ports_toplevel(C_word c,C_word t0,C_word t1) C_noret;
77C_noret_decl(f_197)
78static void C_ccall f_197(C_word c,C_word t0,C_word t1) C_noret;
79C_noret_decl(f_781)
80static void C_ccall f_781(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
81C_noret_decl(f_781)
82static void C_ccall f_781r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
83C_noret_decl(f_785)
84static void C_ccall f_785(C_word c,C_word t0,C_word t1) C_noret;
85C_noret_decl(f_794)
86static void C_ccall f_794(C_word c,C_word t0,C_word t1) C_noret;
87C_noret_decl(f_824)
88static void C_ccall f_824(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
89C_noret_decl(f_815)
90static void C_ccall f_815(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
91C_noret_decl(f_819)
92static void C_ccall f_819(C_word c,C_word t0,C_word t1) C_noret;
93C_noret_decl(f_809)
94static void C_ccall f_809(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
95C_noret_decl(f_799)
96static void C_ccall f_799(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
97C_noret_decl(f_807)
98static void C_ccall f_807(C_word c,C_word t0,C_word t1) C_noret;
99C_noret_decl(f_635)
100static void C_ccall f_635(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,...) C_noret;
101C_noret_decl(f_635)
102static void C_ccall f_635r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t6) C_noret;
103C_noret_decl(f_718)
104static void C_fcall f_718(C_word t0,C_word t1) C_noret;
105C_noret_decl(f_713)
106static void C_fcall f_713(C_word t0,C_word t1,C_word t2) C_noret;
107C_noret_decl(f_708)
108static void C_fcall f_708(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
109C_noret_decl(f_637)
110static void C_fcall f_637(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
111C_noret_decl(f_647)
112static void C_ccall f_647(C_word c,C_word t0,C_word t1) C_noret;
113C_noret_decl(f_703)
114static void C_ccall f_703(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
115C_noret_decl(f_694)
116static void C_ccall f_694(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
117C_noret_decl(f_698)
118static void C_ccall f_698(C_word c,C_word t0,C_word t1) C_noret;
119C_noret_decl(f_673)
120static void C_ccall f_673(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
121C_noret_decl(f_689)
122static void C_ccall f_689(C_word c,C_word t0,C_word t1) C_noret;
123C_noret_decl(f_652)
124static void C_ccall f_652(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
125C_noret_decl(f_601)
126static void C_ccall f_601(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
127C_noret_decl(f_605)
128static void C_ccall f_605(C_word c,C_word t0,C_word t1) C_noret;
129C_noret_decl(f_627)
130static void C_ccall f_627(C_word c,C_word t0,C_word t1) C_noret;
131C_noret_decl(f_618)
132static void C_ccall f_618(C_word c,C_word t0,C_word t1) C_noret;
133C_noret_decl(f_622)
134static void C_ccall f_622(C_word c,C_word t0,C_word t1) C_noret;
135C_noret_decl(f_610)
136static void C_ccall f_610(C_word c,C_word t0,C_word t1) C_noret;
137C_noret_decl(f_570)
138static void C_ccall f_570(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
139C_noret_decl(f_574)
140static void C_ccall f_574(C_word c,C_word t0,C_word t1) C_noret;
141C_noret_decl(f_593)
142static void C_ccall f_593(C_word c,C_word t0,C_word t1) C_noret;
143C_noret_decl(f_587)
144static void C_ccall f_587(C_word c,C_word t0,C_word t1) C_noret;
145C_noret_decl(f_579)
146static void C_ccall f_579(C_word c,C_word t0,C_word t1) C_noret;
147C_noret_decl(f_558)
148static void C_ccall f_558(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
149C_noret_decl(f_562)
150static void C_ccall f_562(C_word c,C_word t0,C_word t1) C_noret;
151C_noret_decl(f_565)
152static void C_ccall f_565(C_word c,C_word t0,C_word t1) C_noret;
153C_noret_decl(f_549)
154static void C_ccall f_549(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
155C_noret_decl(f_553)
156static void C_ccall f_553(C_word c,C_word t0,C_word t1) C_noret;
157C_noret_decl(f_518)
158static void C_ccall f_518(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
159C_noret_decl(f_522)
160static void C_ccall f_522(C_word c,C_word t0,C_word t1) C_noret;
161C_noret_decl(f_541)
162static void C_ccall f_541(C_word c,C_word t0,C_word t1) C_noret;
163C_noret_decl(f_535)
164static void C_ccall f_535(C_word c,C_word t0,C_word t1) C_noret;
165C_noret_decl(f_527)
166static void C_ccall f_527(C_word c,C_word t0,C_word t1) C_noret;
167C_noret_decl(f_487)
168static void C_ccall f_487(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
169C_noret_decl(f_491)
170static void C_ccall f_491(C_word c,C_word t0,C_word t1) C_noret;
171C_noret_decl(f_510)
172static void C_ccall f_510(C_word c,C_word t0,C_word t1) C_noret;
173C_noret_decl(f_504)
174static void C_ccall f_504(C_word c,C_word t0,C_word t1) C_noret;
175C_noret_decl(f_496)
176static void C_ccall f_496(C_word c,C_word t0,C_word t1) C_noret;
177C_noret_decl(f_456)
178static void C_ccall f_456(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
179C_noret_decl(f_460)
180static void C_ccall f_460(C_word c,C_word t0,C_word t1) C_noret;
181C_noret_decl(f_479)
182static void C_ccall f_479(C_word c,C_word t0,C_word t1) C_noret;
183C_noret_decl(f_473)
184static void C_ccall f_473(C_word c,C_word t0,C_word t1) C_noret;
185C_noret_decl(f_465)
186static void C_ccall f_465(C_word c,C_word t0,C_word t1) C_noret;
187C_noret_decl(f_304)
188static void C_ccall f_304(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
189C_noret_decl(f_304)
190static void C_ccall f_304r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
191C_noret_decl(f_403)
192static void C_ccall f_403(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
193C_noret_decl(f_409)
194static void C_fcall f_409(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
195C_noret_decl(f_425)
196static void C_ccall f_425(C_word c,C_word t0,C_word t1) C_noret;
197C_noret_decl(f_428)
198static void C_fcall f_428(C_word t0,C_word t1) C_noret;
199C_noret_decl(f_368)
200static void C_ccall f_368(C_word c,C_word t0,C_word t1) C_noret;
201C_noret_decl(f_374)
202static void C_fcall f_374(C_word t0,C_word t1) C_noret;
203C_noret_decl(f_384)
204static void C_ccall f_384(C_word c,C_word t0,C_word t1) C_noret;
205C_noret_decl(f_348)
206static void C_ccall f_348(C_word c,C_word t0,C_word t1) C_noret;
207C_noret_decl(f_313)
208static void C_ccall f_313(C_word c,C_word t0,C_word t1) C_noret;
209C_noret_decl(f_319)
210static void C_fcall f_319(C_word t0,C_word t1) C_noret;
211C_noret_decl(f_329)
212static void C_ccall f_329(C_word c,C_word t0,C_word t1) C_noret;
213C_noret_decl(f_280)
214static void C_ccall f_280(C_word c,C_word t0,C_word t1,...) C_noret;
215C_noret_decl(f_280)
216static void C_ccall f_280r(C_word t0,C_word t1,C_word t3) C_noret;
217C_noret_decl(f_298)
218static void C_ccall f_298(C_word c,C_word t0,C_word t1) C_noret;
219C_noret_decl(f_286)
220static void C_ccall f_286(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
221C_noret_decl(f_292)
222static void C_ccall f_292(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
223C_noret_decl(f_255)
224static void C_ccall f_255(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
225C_noret_decl(f_261)
226static void C_fcall f_261(C_word t0,C_word t1,C_word t2) C_noret;
227C_noret_decl(f_265)
228static void C_ccall f_265(C_word c,C_word t0,C_word t1) C_noret;
229C_noret_decl(f_278)
230static void C_ccall f_278(C_word c,C_word t0,C_word t1) C_noret;
231C_noret_decl(f_223)
232static void C_ccall f_223(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
233C_noret_decl(f_229)
234static void C_fcall f_229(C_word t0,C_word t1,C_word t2) C_noret;
235C_noret_decl(f_233)
236static void C_ccall f_233(C_word c,C_word t0,C_word t1) C_noret;
237C_noret_decl(f_253)
238static void C_ccall f_253(C_word c,C_word t0,C_word t1) C_noret;
239C_noret_decl(f_199)
240static void C_ccall f_199(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
241C_noret_decl(f_205)
242static void C_fcall f_205(C_word t0,C_word t1) C_noret;
243C_noret_decl(f_209)
244static void C_ccall f_209(C_word c,C_word t0,C_word t1) C_noret;
245C_noret_decl(f_218)
246static void C_ccall f_218(C_word c,C_word t0,C_word t1) C_noret;
247
248C_noret_decl(trf_718)
249static void C_fcall trf_718(void *dummy) C_regparm C_noret;
250C_regparm static void C_fcall trf_718(void *dummy){
251C_word t1=C_pick(0);
252C_word t0=C_pick(1);
253C_adjust_stack(-2);
254f_718(t0,t1);}
255
256C_noret_decl(trf_713)
257static void C_fcall trf_713(void *dummy) C_regparm C_noret;
258C_regparm static void C_fcall trf_713(void *dummy){
259C_word t2=C_pick(0);
260C_word t1=C_pick(1);
261C_word t0=C_pick(2);
262C_adjust_stack(-3);
263f_713(t0,t1,t2);}
264
265C_noret_decl(trf_708)
266static void C_fcall trf_708(void *dummy) C_regparm C_noret;
267C_regparm static void C_fcall trf_708(void *dummy){
268C_word t3=C_pick(0);
269C_word t2=C_pick(1);
270C_word t1=C_pick(2);
271C_word t0=C_pick(3);
272C_adjust_stack(-4);
273f_708(t0,t1,t2,t3);}
274
275C_noret_decl(trf_637)
276static void C_fcall trf_637(void *dummy) C_regparm C_noret;
277C_regparm static void C_fcall trf_637(void *dummy){
278C_word t4=C_pick(0);
279C_word t3=C_pick(1);
280C_word t2=C_pick(2);
281C_word t1=C_pick(3);
282C_word t0=C_pick(4);
283C_adjust_stack(-5);
284f_637(t0,t1,t2,t3,t4);}
285
286C_noret_decl(trf_409)
287static void C_fcall trf_409(void *dummy) C_regparm C_noret;
288C_regparm static void C_fcall trf_409(void *dummy){
289C_word t3=C_pick(0);
290C_word t2=C_pick(1);
291C_word t1=C_pick(2);
292C_word t0=C_pick(3);
293C_adjust_stack(-4);
294f_409(t0,t1,t2,t3);}
295
296C_noret_decl(trf_428)
297static void C_fcall trf_428(void *dummy) C_regparm C_noret;
298C_regparm static void C_fcall trf_428(void *dummy){
299C_word t1=C_pick(0);
300C_word t0=C_pick(1);
301C_adjust_stack(-2);
302f_428(t0,t1);}
303
304C_noret_decl(trf_374)
305static void C_fcall trf_374(void *dummy) C_regparm C_noret;
306C_regparm static void C_fcall trf_374(void *dummy){
307C_word t1=C_pick(0);
308C_word t0=C_pick(1);
309C_adjust_stack(-2);
310f_374(t0,t1);}
311
312C_noret_decl(trf_319)
313static void C_fcall trf_319(void *dummy) C_regparm C_noret;
314C_regparm static void C_fcall trf_319(void *dummy){
315C_word t1=C_pick(0);
316C_word t0=C_pick(1);
317C_adjust_stack(-2);
318f_319(t0,t1);}
319
320C_noret_decl(trf_261)
321static void C_fcall trf_261(void *dummy) C_regparm C_noret;
322C_regparm static void C_fcall trf_261(void *dummy){
323C_word t2=C_pick(0);
324C_word t1=C_pick(1);
325C_word t0=C_pick(2);
326C_adjust_stack(-3);
327f_261(t0,t1,t2);}
328
329C_noret_decl(trf_229)
330static void C_fcall trf_229(void *dummy) C_regparm C_noret;
331C_regparm static void C_fcall trf_229(void *dummy){
332C_word t2=C_pick(0);
333C_word t1=C_pick(1);
334C_word t0=C_pick(2);
335C_adjust_stack(-3);
336f_229(t0,t1,t2);}
337
338C_noret_decl(trf_205)
339static void C_fcall trf_205(void *dummy) C_regparm C_noret;
340C_regparm static void C_fcall trf_205(void *dummy){
341C_word t1=C_pick(0);
342C_word t0=C_pick(1);
343C_adjust_stack(-2);
344f_205(t0,t1);}
345
346C_noret_decl(tr5)
347static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
348C_regparm static void C_fcall tr5(C_proc5 k){
349C_word t4=C_pick(0);
350C_word t3=C_pick(1);
351C_word t2=C_pick(2);
352C_word t1=C_pick(3);
353C_word t0=C_pick(4);
354C_adjust_stack(-5);
355(k)(5,t0,t1,t2,t3,t4);}
356
357C_noret_decl(tr6)
358static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
359C_regparm static void C_fcall tr6(C_proc6 k){
360C_word t5=C_pick(0);
361C_word t4=C_pick(1);
362C_word t3=C_pick(2);
363C_word t2=C_pick(3);
364C_word t1=C_pick(4);
365C_word t0=C_pick(5);
366C_adjust_stack(-6);
367(k)(6,t0,t1,t2,t3,t4,t5);}
368
369C_noret_decl(tr4)
370static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
371C_regparm static void C_fcall tr4(C_proc4 k){
372C_word t3=C_pick(0);
373C_word t2=C_pick(1);
374C_word t1=C_pick(2);
375C_word t0=C_pick(3);
376C_adjust_stack(-4);
377(k)(4,t0,t1,t2,t3);}
378
379C_noret_decl(tr3)
380static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
381C_regparm static void C_fcall tr3(C_proc3 k){
382C_word t2=C_pick(0);
383C_word t1=C_pick(1);
384C_word t0=C_pick(2);
385C_adjust_stack(-3);
386(k)(3,t0,t1,t2);}
387
388C_noret_decl(tr2)
389static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
390C_regparm static void C_fcall tr2(C_proc2 k){
391C_word t1=C_pick(0);
392C_word t0=C_pick(1);
393C_adjust_stack(-2);
394(k)(2,t0,t1);}
395
396C_noret_decl(tr2r)
397static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
398C_regparm static void C_fcall tr2r(C_proc2 k){
399int n;
400C_word *a,t2;
401C_word t1=C_pick(0);
402C_word t0=C_pick(1);
403C_adjust_stack(-2);
404n=C_rest_count(0);
405a=C_alloc(n*3);
406t2=C_restore_rest(a,n);
407(k)(t0,t1,t2);}
408
409C_noret_decl(tr3r)
410static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
411C_regparm static void C_fcall tr3r(C_proc3 k){
412int n;
413C_word *a,t3;
414C_word t2=C_pick(0);
415C_word t1=C_pick(1);
416C_word t0=C_pick(2);
417C_adjust_stack(-3);
418n=C_rest_count(0);
419a=C_alloc(n*3);
420t3=C_restore_rest(a,n);
421(k)(t0,t1,t2,t3);}
422
423C_noret_decl(tr5r)
424static void C_fcall tr5r(C_proc5 k) C_regparm C_noret;
425C_regparm static void C_fcall tr5r(C_proc5 k){
426int n;
427C_word *a,t5;
428C_word t4=C_pick(0);
429C_word t3=C_pick(1);
430C_word t2=C_pick(2);
431C_word t1=C_pick(3);
432C_word t0=C_pick(4);
433C_adjust_stack(-5);
434n=C_rest_count(0);
435a=C_alloc(n*3);
436t5=C_restore_rest(a,n);
437(k)(t0,t1,t2,t3,t4,t5);}
438
439C_noret_decl(tr4r)
440static void C_fcall tr4r(C_proc4 k) C_regparm C_noret;
441C_regparm static void C_fcall tr4r(C_proc4 k){
442int n;
443C_word *a,t4;
444C_word t3=C_pick(0);
445C_word t2=C_pick(1);
446C_word t1=C_pick(2);
447C_word t0=C_pick(3);
448C_adjust_stack(-4);
449n=C_rest_count(0);
450a=C_alloc(n*3);
451t4=C_restore_rest(a,n);
452(k)(t0,t1,t2,t3,t4);}
453
454/* toplevel */
455static C_TLS int toplevel_initialized=0;
456C_noret_decl(toplevel_trampoline)
457static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
458C_regparm static void C_fcall toplevel_trampoline(void *dummy){
459C_ports_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}
460
461void C_ccall C_ports_toplevel(C_word c,C_word t0,C_word t1){
462C_word tmp;
463C_word t2;
464C_word t3;
465C_word t4;
466C_word *a;
467if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
468else C_toplevel_entry(C_text("ports_toplevel"));
469C_check_nursery_minimum(3);
470if(!C_demand(3)){
471C_save(t1);
472C_reclaim((void*)toplevel_trampoline,NULL);}
473toplevel_initialized=1;
474if(!C_demand_2(400)){
475C_save(t1);
476C_rereclaim2(400*sizeof(C_word), 1);
477t1=C_restore;}
478a=C_alloc(3);
479C_initialize_lf(lf,44);
480lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
481lf[2]=C_h_intern(&lf[2],13,"port-for-each");
482lf[3]=C_h_intern(&lf[3],7,"reverse");
483lf[4]=C_h_intern(&lf[4],8,"port-map");
484lf[5]=C_h_intern(&lf[5],9,"port-fold");
485lf[6]=C_h_intern(&lf[6],19,"make-broadcast-port");
486lf[7]=C_h_intern(&lf[7],12,"write-string");
487lf[8]=C_h_intern(&lf[8],12,"\003sysfor-each");
488lf[9]=C_h_intern(&lf[9],12,"flush-output");
489lf[10]=C_h_intern(&lf[10],16,"make-output-port");
490lf[11]=C_h_intern(&lf[11],4,"noop");
491lf[12]=C_h_intern(&lf[12],22,"make-concatenated-port");
492lf[13]=C_h_intern(&lf[13],18,"\003sysread-char/port");
493lf[14]=C_h_intern(&lf[14],11,"char-ready\077");
494lf[15]=C_h_intern(&lf[15],9,"peek-char");
495lf[16]=C_h_intern(&lf[16],12,"read-string!");
496lf[17]=C_h_intern(&lf[17],15,"make-input-port");
497lf[18]=C_h_intern(&lf[18],20,"with-input-from-port");
498lf[19]=C_h_intern(&lf[19],18,"\003sysstandard-input");
499lf[20]=C_h_intern(&lf[20],19,"\003sysundefined-value");
500lf[21]=C_h_intern(&lf[21],16,"\003sysdynamic-wind");
501lf[22]=C_h_intern(&lf[22],14,"\003syscheck-port");
502lf[23]=C_h_intern(&lf[23],19,"with-output-to-port");
503lf[24]=C_h_intern(&lf[24],19,"\003sysstandard-output");
504lf[25]=C_h_intern(&lf[25],21,"with-output-from-port");
505lf[26]=C_h_intern(&lf[26],25,"with-error-output-to-port");
506lf[27]=C_h_intern(&lf[27],18,"\003sysstandard-error");
507lf[28]=C_h_intern(&lf[28],27,"with-error-output-from-port");
508lf[29]=C_h_intern(&lf[29],17,"open-input-string");
509lf[30]=C_h_intern(&lf[30],22,"call-with-input-string");
510lf[31]=C_h_intern(&lf[31],18,"open-output-string");
511lf[32]=C_h_intern(&lf[32],17,"get-output-string");
512lf[33]=C_h_intern(&lf[33],23,"call-with-output-string");
513lf[34]=C_h_intern(&lf[34],22,"with-input-from-string");
514lf[35]=C_h_intern(&lf[35],21,"with-output-to-string");
515lf[36]=C_h_intern(&lf[36],13,"\003sysmake-port");
516lf[37]=C_decode_literal(C_heaptop,"\376B\000\000\010(custom)");
517lf[38]=C_h_intern(&lf[38],6,"custom");
518lf[39]=C_h_intern(&lf[39],9,"\003syserror");
519lf[40]=C_h_intern(&lf[40],6,"string");
520lf[41]=C_decode_literal(C_heaptop,"\376B\000\000\010(custom)");
521lf[42]=C_h_intern(&lf[42],17,"register-feature!");
522lf[43]=C_h_intern(&lf[43],5,"ports");
523C_register_lf2(lf,44,create_ptable());
524t2=C_mutate(&lf[0],lf[1]);
525t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_197,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
526/* ports.scm: 93   register-feature! */
527t4=*((C_word*)lf[42]+1);
528((C_proc3)C_retrieve_proc(t4))(3,t4,t3,lf[43]);}
529
530/* k195 */
531static void C_ccall f_197(C_word c,C_word t0,C_word t1){
532C_word tmp;
533C_word t2;
534C_word t3;
535C_word t4;
536C_word t5;
537C_word t6;
538C_word t7;
539C_word t8;
540C_word t9;
541C_word t10;
542C_word t11;
543C_word t12;
544C_word t13;
545C_word t14;
546C_word t15;
547C_word t16;
548C_word t17;
549C_word t18;
550C_word t19;
551C_word t20;
552C_word t21;
553C_word t22;
554C_word t23;
555C_word t24;
556C_word ab[50],*a=ab;
557C_check_for_interrupt;
558if(!C_stack_probe(&a)){
559C_save_and_reclaim((void*)tr2,(void*)f_197,2,t0,t1);}
560t2=C_mutate((C_word*)lf[2]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_199,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
561t3=*((C_word*)lf[3]+1);
562t4=C_mutate((C_word*)lf[4]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_223,a[2]=t3,a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp));
563t5=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_255,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
564t6=C_mutate((C_word*)lf[6]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_280,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
565t7=C_mutate((C_word*)lf[12]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_304,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
566t8=C_mutate((C_word*)lf[18]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_456,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp));
567t9=C_mutate((C_word*)lf[23]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_487,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp));
568t10=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_518,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp));
569t11=*((C_word*)lf[29]+1);
570t12=C_mutate((C_word*)lf[30]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_549,a[2]=t11,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp));
571t13=*((C_word*)lf[31]+1);
572t14=*((C_word*)lf[32]+1);
573t15=C_mutate((C_word*)lf[33]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_558,a[2]=t13,a[3]=t14,a[4]=((C_word)li31),tmp=(C_word)a,a+=5,tmp));
574t16=*((C_word*)lf[29]+1);
575t17=C_mutate((C_word*)lf[34]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_570,a[2]=t16,a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp));
576t18=*((C_word*)lf[31]+1);
577t19=*((C_word*)lf[32]+1);
578t20=C_mutate((C_word*)lf[35]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_601,a[2]=t18,a[3]=t19,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp));
579t21=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_635,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp));
580t22=*((C_word*)lf[40]+1);
581t23=C_mutate((C_word*)lf[10]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_781,a[2]=t22,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp));
582t24=((C_word*)t0)[2];
583((C_proc2)(void*)(*((C_word*)t24+1)))(2,t24,C_SCHEME_UNDEFINED);}
584
585/* make-output-port in k195 */
586static void C_ccall f_781(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...){
587C_word tmp;
588C_word t4;
589va_list v;
590C_word *a,c2=c;
591C_save_rest(t3,c2,4);
592if(c<4) C_bad_min_argc_2(c,4,t0);
593C_check_for_interrupt;
594if(!C_demand(c*C_SIZEOF_PAIR+6)){
595C_save_and_reclaim((void*)tr4r,(void*)f_781r,4,t0,t1,t2,t3);}
596else{
597a=C_alloc((c-4)*3);
598t4=C_restore_rest(a,C_rest_count(0));
599f_781r(t0,t1,t2,t3,t4);}}
600
601static void C_ccall f_781r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
602C_word tmp;
603C_word t5;
604C_word t6;
605C_word t7;
606C_word *a=C_alloc(6);
607t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_785,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
608if(C_truep((C_word)C_i_nullp(t4))){
609t6=t5;
610f_785(2,t6,C_SCHEME_FALSE);}
611else{
612t6=(C_word)C_i_cdr(t4);
613if(C_truep((C_word)C_i_nullp(t6))){
614t7=t5;
615f_785(2,t7,(C_word)C_i_car(t4));}
616else{
617/* ##sys#error */
618t7=*((C_word*)lf[39]+1);
619((C_proc4)(void*)(*((C_word*)t7+1)))(4,t7,t5,lf[0],t4);}}}
620
621/* k783 in make-output-port in k195 */
622static void C_ccall f_785(C_word c,C_word t0,C_word t1){
623C_word tmp;
624C_word t2;
625C_word t3;
626C_word t4;
627C_word t5;
628C_word t6;
629C_word t7;
630C_word t8;
631C_word t9;
632C_word ab[33],*a=ab;
633C_check_for_interrupt;
634if(!C_stack_probe(&a)){
635C_save_and_reclaim((void*)tr2,(void*)f_785,2,t0,t1);}
636t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_799,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp);
637t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_809,a[2]=((C_word*)t0)[5],a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp);
638t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_815,a[2]=((C_word*)t0)[3],a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp);
639t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_824,a[2]=t1,a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp);
640t6=(C_word)C_a_i_vector(&a,9,C_SCHEME_FALSE,C_SCHEME_FALSE,t2,t3,t4,t5,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE);
641t7=(C_word)C_a_i_vector(&a,1,C_SCHEME_FALSE);
642t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_794,a[2]=((C_word*)t0)[2],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
643/* ports.scm: 272  ##sys#make-port */
644t9=*((C_word*)lf[36]+1);
645((C_proc6)(void*)(*((C_word*)t9+1)))(6,t9,t8,C_SCHEME_FALSE,t6,lf[41],lf[38]);}
646
647/* k792 in k783 in make-output-port in k195 */
648static void C_ccall f_794(C_word c,C_word t0,C_word t1){
649C_word tmp;
650C_word t2;
651C_word t3;
652C_word *a;
653t2=(C_word)C_i_setslot(t1,C_fix(9),((C_word*)t0)[3]);
654t3=((C_word*)t0)[2];
655((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t1);}
656
657/* a823 in k783 in make-output-port in k195 */
658static void C_ccall f_824(C_word c,C_word t0,C_word t1,C_word t2){
659C_word tmp;
660C_word t3;
661C_word *a;
662if(c!=3) C_bad_argc_2(c,3,t0);
663C_check_for_interrupt;
664if(!C_stack_probe(&a)){
665C_save_and_reclaim((void*)tr3,(void*)f_824,3,t0,t1,t2);}
666if(C_truep(((C_word*)t0)[2])){
667/* ports.scm: 267  flush */
668t3=((C_word*)t0)[2];
669((C_proc2)C_retrieve_proc(t3))(2,t3,t1);}
670else{
671t3=t1;
672((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_UNDEFINED);}}
673
674/* a814 in k783 in make-output-port in k195 */
675static void C_ccall f_815(C_word c,C_word t0,C_word t1,C_word t2){
676C_word tmp;
677C_word t3;
678C_word t4;
679C_word ab[4],*a=ab;
680if(c!=3) C_bad_argc_2(c,3,t0);
681C_check_for_interrupt;
682if(!C_stack_probe(&a)){
683C_save_and_reclaim((void*)tr3,(void*)f_815,3,t0,t1,t2);}
684t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_819,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
685/* ports.scm: 264  close */
686t4=((C_word*)t0)[2];
687((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
688
689/* k817 in a814 in k783 in make-output-port in k195 */
690static void C_ccall f_819(C_word c,C_word t0,C_word t1){
691C_word tmp;
692C_word t2;
693C_word *a;
694t2=((C_word*)t0)[3];
695((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE));}
696
697/* a808 in k783 in make-output-port in k195 */
698static void C_ccall f_809(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
699C_word tmp;
700C_word t4;
701C_word *a;
702if(c!=4) C_bad_argc_2(c,4,t0);
703C_check_for_interrupt;
704if(!C_stack_probe(&a)){
705C_save_and_reclaim((void*)tr4,(void*)f_809,4,t0,t1,t2,t3);}
706/* ports.scm: 262  write */
707t4=((C_word*)t0)[2];
708((C_proc3)C_retrieve_proc(t4))(3,t4,t1,t3);}
709
710/* a798 in k783 in make-output-port in k195 */
711static void C_ccall f_799(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
712C_word tmp;
713C_word t4;
714C_word t5;
715C_word ab[4],*a=ab;
716if(c!=4) C_bad_argc_2(c,4,t0);
717C_check_for_interrupt;
718if(!C_stack_probe(&a)){
719C_save_and_reclaim((void*)tr4,(void*)f_799,4,t0,t1,t2,t3);}
720t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_807,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
721/* ports.scm: 260  string */
722t5=((C_word*)t0)[2];
723((C_proc3)C_retrieve_proc(t5))(3,t5,t4,t3);}
724
725/* k805 in a798 in k783 in make-output-port in k195 */
726static void C_ccall f_807(C_word c,C_word t0,C_word t1){
727C_word tmp;
728C_word t2;
729C_word *a;
730/* ports.scm: 260  write */
731t2=((C_word*)t0)[3];
732((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
733
734/* make-input-port in k195 */
735static void C_ccall f_635(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,...){
736C_word tmp;
737C_word t5;
738va_list v;
739C_word *a,c2=c;
740C_save_rest(t4,c2,5);
741if(c<5) C_bad_min_argc_2(c,5,t0);
742C_check_for_interrupt;
743if(!C_demand(c*C_SIZEOF_PAIR+18)){
744C_save_and_reclaim((void*)tr5r,(void*)f_635r,5,t0,t1,t2,t3,t4);}
745else{
746a=C_alloc((c-5)*3);
747t5=C_restore_rest(a,C_rest_count(0));
748f_635r(t0,t1,t2,t3,t4,t5);}}
749
750static void C_ccall f_635r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
751C_word tmp;
752C_word t6;
753C_word t7;
754C_word t8;
755C_word t9;
756C_word t10;
757C_word t11;
758C_word t12;
759C_word t13;
760C_word t14;
761C_word t15;
762C_word t16;
763C_word *a=C_alloc(18);
764t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_637,a[2]=t3,a[3]=t4,a[4]=t2,a[5]=((C_word)li44),tmp=(C_word)a,a+=6,tmp);
765t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_708,a[2]=t6,a[3]=((C_word)li45),tmp=(C_word)a,a+=4,tmp);
766t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_713,a[2]=t7,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp);
767t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_718,a[2]=t8,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp);
768if(C_truep((C_word)C_i_nullp(t5))){
769/* def-peek121148 */
770t10=t9;
771f_718(t10,t1);}
772else{
773t10=(C_word)C_i_car(t5);
774t11=(C_word)C_i_cdr(t5);
775if(C_truep((C_word)C_i_nullp(t11))){
776/* def-read-string122146 */
777t12=t8;
778f_713(t12,t1,t10);}
779else{
780t12=(C_word)C_i_car(t11);
781t13=(C_word)C_i_cdr(t11);
782if(C_truep((C_word)C_i_nullp(t13))){
783/* def-read-line123143 */
784t14=t7;
785f_708(t14,t1,t10,t12);}
786else{
787t14=(C_word)C_i_car(t13);
788t15=(C_word)C_i_cdr(t13);
789if(C_truep((C_word)C_i_nullp(t15))){
790/* body119125 */
791t16=t6;
792f_637(t16,t1,t10,t12,t14);}
793else{
794/* ##sys#error */
795t16=*((C_word*)lf[39]+1);
796((C_proc4)(void*)(*((C_word*)t16+1)))(4,t16,t1,lf[0],t15);}}}}}
797
798/* def-peek121 in make-input-port in k195 */
799static void C_fcall f_718(C_word t0,C_word t1){
800C_word tmp;
801C_word t2;
802C_word *a;
803C_check_for_interrupt;
804if(!C_stack_probe(&a)){
805C_save_and_reclaim((void*)trf_718,NULL,2,t0,t1);}
806/* def-read-string122146 */
807t2=((C_word*)t0)[2];
808f_713(t2,t1,C_SCHEME_FALSE);}
809
810/* def-read-string122 in make-input-port in k195 */
811static void C_fcall f_713(C_word t0,C_word t1,C_word t2){
812C_word tmp;
813C_word t3;
814C_word *a;
815C_check_for_interrupt;
816if(!C_stack_probe(&a)){
817C_save_and_reclaim((void*)trf_713,NULL,3,t0,t1,t2);}
818/* def-read-line123143 */
819t3=((C_word*)t0)[2];
820f_708(t3,t1,t2,C_SCHEME_FALSE);}
821
822/* def-read-line123 in make-input-port in k195 */
823static void C_fcall f_708(C_word t0,C_word t1,C_word t2,C_word t3){
824C_word tmp;
825C_word t4;
826C_word *a;
827C_check_for_interrupt;
828if(!C_stack_probe(&a)){
829C_save_and_reclaim((void*)trf_708,NULL,4,t0,t1,t2,t3);}
830/* body119125 */
831t4=((C_word*)t0)[2];
832f_637(t4,t1,t2,t3,C_SCHEME_FALSE);}
833
834/* body119 in make-input-port in k195 */
835static void C_fcall f_637(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
836C_word tmp;
837C_word t5;
838C_word t6;
839C_word t7;
840C_word t8;
841C_word t9;
842C_word t10;
843C_word t11;
844C_word t12;
845C_word ab[34],*a=ab;
846C_check_for_interrupt;
847if(!C_stack_probe(&a)){
848C_save_and_reclaim((void*)trf_637,NULL,5,t0,t1,t2,t3,t4);}
849t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_652,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp);
850t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_673,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp);
851t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_694,a[2]=((C_word*)t0)[3],a[3]=((C_word)li42),tmp=(C_word)a,a+=4,tmp);
852t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_703,a[2]=((C_word*)t0)[2],a[3]=((C_word)li43),tmp=(C_word)a,a+=4,tmp);
853t9=(C_word)C_a_i_vector(&a,9,t5,t6,C_SCHEME_FALSE,C_SCHEME_FALSE,t7,C_SCHEME_FALSE,t8,t3,t4);
854t10=(C_word)C_a_i_vector(&a,1,C_SCHEME_FALSE);
855t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_647,a[2]=t1,a[3]=t10,tmp=(C_word)a,a+=4,tmp);
856/* ports.scm: 248  ##sys#make-port */
857t12=*((C_word*)lf[36]+1);
858((C_proc6)(void*)(*((C_word*)t12+1)))(6,t12,t11,C_SCHEME_TRUE,t9,lf[37],lf[38]);}
859
860/* k645 in body119 in make-input-port in k195 */
861static void C_ccall f_647(C_word c,C_word t0,C_word t1){
862C_word tmp;
863C_word t2;
864C_word t3;
865C_word *a;
866t2=(C_word)C_i_setslot(t1,C_fix(9),((C_word*)t0)[3]);
867t3=((C_word*)t0)[2];
868((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t1);}
869
870/* a702 in body119 in make-input-port in k195 */
871static void C_ccall f_703(C_word c,C_word t0,C_word t1,C_word t2){
872C_word tmp;
873C_word t3;
874C_word *a;
875if(c!=3) C_bad_argc_2(c,3,t0);
876C_check_for_interrupt;
877if(!C_stack_probe(&a)){
878C_save_and_reclaim((void*)tr3,(void*)f_703,3,t0,t1,t2);}
879/* ports.scm: 244  ready? */
880t3=((C_word*)t0)[2];
881((C_proc2)C_retrieve_proc(t3))(2,t3,t1);}
882
883/* a693 in body119 in make-input-port in k195 */
884static void C_ccall f_694(C_word c,C_word t0,C_word t1,C_word t2){
885C_word tmp;
886C_word t3;
887C_word t4;
888C_word ab[4],*a=ab;
889if(c!=3) C_bad_argc_2(c,3,t0);
890C_check_for_interrupt;
891if(!C_stack_probe(&a)){
892C_save_and_reclaim((void*)tr3,(void*)f_694,3,t0,t1,t2);}
893t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_698,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
894/* ports.scm: 240  close */
895t4=((C_word*)t0)[2];
896((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
897
898/* k696 in a693 in body119 in make-input-port in k195 */
899static void C_ccall f_698(C_word c,C_word t0,C_word t1){
900C_word tmp;
901C_word t2;
902C_word *a;
903t2=((C_word*)t0)[3];
904((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE));}
905
906/* a672 in body119 in make-input-port in k195 */
907static void C_ccall f_673(C_word c,C_word t0,C_word t1,C_word t2){
908C_word tmp;
909C_word t3;
910C_word t4;
911C_word t5;
912C_word ab[4],*a=ab;
913if(c!=3) C_bad_argc_2(c,3,t0);
914C_check_for_interrupt;
915if(!C_stack_probe(&a)){
916C_save_and_reclaim((void*)tr3,(void*)f_673,3,t0,t1,t2);}
917t3=(C_word)C_slot(t2,C_fix(10));
918if(C_truep(((C_word*)t0)[3])){
919/* ports.scm: 231  peek */
920t4=((C_word*)t0)[3];
921((C_proc2)C_retrieve_proc(t4))(2,t4,t1);}
922else{
923if(C_truep(t3)){
924t4=t1;
925((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}
926else{
927t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_689,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
928/* ports.scm: 234  read */
929t5=((C_word*)t0)[2];
930((C_proc2)C_retrieve_proc(t5))(2,t5,t4);}}}
931
932/* k687 in a672 in body119 in make-input-port in k195 */
933static void C_ccall f_689(C_word c,C_word t0,C_word t1){
934C_word tmp;
935C_word t2;
936C_word t3;
937C_word *a;
938t2=(C_word)C_i_setslot(((C_word*)t0)[3],C_fix(10),t1);
939t3=((C_word*)t0)[2];
940((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t1);}
941
942/* a651 in body119 in make-input-port in k195 */
943static void C_ccall f_652(C_word c,C_word t0,C_word t1,C_word t2){
944C_word tmp;
945C_word t3;
946C_word t4;
947C_word t5;
948C_word *a;
949if(c!=3) C_bad_argc_2(c,3,t0);
950C_check_for_interrupt;
951if(!C_stack_probe(&a)){
952C_save_and_reclaim((void*)tr3,(void*)f_652,3,t0,t1,t2);}
953t3=(C_word)C_slot(t2,C_fix(10));
954if(C_truep(((C_word*)t0)[3])){
955/* ports.scm: 224  read */
956t4=((C_word*)t0)[2];
957((C_proc2)C_retrieve_proc(t4))(2,t4,t1);}
958else{
959if(C_truep(t3)){
960t4=(C_word)C_i_set_i_slot(t2,C_fix(10),C_SCHEME_FALSE);
961t5=t1;
962((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t3);}
963else{
964/* ports.scm: 228  read */
965t4=((C_word*)t0)[2];
966((C_proc2)C_retrieve_proc(t4))(2,t4,t1);}}}
967
968/* with-output-to-string in k195 */
969static void C_ccall f_601(C_word c,C_word t0,C_word t1,C_word t2){
970C_word tmp;
971C_word t3;
972C_word t4;
973C_word ab[5],*a=ab;
974if(c!=3) C_bad_argc_2(c,3,t0);
975C_check_for_interrupt;
976if(!C_stack_probe(&a)){
977C_save_and_reclaim((void*)tr3,(void*)f_601,3,t0,t1,t2);}
978t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_605,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
979/* ports.scm: 207  open-output-string */
980t4=((C_word*)t0)[2];
981((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
982
983/* k603 in with-output-to-string in k195 */
984static void C_ccall f_605(C_word c,C_word t0,C_word t1){
985C_word tmp;
986C_word t2;
987C_word t3;
988C_word t4;
989C_word t5;
990C_word t6;
991C_word t7;
992C_word t8;
993C_word t9;
994C_word ab[19],*a=ab;
995C_check_for_interrupt;
996if(!C_stack_probe(&a)){
997C_save_and_reclaim((void*)tr2,(void*)f_605,2,t0,t1);}
998t2=t1;
999t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1000t4=C_SCHEME_FALSE;
1001t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1002t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_610,a[2]=t3,a[3]=t5,a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp);
1003t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_618,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp);
1004t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_627,a[2]=t5,a[3]=t3,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp);
1005/* ##sys#dynamic-wind */
1006t9=*((C_word*)lf[21]+1);
1007((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,((C_word*)t0)[2],t6,t7,t8);}
1008
1009/* a626 in k603 in with-output-to-string in k195 */
1010static void C_ccall f_627(C_word c,C_word t0,C_word t1){
1011C_word tmp;
1012C_word t2;
1013C_word t3;
1014C_word t4;
1015C_word *a;
1016if(c!=2) C_bad_argc_2(c,2,t0);
1017C_check_for_interrupt;
1018if(!C_stack_probe(&a)){
1019C_save_and_reclaim((void*)tr2,(void*)f_627,2,t0,t1);}
1020t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[24]+1));
1021t3=C_mutate((C_word*)lf[24]+1,((C_word*)((C_word*)t0)[2])[1]);
1022t4=t1;
1023((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1024
1025/* a617 in k603 in with-output-to-string in k195 */
1026static void C_ccall f_618(C_word c,C_word t0,C_word t1){
1027C_word tmp;
1028C_word t2;
1029C_word t3;
1030C_word ab[4],*a=ab;
1031if(c!=2) C_bad_argc_2(c,2,t0);
1032C_check_for_interrupt;
1033if(!C_stack_probe(&a)){
1034C_save_and_reclaim((void*)tr2,(void*)f_618,2,t0,t1);}
1035t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_622,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
1036/* ports.scm: 208  thunk */
1037t3=((C_word*)t0)[2];
1038((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
1039
1040/* k620 in a617 in k603 in with-output-to-string in k195 */
1041static void C_ccall f_622(C_word c,C_word t0,C_word t1){
1042C_word tmp;
1043C_word t2;
1044C_word *a;
1045/* ports.scm: 209  get-output-string */
1046t2=((C_word*)t0)[3];
1047((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],*((C_word*)lf[24]+1));}
1048
1049/* a609 in k603 in with-output-to-string in k195 */
1050static void C_ccall f_610(C_word c,C_word t0,C_word t1){
1051C_word tmp;
1052C_word t2;
1053C_word t3;
1054C_word t4;
1055C_word *a;
1056if(c!=2) C_bad_argc_2(c,2,t0);
1057C_check_for_interrupt;
1058if(!C_stack_probe(&a)){
1059C_save_and_reclaim((void*)tr2,(void*)f_610,2,t0,t1);}
1060t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[24]+1));
1061t3=C_mutate((C_word*)lf[24]+1,((C_word*)((C_word*)t0)[2])[1]);
1062t4=t1;
1063((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1064
1065/* with-input-from-string in k195 */
1066static void C_ccall f_570(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1067C_word tmp;
1068C_word t4;
1069C_word t5;
1070C_word ab[4],*a=ab;
1071if(c!=4) C_bad_argc_2(c,4,t0);
1072C_check_for_interrupt;
1073if(!C_stack_probe(&a)){
1074C_save_and_reclaim((void*)tr4,(void*)f_570,4,t0,t1,t2,t3);}
1075t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_574,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
1076/* ports.scm: 200  open-input-string */
1077t5=((C_word*)t0)[2];
1078((C_proc3)C_retrieve_proc(t5))(3,t5,t4,t2);}
1079
1080/* k572 in with-input-from-string in k195 */
1081static void C_ccall f_574(C_word c,C_word t0,C_word t1){
1082C_word tmp;
1083C_word t2;
1084C_word t3;
1085C_word t4;
1086C_word t5;
1087C_word t6;
1088C_word t7;
1089C_word t8;
1090C_word t9;
1091C_word ab[18],*a=ab;
1092C_check_for_interrupt;
1093if(!C_stack_probe(&a)){
1094C_save_and_reclaim((void*)tr2,(void*)f_574,2,t0,t1);}
1095t2=t1;
1096t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1097t4=C_SCHEME_FALSE;
1098t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1099t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_579,a[2]=t3,a[3]=t5,a[4]=((C_word)li32),tmp=(C_word)a,a+=5,tmp);
1100t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_587,a[2]=((C_word*)t0)[3],a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp);
1101t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_593,a[2]=t5,a[3]=t3,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp);
1102/* ##sys#dynamic-wind */
1103t9=*((C_word*)lf[21]+1);
1104((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,((C_word*)t0)[2],t6,t7,t8);}
1105
1106/* a592 in k572 in with-input-from-string in k195 */
1107static void C_ccall f_593(C_word c,C_word t0,C_word t1){
1108C_word tmp;
1109C_word t2;
1110C_word t3;
1111C_word t4;
1112C_word *a;
1113if(c!=2) C_bad_argc_2(c,2,t0);
1114C_check_for_interrupt;
1115if(!C_stack_probe(&a)){
1116C_save_and_reclaim((void*)tr2,(void*)f_593,2,t0,t1);}
1117t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[19]+1));
1118t3=C_mutate((C_word*)lf[19]+1,((C_word*)((C_word*)t0)[2])[1]);
1119t4=t1;
1120((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1121
1122/* a586 in k572 in with-input-from-string in k195 */
1123static void C_ccall f_587(C_word c,C_word t0,C_word t1){
1124C_word tmp;
1125C_word t2;
1126C_word *a;
1127if(c!=2) C_bad_argc_2(c,2,t0);
1128C_check_for_interrupt;
1129if(!C_stack_probe(&a)){
1130C_save_and_reclaim((void*)tr2,(void*)f_587,2,t0,t1);}
1131/* ports.scm: 201  thunk */
1132t2=((C_word*)t0)[2];
1133((C_proc2)C_retrieve_proc(t2))(2,t2,t1);}
1134
1135/* a578 in k572 in with-input-from-string in k195 */
1136static void C_ccall f_579(C_word c,C_word t0,C_word t1){
1137C_word tmp;
1138C_word t2;
1139C_word t3;
1140C_word t4;
1141C_word *a;
1142if(c!=2) C_bad_argc_2(c,2,t0);
1143C_check_for_interrupt;
1144if(!C_stack_probe(&a)){
1145C_save_and_reclaim((void*)tr2,(void*)f_579,2,t0,t1);}
1146t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[19]+1));
1147t3=C_mutate((C_word*)lf[19]+1,((C_word*)((C_word*)t0)[2])[1]);
1148t4=t1;
1149((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1150
1151/* call-with-output-string in k195 */
1152static void C_ccall f_558(C_word c,C_word t0,C_word t1,C_word t2){
1153C_word tmp;
1154C_word t3;
1155C_word t4;
1156C_word ab[5],*a=ab;
1157if(c!=3) C_bad_argc_2(c,3,t0);
1158C_check_for_interrupt;
1159if(!C_stack_probe(&a)){
1160C_save_and_reclaim((void*)tr3,(void*)f_558,3,t0,t1,t2);}
1161t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_562,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1162/* ports.scm: 193  open-output-string */
1163t4=((C_word*)t0)[2];
1164((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
1165
1166/* k560 in call-with-output-string in k195 */
1167static void C_ccall f_562(C_word c,C_word t0,C_word t1){
1168C_word tmp;
1169C_word t2;
1170C_word t3;
1171C_word ab[5],*a=ab;
1172C_check_for_interrupt;
1173if(!C_stack_probe(&a)){
1174C_save_and_reclaim((void*)tr2,(void*)f_562,2,t0,t1);}
1175t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_565,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
1176/* ports.scm: 194  proc */
1177t3=((C_word*)t0)[2];
1178((C_proc3)C_retrieve_proc(t3))(3,t3,t2,t1);}
1179
1180/* k563 in k560 in call-with-output-string in k195 */
1181static void C_ccall f_565(C_word c,C_word t0,C_word t1){
1182C_word tmp;
1183C_word t2;
1184C_word *a;
1185/* ports.scm: 195  get-output-string */
1186t2=((C_word*)t0)[4];
1187((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}
1188
1189/* call-with-input-string in k195 */
1190static void C_ccall f_549(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1191C_word tmp;
1192C_word t4;
1193C_word t5;
1194C_word ab[4],*a=ab;
1195if(c!=4) C_bad_argc_2(c,4,t0);
1196C_check_for_interrupt;
1197if(!C_stack_probe(&a)){
1198C_save_and_reclaim((void*)tr4,(void*)f_549,4,t0,t1,t2,t3);}
1199t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_553,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
1200/* ports.scm: 186  open-input-string */
1201t5=((C_word*)t0)[2];
1202((C_proc3)C_retrieve_proc(t5))(3,t5,t4,t2);}
1203
1204/* k551 in call-with-input-string in k195 */
1205static void C_ccall f_553(C_word c,C_word t0,C_word t1){
1206C_word tmp;
1207C_word t2;
1208C_word *a;
1209/* ports.scm: 187  proc */
1210t2=((C_word*)t0)[3];
1211((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
1212
1213/* with-error-output-to-port in k195 */
1214static void C_ccall f_518(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1215C_word tmp;
1216C_word t4;
1217C_word t5;
1218C_word ab[5],*a=ab;
1219if(c!=4) C_bad_argc_2(c,4,t0);
1220C_check_for_interrupt;
1221if(!C_stack_probe(&a)){
1222C_save_and_reclaim((void*)tr4,(void*)f_518,4,t0,t1,t2,t3);}
1223t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_522,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
1224/* ports.scm: 177  ##sys#check-port */
1225t5=*((C_word*)lf[22]+1);
1226((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,t2,lf[28]);}
1227
1228/* k520 in with-error-output-to-port in k195 */
1229static void C_ccall f_522(C_word c,C_word t0,C_word t1){
1230C_word tmp;
1231C_word t2;
1232C_word t3;
1233C_word t4;
1234C_word t5;
1235C_word t6;
1236C_word t7;
1237C_word t8;
1238C_word t9;
1239C_word ab[18],*a=ab;
1240C_check_for_interrupt;
1241if(!C_stack_probe(&a)){
1242C_save_and_reclaim((void*)tr2,(void*)f_522,2,t0,t1);}
1243t2=((C_word*)t0)[4];
1244t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1245t4=C_SCHEME_FALSE;
1246t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1247t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_527,a[2]=t3,a[3]=t5,a[4]=((C_word)li26),tmp=(C_word)a,a+=5,tmp);
1248t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_535,a[2]=((C_word*)t0)[3],a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp);
1249t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_541,a[2]=t5,a[3]=t3,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp);
1250/* ports.scm: 178  ##sys#dynamic-wind */
1251t9=*((C_word*)lf[21]+1);
1252((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,((C_word*)t0)[2],t6,t7,t8);}
1253
1254/* a540 in k520 in with-error-output-to-port in k195 */
1255static void C_ccall f_541(C_word c,C_word t0,C_word t1){
1256C_word tmp;
1257C_word t2;
1258C_word t3;
1259C_word t4;
1260C_word *a;
1261if(c!=2) C_bad_argc_2(c,2,t0);
1262C_check_for_interrupt;
1263if(!C_stack_probe(&a)){
1264C_save_and_reclaim((void*)tr2,(void*)f_541,2,t0,t1);}
1265t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[27]+1));
1266t3=C_mutate((C_word*)lf[27]+1,((C_word*)((C_word*)t0)[2])[1]);
1267t4=t1;
1268((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1269
1270/* a534 in k520 in with-error-output-to-port in k195 */
1271static void C_ccall f_535(C_word c,C_word t0,C_word t1){
1272C_word tmp;
1273C_word t2;
1274C_word *a;
1275if(c!=2) C_bad_argc_2(c,2,t0);
1276C_check_for_interrupt;
1277if(!C_stack_probe(&a)){
1278C_save_and_reclaim((void*)tr2,(void*)f_535,2,t0,t1);}
1279/* ports.scm: 179  thunk */
1280t2=((C_word*)t0)[2];
1281((C_proc2)C_retrieve_proc(t2))(2,t2,t1);}
1282
1283/* a526 in k520 in with-error-output-to-port in k195 */
1284static void C_ccall f_527(C_word c,C_word t0,C_word t1){
1285C_word tmp;
1286C_word t2;
1287C_word t3;
1288C_word t4;
1289C_word *a;
1290if(c!=2) C_bad_argc_2(c,2,t0);
1291C_check_for_interrupt;
1292if(!C_stack_probe(&a)){
1293C_save_and_reclaim((void*)tr2,(void*)f_527,2,t0,t1);}
1294t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[27]+1));
1295t3=C_mutate((C_word*)lf[27]+1,((C_word*)((C_word*)t0)[2])[1]);
1296t4=t1;
1297((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1298
1299/* with-output-to-port in k195 */
1300static void C_ccall f_487(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1301C_word tmp;
1302C_word t4;
1303C_word t5;
1304C_word ab[5],*a=ab;
1305if(c!=4) C_bad_argc_2(c,4,t0);
1306C_check_for_interrupt;
1307if(!C_stack_probe(&a)){
1308C_save_and_reclaim((void*)tr4,(void*)f_487,4,t0,t1,t2,t3);}
1309t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_491,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
1310/* ports.scm: 172  ##sys#check-port */
1311t5=*((C_word*)lf[22]+1);
1312((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,t2,lf[25]);}
1313
1314/* k489 in with-output-to-port in k195 */
1315static void C_ccall f_491(C_word c,C_word t0,C_word t1){
1316C_word tmp;
1317C_word t2;
1318C_word t3;
1319C_word t4;
1320C_word t5;
1321C_word t6;
1322C_word t7;
1323C_word t8;
1324C_word t9;
1325C_word ab[18],*a=ab;
1326C_check_for_interrupt;
1327if(!C_stack_probe(&a)){
1328C_save_and_reclaim((void*)tr2,(void*)f_491,2,t0,t1);}
1329t2=((C_word*)t0)[4];
1330t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1331t4=C_SCHEME_FALSE;
1332t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1333t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_496,a[2]=t3,a[3]=t5,a[4]=((C_word)li22),tmp=(C_word)a,a+=5,tmp);
1334t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_504,a[2]=((C_word*)t0)[3],a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp);
1335t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_510,a[2]=t5,a[3]=t3,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp);
1336/* ports.scm: 173  ##sys#dynamic-wind */
1337t9=*((C_word*)lf[21]+1);
1338((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,((C_word*)t0)[2],t6,t7,t8);}
1339
1340/* a509 in k489 in with-output-to-port in k195 */
1341static void C_ccall f_510(C_word c,C_word t0,C_word t1){
1342C_word tmp;
1343C_word t2;
1344C_word t3;
1345C_word t4;
1346C_word *a;
1347if(c!=2) C_bad_argc_2(c,2,t0);
1348C_check_for_interrupt;
1349if(!C_stack_probe(&a)){
1350C_save_and_reclaim((void*)tr2,(void*)f_510,2,t0,t1);}
1351t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[24]+1));
1352t3=C_mutate((C_word*)lf[24]+1,((C_word*)((C_word*)t0)[2])[1]);
1353t4=t1;
1354((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1355
1356/* a503 in k489 in with-output-to-port in k195 */
1357static void C_ccall f_504(C_word c,C_word t0,C_word t1){
1358C_word tmp;
1359C_word t2;
1360C_word *a;
1361if(c!=2) C_bad_argc_2(c,2,t0);
1362C_check_for_interrupt;
1363if(!C_stack_probe(&a)){
1364C_save_and_reclaim((void*)tr2,(void*)f_504,2,t0,t1);}
1365/* ports.scm: 174  thunk */
1366t2=((C_word*)t0)[2];
1367((C_proc2)C_retrieve_proc(t2))(2,t2,t1);}
1368
1369/* a495 in k489 in with-output-to-port in k195 */
1370static void C_ccall f_496(C_word c,C_word t0,C_word t1){
1371C_word tmp;
1372C_word t2;
1373C_word t3;
1374C_word t4;
1375C_word *a;
1376if(c!=2) C_bad_argc_2(c,2,t0);
1377C_check_for_interrupt;
1378if(!C_stack_probe(&a)){
1379C_save_and_reclaim((void*)tr2,(void*)f_496,2,t0,t1);}
1380t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[24]+1));
1381t3=C_mutate((C_word*)lf[24]+1,((C_word*)((C_word*)t0)[2])[1]);
1382t4=t1;
1383((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1384
1385/* with-input-from-port in k195 */
1386static void C_ccall f_456(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1387C_word tmp;
1388C_word t4;
1389C_word t5;
1390C_word ab[5],*a=ab;
1391if(c!=4) C_bad_argc_2(c,4,t0);
1392C_check_for_interrupt;
1393if(!C_stack_probe(&a)){
1394C_save_and_reclaim((void*)tr4,(void*)f_456,4,t0,t1,t2,t3);}
1395t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_460,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
1396/* ports.scm: 167  ##sys#check-port */
1397t5=*((C_word*)lf[22]+1);
1398((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,t2,lf[18]);}
1399
1400/* k458 in with-input-from-port in k195 */
1401static void C_ccall f_460(C_word c,C_word t0,C_word t1){
1402C_word tmp;
1403C_word t2;
1404C_word t3;
1405C_word t4;
1406C_word t5;
1407C_word t6;
1408C_word t7;
1409C_word t8;
1410C_word t9;
1411C_word ab[18],*a=ab;
1412C_check_for_interrupt;
1413if(!C_stack_probe(&a)){
1414C_save_and_reclaim((void*)tr2,(void*)f_460,2,t0,t1);}
1415t2=((C_word*)t0)[4];
1416t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1417t4=C_SCHEME_FALSE;
1418t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1419t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_465,a[2]=t3,a[3]=t5,a[4]=((C_word)li18),tmp=(C_word)a,a+=5,tmp);
1420t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_473,a[2]=((C_word*)t0)[3],a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp);
1421t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_479,a[2]=t5,a[3]=t3,a[4]=((C_word)li20),tmp=(C_word)a,a+=5,tmp);
1422/* ports.scm: 168  ##sys#dynamic-wind */
1423t9=*((C_word*)lf[21]+1);
1424((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,((C_word*)t0)[2],t6,t7,t8);}
1425
1426/* a478 in k458 in with-input-from-port in k195 */
1427static void C_ccall f_479(C_word c,C_word t0,C_word t1){
1428C_word tmp;
1429C_word t2;
1430C_word t3;
1431C_word t4;
1432C_word *a;
1433if(c!=2) C_bad_argc_2(c,2,t0);
1434C_check_for_interrupt;
1435if(!C_stack_probe(&a)){
1436C_save_and_reclaim((void*)tr2,(void*)f_479,2,t0,t1);}
1437t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[19]+1));
1438t3=C_mutate((C_word*)lf[19]+1,((C_word*)((C_word*)t0)[2])[1]);
1439t4=t1;
1440((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1441
1442/* a472 in k458 in with-input-from-port in k195 */
1443static void C_ccall f_473(C_word c,C_word t0,C_word t1){
1444C_word tmp;
1445C_word t2;
1446C_word *a;
1447if(c!=2) C_bad_argc_2(c,2,t0);
1448C_check_for_interrupt;
1449if(!C_stack_probe(&a)){
1450C_save_and_reclaim((void*)tr2,(void*)f_473,2,t0,t1);}
1451/* ports.scm: 169  thunk */
1452t2=((C_word*)t0)[2];
1453((C_proc2)C_retrieve_proc(t2))(2,t2,t1);}
1454
1455/* a464 in k458 in with-input-from-port in k195 */
1456static void C_ccall f_465(C_word c,C_word t0,C_word t1){
1457C_word tmp;
1458C_word t2;
1459C_word t3;
1460C_word t4;
1461C_word *a;
1462if(c!=2) C_bad_argc_2(c,2,t0);
1463C_check_for_interrupt;
1464if(!C_stack_probe(&a)){
1465C_save_and_reclaim((void*)tr2,(void*)f_465,2,t0,t1);}
1466t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[19]+1));
1467t3=C_mutate((C_word*)lf[19]+1,((C_word*)((C_word*)t0)[2])[1]);
1468t4=t1;
1469((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,*((C_word*)lf[20]+1));}
1470
1471/* make-concatenated-port in k195 */
1472static void C_ccall f_304(C_word c,C_word t0,C_word t1,C_word t2,...){
1473C_word tmp;
1474C_word t3;
1475va_list v;
1476C_word *a,c2=c;
1477C_save_rest(t2,c2,3);
1478if(c<3) C_bad_min_argc_2(c,3,t0);
1479C_check_for_interrupt;
1480if(!C_demand(c*C_SIZEOF_PAIR+21)){
1481C_save_and_reclaim((void*)tr3r,(void*)f_304r,3,t0,t1,t2);}
1482else{
1483a=C_alloc((c-3)*3);
1484t3=C_restore_rest(a,C_rest_count(0));
1485f_304r(t0,t1,t2,t3);}}
1486
1487static void C_ccall f_304r(C_word t0,C_word t1,C_word t2,C_word t3){
1488C_word tmp;
1489C_word t4;
1490C_word t5;
1491C_word t6;
1492C_word t7;
1493C_word t8;
1494C_word t9;
1495C_word t10;
1496C_word t11;
1497C_word *a=C_alloc(21);
1498t4=(C_word)C_a_i_cons(&a,2,t2,t3);
1499t5=t4;
1500t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
1501t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_313,a[2]=t6,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp);
1502t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_348,a[2]=t6,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp);
1503t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_368,a[2]=t6,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp);
1504t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_403,a[2]=t6,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp);
1505/* ports.scm: 130  make-input-port */
1506t11=*((C_word*)lf[17]+1);
1507((C_proc7)C_retrieve_proc(t11))(7,t11,t1,t7,t8,*((C_word*)lf[11]+1),t9,t10);}
1508
1509/* a402 in make-concatenated-port in k195 */
1510static void C_ccall f_403(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
1511C_word tmp;
1512C_word t6;
1513C_word t7;
1514C_word t8;
1515C_word t9;
1516C_word ab[9],*a=ab;
1517if(c!=6) C_bad_argc_2(c,6,t0);
1518C_check_for_interrupt;
1519if(!C_stack_probe(&a)){
1520C_save_and_reclaim((void*)tr6,(void*)f_403,6,t0,t1,t2,t3,t4,t5);}
1521t6=C_SCHEME_UNDEFINED;
1522t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
1523t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_409,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word)li15),tmp=(C_word)a,a+=7,tmp));
1524t9=((C_word*)t7)[1];
1525f_409(t9,t1,t3,C_fix(0));}
1526
1527/* loop in a402 in make-concatenated-port in k195 */
1528static void C_fcall f_409(C_word t0,C_word t1,C_word t2,C_word t3){
1529C_word tmp;
1530C_word t4;
1531C_word t5;
1532C_word t6;
1533C_word t7;
1534C_word ab[7],*a=ab;
1535C_check_for_interrupt;
1536if(!C_stack_probe(&a)){
1537C_save_and_reclaim((void*)trf_409,NULL,4,t0,t1,t2,t3);}
1538if(C_truep((C_word)C_i_nullp(((C_word*)((C_word*)t0)[5])[1]))){
1539t4=t1;
1540((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}
1541else{
1542if(C_truep((C_word)C_fixnum_less_or_equal_p(t2,C_fix(0)))){
1543t4=t1;
1544((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}
1545else{
1546t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_425,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
1547t5=(C_word)C_i_car(((C_word*)((C_word*)t0)[5])[1]);
1548t6=(C_word)C_fixnum_plus(((C_word*)t0)[3],t3);
1549/* ports.scm: 158  read-string! */
1550t7=*((C_word*)lf[16]+1);
1551((C_proc6)C_retrieve_proc(t7))(6,t7,t4,t2,((C_word*)t0)[2],t5,t6);}}}
1552
1553/* k423 in loop in a402 in make-concatenated-port in k195 */
1554static void C_ccall f_425(C_word c,C_word t0,C_word t1){
1555C_word tmp;
1556C_word t2;
1557C_word t3;
1558C_word t4;
1559C_word t5;
1560C_word ab[7],*a=ab;
1561C_check_for_interrupt;
1562if(!C_stack_probe(&a)){
1563C_save_and_reclaim((void*)tr2,(void*)f_425,2,t0,t1);}
1564t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_428,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
1565if(C_truep((C_word)C_fixnum_lessp(t1,((C_word*)t0)[6]))){
1566t3=(C_word)C_i_cdr(((C_word*)((C_word*)t0)[2])[1]);
1567t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
1568t5=t2;
1569f_428(t5,t4);}
1570else{
1571t3=t2;
1572f_428(t3,C_SCHEME_UNDEFINED);}}
1573
1574/* k426 in k423 in loop in a402 in make-concatenated-port in k195 */
1575static void C_fcall f_428(C_word t0,C_word t1){
1576C_word tmp;
1577C_word t2;
1578C_word t3;
1579C_word t4;
1580C_word *a;
1581t2=(C_word)C_fixnum_difference(((C_word*)t0)[6],((C_word*)t0)[5]);
1582t3=(C_word)C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[5]);
1583/* ports.scm: 161  loop */
1584t4=((C_word*)((C_word*)t0)[3])[1];
1585f_409(t4,((C_word*)t0)[2],t2,t3);}
1586
1587/* a367 in make-concatenated-port in k195 */
1588static void C_ccall f_368(C_word c,C_word t0,C_word t1){
1589C_word tmp;
1590C_word t2;
1591C_word t3;
1592C_word t4;
1593C_word t5;
1594C_word ab[7],*a=ab;
1595if(c!=2) C_bad_argc_2(c,2,t0);
1596C_check_for_interrupt;
1597if(!C_stack_probe(&a)){
1598C_save_and_reclaim((void*)tr2,(void*)f_368,2,t0,t1);}
1599t2=C_SCHEME_UNDEFINED;
1600t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1601t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_374,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp));
1602t5=((C_word*)t3)[1];
1603f_374(t5,t1);}
1604
1605/* loop in a367 in make-concatenated-port in k195 */
1606static void C_fcall f_374(C_word t0,C_word t1){
1607C_word tmp;
1608C_word t2;
1609C_word t3;
1610C_word t4;
1611C_word ab[5],*a=ab;
1612C_check_for_interrupt;
1613if(!C_stack_probe(&a)){
1614C_save_and_reclaim((void*)trf_374,NULL,2,t0,t1);}
1615if(C_truep((C_word)C_i_nullp(((C_word*)((C_word*)t0)[3])[1]))){
1616t2=t1;
1617((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_END_OF_FILE);}
1618else{
1619t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_384,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1620t3=(C_word)C_i_car(((C_word*)((C_word*)t0)[3])[1]);
1621/* ports.scm: 148  peek-char */
1622t4=*((C_word*)lf[15]+1);
1623((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t2,t3);}}
1624
1625/* k382 in loop in a367 in make-concatenated-port in k195 */
1626static void C_ccall f_384(C_word c,C_word t0,C_word t1){
1627C_word tmp;
1628C_word t2;
1629C_word t3;
1630C_word t4;
1631C_word *a;
1632if(C_truep((C_word)C_eofp(t1))){
1633t2=(C_word)C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
1634t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t2);
1635/* ports.scm: 151  loop */
1636t4=((C_word*)((C_word*)t0)[3])[1];
1637f_374(t4,((C_word*)t0)[2]);}
1638else{
1639t2=((C_word*)t0)[2];
1640((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,t1);}}
1641
1642/* a347 in make-concatenated-port in k195 */
1643static void C_ccall f_348(C_word c,C_word t0,C_word t1){
1644C_word tmp;
1645C_word t2;
1646C_word t3;
1647C_word *a;
1648if(c!=2) C_bad_argc_2(c,2,t0);
1649C_check_for_interrupt;
1650if(!C_stack_probe(&a)){
1651C_save_and_reclaim((void*)tr2,(void*)f_348,2,t0,t1);}
1652if(C_truep((C_word)C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){
1653t2=t1;
1654((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_FALSE);}
1655else{
1656t2=(C_word)C_i_car(((C_word*)((C_word*)t0)[2])[1]);
1657/* ports.scm: 142  char-ready? */
1658t3=*((C_word*)lf[14]+1);
1659((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t1,t2);}}
1660
1661/* a312 in make-concatenated-port in k195 */
1662static void C_ccall f_313(C_word c,C_word t0,C_word t1){
1663C_word tmp;
1664C_word t2;
1665C_word t3;
1666C_word t4;
1667C_word t5;
1668C_word ab[7],*a=ab;
1669if(c!=2) C_bad_argc_2(c,2,t0);
1670C_check_for_interrupt;
1671if(!C_stack_probe(&a)){
1672C_save_and_reclaim((void*)tr2,(void*)f_313,2,t0,t1);}
1673t2=C_SCHEME_UNDEFINED;
1674t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
1675t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_319,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp));
1676t5=((C_word*)t3)[1];
1677f_319(t5,t1);}
1678
1679/* loop in a312 in make-concatenated-port in k195 */
1680static void C_fcall f_319(C_word t0,C_word t1){
1681C_word tmp;
1682C_word t2;
1683C_word t3;
1684C_word t4;
1685C_word ab[5],*a=ab;
1686C_check_for_interrupt;
1687if(!C_stack_probe(&a)){
1688C_save_and_reclaim((void*)trf_319,NULL,2,t0,t1);}
1689if(C_truep((C_word)C_i_nullp(((C_word*)((C_word*)t0)[3])[1]))){
1690t2=t1;
1691((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_END_OF_FILE);}
1692else{
1693t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_329,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1694t3=(C_word)C_i_car(((C_word*)((C_word*)t0)[3])[1]);
1695/* read-char/port */
1696t4=*((C_word*)lf[13]+1);
1697((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t2,t3);}}
1698
1699/* k327 in loop in a312 in make-concatenated-port in k195 */
1700static void C_ccall f_329(C_word c,C_word t0,C_word t1){
1701C_word tmp;
1702C_word t2;
1703C_word t3;
1704C_word t4;
1705C_word *a;
1706if(C_truep((C_word)C_eofp(t1))){
1707t2=(C_word)C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
1708t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t2);
1709/* ports.scm: 138  loop */
1710t4=((C_word*)((C_word*)t0)[3])[1];
1711f_319(t4,((C_word*)t0)[2]);}
1712else{
1713t2=((C_word*)t0)[2];
1714((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,t1);}}
1715
1716/* make-broadcast-port in k195 */
1717static void C_ccall f_280(C_word c,C_word t0,C_word t1,...){
1718C_word tmp;
1719C_word t2;
1720va_list v;
1721C_word *a,c2=c;
1722C_save_rest(t1,c2,2);
1723C_check_for_interrupt;
1724if(!C_demand(c*C_SIZEOF_PAIR+8)){
1725C_save_and_reclaim((void*)tr2r,(void*)f_280r,2,t0,t1);}
1726else{
1727a=C_alloc((c-2)*3);
1728t2=C_restore_rest(a,C_rest_count(0));
1729f_280r(t0,t1,t2);}}
1730
1731static void C_ccall f_280r(C_word t0,C_word t1,C_word t2){
1732C_word tmp;
1733C_word t3;
1734C_word t4;
1735C_word t5;
1736C_word *a=C_alloc(8);
1737t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_286,a[2]=t2,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp);
1738t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_298,a[2]=t2,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp);
1739/* ports.scm: 123  make-output-port */
1740t5=*((C_word*)lf[10]+1);
1741((C_proc5)C_retrieve_proc(t5))(5,t5,t1,t3,*((C_word*)lf[11]+1),t4);}
1742
1743/* a297 in make-broadcast-port in k195 */
1744static void C_ccall f_298(C_word c,C_word t0,C_word t1){
1745C_word tmp;
1746C_word t2;
1747C_word *a;
1748if(c!=2) C_bad_argc_2(c,2,t0);
1749C_check_for_interrupt;
1750if(!C_stack_probe(&a)){
1751C_save_and_reclaim((void*)tr2,(void*)f_298,2,t0,t1);}
1752/* for-each */
1753t2=*((C_word*)lf[8]+1);
1754((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,t1,*((C_word*)lf[9]+1),((C_word*)t0)[2]);}
1755
1756/* a285 in make-broadcast-port in k195 */
1757static void C_ccall f_286(C_word c,C_word t0,C_word t1,C_word t2){
1758C_word tmp;
1759C_word t3;
1760C_word t4;
1761C_word ab[4],*a=ab;
1762if(c!=3) C_bad_argc_2(c,3,t0);
1763C_check_for_interrupt;
1764if(!C_stack_probe(&a)){
1765C_save_and_reclaim((void*)tr3,(void*)f_286,3,t0,t1,t2);}
1766t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_292,a[2]=t2,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp);
1767/* for-each */
1768t4=*((C_word*)lf[8]+1);
1769((C_proc4)(void*)(*((C_word*)t4+1)))(4,t4,t1,t3,((C_word*)t0)[2]);}
1770
1771/* a291 in a285 in make-broadcast-port in k195 */
1772static void C_ccall f_292(C_word c,C_word t0,C_word t1,C_word t2){
1773C_word tmp;
1774C_word t3;
1775C_word *a;
1776if(c!=3) C_bad_argc_2(c,3,t0);
1777C_check_for_interrupt;
1778if(!C_stack_probe(&a)){
1779C_save_and_reclaim((void*)tr3,(void*)f_292,3,t0,t1,t2);}
1780/* write-string */
1781t3=*((C_word*)lf[7]+1);
1782((C_proc5)C_retrieve_proc(t3))(5,t3,t1,((C_word*)t0)[2],C_SCHEME_FALSE,t2);}
1783
1784/* port-fold in k195 */
1785static void C_ccall f_255(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
1786C_word tmp;
1787C_word t5;
1788C_word t6;
1789C_word t7;
1790C_word t8;
1791C_word ab[8],*a=ab;
1792if(c!=5) C_bad_argc_2(c,5,t0);
1793C_check_for_interrupt;
1794if(!C_stack_probe(&a)){
1795C_save_and_reclaim((void*)tr5,(void*)f_255,5,t0,t1,t2,t3,t4);}
1796t5=C_SCHEME_UNDEFINED;
1797t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
1798t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_261,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li4),tmp=(C_word)a,a+=6,tmp));
1799t8=((C_word*)t6)[1];
1800f_261(t8,t1,t3);}
1801
1802/* loop in port-fold in k195 */
1803static void C_fcall f_261(C_word t0,C_word t1,C_word t2){
1804C_word tmp;
1805C_word t3;
1806C_word t4;
1807C_word ab[6],*a=ab;
1808C_check_for_interrupt;
1809if(!C_stack_probe(&a)){
1810C_save_and_reclaim((void*)trf_261,NULL,3,t0,t1,t2);}
1811t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_265,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
1812/* ports.scm: 115  thunk */
1813t4=((C_word*)t0)[2];
1814((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
1815
1816/* k263 in loop in port-fold in k195 */
1817static void C_ccall f_265(C_word c,C_word t0,C_word t1){
1818C_word tmp;
1819C_word t2;
1820C_word t3;
1821C_word t4;
1822C_word ab[4],*a=ab;
1823C_check_for_interrupt;
1824if(!C_stack_probe(&a)){
1825C_save_and_reclaim((void*)tr2,(void*)f_265,2,t0,t1);}
1826t2=(C_word)C_eqp(t1,C_SCHEME_END_OF_FILE);
1827if(C_truep(t2)){
1828t3=((C_word*)t0)[5];
1829((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,((C_word*)t0)[4]);}
1830else{
1831t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_278,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
1832/* ports.scm: 118  fn */
1833t4=((C_word*)t0)[2];
1834((C_proc4)C_retrieve_proc(t4))(4,t4,t3,t1,((C_word*)t0)[4]);}}
1835
1836/* k276 in k263 in loop in port-fold in k195 */
1837static void C_ccall f_278(C_word c,C_word t0,C_word t1){
1838C_word tmp;
1839C_word t2;
1840C_word *a;
1841/* ports.scm: 118  loop */
1842t2=((C_word*)((C_word*)t0)[3])[1];
1843f_261(t2,((C_word*)t0)[2],t1);}
1844
1845/* port-map in k195 */
1846static void C_ccall f_223(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1847C_word tmp;
1848C_word t4;
1849C_word t5;
1850C_word t6;
1851C_word t7;
1852C_word ab[9],*a=ab;
1853if(c!=4) C_bad_argc_2(c,4,t0);
1854C_check_for_interrupt;
1855if(!C_stack_probe(&a)){
1856C_save_and_reclaim((void*)tr4,(void*)f_223,4,t0,t1,t2,t3);}
1857t4=C_SCHEME_UNDEFINED;
1858t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1859t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_229,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word)li2),tmp=(C_word)a,a+=7,tmp));
1860t7=((C_word*)t5)[1];
1861f_229(t7,t1,C_SCHEME_END_OF_LIST);}
1862
1863/* loop in port-map in k195 */
1864static void C_fcall f_229(C_word t0,C_word t1,C_word t2){
1865C_word tmp;
1866C_word t3;
1867C_word t4;
1868C_word ab[7],*a=ab;
1869C_check_for_interrupt;
1870if(!C_stack_probe(&a)){
1871C_save_and_reclaim((void*)trf_229,NULL,3,t0,t1,t2);}
1872t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_233,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
1873/* ports.scm: 108  thunk */
1874t4=((C_word*)t0)[2];
1875((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
1876
1877/* k231 in loop in port-map in k195 */
1878static void C_ccall f_233(C_word c,C_word t0,C_word t1){
1879C_word tmp;
1880C_word t2;
1881C_word t3;
1882C_word t4;
1883C_word ab[5],*a=ab;
1884C_check_for_interrupt;
1885if(!C_stack_probe(&a)){
1886C_save_and_reclaim((void*)tr2,(void*)f_233,2,t0,t1);}
1887t2=(C_word)C_eqp(t1,C_SCHEME_END_OF_FILE);
1888if(C_truep(t2)){
1889/* ports.scm: 110  reverse */
1890t3=((C_word*)t0)[6];
1891((C_proc3)C_retrieve_proc(t3))(3,t3,((C_word*)t0)[5],((C_word*)t0)[4]);}
1892else{
1893t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_253,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
1894/* ports.scm: 111  fn */
1895t4=((C_word*)t0)[2];
1896((C_proc3)C_retrieve_proc(t4))(3,t4,t3,t1);}}
1897
1898/* k251 in k231 in loop in port-map in k195 */
1899static void C_ccall f_253(C_word c,C_word t0,C_word t1){
1900C_word tmp;
1901C_word t2;
1902C_word t3;
1903C_word ab[3],*a=ab;
1904C_check_for_interrupt;
1905if(!C_stack_probe(&a)){
1906C_save_and_reclaim((void*)tr2,(void*)f_253,2,t0,t1);}
1907t2=(C_word)C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
1908/* ports.scm: 111  loop */
1909t3=((C_word*)((C_word*)t0)[3])[1];
1910f_229(t3,((C_word*)t0)[2],t2);}
1911
1912/* port-for-each in k195 */
1913static void C_ccall f_199(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1914C_word tmp;
1915C_word t4;
1916C_word t5;
1917C_word t6;
1918C_word t7;
1919C_word ab[8],*a=ab;
1920if(c!=4) C_bad_argc_2(c,4,t0);
1921C_check_for_interrupt;
1922if(!C_stack_probe(&a)){
1923C_save_and_reclaim((void*)tr4,(void*)f_199,4,t0,t1,t2,t3);}
1924t4=C_SCHEME_UNDEFINED;
1925t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
1926t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_205,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp));
1927t7=((C_word*)t5)[1];
1928f_205(t7,t1);}
1929
1930/* loop in port-for-each in k195 */
1931static void C_fcall f_205(C_word t0,C_word t1){
1932C_word tmp;
1933C_word t2;
1934C_word t3;
1935C_word ab[5],*a=ab;
1936C_check_for_interrupt;
1937if(!C_stack_probe(&a)){
1938C_save_and_reclaim((void*)trf_205,NULL,2,t0,t1);}
1939t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_209,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
1940/* ports.scm: 99   thunk */
1941t3=((C_word*)t0)[2];
1942((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
1943
1944/* k207 in loop in port-for-each in k195 */
1945static void C_ccall f_209(C_word c,C_word t0,C_word t1){
1946C_word tmp;
1947C_word t2;
1948C_word t3;
1949C_word t4;
1950C_word ab[4],*a=ab;
1951C_check_for_interrupt;
1952if(!C_stack_probe(&a)){
1953C_save_and_reclaim((void*)tr2,(void*)f_209,2,t0,t1);}
1954t2=(C_word)C_eqp(t1,C_SCHEME_END_OF_FILE);
1955if(C_truep(t2)){
1956t3=((C_word*)t0)[4];
1957((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_UNDEFINED);}
1958else{
1959t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_218,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
1960/* ports.scm: 101  fn */
1961t4=((C_word*)t0)[2];
1962((C_proc3)C_retrieve_proc(t4))(3,t4,t3,t1);}}
1963
1964/* k216 in k207 in loop in port-for-each in k195 */
1965static void C_ccall f_218(C_word c,C_word t0,C_word t1){
1966C_word tmp;
1967C_word t2;
1968C_word *a;
1969/* ports.scm: 102  loop */
1970t2=((C_word*)((C_word*)t0)[3])[1];
1971f_205(t2,((C_word*)t0)[2]);}
1972
1973#ifdef C_ENABLE_PTABLES
1974static C_PTABLE_ENTRY ptable[83] = {
1975{"toplevelports.scm",(void*)C_ports_toplevel},
1976{"f_197ports.scm",(void*)f_197},
1977{"f_781ports.scm",(void*)f_781},
1978{"f_785ports.scm",(void*)f_785},
1979{"f_794ports.scm",(void*)f_794},
1980{"f_824ports.scm",(void*)f_824},
1981{"f_815ports.scm",(void*)f_815},
1982{"f_819ports.scm",(void*)f_819},
1983{"f_809ports.scm",(void*)f_809},
1984{"f_799ports.scm",(void*)f_799},
1985{"f_807ports.scm",(void*)f_807},
1986{"f_635ports.scm",(void*)f_635},
1987{"f_718ports.scm",(void*)f_718},
1988{"f_713ports.scm",(void*)f_713},
1989{"f_708ports.scm",(void*)f_708},
1990{"f_637ports.scm",(void*)f_637},
1991{"f_647ports.scm",(void*)f_647},
1992{"f_703ports.scm",(void*)f_703},
1993{"f_694ports.scm",(void*)f_694},
1994{"f_698ports.scm",(void*)f_698},
1995{"f_673ports.scm",(void*)f_673},
1996{"f_689ports.scm",(void*)f_689},
1997{"f_652ports.scm",(void*)f_652},
1998{"f_601ports.scm",(void*)f_601},
1999{"f_605ports.scm",(void*)f_605},
2000{"f_627ports.scm",(void*)f_627},
2001{"f_618ports.scm",(void*)f_618},
2002{"f_622ports.scm",(void*)f_622},
2003{"f_610ports.scm",(void*)f_610},
2004{"f_570ports.scm",(void*)f_570},
2005{"f_574ports.scm",(void*)f_574},
2006{"f_593ports.scm",(void*)f_593},
2007{"f_587ports.scm",(void*)f_587},
2008{"f_579ports.scm",(void*)f_579},
2009{"f_558ports.scm",(void*)f_558},
2010{"f_562ports.scm",(void*)f_562},
2011{"f_565ports.scm",(void*)f_565},
2012{"f_549ports.scm",(void*)f_549},
2013{"f_553ports.scm",(void*)f_553},
2014{"f_518ports.scm",(void*)f_518},
2015{"f_522ports.scm",(void*)f_522},
2016{"f_541ports.scm",(void*)f_541},
2017{"f_535ports.scm",(void*)f_535},
2018{"f_527ports.scm",(void*)f_527},
2019{"f_487ports.scm",(void*)f_487},
2020{"f_491ports.scm",(void*)f_491},
2021{"f_510ports.scm",(void*)f_510},
2022{"f_504ports.scm",(void*)f_504},
2023{"f_496ports.scm",(void*)f_496},
2024{"f_456ports.scm",(void*)f_456},
2025{"f_460ports.scm",(void*)f_460},
2026{"f_479ports.scm",(void*)f_479},
2027{"f_473ports.scm",(void*)f_473},
2028{"f_465ports.scm",(void*)f_465},
2029{"f_304ports.scm",(void*)f_304},
2030{"f_403ports.scm",(void*)f_403},
2031{"f_409ports.scm",(void*)f_409},
2032{"f_425ports.scm",(void*)f_425},
2033{"f_428ports.scm",(void*)f_428},
2034{"f_368ports.scm",(void*)f_368},
2035{"f_374ports.scm",(void*)f_374},
2036{"f_384ports.scm",(void*)f_384},
2037{"f_348ports.scm",(void*)f_348},
2038{"f_313ports.scm",(void*)f_313},
2039{"f_319ports.scm",(void*)f_319},
2040{"f_329ports.scm",(void*)f_329},
2041{"f_280ports.scm",(void*)f_280},
2042{"f_298ports.scm",(void*)f_298},
2043{"f_286ports.scm",(void*)f_286},
2044{"f_292ports.scm",(void*)f_292},
2045{"f_255ports.scm",(void*)f_255},
2046{"f_261ports.scm",(void*)f_261},
2047{"f_265ports.scm",(void*)f_265},
2048{"f_278ports.scm",(void*)f_278},
2049{"f_223ports.scm",(void*)f_223},
2050{"f_229ports.scm",(void*)f_229},
2051{"f_233ports.scm",(void*)f_233},
2052{"f_253ports.scm",(void*)f_253},
2053{"f_199ports.scm",(void*)f_199},
2054{"f_205ports.scm",(void*)f_205},
2055{"f_209ports.scm",(void*)f_209},
2056{"f_218ports.scm",(void*)f_218},
2057{NULL,NULL}};
2058#endif
2059
2060static C_PTABLE_ENTRY *create_ptable(void){
2061#ifdef C_ENABLE_PTABLES
2062return ptable;
2063#else
2064return NULL;
2065#endif
2066}
2067/* end of file */
Note: See TracBrowser for help on using the repository browser.