← Back to branch summary

~ubuntu-branches/debian/sid/chicken/sid

« back to all changes in this revision

Viewing changes to srfi-13.import.c

  • Committer: Package Import Robot
  • Author(s): Davide Puricelli (evo)
  • Date: 2013-07-15 11:23:44 UTC
  • mfrom: (1.1.12)
  • Revision ID: package-import@ubuntu.com-20130715112344-r07iyxwn6995f297
Tags: 4.8.0.3-1
* New upstream version, including upstream fixes for:
  - CVE-2012-6122 Use POSIX() poll on systems where available.
  - CVE-2012-6123 Added checks for embedded '\0' characters.
  - CVE-2012-6124 On 64-bit machines the "random" procedure no longer
    truncates result values.
  - CVE-2012-6125 Improved hash table collision resistance.  
* Added fix-untrusted-code.patch to prevent execution of untrusted code,
  see CVE-2013-1874, patch provided by upstream.
* Added fix-command-injection.patch to fix a command injection
  vulnerability, see CVE-2013-2024, patch provided by upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
srfi-13.import.c
1
1
/* Generated from srfi-13.import.scm by the CHICKEN compiler
2
2
   http://www.call-cc.org
3
 
   2012-09-24 17:52
4
 
   Version 4.8.0 (rev 0db1908)
5
 
   linux-unix-gnu-x86-64 [ 64bit manyargs ptables ]
6
 
   compiled 2012-09-24 on debian (Linux)
 
3
   2013-03-12 01:05
 
4
   Version 4.8.0.3 (stability/4.8.0) (rev 091c3d9)
 
5
   macosx-unix-clang-x86-64 [ 64bit manyargs ptables ]
 
6
   compiled 2013-03-12 on aeryn.xorinia.dim (Darwin)
7
7
   command line: srfi-13.import.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -types ./types.db -feature chicken-compile-shared -dynamic -no-trace -output-file srfi-13.import.c
8
8
   used units: library eval
9
9
*/
22
22
static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
23
23
 
24
24
 
25
 
C_noret_decl(f_227)
26
 
static void C_ccall f_227(C_word c,C_word t0,C_word t1) C_noret;
 
25
C_noret_decl(f_249)
 
26
static void C_ccall f_249(C_word c,C_word t0,C_word t1) C_noret;
 
27
C_noret_decl(f_247)
 
28
static void C_ccall f_247(C_word c,C_word t0,C_word t1) C_noret;
 
29
C_noret_decl(C_toplevel)
 
30
C_externexport void C_ccall C_toplevel(C_word c,C_word t0,C_word t1) C_noret;
 
31
C_noret_decl(f_218)
 
32
static void C_ccall f_218(C_word c,C_word t0,C_word t1) C_noret;
 
33
C_noret_decl(f_216)
 
34
static void C_ccall f_216(C_word c,C_word t0,C_word t1) C_noret;
27
35
C_noret_decl(f_214)
28
36
static void C_ccall f_214(C_word c,C_word t0,C_word t1) C_noret;
29
 
C_noret_decl(f_216)
30
 
static void C_ccall f_216(C_word c,C_word t0,C_word t1) C_noret;
31
 
C_noret_decl(f_218)
32
 
static void C_ccall f_218(C_word c,C_word t0,C_word t1) C_noret;
33
 
C_noret_decl(f_247)
34
 
static void C_ccall f_247(C_word c,C_word t0,C_word t1) C_noret;
35
 
C_noret_decl(f_249)
36
 
static void C_ccall f_249(C_word c,C_word t0,C_word t1) C_noret;
 
37
C_noret_decl(f_235)
 
38
static void C_ccall f_235(C_word c,C_word t0,C_word t1) C_noret;
37
39
C_noret_decl(f_232)
38
40
static void C_ccall f_232(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
39
41
C_noret_decl(f_230)
40
42
static void C_ccall f_230(C_word c,C_word t0,C_word t1) C_noret;
41
 
C_noret_decl(f_235)
42
 
static void C_ccall f_235(C_word c,C_word t0,C_word t1) C_noret;
 
43
C_noret_decl(f_227)
 
44
static void C_ccall f_227(C_word c,C_word t0,C_word t1) C_noret;
43
45
C_noret_decl(f_251)
44
46
static void C_ccall f_251(C_word c,C_word t0,C_word t1) C_noret;
45
 
C_noret_decl(C_toplevel)
46
 
C_externexport void C_ccall C_toplevel(C_word c,C_word t0,C_word t1) C_noret;
47
47
 
48
48
C_noret_decl(tr5)
49
49
static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
64
64
C_adjust_stack(-2);
65
65
(k)(2,t0,t1);}
66
66
 
67
 
/* k226 in k215 in k213 */
68
 
static void C_ccall f_227(C_word c,C_word t0,C_word t1){
69
 
C_word tmp;
70
 
C_word t2;
71
 
C_word t3;
72
 
C_word t4;
73
 
C_word ab[12],*a=ab;
74
 
C_check_for_interrupt;
75
 
if(!C_stack_probe(&a)){
76
 
C_save_and_reclaim((void*)tr2,(void*)f_227,2,t0,t1);}
77
 
t2=C_a_i_list(&a,3,lf[0],C_SCHEME_END_OF_LIST,t1);
78
 
t3=C_a_i_list(&a,1,t2);
79
 
/* srfi-13.import.scm:27: ##sys#register-primitive-module */
80
 
((C_proc5)C_fast_retrieve_symbol_proc(lf[1]))(5,*((C_word*)lf[1]+1),((C_word*)t0)[2],lf[2],lf[3],t3);}
81
 
 
82
 
/* k213 */
83
 
static void C_ccall f_214(C_word c,C_word t0,C_word t1){
84
 
C_word tmp;
85
 
C_word t2;
86
 
C_word t3;
87
 
C_word ab[3],*a=ab;
88
 
C_check_for_interrupt;
89
 
if(!C_stack_probe(&a)){
90
 
C_save_and_reclaim((void*)tr2,(void*)f_214,2,t0,t1);}
91
 
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
92
 
C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}
93
 
 
94
 
/* k215 in k213 */
95
 
static void C_ccall f_216(C_word c,C_word t0,C_word t1){
96
 
C_word tmp;
97
 
C_word t2;
98
 
C_word t3;
99
 
C_word t4;
100
 
C_word t5;
101
 
C_word t6;
102
 
C_word ab[12],*a=ab;
103
 
C_check_for_interrupt;
104
 
if(!C_stack_probe(&a)){
105
 
C_save_and_reclaim((void*)tr2,(void*)f_216,2,t0,t1);}
106
 
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_218,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
107
 
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_227,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
108
 
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_230,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
109
 
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_232,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp);
110
 
/* srfi-13.import.scm:114: ##sys#er-transformer */
111
 
((C_proc3)C_fast_retrieve_symbol_proc(lf[10]))(3,*((C_word*)lf[10]+1),t4,t5);}
112
 
 
113
 
/* k217 in k215 in k213 */
114
 
static void C_ccall f_218(C_word c,C_word t0,C_word t1){
115
 
C_word tmp;
116
 
C_word t2;
117
 
C_word *a;
118
 
t2=((C_word*)t0)[2];
119
 
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
 
67
/* k248 in k246 in k234 */
 
68
static void C_ccall f_249(C_word c,C_word t0,C_word t1){
 
69
C_word tmp;
 
70
C_word t2;
 
71
C_word t3;
 
72
C_word ab[10],*a=ab;
 
73
C_check_for_interrupt;
 
74
if(!C_stack_probe(&a)){
 
75
C_save_and_reclaim((void*)tr2,(void*)f_249,2,t0,t1);}
 
76
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_251,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],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);
 
77
/* srfi-13.import.scm:124: r */
 
78
t3=((C_word*)t0)[9];
 
79
((C_proc3)C_fast_retrieve_proc(t3))(3,t3,t2,lf[5]);}
120
80
 
121
81
/* k246 in k234 */
122
82
static void C_ccall f_247(C_word c,C_word t0,C_word t1){
132
92
t3=((C_word*)t0)[8];
133
93
((C_proc3)C_fast_retrieve_proc(t3))(3,t3,t2,lf[6]);}
134
94
 
135
 
/* k248 in k246 in k234 */
136
 
static void C_ccall f_249(C_word c,C_word t0,C_word t1){
137
 
C_word tmp;
138
 
C_word t2;
139
 
C_word t3;
140
 
C_word ab[10],*a=ab;
141
 
C_check_for_interrupt;
142
 
if(!C_stack_probe(&a)){
143
 
C_save_and_reclaim((void*)tr2,(void*)f_249,2,t0,t1);}
144
 
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_251,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],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);
145
 
/* srfi-13.import.scm:124: r */
146
 
t3=((C_word*)t0)[9];
147
 
((C_proc3)C_fast_retrieve_proc(t3))(3,t3,t2,lf[5]);}
148
 
 
149
 
/* f_232 in k215 in k213 */
150
 
static void C_ccall f_232(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
151
 
C_word tmp;
152
 
C_word t5;
153
 
C_word t6;
154
 
C_word ab[5],*a=ab;
155
 
if(c!=5) C_bad_argc_2(c,5,t0);
156
 
C_check_for_interrupt;
157
 
if(!C_stack_probe(&a)){
158
 
C_save_and_reclaim((void*)tr5,(void*)f_232,5,t0,t1,t2,t3,t4);}
159
 
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_235,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
160
 
/* srfi-13.import.scm:116: ##sys#check-syntax */
161
 
((C_proc5)C_fast_retrieve_symbol_proc(lf[8]))(5,*((C_word*)lf[8]+1),t5,lf[0],t2,lf[9]);}
162
 
 
163
 
/* k229 in k215 in k213 */
164
 
static void C_ccall f_230(C_word c,C_word t0,C_word t1){
165
 
C_word tmp;
166
 
C_word t2;
167
 
C_word *a;
168
 
/* srfi-13.import.scm:113: ##sys#ensure-transformer */
169
 
((C_proc4)C_fast_retrieve_symbol_proc(lf[4]))(4,*((C_word*)lf[4]+1),((C_word*)t0)[2],t1,lf[0]);}
170
 
 
171
 
/* k234 */
172
 
static void C_ccall f_235(C_word c,C_word t0,C_word t1){
173
 
C_word tmp;
174
 
C_word t2;
175
 
C_word t3;
176
 
C_word t4;
177
 
C_word t5;
178
 
C_word t6;
179
 
C_word t7;
180
 
C_word t8;
181
 
C_word t9;
182
 
C_word t10;
183
 
C_word ab[9],*a=ab;
184
 
C_check_for_interrupt;
185
 
if(!C_stack_probe(&a)){
186
 
C_save_and_reclaim((void*)tr2,(void*)f_235,2,t0,t1);}
187
 
t2=C_i_cadr(((C_word*)t0)[2]);
188
 
t3=C_i_caddr(((C_word*)t0)[2]);
189
 
t4=C_i_cadddr(((C_word*)t0)[2]);
190
 
t5=C_i_cddddr(((C_word*)t0)[2]);
191
 
t6=C_i_car(t5);
192
 
t7=C_i_cddddr(((C_word*)t0)[2]);
193
 
t8=C_i_cdr(t7);
194
 
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_247,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=t8,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
195
 
/* srfi-13.import.scm:122: r */
196
 
t10=((C_word*)t0)[4];
197
 
((C_proc3)C_fast_retrieve_proc(t10))(3,t10,t9,lf[7]);}
198
 
 
199
 
/* k250 in k248 in k246 in k234 */
200
 
static void C_ccall f_251(C_word c,C_word t0,C_word t1){
201
 
C_word tmp;
202
 
C_word t2;
203
 
C_word t3;
204
 
C_word t4;
205
 
C_word t5;
206
 
C_word t6;
207
 
C_word t7;
208
 
C_word t8;
209
 
C_word t9;
210
 
C_word t10;
211
 
C_word t11;
212
 
C_word t12;
213
 
C_word t13;
214
 
C_word t14;
215
 
C_word ab[30],*a=ab;
216
 
C_check_for_interrupt;
217
 
if(!C_stack_probe(&a)){
218
 
C_save_and_reclaim((void*)tr2,(void*)f_251,2,t0,t1);}
219
 
t2=C_i_cddr(((C_word*)t0)[2]);
220
 
if(C_truep(C_i_pairp(t2))){
221
 
t3=C_i_caddr(((C_word*)t0)[2]);
222
 
t4=C_u_i_car(((C_word*)t0)[2]);
223
 
t5=C_u_i_cdr(((C_word*)t0)[2]);
224
 
t6=C_u_i_car(t5);
225
 
t7=C_a_i_list(&a,3,t3,t4,t6);
226
 
t8=C_a_i_list(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
227
 
t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[7]);
228
 
t10=C_a_i_cons(&a,2,t7,t9);
229
 
t11=((C_word*)t0)[8];
230
 
((C_proc2)(void*)(*((C_word*)t11+1)))(2,t11,C_a_i_cons(&a,2,((C_word*)t0)[9],t10));}
231
 
else{
232
 
t3=C_a_i_list(&a,4,t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
233
 
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[7]);
234
 
t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t4);
235
 
t6=((C_word*)t0)[8];
236
 
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,C_a_i_cons(&a,2,((C_word*)t0)[9],t5));}}
237
 
 
238
95
/* toplevel */
239
96
static C_TLS int toplevel_initialized=0;
240
97
C_main_entry_point
301
158
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_214,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
302
159
C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
303
160
 
 
161
/* k217 in k215 in k213 */
 
162
static void C_ccall f_218(C_word c,C_word t0,C_word t1){
 
163
C_word tmp;
 
164
C_word t2;
 
165
C_word *a;
 
166
t2=((C_word*)t0)[2];
 
167
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
 
168
 
 
169
/* k215 in k213 */
 
170
static void C_ccall f_216(C_word c,C_word t0,C_word t1){
 
171
C_word tmp;
 
172
C_word t2;
 
173
C_word t3;
 
174
C_word t4;
 
175
C_word t5;
 
176
C_word t6;
 
177
C_word ab[12],*a=ab;
 
178
C_check_for_interrupt;
 
179
if(!C_stack_probe(&a)){
 
180
C_save_and_reclaim((void*)tr2,(void*)f_216,2,t0,t1);}
 
181
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_218,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
 
182
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_227,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
 
183
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_230,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
 
184
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_232,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp);
 
185
/* srfi-13.import.scm:114: ##sys#er-transformer */
 
186
((C_proc3)C_fast_retrieve_symbol_proc(lf[10]))(3,*((C_word*)lf[10]+1),t4,t5);}
 
187
 
 
188
/* k213 */
 
189
static void C_ccall f_214(C_word c,C_word t0,C_word t1){
 
190
C_word tmp;
 
191
C_word t2;
 
192
C_word t3;
 
193
C_word ab[3],*a=ab;
 
194
C_check_for_interrupt;
 
195
if(!C_stack_probe(&a)){
 
196
C_save_and_reclaim((void*)tr2,(void*)f_214,2,t0,t1);}
 
197
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
 
198
C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}
 
199
 
 
200
/* k234 */
 
201
static void C_ccall f_235(C_word c,C_word t0,C_word t1){
 
202
C_word tmp;
 
203
C_word t2;
 
204
C_word t3;
 
205
C_word t4;
 
206
C_word t5;
 
207
C_word t6;
 
208
C_word t7;
 
209
C_word t8;
 
210
C_word t9;
 
211
C_word t10;
 
212
C_word ab[9],*a=ab;
 
213
C_check_for_interrupt;
 
214
if(!C_stack_probe(&a)){
 
215
C_save_and_reclaim((void*)tr2,(void*)f_235,2,t0,t1);}
 
216
t2=C_i_cadr(((C_word*)t0)[2]);
 
217
t3=C_i_caddr(((C_word*)t0)[2]);
 
218
t4=C_i_cadddr(((C_word*)t0)[2]);
 
219
t5=C_i_cddddr(((C_word*)t0)[2]);
 
220
t6=C_i_car(t5);
 
221
t7=C_i_cddddr(((C_word*)t0)[2]);
 
222
t8=C_i_cdr(t7);
 
223
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_247,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=t8,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
 
224
/* srfi-13.import.scm:122: r */
 
225
t10=((C_word*)t0)[4];
 
226
((C_proc3)C_fast_retrieve_proc(t10))(3,t10,t9,lf[7]);}
 
227
 
 
228
/* f_232 in k215 in k213 */
 
229
static void C_ccall f_232(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
 
230
C_word tmp;
 
231
C_word t5;
 
232
C_word t6;
 
233
C_word ab[5],*a=ab;
 
234
if(c!=5) C_bad_argc_2(c,5,t0);
 
235
C_check_for_interrupt;
 
236
if(!C_stack_probe(&a)){
 
237
C_save_and_reclaim((void*)tr5,(void*)f_232,5,t0,t1,t2,t3,t4);}
 
238
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_235,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
 
239
/* srfi-13.import.scm:116: ##sys#check-syntax */
 
240
((C_proc5)C_fast_retrieve_symbol_proc(lf[8]))(5,*((C_word*)lf[8]+1),t5,lf[0],t2,lf[9]);}
 
241
 
 
242
/* k229 in k215 in k213 */
 
243
static void C_ccall f_230(C_word c,C_word t0,C_word t1){
 
244
C_word tmp;
 
245
C_word t2;
 
246
C_word *a;
 
247
/* srfi-13.import.scm:113: ##sys#ensure-transformer */
 
248
((C_proc4)C_fast_retrieve_symbol_proc(lf[4]))(4,*((C_word*)lf[4]+1),((C_word*)t0)[2],t1,lf[0]);}
 
249
 
 
250
/* k226 in k215 in k213 */
 
251
static void C_ccall f_227(C_word c,C_word t0,C_word t1){
 
252
C_word tmp;
 
253
C_word t2;
 
254
C_word t3;
 
255
C_word t4;
 
256
C_word ab[12],*a=ab;
 
257
C_check_for_interrupt;
 
258
if(!C_stack_probe(&a)){
 
259
C_save_and_reclaim((void*)tr2,(void*)f_227,2,t0,t1);}
 
260
t2=C_a_i_list(&a,3,lf[0],C_SCHEME_END_OF_LIST,t1);
 
261
t3=C_a_i_list(&a,1,t2);
 
262
/* srfi-13.import.scm:27: ##sys#register-primitive-module */
 
263
((C_proc5)C_fast_retrieve_symbol_proc(lf[1]))(5,*((C_word*)lf[1]+1),((C_word*)t0)[2],lf[2],lf[3],t3);}
 
264
 
 
265
/* k250 in k248 in k246 in k234 */
 
266
static void C_ccall f_251(C_word c,C_word t0,C_word t1){
 
267
C_word tmp;
 
268
C_word t2;
 
269
C_word t3;
 
270
C_word t4;
 
271
C_word t5;
 
272
C_word t6;
 
273
C_word t7;
 
274
C_word t8;
 
275
C_word t9;
 
276
C_word t10;
 
277
C_word t11;
 
278
C_word t12;
 
279
C_word t13;
 
280
C_word t14;
 
281
C_word ab[30],*a=ab;
 
282
C_check_for_interrupt;
 
283
if(!C_stack_probe(&a)){
 
284
C_save_and_reclaim((void*)tr2,(void*)f_251,2,t0,t1);}
 
285
t2=C_i_cddr(((C_word*)t0)[2]);
 
286
if(C_truep(C_i_pairp(t2))){
 
287
t3=C_i_caddr(((C_word*)t0)[2]);
 
288
t4=C_u_i_car(((C_word*)t0)[2]);
 
289
t5=C_u_i_cdr(((C_word*)t0)[2]);
 
290
t6=C_u_i_car(t5);
 
291
t7=C_a_i_list(&a,3,t3,t4,t6);
 
292
t8=C_a_i_list(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
 
293
t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[7]);
 
294
t10=C_a_i_cons(&a,2,t7,t9);
 
295
t11=((C_word*)t0)[8];
 
296
((C_proc2)(void*)(*((C_word*)t11+1)))(2,t11,C_a_i_cons(&a,2,((C_word*)t0)[9],t10));}
 
297
else{
 
298
t3=C_a_i_list(&a,4,t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
 
299
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[7]);
 
300
t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t4);
 
301
t6=((C_word*)t0)[8];
 
302
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,C_a_i_cons(&a,2,((C_word*)t0)[9],t5));}}
 
303
 
304
304
#ifdef C_ENABLE_PTABLES
305
305
static C_PTABLE_ENTRY ptable[12] = {
306
 
{"f_227:srfi_2d13_2eimport_2escm",(void*)f_227},
 
306
{"f_249:srfi_2d13_2eimport_2escm",(void*)f_249},
 
307
{"f_247:srfi_2d13_2eimport_2escm",(void*)f_247},
 
308
{"toplevel:srfi_2d13_2eimport_2escm",(void*)C_toplevel},
 
309
{"f_218:srfi_2d13_2eimport_2escm",(void*)f_218},
 
310
{"f_216:srfi_2d13_2eimport_2escm",(void*)f_216},
307
311
{"f_214:srfi_2d13_2eimport_2escm",(void*)f_214},
308
 
{"f_216:srfi_2d13_2eimport_2escm",(void*)f_216},
309
 
{"f_218:srfi_2d13_2eimport_2escm",(void*)f_218},
310
 
{"f_247:srfi_2d13_2eimport_2escm",(void*)f_247},
311
 
{"f_249:srfi_2d13_2eimport_2escm",(void*)f_249},
 
312
{"f_235:srfi_2d13_2eimport_2escm",(void*)f_235},
312
313
{"f_232:srfi_2d13_2eimport_2escm",(void*)f_232},
313
314
{"f_230:srfi_2d13_2eimport_2escm",(void*)f_230},
314
 
{"f_235:srfi_2d13_2eimport_2escm",(void*)f_235},
 
315
{"f_227:srfi_2d13_2eimport_2escm",(void*)f_227},
315
316
{"f_251:srfi_2d13_2eimport_2escm",(void*)f_251},
316
 
{"toplevel:srfi_2d13_2eimport_2escm",(void*)C_toplevel},
317
317
{NULL,NULL}};
318
318
#endif
319
319