1 /* Generated from expand.scm by the CHICKEN compiler
2    http://www.call-cc.org
3    Version 5.3.0rc4 ((HEAD detached at 5.3.0rc4)) (rev b6cbb1ba)
4    linux-unix-gnu-x86-64 [ 64bit dload ptables ]
5    command line: expand.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file expand.c -no-module-registration
6    unit: expand
7    uses: internal library
8 */
9 #include "chicken.h"
10 
11 static C_PTABLE_ENTRY *create_ptable(void);
12 C_noret_decl(C_internal_toplevel)
13 C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
14 C_noret_decl(C_library_toplevel)
15 C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;
16 
17 static C_TLS C_word lf[372];
18 static double C_possibly_force_alignment;
19 static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,108,111,111,107,117,112,32,115,101,41,0,0,0,0,0,0};
20 static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,99,114,111,45,97,108,105,97,115,32,118,97,114,32,115,101,41,0,0,0,0,0};
21 static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,56,55,52,32,105,41,0,0,0};
22 static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,8),40,119,97,108,107,32,120,41};
23 static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,115,116,114,105,112,45,115,121,110,116,97,120,32,101,120,112,41,0,0,0,0,0,0,0};
24 static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,57,53,57,32,103,57,55,49,32,103,57,55,50,41,0};
25 static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,28),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,50,50,32,103,57,50,57,32,103,57,51,48,41,0,0,0,0};
26 static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,57,54,32,103,57,48,56,41,0,0,0,0,0,0};
27 static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,101,120,116,101,110,100,45,115,101,32,115,101,32,118,97,114,115,32,46,32,114,101,115,116,41};
28 static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,110,115,117,114,101,45,116,114,97,110,115,102,111,114,109,101,114,32,116,32,46,32,114,101,115,116,41,0,0,0,0,0};
29 static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,7),40,103,49,48,50,51,41,0};
30 static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,52),40,35,35,115,121,115,35,101,120,116,101,110,100,45,109,97,99,114,111,45,101,110,118,105,114,111,110,109,101,110,116,32,110,97,109,101,32,115,101,32,116,114,97,110,115,102,111,114,109,101,114,41,0,0,0,0};
31 static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,109,97,99,114,111,63,32,115,121,109,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
32 static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0};
33 static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,117,110,100,101,102,105,110,101,45,109,97,99,114,111,33,32,110,97,109,101,41,0,0,0,0};
34 static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,9),40,99,111,112,121,32,112,115,41,0,0,0,0,0,0,0};
35 static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,7),40,97,54,49,51,50,41,0};
36 static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,10),40,97,54,49,50,54,32,101,120,41,0,0,0,0,0,0};
37 static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,14),40,102,95,54,50,54,56,32,105,110,112,117,116,41,0,0};
38 static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,7),40,97,54,50,55,51,41,0};
39 static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,7),40,97,54,50,55,56,41,0};
40 static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,7),40,97,54,50,56,52,41,0};
41 static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,7),40,97,54,50,51,51,41,0};
42 static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,7),40,97,54,50,57,56,41,0};
43 static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,14),40,97,54,50,57,50,32,46,32,97,114,103,115,41,0,0};
44 static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,7),40,97,54,50,50,55,41,0};
45 static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,9),40,97,54,49,50,48,32,107,41,0,0,0,0,0,0,0};
46 static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,37),40,99,97,108,108,45,104,97,110,100,108,101,114,32,110,97,109,101,32,104,97,110,100,108,101,114,32,101,120,112,32,115,101,32,99,115,41,0,0,0};
47 static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,104,101,97,100,32,101,120,112,32,109,100,101,102,41,0,0};
48 static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,55,49,32,103,49,49,56,51,41,0,0,0,0};
49 static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,52,52,32,103,49,49,53,54,41,0,0,0,0};
50 static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,10),40,103,49,50,48,52,32,99,115,41,0,0,0,0,0,0};
51 static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,101,120,112,41,0,0,0,0,0,0};
52 static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,120,112,97,110,100,45,48,32,101,120,112,32,100,115,101,32,99,115,63,41,0,0,0,0};
53 static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,115,105,111,110,45,114,101,115,117,108,116,45,104,111,111,107,32,105,110,112,117,116,32,111,117,116,112,117,116,41,0,0,0,0,0};
54 static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,7),40,97,54,54,50,55,41,0};
55 static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,22),40,97,54,54,51,51,32,101,120,112,50,49,50,52,49,32,109,49,50,52,51,41,0,0};
56 static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,101,120,112,41,0,0,0,0,0,0};
57 static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,100,32,101,120,112,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
58 static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
59 static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,63,32,108,108,105,115,116,41,0,0,0,0,0};
60 static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,9),40,101,114,114,32,109,115,103,41,0,0,0,0,0,0,0};
61 static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,9),40,103,49,51,48,55,32,107,41,0,0,0,0,0,0,0};
62 static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,48,49,32,103,49,51,49,51,41,0,0,0,0};
63 static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,109,111,100,101,32,114,101,113,32,111,112,116,32,107,101,121,32,108,108,105,115,116,41,0,0,0};
64 static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,55),40,35,35,115,121,115,35,101,120,112,97,110,100,45,101,120,116,101,110,100,101,100,45,108,97,109,98,100,97,45,108,105,115,116,32,108,108,105,115,116,48,32,98,111,100,121,32,101,114,114,104,32,115,101,41,0};
65 static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,51,56,32,103,49,52,53,48,32,103,49,52,53,49,41,0,0,0,0,0,0};
66 static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,48,57,32,103,49,52,50,49,41,0,0,0,0};
67 static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,22),40,97,55,51,51,49,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0};
68 static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,101,120,112,97,110,100,45,109,117,108,116,105,112,108,101,45,118,97,108,117,101,115,45,97,115,115,105,103,110,109,101,110,116,32,102,111,114,109,97,108,115,32,101,120,112,114,41,0,0};
69 static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,9),40,99,111,109,112,32,105,100,41,0,0,0,0,0,0,0};
70 static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,50,32,98,111,100,121,41,0,0,0,0};
71 static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,111,100,121,32,101,120,112,115,41};
72 static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,49,54,49,55,32,103,49,54,50,57,32,103,49,54,51,48,32,103,49,54,51,49,41};
73 static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,53,54,57,32,103,49,53,56,49,41,0,0,0,0};
74 static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,13),40,97,56,48,50,52,32,97,32,95,32,95,41,0,0,0};
75 static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,23),40,102,111,108,100,108,49,53,57,50,32,103,49,53,57,51,32,103,49,53,57,49,41,0};
76 static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,27),40,102,105,110,105,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,32,98,111,100,121,41,0,0,0,0,0};
77 static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,55,55,32,103,49,54,56,57,41,0,0,0,0};
78 static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,111,100,121,32,100,101,102,115,32,100,111,110,101,41,0,0,0};
79 static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,34),40,102,105,110,105,47,115,121,110,116,97,120,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,32,98,111,100,121,41,0,0,0,0,0,0};
80 static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,50,32,120,41,0,0,0,0,0,0,0};
81 static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,98,111,100,121,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,41,0,0,0,0,0};
82 static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,13),40,101,120,112,97,110,100,32,98,111,100,121,41,0,0,0};
83 static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,98,111,100,121,32,98,111,100,121,32,46,32,114,101,115,116,41,0,0,0};
84 static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,7),40,103,49,55,54,55,41,0};
85 static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,11),40,109,119,97,108,107,32,120,32,112,41,0,0,0,0,0};
86 static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,116,99,104,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,32,112,97,116,32,118,97,114,115,41,0,0};
87 static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,98,111,100,121,41};
88 static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,100,45,99,117,114,114,105,101,100,45,100,101,102,105,110,101,32,104,101,97,100,32,98,111,100,121,32,115,101,41,0,0,0,0,0};
89 static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,115,121,110,116,97,120,45,101,114,114,111,114,32,46,32,97,114,103,115,41,0,0,0,0};
90 static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,12),40,111,117,116,115,116,114,32,115,116,114,41,0,0,0,0};
91 static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0};
92 static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,100,101,102,115,41,0,0,0,0,0};
93 static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,99,120,41,0,0,0,0,0,0,0};
94 static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,47,99,111,110,116,101,120,116,32,109,115,103,32,97,114,103,41,0,0,0,0};
95 static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,7),40,103,49,56,53,54,41,0};
96 static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,103,101,116,45,108,105,110,101,45,110,117,109,98,101,114,32,115,101,120,112,41,0,0,0};
97 static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,17),40,116,101,115,116,32,120,32,112,114,101,100,32,109,115,103,41,0,0,0,0,0,0,0};
98 static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,9),40,101,114,114,32,109,115,103,41,0,0,0,0,0,0,0};
99 static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
100 static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,16),40,108,97,109,98,100,97,45,108,105,115,116,63,32,120,41};
101 static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,13),40,118,97,114,105,97,98,108,101,63,32,118,41,0,0,0};
102 static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
103 static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,16),40,112,114,111,112,101,114,45,108,105,115,116,63,32,120,41};
104 static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,49,57,51,55,32,120,32,110,41};
105 static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,9),40,97,57,50,53,51,32,121,41,0,0,0,0,0,0,0};
106 static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,112,41,0,0,0,0,0,0};
107 static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,110,116,97,120,32,105,100,32,101,120,112,32,112,97,116,32,46,32,114,101,115,116,41,0,0};
108 static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,35),40,105,110,104,101,114,105,116,45,112,97,105,114,45,108,105,110,101,45,110,117,109,98,101,114,115,32,111,108,100,32,110,101,119,41,0,0,0,0,0};
109 static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,115,121,109,41,0,0,0,0};
110 static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,48,50,50,32,105,32,102,41};
111 static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,7),40,103,50,48,54,51,41,0};
112 static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,7),40,103,50,48,55,50,41,0};
113 static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,15),40,99,111,109,112,97,114,101,32,115,49,32,115,50,41,0};
114 static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,16),40,97,115,115,113,45,114,101,118,101,114,115,101,32,108,41};
115 static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,19),40,109,105,114,114,111,114,45,114,101,110,97,109,101,32,115,121,109,41,0,0,0,0,0};
116 static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,19),40,97,57,51,54,57,32,102,111,114,109,32,115,101,32,100,115,101,41,0,0,0,0,0};
117 static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,66),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,107,101,45,101,114,47,105,114,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,32,101,120,112,108,105,99,105,116,45,114,101,110,97,109,105,110,103,63,41,0,0,0,0,0,0};
118 static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,114,45,109,97,99,114,111,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,41,0,0,0};
119 static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,105,114,45,109,97,99,114,111,45,116,114,97,110,115,102,111,114,109,101,114,32,104,97,110,100,108,101,114,41,0,0,0};
120 static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,115,121,110,116,97,120,45,114,117,108,101,115,45,109,105,115,109,97,116,99,104,32,105,110,112,117,116,41,0,0,0,0,0};
121 static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,101,110,32,105,110,112,117,116,41};
122 static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,100,114,111,112,45,114,105,103,104,116,32,105,110,112,117,116,32,116,101,109,112,41,0,0,0};
123 static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,110,112,117,116,41,0,0,0,0};
124 static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,116,97,107,101,45,114,105,103,104,116,32,105,110,112,117,116,32,116,101,109,112,41,0,0,0};
125 static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,11),40,102,95,49,48,49,57,54,32,120,41,0,0,0,0,0};
126 static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,49,53,55,32,103,51,49,54,57,41,0,0,0,0};
127 static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,15),40,102,95,49,48,50,48,50,32,114,117,108,101,115,41,0};
128 static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,10),40,97,49,48,51,51,51,32,120,41,0,0,0,0,0,0};
129 static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,14),40,102,95,49,48,50,57,54,32,114,117,108,101,41,0,0};
130 static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,37),40,102,95,49,48,51,54,50,32,105,110,112,117,116,32,112,97,116,116,101,114,110,32,115,101,101,110,45,115,101,103,109,101,110,116,63,41,0,0,0};
131 static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,23),40,102,95,49,48,53,52,51,32,105,110,112,117,116,32,112,97,116,116,101,114,110,41,0};
132 static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,10),40,97,49,48,55,50,56,32,120,41,0,0,0,0,0,0};
133 static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,42),40,102,95,49,48,54,55,48,32,112,97,116,116,101,114,110,32,112,97,116,104,32,109,97,112,105,116,32,115,101,101,110,45,115,101,103,109,101,110,116,63,41,0,0,0,0,0,0};
134 static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,50,57,49,32,100,32,103,101,110,41,0,0,0,0,0,0};
135 static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,26),40,102,95,49,48,56,49,48,32,116,101,109,112,108,97,116,101,32,100,105,109,32,101,110,118,41,0,0,0,0,0,0};
136 static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,40),40,102,95,49,49,48,48,50,32,112,97,116,116,101,114,110,32,100,105,109,32,118,97,114,115,32,115,101,101,110,45,115,101,103,109,101,110,116,63,41};
137 static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,31),40,102,95,49,49,48,55,57,32,116,101,109,112,108,97,116,101,32,100,105,109,32,101,110,118,32,102,114,101,101,41,0};
138 static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,25),40,102,95,49,49,49,54,56,32,112,32,115,101,101,110,45,115,101,103,109,101,110,116,63,41,0,0,0,0,0,0,0};
139 static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,17),40,102,95,49,49,49,57,54,32,112,97,116,116,101,114,110,41,0,0,0,0,0,0,0};
140 static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,17),40,102,95,49,49,50,50,48,32,112,97,116,116,101,114,110,41,0,0,0,0,0,0,0};
141 static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,97,116,116,101,114,110,41,0,0};
142 static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,17),40,102,95,49,49,50,52,48,32,112,97,116,116,101,114,110,41,0,0,0,0,0,0,0};
143 static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,16),40,97,49,49,50,57,57,32,101,120,112,32,114,32,99,41};
144 static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,17),40,97,49,49,51,51,53,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
145 static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,110,41,0,0,0,0,0,0};
146 static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,11),40,119,97,108,107,49,32,120,32,110,41,0,0,0,0,0};
147 static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,11),40,103,51,48,50,49,32,101,110,118,41,0,0,0,0,0};
148 static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,11),40,103,51,48,50,56,32,101,110,118,41,0,0,0,0,0};
149 static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,12),40,115,105,109,112,108,105,102,121,32,120,41,0,0,0,0};
150 static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,17),40,97,49,49,51,54,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
151 static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,51,51,32,103,50,57,52,53,41,0,0,0,0};
152 static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,57,57,32,103,50,57,49,49,41,0,0,0,0};
153 static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,17),40,97,49,49,54,54,49,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
154 static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,11),40,101,120,112,97,110,100,32,98,115,41,0,0,0,0,0};
155 static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,17),40,97,49,49,56,53,55,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
156 static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,7),40,103,50,56,52,48,41,0};
157 static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,51,52,32,103,50,56,52,54,41,0,0,0,0};
158 static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,32,101,108,115,101,63,41,0,0};
159 static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,17),40,97,49,49,57,48,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
160 static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,32,101,108,115,101,63,41,0,0};
161 static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,17),40,97,49,50,49,52,52,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
162 static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,17),40,97,49,50,53,50,55,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
163 static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,17),40,97,49,50,53,55,57,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
164 static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,14),40,97,49,50,54,49,54,32,120,32,114,32,99,41,0,0};
165 static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,14),40,97,49,50,54,54,48,32,120,32,114,32,99,41,0,0};
166 static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,14),40,97,49,50,54,56,50,32,120,32,114,32,99,41,0,0};
167 static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,14),40,97,49,50,55,48,52,32,120,32,114,32,99,41,0,0};
168 static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,14),40,97,49,50,55,50,54,32,120,32,114,32,99,41,0,0};
169 static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,17),40,97,49,50,55,55,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
170 static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,102,111,114,109,41,0,0,0,0,0};
171 static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,14),40,97,49,50,56,50,53,32,120,32,114,32,99,41,0,0};
172 static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,14),40,97,49,50,57,53,50,32,120,32,114,32,99,41,0,0};
173 static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,14),40,97,49,50,57,54,57,32,120,32,114,32,99,41,0,0};
174 static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,14),40,97,49,50,57,56,54,32,120,32,114,32,99,41,0,0};
175 static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,14),40,97,49,51,48,48,51,32,120,32,114,32,99,41,0,0};
176 static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,14),40,97,49,51,48,50,48,32,120,32,114,32,99,41,0,0};
177 static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,14),40,97,49,51,48,52,51,32,120,32,114,32,99,41,0,0};
178 static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,11),40,103,50,52,56,55,32,97,114,103,41,0,0,0,0,0};
179 static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,56,49,32,103,50,52,57,51,41,0,0,0,0};
180 static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,14),40,97,49,51,49,50,55,32,120,32,114,32,99,41,0,0};
181 static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,26),40,97,49,51,50,57,56,32,103,50,52,53,53,32,103,50,52,53,55,32,103,50,52,53,57,41,0,0,0,0,0,0};
182 static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,14),40,97,49,51,51,48,56,32,120,32,114,32,99,41,0,0};
183 static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,14),40,97,49,51,51,51,53,32,120,32,114,32,99,41,0,0};
184 static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,7),40,101,114,114,32,120,41,0};
185 static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,9),40,116,101,115,116,32,102,120,41,0,0,0,0,0,0,0};
186 static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,55,48,32,103,50,51,56,50,41,0,0,0,0};
187 static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,12),40,101,120,112,97,110,100,32,99,108,115,41,0,0,0,0};
188 static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,17),40,97,49,51,53,49,48,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0};
189 static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,14),40,97,49,51,56,48,51,32,120,32,114,32,99,41,0,0};
190 static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,8),40,97,49,51,56,53,51,41};
191 static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,52),40,97,49,51,56,53,57,32,110,97,109,101,50,50,55,57,32,108,105,98,50,50,56,49,32,115,112,101,99,50,50,56,51,32,118,50,50,56,53,32,115,50,50,56,55,32,105,50,50,56,57,41,0,0,0,0};
192 static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,9),40,103,50,50,54,53,32,120,41,0,0,0,0,0,0,0};
193 static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,53,57,32,103,50,50,55,49,41,0,0,0,0};
194 static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,14),40,97,49,51,56,51,56,32,120,32,114,32,99,41,0,0};
195 static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,26),40,97,49,51,57,52,57,32,103,50,50,52,48,32,103,50,50,52,50,32,103,50,50,52,52,41,0,0,0,0,0,0};
196 static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,26),40,97,49,51,57,53,57,32,103,50,50,50,54,32,103,50,50,50,56,32,103,50,50,51,48,41,0,0,0,0,0,0};
197 static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
198 
199 
200 C_noret_decl(f_10002)
201 static void C_ccall f_10002(C_word c,C_word *av) C_noret;
202 C_noret_decl(f_10005)
203 static void C_ccall f_10005(C_word c,C_word *av) C_noret;
204 C_noret_decl(f_10008)
205 static void C_ccall f_10008(C_word c,C_word *av) C_noret;
206 C_noret_decl(f_10011)
207 static void C_ccall f_10011(C_word c,C_word *av) C_noret;
208 C_noret_decl(f_10014)
209 static void C_ccall f_10014(C_word c,C_word *av) C_noret;
210 C_noret_decl(f_10017)
211 static void C_ccall f_10017(C_word c,C_word *av) C_noret;
212 C_noret_decl(f_10019)
213 static void C_ccall f_10019(C_word c,C_word *av) C_noret;
214 C_noret_decl(f_10025)
215 static void C_ccall f_10025(C_word c,C_word *av) C_noret;
216 C_noret_decl(f_10035)
217 static void C_fcall f_10035(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
218 C_noret_decl(f_10053)
219 static void C_ccall f_10053(C_word c,C_word *av) C_noret;
220 C_noret_decl(f_10061)
221 static void C_ccall f_10061(C_word c,C_word *av) C_noret;
222 C_noret_decl(f_10071)
223 static C_word C_fcall f_10071(C_word t0,C_word t1,C_word t2);
224 C_noret_decl(f_10098)
225 static void C_ccall f_10098(C_word c,C_word *av) C_noret;
226 C_noret_decl(f_10113)
227 static void C_ccall f_10113(C_word c,C_word *av) C_noret;
228 C_noret_decl(f_10117)
229 static void C_ccall f_10117(C_word c,C_word *av) C_noret;
230 C_noret_decl(f_10122)
231 static void C_ccall f_10122(C_word c,C_word *av) C_noret;
232 C_noret_decl(f_10128)
233 static void C_ccall f_10128(C_word c,C_word *av) C_noret;
234 C_noret_decl(f_10132)
235 static void C_ccall f_10132(C_word c,C_word *av) C_noret;
236 C_noret_decl(f_10136)
237 static void C_ccall f_10136(C_word c,C_word *av) C_noret;
238 C_noret_decl(f_10140)
239 static void C_ccall f_10140(C_word c,C_word *av) C_noret;
240 C_noret_decl(f_10144)
241 static void C_ccall f_10144(C_word c,C_word *av) C_noret;
242 C_noret_decl(f_10148)
243 static void C_ccall f_10148(C_word c,C_word *av) C_noret;
244 C_noret_decl(f_10153)
245 static void C_ccall f_10153(C_word c,C_word *av) C_noret;
246 C_noret_decl(f_10160)
247 static void C_ccall f_10160(C_word c,C_word *av) C_noret;
248 C_noret_decl(f_10165)
249 static void C_ccall f_10165(C_word c,C_word *av) C_noret;
250 C_noret_decl(f_10169)
251 static void C_ccall f_10169(C_word c,C_word *av) C_noret;
252 C_noret_decl(f_10173)
253 static void C_ccall f_10173(C_word c,C_word *av) C_noret;
254 C_noret_decl(f_10177)
255 static void C_ccall f_10177(C_word c,C_word *av) C_noret;
256 C_noret_decl(f_10182)
257 static void C_ccall f_10182(C_word c,C_word *av) C_noret;
258 C_noret_decl(f_10186)
259 static void C_ccall f_10186(C_word c,C_word *av) C_noret;
260 C_noret_decl(f_10190)
261 static void C_ccall f_10190(C_word c,C_word *av) C_noret;
262 C_noret_decl(f_10194)
263 static void C_ccall f_10194(C_word c,C_word *av) C_noret;
264 C_noret_decl(f_10196)
265 static void C_ccall f_10196(C_word c,C_word *av) C_noret;
266 C_noret_decl(f_10202)
267 static void C_ccall f_10202(C_word c,C_word *av) C_noret;
268 C_noret_decl(f_10230)
269 static void C_ccall f_10230(C_word c,C_word *av) C_noret;
270 C_noret_decl(f_10240)
271 static void C_ccall f_10240(C_word c,C_word *av) C_noret;
272 C_noret_decl(f_10254)
273 static void C_fcall f_10254(C_word t0,C_word t1,C_word t2) C_noret;
274 C_noret_decl(f_10279)
275 static void C_ccall f_10279(C_word c,C_word *av) C_noret;
276 C_noret_decl(f_10296)
277 static void C_ccall f_10296(C_word c,C_word *av) C_noret;
278 C_noret_decl(f_10303)
279 static void C_fcall f_10303(C_word t0,C_word t1) C_noret;
280 C_noret_decl(f_10324)
281 static void C_ccall f_10324(C_word c,C_word *av) C_noret;
282 C_noret_decl(f_10328)
283 static void C_ccall f_10328(C_word c,C_word *av) C_noret;
284 C_noret_decl(f_10332)
285 static void C_ccall f_10332(C_word c,C_word *av) C_noret;
286 C_noret_decl(f_10334)
287 static void C_ccall f_10334(C_word c,C_word *av) C_noret;
288 C_noret_decl(f_10339)
289 static void C_ccall f_10339(C_word c,C_word *av) C_noret;
290 C_noret_decl(f_10362)
291 static void C_ccall f_10362(C_word c,C_word *av) C_noret;
292 C_noret_decl(f_10396)
293 static void C_ccall f_10396(C_word c,C_word *av) C_noret;
294 C_noret_decl(f_10432)
295 static void C_ccall f_10432(C_word c,C_word *av) C_noret;
296 C_noret_decl(f_10436)
297 static void C_ccall f_10436(C_word c,C_word *av) C_noret;
298 C_noret_decl(f_10440)
299 static void C_ccall f_10440(C_word c,C_word *av) C_noret;
300 C_noret_decl(f_10489)
301 static void C_ccall f_10489(C_word c,C_word *av) C_noret;
302 C_noret_decl(f_10497)
303 static void C_ccall f_10497(C_word c,C_word *av) C_noret;
304 C_noret_decl(f_10510)
305 static void C_fcall f_10510(C_word t0,C_word t1) C_noret;
306 C_noret_decl(f_10543)
307 static void C_ccall f_10543(C_word c,C_word *av) C_noret;
308 C_noret_decl(f_10547)
309 static void C_ccall f_10547(C_word c,C_word *av) C_noret;
310 C_noret_decl(f_10602)
311 static void C_ccall f_10602(C_word c,C_word *av) C_noret;
312 C_noret_decl(f_10626)
313 static void C_ccall f_10626(C_word c,C_word *av) C_noret;
314 C_noret_decl(f_10670)
315 static void C_ccall f_10670(C_word c,C_word *av) C_noret;
316 C_noret_decl(f_10694)
317 static void C_ccall f_10694(C_word c,C_word *av) C_noret;
318 C_noret_decl(f_10700)
319 static void C_ccall f_10700(C_word c,C_word *av) C_noret;
320 C_noret_decl(f_10713)
321 static void C_ccall f_10713(C_word c,C_word *av) C_noret;
322 C_noret_decl(f_10717)
323 static void C_ccall f_10717(C_word c,C_word *av) C_noret;
324 C_noret_decl(f_10729)
325 static void C_ccall f_10729(C_word c,C_word *av) C_noret;
326 C_noret_decl(f_10775)
327 static void C_ccall f_10775(C_word c,C_word *av) C_noret;
328 C_noret_decl(f_10779)
329 static void C_ccall f_10779(C_word c,C_word *av) C_noret;
330 C_noret_decl(f_10804)
331 static void C_ccall f_10804(C_word c,C_word *av) C_noret;
332 C_noret_decl(f_10810)
333 static void C_ccall f_10810(C_word c,C_word *av) C_noret;
334 C_noret_decl(f_10849)
335 static void C_ccall f_10849(C_word c,C_word *av) C_noret;
336 C_noret_decl(f_10852)
337 static void C_ccall f_10852(C_word c,C_word *av) C_noret;
338 C_noret_decl(f_10858)
339 static void C_ccall f_10858(C_word c,C_word *av) C_noret;
340 C_noret_decl(f_10870)
341 static void C_ccall f_10870(C_word c,C_word *av) C_noret;
342 C_noret_decl(f_10873)
343 static void C_fcall f_10873(C_word t0,C_word t1) C_noret;
344 C_noret_decl(f_10876)
345 static void C_ccall f_10876(C_word c,C_word *av) C_noret;
346 C_noret_decl(f_10889)
347 static void C_ccall f_10889(C_word c,C_word *av) C_noret;
348 C_noret_decl(f_10893)
349 static void C_ccall f_10893(C_word c,C_word *av) C_noret;
350 C_noret_decl(f_10897)
351 static void C_ccall f_10897(C_word c,C_word *av) C_noret;
352 C_noret_decl(f_10899)
353 static void C_fcall f_10899(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
354 C_noret_decl(f_10920)
355 static void C_fcall f_10920(C_word t0,C_word t1) C_noret;
356 C_noret_decl(f_10972)
357 static void C_ccall f_10972(C_word c,C_word *av) C_noret;
358 C_noret_decl(f_10976)
359 static void C_ccall f_10976(C_word c,C_word *av) C_noret;
360 C_noret_decl(f_10993)
361 static void C_ccall f_10993(C_word c,C_word *av) C_noret;
362 C_noret_decl(f_10997)
363 static void C_ccall f_10997(C_word c,C_word *av) C_noret;
364 C_noret_decl(f_11002)
365 static void C_ccall f_11002(C_word c,C_word *av) C_noret;
366 C_noret_decl(f_11028)
367 static void C_ccall f_11028(C_word c,C_word *av) C_noret;
368 C_noret_decl(f_11043)
369 static void C_ccall f_11043(C_word c,C_word *av) C_noret;
370 C_noret_decl(f_11062)
371 static void C_ccall f_11062(C_word c,C_word *av) C_noret;
372 C_noret_decl(f_11077)
373 static void C_ccall f_11077(C_word c,C_word *av) C_noret;
374 C_noret_decl(f_11079)
375 static void C_ccall f_11079(C_word c,C_word *av) C_noret;
376 C_noret_decl(f_11121)
377 static void C_ccall f_11121(C_word c,C_word *av) C_noret;
378 C_noret_decl(f_11132)
379 static void C_ccall f_11132(C_word c,C_word *av) C_noret;
380 C_noret_decl(f_11151)
381 static void C_ccall f_11151(C_word c,C_word *av) C_noret;
382 C_noret_decl(f_11166)
383 static void C_ccall f_11166(C_word c,C_word *av) C_noret;
384 C_noret_decl(f_11168)
385 static void C_ccall f_11168(C_word c,C_word *av) C_noret;
386 C_noret_decl(f_11175)
387 static void C_ccall f_11175(C_word c,C_word *av) C_noret;
388 C_noret_decl(f_11196)
389 static void C_ccall f_11196(C_word c,C_word *av) C_noret;
390 C_noret_decl(f_11220)
391 static void C_ccall f_11220(C_word c,C_word *av) C_noret;
392 C_noret_decl(f_11227)
393 static void C_ccall f_11227(C_word c,C_word *av) C_noret;
394 C_noret_decl(f_11234)
395 static void C_ccall f_11234(C_word c,C_word *av) C_noret;
396 C_noret_decl(f_11240)
397 static void C_ccall f_11240(C_word c,C_word *av) C_noret;
398 C_noret_decl(f_11250)
399 static void C_fcall f_11250(C_word t0,C_word t1,C_word t2) C_noret;
400 C_noret_decl(f_11257)
401 static void C_ccall f_11257(C_word c,C_word *av) C_noret;
402 C_noret_decl(f_11278)
403 static void C_ccall f_11278(C_word c,C_word *av) C_noret;
404 C_noret_decl(f_11282)
405 static void C_ccall f_11282(C_word c,C_word *av) C_noret;
406 C_noret_decl(f_11286)
407 static void C_ccall f_11286(C_word c,C_word *av) C_noret;
408 C_noret_decl(f_11290)
409 static void C_ccall f_11290(C_word c,C_word *av) C_noret;
410 C_noret_decl(f_11294)
411 static void C_ccall f_11294(C_word c,C_word *av) C_noret;
412 C_noret_decl(f_11298)
413 static void C_ccall f_11298(C_word c,C_word *av) C_noret;
414 C_noret_decl(f_11300)
415 static void C_ccall f_11300(C_word c,C_word *av) C_noret;
416 C_noret_decl(f_11304)
417 static void C_ccall f_11304(C_word c,C_word *av) C_noret;
418 C_noret_decl(f_11312)
419 static void C_fcall f_11312(C_word t0,C_word t1) C_noret;
420 C_noret_decl(f_11321)
421 static void C_ccall f_11321(C_word c,C_word *av) C_noret;
422 C_noret_decl(f_11334)
423 static void C_ccall f_11334(C_word c,C_word *av) C_noret;
424 C_noret_decl(f_11336)
425 static void C_ccall f_11336(C_word c,C_word *av) C_noret;
426 C_noret_decl(f_11340)
427 static void C_ccall f_11340(C_word c,C_word *av) C_noret;
428 C_noret_decl(f_11347)
429 static void C_ccall f_11347(C_word c,C_word *av) C_noret;
430 C_noret_decl(f_11367)
431 static void C_ccall f_11367(C_word c,C_word *av) C_noret;
432 C_noret_decl(f_11369)
433 static void C_ccall f_11369(C_word c,C_word *av) C_noret;
434 C_noret_decl(f_11373)
435 static void C_ccall f_11373(C_word c,C_word *av) C_noret;
436 C_noret_decl(f_11376)
437 static void C_ccall f_11376(C_word c,C_word *av) C_noret;
438 C_noret_decl(f_11379)
439 static void C_ccall f_11379(C_word c,C_word *av) C_noret;
440 C_noret_decl(f_11381)
441 static void C_fcall f_11381(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
442 C_noret_decl(f_11389)
443 static void C_ccall f_11389(C_word c,C_word *av) C_noret;
444 C_noret_decl(f_11391)
445 static void C_fcall f_11391(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
446 C_noret_decl(f_11405)
447 static void C_ccall f_11405(C_word c,C_word *av) C_noret;
448 C_noret_decl(f_11409)
449 static void C_ccall f_11409(C_word c,C_word *av) C_noret;
450 C_noret_decl(f_11428)
451 static void C_ccall f_11428(C_word c,C_word *av) C_noret;
452 C_noret_decl(f_11437)
453 static void C_ccall f_11437(C_word c,C_word *av) C_noret;
454 C_noret_decl(f_11451)
455 static void C_ccall f_11451(C_word c,C_word *av) C_noret;
456 C_noret_decl(f_11461)
457 static void C_ccall f_11461(C_word c,C_word *av) C_noret;
458 C_noret_decl(f_11472)
459 static void C_ccall f_11472(C_word c,C_word *av) C_noret;
460 C_noret_decl(f_11482)
461 static void C_ccall f_11482(C_word c,C_word *av) C_noret;
462 C_noret_decl(f_11491)
463 static void C_ccall f_11491(C_word c,C_word *av) C_noret;
464 C_noret_decl(f_11502)
465 static void C_ccall f_11502(C_word c,C_word *av) C_noret;
466 C_noret_decl(f_11513)
467 static void C_ccall f_11513(C_word c,C_word *av) C_noret;
468 C_noret_decl(f_11521)
469 static void C_ccall f_11521(C_word c,C_word *av) C_noret;
470 C_noret_decl(f_11536)
471 static void C_ccall f_11536(C_word c,C_word *av) C_noret;
472 C_noret_decl(f_11540)
473 static void C_ccall f_11540(C_word c,C_word *av) C_noret;
474 C_noret_decl(f_11554)
475 static void C_fcall f_11554(C_word t0,C_word t1,C_word t2) C_noret;
476 C_noret_decl(f_11558)
477 static void C_ccall f_11558(C_word c,C_word *av) C_noret;
478 C_noret_decl(f_11562)
479 static void C_fcall f_11562(C_word t0,C_word t1,C_word t2) C_noret;
480 C_noret_decl(f_11584)
481 static void C_ccall f_11584(C_word c,C_word *av) C_noret;
482 C_noret_decl(f_11588)
483 static void C_fcall f_11588(C_word t0,C_word t1,C_word t2) C_noret;
484 C_noret_decl(f_11631)
485 static void C_ccall f_11631(C_word c,C_word *av) C_noret;
486 C_noret_decl(f_11649)
487 static void C_ccall f_11649(C_word c,C_word *av) C_noret;
488 C_noret_decl(f_11660)
489 static void C_ccall f_11660(C_word c,C_word *av) C_noret;
490 C_noret_decl(f_11662)
491 static void C_ccall f_11662(C_word c,C_word *av) C_noret;
492 C_noret_decl(f_11666)
493 static void C_ccall f_11666(C_word c,C_word *av) C_noret;
494 C_noret_decl(f_11678)
495 static void C_ccall f_11678(C_word c,C_word *av) C_noret;
496 C_noret_decl(f_11706)
497 static void C_ccall f_11706(C_word c,C_word *av) C_noret;
498 C_noret_decl(f_11727)
499 static void C_fcall f_11727(C_word t0,C_word t1) C_noret;
500 C_noret_decl(f_11768)
501 static void C_ccall f_11768(C_word c,C_word *av) C_noret;
502 C_noret_decl(f_11770)
503 static void C_fcall f_11770(C_word t0,C_word t1,C_word t2) C_noret;
504 C_noret_decl(f_11780)
505 static void C_fcall f_11780(C_word t0,C_word t1) C_noret;
506 C_noret_decl(f_11820)
507 static void C_fcall f_11820(C_word t0,C_word t1,C_word t2) C_noret;
508 C_noret_decl(f_11856)
509 static void C_ccall f_11856(C_word c,C_word *av) C_noret;
510 C_noret_decl(f_11858)
511 static void C_ccall f_11858(C_word c,C_word *av) C_noret;
512 C_noret_decl(f_11862)
513 static void C_ccall f_11862(C_word c,C_word *av) C_noret;
514 C_noret_decl(f_11872)
515 static void C_fcall f_11872(C_word t0,C_word t1,C_word t2) C_noret;
516 C_noret_decl(f_11897)
517 static void C_ccall f_11897(C_word c,C_word *av) C_noret;
518 C_noret_decl(f_11907)
519 static void C_ccall f_11907(C_word c,C_word *av) C_noret;
520 C_noret_decl(f_11909)
521 static void C_ccall f_11909(C_word c,C_word *av) C_noret;
522 C_noret_decl(f_11913)
523 static void C_ccall f_11913(C_word c,C_word *av) C_noret;
524 C_noret_decl(f_11921)
525 static void C_ccall f_11921(C_word c,C_word *av) C_noret;
526 C_noret_decl(f_11924)
527 static void C_ccall f_11924(C_word c,C_word *av) C_noret;
528 C_noret_decl(f_11927)
529 static void C_ccall f_11927(C_word c,C_word *av) C_noret;
530 C_noret_decl(f_11930)
531 static void C_ccall f_11930(C_word c,C_word *av) C_noret;
532 C_noret_decl(f_11933)
533 static void C_ccall f_11933(C_word c,C_word *av) C_noret;
534 C_noret_decl(f_11944)
535 static void C_ccall f_11944(C_word c,C_word *av) C_noret;
536 C_noret_decl(f_11946)
537 static void C_fcall f_11946(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
538 C_noret_decl(f_11960)
539 static void C_ccall f_11960(C_word c,C_word *av) C_noret;
540 C_noret_decl(f_11966)
541 static void C_ccall f_11966(C_word c,C_word *av) C_noret;
542 C_noret_decl(f_11969)
543 static void C_ccall f_11969(C_word c,C_word *av) C_noret;
544 C_noret_decl(f_11973)
545 static void C_ccall f_11973(C_word c,C_word *av) C_noret;
546 C_noret_decl(f_11979)
547 static void C_ccall f_11979(C_word c,C_word *av) C_noret;
548 C_noret_decl(f_11982)
549 static void C_ccall f_11982(C_word c,C_word *av) C_noret;
550 C_noret_decl(f_11997)
551 static void C_ccall f_11997(C_word c,C_word *av) C_noret;
552 C_noret_decl(f_12038)
553 static void C_fcall f_12038(C_word t0,C_word t1) C_noret;
554 C_noret_decl(f_12042)
555 static void C_ccall f_12042(C_word c,C_word *av) C_noret;
556 C_noret_decl(f_12045)
557 static void C_ccall f_12045(C_word c,C_word *av) C_noret;
558 C_noret_decl(f_12078)
559 static C_word C_fcall f_12078(C_word *a,C_word t0,C_word t1);
560 C_noret_decl(f_12093)
561 static void C_ccall f_12093(C_word c,C_word *av) C_noret;
562 C_noret_decl(f_12095)
563 static void C_fcall f_12095(C_word t0,C_word t1,C_word t2) C_noret;
564 C_noret_decl(f_12143)
565 static void C_ccall f_12143(C_word c,C_word *av) C_noret;
566 C_noret_decl(f_12145)
567 static void C_ccall f_12145(C_word c,C_word *av) C_noret;
568 C_noret_decl(f_12152)
569 static void C_ccall f_12152(C_word c,C_word *av) C_noret;
570 C_noret_decl(f_12155)
571 static void C_ccall f_12155(C_word c,C_word *av) C_noret;
572 C_noret_decl(f_12158)
573 static void C_ccall f_12158(C_word c,C_word *av) C_noret;
574 C_noret_decl(f_12163)
575 static void C_fcall f_12163(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
576 C_noret_decl(f_12177)
577 static void C_ccall f_12177(C_word c,C_word *av) C_noret;
578 C_noret_decl(f_12183)
579 static void C_ccall f_12183(C_word c,C_word *av) C_noret;
580 C_noret_decl(f_12186)
581 static void C_ccall f_12186(C_word c,C_word *av) C_noret;
582 C_noret_decl(f_12190)
583 static void C_ccall f_12190(C_word c,C_word *av) C_noret;
584 C_noret_decl(f_12196)
585 static void C_ccall f_12196(C_word c,C_word *av) C_noret;
586 C_noret_decl(f_12199)
587 static void C_ccall f_12199(C_word c,C_word *av) C_noret;
588 C_noret_decl(f_12202)
589 static void C_ccall f_12202(C_word c,C_word *av) C_noret;
590 C_noret_decl(f_12205)
591 static void C_ccall f_12205(C_word c,C_word *av) C_noret;
592 C_noret_decl(f_12209)
593 static void C_ccall f_12209(C_word c,C_word *av) C_noret;
594 C_noret_decl(f_12215)
595 static void C_ccall f_12215(C_word c,C_word *av) C_noret;
596 C_noret_decl(f_12218)
597 static void C_ccall f_12218(C_word c,C_word *av) C_noret;
598 C_noret_decl(f_12221)
599 static void C_ccall f_12221(C_word c,C_word *av) C_noret;
600 C_noret_decl(f_12227)
601 static void C_ccall f_12227(C_word c,C_word *av) C_noret;
602 C_noret_decl(f_12253)
603 static void C_ccall f_12253(C_word c,C_word *av) C_noret;
604 C_noret_decl(f_12281)
605 static void C_ccall f_12281(C_word c,C_word *av) C_noret;
606 C_noret_decl(f_12298)
607 static void C_ccall f_12298(C_word c,C_word *av) C_noret;
608 C_noret_decl(f_12304)
609 static void C_ccall f_12304(C_word c,C_word *av) C_noret;
610 C_noret_decl(f_12307)
611 static void C_ccall f_12307(C_word c,C_word *av) C_noret;
612 C_noret_decl(f_12326)
613 static void C_ccall f_12326(C_word c,C_word *av) C_noret;
614 C_noret_decl(f_12344)
615 static void C_ccall f_12344(C_word c,C_word *av) C_noret;
616 C_noret_decl(f_12347)
617 static void C_ccall f_12347(C_word c,C_word *av) C_noret;
618 C_noret_decl(f_12374)
619 static void C_ccall f_12374(C_word c,C_word *av) C_noret;
620 C_noret_decl(f_12401)
621 static void C_ccall f_12401(C_word c,C_word *av) C_noret;
622 C_noret_decl(f_12464)
623 static void C_ccall f_12464(C_word c,C_word *av) C_noret;
624 C_noret_decl(f_12476)
625 static void C_ccall f_12476(C_word c,C_word *av) C_noret;
626 C_noret_decl(f_12492)
627 static void C_ccall f_12492(C_word c,C_word *av) C_noret;
628 C_noret_decl(f_12526)
629 static void C_ccall f_12526(C_word c,C_word *av) C_noret;
630 C_noret_decl(f_12528)
631 static void C_ccall f_12528(C_word c,C_word *av) C_noret;
632 C_noret_decl(f_12551)
633 static void C_ccall f_12551(C_word c,C_word *av) C_noret;
634 C_noret_decl(f_12570)
635 static void C_ccall f_12570(C_word c,C_word *av) C_noret;
636 C_noret_decl(f_12578)
637 static void C_ccall f_12578(C_word c,C_word *av) C_noret;
638 C_noret_decl(f_12580)
639 static void C_ccall f_12580(C_word c,C_word *av) C_noret;
640 C_noret_decl(f_12611)
641 static void C_ccall f_12611(C_word c,C_word *av) C_noret;
642 C_noret_decl(f_12615)
643 static void C_ccall f_12615(C_word c,C_word *av) C_noret;
644 C_noret_decl(f_12617)
645 static void C_ccall f_12617(C_word c,C_word *av) C_noret;
646 C_noret_decl(f_12621)
647 static void C_ccall f_12621(C_word c,C_word *av) C_noret;
648 C_noret_decl(f_12644)
649 static void C_ccall f_12644(C_word c,C_word *av) C_noret;
650 C_noret_decl(f_12659)
651 static void C_ccall f_12659(C_word c,C_word *av) C_noret;
652 C_noret_decl(f_12661)
653 static void C_ccall f_12661(C_word c,C_word *av) C_noret;
654 C_noret_decl(f_12665)
655 static void C_ccall f_12665(C_word c,C_word *av) C_noret;
656 C_noret_decl(f_12668)
657 static void C_ccall f_12668(C_word c,C_word *av) C_noret;
658 C_noret_decl(f_12681)
659 static void C_ccall f_12681(C_word c,C_word *av) C_noret;
660 C_noret_decl(f_12683)
661 static void C_ccall f_12683(C_word c,C_word *av) C_noret;
662 C_noret_decl(f_12687)
663 static void C_ccall f_12687(C_word c,C_word *av) C_noret;
664 C_noret_decl(f_12690)
665 static void C_ccall f_12690(C_word c,C_word *av) C_noret;
666 C_noret_decl(f_12703)
667 static void C_ccall f_12703(C_word c,C_word *av) C_noret;
668 C_noret_decl(f_12705)
669 static void C_ccall f_12705(C_word c,C_word *av) C_noret;
670 C_noret_decl(f_12709)
671 static void C_ccall f_12709(C_word c,C_word *av) C_noret;
672 C_noret_decl(f_12712)
673 static void C_ccall f_12712(C_word c,C_word *av) C_noret;
674 C_noret_decl(f_12725)
675 static void C_ccall f_12725(C_word c,C_word *av) C_noret;
676 C_noret_decl(f_12727)
677 static void C_ccall f_12727(C_word c,C_word *av) C_noret;
678 C_noret_decl(f_12731)
679 static void C_ccall f_12731(C_word c,C_word *av) C_noret;
680 C_noret_decl(f_12742)
681 static void C_ccall f_12742(C_word c,C_word *av) C_noret;
682 C_noret_decl(f_12752)
683 static void C_ccall f_12752(C_word c,C_word *av) C_noret;
684 C_noret_decl(f_12777)
685 static void C_ccall f_12777(C_word c,C_word *av) C_noret;
686 C_noret_decl(f_12779)
687 static void C_ccall f_12779(C_word c,C_word *av) C_noret;
688 C_noret_decl(f_12783)
689 static void C_ccall f_12783(C_word c,C_word *av) C_noret;
690 C_noret_decl(f_12800)
691 static void C_ccall f_12800(C_word c,C_word *av) C_noret;
692 C_noret_decl(f_12803)
693 static void C_ccall f_12803(C_word c,C_word *av) C_noret;
694 C_noret_decl(f_12809)
695 static void C_ccall f_12809(C_word c,C_word *av) C_noret;
696 C_noret_decl(f_12816)
697 static void C_ccall f_12816(C_word c,C_word *av) C_noret;
698 C_noret_decl(f_12820)
699 static void C_ccall f_12820(C_word c,C_word *av) C_noret;
700 C_noret_decl(f_12824)
701 static void C_ccall f_12824(C_word c,C_word *av) C_noret;
702 C_noret_decl(f_12826)
703 static void C_ccall f_12826(C_word c,C_word *av) C_noret;
704 C_noret_decl(f_12830)
705 static void C_ccall f_12830(C_word c,C_word *av) C_noret;
706 C_noret_decl(f_12835)
707 static void C_fcall f_12835(C_word t0,C_word t1,C_word t2) C_noret;
708 C_noret_decl(f_12850)
709 static void C_ccall f_12850(C_word c,C_word *av) C_noret;
710 C_noret_decl(f_12861)
711 static void C_ccall f_12861(C_word c,C_word *av) C_noret;
712 C_noret_decl(f_12864)
713 static void C_ccall f_12864(C_word c,C_word *av) C_noret;
714 C_noret_decl(f_12886)
715 static void C_ccall f_12886(C_word c,C_word *av) C_noret;
716 C_noret_decl(f_12893)
717 static void C_ccall f_12893(C_word c,C_word *av) C_noret;
718 C_noret_decl(f_12897)
719 static void C_ccall f_12897(C_word c,C_word *av) C_noret;
720 C_noret_decl(f_12906)
721 static void C_ccall f_12906(C_word c,C_word *av) C_noret;
722 C_noret_decl(f_12913)
723 static void C_ccall f_12913(C_word c,C_word *av) C_noret;
724 C_noret_decl(f_12916)
725 static void C_ccall f_12916(C_word c,C_word *av) C_noret;
726 C_noret_decl(f_12951)
727 static void C_ccall f_12951(C_word c,C_word *av) C_noret;
728 C_noret_decl(f_12953)
729 static void C_ccall f_12953(C_word c,C_word *av) C_noret;
730 C_noret_decl(f_12957)
731 static void C_ccall f_12957(C_word c,C_word *av) C_noret;
732 C_noret_decl(f_12968)
733 static void C_ccall f_12968(C_word c,C_word *av) C_noret;
734 C_noret_decl(f_12970)
735 static void C_ccall f_12970(C_word c,C_word *av) C_noret;
736 C_noret_decl(f_12974)
737 static void C_ccall f_12974(C_word c,C_word *av) C_noret;
738 C_noret_decl(f_12985)
739 static void C_ccall f_12985(C_word c,C_word *av) C_noret;
740 C_noret_decl(f_12987)
741 static void C_ccall f_12987(C_word c,C_word *av) C_noret;
742 C_noret_decl(f_12991)
743 static void C_ccall f_12991(C_word c,C_word *av) C_noret;
744 C_noret_decl(f_13002)
745 static void C_ccall f_13002(C_word c,C_word *av) C_noret;
746 C_noret_decl(f_13004)
747 static void C_ccall f_13004(C_word c,C_word *av) C_noret;
748 C_noret_decl(f_13008)
749 static void C_ccall f_13008(C_word c,C_word *av) C_noret;
750 C_noret_decl(f_13019)
751 static void C_ccall f_13019(C_word c,C_word *av) C_noret;
752 C_noret_decl(f_13021)
753 static void C_ccall f_13021(C_word c,C_word *av) C_noret;
754 C_noret_decl(f_13025)
755 static void C_ccall f_13025(C_word c,C_word *av) C_noret;
756 C_noret_decl(f_13028)
757 static void C_ccall f_13028(C_word c,C_word *av) C_noret;
758 C_noret_decl(f_13038)
759 static void C_ccall f_13038(C_word c,C_word *av) C_noret;
760 C_noret_decl(f_13042)
761 static void C_ccall f_13042(C_word c,C_word *av) C_noret;
762 C_noret_decl(f_13044)
763 static void C_ccall f_13044(C_word c,C_word *av) C_noret;
764 C_noret_decl(f_13048)
765 static void C_ccall f_13048(C_word c,C_word *av) C_noret;
766 C_noret_decl(f_13051)
767 static void C_ccall f_13051(C_word c,C_word *av) C_noret;
768 C_noret_decl(f_13054)
769 static void C_ccall f_13054(C_word c,C_word *av) C_noret;
770 C_noret_decl(f_13077)
771 static void C_ccall f_13077(C_word c,C_word *av) C_noret;
772 C_noret_decl(f_13080)
773 static void C_ccall f_13080(C_word c,C_word *av) C_noret;
774 C_noret_decl(f_13126)
775 static void C_ccall f_13126(C_word c,C_word *av) C_noret;
776 C_noret_decl(f_13128)
777 static void C_ccall f_13128(C_word c,C_word *av) C_noret;
778 C_noret_decl(f_13132)
779 static void C_ccall f_13132(C_word c,C_word *av) C_noret;
780 C_noret_decl(f_13135)
781 static void C_ccall f_13135(C_word c,C_word *av) C_noret;
782 C_noret_decl(f_13158)
783 static void C_ccall f_13158(C_word c,C_word *av) C_noret;
784 C_noret_decl(f_13186)
785 static void C_ccall f_13186(C_word c,C_word *av) C_noret;
786 C_noret_decl(f_13191)
787 static void C_fcall f_13191(C_word t0,C_word t1,C_word t2) C_noret;
788 C_noret_decl(f_13198)
789 static void C_ccall f_13198(C_word c,C_word *av) C_noret;
790 C_noret_decl(f_13201)
791 static void C_ccall f_13201(C_word c,C_word *av) C_noret;
792 C_noret_decl(f_13210)
793 static void C_ccall f_13210(C_word c,C_word *av) C_noret;
794 C_noret_decl(f_13255)
795 static void C_ccall f_13255(C_word c,C_word *av) C_noret;
796 C_noret_decl(f_13257)
797 static void C_fcall f_13257(C_word t0,C_word t1,C_word t2) C_noret;
798 C_noret_decl(f_13282)
799 static void C_ccall f_13282(C_word c,C_word *av) C_noret;
800 C_noret_decl(f_13293)
801 static void C_ccall f_13293(C_word c,C_word *av) C_noret;
802 C_noret_decl(f_13297)
803 static void C_ccall f_13297(C_word c,C_word *av) C_noret;
804 C_noret_decl(f_13299)
805 static void C_ccall f_13299(C_word c,C_word *av) C_noret;
806 C_noret_decl(f_13307)
807 static void C_ccall f_13307(C_word c,C_word *av) C_noret;
808 C_noret_decl(f_13309)
809 static void C_ccall f_13309(C_word c,C_word *av) C_noret;
810 C_noret_decl(f_13313)
811 static void C_ccall f_13313(C_word c,C_word *av) C_noret;
812 C_noret_decl(f_13316)
813 static void C_ccall f_13316(C_word c,C_word *av) C_noret;
814 C_noret_decl(f_13319)
815 static void C_ccall f_13319(C_word c,C_word *av) C_noret;
816 C_noret_decl(f_13326)
817 static void C_ccall f_13326(C_word c,C_word *av) C_noret;
818 C_noret_decl(f_13334)
819 static void C_ccall f_13334(C_word c,C_word *av) C_noret;
820 C_noret_decl(f_13336)
821 static void C_ccall f_13336(C_word c,C_word *av) C_noret;
822 C_noret_decl(f_13340)
823 static void C_ccall f_13340(C_word c,C_word *av) C_noret;
824 C_noret_decl(f_13346)
825 static void C_ccall f_13346(C_word c,C_word *av) C_noret;
826 C_noret_decl(f_13352)
827 static void C_fcall f_13352(C_word t0,C_word t1) C_noret;
828 C_noret_decl(f_13355)
829 static void C_ccall f_13355(C_word c,C_word *av) C_noret;
830 C_noret_decl(f_13367)
831 static void C_ccall f_13367(C_word c,C_word *av) C_noret;
832 C_noret_decl(f_13370)
833 static void C_ccall f_13370(C_word c,C_word *av) C_noret;
834 C_noret_decl(f_13401)
835 static void C_ccall f_13401(C_word c,C_word *av) C_noret;
836 C_noret_decl(f_13405)
837 static void C_ccall f_13405(C_word c,C_word *av) C_noret;
838 C_noret_decl(f_13408)
839 static void C_ccall f_13408(C_word c,C_word *av) C_noret;
840 C_noret_decl(f_13415)
841 static void C_ccall f_13415(C_word c,C_word *av) C_noret;
842 C_noret_decl(f_13424)
843 static void C_ccall f_13424(C_word c,C_word *av) C_noret;
844 C_noret_decl(f_13449)
845 static void C_fcall f_13449(C_word t0,C_word t1) C_noret;
846 C_noret_decl(f_13483)
847 static void C_ccall f_13483(C_word c,C_word *av) C_noret;
848 C_noret_decl(f_13497)
849 static void C_ccall f_13497(C_word c,C_word *av) C_noret;
850 C_noret_decl(f_13509)
851 static void C_ccall f_13509(C_word c,C_word *av) C_noret;
852 C_noret_decl(f_13511)
853 static void C_ccall f_13511(C_word c,C_word *av) C_noret;
854 C_noret_decl(f_13517)
855 static void C_fcall f_13517(C_word t0,C_word t1,C_word t2) C_noret;
856 C_noret_decl(f_13527)
857 static void C_fcall f_13527(C_word t0,C_word t1,C_word t2) C_noret;
858 C_noret_decl(f_13541)
859 static void C_ccall f_13541(C_word c,C_word *av) C_noret;
860 C_noret_decl(f_13557)
861 static void C_ccall f_13557(C_word c,C_word *av) C_noret;
862 C_noret_decl(f_13581)
863 static void C_ccall f_13581(C_word c,C_word *av) C_noret;
864 C_noret_decl(f_13616)
865 static void C_ccall f_13616(C_word c,C_word *av) C_noret;
866 C_noret_decl(f_13650)
867 static void C_ccall f_13650(C_word c,C_word *av) C_noret;
868 C_noret_decl(f_13672)
869 static void C_fcall f_13672(C_word t0,C_word t1,C_word t2) C_noret;
870 C_noret_decl(f_13697)
871 static void C_ccall f_13697(C_word c,C_word *av) C_noret;
872 C_noret_decl(f_13699)
873 static void C_fcall f_13699(C_word t0,C_word t1,C_word t2) C_noret;
874 C_noret_decl(f_13778)
875 static void C_ccall f_13778(C_word c,C_word *av) C_noret;
876 C_noret_decl(f_13790)
877 static void C_ccall f_13790(C_word c,C_word *av) C_noret;
878 C_noret_decl(f_13802)
879 static void C_ccall f_13802(C_word c,C_word *av) C_noret;
880 C_noret_decl(f_13804)
881 static void C_ccall f_13804(C_word c,C_word *av) C_noret;
882 C_noret_decl(f_13808)
883 static void C_ccall f_13808(C_word c,C_word *av) C_noret;
884 C_noret_decl(f_13819)
885 static void C_ccall f_13819(C_word c,C_word *av) C_noret;
886 C_noret_decl(f_13829)
887 static void C_ccall f_13829(C_word c,C_word *av) C_noret;
888 C_noret_decl(f_13837)
889 static void C_ccall f_13837(C_word c,C_word *av) C_noret;
890 C_noret_decl(f_13839)
891 static void C_ccall f_13839(C_word c,C_word *av) C_noret;
892 C_noret_decl(f_13848)
893 static void C_fcall f_13848(C_word t0,C_word t1,C_word t2) C_noret;
894 C_noret_decl(f_13854)
895 static void C_ccall f_13854(C_word c,C_word *av) C_noret;
896 C_noret_decl(f_13860)
897 static void C_ccall f_13860(C_word c,C_word *av) C_noret;
898 C_noret_decl(f_13864)
899 static void C_ccall f_13864(C_word c,C_word *av) C_noret;
900 C_noret_decl(f_13867)
901 static void C_ccall f_13867(C_word c,C_word *av) C_noret;
902 C_noret_decl(f_13870)
903 static void C_ccall f_13870(C_word c,C_word *av) C_noret;
904 C_noret_decl(f_13901)
905 static void C_ccall f_13901(C_word c,C_word *av) C_noret;
906 C_noret_decl(f_13910)
907 static void C_ccall f_13910(C_word c,C_word *av) C_noret;
908 C_noret_decl(f_13912)
909 static void C_fcall f_13912(C_word t0,C_word t1,C_word t2) C_noret;
910 C_noret_decl(f_13937)
911 static void C_ccall f_13937(C_word c,C_word *av) C_noret;
912 C_noret_decl(f_13948)
913 static void C_ccall f_13948(C_word c,C_word *av) C_noret;
914 C_noret_decl(f_13950)
915 static void C_ccall f_13950(C_word c,C_word *av) C_noret;
916 C_noret_decl(f_13958)
917 static void C_ccall f_13958(C_word c,C_word *av) C_noret;
918 C_noret_decl(f_13960)
919 static void C_ccall f_13960(C_word c,C_word *av) C_noret;
920 C_noret_decl(f_4262)
921 static void C_ccall f_4262(C_word c,C_word *av) C_noret;
922 C_noret_decl(f_4265)
923 static void C_ccall f_4265(C_word c,C_word *av) C_noret;
924 C_noret_decl(f_5547)
925 static void C_ccall f_5547(C_word c,C_word *av) C_noret;
926 C_noret_decl(f_5552)
927 static void C_ccall f_5552(C_word c,C_word *av) C_noret;
928 C_noret_decl(f_5556)
929 static void C_ccall f_5556(C_word c,C_word *av) C_noret;
930 C_noret_decl(f_5558)
931 static C_word C_fcall f_5558(C_word t0,C_word t1);
932 C_noret_decl(f_5575)
933 static void C_fcall f_5575(C_word t0,C_word t1,C_word t2) C_noret;
934 C_noret_decl(f_5582)
935 static void C_ccall f_5582(C_word c,C_word *av) C_noret;
936 C_noret_decl(f_5588)
937 static void C_ccall f_5588(C_word c,C_word *av) C_noret;
938 C_noret_decl(f_5622)
939 static void C_ccall f_5622(C_word c,C_word *av) C_noret;
940 C_noret_decl(f_5628)
941 static void C_fcall f_5628(C_word t0,C_word t1,C_word t2) C_noret;
942 C_noret_decl(f_5644)
943 static void C_ccall f_5644(C_word c,C_word *av) C_noret;
944 C_noret_decl(f_5699)
945 static void C_ccall f_5699(C_word c,C_word *av) C_noret;
946 C_noret_decl(f_5706)
947 static void C_ccall f_5706(C_word c,C_word *av) C_noret;
948 C_noret_decl(f_5724)
949 static void C_ccall f_5724(C_word c,C_word *av) C_noret;
950 C_noret_decl(f_5733)
951 static void C_fcall f_5733(C_word t0,C_word t1,C_word t2) C_noret;
952 C_noret_decl(f_5754)
953 static void C_ccall f_5754(C_word c,C_word *av) C_noret;
954 C_noret_decl(f_5764)
955 static void C_ccall f_5764(C_word c,C_word *av) C_noret;
956 C_noret_decl(f_5768)
957 static void C_ccall f_5768(C_word c,C_word *av) C_noret;
958 C_noret_decl(f_5793)
959 static void C_ccall f_5793(C_word c,C_word *av) C_noret;
960 C_noret_decl(f_5808)
961 static void C_ccall f_5808(C_word c,C_word *av) C_noret;
962 C_noret_decl(f_5810)
963 static void C_fcall f_5810(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
964 C_noret_decl(f_5858)
965 static void C_fcall f_5858(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
966 C_noret_decl(f_5907)
967 static void C_fcall f_5907(C_word t0,C_word t1,C_word t2) C_noret;
968 C_noret_decl(f_5932)
969 static void C_ccall f_5932(C_word c,C_word *av) C_noret;
970 C_noret_decl(f_5946)
971 static void C_ccall f_5946(C_word c,C_word *av) C_noret;
972 C_noret_decl(f_5955)
973 static void C_ccall f_5955(C_word c,C_word *av) C_noret;
974 C_noret_decl(f_5979)
975 static void C_ccall f_5979(C_word c,C_word *av) C_noret;
976 C_noret_decl(f_5983)
977 static void C_ccall f_5983(C_word c,C_word *av) C_noret;
978 C_noret_decl(f_5986)
979 static void C_ccall f_5986(C_word c,C_word *av) C_noret;
980 C_noret_decl(f_5993)
981 static C_word C_fcall f_5993(C_word t0,C_word t1);
982 C_noret_decl(f_6011)
983 static void C_ccall f_6011(C_word c,C_word *av) C_noret;
984 C_noret_decl(f_6021)
985 static void C_ccall f_6021(C_word c,C_word *av) C_noret;
986 C_noret_decl(f_6025)
987 static void C_ccall f_6025(C_word c,C_word *av) C_noret;
988 C_noret_decl(f_6047)
989 static void C_ccall f_6047(C_word c,C_word *av) C_noret;
990 C_noret_decl(f_6058)
991 static void C_ccall f_6058(C_word c,C_word *av) C_noret;
992 C_noret_decl(f_6066)
993 static void C_ccall f_6066(C_word c,C_word *av) C_noret;
994 C_noret_decl(f_6070)
995 static void C_ccall f_6070(C_word c,C_word *av) C_noret;
996 C_noret_decl(f_6072)
997 static void C_fcall f_6072(C_word t0,C_word t1,C_word t2) C_noret;
998 C_noret_decl(f_6095)
999 static void C_ccall f_6095(C_word c,C_word *av) C_noret;
1000 C_noret_decl(f_6103)
1001 static void C_ccall f_6103(C_word c,C_word *av) C_noret;
1002 C_noret_decl(f_6106)
1003 static void C_fcall f_6106(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
1004 C_noret_decl(f_6116)
1005 static void C_ccall f_6116(C_word c,C_word *av) C_noret;
1006 C_noret_decl(f_6121)
1007 static void C_ccall f_6121(C_word c,C_word *av) C_noret;
1008 C_noret_decl(f_6127)
1009 static void C_ccall f_6127(C_word c,C_word *av) C_noret;
1010 C_noret_decl(f_6133)
1011 static void C_ccall f_6133(C_word c,C_word *av) C_noret;
1012 C_noret_decl(f_6155)
1013 static void C_ccall f_6155(C_word c,C_word *av) C_noret;
1014 C_noret_decl(f_6161)
1015 static void C_fcall f_6161(C_word t0,C_word t1,C_word t2) C_noret;
1016 C_noret_decl(f_6178)
1017 static void C_fcall f_6178(C_word t0,C_word t1) C_noret;
1018 C_noret_decl(f_6189)
1019 static void C_ccall f_6189(C_word c,C_word *av) C_noret;
1020 C_noret_decl(f_6228)
1021 static void C_ccall f_6228(C_word c,C_word *av) C_noret;
1022 C_noret_decl(f_6234)
1023 static void C_ccall f_6234(C_word c,C_word *av) C_noret;
1024 C_noret_decl(f_6238)
1025 static void C_ccall f_6238(C_word c,C_word *av) C_noret;
1026 C_noret_decl(f_6241)
1027 static void C_ccall f_6241(C_word c,C_word *av) C_noret;
1028 C_noret_decl(f_6257)
1029 static void C_ccall f_6257(C_word c,C_word *av) C_noret;
1030 C_noret_decl(f_6261)
1031 static void C_ccall f_6261(C_word c,C_word *av) C_noret;
1032 C_noret_decl(f_6268)
1033 static void C_ccall f_6268(C_word c,C_word *av) C_noret;
1034 C_noret_decl(f_6274)
1035 static void C_ccall f_6274(C_word c,C_word *av) C_noret;
1036 C_noret_decl(f_6279)
1037 static void C_ccall f_6279(C_word c,C_word *av) C_noret;
1038 C_noret_decl(f_6285)
1039 static void C_ccall f_6285(C_word c,C_word *av) C_noret;
1040 C_noret_decl(f_6293)
1041 static void C_ccall f_6293(C_word c,C_word *av) C_noret;
1042 C_noret_decl(f_6299)
1043 static void C_ccall f_6299(C_word c,C_word *av) C_noret;
1044 C_noret_decl(f_6305)
1045 static void C_fcall f_6305(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1046 C_noret_decl(f_6331)
1047 static void C_ccall f_6331(C_word c,C_word *av) C_noret;
1048 C_noret_decl(f_6349)
1049 static void C_fcall f_6349(C_word t0,C_word t1,C_word t2) C_noret;
1050 C_noret_decl(f_6373)
1051 static void C_fcall f_6373(C_word t0,C_word t1) C_noret;
1052 C_noret_decl(f_6382)
1053 static void C_ccall f_6382(C_word c,C_word *av) C_noret;
1054 C_noret_decl(f_6394)
1055 static void C_ccall f_6394(C_word c,C_word *av) C_noret;
1056 C_noret_decl(f_6419)
1057 static void C_ccall f_6419(C_word c,C_word *av) C_noret;
1058 C_noret_decl(f_6421)
1059 static void C_fcall f_6421(C_word t0,C_word t1,C_word t2) C_noret;
1060 C_noret_decl(f_6484)
1061 static void C_ccall f_6484(C_word c,C_word *av) C_noret;
1062 C_noret_decl(f_6490)
1063 static void C_fcall f_6490(C_word t0,C_word t1,C_word t2) C_noret;
1064 C_noret_decl(f_6528)
1065 static void C_fcall f_6528(C_word t0,C_word t1) C_noret;
1066 C_noret_decl(f_6532)
1067 static void C_fcall f_6532(C_word t0,C_word t1,C_word t2) C_noret;
1068 C_noret_decl(f_6536)
1069 static void C_ccall f_6536(C_word c,C_word *av) C_noret;
1070 C_noret_decl(f_6548)
1071 static void C_ccall f_6548(C_word c,C_word *av) C_noret;
1072 C_noret_decl(f_6591)
1073 static void C_ccall f_6591(C_word c,C_word *av) C_noret;
1074 C_noret_decl(f_6601)
1075 static void C_ccall f_6601(C_word c,C_word *av) C_noret;
1076 C_noret_decl(f_6604)
1077 static void C_ccall f_6604(C_word c,C_word *av) C_noret;
1078 C_noret_decl(f_6608)
1079 static void C_ccall f_6608(C_word c,C_word *av) C_noret;
1080 C_noret_decl(f_6622)
1081 static void C_fcall f_6622(C_word t0,C_word t1,C_word t2) C_noret;
1082 C_noret_decl(f_6628)
1083 static void C_ccall f_6628(C_word c,C_word *av) C_noret;
1084 C_noret_decl(f_6634)
1085 static void C_ccall f_6634(C_word c,C_word *av) C_noret;
1086 C_noret_decl(f_6670)
1087 static void C_ccall f_6670(C_word c,C_word *av) C_noret;
1088 C_noret_decl(f_6676)
1089 static C_word C_fcall f_6676(C_word t0);
1090 C_noret_decl(f_6717)
1091 static void C_ccall f_6717(C_word c,C_word *av) C_noret;
1092 C_noret_decl(f_6720)
1093 static void C_fcall f_6720(C_word t0,C_word t1,C_word t2) C_noret;
1094 C_noret_decl(f_6737)
1095 static void C_ccall f_6737(C_word c,C_word *av) C_noret;
1096 C_noret_decl(f_6740)
1097 static void C_ccall f_6740(C_word c,C_word *av) C_noret;
1098 C_noret_decl(f_6743)
1099 static void C_ccall f_6743(C_word c,C_word *av) C_noret;
1100 C_noret_decl(f_6748)
1101 static void C_fcall f_6748(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
1102 C_noret_decl(f_6762)
1103 static void C_ccall f_6762(C_word c,C_word *av) C_noret;
1104 C_noret_decl(f_6766)
1105 static void C_fcall f_6766(C_word t0,C_word t1) C_noret;
1106 C_noret_decl(f_6778)
1107 static void C_fcall f_6778(C_word t0,C_word t1) C_noret;
1108 C_noret_decl(f_6809)
1109 static void C_ccall f_6809(C_word c,C_word *av) C_noret;
1110 C_noret_decl(f_6834)
1111 static void C_ccall f_6834(C_word c,C_word *av) C_noret;
1112 C_noret_decl(f_6853)
1113 static void C_ccall f_6853(C_word c,C_word *av) C_noret;
1114 C_noret_decl(f_6857)
1115 static void C_ccall f_6857(C_word c,C_word *av) C_noret;
1116 C_noret_decl(f_6906)
1117 static void C_fcall f_6906(C_word t0,C_word t1,C_word t2) C_noret;
1118 C_noret_decl(f_6959)
1119 static void C_ccall f_6959(C_word c,C_word *av) C_noret;
1120 C_noret_decl(f_6963)
1121 static void C_ccall f_6963(C_word c,C_word *av) C_noret;
1122 C_noret_decl(f_6966)
1123 static void C_ccall f_6966(C_word c,C_word *av) C_noret;
1124 C_noret_decl(f_6969)
1125 static void C_ccall f_6969(C_word c,C_word *av) C_noret;
1126 C_noret_decl(f_6971)
1127 static void C_fcall f_6971(C_word t0,C_word t1,C_word t2) C_noret;
1128 C_noret_decl(f_6996)
1129 static void C_ccall f_6996(C_word c,C_word *av) C_noret;
1130 C_noret_decl(f_7010)
1131 static void C_ccall f_7010(C_word c,C_word *av) C_noret;
1132 C_noret_decl(f_7051)
1133 static void C_fcall f_7051(C_word t0,C_word t1) C_noret;
1134 C_noret_decl(f_7064)
1135 static void C_fcall f_7064(C_word t0,C_word t1) C_noret;
1136 C_noret_decl(f_7080)
1137 static void C_ccall f_7080(C_word c,C_word *av) C_noret;
1138 C_noret_decl(f_7101)
1139 static void C_fcall f_7101(C_word t0,C_word t1) C_noret;
1140 C_noret_decl(f_7140)
1141 static void C_fcall f_7140(C_word t0,C_word t1) C_noret;
1142 C_noret_decl(f_7159)
1143 static void C_ccall f_7159(C_word c,C_word *av) C_noret;
1144 C_noret_decl(f_7227)
1145 static void C_fcall f_7227(C_word t0,C_word t1) C_noret;
1146 C_noret_decl(f_7326)
1147 static void C_ccall f_7326(C_word c,C_word *av) C_noret;
1148 C_noret_decl(f_7332)
1149 static void C_ccall f_7332(C_word c,C_word *av) C_noret;
1150 C_noret_decl(f_7336)
1151 static void C_ccall f_7336(C_word c,C_word *av) C_noret;
1152 C_noret_decl(f_7339)
1153 static void C_ccall f_7339(C_word c,C_word *av) C_noret;
1154 C_noret_decl(f_7358)
1155 static void C_ccall f_7358(C_word c,C_word *av) C_noret;
1156 C_noret_decl(f_7362)
1157 static void C_ccall f_7362(C_word c,C_word *av) C_noret;
1158 C_noret_decl(f_7380)
1159 static void C_ccall f_7380(C_word c,C_word *av) C_noret;
1160 C_noret_decl(f_7402)
1161 static void C_fcall f_7402(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1162 C_noret_decl(f_7468)
1163 static void C_fcall f_7468(C_word t0,C_word t1,C_word t2) C_noret;
1164 C_noret_decl(f_7493)
1165 static void C_ccall f_7493(C_word c,C_word *av) C_noret;
1166 C_noret_decl(f_7506)
1167 static void C_ccall f_7506(C_word c,C_word *av) C_noret;
1168 C_noret_decl(f_7510)
1169 static void C_ccall f_7510(C_word c,C_word *av) C_noret;
1170 C_noret_decl(f_7521)
1171 static C_word C_fcall f_7521(C_word t0,C_word t1,C_word t2);
1172 C_noret_decl(f_7604)
1173 static void C_fcall f_7604(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1174 C_noret_decl(f_7616)
1175 static void C_fcall f_7616(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1176 C_noret_decl(f_7630)
1177 static void C_ccall f_7630(C_word c,C_word *av) C_noret;
1178 C_noret_decl(f_7635)
1179 static void C_fcall f_7635(C_word t0,C_word t1,C_word t2) C_noret;
1180 C_noret_decl(f_7646)
1181 static void C_fcall f_7646(C_word t0,C_word t1) C_noret;
1182 C_noret_decl(f_7666)
1183 static void C_ccall f_7666(C_word c,C_word *av) C_noret;
1184 C_noret_decl(f_7670)
1185 static void C_ccall f_7670(C_word c,C_word *av) C_noret;
1186 C_noret_decl(f_7678)
1187 static void C_ccall f_7678(C_word c,C_word *av) C_noret;
1188 C_noret_decl(f_7685)
1189 static void C_ccall f_7685(C_word c,C_word *av) C_noret;
1190 C_noret_decl(f_7697)
1191 static void C_fcall f_7697(C_word t0,C_word t1) C_noret;
1192 C_noret_decl(f_7704)
1193 static void C_ccall f_7704(C_word c,C_word *av) C_noret;
1194 C_noret_decl(f_7708)
1195 static void C_ccall f_7708(C_word c,C_word *av) C_noret;
1196 C_noret_decl(f_7746)
1197 static void C_ccall f_7746(C_word c,C_word *av) C_noret;
1198 C_noret_decl(f_7857)
1199 static void C_ccall f_7857(C_word c,C_word *av) C_noret;
1200 C_noret_decl(f_7860)
1201 static void C_ccall f_7860(C_word c,C_word *av) C_noret;
1202 C_noret_decl(f_7866)
1203 static void C_ccall f_7866(C_word c,C_word *av) C_noret;
1204 C_noret_decl(f_7870)
1205 static void C_ccall f_7870(C_word c,C_word *av) C_noret;
1206 C_noret_decl(f_7892)
1207 static void C_ccall f_7892(C_word c,C_word *av) C_noret;
1208 C_noret_decl(f_7895)
1209 static void C_ccall f_7895(C_word c,C_word *av) C_noret;
1210 C_noret_decl(f_7898)
1211 static void C_ccall f_7898(C_word c,C_word *av) C_noret;
1212 C_noret_decl(f_7901)
1213 static void C_ccall f_7901(C_word c,C_word *av) C_noret;
1214 C_noret_decl(f_7903)
1215 static void C_fcall f_7903(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1216 C_noret_decl(f_7910)
1217 static void C_fcall f_7910(C_word t0,C_word t1) C_noret;
1218 C_noret_decl(f_7936)
1219 static void C_ccall f_7936(C_word c,C_word *av) C_noret;
1220 C_noret_decl(f_7965)
1221 static void C_fcall f_7965(C_word t0,C_word t1,C_word t2) C_noret;
1222 C_noret_decl(f_7999)
1223 static void C_fcall f_7999(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1224 C_noret_decl(f_8023)
1225 static void C_ccall f_8023(C_word c,C_word *av) C_noret;
1226 C_noret_decl(f_8025)
1227 static void C_ccall f_8025(C_word c,C_word *av) C_noret;
1228 C_noret_decl(f_8029)
1229 static void C_ccall f_8029(C_word c,C_word *av) C_noret;
1230 C_noret_decl(f_8041)
1231 static void C_fcall f_8041(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1232 C_noret_decl(f_8049)
1233 static void C_ccall f_8049(C_word c,C_word *av) C_noret;
1234 C_noret_decl(f_8051)
1235 static void C_fcall f_8051(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1236 C_noret_decl(f_8073)
1237 static void C_ccall f_8073(C_word c,C_word *av) C_noret;
1238 C_noret_decl(f_8076)
1239 static void C_ccall f_8076(C_word c,C_word *av) C_noret;
1240 C_noret_decl(f_8078)
1241 static void C_fcall f_8078(C_word t0,C_word t1,C_word t2) C_noret;
1242 C_noret_decl(f_8125)
1243 static void C_fcall f_8125(C_word t0,C_word t1) C_noret;
1244 C_noret_decl(f_8129)
1245 static void C_ccall f_8129(C_word c,C_word *av) C_noret;
1246 C_noret_decl(f_8197)
1247 static void C_fcall f_8197(C_word t0,C_word t1,C_word t2) C_noret;
1248 C_noret_decl(f_8203)
1249 static void C_fcall f_8203(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1250 C_noret_decl(f_8223)
1251 static void C_fcall f_8223(C_word t0,C_word t1) C_noret;
1252 C_noret_decl(f_8241)
1253 static void C_ccall f_8241(C_word c,C_word *av) C_noret;
1254 C_noret_decl(f_8246)
1255 static void C_fcall f_8246(C_word t0,C_word t1,C_word t2) C_noret;
1256 C_noret_decl(f_8259)
1257 static void C_ccall f_8259(C_word c,C_word *av) C_noret;
1258 C_noret_decl(f_8262)
1259 static void C_ccall f_8262(C_word c,C_word *av) C_noret;
1260 C_noret_decl(f_8312)
1261 static void C_ccall f_8312(C_word c,C_word *av) C_noret;
1262 C_noret_decl(f_8319)
1263 static void C_ccall f_8319(C_word c,C_word *av) C_noret;
1264 C_noret_decl(f_8326)
1265 static void C_ccall f_8326(C_word c,C_word *av) C_noret;
1266 C_noret_decl(f_8378)
1267 static void C_ccall f_8378(C_word c,C_word *av) C_noret;
1268 C_noret_decl(f_8390)
1269 static void C_ccall f_8390(C_word c,C_word *av) C_noret;
1270 C_noret_decl(f_8426)
1271 static void C_ccall f_8426(C_word c,C_word *av) C_noret;
1272 C_noret_decl(f_8442)
1273 static void C_ccall f_8442(C_word c,C_word *av) C_noret;
1274 C_noret_decl(f_8512)
1275 static void C_ccall f_8512(C_word c,C_word *av) C_noret;
1276 C_noret_decl(f_8515)
1277 static void C_fcall f_8515(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1278 C_noret_decl(f_8529)
1279 static C_word C_fcall f_8529(C_word t0,C_word t1);
1280 C_noret_decl(f_8569)
1281 static void C_ccall f_8569(C_word c,C_word *av) C_noret;
1282 C_noret_decl(f_8592)
1283 static void C_ccall f_8592(C_word c,C_word *av) C_noret;
1284 C_noret_decl(f_8594)
1285 static void C_ccall f_8594(C_word c,C_word *av) C_noret;
1286 C_noret_decl(f_8597)
1287 static void C_fcall f_8597(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1288 C_noret_decl(f_8641)
1289 static void C_ccall f_8641(C_word c,C_word *av) C_noret;
1290 C_noret_decl(f_8649)
1291 static void C_ccall f_8649(C_word c,C_word *av) C_noret;
1292 C_noret_decl(f_8657)
1293 static void C_ccall f_8657(C_word c,C_word *av) C_noret;
1294 C_noret_decl(f_8660)
1295 static void C_ccall f_8660(C_word c,C_word *av) C_noret;
1296 C_noret_decl(f_8671)
1297 static void C_ccall f_8671(C_word c,C_word *av) C_noret;
1298 C_noret_decl(f_8676)
1299 static void C_fcall f_8676(C_word t0,C_word t1,C_word t2) C_noret;
1300 C_noret_decl(f_8696)
1301 static void C_ccall f_8696(C_word c,C_word *av) C_noret;
1302 C_noret_decl(f_8700)
1303 static void C_ccall f_8700(C_word c,C_word *av) C_noret;
1304 C_noret_decl(f_8715)
1305 static void C_ccall f_8715(C_word c,C_word *av) C_noret;
1306 C_noret_decl(f_8727)
1307 static void C_ccall f_8727(C_word c,C_word *av) C_noret;
1308 C_noret_decl(f_8729)
1309 static void C_fcall f_8729(C_word t0,C_word t1,C_word t2) C_noret;
1310 C_noret_decl(f_8736)
1311 static void C_ccall f_8736(C_word c,C_word *av) C_noret;
1312 C_noret_decl(f_8743)
1313 static void C_ccall f_8743(C_word c,C_word *av) C_noret;
1314 C_noret_decl(f_8745)
1315 static void C_fcall f_8745(C_word t0,C_word t1,C_word t2) C_noret;
1316 C_noret_decl(f_8755)
1317 static void C_ccall f_8755(C_word c,C_word *av) C_noret;
1318 C_noret_decl(f_8758)
1319 static void C_ccall f_8758(C_word c,C_word *av) C_noret;
1320 C_noret_decl(f_8761)
1321 static void C_ccall f_8761(C_word c,C_word *av) C_noret;
1322 C_noret_decl(f_8764)
1323 static void C_ccall f_8764(C_word c,C_word *av) C_noret;
1324 C_noret_decl(f_8767)
1325 static void C_ccall f_8767(C_word c,C_word *av) C_noret;
1326 C_noret_decl(f_8774)
1327 static void C_ccall f_8774(C_word c,C_word *av) C_noret;
1328 C_noret_decl(f_8781)
1329 static void C_ccall f_8781(C_word c,C_word *av) C_noret;
1330 C_noret_decl(f_8784)
1331 static void C_ccall f_8784(C_word c,C_word *av) C_noret;
1332 C_noret_decl(f_8793)
1333 static void C_ccall f_8793(C_word c,C_word *av) C_noret;
1334 C_noret_decl(f_8796)
1335 static void C_ccall f_8796(C_word c,C_word *av) C_noret;
1336 C_noret_decl(f_8799)
1337 static void C_ccall f_8799(C_word c,C_word *av) C_noret;
1338 C_noret_decl(f_8802)
1339 static void C_ccall f_8802(C_word c,C_word *av) C_noret;
1340 C_noret_decl(f_8805)
1341 static void C_ccall f_8805(C_word c,C_word *av) C_noret;
1342 C_noret_decl(f_8808)
1343 static void C_ccall f_8808(C_word c,C_word *av) C_noret;
1344 C_noret_decl(f_8821)
1345 static void C_ccall f_8821(C_word c,C_word *av) C_noret;
1346 C_noret_decl(f_8825)
1347 static void C_ccall f_8825(C_word c,C_word *av) C_noret;
1348 C_noret_decl(f_8836)
1349 static void C_ccall f_8836(C_word c,C_word *av) C_noret;
1350 C_noret_decl(f_8840)
1351 static void C_ccall f_8840(C_word c,C_word *av) C_noret;
1352 C_noret_decl(f_8842)
1353 static void C_fcall f_8842(C_word t0,C_word t1,C_word t2) C_noret;
1354 C_noret_decl(f_8856)
1355 static void C_ccall f_8856(C_word c,C_word *av) C_noret;
1356 C_noret_decl(f_8860)
1357 static void C_ccall f_8860(C_word c,C_word *av) C_noret;
1358 C_noret_decl(f_8881)
1359 static void C_ccall f_8881(C_word c,C_word *av) C_noret;
1360 C_noret_decl(f_8901)
1361 static void C_ccall f_8901(C_word c,C_word *av) C_noret;
1362 C_noret_decl(f_8905)
1363 static C_word C_fcall f_8905(C_word t0,C_word t1);
1364 C_noret_decl(f_8920)
1365 static void C_ccall f_8920(C_word c,C_word *av) C_noret;
1366 C_noret_decl(f_8930)
1367 static void C_ccall f_8930(C_word c,C_word *av) C_noret;
1368 C_noret_decl(f_8935)
1369 static void C_fcall f_8935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1370 C_noret_decl(f_8942)
1371 static void C_ccall f_8942(C_word c,C_word *av) C_noret;
1372 C_noret_decl(f_8947)
1373 static void C_fcall f_8947(C_word t0,C_word t1,C_word t2) C_noret;
1374 C_noret_decl(f_8951)
1375 static void C_ccall f_8951(C_word c,C_word *av) C_noret;
1376 C_noret_decl(f_8958)
1377 static void C_ccall f_8958(C_word c,C_word *av) C_noret;
1378 C_noret_decl(f_8965)
1379 static void C_ccall f_8965(C_word c,C_word *av) C_noret;
1380 C_noret_decl(f_8972)
1381 static void C_ccall f_8972(C_word c,C_word *av) C_noret;
1382 C_noret_decl(f_8974)
1383 static void C_ccall f_8974(C_word c,C_word *av) C_noret;
1384 C_noret_decl(f_8978)
1385 static void C_ccall f_8978(C_word c,C_word *av) C_noret;
1386 C_noret_decl(f_8986)
1387 static C_word C_fcall f_8986(C_word t0);
1388 C_noret_decl(f_9019)
1389 static void C_ccall f_9019(C_word c,C_word *av) C_noret;
1390 C_noret_decl(f_9025)
1391 static void C_ccall f_9025(C_word c,C_word *av) C_noret;
1392 C_noret_decl(f_9031)
1393 static C_word C_fcall f_9031(C_word t0);
1394 C_noret_decl(f_9052)
1395 static void C_fcall f_9052(C_word t0,C_word t1) C_noret;
1396 C_noret_decl(f_9057)
1397 static void C_fcall f_9057(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1398 C_noret_decl(f_9076)
1399 static void C_fcall f_9076(C_word t0,C_word t1) C_noret;
1400 C_noret_decl(f_9081)
1401 static void C_fcall f_9081(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1402 C_noret_decl(f_9100)
1403 static void C_ccall f_9100(C_word c,C_word *av) C_noret;
1404 C_noret_decl(f_9254)
1405 static void C_ccall f_9254(C_word c,C_word *av) C_noret;
1406 C_noret_decl(f_9311)
1407 static void C_ccall f_9311(C_word c,C_word *av) C_noret;
1408 C_noret_decl(f_9364)
1409 static void C_fcall f_9364(C_word t0,C_word t1,C_word t2) C_noret;
1410 C_noret_decl(f_9370)
1411 static void C_ccall f_9370(C_word c,C_word *av) C_noret;
1412 C_noret_decl(f_9373)
1413 static void C_fcall f_9373(C_word t0,C_word t1,C_word t2) C_noret;
1414 C_noret_decl(f_9380)
1415 static void C_ccall f_9380(C_word c,C_word *av) C_noret;
1416 C_noret_decl(f_9389)
1417 static void C_ccall f_9389(C_word c,C_word *av) C_noret;
1418 C_noret_decl(f_9395)
1419 static void C_ccall f_9395(C_word c,C_word *av) C_noret;
1420 C_noret_decl(f_9420)
1421 static void C_ccall f_9420(C_word c,C_word *av) C_noret;
1422 C_noret_decl(f_9422)
1423 static void C_ccall f_9422(C_word c,C_word *av) C_noret;
1424 C_noret_decl(f_9440)
1425 static void C_ccall f_9440(C_word c,C_word *av) C_noret;
1426 C_noret_decl(f_9444)
1427 static void C_ccall f_9444(C_word c,C_word *av) C_noret;
1428 C_noret_decl(f_9461)
1429 static void C_ccall f_9461(C_word c,C_word *av) C_noret;
1430 C_noret_decl(f_9465)
1431 static void C_ccall f_9465(C_word c,C_word *av) C_noret;
1432 C_noret_decl(f_9491)
1433 static void C_ccall f_9491(C_word c,C_word *av) C_noret;
1434 C_noret_decl(f_9508)
1435 static void C_ccall f_9508(C_word c,C_word *av) C_noret;
1436 C_noret_decl(f_9530)
1437 static void C_ccall f_9530(C_word c,C_word *av) C_noret;
1438 C_noret_decl(f_9567)
1439 static void C_fcall f_9567(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1440 C_noret_decl(f_9588)
1441 static void C_ccall f_9588(C_word c,C_word *av) C_noret;
1442 C_noret_decl(f_9619)
1443 static void C_fcall f_9619(C_word t0,C_word t1) C_noret;
1444 C_noret_decl(f_9627)
1445 static void C_fcall f_9627(C_word t0,C_word t1) C_noret;
1446 C_noret_decl(f_9649)
1447 static C_word C_fcall f_9649(C_word t0,C_word t1);
1448 C_noret_decl(f_9664)
1449 static void C_ccall f_9664(C_word c,C_word *av) C_noret;
1450 C_noret_decl(f_9677)
1451 static C_word C_fcall f_9677(C_word t0,C_word t1);
1452 C_noret_decl(f_9692)
1453 static void C_ccall f_9692(C_word c,C_word *av) C_noret;
1454 C_noret_decl(f_9727)
1455 static C_word C_fcall f_9727(C_word t0,C_word t1);
1456 C_noret_decl(f_9752)
1457 static void C_fcall f_9752(C_word t0,C_word t1,C_word t2) C_noret;
1458 C_noret_decl(f_9770)
1459 static void C_ccall f_9770(C_word c,C_word *av) C_noret;
1460 C_noret_decl(f_9774)
1461 static void C_ccall f_9774(C_word c,C_word *av) C_noret;
1462 C_noret_decl(f_9791)
1463 static void C_ccall f_9791(C_word c,C_word *av) C_noret;
1464 C_noret_decl(f_9795)
1465 static void C_ccall f_9795(C_word c,C_word *av) C_noret;
1466 C_noret_decl(f_9884)
1467 static void C_ccall f_9884(C_word c,C_word *av) C_noret;
1468 C_noret_decl(f_9888)
1469 static void C_ccall f_9888(C_word c,C_word *av) C_noret;
1470 C_noret_decl(f_9893)
1471 static void C_ccall f_9893(C_word c,C_word *av) C_noret;
1472 C_noret_decl(f_9899)
1473 static void C_ccall f_9899(C_word c,C_word *av) C_noret;
1474 C_noret_decl(f_9912)
1475 static void C_ccall f_9912(C_word c,C_word *av) C_noret;
1476 C_noret_decl(f_9915)
1477 static void C_ccall f_9915(C_word c,C_word *av) C_noret;
1478 C_noret_decl(f_9919)
1479 static void C_ccall f_9919(C_word c,C_word *av) C_noret;
1480 C_noret_decl(f_9922)
1481 static void C_ccall f_9922(C_word c,C_word *av) C_noret;
1482 C_noret_decl(f_9925)
1483 static void C_ccall f_9925(C_word c,C_word *av) C_noret;
1484 C_noret_decl(f_9929)
1485 static void C_ccall f_9929(C_word c,C_word *av) C_noret;
1486 C_noret_decl(f_9932)
1487 static void C_ccall f_9932(C_word c,C_word *av) C_noret;
1488 C_noret_decl(f_9935)
1489 static void C_ccall f_9935(C_word c,C_word *av) C_noret;
1490 C_noret_decl(f_9938)
1491 static void C_ccall f_9938(C_word c,C_word *av) C_noret;
1492 C_noret_decl(f_9941)
1493 static void C_ccall f_9941(C_word c,C_word *av) C_noret;
1494 C_noret_decl(f_9944)
1495 static void C_ccall f_9944(C_word c,C_word *av) C_noret;
1496 C_noret_decl(f_9947)
1497 static void C_ccall f_9947(C_word c,C_word *av) C_noret;
1498 C_noret_decl(f_9951)
1499 static void C_ccall f_9951(C_word c,C_word *av) C_noret;
1500 C_noret_decl(f_9955)
1501 static void C_ccall f_9955(C_word c,C_word *av) C_noret;
1502 C_noret_decl(f_9958)
1503 static void C_ccall f_9958(C_word c,C_word *av) C_noret;
1504 C_noret_decl(f_9961)
1505 static void C_ccall f_9961(C_word c,C_word *av) C_noret;
1506 C_noret_decl(f_9964)
1507 static void C_ccall f_9964(C_word c,C_word *av) C_noret;
1508 C_noret_decl(f_9967)
1509 static void C_ccall f_9967(C_word c,C_word *av) C_noret;
1510 C_noret_decl(f_9971)
1511 static void C_ccall f_9971(C_word c,C_word *av) C_noret;
1512 C_noret_decl(f_9975)
1513 static void C_ccall f_9975(C_word c,C_word *av) C_noret;
1514 C_noret_decl(f_9978)
1515 static void C_ccall f_9978(C_word c,C_word *av) C_noret;
1516 C_noret_decl(f_9981)
1517 static void C_ccall f_9981(C_word c,C_word *av) C_noret;
1518 C_noret_decl(f_9984)
1519 static void C_ccall f_9984(C_word c,C_word *av) C_noret;
1520 C_noret_decl(f_9987)
1521 static void C_ccall f_9987(C_word c,C_word *av) C_noret;
1522 C_noret_decl(f_9990)
1523 static void C_ccall f_9990(C_word c,C_word *av) C_noret;
1524 C_noret_decl(f_9993)
1525 static void C_ccall f_9993(C_word c,C_word *av) C_noret;
1526 C_noret_decl(f_9996)
1527 static void C_ccall f_9996(C_word c,C_word *av) C_noret;
1528 C_noret_decl(f_9999)
1529 static void C_ccall f_9999(C_word c,C_word *av) C_noret;
1530 C_noret_decl(C_expand_toplevel)
1531 C_externexport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
1532 
1533 C_noret_decl(trf_10035)
1534 static void C_ccall trf_10035(C_word c,C_word *av) C_noret;
trf_10035(C_word c,C_word * av)1535 static void C_ccall trf_10035(C_word c,C_word *av){
1536 C_word t0=av[3];
1537 C_word t1=av[2];
1538 C_word t2=av[1];
1539 C_word t3=av[0];
1540 f_10035(t0,t1,t2,t3);}
1541 
1542 C_noret_decl(trf_10254)
1543 static void C_ccall trf_10254(C_word c,C_word *av) C_noret;
trf_10254(C_word c,C_word * av)1544 static void C_ccall trf_10254(C_word c,C_word *av){
1545 C_word t0=av[2];
1546 C_word t1=av[1];
1547 C_word t2=av[0];
1548 f_10254(t0,t1,t2);}
1549 
1550 C_noret_decl(trf_10303)
1551 static void C_ccall trf_10303(C_word c,C_word *av) C_noret;
trf_10303(C_word c,C_word * av)1552 static void C_ccall trf_10303(C_word c,C_word *av){
1553 C_word t0=av[1];
1554 C_word t1=av[0];
1555 f_10303(t0,t1);}
1556 
1557 C_noret_decl(trf_10510)
1558 static void C_ccall trf_10510(C_word c,C_word *av) C_noret;
trf_10510(C_word c,C_word * av)1559 static void C_ccall trf_10510(C_word c,C_word *av){
1560 C_word t0=av[1];
1561 C_word t1=av[0];
1562 f_10510(t0,t1);}
1563 
1564 C_noret_decl(trf_10873)
1565 static void C_ccall trf_10873(C_word c,C_word *av) C_noret;
trf_10873(C_word c,C_word * av)1566 static void C_ccall trf_10873(C_word c,C_word *av){
1567 C_word t0=av[1];
1568 C_word t1=av[0];
1569 f_10873(t0,t1);}
1570 
1571 C_noret_decl(trf_10899)
1572 static void C_ccall trf_10899(C_word c,C_word *av) C_noret;
trf_10899(C_word c,C_word * av)1573 static void C_ccall trf_10899(C_word c,C_word *av){
1574 C_word t0=av[3];
1575 C_word t1=av[2];
1576 C_word t2=av[1];
1577 C_word t3=av[0];
1578 f_10899(t0,t1,t2,t3);}
1579 
1580 C_noret_decl(trf_10920)
1581 static void C_ccall trf_10920(C_word c,C_word *av) C_noret;
trf_10920(C_word c,C_word * av)1582 static void C_ccall trf_10920(C_word c,C_word *av){
1583 C_word t0=av[1];
1584 C_word t1=av[0];
1585 f_10920(t0,t1);}
1586 
1587 C_noret_decl(trf_11250)
1588 static void C_ccall trf_11250(C_word c,C_word *av) C_noret;
trf_11250(C_word c,C_word * av)1589 static void C_ccall trf_11250(C_word c,C_word *av){
1590 C_word t0=av[2];
1591 C_word t1=av[1];
1592 C_word t2=av[0];
1593 f_11250(t0,t1,t2);}
1594 
1595 C_noret_decl(trf_11312)
1596 static void C_ccall trf_11312(C_word c,C_word *av) C_noret;
trf_11312(C_word c,C_word * av)1597 static void C_ccall trf_11312(C_word c,C_word *av){
1598 C_word t0=av[1];
1599 C_word t1=av[0];
1600 f_11312(t0,t1);}
1601 
1602 C_noret_decl(trf_11381)
1603 static void C_ccall trf_11381(C_word c,C_word *av) C_noret;
trf_11381(C_word c,C_word * av)1604 static void C_ccall trf_11381(C_word c,C_word *av){
1605 C_word t0=av[3];
1606 C_word t1=av[2];
1607 C_word t2=av[1];
1608 C_word t3=av[0];
1609 f_11381(t0,t1,t2,t3);}
1610 
1611 C_noret_decl(trf_11391)
1612 static void C_ccall trf_11391(C_word c,C_word *av) C_noret;
trf_11391(C_word c,C_word * av)1613 static void C_ccall trf_11391(C_word c,C_word *av){
1614 C_word t0=av[3];
1615 C_word t1=av[2];
1616 C_word t2=av[1];
1617 C_word t3=av[0];
1618 f_11391(t0,t1,t2,t3);}
1619 
1620 C_noret_decl(trf_11554)
1621 static void C_ccall trf_11554(C_word c,C_word *av) C_noret;
trf_11554(C_word c,C_word * av)1622 static void C_ccall trf_11554(C_word c,C_word *av){
1623 C_word t0=av[2];
1624 C_word t1=av[1];
1625 C_word t2=av[0];
1626 f_11554(t0,t1,t2);}
1627 
1628 C_noret_decl(trf_11562)
1629 static void C_ccall trf_11562(C_word c,C_word *av) C_noret;
trf_11562(C_word c,C_word * av)1630 static void C_ccall trf_11562(C_word c,C_word *av){
1631 C_word t0=av[2];
1632 C_word t1=av[1];
1633 C_word t2=av[0];
1634 f_11562(t0,t1,t2);}
1635 
1636 C_noret_decl(trf_11588)
1637 static void C_ccall trf_11588(C_word c,C_word *av) C_noret;
trf_11588(C_word c,C_word * av)1638 static void C_ccall trf_11588(C_word c,C_word *av){
1639 C_word t0=av[2];
1640 C_word t1=av[1];
1641 C_word t2=av[0];
1642 f_11588(t0,t1,t2);}
1643 
1644 C_noret_decl(trf_11727)
1645 static void C_ccall trf_11727(C_word c,C_word *av) C_noret;
trf_11727(C_word c,C_word * av)1646 static void C_ccall trf_11727(C_word c,C_word *av){
1647 C_word t0=av[1];
1648 C_word t1=av[0];
1649 f_11727(t0,t1);}
1650 
1651 C_noret_decl(trf_11770)
1652 static void C_ccall trf_11770(C_word c,C_word *av) C_noret;
trf_11770(C_word c,C_word * av)1653 static void C_ccall trf_11770(C_word c,C_word *av){
1654 C_word t0=av[2];
1655 C_word t1=av[1];
1656 C_word t2=av[0];
1657 f_11770(t0,t1,t2);}
1658 
1659 C_noret_decl(trf_11780)
1660 static void C_ccall trf_11780(C_word c,C_word *av) C_noret;
trf_11780(C_word c,C_word * av)1661 static void C_ccall trf_11780(C_word c,C_word *av){
1662 C_word t0=av[1];
1663 C_word t1=av[0];
1664 f_11780(t0,t1);}
1665 
1666 C_noret_decl(trf_11820)
1667 static void C_ccall trf_11820(C_word c,C_word *av) C_noret;
trf_11820(C_word c,C_word * av)1668 static void C_ccall trf_11820(C_word c,C_word *av){
1669 C_word t0=av[2];
1670 C_word t1=av[1];
1671 C_word t2=av[0];
1672 f_11820(t0,t1,t2);}
1673 
1674 C_noret_decl(trf_11872)
1675 static void C_ccall trf_11872(C_word c,C_word *av) C_noret;
trf_11872(C_word c,C_word * av)1676 static void C_ccall trf_11872(C_word c,C_word *av){
1677 C_word t0=av[2];
1678 C_word t1=av[1];
1679 C_word t2=av[0];
1680 f_11872(t0,t1,t2);}
1681 
1682 C_noret_decl(trf_11946)
1683 static void C_ccall trf_11946(C_word c,C_word *av) C_noret;
trf_11946(C_word c,C_word * av)1684 static void C_ccall trf_11946(C_word c,C_word *av){
1685 C_word t0=av[3];
1686 C_word t1=av[2];
1687 C_word t2=av[1];
1688 C_word t3=av[0];
1689 f_11946(t0,t1,t2,t3);}
1690 
1691 C_noret_decl(trf_12038)
1692 static void C_ccall trf_12038(C_word c,C_word *av) C_noret;
trf_12038(C_word c,C_word * av)1693 static void C_ccall trf_12038(C_word c,C_word *av){
1694 C_word t0=av[1];
1695 C_word t1=av[0];
1696 f_12038(t0,t1);}
1697 
1698 C_noret_decl(trf_12095)
1699 static void C_ccall trf_12095(C_word c,C_word *av) C_noret;
trf_12095(C_word c,C_word * av)1700 static void C_ccall trf_12095(C_word c,C_word *av){
1701 C_word t0=av[2];
1702 C_word t1=av[1];
1703 C_word t2=av[0];
1704 f_12095(t0,t1,t2);}
1705 
1706 C_noret_decl(trf_12163)
1707 static void C_ccall trf_12163(C_word c,C_word *av) C_noret;
trf_12163(C_word c,C_word * av)1708 static void C_ccall trf_12163(C_word c,C_word *av){
1709 C_word t0=av[3];
1710 C_word t1=av[2];
1711 C_word t2=av[1];
1712 C_word t3=av[0];
1713 f_12163(t0,t1,t2,t3);}
1714 
1715 C_noret_decl(trf_12835)
1716 static void C_ccall trf_12835(C_word c,C_word *av) C_noret;
trf_12835(C_word c,C_word * av)1717 static void C_ccall trf_12835(C_word c,C_word *av){
1718 C_word t0=av[2];
1719 C_word t1=av[1];
1720 C_word t2=av[0];
1721 f_12835(t0,t1,t2);}
1722 
1723 C_noret_decl(trf_13191)
1724 static void C_ccall trf_13191(C_word c,C_word *av) C_noret;
trf_13191(C_word c,C_word * av)1725 static void C_ccall trf_13191(C_word c,C_word *av){
1726 C_word t0=av[2];
1727 C_word t1=av[1];
1728 C_word t2=av[0];
1729 f_13191(t0,t1,t2);}
1730 
1731 C_noret_decl(trf_13257)
1732 static void C_ccall trf_13257(C_word c,C_word *av) C_noret;
trf_13257(C_word c,C_word * av)1733 static void C_ccall trf_13257(C_word c,C_word *av){
1734 C_word t0=av[2];
1735 C_word t1=av[1];
1736 C_word t2=av[0];
1737 f_13257(t0,t1,t2);}
1738 
1739 C_noret_decl(trf_13352)
1740 static void C_ccall trf_13352(C_word c,C_word *av) C_noret;
trf_13352(C_word c,C_word * av)1741 static void C_ccall trf_13352(C_word c,C_word *av){
1742 C_word t0=av[1];
1743 C_word t1=av[0];
1744 f_13352(t0,t1);}
1745 
1746 C_noret_decl(trf_13449)
1747 static void C_ccall trf_13449(C_word c,C_word *av) C_noret;
trf_13449(C_word c,C_word * av)1748 static void C_ccall trf_13449(C_word c,C_word *av){
1749 C_word t0=av[1];
1750 C_word t1=av[0];
1751 f_13449(t0,t1);}
1752 
1753 C_noret_decl(trf_13517)
1754 static void C_ccall trf_13517(C_word c,C_word *av) C_noret;
trf_13517(C_word c,C_word * av)1755 static void C_ccall trf_13517(C_word c,C_word *av){
1756 C_word t0=av[2];
1757 C_word t1=av[1];
1758 C_word t2=av[0];
1759 f_13517(t0,t1,t2);}
1760 
1761 C_noret_decl(trf_13527)
1762 static void C_ccall trf_13527(C_word c,C_word *av) C_noret;
trf_13527(C_word c,C_word * av)1763 static void C_ccall trf_13527(C_word c,C_word *av){
1764 C_word t0=av[2];
1765 C_word t1=av[1];
1766 C_word t2=av[0];
1767 f_13527(t0,t1,t2);}
1768 
1769 C_noret_decl(trf_13672)
1770 static void C_ccall trf_13672(C_word c,C_word *av) C_noret;
trf_13672(C_word c,C_word * av)1771 static void C_ccall trf_13672(C_word c,C_word *av){
1772 C_word t0=av[2];
1773 C_word t1=av[1];
1774 C_word t2=av[0];
1775 f_13672(t0,t1,t2);}
1776 
1777 C_noret_decl(trf_13699)
1778 static void C_ccall trf_13699(C_word c,C_word *av) C_noret;
trf_13699(C_word c,C_word * av)1779 static void C_ccall trf_13699(C_word c,C_word *av){
1780 C_word t0=av[2];
1781 C_word t1=av[1];
1782 C_word t2=av[0];
1783 f_13699(t0,t1,t2);}
1784 
1785 C_noret_decl(trf_13848)
1786 static void C_ccall trf_13848(C_word c,C_word *av) C_noret;
trf_13848(C_word c,C_word * av)1787 static void C_ccall trf_13848(C_word c,C_word *av){
1788 C_word t0=av[2];
1789 C_word t1=av[1];
1790 C_word t2=av[0];
1791 f_13848(t0,t1,t2);}
1792 
1793 C_noret_decl(trf_13912)
1794 static void C_ccall trf_13912(C_word c,C_word *av) C_noret;
trf_13912(C_word c,C_word * av)1795 static void C_ccall trf_13912(C_word c,C_word *av){
1796 C_word t0=av[2];
1797 C_word t1=av[1];
1798 C_word t2=av[0];
1799 f_13912(t0,t1,t2);}
1800 
1801 C_noret_decl(trf_5575)
1802 static void C_ccall trf_5575(C_word c,C_word *av) C_noret;
trf_5575(C_word c,C_word * av)1803 static void C_ccall trf_5575(C_word c,C_word *av){
1804 C_word t0=av[2];
1805 C_word t1=av[1];
1806 C_word t2=av[0];
1807 f_5575(t0,t1,t2);}
1808 
1809 C_noret_decl(trf_5628)
1810 static void C_ccall trf_5628(C_word c,C_word *av) C_noret;
trf_5628(C_word c,C_word * av)1811 static void C_ccall trf_5628(C_word c,C_word *av){
1812 C_word t0=av[2];
1813 C_word t1=av[1];
1814 C_word t2=av[0];
1815 f_5628(t0,t1,t2);}
1816 
1817 C_noret_decl(trf_5733)
1818 static void C_ccall trf_5733(C_word c,C_word *av) C_noret;
trf_5733(C_word c,C_word * av)1819 static void C_ccall trf_5733(C_word c,C_word *av){
1820 C_word t0=av[2];
1821 C_word t1=av[1];
1822 C_word t2=av[0];
1823 f_5733(t0,t1,t2);}
1824 
1825 C_noret_decl(trf_5810)
1826 static void C_ccall trf_5810(C_word c,C_word *av) C_noret;
trf_5810(C_word c,C_word * av)1827 static void C_ccall trf_5810(C_word c,C_word *av){
1828 C_word t0=av[3];
1829 C_word t1=av[2];
1830 C_word t2=av[1];
1831 C_word t3=av[0];
1832 f_5810(t0,t1,t2,t3);}
1833 
1834 C_noret_decl(trf_5858)
1835 static void C_ccall trf_5858(C_word c,C_word *av) C_noret;
trf_5858(C_word c,C_word * av)1836 static void C_ccall trf_5858(C_word c,C_word *av){
1837 C_word t0=av[3];
1838 C_word t1=av[2];
1839 C_word t2=av[1];
1840 C_word t3=av[0];
1841 f_5858(t0,t1,t2,t3);}
1842 
1843 C_noret_decl(trf_5907)
1844 static void C_ccall trf_5907(C_word c,C_word *av) C_noret;
trf_5907(C_word c,C_word * av)1845 static void C_ccall trf_5907(C_word c,C_word *av){
1846 C_word t0=av[2];
1847 C_word t1=av[1];
1848 C_word t2=av[0];
1849 f_5907(t0,t1,t2);}
1850 
1851 C_noret_decl(trf_6072)
1852 static void C_ccall trf_6072(C_word c,C_word *av) C_noret;
trf_6072(C_word c,C_word * av)1853 static void C_ccall trf_6072(C_word c,C_word *av){
1854 C_word t0=av[2];
1855 C_word t1=av[1];
1856 C_word t2=av[0];
1857 f_6072(t0,t1,t2);}
1858 
1859 C_noret_decl(trf_6106)
1860 static void C_ccall trf_6106(C_word c,C_word *av) C_noret;
trf_6106(C_word c,C_word * av)1861 static void C_ccall trf_6106(C_word c,C_word *av){
1862 C_word t0=av[6];
1863 C_word t1=av[5];
1864 C_word t2=av[4];
1865 C_word t3=av[3];
1866 C_word t4=av[2];
1867 C_word t5=av[1];
1868 C_word t6=av[0];
1869 f_6106(t0,t1,t2,t3,t4,t5,t6);}
1870 
1871 C_noret_decl(trf_6161)
1872 static void C_ccall trf_6161(C_word c,C_word *av) C_noret;
trf_6161(C_word c,C_word * av)1873 static void C_ccall trf_6161(C_word c,C_word *av){
1874 C_word t0=av[2];
1875 C_word t1=av[1];
1876 C_word t2=av[0];
1877 f_6161(t0,t1,t2);}
1878 
1879 C_noret_decl(trf_6178)
1880 static void C_ccall trf_6178(C_word c,C_word *av) C_noret;
trf_6178(C_word c,C_word * av)1881 static void C_ccall trf_6178(C_word c,C_word *av){
1882 C_word t0=av[1];
1883 C_word t1=av[0];
1884 f_6178(t0,t1);}
1885 
1886 C_noret_decl(trf_6305)
1887 static void C_ccall trf_6305(C_word c,C_word *av) C_noret;
trf_6305(C_word c,C_word * av)1888 static void C_ccall trf_6305(C_word c,C_word *av){
1889 C_word t0=av[4];
1890 C_word t1=av[3];
1891 C_word t2=av[2];
1892 C_word t3=av[1];
1893 C_word t4=av[0];
1894 f_6305(t0,t1,t2,t3,t4);}
1895 
1896 C_noret_decl(trf_6349)
1897 static void C_ccall trf_6349(C_word c,C_word *av) C_noret;
trf_6349(C_word c,C_word * av)1898 static void C_ccall trf_6349(C_word c,C_word *av){
1899 C_word t0=av[2];
1900 C_word t1=av[1];
1901 C_word t2=av[0];
1902 f_6349(t0,t1,t2);}
1903 
1904 C_noret_decl(trf_6373)
1905 static void C_ccall trf_6373(C_word c,C_word *av) C_noret;
trf_6373(C_word c,C_word * av)1906 static void C_ccall trf_6373(C_word c,C_word *av){
1907 C_word t0=av[1];
1908 C_word t1=av[0];
1909 f_6373(t0,t1);}
1910 
1911 C_noret_decl(trf_6421)
1912 static void C_ccall trf_6421(C_word c,C_word *av) C_noret;
trf_6421(C_word c,C_word * av)1913 static void C_ccall trf_6421(C_word c,C_word *av){
1914 C_word t0=av[2];
1915 C_word t1=av[1];
1916 C_word t2=av[0];
1917 f_6421(t0,t1,t2);}
1918 
1919 C_noret_decl(trf_6490)
1920 static void C_ccall trf_6490(C_word c,C_word *av) C_noret;
trf_6490(C_word c,C_word * av)1921 static void C_ccall trf_6490(C_word c,C_word *av){
1922 C_word t0=av[2];
1923 C_word t1=av[1];
1924 C_word t2=av[0];
1925 f_6490(t0,t1,t2);}
1926 
1927 C_noret_decl(trf_6528)
1928 static void C_ccall trf_6528(C_word c,C_word *av) C_noret;
trf_6528(C_word c,C_word * av)1929 static void C_ccall trf_6528(C_word c,C_word *av){
1930 C_word t0=av[1];
1931 C_word t1=av[0];
1932 f_6528(t0,t1);}
1933 
1934 C_noret_decl(trf_6532)
1935 static void C_ccall trf_6532(C_word c,C_word *av) C_noret;
trf_6532(C_word c,C_word * av)1936 static void C_ccall trf_6532(C_word c,C_word *av){
1937 C_word t0=av[2];
1938 C_word t1=av[1];
1939 C_word t2=av[0];
1940 f_6532(t0,t1,t2);}
1941 
1942 C_noret_decl(trf_6622)
1943 static void C_ccall trf_6622(C_word c,C_word *av) C_noret;
trf_6622(C_word c,C_word * av)1944 static void C_ccall trf_6622(C_word c,C_word *av){
1945 C_word t0=av[2];
1946 C_word t1=av[1];
1947 C_word t2=av[0];
1948 f_6622(t0,t1,t2);}
1949 
1950 C_noret_decl(trf_6720)
1951 static void C_ccall trf_6720(C_word c,C_word *av) C_noret;
trf_6720(C_word c,C_word * av)1952 static void C_ccall trf_6720(C_word c,C_word *av){
1953 C_word t0=av[2];
1954 C_word t1=av[1];
1955 C_word t2=av[0];
1956 f_6720(t0,t1,t2);}
1957 
1958 C_noret_decl(trf_6748)
1959 static void C_ccall trf_6748(C_word c,C_word *av) C_noret;
trf_6748(C_word c,C_word * av)1960 static void C_ccall trf_6748(C_word c,C_word *av){
1961 C_word t0=av[6];
1962 C_word t1=av[5];
1963 C_word t2=av[4];
1964 C_word t3=av[3];
1965 C_word t4=av[2];
1966 C_word t5=av[1];
1967 C_word t6=av[0];
1968 f_6748(t0,t1,t2,t3,t4,t5,t6);}
1969 
1970 C_noret_decl(trf_6766)
1971 static void C_ccall trf_6766(C_word c,C_word *av) C_noret;
trf_6766(C_word c,C_word * av)1972 static void C_ccall trf_6766(C_word c,C_word *av){
1973 C_word t0=av[1];
1974 C_word t1=av[0];
1975 f_6766(t0,t1);}
1976 
1977 C_noret_decl(trf_6778)
1978 static void C_ccall trf_6778(C_word c,C_word *av) C_noret;
trf_6778(C_word c,C_word * av)1979 static void C_ccall trf_6778(C_word c,C_word *av){
1980 C_word t0=av[1];
1981 C_word t1=av[0];
1982 f_6778(t0,t1);}
1983 
1984 C_noret_decl(trf_6906)
1985 static void C_ccall trf_6906(C_word c,C_word *av) C_noret;
trf_6906(C_word c,C_word * av)1986 static void C_ccall trf_6906(C_word c,C_word *av){
1987 C_word t0=av[2];
1988 C_word t1=av[1];
1989 C_word t2=av[0];
1990 f_6906(t0,t1,t2);}
1991 
1992 C_noret_decl(trf_6971)
1993 static void C_ccall trf_6971(C_word c,C_word *av) C_noret;
trf_6971(C_word c,C_word * av)1994 static void C_ccall trf_6971(C_word c,C_word *av){
1995 C_word t0=av[2];
1996 C_word t1=av[1];
1997 C_word t2=av[0];
1998 f_6971(t0,t1,t2);}
1999 
2000 C_noret_decl(trf_7051)
2001 static void C_ccall trf_7051(C_word c,C_word *av) C_noret;
trf_7051(C_word c,C_word * av)2002 static void C_ccall trf_7051(C_word c,C_word *av){
2003 C_word t0=av[1];
2004 C_word t1=av[0];
2005 f_7051(t0,t1);}
2006 
2007 C_noret_decl(trf_7064)
2008 static void C_ccall trf_7064(C_word c,C_word *av) C_noret;
trf_7064(C_word c,C_word * av)2009 static void C_ccall trf_7064(C_word c,C_word *av){
2010 C_word t0=av[1];
2011 C_word t1=av[0];
2012 f_7064(t0,t1);}
2013 
2014 C_noret_decl(trf_7101)
2015 static void C_ccall trf_7101(C_word c,C_word *av) C_noret;
trf_7101(C_word c,C_word * av)2016 static void C_ccall trf_7101(C_word c,C_word *av){
2017 C_word t0=av[1];
2018 C_word t1=av[0];
2019 f_7101(t0,t1);}
2020 
2021 C_noret_decl(trf_7140)
2022 static void C_ccall trf_7140(C_word c,C_word *av) C_noret;
trf_7140(C_word c,C_word * av)2023 static void C_ccall trf_7140(C_word c,C_word *av){
2024 C_word t0=av[1];
2025 C_word t1=av[0];
2026 f_7140(t0,t1);}
2027 
2028 C_noret_decl(trf_7227)
2029 static void C_ccall trf_7227(C_word c,C_word *av) C_noret;
trf_7227(C_word c,C_word * av)2030 static void C_ccall trf_7227(C_word c,C_word *av){
2031 C_word t0=av[1];
2032 C_word t1=av[0];
2033 f_7227(t0,t1);}
2034 
2035 C_noret_decl(trf_7402)
2036 static void C_ccall trf_7402(C_word c,C_word *av) C_noret;
trf_7402(C_word c,C_word * av)2037 static void C_ccall trf_7402(C_word c,C_word *av){
2038 C_word t0=av[3];
2039 C_word t1=av[2];
2040 C_word t2=av[1];
2041 C_word t3=av[0];
2042 f_7402(t0,t1,t2,t3);}
2043 
2044 C_noret_decl(trf_7468)
2045 static void C_ccall trf_7468(C_word c,C_word *av) C_noret;
trf_7468(C_word c,C_word * av)2046 static void C_ccall trf_7468(C_word c,C_word *av){
2047 C_word t0=av[2];
2048 C_word t1=av[1];
2049 C_word t2=av[0];
2050 f_7468(t0,t1,t2);}
2051 
2052 C_noret_decl(trf_7604)
2053 static void C_ccall trf_7604(C_word c,C_word *av) C_noret;
trf_7604(C_word c,C_word * av)2054 static void C_ccall trf_7604(C_word c,C_word *av){
2055 C_word t0=av[5];
2056 C_word t1=av[4];
2057 C_word t2=av[3];
2058 C_word t3=av[2];
2059 C_word t4=av[1];
2060 C_word t5=av[0];
2061 f_7604(t0,t1,t2,t3,t4,t5);}
2062 
2063 C_noret_decl(trf_7616)
2064 static void C_ccall trf_7616(C_word c,C_word *av) C_noret;
trf_7616(C_word c,C_word * av)2065 static void C_ccall trf_7616(C_word c,C_word *av){
2066 C_word t0=av[3];
2067 C_word t1=av[2];
2068 C_word t2=av[1];
2069 C_word t3=av[0];
2070 f_7616(t0,t1,t2,t3);}
2071 
2072 C_noret_decl(trf_7635)
2073 static void C_ccall trf_7635(C_word c,C_word *av) C_noret;
trf_7635(C_word c,C_word * av)2074 static void C_ccall trf_7635(C_word c,C_word *av){
2075 C_word t0=av[2];
2076 C_word t1=av[1];
2077 C_word t2=av[0];
2078 f_7635(t0,t1,t2);}
2079 
2080 C_noret_decl(trf_7646)
2081 static void C_ccall trf_7646(C_word c,C_word *av) C_noret;
trf_7646(C_word c,C_word * av)2082 static void C_ccall trf_7646(C_word c,C_word *av){
2083 C_word t0=av[1];
2084 C_word t1=av[0];
2085 f_7646(t0,t1);}
2086 
2087 C_noret_decl(trf_7697)
2088 static void C_ccall trf_7697(C_word c,C_word *av) C_noret;
trf_7697(C_word c,C_word * av)2089 static void C_ccall trf_7697(C_word c,C_word *av){
2090 C_word t0=av[1];
2091 C_word t1=av[0];
2092 f_7697(t0,t1);}
2093 
2094 C_noret_decl(trf_7903)
2095 static void C_ccall trf_7903(C_word c,C_word *av) C_noret;
trf_7903(C_word c,C_word * av)2096 static void C_ccall trf_7903(C_word c,C_word *av){
2097 C_word t0=av[4];
2098 C_word t1=av[3];
2099 C_word t2=av[2];
2100 C_word t3=av[1];
2101 C_word t4=av[0];
2102 f_7903(t0,t1,t2,t3,t4);}
2103 
2104 C_noret_decl(trf_7910)
2105 static void C_ccall trf_7910(C_word c,C_word *av) C_noret;
trf_7910(C_word c,C_word * av)2106 static void C_ccall trf_7910(C_word c,C_word *av){
2107 C_word t0=av[1];
2108 C_word t1=av[0];
2109 f_7910(t0,t1);}
2110 
2111 C_noret_decl(trf_7965)
2112 static void C_ccall trf_7965(C_word c,C_word *av) C_noret;
trf_7965(C_word c,C_word * av)2113 static void C_ccall trf_7965(C_word c,C_word *av){
2114 C_word t0=av[2];
2115 C_word t1=av[1];
2116 C_word t2=av[0];
2117 f_7965(t0,t1,t2);}
2118 
2119 C_noret_decl(trf_7999)
2120 static void C_ccall trf_7999(C_word c,C_word *av) C_noret;
trf_7999(C_word c,C_word * av)2121 static void C_ccall trf_7999(C_word c,C_word *av){
2122 C_word t0=av[3];
2123 C_word t1=av[2];
2124 C_word t2=av[1];
2125 C_word t3=av[0];
2126 f_7999(t0,t1,t2,t3);}
2127 
2128 C_noret_decl(trf_8041)
2129 static void C_ccall trf_8041(C_word c,C_word *av) C_noret;
trf_8041(C_word c,C_word * av)2130 static void C_ccall trf_8041(C_word c,C_word *av){
2131 C_word t0=av[5];
2132 C_word t1=av[4];
2133 C_word t2=av[3];
2134 C_word t3=av[2];
2135 C_word t4=av[1];
2136 C_word t5=av[0];
2137 f_8041(t0,t1,t2,t3,t4,t5);}
2138 
2139 C_noret_decl(trf_8051)
2140 static void C_ccall trf_8051(C_word c,C_word *av) C_noret;
trf_8051(C_word c,C_word * av)2141 static void C_ccall trf_8051(C_word c,C_word *av){
2142 C_word t0=av[4];
2143 C_word t1=av[3];
2144 C_word t2=av[2];
2145 C_word t3=av[1];
2146 C_word t4=av[0];
2147 f_8051(t0,t1,t2,t3,t4);}
2148 
2149 C_noret_decl(trf_8078)
2150 static void C_ccall trf_8078(C_word c,C_word *av) C_noret;
trf_8078(C_word c,C_word * av)2151 static void C_ccall trf_8078(C_word c,C_word *av){
2152 C_word t0=av[2];
2153 C_word t1=av[1];
2154 C_word t2=av[0];
2155 f_8078(t0,t1,t2);}
2156 
2157 C_noret_decl(trf_8125)
2158 static void C_ccall trf_8125(C_word c,C_word *av) C_noret;
trf_8125(C_word c,C_word * av)2159 static void C_ccall trf_8125(C_word c,C_word *av){
2160 C_word t0=av[1];
2161 C_word t1=av[0];
2162 f_8125(t0,t1);}
2163 
2164 C_noret_decl(trf_8197)
2165 static void C_ccall trf_8197(C_word c,C_word *av) C_noret;
trf_8197(C_word c,C_word * av)2166 static void C_ccall trf_8197(C_word c,C_word *av){
2167 C_word t0=av[2];
2168 C_word t1=av[1];
2169 C_word t2=av[0];
2170 f_8197(t0,t1,t2);}
2171 
2172 C_noret_decl(trf_8203)
2173 static void C_ccall trf_8203(C_word c,C_word *av) C_noret;
trf_8203(C_word c,C_word * av)2174 static void C_ccall trf_8203(C_word c,C_word *av){
2175 C_word t0=av[5];
2176 C_word t1=av[4];
2177 C_word t2=av[3];
2178 C_word t3=av[2];
2179 C_word t4=av[1];
2180 C_word t5=av[0];
2181 f_8203(t0,t1,t2,t3,t4,t5);}
2182 
2183 C_noret_decl(trf_8223)
2184 static void C_ccall trf_8223(C_word c,C_word *av) C_noret;
trf_8223(C_word c,C_word * av)2185 static void C_ccall trf_8223(C_word c,C_word *av){
2186 C_word t0=av[1];
2187 C_word t1=av[0];
2188 f_8223(t0,t1);}
2189 
2190 C_noret_decl(trf_8246)
2191 static void C_ccall trf_8246(C_word c,C_word *av) C_noret;
trf_8246(C_word c,C_word * av)2192 static void C_ccall trf_8246(C_word c,C_word *av){
2193 C_word t0=av[2];
2194 C_word t1=av[1];
2195 C_word t2=av[0];
2196 f_8246(t0,t1,t2);}
2197 
2198 C_noret_decl(trf_8515)
2199 static void C_ccall trf_8515(C_word c,C_word *av) C_noret;
trf_8515(C_word c,C_word * av)2200 static void C_ccall trf_8515(C_word c,C_word *av){
2201 C_word t0=av[3];
2202 C_word t1=av[2];
2203 C_word t2=av[1];
2204 C_word t3=av[0];
2205 f_8515(t0,t1,t2,t3);}
2206 
2207 C_noret_decl(trf_8597)
2208 static void C_ccall trf_8597(C_word c,C_word *av) C_noret;
trf_8597(C_word c,C_word * av)2209 static void C_ccall trf_8597(C_word c,C_word *av){
2210 C_word t0=av[3];
2211 C_word t1=av[2];
2212 C_word t2=av[1];
2213 C_word t3=av[0];
2214 f_8597(t0,t1,t2,t3);}
2215 
2216 C_noret_decl(trf_8676)
2217 static void C_ccall trf_8676(C_word c,C_word *av) C_noret;
trf_8676(C_word c,C_word * av)2218 static void C_ccall trf_8676(C_word c,C_word *av){
2219 C_word t0=av[2];
2220 C_word t1=av[1];
2221 C_word t2=av[0];
2222 f_8676(t0,t1,t2);}
2223 
2224 C_noret_decl(trf_8729)
2225 static void C_ccall trf_8729(C_word c,C_word *av) C_noret;
trf_8729(C_word c,C_word * av)2226 static void C_ccall trf_8729(C_word c,C_word *av){
2227 C_word t0=av[2];
2228 C_word t1=av[1];
2229 C_word t2=av[0];
2230 f_8729(t0,t1,t2);}
2231 
2232 C_noret_decl(trf_8745)
2233 static void C_ccall trf_8745(C_word c,C_word *av) C_noret;
trf_8745(C_word c,C_word * av)2234 static void C_ccall trf_8745(C_word c,C_word *av){
2235 C_word t0=av[2];
2236 C_word t1=av[1];
2237 C_word t2=av[0];
2238 f_8745(t0,t1,t2);}
2239 
2240 C_noret_decl(trf_8842)
2241 static void C_ccall trf_8842(C_word c,C_word *av) C_noret;
trf_8842(C_word c,C_word * av)2242 static void C_ccall trf_8842(C_word c,C_word *av){
2243 C_word t0=av[2];
2244 C_word t1=av[1];
2245 C_word t2=av[0];
2246 f_8842(t0,t1,t2);}
2247 
2248 C_noret_decl(trf_8935)
2249 static void C_ccall trf_8935(C_word c,C_word *av) C_noret;
trf_8935(C_word c,C_word * av)2250 static void C_ccall trf_8935(C_word c,C_word *av){
2251 C_word t0=av[4];
2252 C_word t1=av[3];
2253 C_word t2=av[2];
2254 C_word t3=av[1];
2255 C_word t4=av[0];
2256 f_8935(t0,t1,t2,t3,t4);}
2257 
2258 C_noret_decl(trf_8947)
2259 static void C_ccall trf_8947(C_word c,C_word *av) C_noret;
trf_8947(C_word c,C_word * av)2260 static void C_ccall trf_8947(C_word c,C_word *av){
2261 C_word t0=av[2];
2262 C_word t1=av[1];
2263 C_word t2=av[0];
2264 f_8947(t0,t1,t2);}
2265 
2266 C_noret_decl(trf_9052)
2267 static void C_ccall trf_9052(C_word c,C_word *av) C_noret;
trf_9052(C_word c,C_word * av)2268 static void C_ccall trf_9052(C_word c,C_word *av){
2269 C_word t0=av[1];
2270 C_word t1=av[0];
2271 f_9052(t0,t1);}
2272 
2273 C_noret_decl(trf_9057)
2274 static void C_ccall trf_9057(C_word c,C_word *av) C_noret;
trf_9057(C_word c,C_word * av)2275 static void C_ccall trf_9057(C_word c,C_word *av){
2276 C_word t0=av[3];
2277 C_word t1=av[2];
2278 C_word t2=av[1];
2279 C_word t3=av[0];
2280 f_9057(t0,t1,t2,t3);}
2281 
2282 C_noret_decl(trf_9076)
2283 static void C_ccall trf_9076(C_word c,C_word *av) C_noret;
trf_9076(C_word c,C_word * av)2284 static void C_ccall trf_9076(C_word c,C_word *av){
2285 C_word t0=av[1];
2286 C_word t1=av[0];
2287 f_9076(t0,t1);}
2288 
2289 C_noret_decl(trf_9081)
2290 static void C_ccall trf_9081(C_word c,C_word *av) C_noret;
trf_9081(C_word c,C_word * av)2291 static void C_ccall trf_9081(C_word c,C_word *av){
2292 C_word t0=av[3];
2293 C_word t1=av[2];
2294 C_word t2=av[1];
2295 C_word t3=av[0];
2296 f_9081(t0,t1,t2,t3);}
2297 
2298 C_noret_decl(trf_9364)
2299 static void C_ccall trf_9364(C_word c,C_word *av) C_noret;
trf_9364(C_word c,C_word * av)2300 static void C_ccall trf_9364(C_word c,C_word *av){
2301 C_word t0=av[2];
2302 C_word t1=av[1];
2303 C_word t2=av[0];
2304 f_9364(t0,t1,t2);}
2305 
2306 C_noret_decl(trf_9373)
2307 static void C_ccall trf_9373(C_word c,C_word *av) C_noret;
trf_9373(C_word c,C_word * av)2308 static void C_ccall trf_9373(C_word c,C_word *av){
2309 C_word t0=av[2];
2310 C_word t1=av[1];
2311 C_word t2=av[0];
2312 f_9373(t0,t1,t2);}
2313 
2314 C_noret_decl(trf_9567)
2315 static void C_ccall trf_9567(C_word c,C_word *av) C_noret;
trf_9567(C_word c,C_word * av)2316 static void C_ccall trf_9567(C_word c,C_word *av){
2317 C_word t0=av[3];
2318 C_word t1=av[2];
2319 C_word t2=av[1];
2320 C_word t3=av[0];
2321 f_9567(t0,t1,t2,t3);}
2322 
2323 C_noret_decl(trf_9619)
2324 static void C_ccall trf_9619(C_word c,C_word *av) C_noret;
trf_9619(C_word c,C_word * av)2325 static void C_ccall trf_9619(C_word c,C_word *av){
2326 C_word t0=av[1];
2327 C_word t1=av[0];
2328 f_9619(t0,t1);}
2329 
2330 C_noret_decl(trf_9627)
2331 static void C_ccall trf_9627(C_word c,C_word *av) C_noret;
trf_9627(C_word c,C_word * av)2332 static void C_ccall trf_9627(C_word c,C_word *av){
2333 C_word t0=av[1];
2334 C_word t1=av[0];
2335 f_9627(t0,t1);}
2336 
2337 C_noret_decl(trf_9752)
2338 static void C_ccall trf_9752(C_word c,C_word *av) C_noret;
trf_9752(C_word c,C_word * av)2339 static void C_ccall trf_9752(C_word c,C_word *av){
2340 C_word t0=av[2];
2341 C_word t1=av[1];
2342 C_word t2=av[0];
2343 f_9752(t0,t1,t2);}
2344 
2345 /* k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in ... */
f_10002(C_word c,C_word * av)2346 static void C_ccall f_10002(C_word c,C_word *av){
2347 C_word tmp;
2348 C_word t0=av[0];
2349 C_word t1=av[1];
2350 C_word t2;
2351 C_word t3;
2352 C_word t4;
2353 C_word t5;
2354 C_word *a;
2355 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
2356 C_save_and_reclaim((void *)f_10002,c,av);}
2357 a=C_alloc(10);
2358 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10005,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
2359 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11856,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2360 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11858,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp);
2361 /* expand.scm:1474: ##sys#er-transformer */
2362 t5=*((C_word*)lf[185]+1);{
2363 C_word *av2;
2364 if(c >= 3) {
2365   av2=av;
2366 } else {
2367   av2=C_alloc(3);
2368 }
2369 av2[0]=t5;
2370 av2[1]=t3;
2371 av2[2]=t4;
2372 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
2373 
2374 /* k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in ... */
f_10005(C_word c,C_word * av)2375 static void C_ccall f_10005(C_word c,C_word *av){
2376 C_word tmp;
2377 C_word t0=av[0];
2378 C_word t1=av[1];
2379 C_word t2;
2380 C_word t3;
2381 C_word t4;
2382 C_word t5;
2383 C_word *a;
2384 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
2385 C_save_and_reclaim((void *)f_10005,c,av);}
2386 a=C_alloc(10);
2387 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10008,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
2388 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11660,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2389 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11662,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp);
2390 /* expand.scm:1487: ##sys#er-transformer */
2391 t5=*((C_word*)lf[185]+1);{
2392 C_word *av2;
2393 if(c >= 3) {
2394   av2=av;
2395 } else {
2396   av2=C_alloc(3);
2397 }
2398 av2[0]=t5;
2399 av2[1]=t3;
2400 av2[2]=t4;
2401 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
2402 
2403 /* k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in ... */
f_10008(C_word c,C_word * av)2404 static void C_ccall f_10008(C_word c,C_word *av){
2405 C_word tmp;
2406 C_word t0=av[0];
2407 C_word t1=av[1];
2408 C_word t2;
2409 C_word t3;
2410 C_word t4;
2411 C_word t5;
2412 C_word *a;
2413 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
2414 C_save_and_reclaim((void *)f_10008,c,av);}
2415 a=C_alloc(10);
2416 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10011,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
2417 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11367,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2418 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11369,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp);
2419 /* expand.scm:1516: ##sys#er-transformer */
2420 t5=*((C_word*)lf[185]+1);{
2421 C_word *av2;
2422 if(c >= 3) {
2423   av2=av;
2424 } else {
2425   av2=C_alloc(3);
2426 }
2427 av2[0]=t5;
2428 av2[1]=t3;
2429 av2[2]=t4;
2430 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
2431 
2432 /* k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_10011(C_word c,C_word * av)2433 static void C_ccall f_10011(C_word c,C_word *av){
2434 C_word tmp;
2435 C_word t0=av[0];
2436 C_word t1=av[1];
2437 C_word t2;
2438 C_word t3;
2439 C_word t4;
2440 C_word t5;
2441 C_word *a;
2442 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
2443 C_save_and_reclaim((void *)f_10011,c,av);}
2444 a=C_alloc(10);
2445 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
2446 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11334,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2447 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11336,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp);
2448 /* expand.scm:1568: ##sys#er-transformer */
2449 t5=*((C_word*)lf[185]+1);{
2450 C_word *av2;
2451 if(c >= 3) {
2452   av2=av;
2453 } else {
2454   av2=C_alloc(3);
2455 }
2456 av2[0]=t5;
2457 av2[1]=t3;
2458 av2[2]=t4;
2459 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
2460 
2461 /* k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_10014(C_word c,C_word * av)2462 static void C_ccall f_10014(C_word c,C_word *av){
2463 C_word tmp;
2464 C_word t0=av[0];
2465 C_word t1=av[1];
2466 C_word t2;
2467 C_word t3;
2468 C_word t4;
2469 C_word t5;
2470 C_word *a;
2471 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
2472 C_save_and_reclaim((void *)f_10014,c,av);}
2473 a=C_alloc(10);
2474 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10017,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
2475 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11298,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2476 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11300,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp);
2477 /* synrules.scm:46: ##sys#er-transformer */
2478 t5=*((C_word*)lf[185]+1);{
2479 C_word *av2;
2480 if(c >= 3) {
2481   av2=av;
2482 } else {
2483   av2=C_alloc(3);
2484 }
2485 av2[0]=t5;
2486 av2[1]=t3;
2487 av2[2]=t4;
2488 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
2489 
2490 /* k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_10017(C_word c,C_word * av)2491 static void C_ccall f_10017(C_word c,C_word *av){
2492 C_word tmp;
2493 C_word t0=av[0];
2494 C_word t1=av[1];
2495 C_word t2;
2496 C_word t3;
2497 C_word t4;
2498 C_word t5;
2499 C_word t6;
2500 C_word t7;
2501 C_word *a;
2502 if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){
2503 C_save_and_reclaim((void *)f_10017,c,av);}
2504 a=C_alloc(20);
2505 t2=C_a_i_provide(&a,1,lf[189]);
2506 t3=C_mutate((C_word*)lf[47]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10019,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp));
2507 t4=C_mutate((C_word*)lf[191]+1 /* (set! chicken.internal.syntax-rules#drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10025,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp));
2508 t5=C_mutate((C_word*)lf[192]+1 /* (set! chicken.internal.syntax-rules#take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10061,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp));
2509 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11278,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
2510 /* expand.scm:1579: chicken.internal#macro-subset */
2511 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[196]+1));
2512 C_word *av2;
2513 if(c >= 3) {
2514   av2=av;
2515 } else {
2516   av2=C_alloc(3);
2517 }
2518 av2[0]=*((C_word*)lf[196]+1);
2519 av2[1]=t6;
2520 av2[2]=((C_word*)t0)[3];
2521 tp(3,av2);}}
2522 
2523 /* chicken.internal.syntax-rules#syntax-rules-mismatch in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_10019(C_word c,C_word * av)2524 static void C_ccall f_10019(C_word c,C_word *av){
2525 C_word tmp;
2526 C_word t0=av[0];
2527 C_word t1=av[1];
2528 C_word t2=av[2];
2529 C_word t3;
2530 C_word *a;
2531 if(c!=3) C_bad_argc_2(c,3,t0);
2532 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
2533 C_save_and_reclaim((void *)f_10019,c,av);}
2534 /* synrules.scm:68: ##sys#syntax-error-hook */
2535 t3=*((C_word*)lf[43]+1);{
2536 C_word *av2;
2537 if(c >= 4) {
2538   av2=av;
2539 } else {
2540   av2=C_alloc(4);
2541 }
2542 av2[0]=t3;
2543 av2[1]=t1;
2544 av2[2]=lf[190];
2545 av2[3]=t2;
2546 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
2547 
2548 /* chicken.internal.syntax-rules#drop-right in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_10025(C_word c,C_word * av)2549 static void C_ccall f_10025(C_word c,C_word *av){
2550 C_word tmp;
2551 C_word t0=av[0];
2552 C_word t1=av[1];
2553 C_word t2=av[2];
2554 C_word t3=av[3];
2555 C_word t4;
2556 C_word t5;
2557 C_word t6;
2558 C_word t7;
2559 C_word t8;
2560 C_word *a;
2561 if(c!=4) C_bad_argc_2(c,4,t0);
2562 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
2563 C_save_and_reclaim((void *)f_10025,c,av);}
2564 a=C_alloc(7);
2565 t4=C_i_length(t2);
2566 t5=C_SCHEME_UNDEFINED;
2567 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
2568 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10035,a[2]=t3,a[3]=t6,a[4]=((C_word)li102),tmp=(C_word)a,a+=5,tmp));
2569 t8=((C_word*)t6)[1];
2570 f_10035(t8,t1,t4,t2);}
2571 
2572 /* loop in chicken.internal.syntax-rules#drop-right in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_10035(C_word t0,C_word t1,C_word t2,C_word t3)2573 static void C_fcall f_10035(C_word t0,C_word t1,C_word t2,C_word t3){
2574 C_word tmp;
2575 C_word t4;
2576 C_word t5;
2577 C_word t6;
2578 C_word t7;
2579 C_word t8;
2580 C_word t9;
2581 C_word *a;
2582 loop:
2583 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
2584 C_save_and_reclaim_args((void *)trf_10035,4,t0,t1,t2,t3);}
2585 a=C_alloc(4);
2586 if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[2]))){
2587 t4=C_i_car(t3);
2588 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10053,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
2589 /* synrules.scm:77: loop */
2590 t7=t5;
2591 t8=C_fixnum_difference(t2,C_fix(1));
2592 t9=C_u_i_cdr(t3);
2593 t1=t7;
2594 t2=t8;
2595 t3=t9;
2596 goto loop;}
2597 else{
2598 t4=t1;{
2599 C_word av2[2];
2600 av2[0]=t4;
2601 av2[1]=C_SCHEME_END_OF_LIST;
2602 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
2603 
2604 /* k10051 in loop in chicken.internal.syntax-rules#drop-right in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_10053(C_word c,C_word * av)2605 static void C_ccall f_10053(C_word c,C_word *av){
2606 C_word tmp;
2607 C_word t0=av[0];
2608 C_word t1=av[1];
2609 C_word t2;
2610 C_word *a;
2611 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
2612 C_save_and_reclaim((void *)f_10053,c,av);}
2613 a=C_alloc(3);
2614 t2=((C_word*)t0)[2];{
2615 C_word *av2=av;
2616 av2[0]=t2;
2617 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
2618 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
2619 
2620 /* chicken.internal.syntax-rules#take-right in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_10061(C_word c,C_word * av)2621 static void C_ccall f_10061(C_word c,C_word *av){
2622 C_word tmp;
2623 C_word t0=av[0];
2624 C_word t1=av[1];
2625 C_word t2=av[2];
2626 C_word t3=av[3];
2627 C_word t4;
2628 C_word t5;
2629 C_word t6;
2630 C_word *a;
2631 if(c!=4) C_bad_argc_2(c,4,t0);
2632 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
2633 C_save_and_reclaim((void *)f_10061,c,av);}
2634 a=C_alloc(4);
2635 t4=C_i_length(t2);
2636 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10071,a[2]=t3,a[3]=((C_word)li104),tmp=(C_word)a,a+=4,tmp);
2637 t6=t1;{
2638 C_word *av2=av;
2639 av2[0]=t6;
2640 av2[1]=(
2641   f_10071(t5,t4,t2)
2642 );
2643 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
2644 
2645 /* loop in chicken.internal.syntax-rules#take-right in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_10071(C_word t0,C_word t1,C_word t2)2646 static C_word C_fcall f_10071(C_word t0,C_word t1,C_word t2){
2647 C_word tmp;
2648 C_word t3;
2649 C_word t4;
2650 C_word t5;
2651 C_stack_overflow_check;
2652 loop:{}
2653 if(C_truep(C_fixnum_greaterp(t1,((C_word*)t0)[2]))){
2654 t4=C_fixnum_difference(t1,C_fix(1));
2655 t5=C_i_cdr(t2);
2656 t1=t4;
2657 t2=t5;
2658 goto loop;}
2659 else{
2660 return(t2);}}
2661 
2662 /* k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_10098(C_word c,C_word * av)2663 static void C_ccall f_10098(C_word c,C_word *av){
2664 C_word tmp;
2665 C_word t0=av[0];
2666 C_word t1=av[1];
2667 C_word t2;
2668 C_word t3;
2669 C_word t4;
2670 C_word t5;
2671 C_word t6;
2672 C_word t7;
2673 C_word t8;
2674 C_word t9;
2675 C_word t10;
2676 C_word t11;
2677 C_word t12;
2678 C_word t13;
2679 C_word *a;
2680 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2681 C_save_and_reclaim((void *)f_10098,c,av);}
2682 a=C_alloc(56);
2683 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2684 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[199]);
2685 t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[200]);
2686 t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,lf[201]);
2687 t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,lf[202]);
2688 t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,lf[203]);
2689 t8=C_mutate(((C_word *)((C_word*)t0)[8])+1,lf[204]);
2690 t9=C_mutate(((C_word *)((C_word*)t0)[9])+1,lf[205]);
2691 t10=C_mutate(((C_word *)((C_word*)t0)[10])+1,lf[206]);
2692 t11=C_mutate(((C_word *)((C_word*)t0)[11])+1,lf[207]);
2693 t12=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10113,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[15],a[6]=((C_word*)t0)[16],a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[18],a[9]=((C_word*)t0)[19],a[10]=((C_word*)t0)[20],a[11]=((C_word*)t0)[21],a[12]=((C_word*)t0)[22],a[13]=((C_word*)t0)[23],a[14]=((C_word*)t0)[24],a[15]=((C_word*)t0)[25],a[16]=((C_word*)t0)[26],a[17]=((C_word*)t0)[27],a[18]=((C_word*)t0)[28],a[19]=((C_word*)t0)[29],a[20]=((C_word*)t0)[30],a[21]=((C_word*)t0)[31],a[22]=((C_word*)t0)[32],a[23]=((C_word*)t0)[33],a[24]=((C_word*)t0)[34],a[25]=((C_word*)t0)[35],a[26]=((C_word*)t0)[36],a[27]=((C_word*)t0)[37],a[28]=((C_word*)t0)[38],a[29]=((C_word*)t0)[39],a[30]=((C_word*)t0)[4],a[31]=((C_word*)t0)[40],a[32]=((C_word*)t0)[2],a[33]=((C_word*)t0)[41],a[34]=((C_word*)t0)[42],a[35]=((C_word*)t0)[43],a[36]=((C_word*)t0)[44],a[37]=((C_word*)t0)[45],a[38]=((C_word*)t0)[46],a[39]=((C_word*)t0)[3],a[40]=((C_word*)t0)[6],a[41]=((C_word*)t0)[7],a[42]=((C_word*)t0)[47],a[43]=((C_word*)t0)[5],a[44]=((C_word*)t0)[9],a[45]=((C_word*)t0)[10],a[46]=((C_word*)t0)[11],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[8],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2694 /* synrules.scm:105: r */
2695 t13=((C_word*)t0)[54];{
2696 C_word *av2;
2697 if(c >= 3) {
2698   av2=av;
2699 } else {
2700   av2=C_alloc(3);
2701 }
2702 av2[0]=t13;
2703 av2[1]=t12;
2704 av2[2]=lf[234];
2705 ((C_proc)C_fast_retrieve_proc(t13))(3,av2);}}
2706 
2707 /* k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_10113(C_word c,C_word * av)2708 static void C_ccall f_10113(C_word c,C_word *av){
2709 C_word tmp;
2710 C_word t0=av[0];
2711 C_word t1=av[1];
2712 C_word t2;
2713 C_word t3;
2714 C_word t4;
2715 C_word *a;
2716 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2717 C_save_and_reclaim((void *)f_10113,c,av);}
2718 a=C_alloc(56);
2719 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2720 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10117,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2721 /* synrules.scm:106: r */
2722 t4=((C_word*)t0)[54];{
2723 C_word *av2;
2724 if(c >= 3) {
2725   av2=av;
2726 } else {
2727   av2=C_alloc(3);
2728 }
2729 av2[0]=t4;
2730 av2[1]=t3;
2731 av2[2]=lf[233];
2732 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
2733 
2734 /* k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_10117(C_word c,C_word * av)2735 static void C_ccall f_10117(C_word c,C_word *av){
2736 C_word tmp;
2737 C_word t0=av[0];
2738 C_word t1=av[1];
2739 C_word t2;
2740 C_word t3;
2741 C_word t4;
2742 C_word t5;
2743 C_word *a;
2744 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2745 C_save_and_reclaim((void *)f_10117,c,av);}
2746 a=C_alloc(56);
2747 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2748 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[208]);
2749 t4=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10122,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],a[19]=((C_word*)t0)[21],a[20]=((C_word*)t0)[22],a[21]=((C_word*)t0)[23],a[22]=((C_word*)t0)[24],a[23]=((C_word*)t0)[25],a[24]=((C_word*)t0)[26],a[25]=((C_word*)t0)[27],a[26]=((C_word*)t0)[28],a[27]=((C_word*)t0)[29],a[28]=((C_word*)t0)[30],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[44],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[3],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2750 /* synrules.scm:108: r */
2751 t5=((C_word*)t0)[54];{
2752 C_word *av2;
2753 if(c >= 3) {
2754   av2=av;
2755 } else {
2756   av2=C_alloc(3);
2757 }
2758 av2[0]=t5;
2759 av2[1]=t4;
2760 av2[2]=lf[232];
2761 ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
2762 
2763 /* k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_10122(C_word c,C_word * av)2764 static void C_ccall f_10122(C_word c,C_word *av){
2765 C_word tmp;
2766 C_word t0=av[0];
2767 C_word t1=av[1];
2768 C_word t2;
2769 C_word t3;
2770 C_word t4;
2771 C_word t5;
2772 C_word t6;
2773 C_word *a;
2774 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2775 C_save_and_reclaim((void *)f_10122,c,av);}
2776 a=C_alloc(56);
2777 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2778 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[209]);
2779 t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[210]);
2780 t5=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10128,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=((C_word*)t0)[19],a[17]=((C_word*)t0)[20],a[18]=((C_word*)t0)[21],a[19]=((C_word*)t0)[22],a[20]=((C_word*)t0)[23],a[21]=((C_word*)t0)[24],a[22]=((C_word*)t0)[25],a[23]=((C_word*)t0)[26],a[24]=((C_word*)t0)[27],a[25]=((C_word*)t0)[28],a[26]=((C_word*)t0)[29],a[27]=((C_word*)t0)[30],a[28]=((C_word*)t0)[2],a[29]=((C_word*)t0)[31],a[30]=((C_word*)t0)[32],a[31]=((C_word*)t0)[33],a[32]=((C_word*)t0)[34],a[33]=((C_word*)t0)[35],a[34]=((C_word*)t0)[36],a[35]=((C_word*)t0)[37],a[36]=((C_word*)t0)[38],a[37]=((C_word*)t0)[39],a[38]=((C_word*)t0)[40],a[39]=((C_word*)t0)[3],a[40]=((C_word*)t0)[4],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2781 /* synrules.scm:111: r */
2782 t6=((C_word*)t0)[54];{
2783 C_word *av2;
2784 if(c >= 3) {
2785   av2=av;
2786 } else {
2787   av2=C_alloc(3);
2788 }
2789 av2[0]=t6;
2790 av2[1]=t5;
2791 av2[2]=lf[231];
2792 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
2793 
2794 /* k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in ... */
f_10128(C_word c,C_word * av)2795 static void C_ccall f_10128(C_word c,C_word *av){
2796 C_word tmp;
2797 C_word t0=av[0];
2798 C_word t1=av[1];
2799 C_word t2;
2800 C_word t3;
2801 C_word t4;
2802 C_word *a;
2803 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2804 C_save_and_reclaim((void *)f_10128,c,av);}
2805 a=C_alloc(56);
2806 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2807 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10132,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[2],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2808 /* synrules.scm:112: r */
2809 t4=((C_word*)t0)[54];{
2810 C_word *av2;
2811 if(c >= 3) {
2812   av2=av;
2813 } else {
2814   av2=C_alloc(3);
2815 }
2816 av2[0]=t4;
2817 av2[1]=t3;
2818 av2[2]=lf[230];
2819 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
2820 
2821 /* k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in ... */
f_10132(C_word c,C_word * av)2822 static void C_ccall f_10132(C_word c,C_word *av){
2823 C_word tmp;
2824 C_word t0=av[0];
2825 C_word t1=av[1];
2826 C_word t2;
2827 C_word t3;
2828 C_word t4;
2829 C_word *a;
2830 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2831 C_save_and_reclaim((void *)f_10132,c,av);}
2832 a=C_alloc(56);
2833 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2834 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10136,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[2],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2835 /* synrules.scm:113: r */
2836 t4=((C_word*)t0)[54];{
2837 C_word *av2;
2838 if(c >= 3) {
2839   av2=av;
2840 } else {
2841   av2=C_alloc(3);
2842 }
2843 av2[0]=t4;
2844 av2[1]=t3;
2845 av2[2]=lf[229];
2846 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
2847 
2848 /* k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in ... */
f_10136(C_word c,C_word * av)2849 static void C_ccall f_10136(C_word c,C_word *av){
2850 C_word tmp;
2851 C_word t0=av[0];
2852 C_word t1=av[1];
2853 C_word t2;
2854 C_word t3;
2855 C_word t4;
2856 C_word *a;
2857 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2858 C_save_and_reclaim((void *)f_10136,c,av);}
2859 a=C_alloc(56);
2860 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2861 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10140,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[2],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2862 /* synrules.scm:114: r */
2863 t4=((C_word*)t0)[54];{
2864 C_word *av2;
2865 if(c >= 3) {
2866   av2=av;
2867 } else {
2868   av2=C_alloc(3);
2869 }
2870 av2[0]=t4;
2871 av2[1]=t3;
2872 av2[2]=lf[228];
2873 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
2874 
2875 /* k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in ... */
f_10140(C_word c,C_word * av)2876 static void C_ccall f_10140(C_word c,C_word *av){
2877 C_word tmp;
2878 C_word t0=av[0];
2879 C_word t1=av[1];
2880 C_word t2;
2881 C_word t3;
2882 C_word t4;
2883 C_word *a;
2884 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2885 C_save_and_reclaim((void *)f_10140,c,av);}
2886 a=C_alloc(56);
2887 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2888 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10144,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[2],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2889 /* synrules.scm:115: r */
2890 t4=((C_word*)t0)[54];{
2891 C_word *av2;
2892 if(c >= 3) {
2893   av2=av;
2894 } else {
2895   av2=C_alloc(3);
2896 }
2897 av2[0]=t4;
2898 av2[1]=t3;
2899 av2[2]=lf[57];
2900 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
2901 
2902 /* k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in ... */
f_10144(C_word c,C_word * av)2903 static void C_ccall f_10144(C_word c,C_word *av){
2904 C_word tmp;
2905 C_word t0=av[0];
2906 C_word t1=av[1];
2907 C_word t2;
2908 C_word t3;
2909 C_word t4;
2910 C_word *a;
2911 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2912 C_save_and_reclaim((void *)f_10144,c,av);}
2913 a=C_alloc(56);
2914 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2915 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10148,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[2],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2916 /* synrules.scm:116: r */
2917 t4=((C_word*)t0)[54];{
2918 C_word *av2;
2919 if(c >= 3) {
2920   av2=av;
2921 } else {
2922   av2=C_alloc(3);
2923 }
2924 av2[0]=t4;
2925 av2[1]=t3;
2926 av2[2]=lf[89];
2927 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
2928 
2929 /* k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in ... */
f_10148(C_word c,C_word * av)2930 static void C_ccall f_10148(C_word c,C_word *av){
2931 C_word tmp;
2932 C_word t0=av[0];
2933 C_word t1=av[1];
2934 C_word t2;
2935 C_word t3;
2936 C_word t4;
2937 C_word t5;
2938 C_word *a;
2939 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2940 C_save_and_reclaim((void *)f_10148,c,av);}
2941 a=C_alloc(56);
2942 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2943 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[211]);
2944 t4=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10153,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],a[19]=((C_word*)t0)[21],a[20]=((C_word*)t0)[22],a[21]=((C_word*)t0)[23],a[22]=((C_word*)t0)[24],a[23]=((C_word*)t0)[25],a[24]=((C_word*)t0)[26],a[25]=((C_word*)t0)[27],a[26]=((C_word*)t0)[2],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[3],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2945 /* synrules.scm:118: r */
2946 t5=((C_word*)t0)[54];{
2947 C_word *av2;
2948 if(c >= 3) {
2949   av2=av;
2950 } else {
2951   av2=C_alloc(3);
2952 }
2953 av2[0]=t5;
2954 av2[1]=t4;
2955 av2[2]=lf[227];
2956 ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
2957 
2958 /* k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in ... */
f_10153(C_word c,C_word * av)2959 static void C_ccall f_10153(C_word c,C_word *av){
2960 C_word tmp;
2961 C_word t0=av[0];
2962 C_word t1=av[1];
2963 C_word t2;
2964 C_word t3;
2965 C_word t4;
2966 C_word t5;
2967 C_word t6;
2968 C_word *a;
2969 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2970 C_save_and_reclaim((void *)f_10153,c,av);}
2971 a=C_alloc(56);
2972 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
2973 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[212]);
2974 t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[213]);
2975 t5=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10160,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=((C_word*)t0)[19],a[17]=((C_word*)t0)[20],a[18]=((C_word*)t0)[21],a[19]=((C_word*)t0)[22],a[20]=((C_word*)t0)[23],a[21]=((C_word*)t0)[24],a[22]=((C_word*)t0)[25],a[23]=((C_word*)t0)[26],a[24]=((C_word*)t0)[27],a[25]=((C_word*)t0)[28],a[26]=((C_word*)t0)[29],a[27]=((C_word*)t0)[30],a[28]=((C_word*)t0)[31],a[29]=((C_word*)t0)[32],a[30]=((C_word*)t0)[33],a[31]=((C_word*)t0)[34],a[32]=((C_word*)t0)[35],a[33]=((C_word*)t0)[36],a[34]=((C_word*)t0)[37],a[35]=((C_word*)t0)[38],a[36]=((C_word*)t0)[39],a[37]=((C_word*)t0)[40],a[38]=((C_word*)t0)[41],a[39]=((C_word*)t0)[42],a[40]=((C_word*)t0)[43],a[41]=((C_word*)t0)[44],a[42]=((C_word*)t0)[2],a[43]=((C_word*)t0)[45],a[44]=((C_word*)t0)[3],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[4],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
2976 /* synrules.scm:122: r */
2977 t6=((C_word*)t0)[54];{
2978 C_word *av2;
2979 if(c >= 3) {
2980   av2=av;
2981 } else {
2982   av2=C_alloc(3);
2983 }
2984 av2[0]=t6;
2985 av2[1]=t5;
2986 av2[2]=lf[226];
2987 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
2988 
2989 /* k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in ... */
f_10160(C_word c,C_word * av)2990 static void C_ccall f_10160(C_word c,C_word *av){
2991 C_word tmp;
2992 C_word t0=av[0];
2993 C_word t1=av[1];
2994 C_word t2;
2995 C_word t3;
2996 C_word t4;
2997 C_word *a;
2998 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
2999 C_save_and_reclaim((void *)f_10160,c,av);}
3000 a=C_alloc(56);
3001 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[214]);
3002 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10165,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
3003 /* synrules.scm:124: r */
3004 t4=((C_word*)t0)[54];{
3005 C_word *av2;
3006 if(c >= 3) {
3007   av2=av;
3008 } else {
3009   av2=C_alloc(3);
3010 }
3011 av2[0]=t4;
3012 av2[1]=t3;
3013 av2[2]=lf[217];
3014 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3015 
3016 /* k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in ... */
f_10165(C_word c,C_word * av)3017 static void C_ccall f_10165(C_word c,C_word *av){
3018 C_word tmp;
3019 C_word t0=av[0];
3020 C_word t1=av[1];
3021 C_word t2;
3022 C_word t3;
3023 C_word t4;
3024 C_word *a;
3025 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
3026 C_save_and_reclaim((void *)f_10165,c,av);}
3027 a=C_alloc(56);
3028 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3029 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10169,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[44],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[2],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
3030 /* synrules.scm:125: r */
3031 t4=((C_word*)t0)[54];{
3032 C_word *av2;
3033 if(c >= 3) {
3034   av2=av;
3035 } else {
3036   av2=C_alloc(3);
3037 }
3038 av2[0]=t4;
3039 av2[1]=t3;
3040 av2[2]=lf[225];
3041 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3042 
3043 /* k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in ... */
f_10169(C_word c,C_word * av)3044 static void C_ccall f_10169(C_word c,C_word *av){
3045 C_word tmp;
3046 C_word t0=av[0];
3047 C_word t1=av[1];
3048 C_word t2;
3049 C_word t3;
3050 C_word t4;
3051 C_word *a;
3052 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
3053 C_save_and_reclaim((void *)f_10169,c,av);}
3054 a=C_alloc(56);
3055 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3056 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10173,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
3057 /* synrules.scm:126: r */
3058 t4=((C_word*)t0)[54];{
3059 C_word *av2;
3060 if(c >= 3) {
3061   av2=av;
3062 } else {
3063   av2=C_alloc(3);
3064 }
3065 av2[0]=t4;
3066 av2[1]=t3;
3067 av2[2]=lf[224];
3068 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3069 
3070 /* k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in ... */
f_10173(C_word c,C_word * av)3071 static void C_ccall f_10173(C_word c,C_word *av){
3072 C_word tmp;
3073 C_word t0=av[0];
3074 C_word t1=av[1];
3075 C_word t2;
3076 C_word t3;
3077 C_word t4;
3078 C_word *a;
3079 if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){
3080 C_save_and_reclaim((void *)f_10173,c,av);}
3081 a=C_alloc(56);
3082 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3083 t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10177,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[2],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp);
3084 /* synrules.scm:127: r */
3085 t4=((C_word*)t0)[54];{
3086 C_word *av2;
3087 if(c >= 3) {
3088   av2=av;
3089 } else {
3090   av2=C_alloc(3);
3091 }
3092 av2[0]=t4;
3093 av2[1]=t3;
3094 av2[2]=lf[223];
3095 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3096 
3097 /* k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in ... */
f_10177(C_word c,C_word * av)3098 static void C_ccall f_10177(C_word c,C_word *av){
3099 C_word tmp;
3100 C_word t0=av[0];
3101 C_word t1=av[1];
3102 C_word t2;
3103 C_word t3;
3104 C_word t4;
3105 C_word *a;
3106 if(C_unlikely(!C_demand(C_calculate_demand(55,c,2)))){
3107 C_save_and_reclaim((void *)f_10177,c,av);}
3108 a=C_alloc(55);
3109 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3110 t3=(*a=C_CLOSURE_TYPE|54,a[1]=(C_word)f_10182,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[2],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],tmp=(C_word)a,a+=55,tmp);
3111 /* synrules.scm:129: r */
3112 t4=((C_word*)t0)[54];{
3113 C_word *av2;
3114 if(c >= 3) {
3115   av2=av;
3116 } else {
3117   av2=C_alloc(3);
3118 }
3119 av2[0]=t4;
3120 av2[1]=t3;
3121 av2[2]=((C_word*)t0)[55];
3122 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3123 
3124 /* k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in k10009 in ... */
f_10182(C_word c,C_word * av)3125 static void C_ccall f_10182(C_word c,C_word *av){
3126 C_word tmp;
3127 C_word t0=av[0];
3128 C_word t1=av[1];
3129 C_word t2;
3130 C_word t3;
3131 C_word t4;
3132 C_word *a;
3133 if(C_unlikely(!C_demand(C_calculate_demand(55,c,2)))){
3134 C_save_and_reclaim((void *)f_10182,c,av);}
3135 a=C_alloc(55);
3136 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3137 t3=(*a=C_CLOSURE_TYPE|54,a[1]=(C_word)f_10186,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],tmp=(C_word)a,a+=55,tmp);
3138 /* synrules.scm:130: r */
3139 t4=((C_word*)t0)[54];{
3140 C_word *av2;
3141 if(c >= 3) {
3142   av2=av;
3143 } else {
3144   av2=C_alloc(3);
3145 }
3146 av2[0]=t4;
3147 av2[1]=t3;
3148 av2[2]=lf[192];
3149 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3150 
3151 /* k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in k10012 in ... */
f_10186(C_word c,C_word * av)3152 static void C_ccall f_10186(C_word c,C_word *av){
3153 C_word tmp;
3154 C_word t0=av[0];
3155 C_word t1=av[1];
3156 C_word t2;
3157 C_word t3;
3158 C_word t4;
3159 C_word *a;
3160 if(C_unlikely(!C_demand(C_calculate_demand(55,c,2)))){
3161 C_save_and_reclaim((void *)f_10186,c,av);}
3162 a=C_alloc(55);
3163 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3164 t3=(*a=C_CLOSURE_TYPE|54,a[1]=(C_word)f_10190,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[2],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],tmp=(C_word)a,a+=55,tmp);
3165 /* synrules.scm:131: r */
3166 t4=((C_word*)t0)[54];{
3167 C_word *av2;
3168 if(c >= 3) {
3169   av2=av;
3170 } else {
3171   av2=C_alloc(3);
3172 }
3173 av2[0]=t4;
3174 av2[1]=t3;
3175 av2[2]=lf[191];
3176 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3177 
3178 /* k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in a11299 in ... */
f_10190(C_word c,C_word * av)3179 static void C_ccall f_10190(C_word c,C_word *av){
3180 C_word tmp;
3181 C_word t0=av[0];
3182 C_word t1=av[1];
3183 C_word t2;
3184 C_word t3;
3185 C_word t4;
3186 C_word *a;
3187 if(C_unlikely(!C_demand(C_calculate_demand(54,c,2)))){
3188 C_save_and_reclaim((void *)f_10190,c,av);}
3189 a=C_alloc(54);
3190 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3191 t3=(*a=C_CLOSURE_TYPE|53,a[1]=(C_word)f_10194,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[2],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],tmp=(C_word)a,a+=54,tmp);
3192 /* synrules.scm:133: r */
3193 t4=((C_word*)t0)[54];{
3194 C_word *av2;
3195 if(c >= 3) {
3196   av2=av;
3197 } else {
3198   av2=C_alloc(3);
3199 }
3200 av2[0]=t4;
3201 av2[1]=t3;
3202 av2[2]=lf[47];
3203 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3204 
3205 /* k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in k11302 in ... */
f_10194(C_word c,C_word * av)3206 static void C_ccall f_10194(C_word c,C_word *av){
3207 C_word tmp;
3208 C_word t0=av[0];
3209 C_word t1=av[1];
3210 C_word t2;
3211 C_word t3;
3212 C_word t4;
3213 C_word t5;
3214 C_word t6;
3215 C_word t7;
3216 C_word t8;
3217 C_word t9;
3218 C_word t10;
3219 C_word t11;
3220 C_word t12;
3221 C_word t13;
3222 C_word t14;
3223 C_word t15;
3224 C_word t16;
3225 C_word *a;
3226 if(C_unlikely(!C_demand(C_calculate_demand(122,c,6)))){
3227 C_save_and_reclaim((void *)f_10194,c,av);}
3228 a=C_alloc(122);
3229 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
3230 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10196,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li106),tmp=(C_word)a,a+=5,tmp));
3231 t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10202,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[16],a[13]=((C_word)li108),tmp=(C_word)a,a+=14,tmp));
3232 t5=C_mutate(((C_word *)((C_word*)t0)[15])+1,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10296,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[18],a[4]=((C_word*)t0)[19],a[5]=((C_word*)t0)[20],a[6]=((C_word*)t0)[21],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[22],a[9]=((C_word)li110),tmp=(C_word)a,a+=10,tmp));
3233 t6=C_mutate(((C_word *)((C_word*)t0)[22])+1,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10362,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[24],a[6]=((C_word*)t0)[25],a[7]=((C_word*)t0)[26],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[22],a[12]=((C_word*)t0)[27],a[13]=((C_word*)t0)[28],a[14]=((C_word*)t0)[29],a[15]=((C_word*)t0)[30],a[16]=((C_word*)t0)[31],a[17]=((C_word*)t0)[32],a[18]=((C_word)li111),tmp=(C_word)a,a+=19,tmp));
3234 t7=C_mutate(((C_word *)((C_word*)t0)[24])+1,(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10543,a[2]=((C_word*)t0)[33],a[3]=((C_word*)t0)[34],a[4]=((C_word*)t0)[35],a[5]=((C_word*)t0)[36],a[6]=((C_word*)t0)[37],a[7]=((C_word*)t0)[38],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[39],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[40],a[15]=((C_word*)t0)[22],a[16]=((C_word*)t0)[27],a[17]=((C_word)li112),tmp=(C_word)a,a+=18,tmp));
3235 t8=C_mutate(((C_word *)((C_word*)t0)[21])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10670,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[41],a[4]=((C_word*)t0)[42],a[5]=((C_word*)t0)[21],a[6]=((C_word*)t0)[25],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[43],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[27],a[11]=((C_word*)t0)[29],a[12]=((C_word*)t0)[32],a[13]=((C_word)li114),tmp=(C_word)a,a+=14,tmp));
3236 t9=C_mutate(((C_word *)((C_word*)t0)[19])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10810,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[19],a[4]=((C_word*)t0)[44],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[45],a[7]=((C_word*)t0)[46],a[8]=((C_word*)t0)[47],a[9]=((C_word*)t0)[48],a[10]=((C_word*)t0)[49],a[11]=((C_word*)t0)[50],a[12]=((C_word*)t0)[51],a[13]=((C_word)li116),tmp=(C_word)a,a+=14,tmp));
3237 t10=C_mutate(((C_word *)((C_word*)t0)[20])+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11002,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[32],a[5]=((C_word)li117),tmp=(C_word)a,a+=6,tmp));
3238 t11=C_mutate(((C_word *)((C_word*)t0)[46])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11079,a[2]=((C_word*)t0)[46],a[3]=((C_word*)t0)[51],a[4]=((C_word)li118),tmp=(C_word)a,a+=5,tmp));
3239 t12=C_mutate(((C_word *)((C_word*)t0)[32])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11168,a[2]=((C_word*)t0)[51],a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp));
3240 t13=C_mutate(((C_word *)((C_word*)t0)[51])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11196,a[2]=((C_word*)t0)[3],a[3]=((C_word)li120),tmp=(C_word)a,a+=4,tmp));
3241 t14=C_mutate(((C_word *)((C_word*)t0)[47])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11220,a[2]=((C_word*)t0)[47],a[3]=((C_word*)t0)[51],a[4]=((C_word)li121),tmp=(C_word)a,a+=5,tmp));
3242 t15=C_mutate(((C_word *)((C_word*)t0)[44])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11240,a[2]=((C_word*)t0)[3],a[3]=((C_word)li123),tmp=(C_word)a,a+=4,tmp));
3243 /* synrules.scm:345: make-transformer */
3244 t16=((C_word*)((C_word*)t0)[6])[1];{
3245 C_word *av2;
3246 if(c >= 3) {
3247   av2=av;
3248 } else {
3249   av2=C_alloc(3);
3250 }
3251 av2[0]=t16;
3252 av2[1]=((C_word*)t0)[52];
3253 av2[2]=((C_word*)t0)[53];
3254 ((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}
3255 
3256 /* f_10196 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10196(C_word c,C_word * av)3257 static void C_ccall f_10196(C_word c,C_word *av){
3258 C_word tmp;
3259 C_word t0=av[0];
3260 C_word t1=av[1];
3261 C_word t2=av[2];
3262 C_word t3;
3263 C_word *a;
3264 if(c!=3) C_bad_argc_2(c,3,t0);
3265 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
3266 C_save_and_reclaim((void *)f_10196,c,av);}
3267 /* synrules.scm:136: c */
3268 t3=((C_word*)t0)[2];{
3269 C_word *av2;
3270 if(c >= 4) {
3271   av2=av;
3272 } else {
3273   av2=C_alloc(4);
3274 }
3275 av2[0]=t3;
3276 av2[1]=t1;
3277 av2[2]=t2;
3278 av2[3]=((C_word*)((C_word*)t0)[3])[1];
3279 ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
3280 
3281 /* f_10202 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10202(C_word c,C_word * av)3282 static void C_ccall f_10202(C_word c,C_word *av){
3283 C_word tmp;
3284 C_word t0=av[0];
3285 C_word t1=av[1];
3286 C_word t2=av[2];
3287 C_word t3;
3288 C_word t4;
3289 C_word t5;
3290 C_word t6;
3291 C_word t7;
3292 C_word t8;
3293 C_word t9;
3294 C_word t10;
3295 C_word t11;
3296 C_word t12;
3297 C_word t13;
3298 C_word t14;
3299 C_word t15;
3300 C_word t16;
3301 C_word t17;
3302 C_word t18;
3303 C_word *a;
3304 if(c!=3) C_bad_argc_2(c,3,t0);
3305 if(C_unlikely(!C_demand(C_calculate_demand(52,c,3)))){
3306 C_save_and_reclaim((void *)f_10202,c,av);}
3307 a=C_alloc(52);
3308 t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
3309 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[2])[1]);
3310 t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],t4);
3311 t6=C_a_i_list(&a,1,t5);
3312 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10230,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t6,a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
3313 t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
3314 t9=t8;
3315 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
3316 t11=((C_word*)t10)[1];
3317 t12=((C_word*)((C_word*)t0)[10])[1];
3318 t13=C_i_check_list_2(t2,lf[17]);
3319 t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10240,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=t7,tmp=(C_word)a,a+=6,tmp);
3320 t15=C_SCHEME_UNDEFINED;
3321 t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
3322 t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10254,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,a[6]=((C_word)li107),tmp=(C_word)a,a+=7,tmp));
3323 t18=((C_word*)t16)[1];
3324 f_10254(t18,t14,t2);}
3325 
3326 /* k10228 */
f_10230(C_word c,C_word * av)3327 static void C_ccall f_10230(C_word c,C_word *av){
3328 C_word tmp;
3329 C_word t0=av[0];
3330 C_word t1=av[1];
3331 C_word t2;
3332 C_word t3;
3333 C_word t4;
3334 C_word t5;
3335 C_word *a;
3336 if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){
3337 C_save_and_reclaim((void *)f_10230,c,av);}
3338 a=C_alloc(27);
3339 t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
3340 t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2);
3341 t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6],t3);
3342 t5=((C_word*)t0)[7];{
3343 C_word *av2=av;
3344 av2[0]=t5;
3345 av2[1]=C_a_i_list(&a,2,lf[185],t4);
3346 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
3347 
3348 /* k10238 */
f_10240(C_word c,C_word * av)3349 static void C_ccall f_10240(C_word c,C_word *av){
3350 C_word tmp;
3351 C_word t0=av[0];
3352 C_word t1=av[1];
3353 C_word t2;
3354 C_word t3;
3355 C_word t4;
3356 C_word t5;
3357 C_word *a;
3358 if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
3359 C_save_and_reclaim((void *)f_10240,c,av);}
3360 a=C_alloc(15);
3361 t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]);
3362 t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],t2);
3363 t4=C_a_i_list(&a,1,t3);
3364 /* synrules.scm:139: ##sys#append */
3365 t5=*((C_word*)lf[71]+1);{
3366 C_word *av2;
3367 if(c >= 4) {
3368   av2=av;
3369 } else {
3370   av2=C_alloc(4);
3371 }
3372 av2[0]=t5;
3373 av2[1]=((C_word*)t0)[5];
3374 av2[2]=t1;
3375 av2[3]=t4;
3376 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
3377 
3378 /* map-loop3157 */
f_10254(C_word t0,C_word t1,C_word t2)3379 static void C_fcall f_10254(C_word t0,C_word t1,C_word t2){
3380 C_word tmp;
3381 C_word t3;
3382 C_word t4;
3383 C_word *a;
3384 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3385 C_save_and_reclaim_args((void *)trf_10254,3,t0,t1,t2);}
3386 a=C_alloc(6);
3387 if(C_truep(C_i_pairp(t2))){
3388 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
3389 /* synrules.scm:142: g3163 */
3390 t4=((C_word*)t0)[4];{
3391 C_word av2[3];
3392 av2[0]=t4;
3393 av2[1]=t3;
3394 av2[2]=C_slot(t2,C_fix(0));
3395 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
3396 else{
3397 t3=t1;{
3398 C_word av2[2];
3399 av2[0]=t3;
3400 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
3401 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
3402 
3403 /* k10277 in map-loop3157 */
f_10279(C_word c,C_word * av)3404 static void C_ccall f_10279(C_word c,C_word *av){
3405 C_word tmp;
3406 C_word t0=av[0];
3407 C_word t1=av[1];
3408 C_word t2;
3409 C_word t3;
3410 C_word t4;
3411 C_word t5;
3412 C_word *a;
3413 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
3414 C_save_and_reclaim((void *)f_10279,c,av);}
3415 a=C_alloc(3);
3416 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
3417 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
3418 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
3419 t5=((C_word*)((C_word*)t0)[3])[1];
3420 f_10254(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
3421 
3422 /* f_10296 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10296(C_word c,C_word * av)3423 static void C_ccall f_10296(C_word c,C_word *av){
3424 C_word tmp;
3425 C_word t0=av[0];
3426 C_word t1=av[1];
3427 C_word t2=av[2];
3428 C_word t3;
3429 C_word t4;
3430 C_word t5;
3431 C_word *a;
3432 if(c!=3) C_bad_argc_2(c,3,t0);
3433 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
3434 C_save_and_reclaim((void *)f_10296,c,av);}
3435 a=C_alloc(11);
3436 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10303,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
3437 if(C_truep(C_i_pairp(t2))){
3438 t4=C_i_pairp(C_u_i_cdr(t2));
3439 t5=t3;
3440 f_10303(t5,(C_truep(t4)?C_i_nullp(C_i_cddr(t2)):C_SCHEME_FALSE));}
3441 else{
3442 t4=t3;
3443 f_10303(t4,C_SCHEME_FALSE);}}
3444 
3445 /* k10301 */
f_10303(C_word t0,C_word t1)3446 static void C_fcall f_10303(C_word t0,C_word t1){
3447 C_word tmp;
3448 C_word t2;
3449 C_word t3;
3450 C_word t4;
3451 C_word t5;
3452 C_word *a;
3453 if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
3454 C_save_and_reclaim_args((void *)trf_10303,2,t0,t1);}
3455 a=C_alloc(11);
3456 if(C_truep(t1)){
3457 t2=C_i_cdar(((C_word*)t0)[2]);
3458 t3=C_i_cadr(((C_word*)t0)[2]);
3459 t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10339,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
3460 /* synrules.scm:151: process-match */
3461 t5=((C_word*)((C_word*)t0)[10])[1];{
3462 C_word av2[5];
3463 av2[0]=t5;
3464 av2[1]=t4;
3465 av2[2]=((C_word*)((C_word*)t0)[9])[1];
3466 av2[3]=t2;
3467 av2[4]=C_SCHEME_FALSE;
3468 ((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}
3469 else{
3470 /* synrules.scm:158: ##sys#syntax-error-hook */
3471 t2=*((C_word*)lf[43]+1);{
3472 C_word av2[4];
3473 av2[0]=t2;
3474 av2[1]=((C_word*)t0)[5];
3475 av2[2]=lf[215];
3476 av2[3]=((C_word*)t0)[2];
3477 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
3478 
3479 /* k10322 in k10337 in k10301 */
f_10324(C_word c,C_word * av)3480 static void C_ccall f_10324(C_word c,C_word *av){
3481 C_word tmp;
3482 C_word t0=av[0];
3483 C_word t1=av[1];
3484 C_word t2;
3485 C_word t3;
3486 C_word t4;
3487 C_word *a;
3488 if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
3489 C_save_and_reclaim((void *)f_10324,c,av);}
3490 a=C_alloc(11);
3491 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10328,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
3492 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10332,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
3493 /* synrules.scm:157: meta-variables */
3494 t4=((C_word*)((C_word*)t0)[7])[1];{
3495 C_word *av2;
3496 if(c >= 6) {
3497   av2=av;
3498 } else {
3499   av2=C_alloc(6);
3500 }
3501 av2[0]=t4;
3502 av2[1]=t3;
3503 av2[2]=((C_word*)t0)[8];
3504 av2[3]=C_fix(0);
3505 av2[4]=C_SCHEME_END_OF_LIST;
3506 av2[5]=C_SCHEME_FALSE;
3507 ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}
3508 
3509 /* k10326 in k10322 in k10337 in k10301 */
f_10328(C_word c,C_word * av)3510 static void C_ccall f_10328(C_word c,C_word *av){
3511 C_word tmp;
3512 C_word t0=av[0];
3513 C_word t1=av[1];
3514 C_word t2;
3515 C_word t3;
3516 C_word *a;
3517 if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){
3518 C_save_and_reclaim((void *)f_10328,c,av);}
3519 a=C_alloc(15);
3520 t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t1);
3521 t3=((C_word*)t0)[4];{
3522 C_word *av2=av;
3523 av2[0]=t3;
3524 av2[1]=C_a_i_list(&a,2,((C_word*)t0)[5],t2);
3525 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3526 
3527 /* k10330 in k10322 in k10337 in k10301 */
f_10332(C_word c,C_word * av)3528 static void C_ccall f_10332(C_word c,C_word *av){
3529 C_word tmp;
3530 C_word t0=av[0];
3531 C_word t1=av[1];
3532 C_word t2;
3533 C_word *a;
3534 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
3535 C_save_and_reclaim((void *)f_10332,c,av);}
3536 /* synrules.scm:155: process-template */
3537 t2=((C_word*)((C_word*)t0)[2])[1];{
3538 C_word *av2;
3539 if(c >= 5) {
3540   av2=av;
3541 } else {
3542   av2=C_alloc(5);
3543 }
3544 av2[0]=t2;
3545 av2[1]=((C_word*)t0)[3];
3546 av2[2]=((C_word*)t0)[4];
3547 av2[3]=C_fix(0);
3548 av2[4]=t1;
3549 ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
3550 
3551 /* a10333 in k10337 in k10301 */
f_10334(C_word c,C_word * av)3552 static void C_ccall f_10334(C_word c,C_word *av){
3553 C_word tmp;
3554 C_word t0=av[0];
3555 C_word t1=av[1];
3556 C_word t2=av[2];
3557 C_word t3;
3558 C_word *a;
3559 if(c!=3) C_bad_argc_2(c,3,t0);
3560 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
3561 C_save_and_reclaim((void *)f_10334,c,av);}
3562 t3=t1;{
3563 C_word *av2=av;
3564 av2[0]=t3;
3565 av2[1]=t2;
3566 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3567 
3568 /* k10337 in k10301 */
f_10339(C_word c,C_word * av)3569 static void C_ccall f_10339(C_word c,C_word *av){
3570 C_word tmp;
3571 C_word t0=av[0];
3572 C_word t1=av[1];
3573 C_word t2;
3574 C_word t3;
3575 C_word t4;
3576 C_word t5;
3577 C_word *a;
3578 if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
3579 C_save_and_reclaim((void *)f_10339,c,av);}
3580 a=C_alloc(15);
3581 t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
3582 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10324,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
3583 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10334,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp);
3584 /* synrules.scm:152: process-pattern */
3585 t5=((C_word*)((C_word*)t0)[9])[1];{
3586 C_word *av2;
3587 if(c >= 6) {
3588   av2=av;
3589 } else {
3590   av2=C_alloc(6);
3591 }
3592 av2[0]=t5;
3593 av2[1]=t3;
3594 av2[2]=((C_word*)t0)[8];
3595 av2[3]=((C_word*)((C_word*)t0)[10])[1];
3596 av2[4]=t4;
3597 av2[5]=C_SCHEME_FALSE;
3598 ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}
3599 
3600 /* f_10362 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10362(C_word c,C_word * av)3601 static void C_ccall f_10362(C_word c,C_word *av){
3602 C_word tmp;
3603 C_word t0=av[0];
3604 C_word t1=av[1];
3605 C_word t2=av[2];
3606 C_word t3=av[3];
3607 C_word t4=av[4];
3608 C_word t5;
3609 C_word t6;
3610 C_word t7;
3611 C_word t8;
3612 C_word *a;
3613 if(c!=5) C_bad_argc_2(c,5,t0);
3614 if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
3615 C_save_and_reclaim((void *)f_10362,c,av);}
3616 a=C_alloc(24);
3617 if(C_truep(C_i_symbolp(t3))){
3618 if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){
3619 t5=C_a_i_list(&a,2,lf[216],t3);
3620 t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t5);
3621 t7=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],t2,t6);
3622 t8=t1;{
3623 C_word *av2=av;
3624 av2[0]=t8;
3625 av2[1]=C_a_i_list(&a,1,t7);
3626 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
3627 else{
3628 t5=t1;{
3629 C_word *av2=av;
3630 av2[0]=t5;
3631 av2[1]=C_SCHEME_END_OF_LIST;
3632 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
3633 else{
3634 t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_10396,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp);
3635 /* synrules.scm:167: segment-pattern? */
3636 t6=((C_word*)((C_word*)t0)[17])[1];{
3637 C_word *av2=av;
3638 av2[0]=t6;
3639 av2[1]=t5;
3640 av2[2]=t3;
3641 av2[3]=t4;
3642 ((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}}
3643 
3644 /* k10394 */
f_10396(C_word c,C_word * av)3645 static void C_ccall f_10396(C_word c,C_word *av){
3646 C_word tmp;
3647 C_word t0=av[0];
3648 C_word t1=av[1];
3649 C_word t2;
3650 C_word t3;
3651 C_word t4;
3652 C_word t5;
3653 C_word t6;
3654 C_word t7;
3655 C_word t8;
3656 C_word *a;
3657 if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){
3658 C_save_and_reclaim((void *)f_10396,c,av);}
3659 a=C_alloc(35);
3660 if(C_truep(t1)){
3661 /* synrules.scm:168: process-segment-match */
3662 t2=((C_word*)((C_word*)t0)[2])[1];{
3663 C_word *av2;
3664 if(c >= 4) {
3665   av2=av;
3666 } else {
3667   av2=C_alloc(4);
3668 }
3669 av2[0]=t2;
3670 av2[1]=((C_word*)t0)[3];
3671 av2[2]=((C_word*)t0)[4];
3672 av2[3]=((C_word*)t0)[5];
3673 ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
3674 else{
3675 if(C_truep(C_i_pairp(((C_word*)t0)[5]))){
3676 t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4]);
3677 t3=C_a_i_list(&a,1,t2);
3678 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[6])[1]);
3679 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10432,a[2]=t4,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
3680 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10436,a[2]=t5,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
3681 t7=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[12])[1],((C_word*)((C_word*)t0)[6])[1]);
3682 /* synrules.scm:172: process-match */
3683 t8=((C_word*)((C_word*)t0)[11])[1];{
3684 C_word *av2;
3685 if(c >= 5) {
3686   av2=av;
3687 } else {
3688   av2=C_alloc(5);
3689 }
3690 av2[0]=t8;
3691 av2[1]=t6;
3692 av2[2]=t7;
3693 av2[3]=C_u_i_car(((C_word*)t0)[5]);
3694 av2[4]=C_SCHEME_FALSE;
3695 ((C_proc)C_fast_retrieve_proc(t8))(5,av2);}}
3696 else{
3697 if(C_truep(C_i_vectorp(((C_word*)t0)[5]))){
3698 t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4]);
3699 t3=C_a_i_list(&a,1,t2);
3700 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[6])[1]);
3701 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10489,a[2]=t4,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
3702 t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)((C_word*)t0)[6])[1]);
3703 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10497,a[2]=((C_word*)t0)[11],a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
3704 /* synrules.scm:178: scheme#vector->list */
3705 t8=*((C_word*)lf[181]+1);{
3706 C_word *av2;
3707 if(c >= 3) {
3708   av2=av;
3709 } else {
3710   av2=C_alloc(3);
3711 }
3712 av2[0]=t8;
3713 av2[1]=t7;
3714 av2[2]=((C_word*)t0)[5];
3715 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
3716 else{
3717 t2=C_i_nullp(((C_word*)t0)[5]);
3718 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10510,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[15],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[16],tmp=(C_word)a,a+=7,tmp);
3719 if(C_truep(t2)){
3720 t4=t3;
3721 f_10510(t4,t2);}
3722 else{
3723 t4=C_booleanp(((C_word*)t0)[5]);
3724 t5=t3;
3725 f_10510(t5,(C_truep(t4)?t4:C_charp(((C_word*)t0)[5])));}}}}}
3726 
3727 /* k10430 in k10394 */
f_10432(C_word c,C_word * av)3728 static void C_ccall f_10432(C_word c,C_word *av){
3729 C_word tmp;
3730 C_word t0=av[0];
3731 C_word t1=av[1];
3732 C_word t2;
3733 C_word t3;
3734 C_word t4;
3735 C_word t5;
3736 C_word *a;
3737 if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
3738 C_save_and_reclaim((void *)f_10432,c,av);}
3739 a=C_alloc(18);
3740 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
3741 t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
3742 t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3);
3743 t5=((C_word*)t0)[6];{
3744 C_word *av2=av;
3745 av2[0]=t5;
3746 av2[1]=C_a_i_list(&a,1,t4);
3747 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
3748 
3749 /* k10434 in k10394 */
f_10436(C_word c,C_word * av)3750 static void C_ccall f_10436(C_word c,C_word *av){
3751 C_word tmp;
3752 C_word t0=av[0];
3753 C_word t1=av[1];
3754 C_word t2;
3755 C_word t3;
3756 C_word t4;
3757 C_word *a;
3758 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
3759 C_save_and_reclaim((void *)f_10436,c,av);}
3760 a=C_alloc(10);
3761 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10440,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3762 t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);
3763 /* synrules.scm:173: process-match */
3764 t4=((C_word*)((C_word*)t0)[5])[1];{
3765 C_word *av2;
3766 if(c >= 5) {
3767   av2=av;
3768 } else {
3769   av2=C_alloc(5);
3770 }
3771 av2[0]=t4;
3772 av2[1]=t2;
3773 av2[2]=t3;
3774 av2[3]=C_u_i_cdr(((C_word*)t0)[6]);
3775 av2[4]=C_SCHEME_FALSE;
3776 ((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}
3777 
3778 /* k10438 in k10434 in k10394 */
f_10440(C_word c,C_word * av)3779 static void C_ccall f_10440(C_word c,C_word *av){
3780 C_word tmp;
3781 C_word t0=av[0];
3782 C_word t1=av[1];
3783 C_word t2;
3784 C_word *a;
3785 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
3786 C_save_and_reclaim((void *)f_10440,c,av);}
3787 /* synrules.scm:170: ##sys#append */
3788 t2=*((C_word*)lf[71]+1);{
3789 C_word *av2;
3790 if(c >= 4) {
3791   av2=av;
3792 } else {
3793   av2=C_alloc(4);
3794 }
3795 av2[0]=t2;
3796 av2[1]=((C_word*)t0)[2];
3797 av2[2]=((C_word*)t0)[3];
3798 av2[3]=t1;
3799 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
3800 
3801 /* k10487 in k10394 */
f_10489(C_word c,C_word * av)3802 static void C_ccall f_10489(C_word c,C_word *av){
3803 C_word tmp;
3804 C_word t0=av[0];
3805 C_word t1=av[1];
3806 C_word t2;
3807 C_word t3;
3808 C_word t4;
3809 C_word t5;
3810 C_word *a;
3811 if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
3812 C_save_and_reclaim((void *)f_10489,c,av);}
3813 a=C_alloc(18);
3814 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
3815 t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
3816 t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3);
3817 t5=((C_word*)t0)[6];{
3818 C_word *av2=av;
3819 av2[0]=t5;
3820 av2[1]=C_a_i_list(&a,1,t4);
3821 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
3822 
3823 /* k10495 in k10394 */
f_10497(C_word c,C_word * av)3824 static void C_ccall f_10497(C_word c,C_word *av){
3825 C_word tmp;
3826 C_word t0=av[0];
3827 C_word t1=av[1];
3828 C_word t2;
3829 C_word *a;
3830 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
3831 C_save_and_reclaim((void *)f_10497,c,av);}
3832 /* synrules.scm:177: process-match */
3833 t2=((C_word*)((C_word*)t0)[2])[1];{
3834 C_word *av2;
3835 if(c >= 5) {
3836   av2=av;
3837 } else {
3838   av2=C_alloc(5);
3839 }
3840 av2[0]=t2;
3841 av2[1]=((C_word*)t0)[3];
3842 av2[2]=((C_word*)t0)[4];
3843 av2[3]=t1;
3844 av2[4]=C_SCHEME_FALSE;
3845 ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
3846 
3847 /* k10508 in k10394 */
f_10510(C_word t0,C_word t1)3848 static void C_fcall f_10510(C_word t0,C_word t1){
3849 C_word tmp;
3850 C_word t2;
3851 C_word t3;
3852 C_word t4;
3853 C_word *a;
3854 if(C_unlikely(!C_demand(C_calculate_demand(18,0,1)))){
3855 C_save_and_reclaim_args((void *)trf_10510,2,t0,t1);}
3856 a=C_alloc(18);
3857 if(C_truep(t1)){
3858 t2=C_a_i_list(&a,2,lf[217],((C_word*)t0)[2]);
3859 t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2);
3860 t4=((C_word*)t0)[5];{
3861 C_word av2[2];
3862 av2[0]=t4;
3863 av2[1]=C_a_i_list(&a,1,t3);
3864 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
3865 else{
3866 t2=C_a_i_list(&a,2,lf[217],((C_word*)t0)[2]);
3867 t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4],t2);
3868 t4=((C_word*)t0)[5];{
3869 C_word av2[2];
3870 av2[0]=t4;
3871 av2[1]=C_a_i_list(&a,1,t3);
3872 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
3873 
3874 /* f_10543 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10543(C_word c,C_word * av)3875 static void C_ccall f_10543(C_word c,C_word *av){
3876 C_word tmp;
3877 C_word t0=av[0];
3878 C_word t1=av[1];
3879 C_word t2=av[2];
3880 C_word t3=av[3];
3881 C_word t4;
3882 C_word t5;
3883 C_word t6;
3884 C_word *a;
3885 if(c!=4) C_bad_argc_2(c,4,t0);
3886 if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){
3887 C_save_and_reclaim((void *)f_10543,c,av);}
3888 a=C_alloc(25);
3889 t4=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_10547,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=t1,a[16]=((C_word*)t0)[13],a[17]=((C_word*)t0)[14],a[18]=((C_word*)t0)[15],tmp=(C_word)a,a+=19,tmp);
3890 t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[16])[1],((C_word*)((C_word*)t0)[6])[1]);
3891 /* synrules.scm:185: process-match */
3892 t6=((C_word*)((C_word*)t0)[15])[1];{
3893 C_word *av2;
3894 if(c >= 5) {
3895   av2=av;
3896 } else {
3897   av2=C_alloc(5);
3898 }
3899 av2[0]=t6;
3900 av2[1]=t4;
3901 av2[2]=t5;
3902 av2[3]=C_i_car(t3);
3903 av2[4]=C_SCHEME_FALSE;
3904 ((C_proc)C_fast_retrieve_proc(t6))(5,av2);}}
3905 
3906 /* k10545 */
f_10547(C_word c,C_word * av)3907 static void C_ccall f_10547(C_word c,C_word *av){
3908 C_word tmp;
3909 C_word t0=av[0];
3910 C_word t1=av[1];
3911 C_word t2;
3912 C_word t3;
3913 C_word t4;
3914 C_word t5;
3915 C_word t6;
3916 C_word t7;
3917 C_word t8;
3918 C_word t9;
3919 C_word t10;
3920 C_word t11;
3921 C_word t12;
3922 C_word t13;
3923 C_word t14;
3924 C_word t15;
3925 C_word t16;
3926 C_word t17;
3927 C_word *a;
3928 if(C_unlikely(!C_demand(C_calculate_demand(75,c,4)))){
3929 C_save_and_reclaim((void *)f_10547,c,av);}
3930 a=C_alloc(75);
3931 t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
3932 t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3]);
3933 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],t3);
3934 t5=C_a_i_list(&a,1,t4);
3935 t6=C_i_cddr(((C_word*)t0)[6]);
3936 t7=C_i_length(t6);
3937 t8=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[5])[1],t7);
3938 t9=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[8])[1],((C_word*)t0)[3]);
3939 t10=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[5])[1]);
3940 t11=C_a_i_list(&a,2,t9,t10);
3941 t12=C_u_i_cdr(((C_word*)t0)[6]);
3942 t13=C_i_length(C_u_i_cdr(t12));
3943 t14=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[9])[1],((C_word*)((C_word*)t0)[5])[1],t13);
3944 t15=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_10626,a[2]=t14,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[14],a[8]=t11,a[9]=t8,a[10]=t5,a[11]=t2,a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[8],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[5],a[17]=t1,tmp=(C_word)a,a+=18,tmp);
3945 t16=C_u_i_cdr(((C_word*)t0)[6]);
3946 /* synrules.scm:193: process-match */
3947 t17=((C_word*)((C_word*)t0)[18])[1];{
3948 C_word *av2;
3949 if(c >= 5) {
3950   av2=av;
3951 } else {
3952   av2=C_alloc(5);
3953 }
3954 av2[0]=t17;
3955 av2[1]=t15;
3956 av2[2]=((C_word*)((C_word*)t0)[8])[1];
3957 av2[3]=C_u_i_cdr(t16);
3958 av2[4]=C_SCHEME_TRUE;
3959 ((C_proc)C_fast_retrieve_proc(t17))(5,av2);}}
3960 
3961 /* k10600 in k10624 in k10545 */
f_10602(C_word c,C_word * av)3962 static void C_ccall f_10602(C_word c,C_word *av){
3963 C_word tmp;
3964 C_word t0=av[0];
3965 C_word t1=av[1];
3966 C_word t2;
3967 C_word t3;
3968 C_word t4;
3969 C_word t5;
3970 C_word t6;
3971 C_word t7;
3972 C_word t8;
3973 C_word t9;
3974 C_word *a;
3975 if(C_unlikely(!C_demand(C_calculate_demand(60,c,1)))){
3976 C_save_and_reclaim((void *)f_10602,c,av);}
3977 a=C_alloc(60);
3978 t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
3979 t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
3980 t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3);
3981 t5=C_a_i_list(&a,4,((C_word*)((C_word*)t0)[6])[1],((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],t4);
3982 t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[9],t5);
3983 t7=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[10],t6);
3984 t8=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[11],t7);
3985 t9=((C_word*)t0)[12];{
3986 C_word *av2=av;
3987 av2[0]=t9;
3988 av2[1]=C_a_i_list(&a,1,t8);
3989 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
3990 
3991 /* k10624 in k10545 */
f_10626(C_word c,C_word * av)3992 static void C_ccall f_10626(C_word c,C_word *av){
3993 C_word tmp;
3994 C_word t0=av[0];
3995 C_word t1=av[1];
3996 C_word t2;
3997 C_word t3;
3998 C_word t4;
3999 C_word t5;
4000 C_word t6;
4001 C_word t7;
4002 C_word t8;
4003 C_word *a;
4004 if(C_unlikely(!C_demand(C_calculate_demand(43,c,3)))){
4005 C_save_and_reclaim((void *)f_10626,c,av);}
4006 a=C_alloc(43);
4007 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
4008 t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10602,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
4009 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[14])[1]);
4010 t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[15])[1],((C_word*)((C_word*)t0)[16])[1],C_fix(-1));
4011 t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],t4,t5);
4012 t7=C_a_i_list(&a,1,t6);
4013 /* synrules.scm:186: ##sys#append */
4014 t8=*((C_word*)lf[71]+1);{
4015 C_word *av2;
4016 if(c >= 4) {
4017   av2=av;
4018 } else {
4019   av2=C_alloc(4);
4020 }
4021 av2[0]=t8;
4022 av2[1]=t3;
4023 av2[2]=((C_word*)t0)[17];
4024 av2[3]=t7;
4025 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
4026 
4027 /* f_10670 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10670(C_word c,C_word * av)4028 static void C_ccall f_10670(C_word c,C_word *av){
4029 C_word tmp;
4030 C_word t0=av[0];
4031 C_word t1=av[1];
4032 C_word t2=av[2];
4033 C_word t3=av[3];
4034 C_word t4=av[4];
4035 C_word t5=av[5];
4036 C_word t6;
4037 C_word t7;
4038 C_word *a;
4039 if(c!=6) C_bad_argc_2(c,6,t0);
4040 if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
4041 C_save_and_reclaim((void *)f_10670,c,av);}
4042 a=C_alloc(15);
4043 if(C_truep(C_i_symbolp(t2))){
4044 if(C_truep(C_i_memq(t2,((C_word*)t0)[2]))){
4045 t6=t1;{
4046 C_word *av2=av;
4047 av2[0]=t6;
4048 av2[1]=C_SCHEME_END_OF_LIST;
4049 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
4050 else{
4051 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10694,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4052 /* synrules.scm:205: mapit */
4053 t7=t4;{
4054 C_word *av2=av;
4055 av2[0]=t7;
4056 av2[1]=t6;
4057 av2[2]=t3;
4058 ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}}
4059 else{
4060 t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10700,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t4,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp);
4061 /* synrules.scm:206: segment-pattern? */
4062 t7=((C_word*)((C_word*)t0)[12])[1];{
4063 C_word *av2=av;
4064 av2[0]=t7;
4065 av2[1]=t6;
4066 av2[2]=t2;
4067 av2[3]=t5;
4068 ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}
4069 
4070 /* k10692 */
f_10694(C_word c,C_word * av)4071 static void C_ccall f_10694(C_word c,C_word *av){
4072 C_word tmp;
4073 C_word t0=av[0];
4074 C_word t1=av[1];
4075 C_word t2;
4076 C_word t3;
4077 C_word *a;
4078 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
4079 C_save_and_reclaim((void *)f_10694,c,av);}
4080 a=C_alloc(9);
4081 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
4082 t3=((C_word*)t0)[3];{
4083 C_word *av2=av;
4084 av2[0]=t3;
4085 av2[1]=C_a_i_list1(&a,1,t2);
4086 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4087 
4088 /* k10698 */
f_10700(C_word c,C_word * av)4089 static void C_ccall f_10700(C_word c,C_word *av){
4090 C_word tmp;
4091 C_word t0=av[0];
4092 C_word t1=av[1];
4093 C_word t2;
4094 C_word t3;
4095 C_word t4;
4096 C_word t5;
4097 C_word t6;
4098 C_word t7;
4099 C_word t8;
4100 C_word t9;
4101 C_word *a;
4102 if(C_unlikely(!C_demand(C_calculate_demand(26,c,5)))){
4103 C_save_and_reclaim((void *)f_10700,c,av);}
4104 a=C_alloc(26);
4105 if(C_truep(t1)){
4106 t2=C_i_cddr(((C_word*)t0)[2]);
4107 t3=C_i_length(t2);
4108 t4=C_eqp(t3,C_fix(0));
4109 t5=(C_truep(t4)?((C_word*)t0)[3]:C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3],t3));
4110 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10713,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
4111 t7=C_u_i_car(((C_word*)t0)[2]);
4112 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10729,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[8],a[4]=t5,a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word)li113),tmp=(C_word)a,a+=8,tmp);
4113 /* synrules.scm:212: process-pattern */
4114 t9=((C_word*)((C_word*)t0)[7])[1];{
4115 C_word *av2;
4116 if(c >= 6) {
4117   av2=av;
4118 } else {
4119   av2=C_alloc(6);
4120 }
4121 av2[0]=t9;
4122 av2[1]=t6;
4123 av2[2]=t7;
4124 av2[3]=((C_word*)((C_word*)t0)[9])[1];
4125 av2[4]=t8;
4126 av2[5]=C_SCHEME_FALSE;
4127 ((C_proc)C_fast_retrieve_proc(t9))(6,av2);}}
4128 else{
4129 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
4130 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10775,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
4131 t3=C_u_i_car(((C_word*)t0)[2]);
4132 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)t0)[3]);
4133 /* synrules.scm:223: process-pattern */
4134 t5=((C_word*)((C_word*)t0)[7])[1];{
4135 C_word *av2;
4136 if(c >= 6) {
4137   av2=av;
4138 } else {
4139   av2=C_alloc(6);
4140 }
4141 av2[0]=t5;
4142 av2[1]=t2;
4143 av2[2]=t3;
4144 av2[3]=t4;
4145 av2[4]=((C_word*)t0)[8];
4146 av2[5]=C_SCHEME_FALSE;
4147 ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}
4148 else{
4149 if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){
4150 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10804,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
4151 /* synrules.scm:226: scheme#vector->list */
4152 t3=*((C_word*)lf[181]+1);{
4153 C_word *av2;
4154 if(c >= 3) {
4155   av2=av;
4156 } else {
4157   av2=C_alloc(3);
4158 }
4159 av2[0]=t3;
4160 av2[1]=t2;
4161 av2[2]=((C_word*)t0)[2];
4162 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
4163 else{
4164 t2=((C_word*)t0)[5];{
4165 C_word *av2=av;
4166 av2[0]=t2;
4167 av2[1]=C_SCHEME_END_OF_LIST;
4168 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}
4169 
4170 /* k10711 in k10698 */
f_10713(C_word c,C_word * av)4171 static void C_ccall f_10713(C_word c,C_word *av){
4172 C_word tmp;
4173 C_word t0=av[0];
4174 C_word t1=av[1];
4175 C_word t2;
4176 C_word t3;
4177 C_word t4;
4178 C_word t5;
4179 C_word *a;
4180 if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
4181 C_save_and_reclaim((void *)f_10713,c,av);}
4182 a=C_alloc(13);
4183 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10717,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4184 t3=C_i_cddr(((C_word*)t0)[3]);
4185 t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]);
4186 /* synrules.scm:220: process-pattern */
4187 t5=((C_word*)((C_word*)t0)[7])[1];{
4188 C_word *av2;
4189 if(c >= 6) {
4190   av2=av;
4191 } else {
4192   av2=C_alloc(6);
4193 }
4194 av2[0]=t5;
4195 av2[1]=t2;
4196 av2[2]=t3;
4197 av2[3]=t4;
4198 av2[4]=((C_word*)t0)[8];
4199 av2[5]=C_SCHEME_TRUE;
4200 ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}
4201 
4202 /* k10715 in k10711 in k10698 */
f_10717(C_word c,C_word * av)4203 static void C_ccall f_10717(C_word c,C_word *av){
4204 C_word tmp;
4205 C_word t0=av[0];
4206 C_word t1=av[1];
4207 C_word t2;
4208 C_word *a;
4209 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4210 C_save_and_reclaim((void *)f_10717,c,av);}
4211 /* synrules.scm:211: scheme#append */
4212 t2=*((C_word*)lf[16]+1);{
4213 C_word *av2;
4214 if(c >= 4) {
4215   av2=av;
4216 } else {
4217   av2=C_alloc(4);
4218 }
4219 av2[0]=t2;
4220 av2[1]=((C_word*)t0)[2];
4221 av2[2]=((C_word*)t0)[3];
4222 av2[3]=t1;
4223 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
4224 
4225 /* a10728 in k10698 */
f_10729(C_word c,C_word * av)4226 static void C_ccall f_10729(C_word c,C_word *av){
4227 C_word tmp;
4228 C_word t0=av[0];
4229 C_word t1=av[1];
4230 C_word t2=av[2];
4231 C_word t3;
4232 C_word t4;
4233 C_word t5;
4234 C_word t6;
4235 C_word t7;
4236 C_word *a;
4237 if(c!=3) C_bad_argc_2(c,3,t0);
4238 if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
4239 C_save_and_reclaim((void *)f_10729,c,av);}
4240 a=C_alloc(21);
4241 t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],t2);
4242 if(C_truep(t3)){
4243 /* synrules.scm:215: mapit */
4244 t4=((C_word*)t0)[3];{
4245 C_word *av2=av;
4246 av2[0]=t4;
4247 av2[1]=t1;
4248 av2[2]=((C_word*)t0)[4];
4249 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
4250 else{
4251 t4=C_a_i_list(&a,1,((C_word*)((C_word*)t0)[2])[1]);
4252 t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],t4,t2);
4253 t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],t5,((C_word*)t0)[4]);
4254 /* synrules.scm:215: mapit */
4255 t7=((C_word*)t0)[3];{
4256 C_word *av2=av;
4257 av2[0]=t7;
4258 av2[1]=t1;
4259 av2[2]=t6;
4260 ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}}
4261 
4262 /* k10773 in k10698 */
f_10775(C_word c,C_word * av)4263 static void C_ccall f_10775(C_word c,C_word *av){
4264 C_word tmp;
4265 C_word t0=av[0];
4266 C_word t1=av[1];
4267 C_word t2;
4268 C_word t3;
4269 C_word t4;
4270 C_word t5;
4271 C_word *a;
4272 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
4273 C_save_and_reclaim((void *)f_10775,c,av);}
4274 a=C_alloc(10);
4275 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10779,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4276 t3=C_u_i_cdr(((C_word*)t0)[3]);
4277 t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]);
4278 /* synrules.scm:224: process-pattern */
4279 t5=((C_word*)((C_word*)t0)[6])[1];{
4280 C_word *av2;
4281 if(c >= 6) {
4282   av2=av;
4283 } else {
4284   av2=C_alloc(6);
4285 }
4286 av2[0]=t5;
4287 av2[1]=t2;
4288 av2[2]=t3;
4289 av2[3]=t4;
4290 av2[4]=((C_word*)t0)[7];
4291 av2[5]=C_SCHEME_FALSE;
4292 ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}
4293 
4294 /* k10777 in k10773 in k10698 */
f_10779(C_word c,C_word * av)4295 static void C_ccall f_10779(C_word c,C_word *av){
4296 C_word tmp;
4297 C_word t0=av[0];
4298 C_word t1=av[1];
4299 C_word t2;
4300 C_word *a;
4301 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4302 C_save_and_reclaim((void *)f_10779,c,av);}
4303 /* synrules.scm:223: scheme#append */
4304 t2=*((C_word*)lf[16]+1);{
4305 C_word *av2;
4306 if(c >= 4) {
4307   av2=av;
4308 } else {
4309   av2=C_alloc(4);
4310 }
4311 av2[0]=t2;
4312 av2[1]=((C_word*)t0)[2];
4313 av2[2]=((C_word*)t0)[3];
4314 av2[3]=t1;
4315 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
4316 
4317 /* k10802 in k10698 */
f_10804(C_word c,C_word * av)4318 static void C_ccall f_10804(C_word c,C_word *av){
4319 C_word tmp;
4320 C_word t0=av[0];
4321 C_word t1=av[1];
4322 C_word t2;
4323 C_word t3;
4324 C_word *a;
4325 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
4326 C_save_and_reclaim((void *)f_10804,c,av);}
4327 a=C_alloc(6);
4328 t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
4329 /* synrules.scm:226: process-pattern */
4330 t3=((C_word*)((C_word*)t0)[4])[1];{
4331 C_word *av2;
4332 if(c >= 6) {
4333   av2=av;
4334 } else {
4335   av2=C_alloc(6);
4336 }
4337 av2[0]=t3;
4338 av2[1]=((C_word*)t0)[5];
4339 av2[2]=t1;
4340 av2[3]=t2;
4341 av2[4]=((C_word*)t0)[6];
4342 av2[5]=C_SCHEME_FALSE;
4343 ((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}
4344 
4345 /* f_10810 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_10810(C_word c,C_word * av)4346 static void C_ccall f_10810(C_word c,C_word *av){
4347 C_word tmp;
4348 C_word t0=av[0];
4349 C_word t1=av[1];
4350 C_word t2=av[2];
4351 C_word t3=av[3];
4352 C_word t4=av[4];
4353 C_word t5;
4354 C_word t6;
4355 C_word t7;
4356 C_word *a;
4357 if(c!=5) C_bad_argc_2(c,5,t0);
4358 if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
4359 C_save_and_reclaim((void *)f_10810,c,av);}
4360 a=C_alloc(15);
4361 if(C_truep(C_i_symbolp(t2))){
4362 t5=C_i_assq(t2,t4);
4363 if(C_truep(t5)){
4364 t6=C_i_cdr(t5);
4365 if(C_truep(C_fixnum_less_or_equal_p(t6,t3))){
4366 t7=t1;{
4367 C_word *av2=av;
4368 av2[0]=t7;
4369 av2[1]=t2;
4370 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
4371 else{
4372 /* synrules.scm:238: ##sys#syntax-error-hook */
4373 t7=*((C_word*)lf[43]+1);{
4374 C_word *av2=av;
4375 av2[0]=t7;
4376 av2[1]=t1;
4377 av2[2]=lf[218];
4378 av2[3]=t2;
4379 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
4380 else{
4381 t6=C_a_i_list(&a,2,lf[216],t2);
4382 t7=t1;{
4383 C_word *av2=av;
4384 av2[0]=t7;
4385 av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],t6);
4386 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
4387 else{
4388 t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10849,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp);
4389 /* synrules.scm:241: segment-template? */
4390 t6=((C_word*)((C_word*)t0)[12])[1];{
4391 C_word *av2=av;
4392 av2[0]=t6;
4393 av2[1]=t5;
4394 av2[2]=t2;
4395 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}}
4396 
4397 /* k10847 */
f_10849(C_word c,C_word * av)4398 static void C_ccall f_10849(C_word c,C_word *av){
4399 C_word tmp;
4400 C_word t0=av[0];
4401 C_word t1=av[1];
4402 C_word t2;
4403 C_word t3;
4404 C_word t4;
4405 C_word *a;
4406 if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
4407 C_save_and_reclaim((void *)f_10849,c,av);}
4408 a=C_alloc(11);
4409 if(C_truep(t1)){
4410 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10852,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
4411 /* synrules.scm:242: segment-depth */
4412 t3=((C_word*)((C_word*)t0)[11])[1];{
4413 C_word *av2;
4414 if(c >= 3) {
4415   av2=av;
4416 } else {
4417   av2=C_alloc(3);
4418 }
4419 av2[0]=t3;
4420 av2[1]=t2;
4421 av2[2]=((C_word*)t0)[4];
4422 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
4423 else{
4424 if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
4425 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10972,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
4426 /* synrules.scm:267: process-template */
4427 t3=((C_word*)((C_word*)t0)[5])[1];{
4428 C_word *av2;
4429 if(c >= 5) {
4430   av2=av;
4431 } else {
4432   av2=C_alloc(5);
4433 }
4434 av2[0]=t3;
4435 av2[1]=t2;
4436 av2[2]=C_u_i_car(((C_word*)t0)[4]);
4437 av2[3]=((C_word*)t0)[2];
4438 av2[4]=((C_word*)t0)[6];
4439 ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
4440 else{
4441 if(C_truep(C_i_vectorp(((C_word*)t0)[4]))){
4442 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10993,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp);
4443 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10997,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
4444 /* synrules.scm:271: scheme#vector->list */
4445 t4=*((C_word*)lf[181]+1);{
4446 C_word *av2;
4447 if(c >= 3) {
4448   av2=av;
4449 } else {
4450   av2=C_alloc(3);
4451 }
4452 av2[0]=t4;
4453 av2[1]=t3;
4454 av2[2]=((C_word*)t0)[4];
4455 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
4456 else{
4457 t2=((C_word*)t0)[3];{
4458 C_word *av2=av;
4459 av2[0]=t2;
4460 av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)t0)[4]);
4461 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}
4462 
4463 /* k10850 in k10847 */
f_10852(C_word c,C_word * av)4464 static void C_ccall f_10852(C_word c,C_word *av){
4465 C_word tmp;
4466 C_word t0=av[0];
4467 C_word t1=av[1];
4468 C_word t2;
4469 C_word t3;
4470 C_word t4;
4471 C_word *a;
4472 if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
4473 C_save_and_reclaim((void *)f_10852,c,av);}
4474 a=C_alloc(12);
4475 t2=C_fixnum_plus(((C_word*)t0)[2],t1);
4476 t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10858,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,tmp=(C_word)a,a+=12,tmp);
4477 /* synrules.scm:245: free-meta-variables */
4478 t4=((C_word*)((C_word*)t0)[10])[1];{
4479 C_word *av2;
4480 if(c >= 6) {
4481   av2=av;
4482 } else {
4483   av2=C_alloc(6);
4484 }
4485 av2[0]=t4;
4486 av2[1]=t3;
4487 av2[2]=C_i_car(((C_word*)t0)[4]);
4488 av2[3]=t2;
4489 av2[4]=((C_word*)t0)[6];
4490 av2[5]=C_SCHEME_END_OF_LIST;
4491 ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}
4492 
4493 /* k10856 in k10850 in k10847 */
f_10858(C_word c,C_word * av)4494 static void C_ccall f_10858(C_word c,C_word *av){
4495 C_word tmp;
4496 C_word t0=av[0];
4497 C_word t1=av[1];
4498 C_word t2;
4499 C_word t3;
4500 C_word *a;
4501 if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
4502 C_save_and_reclaim((void *)f_10858,c,av);}
4503 a=C_alloc(12);
4504 if(C_truep(C_i_nullp(t1))){
4505 /* synrules.scm:247: ##sys#syntax-error-hook */
4506 t2=*((C_word*)lf[43]+1);{
4507 C_word *av2;
4508 if(c >= 4) {
4509   av2=av;
4510 } else {
4511   av2=C_alloc(4);
4512 }
4513 av2[0]=t2;
4514 av2[1]=((C_word*)t0)[2];
4515 av2[2]=lf[219];
4516 av2[3]=((C_word*)t0)[3];
4517 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
4518 else{
4519 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
4520 /* synrules.scm:248: process-template */
4521 t3=((C_word*)((C_word*)t0)[4])[1];{
4522 C_word *av2;
4523 if(c >= 5) {
4524   av2=av;
4525 } else {
4526   av2=C_alloc(5);
4527 }
4528 av2[0]=t3;
4529 av2[1]=t2;
4530 av2[2]=C_u_i_car(((C_word*)t0)[3]);
4531 av2[3]=((C_word*)t0)[11];
4532 av2[4]=((C_word*)t0)[6];
4533 ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}}
4534 
4535 /* k10868 in k10856 in k10850 in k10847 */
f_10870(C_word c,C_word * av)4536 static void C_ccall f_10870(C_word c,C_word *av){
4537 C_word tmp;
4538 C_word t0=av[0];
4539 C_word t1=av[1];
4540 C_word t2;
4541 C_word t3;
4542 C_word t4;
4543 C_word t5;
4544 C_word *a;
4545 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
4546 C_save_and_reclaim((void *)f_10870,c,av);}
4547 a=C_alloc(16);
4548 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
4549 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10920,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp);
4550 if(C_truep(C_i_pairp(((C_word*)t0)[10]))){
4551 if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[10])))){
4552 t4=C_i_symbolp(t1);
4553 t5=t3;
4554 f_10920(t5,(C_truep(t4)?C_eqp(t1,C_u_i_car(((C_word*)t0)[10])):C_SCHEME_FALSE));}
4555 else{
4556 t4=t3;
4557 f_10920(t4,C_SCHEME_FALSE);}}
4558 else{
4559 t4=t3;
4560 f_10920(t4,C_SCHEME_FALSE);}}
4561 
4562 /* k10871 in k10868 in k10856 in k10850 in k10847 */
f_10873(C_word t0,C_word t1)4563 static void C_fcall f_10873(C_word t0,C_word t1){
4564 C_word tmp;
4565 C_word t2;
4566 C_word t3;
4567 C_word t4;
4568 C_word t5;
4569 C_word t6;
4570 C_word *a;
4571 if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
4572 C_save_and_reclaim_args((void *)trf_10873,2,t0,t1);}
4573 a=C_alloc(14);
4574 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10876,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
4575 t3=C_SCHEME_UNDEFINED;
4576 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
4577 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10899,a[2]=t4,a[3]=((C_word)li115),tmp=(C_word)a,a+=4,tmp));
4578 t6=((C_word*)t4)[1];
4579 f_10899(t6,t2,((C_word*)t0)[8],t1);}
4580 
4581 /* k10874 in k10871 in k10868 in k10856 in k10850 in k10847 */
f_10876(C_word c,C_word * av)4582 static void C_ccall f_10876(C_word c,C_word *av){
4583 C_word tmp;
4584 C_word t0=av[0];
4585 C_word t1=av[1];
4586 C_word t2;
4587 C_word t3;
4588 C_word *a;
4589 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
4590 C_save_and_reclaim((void *)f_10876,c,av);}
4591 a=C_alloc(9);
4592 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10897,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],tmp=(C_word)a,a+=9,tmp);
4593 /* synrules.scm:262: segment-tail */
4594 t3=((C_word*)((C_word*)t0)[6])[1];{
4595 C_word *av2;
4596 if(c >= 3) {
4597   av2=av;
4598 } else {
4599   av2=C_alloc(3);
4600 }
4601 av2[0]=t3;
4602 av2[1]=t2;
4603 av2[2]=((C_word*)t0)[7];
4604 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
4605 
4606 /* k10887 in k10895 in k10874 in k10871 in k10868 in k10856 in k10850 in k10847 */
f_10889(C_word c,C_word * av)4607 static void C_ccall f_10889(C_word c,C_word *av){
4608 C_word tmp;
4609 C_word t0=av[0];
4610 C_word t1=av[1];
4611 C_word t2;
4612 C_word *a;
4613 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
4614 C_save_and_reclaim((void *)f_10889,c,av);}
4615 a=C_alloc(9);
4616 t2=((C_word*)t0)[2];{
4617 C_word *av2=av;
4618 av2[0]=t2;
4619 av2[1]=C_a_i_list(&a,3,lf[71],((C_word*)t0)[3],t1);
4620 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4621 
4622 /* k10891 in k10895 in k10874 in k10871 in k10868 in k10856 in k10850 in k10847 */
f_10893(C_word c,C_word * av)4623 static void C_ccall f_10893(C_word c,C_word *av){
4624 C_word tmp;
4625 C_word t0=av[0];
4626 C_word t1=av[1];
4627 C_word t2;
4628 C_word *a;
4629 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
4630 C_save_and_reclaim((void *)f_10893,c,av);}
4631 /* synrules.scm:264: process-template */
4632 t2=((C_word*)((C_word*)t0)[2])[1];{
4633 C_word *av2;
4634 if(c >= 5) {
4635   av2=av;
4636 } else {
4637   av2=C_alloc(5);
4638 }
4639 av2[0]=t2;
4640 av2[1]=((C_word*)t0)[3];
4641 av2[2]=t1;
4642 av2[3]=((C_word*)t0)[4];
4643 av2[4]=((C_word*)t0)[5];
4644 ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
4645 
4646 /* k10895 in k10874 in k10871 in k10868 in k10856 in k10850 in k10847 */
f_10897(C_word c,C_word * av)4647 static void C_ccall f_10897(C_word c,C_word *av){
4648 C_word tmp;
4649 C_word t0=av[0];
4650 C_word t1=av[1];
4651 C_word t2;
4652 C_word t3;
4653 C_word t4;
4654 C_word *a;
4655 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
4656 C_save_and_reclaim((void *)f_10897,c,av);}
4657 a=C_alloc(10);
4658 if(C_truep(C_i_nullp(t1))){
4659 t2=((C_word*)t0)[2];{
4660 C_word *av2=av;
4661 av2[0]=t2;
4662 av2[1]=((C_word*)t0)[3];
4663 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4664 else{
4665 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10889,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
4666 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10893,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
4667 /* synrules.scm:264: segment-tail */
4668 t4=((C_word*)((C_word*)t0)[7])[1];{
4669 C_word *av2;
4670 if(c >= 3) {
4671   av2=av;
4672 } else {
4673   av2=C_alloc(3);
4674 }
4675 av2[0]=t4;
4676 av2[1]=t3;
4677 av2[2]=((C_word*)t0)[8];
4678 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}
4679 
4680 /* doloop3291 in k10871 in k10868 in k10856 in k10850 in k10847 */
f_10899(C_word t0,C_word t1,C_word t2,C_word t3)4681 static void C_fcall f_10899(C_word t0,C_word t1,C_word t2,C_word t3){
4682 C_word tmp;
4683 C_word t4;
4684 C_word t5;
4685 C_word t6;
4686 C_word t7;
4687 C_word t8;
4688 C_word t9;
4689 C_word t10;
4690 C_word *a;
4691 loop:
4692 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
4693 C_save_and_reclaim_args((void *)trf_10899,4,t0,t1,t2,t3);}
4694 a=C_alloc(9);
4695 t4=C_eqp(t2,C_fix(1));
4696 if(C_truep(t4)){
4697 t5=t1;{
4698 C_word av2[2];
4699 av2[0]=t5;
4700 av2[1]=t3;
4701 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
4702 else{
4703 t5=C_fixnum_difference(t2,C_fix(1));
4704 t6=C_a_i_list(&a,3,lf[220],lf[71],t3);
4705 t8=t1;
4706 t9=t5;
4707 t10=t6;
4708 t1=t8;
4709 t2=t9;
4710 t3=t10;
4711 goto loop;}}
4712 
4713 /* k10918 in k10868 in k10856 in k10850 in k10847 */
f_10920(C_word t0,C_word t1)4714 static void C_fcall f_10920(C_word t0,C_word t1){
4715 C_word tmp;
4716 C_word t2;
4717 C_word t3;
4718 C_word t4;
4719 C_word *a;
4720 if(C_unlikely(!C_demand(C_calculate_demand(15,0,1)))){
4721 C_save_and_reclaim_args((void *)trf_10920,2,t0,t1);}
4722 a=C_alloc(15);
4723 if(C_truep(t1)){
4724 t2=((C_word*)t0)[2];
4725 f_10873(t2,((C_word*)t0)[3]);}
4726 else{
4727 t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[3]);
4728 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]);
4729 t4=((C_word*)t0)[2];
4730 f_10873(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t3));}}
4731 
4732 /* k10970 in k10847 */
f_10972(C_word c,C_word * av)4733 static void C_ccall f_10972(C_word c,C_word *av){
4734 C_word tmp;
4735 C_word t0=av[0];
4736 C_word t1=av[1];
4737 C_word t2;
4738 C_word t3;
4739 C_word *a;
4740 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
4741 C_save_and_reclaim((void *)f_10972,c,av);}
4742 a=C_alloc(5);
4743 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
4744 /* synrules.scm:268: process-template */
4745 t3=((C_word*)((C_word*)t0)[4])[1];{
4746 C_word *av2;
4747 if(c >= 5) {
4748   av2=av;
4749 } else {
4750   av2=C_alloc(5);
4751 }
4752 av2[0]=t3;
4753 av2[1]=t2;
4754 av2[2]=C_u_i_cdr(((C_word*)t0)[5]);
4755 av2[3]=((C_word*)t0)[6];
4756 av2[4]=((C_word*)t0)[7];
4757 ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
4758 
4759 /* k10974 in k10970 in k10847 */
f_10976(C_word c,C_word * av)4760 static void C_ccall f_10976(C_word c,C_word *av){
4761 C_word tmp;
4762 C_word t0=av[0];
4763 C_word t1=av[1];
4764 C_word t2;
4765 C_word *a;
4766 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
4767 C_save_and_reclaim((void *)f_10976,c,av);}
4768 a=C_alloc(9);
4769 t2=((C_word*)t0)[2];{
4770 C_word *av2=av;
4771 av2[0]=t2;
4772 av2[1]=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1);
4773 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4774 
4775 /* k10991 in k10847 */
f_10993(C_word c,C_word * av)4776 static void C_ccall f_10993(C_word c,C_word *av){
4777 C_word tmp;
4778 C_word t0=av[0];
4779 C_word t1=av[1];
4780 C_word t2;
4781 C_word *a;
4782 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
4783 C_save_and_reclaim((void *)f_10993,c,av);}
4784 a=C_alloc(6);
4785 t2=((C_word*)t0)[2];{
4786 C_word *av2=av;
4787 av2[0]=t2;
4788 av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t1);
4789 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4790 
4791 /* k10995 in k10847 */
f_10997(C_word c,C_word * av)4792 static void C_ccall f_10997(C_word c,C_word *av){
4793 C_word tmp;
4794 C_word t0=av[0];
4795 C_word t1=av[1];
4796 C_word t2;
4797 C_word *a;
4798 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
4799 C_save_and_reclaim((void *)f_10997,c,av);}
4800 /* synrules.scm:271: process-template */
4801 t2=((C_word*)((C_word*)t0)[2])[1];{
4802 C_word *av2;
4803 if(c >= 5) {
4804   av2=av;
4805 } else {
4806   av2=C_alloc(5);
4807 }
4808 av2[0]=t2;
4809 av2[1]=((C_word*)t0)[3];
4810 av2[2]=t1;
4811 av2[3]=((C_word*)t0)[4];
4812 av2[4]=((C_word*)t0)[5];
4813 ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
4814 
4815 /* f_11002 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_11002(C_word c,C_word * av)4816 static void C_ccall f_11002(C_word c,C_word *av){
4817 C_word tmp;
4818 C_word t0=av[0];
4819 C_word t1=av[1];
4820 C_word t2=av[2];
4821 C_word t3=av[3];
4822 C_word t4=av[4];
4823 C_word t5=av[5];
4824 C_word t6;
4825 C_word t7;
4826 C_word *a;
4827 if(c!=6) C_bad_argc_2(c,6,t0);
4828 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
4829 C_save_and_reclaim((void *)f_11002,c,av);}
4830 a=C_alloc(7);
4831 if(C_truep(C_i_symbolp(t2))){
4832 if(C_truep(C_i_memq(t2,((C_word*)t0)[2]))){
4833 t6=t1;{
4834 C_word *av2=av;
4835 av2[0]=t6;
4836 av2[1]=t4;
4837 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
4838 else{
4839 t6=C_a_i_cons(&a,2,t2,t3);
4840 t7=t1;{
4841 C_word *av2=av;
4842 av2[0]=t7;
4843 av2[1]=C_a_i_cons(&a,2,t6,t4);
4844 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
4845 else{
4846 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11028,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
4847 /* synrules.scm:282: segment-pattern? */
4848 t7=((C_word*)((C_word*)t0)[4])[1];{
4849 C_word *av2=av;
4850 av2[0]=t7;
4851 av2[1]=t6;
4852 av2[2]=t2;
4853 av2[3]=t5;
4854 ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}
4855 
4856 /* k11026 */
f_11028(C_word c,C_word * av)4857 static void C_ccall f_11028(C_word c,C_word *av){
4858 C_word tmp;
4859 C_word t0=av[0];
4860 C_word t1=av[1];
4861 C_word t2;
4862 C_word t3;
4863 C_word t4;
4864 C_word t5;
4865 C_word *a;
4866 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
4867 C_save_and_reclaim((void *)f_11028,c,av);}
4868 a=C_alloc(6);
4869 if(C_truep(t1)){
4870 t2=C_i_car(((C_word*)t0)[2]);
4871 t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
4872 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11043,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4873 /* synrules.scm:284: meta-variables */
4874 t5=((C_word*)((C_word*)t0)[4])[1];{
4875 C_word *av2;
4876 if(c >= 6) {
4877   av2=av;
4878 } else {
4879   av2=C_alloc(6);
4880 }
4881 av2[0]=t5;
4882 av2[1]=t4;
4883 av2[2]=C_i_cddr(((C_word*)t0)[2]);
4884 av2[3]=((C_word*)t0)[3];
4885 av2[4]=((C_word*)t0)[6];
4886 av2[5]=C_SCHEME_TRUE;
4887 ((C_proc)C_fast_retrieve_proc(t5))(6,av2);}}
4888 else{
4889 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
4890 t2=C_u_i_car(((C_word*)t0)[2]);
4891 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11062,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
4892 /* synrules.scm:287: meta-variables */
4893 t4=((C_word*)((C_word*)t0)[4])[1];{
4894 C_word *av2;
4895 if(c >= 6) {
4896   av2=av;
4897 } else {
4898   av2=C_alloc(6);
4899 }
4900 av2[0]=t4;
4901 av2[1]=t3;
4902 av2[2]=C_u_i_cdr(((C_word*)t0)[2]);
4903 av2[3]=((C_word*)t0)[3];
4904 av2[4]=((C_word*)t0)[6];
4905 av2[5]=C_SCHEME_FALSE;
4906 ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}
4907 else{
4908 if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){
4909 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11077,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
4910 /* synrules.scm:289: scheme#vector->list */
4911 t3=*((C_word*)lf[181]+1);{
4912 C_word *av2;
4913 if(c >= 3) {
4914   av2=av;
4915 } else {
4916   av2=C_alloc(3);
4917 }
4918 av2[0]=t3;
4919 av2[1]=t2;
4920 av2[2]=((C_word*)t0)[2];
4921 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
4922 else{
4923 t2=((C_word*)t0)[5];{
4924 C_word *av2=av;
4925 av2[0]=t2;
4926 av2[1]=((C_word*)t0)[6];
4927 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}
4928 
4929 /* k11041 in k11026 */
f_11043(C_word c,C_word * av)4930 static void C_ccall f_11043(C_word c,C_word *av){
4931 C_word tmp;
4932 C_word t0=av[0];
4933 C_word t1=av[1];
4934 C_word t2;
4935 C_word *a;
4936 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
4937 C_save_and_reclaim((void *)f_11043,c,av);}
4938 /* synrules.scm:283: meta-variables */
4939 t2=((C_word*)((C_word*)t0)[2])[1];{
4940 C_word *av2;
4941 if(c >= 6) {
4942   av2=av;
4943 } else {
4944   av2=C_alloc(6);
4945 }
4946 av2[0]=t2;
4947 av2[1]=((C_word*)t0)[3];
4948 av2[2]=((C_word*)t0)[4];
4949 av2[3]=((C_word*)t0)[5];
4950 av2[4]=t1;
4951 av2[5]=C_SCHEME_FALSE;
4952 ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}
4953 
4954 /* k11060 in k11026 */
f_11062(C_word c,C_word * av)4955 static void C_ccall f_11062(C_word c,C_word *av){
4956 C_word tmp;
4957 C_word t0=av[0];
4958 C_word t1=av[1];
4959 C_word t2;
4960 C_word *a;
4961 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
4962 C_save_and_reclaim((void *)f_11062,c,av);}
4963 /* synrules.scm:286: meta-variables */
4964 t2=((C_word*)((C_word*)t0)[2])[1];{
4965 C_word *av2;
4966 if(c >= 6) {
4967   av2=av;
4968 } else {
4969   av2=C_alloc(6);
4970 }
4971 av2[0]=t2;
4972 av2[1]=((C_word*)t0)[3];
4973 av2[2]=((C_word*)t0)[4];
4974 av2[3]=((C_word*)t0)[5];
4975 av2[4]=t1;
4976 av2[5]=C_SCHEME_FALSE;
4977 ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}
4978 
4979 /* k11075 in k11026 */
f_11077(C_word c,C_word * av)4980 static void C_ccall f_11077(C_word c,C_word *av){
4981 C_word tmp;
4982 C_word t0=av[0];
4983 C_word t1=av[1];
4984 C_word t2;
4985 C_word *a;
4986 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
4987 C_save_and_reclaim((void *)f_11077,c,av);}
4988 /* synrules.scm:289: meta-variables */
4989 t2=((C_word*)((C_word*)t0)[2])[1];{
4990 C_word *av2;
4991 if(c >= 6) {
4992   av2=av;
4993 } else {
4994   av2=C_alloc(6);
4995 }
4996 av2[0]=t2;
4997 av2[1]=((C_word*)t0)[3];
4998 av2[2]=t1;
4999 av2[3]=((C_word*)t0)[4];
5000 av2[4]=((C_word*)t0)[5];
5001 av2[5]=C_SCHEME_FALSE;
5002 ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}
5003 
5004 /* f_11079 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_11079(C_word c,C_word * av)5005 static void C_ccall f_11079(C_word c,C_word *av){
5006 C_word tmp;
5007 C_word t0=av[0];
5008 C_word t1=av[1];
5009 C_word t2=av[2];
5010 C_word t3=av[3];
5011 C_word t4=av[4];
5012 C_word t5=av[5];
5013 C_word t6;
5014 C_word t7;
5015 C_word t8;
5016 C_word t9;
5017 C_word t10;
5018 C_word *a;
5019 if(c!=6) C_bad_argc_2(c,6,t0);
5020 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
5021 C_save_and_reclaim((void *)f_11079,c,av);}
5022 a=C_alloc(8);
5023 if(C_truep(C_i_symbolp(t2))){
5024 t6=C_i_memq(t2,t5);
5025 if(C_truep(C_i_not(t6))){
5026 t7=C_i_assq(t2,t4);
5027 if(C_truep(t7)){
5028 t8=C_i_cdr(t7);
5029 t9=C_fixnum_greater_or_equal_p(t8,t3);
5030 t10=t1;{
5031 C_word *av2=av;
5032 av2[0]=t10;
5033 av2[1]=(C_truep(t9)?C_a_i_cons(&a,2,t2,t5):t5);
5034 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
5035 else{
5036 t8=t1;{
5037 C_word *av2=av;
5038 av2[0]=t8;
5039 av2[1]=t5;
5040 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
5041 else{
5042 t7=t1;{
5043 C_word *av2=av;
5044 av2[0]=t7;
5045 av2[1]=t5;
5046 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
5047 else{
5048 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11121,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
5049 /* synrules.scm:301: segment-template? */
5050 t7=((C_word*)((C_word*)t0)[3])[1];{
5051 C_word *av2=av;
5052 av2[0]=t7;
5053 av2[1]=t6;
5054 av2[2]=t2;
5055 ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}}
5056 
5057 /* k11119 */
f_11121(C_word c,C_word * av)5058 static void C_ccall f_11121(C_word c,C_word *av){
5059 C_word tmp;
5060 C_word t0=av[0];
5061 C_word t1=av[1];
5062 C_word t2;
5063 C_word t3;
5064 C_word t4;
5065 C_word *a;
5066 if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
5067 C_save_and_reclaim((void *)f_11121,c,av);}
5068 a=C_alloc(7);
5069 if(C_truep(t1)){
5070 t2=C_i_car(((C_word*)t0)[2]);
5071 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11132,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
5072 /* synrules.scm:304: free-meta-variables */
5073 t4=((C_word*)((C_word*)t0)[3])[1];{
5074 C_word *av2;
5075 if(c >= 6) {
5076   av2=av;
5077 } else {
5078   av2=C_alloc(6);
5079 }
5080 av2[0]=t4;
5081 av2[1]=t3;
5082 av2[2]=C_i_cddr(((C_word*)t0)[2]);
5083 av2[3]=((C_word*)t0)[5];
5084 av2[4]=((C_word*)t0)[6];
5085 av2[5]=((C_word*)t0)[7];
5086 ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}
5087 else{
5088 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
5089 t2=C_u_i_car(((C_word*)t0)[2]);
5090 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11151,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
5091 /* synrules.scm:309: free-meta-variables */
5092 t4=((C_word*)((C_word*)t0)[3])[1];{
5093 C_word *av2;
5094 if(c >= 6) {
5095   av2=av;
5096 } else {
5097   av2=C_alloc(6);
5098 }
5099 av2[0]=t4;
5100 av2[1]=t3;
5101 av2[2]=C_u_i_cdr(((C_word*)t0)[2]);
5102 av2[3]=((C_word*)t0)[5];
5103 av2[4]=((C_word*)t0)[6];
5104 av2[5]=((C_word*)t0)[7];
5105 ((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}
5106 else{
5107 if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){
5108 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11166,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
5109 /* synrules.scm:312: scheme#vector->list */
5110 t3=*((C_word*)lf[181]+1);{
5111 C_word *av2;
5112 if(c >= 3) {
5113   av2=av;
5114 } else {
5115   av2=C_alloc(3);
5116 }
5117 av2[0]=t3;
5118 av2[1]=t2;
5119 av2[2]=((C_word*)t0)[2];
5120 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5121 else{
5122 t2=((C_word*)t0)[4];{
5123 C_word *av2=av;
5124 av2[0]=t2;
5125 av2[1]=((C_word*)t0)[7];
5126 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}
5127 
5128 /* k11130 in k11119 */
f_11132(C_word c,C_word * av)5129 static void C_ccall f_11132(C_word c,C_word *av){
5130 C_word tmp;
5131 C_word t0=av[0];
5132 C_word t1=av[1];
5133 C_word t2;
5134 C_word *a;
5135 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
5136 C_save_and_reclaim((void *)f_11132,c,av);}
5137 /* synrules.scm:302: free-meta-variables */
5138 t2=((C_word*)((C_word*)t0)[2])[1];{
5139 C_word *av2;
5140 if(c >= 6) {
5141   av2=av;
5142 } else {
5143   av2=C_alloc(6);
5144 }
5145 av2[0]=t2;
5146 av2[1]=((C_word*)t0)[3];
5147 av2[2]=((C_word*)t0)[4];
5148 av2[3]=((C_word*)t0)[5];
5149 av2[4]=((C_word*)t0)[6];
5150 av2[5]=t1;
5151 ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}
5152 
5153 /* k11149 in k11119 */
f_11151(C_word c,C_word * av)5154 static void C_ccall f_11151(C_word c,C_word *av){
5155 C_word tmp;
5156 C_word t0=av[0];
5157 C_word t1=av[1];
5158 C_word t2;
5159 C_word *a;
5160 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
5161 C_save_and_reclaim((void *)f_11151,c,av);}
5162 /* synrules.scm:307: free-meta-variables */
5163 t2=((C_word*)((C_word*)t0)[2])[1];{
5164 C_word *av2;
5165 if(c >= 6) {
5166   av2=av;
5167 } else {
5168   av2=C_alloc(6);
5169 }
5170 av2[0]=t2;
5171 av2[1]=((C_word*)t0)[3];
5172 av2[2]=((C_word*)t0)[4];
5173 av2[3]=((C_word*)t0)[5];
5174 av2[4]=((C_word*)t0)[6];
5175 av2[5]=t1;
5176 ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}
5177 
5178 /* k11164 in k11119 */
f_11166(C_word c,C_word * av)5179 static void C_ccall f_11166(C_word c,C_word *av){
5180 C_word tmp;
5181 C_word t0=av[0];
5182 C_word t1=av[1];
5183 C_word t2;
5184 C_word *a;
5185 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
5186 C_save_and_reclaim((void *)f_11166,c,av);}
5187 /* synrules.scm:312: free-meta-variables */
5188 t2=((C_word*)((C_word*)t0)[2])[1];{
5189 C_word *av2;
5190 if(c >= 6) {
5191   av2=av;
5192 } else {
5193   av2=C_alloc(6);
5194 }
5195 av2[0]=t2;
5196 av2[1]=((C_word*)t0)[3];
5197 av2[2]=t1;
5198 av2[3]=((C_word*)t0)[4];
5199 av2[4]=((C_word*)t0)[5];
5200 av2[5]=((C_word*)t0)[6];
5201 ((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}
5202 
5203 /* f_11168 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_11168(C_word c,C_word * av)5204 static void C_ccall f_11168(C_word c,C_word *av){
5205 C_word tmp;
5206 C_word t0=av[0];
5207 C_word t1=av[1];
5208 C_word t2=av[2];
5209 C_word t3=av[3];
5210 C_word t4;
5211 C_word t5;
5212 C_word *a;
5213 if(c!=4) C_bad_argc_2(c,4,t0);
5214 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
5215 C_save_and_reclaim((void *)f_11168,c,av);}
5216 a=C_alloc(5);
5217 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11175,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5218 /* synrules.scm:316: segment-template? */
5219 t5=((C_word*)((C_word*)t0)[2])[1];{
5220 C_word *av2=av;
5221 av2[0]=t5;
5222 av2[1]=t4;
5223 av2[2]=t2;
5224 ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
5225 
5226 /* k11173 */
f_11175(C_word c,C_word * av)5227 static void C_ccall f_11175(C_word c,C_word *av){
5228 C_word tmp;
5229 C_word t0=av[0];
5230 C_word t1=av[1];
5231 C_word t2;
5232 C_word t3;
5233 C_word *a;
5234 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5235 C_save_and_reclaim((void *)f_11175,c,av);}
5236 if(C_truep(t1)){
5237 if(C_truep(((C_word*)t0)[2])){
5238 /* synrules.scm:319: ##sys#syntax-error-hook */
5239 t2=*((C_word*)lf[43]+1);{
5240 C_word *av2;
5241 if(c >= 4) {
5242   av2=av;
5243 } else {
5244   av2=C_alloc(4);
5245 }
5246 av2[0]=t2;
5247 av2[1]=((C_word*)t0)[3];
5248 av2[2]=lf[221];
5249 av2[3]=((C_word*)t0)[4];
5250 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
5251 else{
5252 t2=C_i_listp(((C_word*)t0)[4]);
5253 if(C_truep(C_i_not(t2))){
5254 /* synrules.scm:321: ##sys#syntax-error-hook */
5255 t3=*((C_word*)lf[43]+1);{
5256 C_word *av2;
5257 if(c >= 4) {
5258   av2=av;
5259 } else {
5260   av2=C_alloc(4);
5261 }
5262 av2[0]=t3;
5263 av2[1]=((C_word*)t0)[3];
5264 av2[2]=lf[222];
5265 av2[3]=((C_word*)t0)[4];
5266 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
5267 else{
5268 t3=((C_word*)t0)[3];{
5269 C_word *av2=av;
5270 av2[0]=t3;
5271 av2[1]=C_SCHEME_TRUE;
5272 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
5273 else{
5274 t2=((C_word*)t0)[3];{
5275 C_word *av2=av;
5276 av2[0]=t2;
5277 av2[1]=C_SCHEME_FALSE;
5278 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
5279 
5280 /* f_11196 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_11196(C_word c,C_word * av)5281 static void C_ccall f_11196(C_word c,C_word *av){
5282 C_word tmp;
5283 C_word t0=av[0];
5284 C_word t1=av[1];
5285 C_word t2=av[2];
5286 C_word t3;
5287 C_word *a;
5288 if(c!=3) C_bad_argc_2(c,3,t0);
5289 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5290 C_save_and_reclaim((void *)f_11196,c,av);}
5291 if(C_truep(C_i_pairp(t2))){
5292 if(C_truep(C_i_pairp(C_u_i_cdr(t2)))){
5293 /* synrules.scm:327: ellipsis? */
5294 t3=((C_word*)((C_word*)t0)[2])[1];{
5295 C_word *av2=av;
5296 av2[0]=t3;
5297 av2[1]=t1;
5298 av2[2]=C_i_cadr(t2);
5299 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
5300 else{
5301 t3=t1;{
5302 C_word *av2=av;
5303 av2[0]=t3;
5304 av2[1]=C_SCHEME_FALSE;
5305 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
5306 else{
5307 t3=t1;{
5308 C_word *av2=av;
5309 av2[0]=t3;
5310 av2[1]=C_SCHEME_FALSE;
5311 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
5312 
5313 /* f_11220 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_11220(C_word c,C_word * av)5314 static void C_ccall f_11220(C_word c,C_word *av){
5315 C_word tmp;
5316 C_word t0=av[0];
5317 C_word t1=av[1];
5318 C_word t2=av[2];
5319 C_word t3;
5320 C_word t4;
5321 C_word *a;
5322 if(c!=3) C_bad_argc_2(c,3,t0);
5323 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
5324 C_save_and_reclaim((void *)f_11220,c,av);}
5325 a=C_alloc(5);
5326 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11227,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5327 /* synrules.scm:332: segment-template? */
5328 t4=((C_word*)((C_word*)t0)[3])[1];{
5329 C_word *av2=av;
5330 av2[0]=t4;
5331 av2[1]=t3;
5332 av2[2]=t2;
5333 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
5334 
5335 /* k11225 */
f_11227(C_word c,C_word * av)5336 static void C_ccall f_11227(C_word c,C_word *av){
5337 C_word tmp;
5338 C_word t0=av[0];
5339 C_word t1=av[1];
5340 C_word t2;
5341 C_word t3;
5342 C_word *a;
5343 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
5344 C_save_and_reclaim((void *)f_11227,c,av);}
5345 a=C_alloc(3);
5346 if(C_truep(t1)){
5347 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
5348 /* synrules.scm:333: segment-depth */
5349 t3=((C_word*)((C_word*)t0)[3])[1];{
5350 C_word *av2;
5351 if(c >= 3) {
5352   av2=av;
5353 } else {
5354   av2=C_alloc(3);
5355 }
5356 av2[0]=t3;
5357 av2[1]=t2;
5358 av2[2]=C_i_cdr(((C_word*)t0)[4]);
5359 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
5360 else{
5361 t2=((C_word*)t0)[2];{
5362 C_word *av2=av;
5363 av2[0]=t2;
5364 av2[1]=C_fix(0);
5365 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
5366 
5367 /* k11232 in k11225 */
f_11234(C_word c,C_word * av)5368 static void C_ccall f_11234(C_word c,C_word *av){
5369 C_word tmp;
5370 C_word t0=av[0];
5371 C_word t1=av[1];
5372 C_word t2;
5373 C_word *a;
5374 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
5375 C_save_and_reclaim((void *)f_11234,c,av);}
5376 t2=((C_word*)t0)[2];{
5377 C_word *av2=av;
5378 av2[0]=t2;
5379 av2[1]=C_fixnum_plus(C_fix(1),t1);
5380 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5381 
5382 /* f_11240 in k10192 in k10188 in k10184 in k10180 in k10175 in k10171 in k10167 in k10163 in k10158 in k10151 in k10146 in k10142 in k10138 in k10134 in k10130 in k10126 in k10120 in k10115 in k10111 in k10096 in k11310 in ... */
f_11240(C_word c,C_word * av)5383 static void C_ccall f_11240(C_word c,C_word *av){
5384 C_word tmp;
5385 C_word t0=av[0];
5386 C_word t1=av[1];
5387 C_word t2=av[2];
5388 C_word t3;
5389 C_word t4;
5390 C_word t5;
5391 C_word t6;
5392 C_word t7;
5393 C_word *a;
5394 if(c!=3) C_bad_argc_2(c,3,t0);
5395 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
5396 C_save_and_reclaim((void *)f_11240,c,av);}
5397 a=C_alloc(7);
5398 t3=C_i_cdr(t2);
5399 t4=C_SCHEME_UNDEFINED;
5400 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
5401 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11250,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li122),tmp=(C_word)a,a+=5,tmp));
5402 t7=((C_word*)t5)[1];
5403 f_11250(t7,t1,t3);}
5404 
5405 /* loop */
f_11250(C_word t0,C_word t1,C_word t2)5406 static void C_fcall f_11250(C_word t0,C_word t1,C_word t2){
5407 C_word tmp;
5408 C_word t3;
5409 C_word t4;
5410 C_word *a;
5411 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
5412 C_save_and_reclaim_args((void *)trf_11250,3,t0,t1,t2);}
5413 a=C_alloc(5);
5414 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11257,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5415 if(C_truep(C_i_pairp(t2))){
5416 /* synrules.scm:341: ellipsis? */
5417 t4=((C_word*)((C_word*)t0)[3])[1];{
5418 C_word av2[3];
5419 av2[0]=t4;
5420 av2[1]=t3;
5421 av2[2]=C_u_i_car(t2);
5422 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
5423 else{
5424 t4=t1;{
5425 C_word av2[2];
5426 av2[0]=t4;
5427 av2[1]=t2;
5428 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
5429 
5430 /* k11255 in loop */
f_11257(C_word c,C_word * av)5431 static void C_ccall f_11257(C_word c,C_word *av){
5432 C_word tmp;
5433 C_word t0=av[0];
5434 C_word t1=av[1];
5435 C_word t2;
5436 C_word *a;
5437 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5438 C_save_and_reclaim((void *)f_11257,c,av);}
5439 if(C_truep(t1)){
5440 /* synrules.scm:342: loop */
5441 t2=((C_word*)((C_word*)t0)[2])[1];
5442 f_11250(t2,((C_word*)t0)[3],C_i_cdr(((C_word*)t0)[4]));}
5443 else{
5444 t2=((C_word*)t0)[3];{
5445 C_word *av2=av;
5446 av2[0]=t2;
5447 av2[1]=((C_word*)t0)[4];
5448 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
5449 
5450 /* k11276 in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_11278(C_word c,C_word * av)5451 static void C_ccall f_11278(C_word c,C_word *av){
5452 C_word tmp;
5453 C_word t0=av[0];
5454 C_word t1=av[1];
5455 C_word t2;
5456 C_word t3;
5457 C_word t4;
5458 C_word t5;
5459 C_word *a;
5460 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
5461 C_save_and_reclaim((void *)f_11278,c,av);}
5462 a=C_alloc(6);
5463 t2=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#scheme-macro-environment ...) */,t1);
5464 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11282,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
5465 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11294,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
5466 /* expand.scm:1585: ##sys#macro-environment */
5467 t5=*((C_word*)lf[18]+1);{
5468 C_word *av2=av;
5469 av2[0]=t5;
5470 av2[1]=t4;
5471 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
5472 
5473 /* k11280 in k11276 in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11282(C_word c,C_word * av)5474 static void C_ccall f_11282(C_word c,C_word *av){
5475 C_word tmp;
5476 C_word t0=av[0];
5477 C_word t1=av[1];
5478 C_word t2;
5479 C_word t3;
5480 C_word t4;
5481 C_word t5;
5482 C_word *a;
5483 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
5484 C_save_and_reclaim((void *)f_11282,c,av);}
5485 a=C_alloc(6);
5486 t2=C_mutate((C_word*)lf[90]+1 /* (set! ##sys#default-macro-environment ...) */,t1);
5487 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11286,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
5488 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11290,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
5489 /* expand.scm:1587: ##sys#macro-environment */
5490 t5=*((C_word*)lf[18]+1);{
5491 C_word *av2=av;
5492 av2[0]=t5;
5493 av2[1]=t4;
5494 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
5495 
5496 /* k11284 in k11280 in k11276 in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11286(C_word c,C_word * av)5497 static void C_ccall f_11286(C_word c,C_word *av){
5498 C_word tmp;
5499 C_word t0=av[0];
5500 C_word t1=av[1];
5501 C_word t2;
5502 C_word t3;
5503 C_word *a;
5504 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
5505 C_save_and_reclaim((void *)f_11286,c,av);}
5506 t2=C_mutate((C_word*)lf[193]+1 /* (set! ##sys#meta-macro-environment ...) */,t1);
5507 t3=((C_word*)t0)[2];{
5508 C_word *av2=av;
5509 av2[0]=t3;
5510 av2[1]=C_SCHEME_UNDEFINED;
5511 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5512 
5513 /* k11288 in k11280 in k11276 in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11290(C_word c,C_word * av)5514 static void C_ccall f_11290(C_word c,C_word *av){
5515 C_word tmp;
5516 C_word t0=av[0];
5517 C_word t1=av[1];
5518 C_word t2;
5519 C_word *a;
5520 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5521 C_save_and_reclaim((void *)f_11290,c,av);}
5522 /* expand.scm:1587: chicken.base#make-parameter */
5523 t2=*((C_word*)lf[194]+1);{
5524 C_word *av2;
5525 if(c >= 3) {
5526   av2=av;
5527 } else {
5528   av2=C_alloc(3);
5529 }
5530 av2[0]=t2;
5531 av2[1]=((C_word*)t0)[2];
5532 av2[2]=t1;
5533 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
5534 
5535 /* k11292 in k11276 in k10015 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11294(C_word c,C_word * av)5536 static void C_ccall f_11294(C_word c,C_word *av){
5537 C_word tmp;
5538 C_word t0=av[0];
5539 C_word t1=av[1];
5540 C_word t2;
5541 C_word *a;
5542 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5543 C_save_and_reclaim((void *)f_11294,c,av);}
5544 /* expand.scm:1585: chicken.internal#fixup-macro-environment */
5545 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[195]+1));
5546 C_word *av2;
5547 if(c >= 3) {
5548   av2=av;
5549 } else {
5550   av2=C_alloc(3);
5551 }
5552 av2[0]=*((C_word*)lf[195]+1);
5553 av2[1]=((C_word*)t0)[2];
5554 av2[2]=t1;
5555 tp(3,av2);}}
5556 
5557 /* k11296 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11298(C_word c,C_word * av)5558 static void C_ccall f_11298(C_word c,C_word *av){
5559 C_word tmp;
5560 C_word t0=av[0];
5561 C_word t1=av[1];
5562 C_word t2;
5563 C_word *a;
5564 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
5565 C_save_and_reclaim((void *)f_11298,c,av);}
5566 /* synrules.scm:43: ##sys#extend-macro-environment */
5567 t2=*((C_word*)lf[30]+1);{
5568 C_word *av2;
5569 if(c >= 5) {
5570   av2=av;
5571 } else {
5572   av2=C_alloc(5);
5573 }
5574 av2[0]=t2;
5575 av2[1]=((C_word*)t0)[2];
5576 av2[2]=lf[197];
5577 av2[3]=C_SCHEME_END_OF_LIST;
5578 av2[4]=t1;
5579 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
5580 
5581 /* a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11300(C_word c,C_word * av)5582 static void C_ccall f_11300(C_word c,C_word *av){
5583 C_word tmp;
5584 C_word t0=av[0];
5585 C_word t1=av[1];
5586 C_word t2=av[2];
5587 C_word t3=av[3];
5588 C_word t4=av[4];
5589 C_word t5;
5590 C_word t6;
5591 C_word *a;
5592 if(c!=5) C_bad_argc_2(c,5,t0);
5593 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
5594 C_save_and_reclaim((void *)f_11300,c,av);}
5595 a=C_alloc(6);
5596 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11304,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
5597 /* synrules.scm:48: ##sys#check-syntax */
5598 t6=*((C_word*)lf[56]+1);{
5599 C_word *av2=av;
5600 av2[0]=t6;
5601 av2[1]=t5;
5602 av2[2]=lf[197];
5603 av2[3]=t2;
5604 av2[4]=lf[237];
5605 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
5606 
5607 /* k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_11304(C_word c,C_word * av)5608 static void C_ccall f_11304(C_word c,C_word *av){
5609 C_word tmp;
5610 C_word t0=av[0];
5611 C_word t1=av[1];
5612 C_word t2;
5613 C_word t3;
5614 C_word t4;
5615 C_word t5;
5616 C_word t6;
5617 C_word t7;
5618 C_word t8;
5619 C_word t9;
5620 C_word t10;
5621 C_word t11;
5622 C_word t12;
5623 C_word *a;
5624 if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){
5625 C_save_and_reclaim((void *)f_11304,c,av);}
5626 a=C_alloc(20);
5627 t2=C_i_cadr(((C_word*)t0)[2]);
5628 t3=t2;
5629 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
5630 t5=C_u_i_cdr(((C_word*)t0)[2]);
5631 t6=C_u_i_cdr(t5);
5632 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
5633 t8=lf[198];
5634 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
5635 t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11312,a[2]=t9,a[3]=t7,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
5636 if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){
5637 t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11321,a[2]=t9,a[3]=t4,a[4]=t7,a[5]=t10,tmp=(C_word)a,a+=6,tmp);
5638 /* synrules.scm:53: ##sys#check-syntax */
5639 t12=*((C_word*)lf[56]+1);{
5640 C_word *av2;
5641 if(c >= 5) {
5642   av2=av;
5643 } else {
5644   av2=C_alloc(5);
5645 }
5646 av2[0]=t12;
5647 av2[1]=t11;
5648 av2[2]=lf[197];
5649 av2[3]=((C_word*)t0)[2];
5650 av2[4]=lf[236];
5651 ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}
5652 else{
5653 t11=t10;
5654 f_11312(t11,C_SCHEME_UNDEFINED);}}
5655 
5656 /* k11310 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11312(C_word t0,C_word t1)5657 static void C_fcall f_11312(C_word t0,C_word t1){
5658 C_word tmp;
5659 C_word t2;
5660 C_word t3;
5661 C_word t4;
5662 C_word t5;
5663 C_word t6;
5664 C_word t7;
5665 C_word t8;
5666 C_word t9;
5667 C_word t10;
5668 C_word t11;
5669 C_word t12;
5670 C_word t13;
5671 C_word t14;
5672 C_word t15;
5673 C_word t16;
5674 C_word t17;
5675 C_word t18;
5676 C_word t19;
5677 C_word t20;
5678 C_word t21;
5679 C_word t22;
5680 C_word t23;
5681 C_word t24;
5682 C_word t25;
5683 C_word t26;
5684 C_word t27;
5685 C_word t28;
5686 C_word t29;
5687 C_word t30;
5688 C_word t31;
5689 C_word t32;
5690 C_word t33;
5691 C_word t34;
5692 C_word t35;
5693 C_word t36;
5694 C_word t37;
5695 C_word t38;
5696 C_word t39;
5697 C_word t40;
5698 C_word t41;
5699 C_word t42;
5700 C_word t43;
5701 C_word t44;
5702 C_word t45;
5703 C_word t46;
5704 C_word t47;
5705 C_word t48;
5706 C_word t49;
5707 C_word t50;
5708 C_word t51;
5709 C_word t52;
5710 C_word t53;
5711 C_word t54;
5712 C_word t55;
5713 C_word t56;
5714 C_word t57;
5715 C_word t58;
5716 C_word t59;
5717 C_word t60;
5718 C_word t61;
5719 C_word t62;
5720 C_word t63;
5721 C_word t64;
5722 C_word t65;
5723 C_word t66;
5724 C_word t67;
5725 C_word t68;
5726 C_word t69;
5727 C_word t70;
5728 C_word t71;
5729 C_word t72;
5730 C_word t73;
5731 C_word t74;
5732 C_word t75;
5733 C_word t76;
5734 C_word t77;
5735 C_word t78;
5736 C_word t79;
5737 C_word t80;
5738 C_word t81;
5739 C_word t82;
5740 C_word t83;
5741 C_word t84;
5742 C_word t85;
5743 C_word t86;
5744 C_word t87;
5745 C_word t88;
5746 C_word t89;
5747 C_word t90;
5748 C_word t91;
5749 C_word t92;
5750 C_word t93;
5751 C_word t94;
5752 C_word t95;
5753 C_word t96;
5754 C_word t97;
5755 C_word t98;
5756 C_word t99;
5757 C_word t100;
5758 C_word t101;
5759 C_word t102;
5760 C_word *a;
5761 if(C_unlikely(!C_demand(C_calculate_demand(152,0,2)))){
5762 C_save_and_reclaim_args((void *)trf_11312,2,t0,t1);}
5763 a=C_alloc(152);
5764 t2=((C_word*)((C_word*)t0)[2])[1];
5765 t3=((C_word*)((C_word*)t0)[3])[1];
5766 t4=((C_word*)((C_word*)t0)[4])[1];
5767 t5=C_SCHEME_UNDEFINED;
5768 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5769 t7=C_SCHEME_UNDEFINED;
5770 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
5771 t9=C_SCHEME_UNDEFINED;
5772 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
5773 t11=C_SCHEME_UNDEFINED;
5774 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
5775 t13=C_SCHEME_UNDEFINED;
5776 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
5777 t15=C_SCHEME_UNDEFINED;
5778 t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
5779 t17=C_SCHEME_UNDEFINED;
5780 t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
5781 t19=C_SCHEME_UNDEFINED;
5782 t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
5783 t21=C_SCHEME_UNDEFINED;
5784 t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
5785 t23=C_SCHEME_UNDEFINED;
5786 t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp);
5787 t25=C_SCHEME_UNDEFINED;
5788 t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
5789 t27=C_SCHEME_UNDEFINED;
5790 t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
5791 t29=C_SCHEME_UNDEFINED;
5792 t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp);
5793 t31=C_SCHEME_UNDEFINED;
5794 t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp);
5795 t33=C_SCHEME_UNDEFINED;
5796 t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp);
5797 t35=C_SCHEME_UNDEFINED;
5798 t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp);
5799 t37=C_SCHEME_UNDEFINED;
5800 t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp);
5801 t39=C_SCHEME_UNDEFINED;
5802 t40=(*a=C_VECTOR_TYPE|1,a[1]=t39,tmp=(C_word)a,a+=2,tmp);
5803 t41=C_SCHEME_UNDEFINED;
5804 t42=(*a=C_VECTOR_TYPE|1,a[1]=t41,tmp=(C_word)a,a+=2,tmp);
5805 t43=C_SCHEME_UNDEFINED;
5806 t44=(*a=C_VECTOR_TYPE|1,a[1]=t43,tmp=(C_word)a,a+=2,tmp);
5807 t45=C_SCHEME_UNDEFINED;
5808 t46=(*a=C_VECTOR_TYPE|1,a[1]=t45,tmp=(C_word)a,a+=2,tmp);
5809 t47=C_SCHEME_UNDEFINED;
5810 t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp);
5811 t49=C_SCHEME_UNDEFINED;
5812 t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp);
5813 t51=C_SCHEME_UNDEFINED;
5814 t52=(*a=C_VECTOR_TYPE|1,a[1]=t51,tmp=(C_word)a,a+=2,tmp);
5815 t53=C_SCHEME_UNDEFINED;
5816 t54=(*a=C_VECTOR_TYPE|1,a[1]=t53,tmp=(C_word)a,a+=2,tmp);
5817 t55=C_SCHEME_UNDEFINED;
5818 t56=(*a=C_VECTOR_TYPE|1,a[1]=t55,tmp=(C_word)a,a+=2,tmp);
5819 t57=C_SCHEME_UNDEFINED;
5820 t58=(*a=C_VECTOR_TYPE|1,a[1]=t57,tmp=(C_word)a,a+=2,tmp);
5821 t59=C_SCHEME_UNDEFINED;
5822 t60=(*a=C_VECTOR_TYPE|1,a[1]=t59,tmp=(C_word)a,a+=2,tmp);
5823 t61=C_SCHEME_UNDEFINED;
5824 t62=(*a=C_VECTOR_TYPE|1,a[1]=t61,tmp=(C_word)a,a+=2,tmp);
5825 t63=C_SCHEME_UNDEFINED;
5826 t64=(*a=C_VECTOR_TYPE|1,a[1]=t63,tmp=(C_word)a,a+=2,tmp);
5827 t65=C_SCHEME_UNDEFINED;
5828 t66=(*a=C_VECTOR_TYPE|1,a[1]=t65,tmp=(C_word)a,a+=2,tmp);
5829 t67=C_SCHEME_UNDEFINED;
5830 t68=(*a=C_VECTOR_TYPE|1,a[1]=t67,tmp=(C_word)a,a+=2,tmp);
5831 t69=C_SCHEME_UNDEFINED;
5832 t70=(*a=C_VECTOR_TYPE|1,a[1]=t69,tmp=(C_word)a,a+=2,tmp);
5833 t71=C_SCHEME_UNDEFINED;
5834 t72=(*a=C_VECTOR_TYPE|1,a[1]=t71,tmp=(C_word)a,a+=2,tmp);
5835 t73=C_SCHEME_UNDEFINED;
5836 t74=(*a=C_VECTOR_TYPE|1,a[1]=t73,tmp=(C_word)a,a+=2,tmp);
5837 t75=C_SCHEME_UNDEFINED;
5838 t76=(*a=C_VECTOR_TYPE|1,a[1]=t75,tmp=(C_word)a,a+=2,tmp);
5839 t77=C_SCHEME_UNDEFINED;
5840 t78=(*a=C_VECTOR_TYPE|1,a[1]=t77,tmp=(C_word)a,a+=2,tmp);
5841 t79=C_SCHEME_UNDEFINED;
5842 t80=(*a=C_VECTOR_TYPE|1,a[1]=t79,tmp=(C_word)a,a+=2,tmp);
5843 t81=C_SCHEME_UNDEFINED;
5844 t82=(*a=C_VECTOR_TYPE|1,a[1]=t81,tmp=(C_word)a,a+=2,tmp);
5845 t83=C_SCHEME_UNDEFINED;
5846 t84=(*a=C_VECTOR_TYPE|1,a[1]=t83,tmp=(C_word)a,a+=2,tmp);
5847 t85=C_SCHEME_UNDEFINED;
5848 t86=(*a=C_VECTOR_TYPE|1,a[1]=t85,tmp=(C_word)a,a+=2,tmp);
5849 t87=C_SCHEME_UNDEFINED;
5850 t88=(*a=C_VECTOR_TYPE|1,a[1]=t87,tmp=(C_word)a,a+=2,tmp);
5851 t89=C_SCHEME_UNDEFINED;
5852 t90=(*a=C_VECTOR_TYPE|1,a[1]=t89,tmp=(C_word)a,a+=2,tmp);
5853 t91=C_SCHEME_UNDEFINED;
5854 t92=(*a=C_VECTOR_TYPE|1,a[1]=t91,tmp=(C_word)a,a+=2,tmp);
5855 t93=C_SCHEME_UNDEFINED;
5856 t94=(*a=C_VECTOR_TYPE|1,a[1]=t93,tmp=(C_word)a,a+=2,tmp);
5857 t95=C_SCHEME_UNDEFINED;
5858 t96=(*a=C_VECTOR_TYPE|1,a[1]=t95,tmp=(C_word)a,a+=2,tmp);
5859 t97=C_SCHEME_UNDEFINED;
5860 t98=(*a=C_VECTOR_TYPE|1,a[1]=t97,tmp=(C_word)a,a+=2,tmp);
5861 t99=C_SCHEME_UNDEFINED;
5862 t100=(*a=C_VECTOR_TYPE|1,a[1]=t99,tmp=(C_word)a,a+=2,tmp);
5863 t101=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_10098,a[2]=t6,a[3]=t8,a[4]=t10,a[5]=t12,a[6]=t14,a[7]=t16,a[8]=t18,a[9]=t20,a[10]=t22,a[11]=t24,a[12]=t26,a[13]=t28,a[14]=t30,a[15]=t32,a[16]=t34,a[17]=t36,a[18]=t38,a[19]=t40,a[20]=t42,a[21]=t44,a[22]=t46,a[23]=t48,a[24]=t50,a[25]=t52,a[26]=t54,a[27]=t56,a[28]=t58,a[29]=t60,a[30]=t62,a[31]=t64,a[32]=t66,a[33]=t68,a[34]=t70,a[35]=t72,a[36]=t74,a[37]=t76,a[38]=((C_word*)t0)[5],a[39]=t78,a[40]=t80,a[41]=t88,a[42]=t90,a[43]=t86,a[44]=t82,a[45]=t4,a[46]=t84,a[47]=t94,a[48]=t100,a[49]=t92,a[50]=t98,a[51]=t96,a[52]=((C_word*)t0)[6],a[53]=t3,a[54]=((C_word*)t0)[7],a[55]=t2,tmp=(C_word)a,a+=56,tmp);
5864 /* synrules.scm:93: r */
5865 t102=((C_word*)t0)[7];{
5866 C_word av2[3];
5867 av2[0]=t102;
5868 av2[1]=t101;
5869 av2[2]=lf[235];
5870 ((C_proc)C_fast_retrieve_proc(t102))(3,av2);}}
5871 
5872 /* k11319 in k11302 in a11299 in k10012 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11321(C_word c,C_word * av)5873 static void C_ccall f_11321(C_word c,C_word *av){
5874 C_word tmp;
5875 C_word t0=av[0];
5876 C_word t1=av[1];
5877 C_word t2;
5878 C_word t3;
5879 C_word t4;
5880 C_word t5;
5881 C_word t6;
5882 C_word t7;
5883 C_word *a;
5884 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
5885 C_save_and_reclaim((void *)f_11321,c,av);}
5886 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
5887 t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]);
5888 t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
5889 t5=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]);
5890 t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5);
5891 t7=((C_word*)t0)[5];
5892 f_11312(t7,t6);}
5893 
5894 /* k11332 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_11334(C_word c,C_word * av)5895 static void C_ccall f_11334(C_word c,C_word *av){
5896 C_word tmp;
5897 C_word t0=av[0];
5898 C_word t1=av[1];
5899 C_word t2;
5900 C_word *a;
5901 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
5902 C_save_and_reclaim((void *)f_11334,c,av);}
5903 /* expand.scm:1565: ##sys#extend-macro-environment */
5904 t2=*((C_word*)lf[30]+1);{
5905 C_word *av2;
5906 if(c >= 5) {
5907   av2=av;
5908 } else {
5909   av2=C_alloc(5);
5910 }
5911 av2[0]=t2;
5912 av2[1]=((C_word*)t0)[2];
5913 av2[2]=lf[238];
5914 av2[3]=C_SCHEME_END_OF_LIST;
5915 av2[4]=t1;
5916 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
5917 
5918 /* a11335 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_11336(C_word c,C_word * av)5919 static void C_ccall f_11336(C_word c,C_word *av){
5920 C_word tmp;
5921 C_word t0=av[0];
5922 C_word t1=av[1];
5923 C_word t2=av[2];
5924 C_word t3=av[3];
5925 C_word t4=av[4];
5926 C_word t5;
5927 C_word t6;
5928 C_word *a;
5929 if(c!=5) C_bad_argc_2(c,5,t0);
5930 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
5931 C_save_and_reclaim((void *)f_11336,c,av);}
5932 a=C_alloc(5);
5933 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11340,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
5934 /* expand.scm:1570: ##sys#check-syntax */
5935 t6=*((C_word*)lf[56]+1);{
5936 C_word *av2=av;
5937 av2[0]=t6;
5938 av2[1]=t5;
5939 av2[2]=lf[238];
5940 av2[3]=t2;
5941 av2[4]=lf[242];
5942 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
5943 
5944 /* k11338 in a11335 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11340(C_word c,C_word * av)5945 static void C_ccall f_11340(C_word c,C_word *av){
5946 C_word tmp;
5947 C_word t0=av[0];
5948 C_word t1=av[1];
5949 C_word t2;
5950 C_word t3;
5951 C_word *a;
5952 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
5953 C_save_and_reclaim((void *)f_11340,c,av);}
5954 a=C_alloc(4);
5955 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
5956 /* expand.scm:1571: r */
5957 t3=((C_word*)t0)[4];{
5958 C_word *av2;
5959 if(c >= 3) {
5960   av2=av;
5961 } else {
5962   av2=C_alloc(3);
5963 }
5964 av2[0]=t3;
5965 av2[1]=t2;
5966 av2[2]=lf[241];
5967 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
5968 
5969 /* k11345 in k11338 in a11335 in k10009 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_11347(C_word c,C_word * av)5970 static void C_ccall f_11347(C_word c,C_word *av){
5971 C_word tmp;
5972 C_word t0=av[0];
5973 C_word t1=av[1];
5974 C_word t2;
5975 C_word t3;
5976 C_word t4;
5977 C_word t5;
5978 C_word t6;
5979 C_word *a;
5980 if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){
5981 C_save_and_reclaim((void *)f_11347,c,av);}
5982 a=C_alloc(30);
5983 t2=C_i_cadr(((C_word*)t0)[2]);
5984 t3=C_a_i_list(&a,3,lf[73],C_SCHEME_END_OF_LIST,t2);
5985 t4=C_a_i_list(&a,3,lf[92],t3,lf[239]);
5986 t5=C_a_i_list(&a,2,lf[240],t4);
5987 t6=((C_word*)t0)[3];{
5988 C_word *av2=av;
5989 av2[0]=t6;
5990 av2[1]=C_a_i_list(&a,2,t1,t5);
5991 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
5992 
5993 /* k11365 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_11367(C_word c,C_word * av)5994 static void C_ccall f_11367(C_word c,C_word *av){
5995 C_word tmp;
5996 C_word t0=av[0];
5997 C_word t1=av[1];
5998 C_word t2;
5999 C_word *a;
6000 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
6001 C_save_and_reclaim((void *)f_11367,c,av);}
6002 /* expand.scm:1513: ##sys#extend-macro-environment */
6003 t2=*((C_word*)lf[30]+1);{
6004 C_word *av2;
6005 if(c >= 5) {
6006   av2=av;
6007 } else {
6008   av2=C_alloc(5);
6009 }
6010 av2[0]=t2;
6011 av2[1]=((C_word*)t0)[2];
6012 av2[2]=lf[243];
6013 av2[3]=C_SCHEME_END_OF_LIST;
6014 av2[4]=t1;
6015 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
6016 
6017 /* a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_11369(C_word c,C_word * av)6018 static void C_ccall f_11369(C_word c,C_word *av){
6019 C_word tmp;
6020 C_word t0=av[0];
6021 C_word t1=av[1];
6022 C_word t2=av[2];
6023 C_word t3=av[3];
6024 C_word t4=av[4];
6025 C_word t5;
6026 C_word t6;
6027 C_word *a;
6028 if(c!=5) C_bad_argc_2(c,5,t0);
6029 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
6030 C_save_and_reclaim((void *)f_11369,c,av);}
6031 a=C_alloc(6);
6032 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11373,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
6033 /* expand.scm:1518: r */
6034 t6=t3;{
6035 C_word *av2=av;
6036 av2[0]=t6;
6037 av2[1]=t5;
6038 av2[2]=lf[243];
6039 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
6040 
6041 /* k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_11373(C_word c,C_word * av)6042 static void C_ccall f_11373(C_word c,C_word *av){
6043 C_word tmp;
6044 C_word t0=av[0];
6045 C_word t1=av[1];
6046 C_word t2;
6047 C_word t3;
6048 C_word *a;
6049 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
6050 C_save_and_reclaim((void *)f_11373,c,av);}
6051 a=C_alloc(7);
6052 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11376,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
6053 /* expand.scm:1519: r */
6054 t3=((C_word*)t0)[5];{
6055 C_word *av2;
6056 if(c >= 3) {
6057   av2=av;
6058 } else {
6059   av2=C_alloc(3);
6060 }
6061 av2[0]=t3;
6062 av2[1]=t2;
6063 av2[2]=lf[244];
6064 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
6065 
6066 /* k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11376(C_word c,C_word * av)6067 static void C_ccall f_11376(C_word c,C_word *av){
6068 C_word tmp;
6069 C_word t0=av[0];
6070 C_word t1=av[1];
6071 C_word t2;
6072 C_word t3;
6073 C_word *a;
6074 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
6075 C_save_and_reclaim((void *)f_11376,c,av);}
6076 a=C_alloc(7);
6077 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11379,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
6078 /* expand.scm:1520: r */
6079 t3=((C_word*)t0)[6];{
6080 C_word *av2;
6081 if(c >= 3) {
6082   av2=av;
6083 } else {
6084   av2=C_alloc(3);
6085 }
6086 av2[0]=t3;
6087 av2[1]=t2;
6088 av2[2]=lf[246];
6089 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
6090 
6091 /* k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_11379(C_word c,C_word * av)6092 static void C_ccall f_11379(C_word c,C_word *av){
6093 C_word tmp;
6094 C_word t0=av[0];
6095 C_word t1=av[1];
6096 C_word t2;
6097 C_word t3;
6098 C_word t4;
6099 C_word t5;
6100 C_word t6;
6101 C_word t7;
6102 C_word t8;
6103 C_word t9;
6104 C_word t10;
6105 C_word t11;
6106 C_word t12;
6107 C_word *a;
6108 if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
6109 C_save_and_reclaim((void *)f_11379,c,av);}
6110 a=C_alloc(28);
6111 t2=C_SCHEME_UNDEFINED;
6112 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
6113 t4=C_SCHEME_UNDEFINED;
6114 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
6115 t6=C_SCHEME_UNDEFINED;
6116 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
6117 t8=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11381,a[2]=t7,a[3]=t5,a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp));
6118 t9=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11391,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word)li127),tmp=(C_word)a,a+=8,tmp));
6119 t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11554,a[2]=t7,a[3]=((C_word)li130),tmp=(C_word)a,a+=4,tmp));
6120 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11649,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
6121 /* expand.scm:1562: ##sys#check-syntax */
6122 t12=*((C_word*)lf[56]+1);{
6123 C_word *av2;
6124 if(c >= 5) {
6125   av2=av;
6126 } else {
6127   av2=C_alloc(5);
6128 }
6129 av2[0]=t12;
6130 av2[1]=t11;
6131 av2[2]=lf[243];
6132 av2[3]=((C_word*)t0)[6];
6133 av2[4]=lf[256];
6134 ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}
6135 
6136 /* walk in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11381(C_word t0,C_word t1,C_word t2,C_word t3)6137 static void C_fcall f_11381(C_word t0,C_word t1,C_word t2,C_word t3){
6138 C_word tmp;
6139 C_word t4;
6140 C_word t5;
6141 C_word *a;
6142 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
6143 C_save_and_reclaim_args((void *)trf_11381,4,t0,t1,t2,t3);}
6144 a=C_alloc(4);
6145 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11389,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
6146 /* expand.scm:1521: walk1 */
6147 t5=((C_word*)((C_word*)t0)[3])[1];
6148 f_11391(t5,t4,t2,t3);}
6149 
6150 /* k11387 in walk in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11389(C_word c,C_word * av)6151 static void C_ccall f_11389(C_word c,C_word *av){
6152 C_word tmp;
6153 C_word t0=av[0];
6154 C_word t1=av[1];
6155 C_word t2;
6156 C_word *a;
6157 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
6158 C_save_and_reclaim((void *)f_11389,c,av);}
6159 /* expand.scm:1521: simplify */
6160 t2=((C_word*)((C_word*)t0)[2])[1];
6161 f_11554(t2,((C_word*)t0)[3],t1);}
6162 
6163 /* walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11391(C_word t0,C_word t1,C_word t2,C_word t3)6164 static void C_fcall f_11391(C_word t0,C_word t1,C_word t2,C_word t3){
6165 C_word tmp;
6166 C_word t4;
6167 C_word t5;
6168 C_word t6;
6169 C_word t7;
6170 C_word t8;
6171 C_word *a;
6172 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
6173 C_save_and_reclaim_args((void *)trf_11391,4,t0,t1,t2,t3);}
6174 a=C_alloc(12);
6175 if(C_truep(C_i_vectorp(t2))){
6176 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11405,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
6177 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11409,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
6178 /* expand.scm:1524: scheme#vector->list */
6179 t6=*((C_word*)lf[181]+1);{
6180 C_word av2[3];
6181 av2[0]=t6;
6182 av2[1]=t5;
6183 av2[2]=t2;
6184 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
6185 else{
6186 t4=C_i_pairp(t2);
6187 if(C_truep(C_i_not(t4))){
6188 t5=t1;{
6189 C_word av2[2];
6190 av2[0]=t5;
6191 av2[1]=C_a_i_list(&a,2,lf[72],t2);
6192 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
6193 else{
6194 t5=C_i_car(t2);
6195 t6=C_u_i_cdr(t2);
6196 t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11428,a[2]=t3,a[3]=t1,a[4]=t6,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp);
6197 /* expand.scm:1529: c */
6198 t8=((C_word*)t0)[6];{
6199 C_word av2[4];
6200 av2[0]=t8;
6201 av2[1]=t7;
6202 av2[2]=((C_word*)t0)[3];
6203 av2[3]=t5;
6204 ((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}}}
6205 
6206 /* k11403 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11405(C_word c,C_word * av)6207 static void C_ccall f_11405(C_word c,C_word *av){
6208 C_word tmp;
6209 C_word t0=av[0];
6210 C_word t1=av[1];
6211 C_word t2;
6212 C_word *a;
6213 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
6214 C_save_and_reclaim((void *)f_11405,c,av);}
6215 a=C_alloc(6);
6216 t2=((C_word*)t0)[2];{
6217 C_word *av2=av;
6218 av2[0]=t2;
6219 av2[1]=C_a_i_list(&a,2,lf[204],t1);
6220 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6221 
6222 /* k11407 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11409(C_word c,C_word * av)6223 static void C_ccall f_11409(C_word c,C_word *av){
6224 C_word tmp;
6225 C_word t0=av[0];
6226 C_word t1=av[1];
6227 C_word t2;
6228 C_word *a;
6229 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
6230 C_save_and_reclaim((void *)f_11409,c,av);}
6231 /* expand.scm:1524: walk */
6232 t2=((C_word*)((C_word*)t0)[2])[1];
6233 f_11381(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}
6234 
6235 /* k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11428(C_word c,C_word * av)6236 static void C_ccall f_11428(C_word c,C_word *av){
6237 C_word tmp;
6238 C_word t0=av[0];
6239 C_word t1=av[1];
6240 C_word t2;
6241 C_word t3;
6242 C_word t4;
6243 C_word t5;
6244 C_word *a;
6245 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
6246 C_save_and_reclaim((void *)f_11428,c,av);}
6247 a=C_alloc(10);
6248 if(C_truep(t1)){
6249 t2=C_eqp(((C_word*)t0)[2],C_fix(0));
6250 if(C_truep(t2)){
6251 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11437,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
6252 /* expand.scm:1531: ##sys#check-syntax */
6253 t4=*((C_word*)lf[56]+1);{
6254 C_word *av2;
6255 if(c >= 5) {
6256   av2=av;
6257 } else {
6258   av2=C_alloc(5);
6259 }
6260 av2[0]=t4;
6261 av2[1]=t3;
6262 av2[2]=lf[244];
6263 av2[3]=((C_word*)t0)[5];
6264 av2[4]=lf[245];
6265 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
6266 else{
6267 t3=C_a_i_list(&a,2,lf[72],((C_word*)t0)[6]);
6268 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11451,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
6269 /* expand.scm:1534: walk */
6270 t5=((C_word*)((C_word*)t0)[7])[1];
6271 f_11381(t5,t4,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}}
6272 else{
6273 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11461,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp);
6274 /* expand.scm:1535: c */
6275 t3=((C_word*)t0)[11];{
6276 C_word *av2;
6277 if(c >= 4) {
6278   av2=av;
6279 } else {
6280   av2=C_alloc(4);
6281 }
6282 av2[0]=t3;
6283 av2[1]=t2;
6284 av2[2]=((C_word*)t0)[8];
6285 av2[3]=((C_word*)t0)[9];
6286 ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}
6287 
6288 /* k11435 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11437(C_word c,C_word * av)6289 static void C_ccall f_11437(C_word c,C_word *av){
6290 C_word tmp;
6291 C_word t0=av[0];
6292 C_word t1=av[1];
6293 C_word t2;
6294 C_word *a;
6295 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6296 C_save_and_reclaim((void *)f_11437,c,av);}
6297 t2=((C_word*)t0)[2];{
6298 C_word *av2=av;
6299 av2[0]=t2;
6300 av2[1]=C_i_car(((C_word*)t0)[3]);
6301 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6302 
6303 /* k11449 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11451(C_word c,C_word * av)6304 static void C_ccall f_11451(C_word c,C_word *av){
6305 C_word tmp;
6306 C_word t0=av[0];
6307 C_word t1=av[1];
6308 C_word t2;
6309 C_word *a;
6310 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
6311 C_save_and_reclaim((void *)f_11451,c,av);}
6312 a=C_alloc(9);
6313 t2=((C_word*)t0)[2];{
6314 C_word *av2=av;
6315 av2[0]=t2;
6316 av2[1]=C_a_i_list3(&a,3,lf[208],((C_word*)t0)[3],t1);
6317 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6318 
6319 /* k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11461(C_word c,C_word * av)6320 static void C_ccall f_11461(C_word c,C_word *av){
6321 C_word tmp;
6322 C_word t0=av[0];
6323 C_word t1=av[1];
6324 C_word t2;
6325 C_word t3;
6326 C_word t4;
6327 C_word *a;
6328 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
6329 C_save_and_reclaim((void *)f_11461,c,av);}
6330 a=C_alloc(10);
6331 if(C_truep(t1)){
6332 t2=C_a_i_list(&a,2,lf[72],((C_word*)t0)[2]);
6333 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11472,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
6334 /* expand.scm:1537: walk */
6335 t4=((C_word*)((C_word*)t0)[4])[1];
6336 f_11381(t4,t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],C_fix(1)));}
6337 else{
6338 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11482,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
6339 if(C_truep(C_i_pairp(((C_word*)t0)[7]))){
6340 /* expand.scm:1538: c */
6341 t3=((C_word*)t0)[9];{
6342 C_word *av2;
6343 if(c >= 4) {
6344   av2=av;
6345 } else {
6346   av2=C_alloc(4);
6347 }
6348 av2[0]=t3;
6349 av2[1]=t2;
6350 av2[2]=((C_word*)t0)[8];
6351 av2[3]=C_u_i_car(((C_word*)t0)[7]);
6352 ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
6353 else{
6354 t3=t2;{
6355 C_word *av2=av;
6356 av2[0]=t3;
6357 av2[1]=C_SCHEME_FALSE;
6358 f_11482(2,av2);}}}}
6359 
6360 /* k11470 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_11472(C_word c,C_word * av)6361 static void C_ccall f_11472(C_word c,C_word *av){
6362 C_word tmp;
6363 C_word t0=av[0];
6364 C_word t1=av[1];
6365 C_word t2;
6366 C_word *a;
6367 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
6368 C_save_and_reclaim((void *)f_11472,c,av);}
6369 a=C_alloc(9);
6370 t2=((C_word*)t0)[2];{
6371 C_word *av2=av;
6372 av2[0]=t2;
6373 av2[1]=C_a_i_list3(&a,3,lf[208],((C_word*)t0)[3],t1);
6374 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6375 
6376 /* k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_11482(C_word c,C_word * av)6377 static void C_ccall f_11482(C_word c,C_word *av){
6378 C_word tmp;
6379 C_word t0=av[0];
6380 C_word t1=av[1];
6381 C_word t2;
6382 C_word t3;
6383 C_word t4;
6384 C_word t5;
6385 C_word *a;
6386 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
6387 C_save_and_reclaim((void *)f_11482,c,av);}
6388 a=C_alloc(13);
6389 if(C_truep(t1)){
6390 t2=C_eqp(((C_word*)t0)[2],C_fix(0));
6391 if(C_truep(t2)){
6392 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11491,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
6393 /* expand.scm:1540: ##sys#check-syntax */
6394 t4=*((C_word*)lf[56]+1);{
6395 C_word *av2;
6396 if(c >= 5) {
6397   av2=av;
6398 } else {
6399   av2=C_alloc(5);
6400 }
6401 av2[0]=t4;
6402 av2[1]=t3;
6403 av2[2]=lf[246];
6404 av2[3]=((C_word*)t0)[3];
6405 av2[4]=lf[247];
6406 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
6407 else{
6408 t3=C_a_i_list(&a,2,lf[72],((C_word*)t0)[7]);
6409 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11521,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
6410 /* expand.scm:1545: walk */
6411 t5=((C_word*)((C_word*)t0)[5])[1];
6412 f_11381(t5,t4,C_i_cdr(((C_word*)t0)[3]),C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}}
6413 else{
6414 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11536,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
6415 /* expand.scm:1548: walk */
6416 t3=((C_word*)((C_word*)t0)[5])[1];
6417 f_11381(t3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}}
6418 
6419 /* k11489 in k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_11491(C_word c,C_word * av)6420 static void C_ccall f_11491(C_word c,C_word *av){
6421 C_word tmp;
6422 C_word t0=av[0];
6423 C_word t1=av[1];
6424 C_word t2;
6425 C_word t3;
6426 C_word t4;
6427 C_word *a;
6428 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
6429 C_save_and_reclaim((void *)f_11491,c,av);}
6430 a=C_alloc(4);
6431 t2=C_i_cadr(((C_word*)t0)[2]);
6432 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11502,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
6433 /* expand.scm:1541: walk */
6434 t4=((C_word*)((C_word*)t0)[4])[1];
6435 f_11381(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6]);}
6436 
6437 /* k11500 in k11489 in k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in ... */
f_11502(C_word c,C_word * av)6438 static void C_ccall f_11502(C_word c,C_word *av){
6439 C_word tmp;
6440 C_word t0=av[0];
6441 C_word t1=av[1];
6442 C_word t2;
6443 C_word *a;
6444 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
6445 C_save_and_reclaim((void *)f_11502,c,av);}
6446 a=C_alloc(9);
6447 t2=((C_word*)t0)[2];{
6448 C_word *av2=av;
6449 av2[0]=t2;
6450 av2[1]=C_a_i_list(&a,3,lf[71],((C_word*)t0)[3],t1);
6451 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6452 
6453 /* k11511 in k11519 in k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in ... */
f_11513(C_word c,C_word * av)6454 static void C_ccall f_11513(C_word c,C_word *av){
6455 C_word tmp;
6456 C_word t0=av[0];
6457 C_word t1=av[1];
6458 C_word t2;
6459 C_word *a;
6460 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
6461 C_save_and_reclaim((void *)f_11513,c,av);}
6462 a=C_alloc(9);
6463 t2=((C_word*)t0)[2];{
6464 C_word *av2=av;
6465 av2[0]=t2;
6466 av2[1]=C_a_i_list(&a,3,lf[208],((C_word*)t0)[3],t1);
6467 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6468 
6469 /* k11519 in k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_11521(C_word c,C_word * av)6470 static void C_ccall f_11521(C_word c,C_word *av){
6471 C_word tmp;
6472 C_word t0=av[0];
6473 C_word t1=av[1];
6474 C_word t2;
6475 C_word t3;
6476 C_word t4;
6477 C_word *a;
6478 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
6479 C_save_and_reclaim((void *)f_11521,c,av);}
6480 a=C_alloc(13);
6481 t2=C_a_i_list(&a,3,lf[208],((C_word*)t0)[2],t1);
6482 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11513,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
6483 /* expand.scm:1546: walk */
6484 t4=((C_word*)((C_word*)t0)[4])[1];
6485 f_11381(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6]);}
6486 
6487 /* k11534 in k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_11536(C_word c,C_word * av)6488 static void C_ccall f_11536(C_word c,C_word *av){
6489 C_word tmp;
6490 C_word t0=av[0];
6491 C_word t1=av[1];
6492 C_word t2;
6493 C_word t3;
6494 C_word *a;
6495 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
6496 C_save_and_reclaim((void *)f_11536,c,av);}
6497 a=C_alloc(4);
6498 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11540,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
6499 /* expand.scm:1548: walk */
6500 t3=((C_word*)((C_word*)t0)[3])[1];
6501 f_11381(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}
6502 
6503 /* k11538 in k11534 in k11480 in k11459 in k11426 in walk1 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in ... */
f_11540(C_word c,C_word * av)6504 static void C_ccall f_11540(C_word c,C_word *av){
6505 C_word tmp;
6506 C_word t0=av[0];
6507 C_word t1=av[1];
6508 C_word t2;
6509 C_word *a;
6510 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
6511 C_save_and_reclaim((void *)f_11540,c,av);}
6512 a=C_alloc(9);
6513 t2=((C_word*)t0)[2];{
6514 C_word *av2=av;
6515 av2[0]=t2;
6516 av2[1]=C_a_i_list(&a,3,lf[208],((C_word*)t0)[3],t1);
6517 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6518 
6519 /* simplify in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11554(C_word t0,C_word t1,C_word t2)6520 static void C_fcall f_11554(C_word t0,C_word t1,C_word t2){
6521 C_word tmp;
6522 C_word t3;
6523 C_word t4;
6524 C_word *a;
6525 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
6526 C_save_and_reclaim_args((void *)trf_11554,3,t0,t1,t2);}
6527 a=C_alloc(5);
6528 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11558,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
6529 /* expand.scm:1550: chicken.syntax#match-expression */
6530 t4=*((C_word*)lf[119]+1);{
6531 C_word av2[5];
6532 av2[0]=t4;
6533 av2[1]=t3;
6534 av2[2]=t2;
6535 av2[3]=lf[254];
6536 av2[4]=lf[255];
6537 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
6538 
6539 /* k11556 in simplify in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11558(C_word c,C_word * av)6540 static void C_ccall f_11558(C_word c,C_word *av){
6541 C_word tmp;
6542 C_word t0=av[0];
6543 C_word t1=av[1];
6544 C_word t2;
6545 C_word t3;
6546 C_word *a;
6547 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
6548 C_save_and_reclaim((void *)f_11558,c,av);}
6549 a=C_alloc(5);
6550 if(C_truep(t1)){
6551 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11562,a[2]=((C_word*)t0)[2],a[3]=((C_word)li128),tmp=(C_word)a,a+=4,tmp);
6552 /* expand.scm:1550: g3021 */
6553 t3=t2;
6554 f_11562(t3,((C_word*)t0)[3],t1);}
6555 else{
6556 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
6557 /* expand.scm:1552: chicken.syntax#match-expression */
6558 t3=*((C_word*)lf[119]+1);{
6559 C_word *av2;
6560 if(c >= 5) {
6561   av2=av;
6562 } else {
6563   av2=C_alloc(5);
6564 }
6565 av2[0]=t3;
6566 av2[1]=t2;
6567 av2[2]=((C_word*)t0)[4];
6568 av2[3]=lf[252];
6569 av2[4]=lf[253];
6570 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
6571 
6572 /* g3021 in k11556 in simplify in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11562(C_word t0,C_word t1,C_word t2)6573 static void C_fcall f_11562(C_word t0,C_word t1,C_word t2){
6574 C_word tmp;
6575 C_word t3;
6576 C_word t4;
6577 C_word t5;
6578 C_word t6;
6579 C_word *a;
6580 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
6581 C_save_and_reclaim_args((void *)trf_11562,3,t0,t1,t2);}
6582 a=C_alloc(6);
6583 t3=C_i_assq(lf[248],t2);
6584 t4=C_i_cdr(t3);
6585 t5=C_a_i_list(&a,2,lf[239],t4);
6586 /* expand.scm:1551: simplify */
6587 t6=((C_word*)((C_word*)t0)[2])[1];
6588 f_11554(t6,t1,t5);}
6589 
6590 /* k11582 in k11556 in simplify in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11584(C_word c,C_word * av)6591 static void C_ccall f_11584(C_word c,C_word *av){
6592 C_word tmp;
6593 C_word t0=av[0];
6594 C_word t1=av[1];
6595 C_word t2;
6596 C_word t3;
6597 C_word *a;
6598 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
6599 C_save_and_reclaim((void *)f_11584,c,av);}
6600 a=C_alloc(5);
6601 if(C_truep(t1)){
6602 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp);
6603 /* expand.scm:1550: g3028 */
6604 t3=t2;
6605 f_11588(t3,((C_word*)t0)[4],t1);}
6606 else{
6607 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11631,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
6608 /* expand.scm:1559: chicken.syntax#match-expression */
6609 t3=*((C_word*)lf[119]+1);{
6610 C_word *av2;
6611 if(c >= 5) {
6612   av2=av;
6613 } else {
6614   av2=C_alloc(5);
6615 }
6616 av2[0]=t3;
6617 av2[1]=t2;
6618 av2[2]=((C_word*)t0)[3];
6619 av2[3]=lf[250];
6620 av2[4]=lf[251];
6621 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
6622 
6623 /* g3028 in k11582 in k11556 in simplify in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_11588(C_word t0,C_word t1,C_word t2)6624 static void C_fcall f_11588(C_word t0,C_word t1,C_word t2){
6625 C_word tmp;
6626 C_word t3;
6627 C_word t4;
6628 C_word t5;
6629 C_word t6;
6630 C_word t7;
6631 C_word t8;
6632 C_word t9;
6633 C_word t10;
6634 C_word *a;
6635 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
6636 C_save_and_reclaim_args((void *)trf_11588,3,t0,t1,t2);}
6637 a=C_alloc(6);
6638 t3=C_i_assq(lf[249],t2);
6639 t4=C_i_length(t3);
6640 if(C_truep(C_fixnum_lessp(t4,C_fix(32)))){
6641 t5=C_i_assq(lf[248],t2);
6642 t6=C_i_cdr(t5);
6643 t7=C_i_cdr(t3);
6644 t8=C_a_i_cons(&a,2,t6,t7);
6645 t9=C_a_i_cons(&a,2,lf[239],t8);
6646 /* expand.scm:1556: simplify */
6647 t10=((C_word*)((C_word*)t0)[2])[1];
6648 f_11554(t10,t1,t9);}
6649 else{
6650 t5=t1;{
6651 C_word av2[2];
6652 av2[0]=t5;
6653 av2[1]=((C_word*)t0)[3];
6654 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
6655 
6656 /* k11629 in k11582 in k11556 in simplify in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_11631(C_word c,C_word * av)6657 static void C_ccall f_11631(C_word c,C_word *av){
6658 C_word tmp;
6659 C_word t0=av[0];
6660 C_word t1=av[1];
6661 C_word t2;
6662 C_word *a;
6663 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6664 C_save_and_reclaim((void *)f_11631,c,av);}
6665 t2=((C_word*)t0)[2];{
6666 C_word *av2=av;
6667 av2[0]=t2;
6668 av2[1]=(C_truep(t1)?C_i_cdr(C_i_assq(lf[248],t1)):((C_word*)t0)[3]);
6669 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6670 
6671 /* k11647 in k11377 in k11374 in k11371 in a11368 in k10006 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11649(C_word c,C_word * av)6672 static void C_ccall f_11649(C_word c,C_word *av){
6673 C_word tmp;
6674 C_word t0=av[0];
6675 C_word t1=av[1];
6676 C_word t2;
6677 C_word *a;
6678 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
6679 C_save_and_reclaim((void *)f_11649,c,av);}
6680 /* expand.scm:1563: walk */
6681 t2=((C_word*)((C_word*)t0)[2])[1];
6682 f_11381(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),C_fix(0));}
6683 
6684 /* k11658 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in ... */
f_11660(C_word c,C_word * av)6685 static void C_ccall f_11660(C_word c,C_word *av){
6686 C_word tmp;
6687 C_word t0=av[0];
6688 C_word t1=av[1];
6689 C_word t2;
6690 C_word *a;
6691 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
6692 C_save_and_reclaim((void *)f_11660,c,av);}
6693 /* expand.scm:1484: ##sys#extend-macro-environment */
6694 t2=*((C_word*)lf[30]+1);{
6695 C_word *av2;
6696 if(c >= 5) {
6697   av2=av;
6698 } else {
6699   av2=C_alloc(5);
6700 }
6701 av2[0]=t2;
6702 av2[1]=((C_word*)t0)[2];
6703 av2[2]=lf[257];
6704 av2[3]=C_SCHEME_END_OF_LIST;
6705 av2[4]=t1;
6706 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
6707 
6708 /* a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in ... */
f_11662(C_word c,C_word * av)6709 static void C_ccall f_11662(C_word c,C_word *av){
6710 C_word tmp;
6711 C_word t0=av[0];
6712 C_word t1=av[1];
6713 C_word t2=av[2];
6714 C_word t3=av[3];
6715 C_word t4=av[4];
6716 C_word t5;
6717 C_word t6;
6718 C_word *a;
6719 if(c!=5) C_bad_argc_2(c,5,t0);
6720 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
6721 C_save_and_reclaim((void *)f_11662,c,av);}
6722 a=C_alloc(5);
6723 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11666,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
6724 /* expand.scm:1489: ##sys#check-syntax */
6725 t6=*((C_word*)lf[56]+1);{
6726 C_word *av2=av;
6727 av2[0]=t6;
6728 av2[1]=t5;
6729 av2[2]=lf[257];
6730 av2[3]=t2;
6731 av2[4]=lf[262];
6732 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
6733 
6734 /* k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_11666(C_word c,C_word * av)6735 static void C_ccall f_11666(C_word c,C_word *av){
6736 C_word tmp;
6737 C_word t0=av[0];
6738 C_word t1=av[1];
6739 C_word t2;
6740 C_word t3;
6741 C_word t4;
6742 C_word t5;
6743 C_word t6;
6744 C_word t7;
6745 C_word t8;
6746 C_word *a;
6747 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
6748 C_save_and_reclaim((void *)f_11666,c,av);}
6749 a=C_alloc(6);
6750 t2=C_i_cadr(((C_word*)t0)[2]);
6751 t3=C_i_caddr(((C_word*)t0)[2]);
6752 t4=C_u_i_cdr(((C_word*)t0)[2]);
6753 t5=C_u_i_cdr(t4);
6754 t6=C_u_i_cdr(t5);
6755 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11678,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t6,tmp=(C_word)a,a+=6,tmp);
6756 /* expand.scm:1493: r */
6757 t8=((C_word*)t0)[4];{
6758 C_word *av2;
6759 if(c >= 3) {
6760   av2=av;
6761 } else {
6762   av2=C_alloc(3);
6763 }
6764 av2[0]=t8;
6765 av2[1]=t7;
6766 av2[2]=lf[261];
6767 ((C_proc)C_fast_retrieve_proc(t8))(3,av2);}}
6768 
6769 /* k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_11678(C_word c,C_word * av)6770 static void C_ccall f_11678(C_word c,C_word *av){
6771 C_word tmp;
6772 C_word t0=av[0];
6773 C_word t1=av[1];
6774 C_word t2;
6775 C_word t3;
6776 C_word t4;
6777 C_word t5;
6778 C_word t6;
6779 C_word t7;
6780 C_word t8;
6781 C_word t9;
6782 C_word t10;
6783 C_word t11;
6784 C_word *a;
6785 if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
6786 C_save_and_reclaim((void *)f_11678,c,av);}
6787 a=C_alloc(20);
6788 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
6789 t3=t2;
6790 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
6791 t5=((C_word*)t4)[1];
6792 t6=C_i_check_list_2(((C_word*)t0)[2],lf[17]);
6793 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11706,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
6794 t8=C_SCHEME_UNDEFINED;
6795 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
6796 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11820,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li133),tmp=(C_word)a,a+=6,tmp));
6797 t11=((C_word*)t9)[1];
6798 f_11820(t11,t7,((C_word*)t0)[2]);}
6799 
6800 /* k11704 in k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11706(C_word c,C_word * av)6801 static void C_ccall f_11706(C_word c,C_word *av){
6802 C_word tmp;
6803 C_word t0=av[0];
6804 C_word t1=av[1];
6805 C_word t2;
6806 C_word t3;
6807 C_word t4;
6808 C_word t5;
6809 C_word t6;
6810 C_word t7;
6811 C_word t8;
6812 C_word t9;
6813 C_word *a;
6814 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
6815 C_save_and_reclaim((void *)f_11706,c,av);}
6816 a=C_alloc(17);
6817 t2=C_i_car(((C_word*)t0)[2]);
6818 t3=C_u_i_cdr(((C_word*)t0)[2]);
6819 t4=C_eqp(t3,C_SCHEME_END_OF_LIST);
6820 t5=(C_truep(t4)?lf[258]:C_a_i_cons(&a,2,lf[105],t3));
6821 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11727,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
6822 t7=C_eqp(((C_word*)t0)[6],C_SCHEME_END_OF_LIST);
6823 if(C_truep(t7)){
6824 t8=t6;
6825 f_11727(t8,lf[260]);}
6826 else{
6827 t8=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]);
6828 t9=t6;
6829 f_11727(t9,C_a_i_cons(&a,2,lf[52],t8));}}
6830 
6831 /* k11725 in k11704 in k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_11727(C_word t0,C_word t1)6832 static void C_fcall f_11727(C_word t0,C_word t1){
6833 C_word tmp;
6834 C_word t2;
6835 C_word t3;
6836 C_word t4;
6837 C_word t5;
6838 C_word t6;
6839 C_word t7;
6840 C_word t8;
6841 C_word t9;
6842 C_word t10;
6843 C_word *a;
6844 if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
6845 C_save_and_reclaim_args((void *)trf_11727,2,t0,t1);}
6846 a=C_alloc(21);
6847 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
6848 t3=t2;
6849 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
6850 t5=((C_word*)t4)[1];
6851 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11768,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],tmp=(C_word)a,a+=8,tmp);
6852 t7=C_SCHEME_UNDEFINED;
6853 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
6854 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11770,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li132),tmp=(C_word)a,a+=6,tmp));
6855 t10=((C_word*)t8)[1];
6856 f_11770(t10,t6,((C_word*)t0)[7]);}
6857 
6858 /* k11766 in k11725 in k11704 in k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11768(C_word c,C_word * av)6859 static void C_ccall f_11768(C_word c,C_word *av){
6860 C_word tmp;
6861 C_word t0=av[0];
6862 C_word t1=av[1];
6863 C_word t2;
6864 C_word t3;
6865 C_word t4;
6866 C_word t5;
6867 C_word t6;
6868 C_word *a;
6869 if(C_unlikely(!C_demand(C_calculate_demand(39,c,1)))){
6870 C_save_and_reclaim((void *)f_11768,c,av);}
6871 a=C_alloc(39);
6872 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
6873 t3=C_a_i_cons(&a,2,lf[55],t2);
6874 t4=C_a_i_list(&a,3,lf[105],((C_word*)t0)[3],t3);
6875 t5=C_a_i_list(&a,4,lf[259],((C_word*)t0)[4],((C_word*)t0)[5],t4);
6876 t6=((C_word*)t0)[6];{
6877 C_word *av2=av;
6878 av2[0]=t6;
6879 av2[1]=C_a_i_list(&a,4,lf[52],((C_word*)t0)[2],((C_word*)t0)[7],t5);
6880 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
6881 
6882 /* map-loop2933 in k11725 in k11704 in k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11770(C_word t0,C_word t1,C_word t2)6883 static void C_fcall f_11770(C_word t0,C_word t1,C_word t2){
6884 C_word tmp;
6885 C_word t3;
6886 C_word t4;
6887 C_word t5;
6888 C_word t6;
6889 C_word t7;
6890 C_word t8;
6891 C_word t9;
6892 C_word t10;
6893 C_word *a;
6894 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
6895 C_save_and_reclaim_args((void *)trf_11770,3,t0,t1,t2);}
6896 a=C_alloc(9);
6897 if(C_truep(C_i_pairp(t2))){
6898 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11780,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
6899 t4=C_slot(t2,C_fix(0));
6900 t5=C_i_cdr(t4);
6901 t6=C_i_cdr(t5);
6902 t7=C_eqp(t6,C_SCHEME_END_OF_LIST);
6903 if(C_truep(t7)){
6904 t8=C_u_i_car(t4);
6905 t9=t3;
6906 f_11780(t9,C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST));}
6907 else{
6908 t8=C_i_cdr(C_u_i_cdr(t4));
6909 t9=C_i_car(t8);
6910 t10=t3;
6911 f_11780(t10,C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST));}}
6912 else{
6913 t3=t1;{
6914 C_word av2[2];
6915 av2[0]=t3;
6916 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
6917 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6918 
6919 /* k11778 in map-loop2933 in k11725 in k11704 in k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11780(C_word t0,C_word t1)6920 static void C_fcall f_11780(C_word t0,C_word t1){
6921 C_word tmp;
6922 C_word t2;
6923 C_word t3;
6924 C_word t4;
6925 C_word *a;
6926 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
6927 C_save_and_reclaim_args((void *)trf_11780,2,t0,t1);}
6928 t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1);
6929 t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
6930 t4=((C_word*)((C_word*)t0)[3])[1];
6931 f_11770(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
6932 
6933 /* map-loop2899 in k11676 in k11664 in a11661 in k10003 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11820(C_word t0,C_word t1,C_word t2)6934 static void C_fcall f_11820(C_word t0,C_word t1,C_word t2){
6935 C_word tmp;
6936 C_word t3;
6937 C_word t4;
6938 C_word t5;
6939 C_word t6;
6940 C_word t7;
6941 C_word t8;
6942 C_word t9;
6943 C_word t10;
6944 C_word t11;
6945 C_word t12;
6946 C_word *a;
6947 loop:
6948 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
6949 C_save_and_reclaim_args((void *)trf_11820,3,t0,t1,t2);}
6950 a=C_alloc(9);
6951 if(C_truep(C_i_pairp(t2))){
6952 t3=C_slot(t2,C_fix(0));
6953 t4=C_i_car(t3);
6954 t5=C_i_car(C_u_i_cdr(t3));
6955 t6=C_a_i_list2(&a,2,t4,t5);
6956 t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST);
6957 t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7);
6958 t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
6959 t11=t1;
6960 t12=C_slot(t2,C_fix(1));
6961 t1=t11;
6962 t2=t12;
6963 goto loop;}
6964 else{
6965 t3=t1;{
6966 C_word av2[2];
6967 av2[0]=t3;
6968 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
6969 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6970 
6971 /* k11854 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in ... */
f_11856(C_word c,C_word * av)6972 static void C_ccall f_11856(C_word c,C_word *av){
6973 C_word tmp;
6974 C_word t0=av[0];
6975 C_word t1=av[1];
6976 C_word t2;
6977 C_word *a;
6978 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
6979 C_save_and_reclaim((void *)f_11856,c,av);}
6980 /* expand.scm:1471: ##sys#extend-macro-environment */
6981 t2=*((C_word*)lf[30]+1);{
6982 C_word *av2;
6983 if(c >= 5) {
6984   av2=av;
6985 } else {
6986   av2=C_alloc(5);
6987 }
6988 av2[0]=t2;
6989 av2[1]=((C_word*)t0)[2];
6990 av2[2]=lf[89];
6991 av2[3]=C_SCHEME_END_OF_LIST;
6992 av2[4]=t1;
6993 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
6994 
6995 /* a11857 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in ... */
f_11858(C_word c,C_word * av)6996 static void C_ccall f_11858(C_word c,C_word *av){
6997 C_word tmp;
6998 C_word t0=av[0];
6999 C_word t1=av[1];
7000 C_word t2=av[2];
7001 C_word t3=av[3];
7002 C_word t4=av[4];
7003 C_word t5;
7004 C_word t6;
7005 C_word *a;
7006 if(c!=5) C_bad_argc_2(c,5,t0);
7007 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
7008 C_save_and_reclaim((void *)f_11858,c,av);}
7009 a=C_alloc(4);
7010 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11862,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
7011 /* expand.scm:1476: ##sys#check-syntax */
7012 t6=*((C_word*)lf[56]+1);{
7013 C_word *av2=av;
7014 av2[0]=t6;
7015 av2[1]=t5;
7016 av2[2]=lf[89];
7017 av2[3]=t2;
7018 av2[4]=lf[263];
7019 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
7020 
7021 /* k11860 in a11857 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in ... */
f_11862(C_word c,C_word * av)7022 static void C_ccall f_11862(C_word c,C_word *av){
7023 C_word tmp;
7024 C_word t0=av[0];
7025 C_word t1=av[1];
7026 C_word t2;
7027 C_word t3;
7028 C_word t4;
7029 C_word t5;
7030 C_word t6;
7031 C_word t7;
7032 C_word t8;
7033 C_word *a;
7034 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
7035 C_save_and_reclaim((void *)f_11862,c,av);}
7036 a=C_alloc(7);
7037 t2=C_i_cadr(((C_word*)t0)[2]);
7038 t3=C_u_i_cdr(((C_word*)t0)[2]);
7039 t4=C_u_i_cdr(t3);
7040 t5=C_SCHEME_UNDEFINED;
7041 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
7042 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11872,a[2]=t4,a[3]=t6,a[4]=((C_word)li135),tmp=(C_word)a,a+=5,tmp));
7043 t8=((C_word*)t6)[1];
7044 f_11872(t8,((C_word*)t0)[3],t2);}
7045 
7046 /* expand in k11860 in a11857 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_11872(C_word t0,C_word t1,C_word t2)7047 static void C_fcall f_11872(C_word t0,C_word t1,C_word t2){
7048 C_word tmp;
7049 C_word t3;
7050 C_word t4;
7051 C_word t5;
7052 C_word t6;
7053 C_word t7;
7054 C_word t8;
7055 C_word t9;
7056 C_word *a;
7057 loop:
7058 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
7059 C_save_and_reclaim_args((void *)trf_11872,3,t0,t1,t2);}
7060 a=C_alloc(7);
7061 t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
7062 if(C_truep(t3)){
7063 t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
7064 t5=t1;{
7065 C_word av2[2];
7066 av2[0]=t5;
7067 av2[1]=C_a_i_cons(&a,2,lf[52],t4);
7068 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
7069 else{
7070 t4=C_i_car(t2);
7071 t5=C_a_i_list(&a,1,t4);
7072 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11897,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
7073 /* expand.scm:1482: expand */
7074 t8=t6;
7075 t9=C_u_i_cdr(t2);
7076 t1=t8;
7077 t2=t9;
7078 goto loop;}}
7079 
7080 /* k11895 in expand in k11860 in a11857 in k10000 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_11897(C_word c,C_word * av)7081 static void C_ccall f_11897(C_word c,C_word *av){
7082 C_word tmp;
7083 C_word t0=av[0];
7084 C_word t1=av[1];
7085 C_word t2;
7086 C_word *a;
7087 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
7088 C_save_and_reclaim((void *)f_11897,c,av);}
7089 a=C_alloc(9);
7090 t2=((C_word*)t0)[2];{
7091 C_word *av2=av;
7092 av2[0]=t2;
7093 av2[1]=C_a_i_list(&a,3,lf[52],((C_word*)t0)[3],t1);
7094 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7095 
7096 /* k11905 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in ... */
f_11907(C_word c,C_word * av)7097 static void C_ccall f_11907(C_word c,C_word *av){
7098 C_word tmp;
7099 C_word t0=av[0];
7100 C_word t1=av[1];
7101 C_word t2;
7102 C_word *a;
7103 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
7104 C_save_and_reclaim((void *)f_11907,c,av);}
7105 /* expand.scm:1426: ##sys#extend-macro-environment */
7106 t2=*((C_word*)lf[30]+1);{
7107 C_word *av2;
7108 if(c >= 5) {
7109   av2=av;
7110 } else {
7111   av2=C_alloc(5);
7112 }
7113 av2[0]=t2;
7114 av2[1]=((C_word*)t0)[2];
7115 av2[2]=lf[264];
7116 av2[3]=lf[265];
7117 av2[4]=t1;
7118 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
7119 
7120 /* a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in ... */
f_11909(C_word c,C_word * av)7121 static void C_ccall f_11909(C_word c,C_word *av){
7122 C_word tmp;
7123 C_word t0=av[0];
7124 C_word t1=av[1];
7125 C_word t2=av[2];
7126 C_word t3=av[3];
7127 C_word t4=av[4];
7128 C_word t5;
7129 C_word t6;
7130 C_word *a;
7131 if(c!=5) C_bad_argc_2(c,5,t0);
7132 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
7133 C_save_and_reclaim((void *)f_11909,c,av);}
7134 a=C_alloc(6);
7135 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11913,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
7136 /* expand.scm:1431: ##sys#check-syntax */
7137 t6=*((C_word*)lf[56]+1);{
7138 C_word *av2=av;
7139 av2[0]=t6;
7140 av2[1]=t5;
7141 av2[2]=lf[264];
7142 av2[3]=t2;
7143 av2[4]=lf[275];
7144 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
7145 
7146 /* k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in ... */
f_11913(C_word c,C_word * av)7147 static void C_ccall f_11913(C_word c,C_word *av){
7148 C_word tmp;
7149 C_word t0=av[0];
7150 C_word t1=av[1];
7151 C_word t2;
7152 C_word t3;
7153 C_word t4;
7154 C_word t5;
7155 C_word t6;
7156 C_word *a;
7157 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
7158 C_save_and_reclaim((void *)f_11913,c,av);}
7159 a=C_alloc(7);
7160 t2=C_i_cadr(((C_word*)t0)[2]);
7161 t3=C_u_i_cdr(((C_word*)t0)[2]);
7162 t4=C_u_i_cdr(t3);
7163 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11921,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
7164 /* expand.scm:1434: r */
7165 t6=((C_word*)t0)[5];{
7166 C_word *av2;
7167 if(c >= 3) {
7168   av2=av;
7169 } else {
7170   av2=C_alloc(3);
7171 }
7172 av2[0]=t6;
7173 av2[1]=t5;
7174 av2[2]=lf[274];
7175 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
7176 
7177 /* k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in ... */
f_11921(C_word c,C_word * av)7178 static void C_ccall f_11921(C_word c,C_word *av){
7179 C_word tmp;
7180 C_word t0=av[0];
7181 C_word t1=av[1];
7182 C_word t2;
7183 C_word t3;
7184 C_word *a;
7185 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
7186 C_save_and_reclaim((void *)f_11921,c,av);}
7187 a=C_alloc(8);
7188 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11924,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
7189 /* expand.scm:1435: r */
7190 t3=((C_word*)t0)[6];{
7191 C_word *av2;
7192 if(c >= 3) {
7193   av2=av;
7194 } else {
7195   av2=C_alloc(3);
7196 }
7197 av2[0]=t3;
7198 av2[1]=t2;
7199 av2[2]=lf[226];
7200 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
7201 
7202 /* k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_11924(C_word c,C_word * av)7203 static void C_ccall f_11924(C_word c,C_word *av){
7204 C_word tmp;
7205 C_word t0=av[0];
7206 C_word t1=av[1];
7207 C_word t2;
7208 C_word t3;
7209 C_word *a;
7210 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
7211 C_save_and_reclaim((void *)f_11924,c,av);}
7212 a=C_alloc(9);
7213 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
7214 /* expand.scm:1436: r */
7215 t3=((C_word*)t0)[7];{
7216 C_word *av2;
7217 if(c >= 3) {
7218   av2=av;
7219 } else {
7220   av2=C_alloc(3);
7221 }
7222 av2[0]=t3;
7223 av2[1]=t2;
7224 av2[2]=lf[273];
7225 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
7226 
7227 /* k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_11927(C_word c,C_word * av)7228 static void C_ccall f_11927(C_word c,C_word *av){
7229 C_word tmp;
7230 C_word t0=av[0];
7231 C_word t1=av[1];
7232 C_word t2;
7233 C_word t3;
7234 C_word *a;
7235 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
7236 C_save_and_reclaim((void *)f_11927,c,av);}
7237 a=C_alloc(10);
7238 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
7239 /* expand.scm:1437: r */
7240 t3=((C_word*)t0)[8];{
7241 C_word *av2;
7242 if(c >= 3) {
7243   av2=av;
7244 } else {
7245   av2=C_alloc(3);
7246 }
7247 av2[0]=t3;
7248 av2[1]=t2;
7249 av2[2]=lf[272];
7250 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
7251 
7252 /* k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_11930(C_word c,C_word * av)7253 static void C_ccall f_11930(C_word c,C_word *av){
7254 C_word tmp;
7255 C_word t0=av[0];
7256 C_word t1=av[1];
7257 C_word t2;
7258 C_word t3;
7259 C_word *a;
7260 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
7261 C_save_and_reclaim((void *)f_11930,c,av);}
7262 a=C_alloc(10);
7263 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
7264 /* expand.scm:1438: r */
7265 t3=((C_word*)t0)[9];{
7266 C_word *av2;
7267 if(c >= 3) {
7268   av2=av;
7269 } else {
7270   av2=C_alloc(3);
7271 }
7272 av2[0]=t3;
7273 av2[1]=t2;
7274 av2[2]=lf[232];
7275 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
7276 
7277 /* k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_11933(C_word c,C_word * av)7278 static void C_ccall f_11933(C_word c,C_word *av){
7279 C_word tmp;
7280 C_word t0=av[0];
7281 C_word t1=av[1];
7282 C_word t2;
7283 C_word t3;
7284 C_word t4;
7285 C_word t5;
7286 C_word t6;
7287 C_word t7;
7288 C_word t8;
7289 C_word *a;
7290 if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){
7291 C_save_and_reclaim((void *)f_11933,c,av);}
7292 a=C_alloc(25);
7293 t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
7294 t3=C_a_i_list(&a,1,t2);
7295 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11944,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
7296 t5=C_SCHEME_UNDEFINED;
7297 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
7298 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11946,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t1,a[9]=((C_word)li139),tmp=(C_word)a,a+=10,tmp));
7299 t8=((C_word*)t6)[1];
7300 f_11946(t8,t4,((C_word*)t0)[9],C_SCHEME_FALSE);}
7301 
7302 /* k11942 in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11944(C_word c,C_word * av)7303 static void C_ccall f_11944(C_word c,C_word *av){
7304 C_word tmp;
7305 C_word t0=av[0];
7306 C_word t1=av[1];
7307 C_word t2;
7308 C_word *a;
7309 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
7310 C_save_and_reclaim((void *)f_11944,c,av);}
7311 a=C_alloc(9);
7312 t2=((C_word*)t0)[2];{
7313 C_word *av2=av;
7314 av2[0]=t2;
7315 av2[1]=C_a_i_list(&a,3,lf[57],((C_word*)t0)[3],t1);
7316 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7317 
7318 /* expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_11946(C_word t0,C_word t1,C_word t2,C_word t3)7319 static void C_fcall f_11946(C_word t0,C_word t1,C_word t2,C_word t3){
7320 C_word tmp;
7321 C_word t4;
7322 C_word t5;
7323 C_word t6;
7324 C_word t7;
7325 C_word t8;
7326 C_word *a;
7327 if(C_unlikely(!C_demand(C_calculate_demand(13,0,4)))){
7328 C_save_and_reclaim_args((void *)trf_11946,4,t0,t1,t2,t3);}
7329 a=C_alloc(13);
7330 t4=C_i_pairp(t2);
7331 if(C_truep(C_i_not(t4))){
7332 t5=t1;{
7333 C_word av2[2];
7334 av2[0]=t5;
7335 av2[1]=lf[266];
7336 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
7337 else{
7338 t5=C_i_car(t2);
7339 t6=C_u_i_cdr(t2);
7340 t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11960,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp);
7341 /* expand.scm:1445: ##sys#check-syntax */
7342 t8=*((C_word*)lf[56]+1);{
7343 C_word av2[5];
7344 av2[0]=t8;
7345 av2[1]=t7;
7346 av2[2]=lf[264];
7347 av2[3]=t5;
7348 av2[4]=lf[271];
7349 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}
7350 
7351 /* k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_11960(C_word c,C_word * av)7352 static void C_ccall f_11960(C_word c,C_word *av){
7353 C_word tmp;
7354 C_word t0=av[0];
7355 C_word t1=av[1];
7356 C_word t2;
7357 C_word t3;
7358 C_word t4;
7359 C_word *a;
7360 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
7361 C_save_and_reclaim((void *)f_11960,c,av);}
7362 a=C_alloc(11);
7363 if(C_truep(((C_word*)t0)[2])){
7364 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11966,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
7365 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11973,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
7366 /* expand.scm:1449: chicken.syntax#strip-syntax */
7367 t4=*((C_word*)lf[12]+1);{
7368 C_word *av2;
7369 if(c >= 3) {
7370   av2=av;
7371 } else {
7372   av2=C_alloc(3);
7373 }
7374 av2[0]=t4;
7375 av2[1]=t3;
7376 av2[2]=((C_word*)t0)[6];
7377 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
7378 else{
7379 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11979,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
7380 /* expand.scm:1452: c */
7381 t3=((C_word*)t0)[8];{
7382 C_word *av2;
7383 if(c >= 4) {
7384   av2=av;
7385 } else {
7386   av2=C_alloc(4);
7387 }
7388 av2[0]=t3;
7389 av2[1]=t2;
7390 av2[2]=((C_word*)t0)[12];
7391 av2[3]=C_i_car(((C_word*)t0)[6]);
7392 ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}
7393 
7394 /* k11964 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11966(C_word c,C_word * av)7395 static void C_ccall f_11966(C_word c,C_word *av){
7396 C_word tmp;
7397 C_word t0=av[0];
7398 C_word t1=av[1];
7399 C_word t2;
7400 C_word t3;
7401 C_word *a;
7402 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
7403 C_save_and_reclaim((void *)f_11966,c,av);}
7404 a=C_alloc(3);
7405 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11969,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7406 /* expand.scm:1450: expand */
7407 t3=((C_word*)((C_word*)t0)[3])[1];
7408 f_11946(t3,t2,((C_word*)t0)[4],C_SCHEME_TRUE);}
7409 
7410 /* k11967 in k11964 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_11969(C_word c,C_word * av)7411 static void C_ccall f_11969(C_word c,C_word *av){
7412 C_word tmp;
7413 C_word t0=av[0];
7414 C_word t1=av[1];
7415 C_word t2;
7416 C_word *a;
7417 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7418 C_save_and_reclaim((void *)f_11969,c,av);}
7419 t2=((C_word*)t0)[2];{
7420 C_word *av2=av;
7421 av2[0]=t2;
7422 av2[1]=lf[267];
7423 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7424 
7425 /* k11971 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11973(C_word c,C_word * av)7426 static void C_ccall f_11973(C_word c,C_word *av){
7427 C_word tmp;
7428 C_word t0=av[0];
7429 C_word t1=av[1];
7430 C_word t2;
7431 C_word *a;
7432 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
7433 C_save_and_reclaim((void *)f_11973,c,av);}
7434 /* expand.scm:1447: ##sys#warn */
7435 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[268]+1));
7436 C_word *av2;
7437 if(c >= 4) {
7438   av2=av;
7439 } else {
7440   av2=C_alloc(4);
7441 }
7442 av2[0]=*((C_word*)lf[268]+1);
7443 av2[1]=((C_word*)t0)[2];
7444 av2[2]=lf[269];
7445 av2[3]=t1;
7446 tp(4,av2);}}
7447 
7448 /* k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_11979(C_word c,C_word * av)7449 static void C_ccall f_11979(C_word c,C_word *av){
7450 C_word tmp;
7451 C_word t0=av[0];
7452 C_word t1=av[1];
7453 C_word t2;
7454 C_word t3;
7455 C_word t4;
7456 C_word t5;
7457 C_word t6;
7458 C_word t7;
7459 C_word t8;
7460 C_word t9;
7461 C_word t10;
7462 C_word t11;
7463 C_word t12;
7464 C_word t13;
7465 C_word *a;
7466 if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
7467 C_save_and_reclaim((void *)f_11979,c,av);}
7468 a=C_alloc(29);
7469 if(C_truep(t1)){
7470 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
7471 /* expand.scm:1453: expand */
7472 t3=((C_word*)((C_word*)t0)[7])[1];
7473 f_11946(t3,t2,((C_word*)t0)[8],C_SCHEME_TRUE);}
7474 else{
7475 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
7476 t3=t2;
7477 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
7478 t5=((C_word*)t4)[1];
7479 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12078,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word)li137),tmp=(C_word)a,a+=5,tmp);
7480 t7=C_u_i_car(((C_word*)t0)[2]);
7481 t8=C_i_check_list_2(t7,lf[17]);
7482 t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12093,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
7483 t10=C_SCHEME_UNDEFINED;
7484 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
7485 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12095,a[2]=t6,a[3]=t4,a[4]=t11,a[5]=t5,a[6]=((C_word)li138),tmp=(C_word)a,a+=7,tmp));
7486 t13=((C_word*)t11)[1];
7487 f_12095(t13,t9,t7);}}
7488 
7489 /* k11980 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_11982(C_word c,C_word * av)7490 static void C_ccall f_11982(C_word c,C_word *av){
7491 C_word tmp;
7492 C_word t0=av[0];
7493 C_word t1=av[1];
7494 C_word t2;
7495 C_word t3;
7496 C_word t4;
7497 C_word t5;
7498 C_word *a;
7499 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
7500 C_save_and_reclaim((void *)f_11982,c,av);}
7501 a=C_alloc(5);
7502 if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){
7503 t2=((C_word*)t0)[3];{
7504 C_word *av2=av;
7505 av2[0]=t2;
7506 av2[1]=C_a_i_list(&a,1,lf[270]);
7507 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7508 else{
7509 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11997,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
7510 t3=C_i_length(((C_word*)t0)[2]);
7511 t4=C_eqp(t3,C_fix(3));
7512 if(C_truep(t4)){
7513 /* expand.scm:1457: c */
7514 t5=((C_word*)t0)[5];{
7515 C_word *av2;
7516 if(c >= 4) {
7517   av2=av;
7518 } else {
7519   av2=C_alloc(4);
7520 }
7521 av2[0]=t5;
7522 av2[1]=t2;
7523 av2[2]=((C_word*)t0)[6];
7524 av2[3]=C_i_cadr(((C_word*)t0)[2]);
7525 ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
7526 else{
7527 t5=t2;{
7528 C_word *av2=av;
7529 av2[0]=t5;
7530 av2[1]=C_SCHEME_FALSE;
7531 f_11997(2,av2);}}}}
7532 
7533 /* k11995 in k11980 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_11997(C_word c,C_word * av)7534 static void C_ccall f_11997(C_word c,C_word *av){
7535 C_word tmp;
7536 C_word t0=av[0];
7537 C_word t1=av[1];
7538 C_word t2;
7539 C_word t3;
7540 C_word *a;
7541 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
7542 C_save_and_reclaim((void *)f_11997,c,av);}
7543 a=C_alloc(6);
7544 if(C_truep(t1)){
7545 t2=C_i_caddr(((C_word*)t0)[2]);
7546 t3=((C_word*)t0)[3];{
7547 C_word *av2=av;
7548 av2[0]=t3;
7549 av2[1]=C_a_i_list(&a,2,t2,((C_word*)t0)[4]);
7550 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
7551 else{
7552 t2=C_i_cdr(((C_word*)t0)[2]);
7553 t3=((C_word*)t0)[3];{
7554 C_word *av2=av;
7555 av2[0]=t3;
7556 av2[1]=C_a_i_cons(&a,2,lf[105],t2);
7557 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
7558 
7559 /* k12036 in k12091 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_12038(C_word t0,C_word t1)7560 static void C_fcall f_12038(C_word t0,C_word t1){
7561 C_word tmp;
7562 C_word t2;
7563 C_word t3;
7564 C_word *a;
7565 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
7566 C_save_and_reclaim_args((void *)trf_12038,2,t0,t1);}
7567 a=C_alloc(5);
7568 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12042,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
7569 /* expand.scm:1469: expand */
7570 t3=((C_word*)((C_word*)t0)[4])[1];
7571 f_11946(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE);}
7572 
7573 /* k12040 in k12036 in k12091 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in ... */
f_12042(C_word c,C_word * av)7574 static void C_ccall f_12042(C_word c,C_word *av){
7575 C_word tmp;
7576 C_word t0=av[0];
7577 C_word t1=av[1];
7578 C_word t2;
7579 C_word *a;
7580 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
7581 C_save_and_reclaim((void *)f_12042,c,av);}
7582 a=C_alloc(12);
7583 t2=((C_word*)t0)[2];{
7584 C_word *av2=av;
7585 av2[0]=t2;
7586 av2[1]=C_a_i_list(&a,4,lf[259],((C_word*)t0)[3],((C_word*)t0)[4],t1);
7587 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7588 
7589 /* k12043 in k12091 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in ... */
f_12045(C_word c,C_word * av)7590 static void C_ccall f_12045(C_word c,C_word *av){
7591 C_word tmp;
7592 C_word t0=av[0];
7593 C_word t1=av[1];
7594 C_word t2;
7595 C_word t3;
7596 C_word *a;
7597 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
7598 C_save_and_reclaim((void *)f_12045,c,av);}
7599 a=C_alloc(6);
7600 if(C_truep(t1)){
7601 t2=C_i_caddr(((C_word*)t0)[2]);
7602 t3=((C_word*)t0)[3];
7603 f_12038(t3,C_a_i_list(&a,2,t2,((C_word*)t0)[4]));}
7604 else{
7605 t2=C_i_cdr(((C_word*)t0)[2]);
7606 t3=((C_word*)t0)[3];
7607 f_12038(t3,C_a_i_cons(&a,2,lf[105],t2));}}
7608 
7609 /* g2840 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_12078(C_word * a,C_word t0,C_word t1)7610 static C_word C_fcall f_12078(C_word *a,C_word t0,C_word t1){
7611 C_word tmp;
7612 C_word t2;
7613 C_word t3;
7614 C_stack_overflow_check;{}
7615 t2=C_a_i_list(&a,2,lf[217],t1);
7616 return(C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2));}
7617 
7618 /* k12091 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_12093(C_word c,C_word * av)7619 static void C_ccall f_12093(C_word c,C_word *av){
7620 C_word tmp;
7621 C_word t0=av[0];
7622 C_word t1=av[1];
7623 C_word t2;
7624 C_word t3;
7625 C_word t4;
7626 C_word t5;
7627 C_word t6;
7628 C_word t7;
7629 C_word *a;
7630 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
7631 C_save_and_reclaim((void *)f_12093,c,av);}
7632 a=C_alloc(14);
7633 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
7634 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12038,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
7635 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12045,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
7636 t5=C_i_length(((C_word*)t0)[6]);
7637 t6=C_eqp(t5,C_fix(3));
7638 if(C_truep(t6)){
7639 /* expand.scm:1466: c */
7640 t7=((C_word*)t0)[8];{
7641 C_word *av2;
7642 if(c >= 4) {
7643   av2=av;
7644 } else {
7645   av2=C_alloc(4);
7646 }
7647 av2[0]=t7;
7648 av2[1]=t4;
7649 av2[2]=((C_word*)t0)[9];
7650 av2[3]=C_i_cadr(((C_word*)t0)[6]);
7651 ((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}
7652 else{
7653 t7=t4;{
7654 C_word *av2=av;
7655 av2[0]=t7;
7656 av2[1]=C_SCHEME_FALSE;
7657 f_12045(2,av2);}}}
7658 
7659 /* map-loop2834 in k11977 in k11958 in expand in k11931 in k11928 in k11925 in k11922 in k11919 in k11911 in a11908 in k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_12095(C_word t0,C_word t1,C_word t2)7660 static void C_fcall f_12095(C_word t0,C_word t1,C_word t2){
7661 C_word tmp;
7662 C_word t3;
7663 C_word t4;
7664 C_word t5;
7665 C_word t6;
7666 C_word t7;
7667 C_word t8;
7668 C_word t9;
7669 C_word *a;
7670 loop:
7671 if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
7672 C_save_and_reclaim_args((void *)trf_12095,3,t0,t1,t2);}
7673 a=C_alloc(18);
7674 if(C_truep(C_i_pairp(t2))){
7675 t3=(
7676 /* expand.scm:1462: g2840 */
7677   f_12078(C_a_i(&a,15),((C_word*)t0)[2],C_slot(t2,C_fix(0)))
7678 );
7679 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
7680 t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
7681 t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
7682 t8=t1;
7683 t9=C_slot(t2,C_fix(1));
7684 t1=t8;
7685 t2=t9;
7686 goto loop;}
7687 else{
7688 t3=t1;{
7689 C_word av2[2];
7690 av2[0]=t3;
7691 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
7692 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
7693 
7694 /* k12141 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in ... */
f_12143(C_word c,C_word * av)7695 static void C_ccall f_12143(C_word c,C_word *av){
7696 C_word tmp;
7697 C_word t0=av[0];
7698 C_word t1=av[1];
7699 C_word t2;
7700 C_word *a;
7701 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
7702 C_save_and_reclaim((void *)f_12143,c,av);}
7703 /* expand.scm:1361: ##sys#extend-macro-environment */
7704 t2=*((C_word*)lf[30]+1);{
7705 C_word *av2;
7706 if(c >= 5) {
7707   av2=av;
7708 } else {
7709   av2=C_alloc(5);
7710 }
7711 av2[0]=t2;
7712 av2[1]=((C_word*)t0)[2];
7713 av2[2]=lf[233];
7714 av2[3]=C_SCHEME_END_OF_LIST;
7715 av2[4]=t1;
7716 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
7717 
7718 /* a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in ... */
f_12145(C_word c,C_word * av)7719 static void C_ccall f_12145(C_word c,C_word *av){
7720 C_word tmp;
7721 C_word t0=av[0];
7722 C_word t1=av[1];
7723 C_word t2=av[2];
7724 C_word t3=av[3];
7725 C_word t4=av[4];
7726 C_word t5;
7727 C_word t6;
7728 C_word t7;
7729 C_word *a;
7730 if(c!=5) C_bad_argc_2(c,5,t0);
7731 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
7732 C_save_and_reclaim((void *)f_12145,c,av);}
7733 a=C_alloc(6);
7734 t5=C_i_cdr(t2);
7735 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12152,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
7736 /* expand.scm:1367: r */
7737 t7=t3;{
7738 C_word *av2=av;
7739 av2[0]=t7;
7740 av2[1]=t6;
7741 av2[2]=lf[273];
7742 ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}
7743 
7744 /* k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in ... */
f_12152(C_word c,C_word * av)7745 static void C_ccall f_12152(C_word c,C_word *av){
7746 C_word tmp;
7747 C_word t0=av[0];
7748 C_word t1=av[1];
7749 C_word t2;
7750 C_word t3;
7751 C_word *a;
7752 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
7753 C_save_and_reclaim((void *)f_12152,c,av);}
7754 a=C_alloc(7);
7755 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12155,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
7756 /* expand.scm:1368: r */
7757 t3=((C_word*)t0)[3];{
7758 C_word *av2;
7759 if(c >= 3) {
7760   av2=av;
7761 } else {
7762   av2=C_alloc(3);
7763 }
7764 av2[0]=t3;
7765 av2[1]=t2;
7766 av2[2]=lf[226];
7767 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
7768 
7769 /* k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in ... */
f_12155(C_word c,C_word * av)7770 static void C_ccall f_12155(C_word c,C_word *av){
7771 C_word tmp;
7772 C_word t0=av[0];
7773 C_word t1=av[1];
7774 C_word t2;
7775 C_word t3;
7776 C_word *a;
7777 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
7778 C_save_and_reclaim((void *)f_12155,c,av);}
7779 a=C_alloc(8);
7780 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12158,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
7781 /* expand.scm:1369: r */
7782 t3=((C_word*)t0)[4];{
7783 C_word *av2;
7784 if(c >= 3) {
7785   av2=av;
7786 } else {
7787   av2=C_alloc(3);
7788 }
7789 av2[0]=t3;
7790 av2[1]=t2;
7791 av2[2]=lf[232];
7792 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
7793 
7794 /* k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in ... */
f_12158(C_word c,C_word * av)7795 static void C_ccall f_12158(C_word c,C_word *av){
7796 C_word tmp;
7797 C_word t0=av[0];
7798 C_word t1=av[1];
7799 C_word t2;
7800 C_word t3;
7801 C_word t4;
7802 C_word t5;
7803 C_word *a;
7804 if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
7805 C_save_and_reclaim((void *)f_12158,c,av);}
7806 a=C_alloc(11);
7807 t2=C_SCHEME_UNDEFINED;
7808 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
7809 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12163,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li141),tmp=(C_word)a,a+=9,tmp));
7810 t5=((C_word*)t3)[1];
7811 f_12163(t5,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}
7812 
7813 /* expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in ... */
f_12163(C_word t0,C_word t1,C_word t2,C_word t3)7814 static void C_fcall f_12163(C_word t0,C_word t1,C_word t2,C_word t3){
7815 C_word tmp;
7816 C_word t4;
7817 C_word t5;
7818 C_word t6;
7819 C_word t7;
7820 C_word t8;
7821 C_word *a;
7822 if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
7823 C_save_and_reclaim_args((void *)trf_12163,4,t0,t1,t2,t3);}
7824 a=C_alloc(12);
7825 t4=C_i_pairp(t2);
7826 if(C_truep(C_i_not(t4))){
7827 t5=t1;{
7828 C_word av2[2];
7829 av2[0]=t5;
7830 av2[1]=lf[276];
7831 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
7832 else{
7833 t5=C_i_car(t2);
7834 t6=C_u_i_cdr(t2);
7835 t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12177,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
7836 /* expand.scm:1375: ##sys#check-syntax */
7837 t8=*((C_word*)lf[56]+1);{
7838 C_word av2[5];
7839 av2[0]=t8;
7840 av2[1]=t7;
7841 av2[2]=lf[233];
7842 av2[3]=t5;
7843 av2[4]=lf[284];
7844 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}
7845 
7846 /* k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in ... */
f_12177(C_word c,C_word * av)7847 static void C_ccall f_12177(C_word c,C_word *av){
7848 C_word tmp;
7849 C_word t0=av[0];
7850 C_word t1=av[1];
7851 C_word t2;
7852 C_word t3;
7853 C_word t4;
7854 C_word *a;
7855 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
7856 C_save_and_reclaim((void *)f_12177,c,av);}
7857 a=C_alloc(11);
7858 if(C_truep(((C_word*)t0)[2])){
7859 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12183,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
7860 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12190,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
7861 /* expand.scm:1378: chicken.base#open-output-string */
7862 t4=*((C_word*)lf[144]+1);{
7863 C_word *av2=av;
7864 av2[0]=t4;
7865 av2[1]=t3;
7866 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
7867 else{
7868 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12215,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
7869 /* expand.scm:1382: c */
7870 t3=((C_word*)t0)[7];{
7871 C_word *av2;
7872 if(c >= 4) {
7873   av2=av;
7874 } else {
7875   av2=C_alloc(4);
7876 }
7877 av2[0]=t3;
7878 av2[1]=t2;
7879 av2[2]=((C_word*)t0)[8];
7880 av2[3]=C_i_car(((C_word*)t0)[6]);
7881 ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}}
7882 
7883 /* k12181 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_12183(C_word c,C_word * av)7884 static void C_ccall f_12183(C_word c,C_word *av){
7885 C_word tmp;
7886 C_word t0=av[0];
7887 C_word t1=av[1];
7888 C_word t2;
7889 C_word t3;
7890 C_word *a;
7891 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
7892 C_save_and_reclaim((void *)f_12183,c,av);}
7893 a=C_alloc(3);
7894 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12186,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7895 /* expand.scm:1380: expand */
7896 t3=((C_word*)((C_word*)t0)[3])[1];
7897 f_12163(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}
7898 
7899 /* k12184 in k12181 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_12186(C_word c,C_word * av)7900 static void C_ccall f_12186(C_word c,C_word *av){
7901 C_word tmp;
7902 C_word t0=av[0];
7903 C_word t1=av[1];
7904 C_word t2;
7905 C_word *a;
7906 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7907 C_save_and_reclaim((void *)f_12186,c,av);}
7908 t2=((C_word*)t0)[2];{
7909 C_word *av2=av;
7910 av2[0]=t2;
7911 av2[1]=lf[277];
7912 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7913 
7914 /* k12188 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_12190(C_word c,C_word * av)7915 static void C_ccall f_12190(C_word c,C_word *av){
7916 C_word tmp;
7917 C_word t0=av[0];
7918 C_word t1=av[1];
7919 C_word t2;
7920 C_word t3;
7921 C_word t4;
7922 C_word *a;
7923 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
7924 C_save_and_reclaim((void *)f_12190,c,av);}
7925 a=C_alloc(6);
7926 t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[278]);
7927 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
7928 /* expand.scm:1378: ##sys#print */
7929 t4=*((C_word*)lf[127]+1);{
7930 C_word *av2;
7931 if(c >= 5) {
7932   av2=av;
7933 } else {
7934   av2=C_alloc(5);
7935 }
7936 av2[0]=t4;
7937 av2[1]=t3;
7938 av2[2]=lf[280];
7939 av2[3]=C_SCHEME_FALSE;
7940 av2[4]=t1;
7941 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
7942 
7943 /* k12194 in k12188 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_12196(C_word c,C_word * av)7944 static void C_ccall f_12196(C_word c,C_word *av){
7945 C_word tmp;
7946 C_word t0=av[0];
7947 C_word t1=av[1];
7948 C_word t2;
7949 C_word t3;
7950 C_word *a;
7951 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
7952 C_save_and_reclaim((void *)f_12196,c,av);}
7953 a=C_alloc(5);
7954 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
7955 /* expand.scm:1378: ##sys#print */
7956 t3=*((C_word*)lf[127]+1);{
7957 C_word *av2;
7958 if(c >= 5) {
7959   av2=av;
7960 } else {
7961   av2=C_alloc(5);
7962 }
7963 av2[0]=t3;
7964 av2[1]=t2;
7965 av2[2]=((C_word*)t0)[5];
7966 av2[3]=C_SCHEME_TRUE;
7967 av2[4]=((C_word*)t0)[4];
7968 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
7969 
7970 /* k12197 in k12194 in k12188 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_12199(C_word c,C_word * av)7971 static void C_ccall f_12199(C_word c,C_word *av){
7972 C_word tmp;
7973 C_word t0=av[0];
7974 C_word t1=av[1];
7975 C_word t2;
7976 C_word t3;
7977 C_word *a;
7978 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
7979 C_save_and_reclaim((void *)f_12199,c,av);}
7980 a=C_alloc(5);
7981 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12202,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
7982 /* expand.scm:1378: ##sys#print */
7983 t3=*((C_word*)lf[127]+1);{
7984 C_word *av2;
7985 if(c >= 5) {
7986   av2=av;
7987 } else {
7988   av2=C_alloc(5);
7989 }
7990 av2[0]=t3;
7991 av2[1]=t2;
7992 av2[2]=lf[279];
7993 av2[3]=C_SCHEME_FALSE;
7994 av2[4]=((C_word*)t0)[4];
7995 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
7996 
7997 /* k12200 in k12197 in k12194 in k12188 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_12202(C_word c,C_word * av)7998 static void C_ccall f_12202(C_word c,C_word *av){
7999 C_word tmp;
8000 C_word t0=av[0];
8001 C_word t1=av[1];
8002 C_word t2;
8003 C_word t3;
8004 C_word *a;
8005 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
8006 C_save_and_reclaim((void *)f_12202,c,av);}
8007 a=C_alloc(4);
8008 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12205,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
8009 /* expand.scm:1378: chicken.base#get-output-string */
8010 t3=*((C_word*)lf[128]+1);{
8011 C_word *av2;
8012 if(c >= 3) {
8013   av2=av;
8014 } else {
8015   av2=C_alloc(3);
8016 }
8017 av2[0]=t3;
8018 av2[1]=t2;
8019 av2[2]=((C_word*)t0)[4];
8020 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
8021 
8022 /* k12203 in k12200 in k12197 in k12194 in k12188 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_12205(C_word c,C_word * av)8023 static void C_ccall f_12205(C_word c,C_word *av){
8024 C_word tmp;
8025 C_word t0=av[0];
8026 C_word t1=av[1];
8027 C_word t2;
8028 C_word t3;
8029 C_word *a;
8030 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
8031 C_save_and_reclaim((void *)f_12205,c,av);}
8032 a=C_alloc(4);
8033 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12209,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
8034 /* expand.scm:1379: chicken.syntax#strip-syntax */
8035 t3=*((C_word*)lf[12]+1);{
8036 C_word *av2;
8037 if(c >= 3) {
8038   av2=av;
8039 } else {
8040   av2=C_alloc(3);
8041 }
8042 av2[0]=t3;
8043 av2[1]=t2;
8044 av2[2]=((C_word*)t0)[3];
8045 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
8046 
8047 /* k12207 in k12203 in k12200 in k12197 in k12194 in k12188 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_12209(C_word c,C_word * av)8048 static void C_ccall f_12209(C_word c,C_word *av){
8049 C_word tmp;
8050 C_word t0=av[0];
8051 C_word t1=av[1];
8052 C_word t2;
8053 C_word *a;
8054 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
8055 C_save_and_reclaim((void *)f_12209,c,av);}
8056 /* expand.scm:1377: ##sys#warn */
8057 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[268]+1));
8058 C_word *av2;
8059 if(c >= 4) {
8060   av2=av;
8061 } else {
8062   av2=C_alloc(4);
8063 }
8064 av2[0]=*((C_word*)lf[268]+1);
8065 av2[1]=((C_word*)t0)[2];
8066 av2[2]=((C_word*)t0)[3];
8067 av2[3]=t1;
8068 tp(4,av2);}}
8069 
8070 /* k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in ... */
f_12215(C_word c,C_word * av)8071 static void C_ccall f_12215(C_word c,C_word *av){
8072 C_word tmp;
8073 C_word t0=av[0];
8074 C_word t1=av[1];
8075 C_word t2;
8076 C_word t3;
8077 C_word t4;
8078 C_word t5;
8079 C_word t6;
8080 C_word t7;
8081 C_word t8;
8082 C_word t9;
8083 C_word *a;
8084 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
8085 C_save_and_reclaim((void *)f_12215,c,av);}
8086 a=C_alloc(17);
8087 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
8088 if(C_truep(t1)){
8089 t3=t2;{
8090 C_word *av2=av;
8091 av2[0]=t3;
8092 av2[1]=t1;
8093 f_12218(2,av2);}}
8094 else{
8095 t3=C_eqp(C_SCHEME_TRUE,C_u_i_car(((C_word*)t0)[2]));
8096 if(C_truep(t3)){
8097 t4=t2;{
8098 C_word *av2=av;
8099 av2[0]=t4;
8100 av2[1]=t3;
8101 f_12218(2,av2);}}
8102 else{
8103 t4=C_i_numberp(C_u_i_car(((C_word*)t0)[2]));
8104 if(C_truep(t4)){
8105 t5=t2;{
8106 C_word *av2=av;
8107 av2[0]=t5;
8108 av2[1]=t4;
8109 f_12218(2,av2);}}
8110 else{
8111 t5=C_charp(C_u_i_car(((C_word*)t0)[2]));
8112 if(C_truep(t5)){
8113 t6=t2;{
8114 C_word *av2=av;
8115 av2[0]=t6;
8116 av2[1]=t5;
8117 f_12218(2,av2);}}
8118 else{
8119 t6=C_i_stringp(C_u_i_car(((C_word*)t0)[2]));
8120 if(C_truep(t6)){
8121 t7=t2;{
8122 C_word *av2=av;
8123 av2[0]=t7;
8124 av2[1]=t6;
8125 f_12218(2,av2);}}
8126 else{
8127 t7=C_eofp(C_u_i_car(((C_word*)t0)[2]));
8128 if(C_truep(t7)){
8129 t8=t2;{
8130 C_word *av2=av;
8131 av2[0]=t8;
8132 av2[1]=t7;
8133 f_12218(2,av2);}}
8134 else{
8135 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12464,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
8136 /* expand.scm:1389: chicken.blob#blob? */
8137 t9=*((C_word*)lf[283]+1);{
8138 C_word *av2;
8139 if(c >= 3) {
8140   av2=av;
8141 } else {
8142   av2=C_alloc(3);
8143 }
8144 av2[0]=t9;
8145 av2[1]=t8;
8146 av2[2]=C_u_i_car(((C_word*)t0)[2]);
8147 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}}
8148 
8149 /* k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_12218(C_word c,C_word * av)8150 static void C_ccall f_12218(C_word c,C_word *av){
8151 C_word tmp;
8152 C_word t0=av[0];
8153 C_word t1=av[1];
8154 C_word t2;
8155 C_word t3;
8156 C_word t4;
8157 C_word t5;
8158 C_word *a;
8159 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
8160 C_save_and_reclaim((void *)f_12218,c,av);}
8161 a=C_alloc(12);
8162 if(C_truep(t1)){
8163 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
8164 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12281,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
8165 /* expand.scm:1394: chicken.syntax#strip-syntax */
8166 t4=*((C_word*)lf[12]+1);{
8167 C_word *av2;
8168 if(c >= 3) {
8169   av2=av;
8170 } else {
8171   av2=C_alloc(3);
8172 }
8173 av2[0]=t4;
8174 av2[1]=t3;
8175 av2[2]=C_u_i_car(((C_word*)t0)[2]);
8176 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
8177 else{
8178 if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){
8179 t2=C_u_i_car(((C_word*)t0)[2]);
8180 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12298,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
8181 /* expand.scm:1404: expand */
8182 t4=((C_word*)((C_word*)t0)[7])[1];
8183 f_12163(t4,t3,((C_word*)t0)[8],C_SCHEME_FALSE);}
8184 else{
8185 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
8186 t3=C_i_length(((C_word*)t0)[2]);
8187 t4=C_eqp(t3,C_fix(3));
8188 if(C_truep(t4)){
8189 /* expand.scm:1406: c */
8190 t5=((C_word*)t0)[4];{
8191 C_word *av2;
8192 if(c >= 4) {
8193   av2=av;
8194 } else {
8195   av2=C_alloc(4);
8196 }
8197 av2[0]=t5;
8198 av2[1]=t2;
8199 av2[2]=((C_word*)t0)[6];
8200 av2[3]=C_i_cadr(((C_word*)t0)[2]);
8201 ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
8202 else{
8203 t5=t2;{
8204 C_word *av2=av;
8205 av2[0]=t5;
8206 av2[1]=C_SCHEME_FALSE;
8207 f_12304(2,av2);}}}}}
8208 
8209 /* k12219 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_12221(C_word c,C_word * av)8210 static void C_ccall f_12221(C_word c,C_word *av){
8211 C_word tmp;
8212 C_word t0=av[0];
8213 C_word t1=av[1];
8214 C_word t2;
8215 C_word t3;
8216 C_word t4;
8217 C_word t5;
8218 C_word *a;
8219 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
8220 C_save_and_reclaim((void *)f_12221,c,av);}
8221 a=C_alloc(6);
8222 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
8223 t3=C_i_length(((C_word*)t0)[2]);
8224 t4=C_eqp(t3,C_fix(3));
8225 if(C_truep(t4)){
8226 /* expand.scm:1396: c */
8227 t5=((C_word*)t0)[4];{
8228 C_word *av2;
8229 if(c >= 4) {
8230   av2=av;
8231 } else {
8232   av2=C_alloc(4);
8233 }
8234 av2[0]=t5;
8235 av2[1]=t2;
8236 av2[2]=((C_word*)t0)[6];
8237 av2[3]=C_i_cadr(((C_word*)t0)[2]);
8238 ((C_proc)C_fast_retrieve_proc(t5))(4,av2);}}
8239 else{
8240 t5=t2;{
8241 C_word *av2=av;
8242 av2[0]=t5;
8243 av2[1]=C_SCHEME_FALSE;
8244 f_12227(2,av2);}}}
8245 
8246 /* k12225 in k12219 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_12227(C_word c,C_word * av)8247 static void C_ccall f_12227(C_word c,C_word *av){
8248 C_word tmp;
8249 C_word t0=av[0];
8250 C_word t1=av[1];
8251 C_word t2;
8252 C_word t3;
8253 C_word t4;
8254 C_word *a;
8255 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
8256 C_save_and_reclaim((void *)f_12227,c,av);}
8257 a=C_alloc(6);
8258 if(C_truep(t1)){
8259 t2=C_i_caddr(((C_word*)t0)[2]);
8260 t3=C_u_i_car(((C_word*)t0)[2]);
8261 t4=((C_word*)t0)[3];{
8262 C_word *av2=av;
8263 av2[0]=t4;
8264 av2[1]=C_a_i_list(&a,2,t2,t3);
8265 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8266 else{
8267 t2=C_i_cdr(((C_word*)t0)[2]);
8268 if(C_truep(C_i_pairp(t2))){
8269 t3=C_u_i_cdr(((C_word*)t0)[2]);
8270 t4=((C_word*)t0)[3];{
8271 C_word *av2=av;
8272 av2[0]=t4;
8273 av2[1]=C_a_i_cons(&a,2,lf[105],t3);
8274 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8275 else{
8276 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12253,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
8277 /* expand.scm:1400: c */
8278 t4=((C_word*)t0)[4];{
8279 C_word *av2;
8280 if(c >= 4) {
8281   av2=av;
8282 } else {
8283   av2=C_alloc(4);
8284 }
8285 av2[0]=t4;
8286 av2[1]=t3;
8287 av2[2]=((C_word*)t0)[5];
8288 av2[3]=C_u_i_car(((C_word*)t0)[2]);
8289 ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}}
8290 
8291 /* k12251 in k12225 in k12219 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_12253(C_word c,C_word * av)8292 static void C_ccall f_12253(C_word c,C_word *av){
8293 C_word tmp;
8294 C_word t0=av[0];
8295 C_word t1=av[1];
8296 C_word t2;
8297 C_word *a;
8298 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
8299 C_save_and_reclaim((void *)f_12253,c,av);}
8300 a=C_alloc(3);
8301 t2=((C_word*)t0)[2];{
8302 C_word *av2=av;
8303 av2[0]=t2;
8304 av2[1]=(C_truep(t1)?C_a_i_list(&a,1,lf[270]):C_u_i_car(((C_word*)t0)[3]));
8305 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8306 
8307 /* k12279 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_12281(C_word c,C_word * av)8308 static void C_ccall f_12281(C_word c,C_word *av){
8309 C_word tmp;
8310 C_word t0=av[0];
8311 C_word t1=av[1];
8312 C_word t2;
8313 C_word *a;
8314 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
8315 C_save_and_reclaim((void *)f_12281,c,av);}
8316 /* expand.scm:1394: expand */
8317 t2=((C_word*)((C_word*)t0)[2])[1];
8318 f_12163(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
8319 
8320 /* k12296 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_12298(C_word c,C_word * av)8321 static void C_ccall f_12298(C_word c,C_word *av){
8322 C_word tmp;
8323 C_word t0=av[0];
8324 C_word t1=av[1];
8325 C_word t2;
8326 C_word *a;
8327 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
8328 C_save_and_reclaim((void *)f_12298,c,av);}
8329 a=C_alloc(9);
8330 t2=((C_word*)t0)[2];{
8331 C_word *av2=av;
8332 av2[0]=t2;
8333 av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1);
8334 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8335 
8336 /* k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_12304(C_word c,C_word * av)8337 static void C_ccall f_12304(C_word c,C_word *av){
8338 C_word tmp;
8339 C_word t0=av[0];
8340 C_word t1=av[1];
8341 C_word t2;
8342 C_word t3;
8343 C_word t4;
8344 C_word *a;
8345 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
8346 C_save_and_reclaim((void *)f_12304,c,av);}
8347 a=C_alloc(7);
8348 if(C_truep(t1)){
8349 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
8350 /* expand.scm:1407: r */
8351 t3=((C_word*)t0)[6];{
8352 C_word *av2;
8353 if(c >= 3) {
8354   av2=av;
8355 } else {
8356   av2=C_alloc(3);
8357 }
8358 av2[0]=t3;
8359 av2[1]=t2;
8360 av2[2]=lf[274];
8361 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
8362 else{
8363 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
8364 t3=C_eqp(C_u_i_length(((C_word*)t0)[2]),C_fix(4));
8365 if(C_truep(t3)){
8366 /* expand.scm:1413: c */
8367 t4=((C_word*)t0)[7];{
8368 C_word *av2;
8369 if(c >= 4) {
8370   av2=av;
8371 } else {
8372   av2=C_alloc(4);
8373 }
8374 av2[0]=t4;
8375 av2[1]=t2;
8376 av2[2]=((C_word*)t0)[8];
8377 av2[3]=C_i_caddr(((C_word*)t0)[2]);
8378 ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}
8379 else{
8380 t4=t2;{
8381 C_word *av2=av;
8382 av2[0]=t4;
8383 av2[1]=C_SCHEME_FALSE;
8384 f_12344(2,av2);}}}}
8385 
8386 /* k12305 in k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_12307(C_word c,C_word * av)8387 static void C_ccall f_12307(C_word c,C_word *av){
8388 C_word tmp;
8389 C_word t0=av[0];
8390 C_word t1=av[1];
8391 C_word t2;
8392 C_word t3;
8393 C_word t4;
8394 C_word t5;
8395 C_word t6;
8396 C_word t7;
8397 C_word t8;
8398 C_word *a;
8399 if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
8400 C_save_and_reclaim((void *)f_12307,c,av);}
8401 a=C_alloc(21);
8402 t2=C_i_car(((C_word*)t0)[2]);
8403 t3=C_a_i_list(&a,2,t1,t2);
8404 t4=C_a_i_list(&a,1,t3);
8405 t5=C_i_caddr(((C_word*)t0)[2]);
8406 t6=C_a_i_list(&a,2,t5,t1);
8407 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12326,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
8408 /* expand.scm:1411: expand */
8409 t8=((C_word*)((C_word*)t0)[4])[1];
8410 f_12163(t8,t7,((C_word*)t0)[5],C_SCHEME_FALSE);}
8411 
8412 /* k12324 in k12305 in k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_12326(C_word c,C_word * av)8413 static void C_ccall f_12326(C_word c,C_word *av){
8414 C_word tmp;
8415 C_word t0=av[0];
8416 C_word t1=av[1];
8417 C_word t2;
8418 C_word t3;
8419 C_word *a;
8420 if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){
8421 C_save_and_reclaim((void *)f_12326,c,av);}
8422 a=C_alloc(21);
8423 t2=C_a_i_list(&a,4,lf[259],((C_word*)t0)[2],((C_word*)t0)[3],t1);
8424 t3=((C_word*)t0)[4];{
8425 C_word *av2=av;
8426 av2[0]=t3;
8427 av2[1]=C_a_i_list(&a,3,lf[52],((C_word*)t0)[5],t2);
8428 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
8429 
8430 /* k12342 in k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_12344(C_word c,C_word * av)8431 static void C_ccall f_12344(C_word c,C_word *av){
8432 C_word tmp;
8433 C_word t0=av[0];
8434 C_word t1=av[1];
8435 C_word t2;
8436 C_word t3;
8437 C_word t4;
8438 C_word t5;
8439 C_word t6;
8440 C_word *a;
8441 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
8442 C_save_and_reclaim((void *)f_12344,c,av);}
8443 a=C_alloc(8);
8444 if(C_truep(t1)){
8445 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
8446 /* expand.scm:1414: r */
8447 t3=((C_word*)t0)[6];{
8448 C_word *av2;
8449 if(c >= 3) {
8450   av2=av;
8451 } else {
8452   av2=C_alloc(3);
8453 }
8454 av2[0]=t3;
8455 av2[1]=t2;
8456 av2[2]=lf[274];
8457 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
8458 else{
8459 t2=C_i_car(((C_word*)t0)[2]);
8460 t3=C_u_i_cdr(((C_word*)t0)[2]);
8461 t4=C_a_i_cons(&a,2,lf[105],t3);
8462 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12401,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
8463 /* expand.scm:1424: expand */
8464 t6=((C_word*)((C_word*)t0)[4])[1];
8465 f_12163(t6,t5,((C_word*)t0)[5],C_SCHEME_FALSE);}}
8466 
8467 /* k12345 in k12342 in k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_12347(C_word c,C_word * av)8468 static void C_ccall f_12347(C_word c,C_word *av){
8469 C_word tmp;
8470 C_word t0=av[0];
8471 C_word t1=av[1];
8472 C_word t2;
8473 C_word t3;
8474 C_word t4;
8475 C_word t5;
8476 C_word t6;
8477 C_word t7;
8478 C_word t8;
8479 C_word t9;
8480 C_word *a;
8481 if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){
8482 C_save_and_reclaim((void *)f_12347,c,av);}
8483 a=C_alloc(34);
8484 t2=C_i_car(((C_word*)t0)[2]);
8485 t3=C_a_i_list(&a,3,lf[73],C_SCHEME_END_OF_LIST,t2);
8486 t4=C_i_cadr(((C_word*)t0)[2]);
8487 t5=C_a_i_list(&a,3,lf[220],t4,t1);
8488 t6=C_i_cadddr(((C_word*)t0)[2]);
8489 t7=C_a_i_list(&a,3,lf[220],t6,t1);
8490 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12374,a[2]=t5,a[3]=t7,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
8491 /* expand.scm:1421: expand */
8492 t9=((C_word*)((C_word*)t0)[4])[1];
8493 f_12163(t9,t8,((C_word*)t0)[5],C_SCHEME_FALSE);}
8494 
8495 /* k12372 in k12345 in k12342 in k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in ... */
f_12374(C_word c,C_word * av)8496 static void C_ccall f_12374(C_word c,C_word *av){
8497 C_word tmp;
8498 C_word t0=av[0];
8499 C_word t1=av[1];
8500 C_word t2;
8501 C_word t3;
8502 C_word t4;
8503 C_word *a;
8504 if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){
8505 C_save_and_reclaim((void *)f_12374,c,av);}
8506 a=C_alloc(30);
8507 t2=C_a_i_list(&a,4,lf[281],((C_word*)t0)[2],((C_word*)t0)[3],t1);
8508 t3=C_a_i_list(&a,3,lf[73],((C_word*)t0)[4],t2);
8509 t4=((C_word*)t0)[5];{
8510 C_word *av2=av;
8511 av2[0]=t4;
8512 av2[1]=C_a_i_list(&a,3,lf[92],((C_word*)t0)[6],t3);
8513 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8514 
8515 /* k12399 in k12342 in k12302 in k12216 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in ... */
f_12401(C_word c,C_word * av)8516 static void C_ccall f_12401(C_word c,C_word *av){
8517 C_word tmp;
8518 C_word t0=av[0];
8519 C_word t1=av[1];
8520 C_word t2;
8521 C_word *a;
8522 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
8523 C_save_and_reclaim((void *)f_12401,c,av);}
8524 a=C_alloc(12);
8525 t2=((C_word*)t0)[2];{
8526 C_word *av2=av;
8527 av2[0]=t2;
8528 av2[1]=C_a_i_list(&a,4,lf[259],((C_word*)t0)[3],((C_word*)t0)[4],t1);
8529 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8530 
8531 /* k12462 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in ... */
f_12464(C_word c,C_word * av)8532 static void C_ccall f_12464(C_word c,C_word *av){
8533 C_word tmp;
8534 C_word t0=av[0];
8535 C_word t1=av[1];
8536 C_word t2;
8537 C_word t3;
8538 C_word t4;
8539 C_word *a;
8540 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
8541 C_save_and_reclaim((void *)f_12464,c,av);}
8542 a=C_alloc(6);
8543 if(C_truep(t1)){
8544 t2=((C_word*)t0)[2];{
8545 C_word *av2=av;
8546 av2[0]=t2;
8547 av2[1]=t1;
8548 f_12218(2,av2);}}
8549 else{
8550 t2=C_i_vectorp(C_u_i_car(((C_word*)t0)[3]));
8551 if(C_truep(t2)){
8552 t3=((C_word*)t0)[2];{
8553 C_word *av2=av;
8554 av2[0]=t3;
8555 av2[1]=t2;
8556 f_12218(2,av2);}}
8557 else{
8558 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12476,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
8559 /* expand.scm:1391: ##sys#srfi-4-vector? */
8560 t4=*((C_word*)lf[282]+1);{
8561 C_word *av2;
8562 if(c >= 3) {
8563   av2=av;
8564 } else {
8565   av2=C_alloc(3);
8566 }
8567 av2[0]=t4;
8568 av2[1]=t3;
8569 av2[2]=C_u_i_car(((C_word*)t0)[3]);
8570 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}
8571 
8572 /* k12474 in k12462 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in ... */
f_12476(C_word c,C_word * av)8573 static void C_ccall f_12476(C_word c,C_word *av){
8574 C_word tmp;
8575 C_word t0=av[0];
8576 C_word t1=av[1];
8577 C_word t2;
8578 C_word t3;
8579 C_word *a;
8580 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
8581 C_save_and_reclaim((void *)f_12476,c,av);}
8582 a=C_alloc(5);
8583 if(C_truep(t1)){
8584 t2=((C_word*)t0)[2];{
8585 C_word *av2=av;
8586 av2[0]=t2;
8587 av2[1]=t1;
8588 f_12218(2,av2);}}
8589 else{
8590 if(C_truep(C_i_pairp(C_u_i_car(((C_word*)t0)[3])))){
8591 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12492,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
8592 /* expand.scm:1393: r */
8593 t3=((C_word*)t0)[5];{
8594 C_word *av2;
8595 if(c >= 3) {
8596   av2=av;
8597 } else {
8598   av2=C_alloc(3);
8599 }
8600 av2[0]=t3;
8601 av2[1]=t2;
8602 av2[2]=lf[217];
8603 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
8604 else{
8605 t2=((C_word*)t0)[2];{
8606 C_word *av2=av;
8607 av2[0]=t2;
8608 av2[1]=C_SCHEME_FALSE;
8609 f_12218(2,av2);}}}}
8610 
8611 /* k12490 in k12474 in k12462 in k12213 in k12175 in expand in k12156 in k12153 in k12150 in a12144 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in ... */
f_12492(C_word c,C_word * av)8612 static void C_ccall f_12492(C_word c,C_word *av){
8613 C_word tmp;
8614 C_word t0=av[0];
8615 C_word t1=av[1];
8616 C_word t2;
8617 C_word *a;
8618 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
8619 C_save_and_reclaim((void *)f_12492,c,av);}
8620 /* expand.scm:1393: c */
8621 t2=((C_word*)t0)[2];{
8622 C_word *av2;
8623 if(c >= 4) {
8624   av2=av;
8625 } else {
8626   av2=C_alloc(4);
8627 }
8628 av2[0]=t2;
8629 av2[1]=((C_word*)t0)[3];
8630 av2[2]=t1;
8631 av2[3]=C_i_caar(((C_word*)t0)[4]);
8632 ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
8633 
8634 /* k12524 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in ... */
f_12526(C_word c,C_word * av)8635 static void C_ccall f_12526(C_word c,C_word *av){
8636 C_word tmp;
8637 C_word t0=av[0];
8638 C_word t1=av[1];
8639 C_word t2;
8640 C_word *a;
8641 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
8642 C_save_and_reclaim((void *)f_12526,c,av);}
8643 /* expand.scm:1345: ##sys#extend-macro-environment */
8644 t2=*((C_word*)lf[30]+1);{
8645 C_word *av2;
8646 if(c >= 5) {
8647   av2=av;
8648 } else {
8649   av2=C_alloc(5);
8650 }
8651 av2[0]=t2;
8652 av2[1]=((C_word*)t0)[2];
8653 av2[2]=lf[226];
8654 av2[3]=C_SCHEME_END_OF_LIST;
8655 av2[4]=t1;
8656 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
8657 
8658 /* a12527 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in ... */
f_12528(C_word c,C_word * av)8659 static void C_ccall f_12528(C_word c,C_word *av){
8660 C_word tmp;
8661 C_word t0=av[0];
8662 C_word t1=av[1];
8663 C_word t2=av[2];
8664 C_word t3=av[3];
8665 C_word t4=av[4];
8666 C_word t5;
8667 C_word t6;
8668 C_word t7;
8669 C_word t8;
8670 C_word t9;
8671 C_word *a;
8672 if(c!=5) C_bad_argc_2(c,5,t0);
8673 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
8674 C_save_and_reclaim((void *)f_12528,c,av);}
8675 a=C_alloc(6);
8676 t5=C_i_cdr(t2);
8677 if(C_truep(C_i_nullp(t5))){
8678 t6=t1;{
8679 C_word *av2=av;
8680 av2[0]=t6;
8681 av2[1]=C_SCHEME_FALSE;
8682 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
8683 else{
8684 t6=C_i_cdr(t5);
8685 t7=C_u_i_car(t5);
8686 if(C_truep(C_i_nullp(t6))){
8687 t8=t1;{
8688 C_word *av2=av;
8689 av2[0]=t8;
8690 av2[1]=t7;
8691 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
8692 else{
8693 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12551,a[2]=t7,a[3]=t6,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
8694 /* expand.scm:1357: r */
8695 t9=t3;{
8696 C_word *av2=av;
8697 av2[0]=t9;
8698 av2[1]=t8;
8699 av2[2]=lf[274];
8700 ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}}
8701 
8702 /* k12549 in a12527 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in ... */
f_12551(C_word c,C_word * av)8703 static void C_ccall f_12551(C_word c,C_word *av){
8704 C_word tmp;
8705 C_word t0=av[0];
8706 C_word t1=av[1];
8707 C_word t2;
8708 C_word t3;
8709 C_word t4;
8710 C_word t5;
8711 C_word *a;
8712 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
8713 C_save_and_reclaim((void *)f_12551,c,av);}
8714 a=C_alloc(15);
8715 t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]);
8716 t3=C_a_i_list(&a,1,t2);
8717 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12570,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
8718 /* expand.scm:1359: r */
8719 t5=((C_word*)t0)[5];{
8720 C_word *av2;
8721 if(c >= 3) {
8722   av2=av;
8723 } else {
8724   av2=C_alloc(3);
8725 }
8726 av2[0]=t5;
8727 av2[1]=t4;
8728 av2[2]=lf[226];
8729 ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
8730 
8731 /* k12568 in k12549 in a12527 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in ... */
f_12570(C_word c,C_word * av)8732 static void C_ccall f_12570(C_word c,C_word *av){
8733 C_word tmp;
8734 C_word t0=av[0];
8735 C_word t1=av[1];
8736 C_word t2;
8737 C_word t3;
8738 C_word t4;
8739 C_word *a;
8740 if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){
8741 C_save_and_reclaim((void *)f_12570,c,av);}
8742 a=C_alloc(24);
8743 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
8744 t3=C_a_i_list(&a,4,lf[259],((C_word*)t0)[3],((C_word*)t0)[3],t2);
8745 t4=((C_word*)t0)[4];{
8746 C_word *av2=av;
8747 av2[0]=t4;
8748 av2[1]=C_a_i_list(&a,3,lf[52],((C_word*)t0)[5],t3);
8749 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8750 
8751 /* k12576 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in ... */
f_12578(C_word c,C_word * av)8752 static void C_ccall f_12578(C_word c,C_word *av){
8753 C_word tmp;
8754 C_word t0=av[0];
8755 C_word t1=av[1];
8756 C_word t2;
8757 C_word *a;
8758 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
8759 C_save_and_reclaim((void *)f_12578,c,av);}
8760 /* expand.scm:1331: ##sys#extend-macro-environment */
8761 t2=*((C_word*)lf[30]+1);{
8762 C_word *av2;
8763 if(c >= 5) {
8764   av2=av;
8765 } else {
8766   av2=C_alloc(5);
8767 }
8768 av2[0]=t2;
8769 av2[1]=((C_word*)t0)[2];
8770 av2[2]=lf[235];
8771 av2[3]=C_SCHEME_END_OF_LIST;
8772 av2[4]=t1;
8773 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
8774 
8775 /* a12579 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in ... */
f_12580(C_word c,C_word * av)8776 static void C_ccall f_12580(C_word c,C_word *av){
8777 C_word tmp;
8778 C_word t0=av[0];
8779 C_word t1=av[1];
8780 C_word t2=av[2];
8781 C_word t3=av[3];
8782 C_word t4=av[4];
8783 C_word t5;
8784 C_word t6;
8785 C_word t7;
8786 C_word t8;
8787 C_word t9;
8788 C_word *a;
8789 if(c!=5) C_bad_argc_2(c,5,t0);
8790 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
8791 C_save_and_reclaim((void *)f_12580,c,av);}
8792 a=C_alloc(5);
8793 t5=C_i_cdr(t2);
8794 if(C_truep(C_i_nullp(t5))){
8795 t6=t1;{
8796 C_word *av2=av;
8797 av2[0]=t6;
8798 av2[1]=C_SCHEME_TRUE;
8799 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
8800 else{
8801 t6=C_i_cdr(t5);
8802 t7=C_u_i_car(t5);
8803 if(C_truep(C_i_nullp(t6))){
8804 t8=t1;{
8805 C_word *av2=av;
8806 av2[0]=t8;
8807 av2[1]=t7;
8808 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
8809 else{
8810 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12611,a[2]=t6,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
8811 /* expand.scm:1343: r */
8812 t9=t3;{
8813 C_word *av2=av;
8814 av2[0]=t9;
8815 av2[1]=t8;
8816 av2[2]=lf[235];
8817 ((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}}
8818 
8819 /* k12609 in a12579 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in ... */
f_12611(C_word c,C_word * av)8820 static void C_ccall f_12611(C_word c,C_word *av){
8821 C_word tmp;
8822 C_word t0=av[0];
8823 C_word t1=av[1];
8824 C_word t2;
8825 C_word t3;
8826 C_word *a;
8827 if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){
8828 C_save_and_reclaim((void *)f_12611,c,av);}
8829 a=C_alloc(15);
8830 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
8831 t3=((C_word*)t0)[3];{
8832 C_word *av2=av;
8833 av2[0]=t3;
8834 av2[1]=C_a_i_list(&a,4,lf[259],((C_word*)t0)[4],t2,C_SCHEME_FALSE);
8835 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
8836 
8837 /* k12613 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in ... */
f_12615(C_word c,C_word * av)8838 static void C_ccall f_12615(C_word c,C_word *av){
8839 C_word tmp;
8840 C_word t0=av[0];
8841 C_word t1=av[1];
8842 C_word t2;
8843 C_word *a;
8844 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
8845 C_save_and_reclaim((void *)f_12615,c,av);}
8846 /* expand.scm:1319: ##sys#extend-macro-environment */
8847 t2=*((C_word*)lf[30]+1);{
8848 C_word *av2;
8849 if(c >= 5) {
8850   av2=av;
8851 } else {
8852   av2=C_alloc(5);
8853 }
8854 av2[0]=t2;
8855 av2[1]=((C_word*)t0)[2];
8856 av2[2]=lf[285];
8857 av2[3]=C_SCHEME_END_OF_LIST;
8858 av2[4]=t1;
8859 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
8860 
8861 /* a12616 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in ... */
f_12617(C_word c,C_word * av)8862 static void C_ccall f_12617(C_word c,C_word *av){
8863 C_word tmp;
8864 C_word t0=av[0];
8865 C_word t1=av[1];
8866 C_word t2=av[2];
8867 C_word t3=av[3];
8868 C_word t4=av[4];
8869 C_word t5;
8870 C_word t6;
8871 C_word *a;
8872 if(c!=5) C_bad_argc_2(c,5,t0);
8873 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
8874 C_save_and_reclaim((void *)f_12617,c,av);}
8875 a=C_alloc(4);
8876 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12621,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
8877 /* expand.scm:1324: ##sys#check-syntax */
8878 t6=*((C_word*)lf[56]+1);{
8879 C_word *av2=av;
8880 av2[0]=t6;
8881 av2[1]=t5;
8882 av2[2]=lf[285];
8883 av2[3]=t2;
8884 av2[4]=lf[287];
8885 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
8886 
8887 /* k12619 in a12616 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in ... */
f_12621(C_word c,C_word * av)8888 static void C_ccall f_12621(C_word c,C_word *av){
8889 C_word tmp;
8890 C_word t0=av[0];
8891 C_word t1=av[1];
8892 C_word t2;
8893 C_word t3;
8894 C_word t4;
8895 C_word t5;
8896 C_word t6;
8897 C_word t7;
8898 C_word t8;
8899 C_word t9;
8900 C_word *a;
8901 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
8902 C_save_and_reclaim((void *)f_12621,c,av);}
8903 a=C_alloc(13);
8904 t2=C_i_cadr(((C_word*)t0)[2]);
8905 t3=C_i_caddr(((C_word*)t0)[2]);
8906 if(C_truep(C_i_pairp(t2))){
8907 t4=C_u_i_car(t2);
8908 t5=C_a_i_list(&a,2,lf[286],t4);
8909 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12644,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
8910 t7=C_u_i_cdr(t2);
8911 t8=C_a_i_list(&a,1,t3);
8912 /* expand.scm:1328: ##sys#append */
8913 t9=*((C_word*)lf[71]+1);{
8914 C_word *av2;
8915 if(c >= 4) {
8916   av2=av;
8917 } else {
8918   av2=C_alloc(4);
8919 }
8920 av2[0]=t9;
8921 av2[1]=t6;
8922 av2[2]=t7;
8923 av2[3]=t8;
8924 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
8925 else{
8926 t4=((C_word*)t0)[3];{
8927 C_word *av2=av;
8928 av2[0]=t4;
8929 av2[1]=C_a_i_list(&a,3,lf[94],t2,t3);
8930 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
8931 
8932 /* k12642 in k12619 in a12616 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in ... */
f_12644(C_word c,C_word * av)8933 static void C_ccall f_12644(C_word c,C_word *av){
8934 C_word tmp;
8935 C_word t0=av[0];
8936 C_word t1=av[1];
8937 C_word t2;
8938 C_word *a;
8939 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
8940 C_save_and_reclaim((void *)f_12644,c,av);}
8941 a=C_alloc(3);
8942 t2=((C_word*)t0)[2];{
8943 C_word *av2=av;
8944 av2[0]=t2;
8945 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
8946 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8947 
8948 /* k12657 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12659(C_word c,C_word * av)8949 static void C_ccall f_12659(C_word c,C_word *av){
8950 C_word tmp;
8951 C_word t0=av[0];
8952 C_word t1=av[1];
8953 C_word t2;
8954 C_word *a;
8955 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
8956 C_save_and_reclaim((void *)f_12659,c,av);}
8957 /* expand.scm:1310: ##sys#extend-macro-environment */
8958 t2=*((C_word*)lf[30]+1);{
8959 C_word *av2;
8960 if(c >= 5) {
8961   av2=av;
8962 } else {
8963   av2=C_alloc(5);
8964 }
8965 av2[0]=t2;
8966 av2[1]=((C_word*)t0)[2];
8967 av2[2]=lf[288];
8968 av2[3]=C_SCHEME_END_OF_LIST;
8969 av2[4]=t1;
8970 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
8971 
8972 /* a12660 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12661(C_word c,C_word * av)8973 static void C_ccall f_12661(C_word c,C_word *av){
8974 C_word tmp;
8975 C_word t0=av[0];
8976 C_word t1=av[1];
8977 C_word t2=av[2];
8978 C_word t3=av[3];
8979 C_word t4=av[4];
8980 C_word t5;
8981 C_word t6;
8982 C_word *a;
8983 if(c!=5) C_bad_argc_2(c,5,t0);
8984 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
8985 C_save_and_reclaim((void *)f_12661,c,av);}
8986 a=C_alloc(4);
8987 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12665,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
8988 /* expand.scm:1315: ##sys#check-syntax */
8989 t6=*((C_word*)lf[56]+1);{
8990 C_word *av2=av;
8991 av2[0]=t6;
8992 av2[1]=t5;
8993 av2[2]=lf[288];
8994 av2[3]=t2;
8995 av2[4]=lf[291];
8996 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
8997 
8998 /* k12663 in a12660 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in ... */
f_12665(C_word c,C_word * av)8999 static void C_ccall f_12665(C_word c,C_word *av){
9000 C_word tmp;
9001 C_word t0=av[0];
9002 C_word t1=av[1];
9003 C_word t2;
9004 C_word t3;
9005 C_word *a;
9006 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9007 C_save_and_reclaim((void *)f_12665,c,av);}
9008 a=C_alloc(4);
9009 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9010 /* expand.scm:1316: chicken.internal#check-for-multiple-bindings */
9011 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[289]+1));
9012 C_word *av2;
9013 if(c >= 5) {
9014   av2=av;
9015 } else {
9016   av2=C_alloc(5);
9017 }
9018 av2[0]=*((C_word*)lf[289]+1);
9019 av2[1]=t2;
9020 av2[2]=C_i_cadr(((C_word*)t0)[2]);
9021 av2[3]=((C_word*)t0)[2];
9022 av2[4]=lf[290];
9023 tp(5,av2);}}
9024 
9025 /* k12666 in k12663 in a12660 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in ... */
f_12668(C_word c,C_word * av)9026 static void C_ccall f_12668(C_word c,C_word *av){
9027 C_word tmp;
9028 C_word t0=av[0];
9029 C_word t1=av[1];
9030 C_word t2;
9031 C_word t3;
9032 C_word *a;
9033 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
9034 C_save_and_reclaim((void *)f_12668,c,av);}
9035 a=C_alloc(3);
9036 t2=C_u_i_cdr(((C_word*)t0)[2]);
9037 t3=((C_word*)t0)[3];{
9038 C_word *av2=av;
9039 av2[0]=t3;
9040 av2[1]=C_a_i_cons(&a,2,lf[109],t2);
9041 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9042 
9043 /* k12679 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12681(C_word c,C_word * av)9044 static void C_ccall f_12681(C_word c,C_word *av){
9045 C_word tmp;
9046 C_word t0=av[0];
9047 C_word t1=av[1];
9048 C_word t2;
9049 C_word *a;
9050 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9051 C_save_and_reclaim((void *)f_12681,c,av);}
9052 /* expand.scm:1301: ##sys#extend-macro-environment */
9053 t2=*((C_word*)lf[30]+1);{
9054 C_word *av2;
9055 if(c >= 5) {
9056   av2=av;
9057 } else {
9058   av2=C_alloc(5);
9059 }
9060 av2[0]=t2;
9061 av2[1]=((C_word*)t0)[2];
9062 av2[2]=lf[292];
9063 av2[3]=C_SCHEME_END_OF_LIST;
9064 av2[4]=t1;
9065 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9066 
9067 /* a12682 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12683(C_word c,C_word * av)9068 static void C_ccall f_12683(C_word c,C_word *av){
9069 C_word tmp;
9070 C_word t0=av[0];
9071 C_word t1=av[1];
9072 C_word t2=av[2];
9073 C_word t3=av[3];
9074 C_word t4=av[4];
9075 C_word t5;
9076 C_word t6;
9077 C_word *a;
9078 if(c!=5) C_bad_argc_2(c,5,t0);
9079 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9080 C_save_and_reclaim((void *)f_12683,c,av);}
9081 a=C_alloc(4);
9082 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12687,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9083 /* expand.scm:1306: ##sys#check-syntax */
9084 t6=*((C_word*)lf[56]+1);{
9085 C_word *av2=av;
9086 av2[0]=t6;
9087 av2[1]=t5;
9088 av2[2]=lf[292];
9089 av2[3]=t2;
9090 av2[4]=lf[295];
9091 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
9092 
9093 /* k12685 in a12682 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12687(C_word c,C_word * av)9094 static void C_ccall f_12687(C_word c,C_word *av){
9095 C_word tmp;
9096 C_word t0=av[0];
9097 C_word t1=av[1];
9098 C_word t2;
9099 C_word t3;
9100 C_word *a;
9101 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9102 C_save_and_reclaim((void *)f_12687,c,av);}
9103 a=C_alloc(4);
9104 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9105 /* expand.scm:1307: chicken.internal#check-for-multiple-bindings */
9106 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[289]+1));
9107 C_word *av2;
9108 if(c >= 5) {
9109   av2=av;
9110 } else {
9111   av2=C_alloc(5);
9112 }
9113 av2[0]=*((C_word*)lf[289]+1);
9114 av2[1]=t2;
9115 av2[2]=C_i_cadr(((C_word*)t0)[2]);
9116 av2[3]=((C_word*)t0)[2];
9117 av2[4]=lf[294];
9118 tp(5,av2);}}
9119 
9120 /* k12688 in k12685 in a12682 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in ... */
f_12690(C_word c,C_word * av)9121 static void C_ccall f_12690(C_word c,C_word *av){
9122 C_word tmp;
9123 C_word t0=av[0];
9124 C_word t1=av[1];
9125 C_word t2;
9126 C_word t3;
9127 C_word *a;
9128 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
9129 C_save_and_reclaim((void *)f_12690,c,av);}
9130 a=C_alloc(3);
9131 t2=C_u_i_cdr(((C_word*)t0)[2]);
9132 t3=((C_word*)t0)[3];{
9133 C_word *av2=av;
9134 av2[0]=t3;
9135 av2[1]=C_a_i_cons(&a,2,lf[293],t2);
9136 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9137 
9138 /* k12701 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12703(C_word c,C_word * av)9139 static void C_ccall f_12703(C_word c,C_word *av){
9140 C_word tmp;
9141 C_word t0=av[0];
9142 C_word t1=av[1];
9143 C_word t2;
9144 C_word *a;
9145 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9146 C_save_and_reclaim((void *)f_12703,c,av);}
9147 /* expand.scm:1292: ##sys#extend-macro-environment */
9148 t2=*((C_word*)lf[30]+1);{
9149 C_word *av2;
9150 if(c >= 5) {
9151   av2=av;
9152 } else {
9153   av2=C_alloc(5);
9154 }
9155 av2[0]=t2;
9156 av2[1]=((C_word*)t0)[2];
9157 av2[2]=lf[296];
9158 av2[3]=C_SCHEME_END_OF_LIST;
9159 av2[4]=t1;
9160 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9161 
9162 /* a12704 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12705(C_word c,C_word * av)9163 static void C_ccall f_12705(C_word c,C_word *av){
9164 C_word tmp;
9165 C_word t0=av[0];
9166 C_word t1=av[1];
9167 C_word t2=av[2];
9168 C_word t3=av[3];
9169 C_word t4=av[4];
9170 C_word t5;
9171 C_word t6;
9172 C_word *a;
9173 if(c!=5) C_bad_argc_2(c,5,t0);
9174 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9175 C_save_and_reclaim((void *)f_12705,c,av);}
9176 a=C_alloc(4);
9177 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12709,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9178 /* expand.scm:1297: ##sys#check-syntax */
9179 t6=*((C_word*)lf[56]+1);{
9180 C_word *av2=av;
9181 av2[0]=t6;
9182 av2[1]=t5;
9183 av2[2]=lf[296];
9184 av2[3]=t2;
9185 av2[4]=lf[299];
9186 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
9187 
9188 /* k12707 in a12704 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12709(C_word c,C_word * av)9189 static void C_ccall f_12709(C_word c,C_word *av){
9190 C_word tmp;
9191 C_word t0=av[0];
9192 C_word t1=av[1];
9193 C_word t2;
9194 C_word t3;
9195 C_word *a;
9196 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9197 C_save_and_reclaim((void *)f_12709,c,av);}
9198 a=C_alloc(4);
9199 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12712,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9200 /* expand.scm:1298: chicken.internal#check-for-multiple-bindings */
9201 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[289]+1));
9202 C_word *av2;
9203 if(c >= 5) {
9204   av2=av;
9205 } else {
9206   av2=C_alloc(5);
9207 }
9208 av2[0]=*((C_word*)lf[289]+1);
9209 av2[1]=t2;
9210 av2[2]=C_i_cadr(((C_word*)t0)[2]);
9211 av2[3]=((C_word*)t0)[2];
9212 av2[4]=lf[298];
9213 tp(5,av2);}}
9214 
9215 /* k12710 in k12707 in a12704 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12712(C_word c,C_word * av)9216 static void C_ccall f_12712(C_word c,C_word *av){
9217 C_word tmp;
9218 C_word t0=av[0];
9219 C_word t1=av[1];
9220 C_word t2;
9221 C_word t3;
9222 C_word *a;
9223 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
9224 C_save_and_reclaim((void *)f_12712,c,av);}
9225 a=C_alloc(3);
9226 t2=C_u_i_cdr(((C_word*)t0)[2]);
9227 t3=((C_word*)t0)[3];{
9228 C_word *av2=av;
9229 av2[0]=t3;
9230 av2[1]=C_a_i_cons(&a,2,lf[297],t2);
9231 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9232 
9233 /* k12723 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in ... */
f_12725(C_word c,C_word * av)9234 static void C_ccall f_12725(C_word c,C_word *av){
9235 C_word tmp;
9236 C_word t0=av[0];
9237 C_word t1=av[1];
9238 C_word t2;
9239 C_word *a;
9240 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9241 C_save_and_reclaim((void *)f_12725,c,av);}
9242 /* expand.scm:1279: ##sys#extend-macro-environment */
9243 t2=*((C_word*)lf[30]+1);{
9244 C_word *av2;
9245 if(c >= 5) {
9246   av2=av;
9247 } else {
9248   av2=C_alloc(5);
9249 }
9250 av2[0]=t2;
9251 av2[1]=((C_word*)t0)[2];
9252 av2[2]=lf[57];
9253 av2[3]=C_SCHEME_END_OF_LIST;
9254 av2[4]=t1;
9255 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9256 
9257 /* a12726 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in ... */
f_12727(C_word c,C_word * av)9258 static void C_ccall f_12727(C_word c,C_word *av){
9259 C_word tmp;
9260 C_word t0=av[0];
9261 C_word t1=av[1];
9262 C_word t2=av[2];
9263 C_word t3=av[3];
9264 C_word t4=av[4];
9265 C_word t5;
9266 C_word t6;
9267 C_word t7;
9268 C_word t8;
9269 C_word t9;
9270 C_word t10;
9271 C_word *a;
9272 if(c!=5) C_bad_argc_2(c,5,t0);
9273 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
9274 C_save_and_reclaim((void *)f_12727,c,av);}
9275 a=C_alloc(8);
9276 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12731,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9277 t6=C_i_cdr(t2);
9278 t7=C_i_pairp(t6);
9279 t8=(C_truep(t7)?C_i_symbolp(C_i_cadr(t2)):C_SCHEME_FALSE);
9280 if(C_truep(t8)){
9281 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12742,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
9282 /* expand.scm:1285: ##sys#check-syntax */
9283 t10=*((C_word*)lf[56]+1);{
9284 C_word *av2=av;
9285 av2[0]=t10;
9286 av2[1]=t9;
9287 av2[2]=lf[57];
9288 av2[3]=t2;
9289 av2[4]=lf[301];
9290 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
9291 else{
9292 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12752,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
9293 /* expand.scm:1288: ##sys#check-syntax */
9294 t10=*((C_word*)lf[56]+1);{
9295 C_word *av2=av;
9296 av2[0]=t10;
9297 av2[1]=t9;
9298 av2[2]=lf[57];
9299 av2[3]=t2;
9300 av2[4]=lf[303];
9301 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}
9302 
9303 /* k12729 in a12726 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12731(C_word c,C_word * av)9304 static void C_ccall f_12731(C_word c,C_word *av){
9305 C_word tmp;
9306 C_word t0=av[0];
9307 C_word t1=av[1];
9308 C_word t2;
9309 C_word t3;
9310 C_word *a;
9311 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
9312 C_save_and_reclaim((void *)f_12731,c,av);}
9313 a=C_alloc(3);
9314 t2=C_u_i_cdr(((C_word*)t0)[2]);
9315 t3=((C_word*)t0)[3];{
9316 C_word *av2=av;
9317 av2[0]=t3;
9318 av2[1]=C_a_i_cons(&a,2,lf[52],t2);
9319 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9320 
9321 /* k12740 in a12726 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12742(C_word c,C_word * av)9322 static void C_ccall f_12742(C_word c,C_word *av){
9323 C_word tmp;
9324 C_word t0=av[0];
9325 C_word t1=av[1];
9326 C_word t2;
9327 C_word *a;
9328 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9329 C_save_and_reclaim((void *)f_12742,c,av);}
9330 /* expand.scm:1286: chicken.internal#check-for-multiple-bindings */
9331 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[289]+1));
9332 C_word *av2;
9333 if(c >= 5) {
9334   av2=av;
9335 } else {
9336   av2=C_alloc(5);
9337 }
9338 av2[0]=*((C_word*)lf[289]+1);
9339 av2[1]=((C_word*)t0)[2];
9340 av2[2]=C_i_caddr(((C_word*)t0)[3]);
9341 av2[3]=((C_word*)t0)[3];
9342 av2[4]=lf[300];
9343 tp(5,av2);}}
9344 
9345 /* k12750 in a12726 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12752(C_word c,C_word * av)9346 static void C_ccall f_12752(C_word c,C_word *av){
9347 C_word tmp;
9348 C_word t0=av[0];
9349 C_word t1=av[1];
9350 C_word t2;
9351 C_word *a;
9352 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9353 C_save_and_reclaim((void *)f_12752,c,av);}
9354 /* expand.scm:1289: chicken.internal#check-for-multiple-bindings */
9355 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[289]+1));
9356 C_word *av2;
9357 if(c >= 5) {
9358   av2=av;
9359 } else {
9360   av2=C_alloc(5);
9361 }
9362 av2[0]=*((C_word*)lf[289]+1);
9363 av2[1]=((C_word*)t0)[2];
9364 av2[2]=C_i_cadr(((C_word*)t0)[3]);
9365 av2[3]=((C_word*)t0)[3];
9366 av2[4]=lf[302];
9367 tp(5,av2);}}
9368 
9369 /* k12775 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in ... */
f_12777(C_word c,C_word * av)9370 static void C_ccall f_12777(C_word c,C_word *av){
9371 C_word tmp;
9372 C_word t0=av[0];
9373 C_word t1=av[1];
9374 C_word t2;
9375 C_word *a;
9376 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9377 C_save_and_reclaim((void *)f_12777,c,av);}
9378 /* expand.scm:1265: ##sys#extend-macro-environment */
9379 t2=*((C_word*)lf[30]+1);{
9380 C_word *av2;
9381 if(c >= 5) {
9382   av2=av;
9383 } else {
9384   av2=C_alloc(5);
9385 }
9386 av2[0]=t2;
9387 av2[1]=((C_word*)t0)[2];
9388 av2[2]=lf[102];
9389 av2[3]=C_SCHEME_END_OF_LIST;
9390 av2[4]=t1;
9391 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9392 
9393 /* a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in ... */
f_12779(C_word c,C_word * av)9394 static void C_ccall f_12779(C_word c,C_word *av){
9395 C_word tmp;
9396 C_word t0=av[0];
9397 C_word t1=av[1];
9398 C_word t2=av[2];
9399 C_word t3=av[3];
9400 C_word t4=av[4];
9401 C_word t5;
9402 C_word t6;
9403 C_word *a;
9404 if(c!=5) C_bad_argc_2(c,5,t0);
9405 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
9406 C_save_and_reclaim((void *)f_12779,c,av);}
9407 a=C_alloc(6);
9408 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12783,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
9409 /* expand.scm:1270: ##sys#check-syntax */
9410 t6=*((C_word*)lf[56]+1);{
9411 C_word *av2=av;
9412 av2[0]=t6;
9413 av2[1]=t5;
9414 av2[2]=lf[102];
9415 av2[3]=t2;
9416 av2[4]=lf[307];
9417 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
9418 
9419 /* k12781 in a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in ... */
f_12783(C_word c,C_word * av)9420 static void C_ccall f_12783(C_word c,C_word *av){
9421 C_word tmp;
9422 C_word t0=av[0];
9423 C_word t1=av[1];
9424 C_word t2;
9425 C_word t3;
9426 C_word t4;
9427 C_word t5;
9428 C_word t6;
9429 C_word t7;
9430 C_word t8;
9431 C_word *a;
9432 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
9433 C_save_and_reclaim((void *)f_12783,c,av);}
9434 a=C_alloc(12);
9435 t2=C_i_cadr(((C_word*)t0)[2]);
9436 t3=C_i_caddr(((C_word*)t0)[2]);
9437 t4=C_i_getprop(t2,lf[7],C_SCHEME_FALSE);
9438 t5=(C_truep(t4)?t4:t2);
9439 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12800,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
9440 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12820,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
9441 /* expand.scm:1274: ##sys#current-module */
9442 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[306]+1));
9443 C_word *av2=av;
9444 av2[0]=*((C_word*)lf[306]+1);
9445 av2[1]=t7;
9446 tp(2,av2);}}
9447 
9448 /* k12798 in k12781 in a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12800(C_word c,C_word * av)9449 static void C_ccall f_12800(C_word c,C_word *av){
9450 C_word tmp;
9451 C_word t0=av[0];
9452 C_word t1=av[1];
9453 C_word t2;
9454 C_word t3;
9455 C_word t4;
9456 C_word t5;
9457 C_word *a;
9458 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
9459 C_save_and_reclaim((void *)f_12800,c,av);}
9460 a=C_alloc(17);
9461 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12803,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
9462 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12809,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
9463 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12816,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
9464 /* expand.scm:1275: r */
9465 t5=((C_word*)t0)[7];{
9466 C_word *av2;
9467 if(c >= 3) {
9468   av2=av;
9469 } else {
9470   av2=C_alloc(3);
9471 }
9472 av2[0]=t5;
9473 av2[1]=t4;
9474 av2[2]=lf[102];
9475 ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
9476 
9477 /* k12801 in k12798 in k12781 in a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12803(C_word c,C_word * av)9478 static void C_ccall f_12803(C_word c,C_word *av){
9479 C_word tmp;
9480 C_word t0=av[0];
9481 C_word t1=av[1];
9482 C_word t2;
9483 C_word *a;
9484 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
9485 C_save_and_reclaim((void *)f_12803,c,av);}
9486 a=C_alloc(9);
9487 t2=((C_word*)t0)[2];{
9488 C_word *av2=av;
9489 av2[0]=t2;
9490 av2[1]=C_a_i_list(&a,3,lf[304],((C_word*)t0)[3],((C_word*)t0)[4]);
9491 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
9492 
9493 /* k12807 in k12798 in k12781 in a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12809(C_word c,C_word * av)9494 static void C_ccall f_12809(C_word c,C_word *av){
9495 C_word tmp;
9496 C_word t0=av[0];
9497 C_word t1=av[1];
9498 C_word t2;
9499 C_word *a;
9500 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
9501 C_save_and_reclaim((void *)f_12809,c,av);}
9502 a=C_alloc(9);
9503 if(C_truep(t1)){
9504 /* expand.scm:428: ##sys#syntax-error-hook */
9505 t2=*((C_word*)lf[43]+1);{
9506 C_word *av2;
9507 if(c >= 4) {
9508   av2=av;
9509 } else {
9510   av2=C_alloc(4);
9511 }
9512 av2[0]=t2;
9513 av2[1]=((C_word*)t0)[2];
9514 av2[2]=lf[110];
9515 av2[3]=((C_word*)t0)[3];
9516 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
9517 else{
9518 t2=((C_word*)t0)[4];{
9519 C_word *av2=av;
9520 av2[0]=t2;
9521 av2[1]=C_a_i_list(&a,3,lf[304],((C_word*)t0)[5],((C_word*)t0)[6]);
9522 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
9523 
9524 /* k12814 in k12798 in k12781 in a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12816(C_word c,C_word * av)9525 static void C_ccall f_12816(C_word c,C_word *av){
9526 C_word tmp;
9527 C_word t0=av[0];
9528 C_word t1=av[1];
9529 C_word t2;
9530 C_word *a;
9531 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9532 C_save_and_reclaim((void *)f_12816,c,av);}
9533 /* expand.scm:1275: c */
9534 t2=((C_word*)t0)[2];{
9535 C_word *av2;
9536 if(c >= 4) {
9537   av2=av;
9538 } else {
9539   av2=C_alloc(4);
9540 }
9541 av2[0]=t2;
9542 av2[1]=((C_word*)t0)[3];
9543 av2[2]=t1;
9544 av2[3]=((C_word*)t0)[4];
9545 ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
9546 
9547 /* k12818 in k12781 in a12778 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12820(C_word c,C_word * av)9548 static void C_ccall f_12820(C_word c,C_word *av){
9549 C_word tmp;
9550 C_word t0=av[0];
9551 C_word t1=av[1];
9552 C_word t2;
9553 C_word *a;
9554 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9555 C_save_and_reclaim((void *)f_12820,c,av);}
9556 /* expand.scm:1274: ##sys#register-export */
9557 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[305]+1));
9558 C_word *av2;
9559 if(c >= 4) {
9560   av2=av;
9561 } else {
9562   av2=C_alloc(4);
9563 }
9564 av2[0]=*((C_word*)lf[305]+1);
9565 av2[1]=((C_word*)t0)[2];
9566 av2[2]=((C_word*)t0)[3];
9567 av2[3]=t1;
9568 tp(4,av2);}}
9569 
9570 /* k12822 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in ... */
f_12824(C_word c,C_word * av)9571 static void C_ccall f_12824(C_word c,C_word *av){
9572 C_word tmp;
9573 C_word t0=av[0];
9574 C_word t1=av[1];
9575 C_word t2;
9576 C_word *a;
9577 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9578 C_save_and_reclaim((void *)f_12824,c,av);}
9579 /* expand.scm:1237: ##sys#extend-macro-environment */
9580 t2=*((C_word*)lf[30]+1);{
9581 C_word *av2;
9582 if(c >= 5) {
9583   av2=av;
9584 } else {
9585   av2=C_alloc(5);
9586 }
9587 av2[0]=t2;
9588 av2[1]=((C_word*)t0)[2];
9589 av2[2]=lf[101];
9590 av2[3]=C_SCHEME_END_OF_LIST;
9591 av2[4]=t1;
9592 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9593 
9594 /* a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in ... */
f_12826(C_word c,C_word * av)9595 static void C_ccall f_12826(C_word c,C_word *av){
9596 C_word tmp;
9597 C_word t0=av[0];
9598 C_word t1=av[1];
9599 C_word t2=av[2];
9600 C_word t3=av[3];
9601 C_word t4=av[4];
9602 C_word t5;
9603 C_word t6;
9604 C_word *a;
9605 if(c!=5) C_bad_argc_2(c,5,t0);
9606 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
9607 C_save_and_reclaim((void *)f_12826,c,av);}
9608 a=C_alloc(6);
9609 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12830,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
9610 /* expand.scm:1242: ##sys#check-syntax */
9611 t6=*((C_word*)lf[56]+1);{
9612 C_word *av2=av;
9613 av2[0]=t6;
9614 av2[1]=t5;
9615 av2[2]=lf[101];
9616 av2[3]=t2;
9617 av2[4]=lf[313];
9618 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
9619 
9620 /* k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in ... */
f_12830(C_word c,C_word * av)9621 static void C_ccall f_12830(C_word c,C_word *av){
9622 C_word tmp;
9623 C_word t0=av[0];
9624 C_word t1=av[1];
9625 C_word t2;
9626 C_word t3;
9627 C_word t4;
9628 C_word t5;
9629 C_word *a;
9630 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
9631 C_save_and_reclaim((void *)f_12830,c,av);}
9632 a=C_alloc(9);
9633 t2=C_SCHEME_UNDEFINED;
9634 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
9635 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li151),tmp=(C_word)a,a+=7,tmp));
9636 t5=((C_word*)t3)[1];
9637 f_12835(t5,((C_word*)t0)[5],((C_word*)t0)[2]);}
9638 
9639 /* loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in ... */
f_12835(C_word t0,C_word t1,C_word t2)9640 static void C_fcall f_12835(C_word t0,C_word t1,C_word t2){
9641 C_word tmp;
9642 C_word t3;
9643 C_word t4;
9644 C_word t5;
9645 C_word t6;
9646 C_word t7;
9647 C_word t8;
9648 C_word t9;
9649 C_word *a;
9650 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
9651 C_save_and_reclaim_args((void *)trf_12835,3,t0,t1,t2);}
9652 a=C_alloc(8);
9653 t3=C_i_cadr(t2);
9654 t4=C_u_i_cdr(t2);
9655 t5=C_u_i_cdr(t4);
9656 t6=C_i_pairp(t3);
9657 if(C_truep(C_i_not(t6))){
9658 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12850,a[2]=t3,a[3]=t5,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
9659 /* expand.scm:1247: ##sys#check-syntax */
9660 t8=*((C_word*)lf[56]+1);{
9661 C_word av2[5];
9662 av2[0]=t8;
9663 av2[1]=t7;
9664 av2[2]=lf[101];
9665 av2[3]=t2;
9666 av2[4]=lf[310];
9667 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
9668 else{
9669 t7=C_i_car(t3);
9670 if(C_truep(C_i_pairp(t7))){
9671 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12906,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
9672 /* expand.scm:1258: ##sys#check-syntax */
9673 t9=*((C_word*)lf[56]+1);{
9674 C_word av2[5];
9675 av2[0]=t9;
9676 av2[1]=t8;
9677 av2[2]=lf[101];
9678 av2[3]=t2;
9679 av2[4]=lf[311];
9680 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
9681 else{
9682 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12916,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
9683 /* expand.scm:1261: ##sys#check-syntax */
9684 t9=*((C_word*)lf[56]+1);{
9685 C_word av2[5];
9686 av2[0]=t9;
9687 av2[1]=t8;
9688 av2[2]=lf[101];
9689 av2[3]=t2;
9690 av2[4]=lf[312];
9691 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}
9692 
9693 /* k12848 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12850(C_word c,C_word * av)9694 static void C_ccall f_12850(C_word c,C_word *av){
9695 C_word tmp;
9696 C_word t0=av[0];
9697 C_word t1=av[1];
9698 C_word t2;
9699 C_word t3;
9700 C_word t4;
9701 C_word t5;
9702 C_word t6;
9703 C_word *a;
9704 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
9705 C_save_and_reclaim((void *)f_12850,c,av);}
9706 a=C_alloc(12);
9707 t2=C_i_getprop(((C_word*)t0)[2],lf[7],C_SCHEME_FALSE);
9708 t3=(C_truep(t2)?t2:((C_word*)t0)[2]);
9709 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12861,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
9710 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12897,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
9711 /* expand.scm:1249: ##sys#current-module */
9712 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[306]+1));
9713 C_word *av2=av;
9714 av2[0]=*((C_word*)lf[306]+1);
9715 av2[1]=t5;
9716 tp(2,av2);}}
9717 
9718 /* k12859 in k12848 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12861(C_word c,C_word * av)9719 static void C_ccall f_12861(C_word c,C_word *av){
9720 C_word tmp;
9721 C_word t0=av[0];
9722 C_word t1=av[1];
9723 C_word t2;
9724 C_word t3;
9725 C_word t4;
9726 C_word t5;
9727 C_word *a;
9728 if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
9729 C_save_and_reclaim((void *)f_12861,c,av);}
9730 a=C_alloc(14);
9731 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
9732 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12886,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
9733 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12893,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
9734 /* expand.scm:1250: r */
9735 t5=((C_word*)t0)[7];{
9736 C_word *av2;
9737 if(c >= 3) {
9738   av2=av;
9739 } else {
9740   av2=C_alloc(3);
9741 }
9742 av2[0]=t5;
9743 av2[1]=t4;
9744 av2[2]=lf[101];
9745 ((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}
9746 
9747 /* k12862 in k12859 in k12848 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12864(C_word c,C_word * av)9748 static void C_ccall f_12864(C_word c,C_word *av){
9749 C_word tmp;
9750 C_word t0=av[0];
9751 C_word t1=av[1];
9752 C_word t2;
9753 C_word t3;
9754 C_word t4;
9755 C_word t5;
9756 C_word *a;
9757 if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){
9758 C_save_and_reclaim((void *)f_12864,c,av);}
9759 a=C_alloc(24);
9760 t2=C_a_i_list(&a,2,lf[308],((C_word*)t0)[2]);
9761 if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
9762 t3=C_u_i_car(((C_word*)t0)[3]);
9763 t4=C_a_i_list(&a,3,lf[94],((C_word*)t0)[2],t3);
9764 t5=((C_word*)t0)[4];{
9765 C_word *av2=av;
9766 av2[0]=t5;
9767 av2[1]=C_a_i_list(&a,3,lf[105],t2,t4);
9768 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
9769 else{
9770 t3=C_a_i_list(&a,3,lf[94],((C_word*)t0)[2],lf[309]);
9771 t4=((C_word*)t0)[4];{
9772 C_word *av2=av;
9773 av2[0]=t4;
9774 av2[1]=C_a_i_list(&a,3,lf[105],t2,t3);
9775 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
9776 
9777 /* k12884 in k12859 in k12848 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12886(C_word c,C_word * av)9778 static void C_ccall f_12886(C_word c,C_word *av){
9779 C_word tmp;
9780 C_word t0=av[0];
9781 C_word t1=av[1];
9782 C_word t2;
9783 C_word *a;
9784 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9785 C_save_and_reclaim((void *)f_12886,c,av);}
9786 if(C_truep(t1)){
9787 /* expand.scm:428: ##sys#syntax-error-hook */
9788 t2=*((C_word*)lf[43]+1);{
9789 C_word *av2;
9790 if(c >= 4) {
9791   av2=av;
9792 } else {
9793   av2=C_alloc(4);
9794 }
9795 av2[0]=t2;
9796 av2[1]=((C_word*)t0)[2];
9797 av2[2]=lf[110];
9798 av2[3]=((C_word*)t0)[3];
9799 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
9800 else{
9801 t2=((C_word*)t0)[2];{
9802 C_word *av2=av;
9803 av2[0]=t2;
9804 av2[1]=C_SCHEME_UNDEFINED;
9805 f_12864(2,av2);}}}
9806 
9807 /* k12891 in k12859 in k12848 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_12893(C_word c,C_word * av)9808 static void C_ccall f_12893(C_word c,C_word *av){
9809 C_word tmp;
9810 C_word t0=av[0];
9811 C_word t1=av[1];
9812 C_word t2;
9813 C_word *a;
9814 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9815 C_save_and_reclaim((void *)f_12893,c,av);}
9816 /* expand.scm:1250: c */
9817 t2=((C_word*)t0)[2];{
9818 C_word *av2;
9819 if(c >= 4) {
9820   av2=av;
9821 } else {
9822   av2=C_alloc(4);
9823 }
9824 av2[0]=t2;
9825 av2[1]=((C_word*)t0)[3];
9826 av2[2]=t1;
9827 av2[3]=((C_word*)t0)[4];
9828 ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
9829 
9830 /* k12895 in k12848 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12897(C_word c,C_word * av)9831 static void C_ccall f_12897(C_word c,C_word *av){
9832 C_word tmp;
9833 C_word t0=av[0];
9834 C_word t1=av[1];
9835 C_word t2;
9836 C_word *a;
9837 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9838 C_save_and_reclaim((void *)f_12897,c,av);}
9839 /* expand.scm:1249: ##sys#register-export */
9840 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[305]+1));
9841 C_word *av2;
9842 if(c >= 4) {
9843   av2=av;
9844 } else {
9845   av2=C_alloc(4);
9846 }
9847 av2[0]=*((C_word*)lf[305]+1);
9848 av2[1]=((C_word*)t0)[2];
9849 av2[2]=((C_word*)t0)[3];
9850 av2[3]=t1;
9851 tp(4,av2);}}
9852 
9853 /* k12904 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12906(C_word c,C_word * av)9854 static void C_ccall f_12906(C_word c,C_word *av){
9855 C_word tmp;
9856 C_word t0=av[0];
9857 C_word t1=av[1];
9858 C_word t2;
9859 C_word t3;
9860 C_word *a;
9861 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9862 C_save_and_reclaim((void *)f_12906,c,av);}
9863 a=C_alloc(4);
9864 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
9865 /* expand.scm:1259: chicken.syntax#expand-curried-define */
9866 t3=*((C_word*)lf[113]+1);{
9867 C_word *av2;
9868 if(c >= 5) {
9869   av2=av;
9870 } else {
9871   av2=C_alloc(5);
9872 }
9873 av2[0]=t3;
9874 av2[1]=t2;
9875 av2[2]=((C_word*)t0)[4];
9876 av2[3]=((C_word*)t0)[5];
9877 av2[4]=C_SCHEME_END_OF_LIST;
9878 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
9879 
9880 /* k12911 in k12904 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_12913(C_word c,C_word * av)9881 static void C_ccall f_12913(C_word c,C_word *av){
9882 C_word tmp;
9883 C_word t0=av[0];
9884 C_word t1=av[1];
9885 C_word t2;
9886 C_word *a;
9887 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
9888 C_save_and_reclaim((void *)f_12913,c,av);}
9889 /* expand.scm:1259: loop */
9890 t2=((C_word*)((C_word*)t0)[2])[1];
9891 f_12835(t2,((C_word*)t0)[3],t1);}
9892 
9893 /* k12914 in loop in k12828 in a12825 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_12916(C_word c,C_word * av)9894 static void C_ccall f_12916(C_word c,C_word *av){
9895 C_word tmp;
9896 C_word t0=av[0];
9897 C_word t1=av[1];
9898 C_word t2;
9899 C_word t3;
9900 C_word t4;
9901 C_word t5;
9902 C_word t6;
9903 C_word t7;
9904 C_word t8;
9905 C_word *a;
9906 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
9907 C_save_and_reclaim((void *)f_12916,c,av);}
9908 a=C_alloc(15);
9909 t2=C_i_car(((C_word*)t0)[2]);
9910 t3=C_u_i_car(((C_word*)t0)[3]);
9911 t4=C_u_i_cdr(((C_word*)t0)[3]);
9912 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
9913 t6=C_a_i_cons(&a,2,lf[73],t5);
9914 t7=C_a_i_list3(&a,3,t2,t3,t6);
9915 /* expand.scm:1262: loop */
9916 t8=((C_word*)((C_word*)t0)[5])[1];
9917 f_12835(t8,((C_word*)t0)[6],t7);}
9918 
9919 /* k12949 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in ... */
f_12951(C_word c,C_word * av)9920 static void C_ccall f_12951(C_word c,C_word *av){
9921 C_word tmp;
9922 C_word t0=av[0];
9923 C_word t1=av[1];
9924 C_word t2;
9925 C_word *a;
9926 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9927 C_save_and_reclaim((void *)f_12951,c,av);}
9928 /* expand.scm:1228: ##sys#extend-macro-environment */
9929 t2=*((C_word*)lf[30]+1);{
9930 C_word *av2;
9931 if(c >= 5) {
9932   av2=av;
9933 } else {
9934   av2=C_alloc(5);
9935 }
9936 av2[0]=t2;
9937 av2[1]=((C_word*)t0)[2];
9938 av2[2]=lf[314];
9939 av2[3]=C_SCHEME_END_OF_LIST;
9940 av2[4]=t1;
9941 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9942 
9943 /* a12952 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in ... */
f_12953(C_word c,C_word * av)9944 static void C_ccall f_12953(C_word c,C_word *av){
9945 C_word tmp;
9946 C_word t0=av[0];
9947 C_word t1=av[1];
9948 C_word t2=av[2];
9949 C_word t3=av[3];
9950 C_word t4=av[4];
9951 C_word t5;
9952 C_word t6;
9953 C_word *a;
9954 if(c!=5) C_bad_argc_2(c,5,t0);
9955 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
9956 C_save_and_reclaim((void *)f_12953,c,av);}
9957 a=C_alloc(4);
9958 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12957,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9959 /* expand.scm:1233: ##sys#check-syntax */
9960 t6=*((C_word*)lf[56]+1);{
9961 C_word *av2=av;
9962 av2[0]=t6;
9963 av2[1]=t5;
9964 av2[2]=lf[314];
9965 av2[3]=t2;
9966 av2[4]=lf[315];
9967 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
9968 
9969 /* k12955 in a12952 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in ... */
f_12957(C_word c,C_word * av)9970 static void C_ccall f_12957(C_word c,C_word *av){
9971 C_word tmp;
9972 C_word t0=av[0];
9973 C_word t1=av[1];
9974 C_word t2;
9975 C_word t3;
9976 C_word *a;
9977 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
9978 C_save_and_reclaim((void *)f_12957,c,av);}
9979 a=C_alloc(3);
9980 t2=C_i_cdr(((C_word*)t0)[2]);
9981 t3=((C_word*)t0)[3];{
9982 C_word *av2=av;
9983 av2[0]=t3;
9984 av2[1]=C_a_i_cons(&a,2,lf[105],t2);
9985 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9986 
9987 /* k12966 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in ... */
f_12968(C_word c,C_word * av)9988 static void C_ccall f_12968(C_word c,C_word *av){
9989 C_word tmp;
9990 C_word t0=av[0];
9991 C_word t1=av[1];
9992 C_word t2;
9993 C_word *a;
9994 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
9995 C_save_and_reclaim((void *)f_12968,c,av);}
9996 /* expand.scm:1220: ##sys#extend-macro-environment */
9997 t2=*((C_word*)lf[30]+1);{
9998 C_word *av2;
9999 if(c >= 5) {
10000   av2=av;
10001 } else {
10002   av2=C_alloc(5);
10003 }
10004 av2[0]=t2;
10005 av2[1]=((C_word*)t0)[2];
10006 av2[2]=lf[281];
10007 av2[3]=C_SCHEME_END_OF_LIST;
10008 av2[4]=t1;
10009 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10010 
10011 /* a12969 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in ... */
f_12970(C_word c,C_word * av)10012 static void C_ccall f_12970(C_word c,C_word *av){
10013 C_word tmp;
10014 C_word t0=av[0];
10015 C_word t1=av[1];
10016 C_word t2=av[2];
10017 C_word t3=av[3];
10018 C_word t4=av[4];
10019 C_word t5;
10020 C_word t6;
10021 C_word *a;
10022 if(c!=5) C_bad_argc_2(c,5,t0);
10023 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
10024 C_save_and_reclaim((void *)f_12970,c,av);}
10025 a=C_alloc(4);
10026 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12974,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
10027 /* expand.scm:1225: ##sys#check-syntax */
10028 t6=*((C_word*)lf[56]+1);{
10029 C_word *av2=av;
10030 av2[0]=t6;
10031 av2[1]=t5;
10032 av2[2]=lf[281];
10033 av2[3]=t2;
10034 av2[4]=lf[316];
10035 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
10036 
10037 /* k12972 in a12969 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in ... */
f_12974(C_word c,C_word * av)10038 static void C_ccall f_12974(C_word c,C_word *av){
10039 C_word tmp;
10040 C_word t0=av[0];
10041 C_word t1=av[1];
10042 C_word t2;
10043 C_word t3;
10044 C_word *a;
10045 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
10046 C_save_and_reclaim((void *)f_12974,c,av);}
10047 a=C_alloc(3);
10048 t2=C_i_cdr(((C_word*)t0)[2]);
10049 t3=((C_word*)t0)[3];{
10050 C_word *av2=av;
10051 av2[0]=t3;
10052 av2[1]=C_a_i_cons(&a,2,lf[259],t2);
10053 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
10054 
10055 /* k12983 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_12985(C_word c,C_word * av)10056 static void C_ccall f_12985(C_word c,C_word *av){
10057 C_word tmp;
10058 C_word t0=av[0];
10059 C_word t1=av[1];
10060 C_word t2;
10061 C_word *a;
10062 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10063 C_save_and_reclaim((void *)f_12985,c,av);}
10064 /* expand.scm:1212: ##sys#extend-macro-environment */
10065 t2=*((C_word*)lf[30]+1);{
10066 C_word *av2;
10067 if(c >= 5) {
10068   av2=av;
10069 } else {
10070   av2=C_alloc(5);
10071 }
10072 av2[0]=t2;
10073 av2[1]=((C_word*)t0)[2];
10074 av2[2]=lf[217];
10075 av2[3]=C_SCHEME_END_OF_LIST;
10076 av2[4]=t1;
10077 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10078 
10079 /* a12986 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_12987(C_word c,C_word * av)10080 static void C_ccall f_12987(C_word c,C_word *av){
10081 C_word tmp;
10082 C_word t0=av[0];
10083 C_word t1=av[1];
10084 C_word t2=av[2];
10085 C_word t3=av[3];
10086 C_word t4=av[4];
10087 C_word t5;
10088 C_word t6;
10089 C_word *a;
10090 if(c!=5) C_bad_argc_2(c,5,t0);
10091 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
10092 C_save_and_reclaim((void *)f_12987,c,av);}
10093 a=C_alloc(4);
10094 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12991,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
10095 /* expand.scm:1217: ##sys#check-syntax */
10096 t6=*((C_word*)lf[56]+1);{
10097 C_word *av2=av;
10098 av2[0]=t6;
10099 av2[1]=t5;
10100 av2[2]=lf[217];
10101 av2[3]=t2;
10102 av2[4]=lf[317];
10103 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
10104 
10105 /* k12989 in a12986 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in ... */
f_12991(C_word c,C_word * av)10106 static void C_ccall f_12991(C_word c,C_word *av){
10107 C_word tmp;
10108 C_word t0=av[0];
10109 C_word t1=av[1];
10110 C_word t2;
10111 C_word t3;
10112 C_word *a;
10113 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
10114 C_save_and_reclaim((void *)f_12991,c,av);}
10115 a=C_alloc(6);
10116 t2=C_i_cadr(((C_word*)t0)[2]);
10117 t3=((C_word*)t0)[3];{
10118 C_word *av2=av;
10119 av2[0]=t3;
10120 av2[1]=C_a_i_list(&a,2,lf[72],t2);
10121 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
10122 
10123 /* k13000 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13002(C_word c,C_word * av)10124 static void C_ccall f_13002(C_word c,C_word *av){
10125 C_word tmp;
10126 C_word t0=av[0];
10127 C_word t1=av[1];
10128 C_word t2;
10129 C_word *a;
10130 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10131 C_save_and_reclaim((void *)f_13002,c,av);}
10132 /* expand.scm:1204: ##sys#extend-macro-environment */
10133 t2=*((C_word*)lf[30]+1);{
10134 C_word *av2;
10135 if(c >= 5) {
10136   av2=av;
10137 } else {
10138   av2=C_alloc(5);
10139 }
10140 av2[0]=t2;
10141 av2[1]=((C_word*)t0)[2];
10142 av2[2]=lf[228];
10143 av2[3]=C_SCHEME_END_OF_LIST;
10144 av2[4]=t1;
10145 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10146 
10147 /* a13003 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13004(C_word c,C_word * av)10148 static void C_ccall f_13004(C_word c,C_word *av){
10149 C_word tmp;
10150 C_word t0=av[0];
10151 C_word t1=av[1];
10152 C_word t2=av[2];
10153 C_word t3=av[3];
10154 C_word t4=av[4];
10155 C_word t5;
10156 C_word t6;
10157 C_word *a;
10158 if(c!=5) C_bad_argc_2(c,5,t0);
10159 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
10160 C_save_and_reclaim((void *)f_13004,c,av);}
10161 a=C_alloc(4);
10162 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13008,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
10163 /* expand.scm:1209: ##sys#check-syntax */
10164 t6=*((C_word*)lf[56]+1);{
10165 C_word *av2=av;
10166 av2[0]=t6;
10167 av2[1]=t5;
10168 av2[2]=lf[228];
10169 av2[3]=t2;
10170 av2[4]=lf[318];
10171 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
10172 
10173 /* k13006 in a13003 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_13008(C_word c,C_word * av)10174 static void C_ccall f_13008(C_word c,C_word *av){
10175 C_word tmp;
10176 C_word t0=av[0];
10177 C_word t1=av[1];
10178 C_word t2;
10179 C_word t3;
10180 C_word *a;
10181 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
10182 C_save_and_reclaim((void *)f_13008,c,av);}
10183 a=C_alloc(3);
10184 t2=C_i_cdr(((C_word*)t0)[2]);
10185 t3=((C_word*)t0)[3];{
10186 C_word *av2=av;
10187 av2[0]=t3;
10188 av2[1]=C_a_i_cons(&a,2,lf[73],t2);
10189 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
10190 
10191 /* k13017 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13019(C_word c,C_word * av)10192 static void C_ccall f_13019(C_word c,C_word *av){
10193 C_word tmp;
10194 C_word t0=av[0];
10195 C_word t1=av[1];
10196 C_word t2;
10197 C_word *a;
10198 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10199 C_save_and_reclaim((void *)f_13019,c,av);}
10200 /* expand.scm:1190: ##sys#extend-macro-environment */
10201 t2=*((C_word*)lf[30]+1);{
10202 C_word *av2;
10203 if(c >= 5) {
10204   av2=av;
10205 } else {
10206   av2=C_alloc(5);
10207 }
10208 av2[0]=t2;
10209 av2[1]=((C_word*)t0)[2];
10210 av2[2]=lf[319];
10211 av2[3]=C_SCHEME_END_OF_LIST;
10212 av2[4]=t1;
10213 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10214 
10215 /* a13020 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13021(C_word c,C_word * av)10216 static void C_ccall f_13021(C_word c,C_word *av){
10217 C_word tmp;
10218 C_word t0=av[0];
10219 C_word t1=av[1];
10220 C_word t2=av[2];
10221 C_word t3=av[3];
10222 C_word t4=av[4];
10223 C_word t5;
10224 C_word t6;
10225 C_word *a;
10226 if(c!=5) C_bad_argc_2(c,5,t0);
10227 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
10228 C_save_and_reclaim((void *)f_13021,c,av);}
10229 a=C_alloc(3);
10230 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13025,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
10231 /* expand.scm:1194: ##sys#check-syntax */
10232 t6=*((C_word*)lf[56]+1);{
10233 C_word *av2=av;
10234 av2[0]=t6;
10235 av2[1]=t5;
10236 av2[2]=lf[319];
10237 av2[3]=t2;
10238 av2[4]=lf[321];
10239 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
10240 
10241 /* k13023 in a13020 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13025(C_word c,C_word * av)10242 static void C_ccall f_13025(C_word c,C_word *av){
10243 C_word tmp;
10244 C_word t0=av[0];
10245 C_word t1=av[1];
10246 C_word t2;
10247 C_word t3;
10248 C_word *a;
10249 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
10250 C_save_and_reclaim((void *)f_13025,c,av);}
10251 a=C_alloc(3);
10252 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13028,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
10253 /* expand.scm:1195: ##sys#current-module */
10254 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[306]+1));
10255 C_word *av2=av;
10256 av2[0]=*((C_word*)lf[306]+1);
10257 av2[1]=t2;
10258 tp(2,av2);}}
10259 
10260 /* k13026 in k13023 in a13020 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13028(C_word c,C_word * av)10261 static void C_ccall f_13028(C_word c,C_word *av){
10262 C_word tmp;
10263 C_word t0=av[0];
10264 C_word t1=av[1];
10265 C_word t2;
10266 C_word t3;
10267 C_word *a;
10268 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
10269 C_save_and_reclaim((void *)f_13028,c,av);}
10270 a=C_alloc(3);
10271 if(C_truep(t1)){
10272 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13038,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
10273 /* expand.scm:1196: ##sys#module-name */
10274 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[320]+1));
10275 C_word *av2;
10276 if(c >= 3) {
10277   av2=av;
10278 } else {
10279   av2=C_alloc(3);
10280 }
10281 av2[0]=*((C_word*)lf[320]+1);
10282 av2[1]=t2;
10283 av2[2]=t1;
10284 tp(3,av2);}}
10285 else{
10286 t2=((C_word*)t0)[2];{
10287 C_word *av2=av;
10288 av2[0]=t2;
10289 av2[1]=C_SCHEME_FALSE;
10290 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
10291 
10292 /* k13036 in k13026 in k13023 in a13020 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13038(C_word c,C_word * av)10293 static void C_ccall f_13038(C_word c,C_word *av){
10294 C_word tmp;
10295 C_word t0=av[0];
10296 C_word t1=av[1];
10297 C_word t2;
10298 C_word *a;
10299 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
10300 C_save_and_reclaim((void *)f_13038,c,av);}
10301 a=C_alloc(6);
10302 t2=((C_word*)t0)[2];{
10303 C_word *av2=av;
10304 av2[0]=t2;
10305 av2[1]=C_a_i_list(&a,2,lf[72],t1);
10306 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
10307 
10308 /* k13040 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13042(C_word c,C_word * av)10309 static void C_ccall f_13042(C_word c,C_word *av){
10310 C_word tmp;
10311 C_word t0=av[0];
10312 C_word t1=av[1];
10313 C_word t2;
10314 C_word *a;
10315 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10316 C_save_and_reclaim((void *)f_13042,c,av);}
10317 /* expand.scm:1167: ##sys#extend-macro-environment */
10318 t2=*((C_word*)lf[30]+1);{
10319 C_word *av2;
10320 if(c >= 5) {
10321   av2=av;
10322 } else {
10323   av2=C_alloc(5);
10324 }
10325 av2[0]=t2;
10326 av2[1]=((C_word*)t0)[2];
10327 av2[2]=lf[322];
10328 av2[3]=C_SCHEME_END_OF_LIST;
10329 av2[4]=t1;
10330 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10331 
10332 /* a13043 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13044(C_word c,C_word * av)10333 static void C_ccall f_13044(C_word c,C_word *av){
10334 C_word tmp;
10335 C_word t0=av[0];
10336 C_word t1=av[1];
10337 C_word t2=av[2];
10338 C_word t3=av[3];
10339 C_word t4=av[4];
10340 C_word t5;
10341 C_word t6;
10342 C_word *a;
10343 if(c!=5) C_bad_argc_2(c,5,t0);
10344 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
10345 C_save_and_reclaim((void *)f_13044,c,av);}
10346 a=C_alloc(4);
10347 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13048,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
10348 /* expand.scm:1171: ##sys#check-syntax */
10349 t6=*((C_word*)lf[56]+1);{
10350 C_word *av2=av;
10351 av2[0]=t6;
10352 av2[1]=t5;
10353 av2[2]=lf[322];
10354 av2[3]=t2;
10355 av2[4]=lf[332];
10356 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
10357 
10358 /* k13046 in a13043 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13048(C_word c,C_word * av)10359 static void C_ccall f_13048(C_word c,C_word *av){
10360 C_word tmp;
10361 C_word t0=av[0];
10362 C_word t1=av[1];
10363 C_word t2;
10364 C_word t3;
10365 C_word *a;
10366 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
10367 C_save_and_reclaim((void *)f_13048,c,av);}
10368 a=C_alloc(4);
10369 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
10370 /* expand.scm:1172: chicken.syntax#strip-syntax */
10371 t3=*((C_word*)lf[12]+1);{
10372 C_word *av2;
10373 if(c >= 3) {
10374   av2=av;
10375 } else {
10376   av2=C_alloc(3);
10377 }
10378 av2[0]=t3;
10379 av2[1]=t2;
10380 av2[2]=C_i_cadr(((C_word*)t0)[3]);
10381 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10382 
10383 /* k13049 in k13046 in a13043 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13051(C_word c,C_word * av)10384 static void C_ccall f_13051(C_word c,C_word *av){
10385 C_word tmp;
10386 C_word t0=av[0];
10387 C_word t1=av[1];
10388 C_word t2;
10389 C_word t3;
10390 C_word t4;
10391 C_word *a;
10392 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
10393 C_save_and_reclaim((void *)f_13051,c,av);}
10394 a=C_alloc(5);
10395 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13054,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
10396 t3=C_eqp(lf[326],t1);
10397 if(C_truep(t3)){
10398 /* expand.scm:1174: syntax-error-hook */
10399 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[329]+1));
10400 C_word *av2;
10401 if(c >= 4) {
10402   av2=av;
10403 } else {
10404   av2=C_alloc(4);
10405 }
10406 av2[0]=*((C_word*)lf[329]+1);
10407 av2[1]=t2;
10408 av2[2]=lf[322];
10409 av2[3]=lf[331];
10410 tp(4,av2);}}
10411 else{
10412 t4=t2;{
10413 C_word *av2=av;
10414 av2[0]=t4;
10415 av2[1]=C_SCHEME_UNDEFINED;
10416 f_13054(2,av2);}}}
10417 
10418 /* k13052 in k13049 in k13046 in a13043 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13054(C_word c,C_word * av)10419 static void C_ccall f_13054(C_word c,C_word *av){
10420 C_word tmp;
10421 C_word t0=av[0];
10422 C_word t1=av[1];
10423 C_word t2;
10424 C_word t3;
10425 C_word t4;
10426 C_word t5;
10427 C_word *a;
10428 if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
10429 C_save_and_reclaim((void *)f_13054,c,av);}
10430 a=C_alloc(18);
10431 t2=C_a_i_list(&a,2,lf[72],((C_word*)t0)[2]);
10432 t3=C_a_i_list(&a,2,lf[72],lf[323]);
10433 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13077,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
10434 /* expand.scm:1181: chicken.syntax#strip-syntax */
10435 t5=*((C_word*)lf[12]+1);{
10436 C_word *av2;
10437 if(c >= 3) {
10438   av2=av;
10439 } else {
10440   av2=C_alloc(3);
10441 }
10442 av2[0]=t5;
10443 av2[1]=t4;
10444 av2[2]=C_i_caddr(((C_word*)t0)[4]);
10445 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
10446 
10447 /* k13075 in k13052 in k13049 in k13046 in a13043 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13077(C_word c,C_word * av)10448 static void C_ccall f_13077(C_word c,C_word *av){
10449 C_word tmp;
10450 C_word t0=av[0];
10451 C_word t1=av[1];
10452 C_word t2;
10453 C_word t3;
10454 C_word t4;
10455 C_word t5;
10456 C_word t6;
10457 C_word t7;
10458 C_word *a;
10459 if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){
10460 C_save_and_reclaim((void *)f_13077,c,av);}
10461 a=C_alloc(35);
10462 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
10463 t3=C_eqp(lf[326],t1);
10464 if(C_truep(t3)){
10465 t4=C_a_i_list(&a,2,lf[72],lf[326]);
10466 t5=C_a_i_list(&a,4,lf[324],((C_word*)t0)[2],((C_word*)t0)[3],t4);
10467 t6=((C_word*)t0)[4];{
10468 C_word *av2=av;
10469 av2[0]=t6;
10470 av2[1]=C_a_i_list(&a,2,lf[325],t5);
10471 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
10472 else{
10473 if(C_truep(C_i_symbolp(t1))){
10474 t4=C_a_i_list(&a,2,lf[327],t1);
10475 t5=C_a_i_list(&a,2,lf[72],t4);
10476 t6=C_a_i_list(&a,4,lf[324],((C_word*)t0)[2],((C_word*)t0)[3],t5);
10477 t7=((C_word*)t0)[4];{
10478 C_word *av2=av;
10479 av2[0]=t7;
10480 av2[1]=C_a_i_list(&a,2,lf[325],t6);
10481 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
10482 else{
10483 if(C_truep(C_i_listp(t1))){
10484 /* expand.scm:1185: ##sys#validate-exports */
10485 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1));
10486 C_word *av2;
10487 if(c >= 4) {
10488   av2=av;
10489 } else {
10490   av2=C_alloc(4);
10491 }
10492 av2[0]=*((C_word*)lf[328]+1);
10493 av2[1]=t2;
10494 av2[2]=t1;
10495 av2[3]=lf[322];
10496 tp(4,av2);}}
10497 else{
10498 /* expand.scm:1187: syntax-error-hook */
10499 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[329]+1));
10500 C_word *av2;
10501 if(c >= 5) {
10502   av2=av;
10503 } else {
10504   av2=C_alloc(5);
10505 }
10506 av2[0]=*((C_word*)lf[329]+1);
10507 av2[1]=t2;
10508 av2[2]=lf[322];
10509 av2[3]=lf[330];
10510 av2[4]=C_i_caddr(((C_word*)t0)[5]);
10511 tp(5,av2);}}}}}
10512 
10513 /* k13078 in k13075 in k13052 in k13049 in k13046 in a13043 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_13080(C_word c,C_word * av)10514 static void C_ccall f_13080(C_word c,C_word *av){
10515 C_word tmp;
10516 C_word t0=av[0];
10517 C_word t1=av[1];
10518 C_word t2;
10519 C_word t3;
10520 C_word t4;
10521 C_word *a;
10522 if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){
10523 C_save_and_reclaim((void *)f_13080,c,av);}
10524 a=C_alloc(24);
10525 t2=C_a_i_list(&a,2,lf[72],t1);
10526 t3=C_a_i_list(&a,4,lf[324],((C_word*)t0)[2],((C_word*)t0)[3],t2);
10527 t4=((C_word*)t0)[4];{
10528 C_word *av2=av;
10529 av2[0]=t4;
10530 av2[1]=C_a_i_list(&a,2,lf[325],t3);
10531 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
10532 
10533 /* k13124 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13126(C_word c,C_word * av)10534 static void C_ccall f_13126(C_word c,C_word *av){
10535 C_word tmp;
10536 C_word t0=av[0];
10537 C_word t1=av[1];
10538 C_word t2;
10539 C_word *a;
10540 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10541 C_save_and_reclaim((void *)f_13126,c,av);}
10542 /* expand.scm:1132: ##sys#extend-macro-environment */
10543 t2=*((C_word*)lf[30]+1);{
10544 C_word *av2;
10545 if(c >= 5) {
10546   av2=av;
10547 } else {
10548   av2=C_alloc(5);
10549 }
10550 av2[0]=t2;
10551 av2[1]=((C_word*)t0)[2];
10552 av2[2]=lf[333];
10553 av2[3]=C_SCHEME_END_OF_LIST;
10554 av2[4]=t1;
10555 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10556 
10557 /* a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13128(C_word c,C_word * av)10558 static void C_ccall f_13128(C_word c,C_word *av){
10559 C_word tmp;
10560 C_word t0=av[0];
10561 C_word t1=av[1];
10562 C_word t2=av[2];
10563 C_word t3=av[3];
10564 C_word t4=av[4];
10565 C_word t5;
10566 C_word t6;
10567 C_word *a;
10568 if(c!=5) C_bad_argc_2(c,5,t0);
10569 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
10570 C_save_and_reclaim((void *)f_13128,c,av);}
10571 a=C_alloc(4);
10572 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13132,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
10573 /* expand.scm:1136: ##sys#check-syntax */
10574 t6=*((C_word*)lf[56]+1);{
10575 C_word *av2=av;
10576 av2[0]=t6;
10577 av2[1]=t5;
10578 av2[2]=lf[333];
10579 av2[3]=t2;
10580 av2[4]=lf[341];
10581 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
10582 
10583 /* k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13132(C_word c,C_word * av)10584 static void C_ccall f_13132(C_word c,C_word *av){
10585 C_word tmp;
10586 C_word t0=av[0];
10587 C_word t1=av[1];
10588 C_word t2;
10589 C_word t3;
10590 C_word *a;
10591 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
10592 C_save_and_reclaim((void *)f_13132,c,av);}
10593 a=C_alloc(3);
10594 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
10595 /* expand.scm:1137: chicken.syntax#strip-syntax */
10596 t3=*((C_word*)lf[12]+1);{
10597 C_word *av2;
10598 if(c >= 3) {
10599   av2=av;
10600 } else {
10601   av2=C_alloc(3);
10602 }
10603 av2[0]=t3;
10604 av2[1]=t2;
10605 av2[2]=((C_word*)t0)[3];
10606 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
10607 
10608 /* k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13135(C_word c,C_word * av)10609 static void C_ccall f_13135(C_word c,C_word *av){
10610 C_word tmp;
10611 C_word t0=av[0];
10612 C_word t1=av[1];
10613 C_word t2;
10614 C_word t3;
10615 C_word t4;
10616 C_word t5;
10617 C_word t6;
10618 C_word t7;
10619 C_word t8;
10620 C_word t9;
10621 C_word t10;
10622 C_word *a;
10623 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
10624 C_save_and_reclaim((void *)f_13135,c,av);}
10625 a=C_alloc(7);
10626 t2=C_i_cadr(t1);
10627 t3=C_i_car(t2);
10628 t4=C_u_i_cdr(t2);
10629 t5=C_i_caddr(t1);
10630 t6=C_u_i_cdr(t1);
10631 t7=C_u_i_cdr(t6);
10632 t8=C_u_i_cdr(t7);
10633 t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13293,a[2]=t3,a[3]=t4,a[4]=t8,a[5]=((C_word*)t0)[2],a[6]=t5,tmp=(C_word)a,a+=7,tmp);
10634 /* expand.scm:1145: chicken.internal#library-id */
10635 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[340]+1));
10636 C_word *av2;
10637 if(c >= 3) {
10638   av2=av;
10639 } else {
10640   av2=C_alloc(3);
10641 }
10642 av2[0]=*((C_word*)lf[340]+1);
10643 av2[1]=t9;
10644 av2[2]=t3;
10645 tp(3,av2);}}
10646 
10647 /* k13156 in k13184 in k13253 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_13158(C_word c,C_word * av)10648 static void C_ccall f_13158(C_word c,C_word *av){
10649 C_word tmp;
10650 C_word t0=av[0];
10651 C_word t1=av[1];
10652 C_word t2;
10653 C_word t3;
10654 C_word t4;
10655 C_word *a;
10656 if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){
10657 C_save_and_reclaim((void *)f_13158,c,av);}
10658 a=C_alloc(30);
10659 t2=C_a_i_list(&a,3,lf[104],lf[337],lf[338]);
10660 t3=C_a_i_list(&a,2,lf[339],((C_word*)t0)[2]);
10661 t4=((C_word*)t0)[3];{
10662 C_word *av2=av;
10663 av2[0]=t4;
10664 av2[1]=C_a_i_list(&a,5,lf[106],t1,C_SCHEME_TRUE,t2,t3);
10665 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
10666 
10667 /* k13184 in k13253 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13186(C_word c,C_word * av)10668 static void C_ccall f_13186(C_word c,C_word *av){
10669 C_word tmp;
10670 C_word t0=av[0];
10671 C_word t1=av[1];
10672 C_word t2;
10673 C_word t3;
10674 C_word t4;
10675 C_word t5;
10676 C_word t6;
10677 C_word *a;
10678 if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){
10679 C_save_and_reclaim((void *)f_13186,c,av);}
10680 a=C_alloc(31);
10681 t2=C_a_i_list(&a,2,lf[72],t1);
10682 t3=C_a_i_list(&a,2,lf[72],((C_word*)t0)[2]);
10683 t4=C_a_i_list(&a,5,lf[336],((C_word*)t0)[3],((C_word*)t0)[4],t2,t3);
10684 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13158,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
10685 /* expand.scm:1160: chicken.internal#library-id */
10686 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[340]+1));
10687 C_word *av2;
10688 if(c >= 3) {
10689   av2=av;
10690 } else {
10691   av2=C_alloc(3);
10692 }
10693 av2[0]=*((C_word*)lf[340]+1);
10694 av2[1]=t5;
10695 av2[2]=((C_word*)t0)[6];
10696 tp(3,av2);}}
10697 
10698 /* g2487 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13191(C_word t0,C_word t1,C_word t2)10699 static void C_fcall f_13191(C_word t0,C_word t1,C_word t2){
10700 C_word tmp;
10701 C_word t3;
10702 C_word t4;
10703 C_word t5;
10704 C_word *a;
10705 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
10706 C_save_and_reclaim_args((void *)trf_13191,3,t0,t1,t2);}
10707 a=C_alloc(6);
10708 t3=C_i_car(t2);
10709 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13198,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
10710 /* expand.scm:1149: ##sys#validate-exports */
10711 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1));
10712 C_word av2[4];
10713 av2[0]=*((C_word*)lf[328]+1);
10714 av2[1]=t4;
10715 av2[2]=C_i_cadr(t2);
10716 av2[3]=lf[333];
10717 tp(4,av2);}}
10718 
10719 /* k13196 in g2487 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13198(C_word c,C_word * av)10720 static void C_ccall f_13198(C_word c,C_word *av){
10721 C_word tmp;
10722 C_word t0=av[0];
10723 C_word t1=av[1];
10724 C_word t2;
10725 C_word t3;
10726 C_word t4;
10727 C_word t5;
10728 C_word t6;
10729 C_word t7;
10730 C_word *a;
10731 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
10732 C_save_and_reclaim((void *)f_13198,c,av);}
10733 a=C_alloc(13);
10734 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
10735 t3=C_i_symbolp(((C_word*)t0)[3]);
10736 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
10737 if(C_truep(t3)){
10738 t5=t4;{
10739 C_word *av2=av;
10740 av2[0]=t5;
10741 av2[1]=t3;
10742 f_13210(2,av2);}}
10743 else{
10744 if(C_truep(C_i_listp(((C_word*)t0)[3]))){
10745 t5=C_eqp(C_fix(2),C_u_i_length(((C_word*)t0)[3]));
10746 if(C_truep(t5)){
10747 t6=C_i_car(((C_word*)t0)[3]);
10748 if(C_truep(C_i_symbolp(t6))){
10749 /* expand.scm:1154: chicken.internal#valid-library-specifier? */
10750 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[335]+1));
10751 C_word *av2;
10752 if(c >= 3) {
10753   av2=av;
10754 } else {
10755   av2=C_alloc(3);
10756 }
10757 av2[0]=*((C_word*)lf[335]+1);
10758 av2[1]=t4;
10759 av2[2]=C_i_cadr(((C_word*)t0)[3]);
10760 tp(3,av2);}}
10761 else{
10762 t7=t4;{
10763 C_word *av2=av;
10764 av2[0]=t7;
10765 av2[1]=C_SCHEME_FALSE;
10766 f_13210(2,av2);}}}
10767 else{
10768 t6=t4;{
10769 C_word *av2=av;
10770 av2[0]=t6;
10771 av2[1]=C_SCHEME_FALSE;
10772 f_13210(2,av2);}}}
10773 else{
10774 t5=t4;{
10775 C_word *av2=av;
10776 av2[0]=t5;
10777 av2[1]=C_SCHEME_FALSE;
10778 f_13210(2,av2);}}}}
10779 
10780 /* k13199 in k13196 in g2487 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_13201(C_word c,C_word * av)10781 static void C_ccall f_13201(C_word c,C_word *av){
10782 C_word tmp;
10783 C_word t0=av[0];
10784 C_word t1=av[1];
10785 C_word t2;
10786 C_word *a;
10787 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
10788 C_save_and_reclaim((void *)f_13201,c,av);}
10789 a=C_alloc(3);
10790 t2=((C_word*)t0)[2];{
10791 C_word *av2=av;
10792 av2[0]=t2;
10793 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
10794 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
10795 
10796 /* k13208 in k13196 in g2487 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_13210(C_word c,C_word * av)10797 static void C_ccall f_13210(C_word c,C_word *av){
10798 C_word tmp;
10799 C_word t0=av[0];
10800 C_word t1=av[1];
10801 C_word t2;
10802 C_word *a;
10803 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
10804 C_save_and_reclaim((void *)f_13210,c,av);}
10805 a=C_alloc(3);
10806 if(C_truep(t1)){
10807 t2=((C_word*)t0)[2];{
10808 C_word *av2=av;
10809 av2[0]=t2;
10810 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
10811 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
10812 else{
10813 /* expand.scm:1155: ##sys#syntax-error-hook */
10814 t2=*((C_word*)lf[43]+1);{
10815 C_word *av2;
10816 if(c >= 5) {
10817   av2=av;
10818 } else {
10819   av2=C_alloc(5);
10820 }
10821 av2[0]=t2;
10822 av2[1]=((C_word*)t0)[5];
10823 av2[2]=lf[334];
10824 av2[3]=((C_word*)t0)[6];
10825 av2[4]=((C_word*)t0)[7];
10826 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}
10827 
10828 /* k13253 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13255(C_word c,C_word * av)10829 static void C_ccall f_13255(C_word c,C_word *av){
10830 C_word tmp;
10831 C_word t0=av[0];
10832 C_word t1=av[1];
10833 C_word t2;
10834 C_word t3;
10835 C_word t4;
10836 C_word *a;
10837 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
10838 C_save_and_reclaim((void *)f_13255,c,av);}
10839 a=C_alloc(13);
10840 t2=C_a_i_list(&a,2,lf[72],t1);
10841 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
10842 /* expand.scm:1158: ##sys#validate-exports */
10843 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1));
10844 C_word *av2;
10845 if(c >= 4) {
10846   av2=av;
10847 } else {
10848   av2=C_alloc(4);
10849 }
10850 av2[0]=*((C_word*)lf[328]+1);
10851 av2[1]=t3;
10852 av2[2]=((C_word*)t0)[6];
10853 av2[3]=lf[333];
10854 tp(4,av2);}}
10855 
10856 /* map-loop2481 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13257(C_word t0,C_word t1,C_word t2)10857 static void C_fcall f_13257(C_word t0,C_word t1,C_word t2){
10858 C_word tmp;
10859 C_word t3;
10860 C_word t4;
10861 C_word *a;
10862 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
10863 C_save_and_reclaim_args((void *)trf_13257,3,t0,t1,t2);}
10864 a=C_alloc(6);
10865 if(C_truep(C_i_pairp(t2))){
10866 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
10867 /* expand.scm:1147: g2487 */
10868 t4=((C_word*)t0)[4];
10869 f_13191(t4,t3,C_slot(t2,C_fix(0)));}
10870 else{
10871 t3=t1;{
10872 C_word av2[2];
10873 av2[0]=t3;
10874 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
10875 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
10876 
10877 /* k13280 in map-loop2481 in k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13282(C_word c,C_word * av)10878 static void C_ccall f_13282(C_word c,C_word *av){
10879 C_word tmp;
10880 C_word t0=av[0];
10881 C_word t1=av[1];
10882 C_word t2;
10883 C_word t3;
10884 C_word t4;
10885 C_word t5;
10886 C_word *a;
10887 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
10888 C_save_and_reclaim((void *)f_13282,c,av);}
10889 a=C_alloc(3);
10890 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
10891 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
10892 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
10893 t5=((C_word*)((C_word*)t0)[3])[1];
10894 f_13257(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
10895 
10896 /* k13291 in k13133 in k13130 in a13127 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13293(C_word c,C_word * av)10897 static void C_ccall f_13293(C_word c,C_word *av){
10898 C_word tmp;
10899 C_word t0=av[0];
10900 C_word t1=av[1];
10901 C_word t2;
10902 C_word t3;
10903 C_word t4;
10904 C_word t5;
10905 C_word t6;
10906 C_word t7;
10907 C_word t8;
10908 C_word t9;
10909 C_word t10;
10910 C_word t11;
10911 C_word t12;
10912 C_word t13;
10913 C_word *a;
10914 if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){
10915 C_save_and_reclaim((void *)f_13293,c,av);}
10916 a=C_alloc(31);
10917 t2=C_a_i_list(&a,2,lf[72],t1);
10918 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
10919 t4=t3;
10920 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
10921 t6=((C_word*)t5)[1];
10922 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13191,a[2]=((C_word*)t0)[2],a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp);
10923 t8=C_i_check_list_2(((C_word*)t0)[3],lf[17]);
10924 t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13255,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
10925 t10=C_SCHEME_UNDEFINED;
10926 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
10927 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13257,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li160),tmp=(C_word)a,a+=7,tmp));
10928 t13=((C_word*)t11)[1];
10929 f_13257(t13,t9,((C_word*)t0)[3]);}
10930 
10931 /* k13295 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13297(C_word c,C_word * av)10932 static void C_ccall f_13297(C_word c,C_word *av){
10933 C_word tmp;
10934 C_word t0=av[0];
10935 C_word t1=av[1];
10936 C_word t2;
10937 C_word *a;
10938 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10939 C_save_and_reclaim((void *)f_13297,c,av);}
10940 /* expand.scm:1123: ##sys#extend-macro-environment */
10941 t2=*((C_word*)lf[30]+1);{
10942 C_word *av2;
10943 if(c >= 5) {
10944   av2=av;
10945 } else {
10946   av2=C_alloc(5);
10947 }
10948 av2[0]=t2;
10949 av2[1]=((C_word*)t0)[2];
10950 av2[2]=lf[342];
10951 av2[3]=C_SCHEME_END_OF_LIST;
10952 av2[4]=t1;
10953 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
10954 
10955 /* a13298 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13299(C_word c,C_word * av)10956 static void C_ccall f_13299(C_word c,C_word *av){
10957 C_word tmp;
10958 C_word t0=av[0];
10959 C_word t1=av[1];
10960 C_word t2=av[2];
10961 C_word t3=av[3];
10962 C_word t4=av[4];
10963 C_word t5;
10964 C_word t6;
10965 C_word *a;
10966 if(c!=5) C_bad_argc_2(c,5,t0);
10967 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
10968 C_save_and_reclaim((void *)f_13299,c,av);}
10969 t5=*((C_word*)lf[343]+1);
10970 /* expand.scm:1126: g2464 */
10971 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[343]+1));
10972 C_word *av2;
10973 if(c >= 10) {
10974   av2=av;
10975 } else {
10976   av2=C_alloc(10);
10977 }
10978 av2[0]=*((C_word*)lf[343]+1);
10979 av2[1]=t1;
10980 av2[2]=t2;
10981 av2[3]=t3;
10982 av2[4]=t4;
10983 av2[5]=*((C_word*)lf[4]+1);
10984 av2[6]=*((C_word*)lf[18]+1);
10985 av2[7]=C_SCHEME_FALSE;
10986 av2[8]=C_SCHEME_TRUE;
10987 av2[9]=lf[342];
10988 tp(10,av2);}}
10989 
10990 /* k13305 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13307(C_word c,C_word * av)10991 static void C_ccall f_13307(C_word c,C_word *av){
10992 C_word tmp;
10993 C_word t0=av[0];
10994 C_word t1=av[1];
10995 C_word t2;
10996 C_word *a;
10997 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10998 C_save_and_reclaim((void *)f_13307,c,av);}
10999 /* expand.scm:1113: ##sys#extend-macro-environment */
11000 t2=*((C_word*)lf[30]+1);{
11001 C_word *av2;
11002 if(c >= 5) {
11003   av2=av;
11004 } else {
11005   av2=C_alloc(5);
11006 }
11007 av2[0]=t2;
11008 av2[1]=((C_word*)t0)[2];
11009 av2[2]=lf[344];
11010 av2[3]=C_SCHEME_END_OF_LIST;
11011 av2[4]=t1;
11012 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
11013 
11014 /* a13308 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13309(C_word c,C_word * av)11015 static void C_ccall f_13309(C_word c,C_word *av){
11016 C_word tmp;
11017 C_word t0=av[0];
11018 C_word t1=av[1];
11019 C_word t2=av[2];
11020 C_word t3=av[3];
11021 C_word t4=av[4];
11022 C_word t5;
11023 C_word t6;
11024 C_word t7;
11025 C_word *a;
11026 if(c!=5) C_bad_argc_2(c,5,t0);
11027 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
11028 C_save_and_reclaim((void *)f_13309,c,av);}
11029 a=C_alloc(6);
11030 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13313,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
11031 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13326,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
11032 /* expand.scm:1117: chicken.syntax#strip-syntax */
11033 t7=*((C_word*)lf[12]+1);{
11034 C_word *av2=av;
11035 av2[0]=t7;
11036 av2[1]=t6;
11037 av2[2]=C_i_cdr(t2);
11038 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
11039 
11040 /* k13311 in a13308 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13313(C_word c,C_word * av)11041 static void C_ccall f_13313(C_word c,C_word *av){
11042 C_word tmp;
11043 C_word t0=av[0];
11044 C_word t1=av[1];
11045 C_word t2;
11046 C_word t3;
11047 C_word *a;
11048 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
11049 C_save_and_reclaim((void *)f_13313,c,av);}
11050 a=C_alloc(4);
11051 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13316,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
11052 /* expand.scm:1118: ##sys#current-module */
11053 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[306]+1));
11054 C_word *av2=av;
11055 av2[0]=*((C_word*)lf[306]+1);
11056 av2[1]=t2;
11057 tp(2,av2);}}
11058 
11059 /* k13314 in k13311 in a13308 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13316(C_word c,C_word * av)11060 static void C_ccall f_13316(C_word c,C_word *av){
11061 C_word tmp;
11062 C_word t0=av[0];
11063 C_word t1=av[1];
11064 C_word t2;
11065 C_word t3;
11066 C_word *a;
11067 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
11068 C_save_and_reclaim((void *)f_13316,c,av);}
11069 a=C_alloc(3);
11070 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13319,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
11071 if(C_truep(t1)){
11072 /* expand.scm:1120: ##sys#add-to-export-list */
11073 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[346]+1));
11074 C_word *av2;
11075 if(c >= 4) {
11076   av2=av;
11077 } else {
11078   av2=C_alloc(4);
11079 }
11080 av2[0]=*((C_word*)lf[346]+1);
11081 av2[1]=t2;
11082 av2[2]=t1;
11083 av2[3]=((C_word*)t0)[3];
11084 tp(4,av2);}}
11085 else{
11086 t3=((C_word*)t0)[2];{
11087 C_word *av2=av;
11088 av2[0]=t3;
11089 av2[1]=lf[345];
11090 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
11091 
11092 /* k13317 in k13314 in k13311 in a13308 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13319(C_word c,C_word * av)11093 static void C_ccall f_13319(C_word c,C_word *av){
11094 C_word tmp;
11095 C_word t0=av[0];
11096 C_word t1=av[1];
11097 C_word t2;
11098 C_word *a;
11099 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
11100 C_save_and_reclaim((void *)f_13319,c,av);}
11101 t2=((C_word*)t0)[2];{
11102 C_word *av2=av;
11103 av2[0]=t2;
11104 av2[1]=lf[345];
11105 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11106 
11107 /* k13324 in a13308 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13326(C_word c,C_word * av)11108 static void C_ccall f_13326(C_word c,C_word *av){
11109 C_word tmp;
11110 C_word t0=av[0];
11111 C_word t1=av[1];
11112 C_word t2;
11113 C_word *a;
11114 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
11115 C_save_and_reclaim((void *)f_13326,c,av);}
11116 /* expand.scm:1117: ##sys#validate-exports */
11117 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1));
11118 C_word *av2;
11119 if(c >= 4) {
11120   av2=av;
11121 } else {
11122   av2=C_alloc(4);
11123 }
11124 av2[0]=*((C_word*)lf[328]+1);
11125 av2[1]=((C_word*)t0)[2];
11126 av2[2]=t1;
11127 av2[3]=lf[344];
11128 tp(4,av2);}}
11129 
11130 /* k13332 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13334(C_word c,C_word * av)11131 static void C_ccall f_13334(C_word c,C_word *av){
11132 C_word tmp;
11133 C_word t0=av[0];
11134 C_word t1=av[1];
11135 C_word t2;
11136 C_word *a;
11137 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
11138 C_save_and_reclaim((void *)f_13334,c,av);}
11139 /* expand.scm:1053: ##sys#extend-macro-environment */
11140 t2=*((C_word*)lf[30]+1);{
11141 C_word *av2;
11142 if(c >= 5) {
11143   av2=av;
11144 } else {
11145   av2=C_alloc(5);
11146 }
11147 av2[0]=t2;
11148 av2[1]=((C_word*)t0)[2];
11149 av2[2]=lf[347];
11150 av2[3]=C_SCHEME_END_OF_LIST;
11151 av2[4]=t1;
11152 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
11153 
11154 /* a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13336(C_word c,C_word * av)11155 static void C_ccall f_13336(C_word c,C_word *av){
11156 C_word tmp;
11157 C_word t0=av[0];
11158 C_word t1=av[1];
11159 C_word t2=av[2];
11160 C_word t3=av[3];
11161 C_word t4=av[4];
11162 C_word t5;
11163 C_word t6;
11164 C_word *a;
11165 if(c!=5) C_bad_argc_2(c,5,t0);
11166 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
11167 C_save_and_reclaim((void *)f_13336,c,av);}
11168 a=C_alloc(5);
11169 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13340,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
11170 /* expand.scm:1057: ##sys#check-syntax */
11171 t6=*((C_word*)lf[56]+1);{
11172 C_word *av2=av;
11173 av2[0]=t6;
11174 av2[1]=t5;
11175 av2[2]=lf[347];
11176 av2[3]=t2;
11177 av2[4]=lf[354];
11178 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
11179 
11180 /* k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13340(C_word c,C_word * av)11181 static void C_ccall f_13340(C_word c,C_word *av){
11182 C_word tmp;
11183 C_word t0=av[0];
11184 C_word t1=av[1];
11185 C_word t2;
11186 C_word t3;
11187 C_word t4;
11188 C_word *a;
11189 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
11190 C_save_and_reclaim((void *)f_13340,c,av);}
11191 a=C_alloc(6);
11192 t2=C_i_length(((C_word*)t0)[2]);
11193 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13346,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
11194 /* expand.scm:1059: chicken.internal#library-id */
11195 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[340]+1));
11196 C_word *av2;
11197 if(c >= 3) {
11198   av2=av;
11199 } else {
11200   av2=C_alloc(3);
11201 }
11202 av2[0]=*((C_word*)lf[340]+1);
11203 av2[1]=t3;
11204 av2[2]=C_i_cadr(((C_word*)t0)[2]);
11205 tp(3,av2);}}
11206 
11207 /* k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13346(C_word c,C_word * av)11208 static void C_ccall f_13346(C_word c,C_word *av){
11209 C_word tmp;
11210 C_word t0=av[0];
11211 C_word t1=av[1];
11212 C_word t2;
11213 C_word t3;
11214 C_word t4;
11215 C_word *a;
11216 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
11217 C_save_and_reclaim((void *)f_13346,c,av);}
11218 a=C_alloc(10);
11219 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13352,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
11220 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(4)))){
11221 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13497,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
11222 /* expand.scm:1066: chicken.syntax#strip-syntax */
11223 t4=*((C_word*)lf[12]+1);{
11224 C_word *av2;
11225 if(c >= 3) {
11226   av2=av;
11227 } else {
11228   av2=C_alloc(3);
11229 }
11230 av2[0]=t4;
11231 av2[1]=t3;
11232 av2[2]=C_i_caddr(((C_word*)t0)[5]);
11233 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
11234 else{
11235 t3=t2;
11236 f_13352(t3,C_SCHEME_FALSE);}}
11237 
11238 /* k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13352(C_word t0,C_word t1)11239 static void C_fcall f_13352(C_word t0,C_word t1){
11240 C_word tmp;
11241 C_word t2;
11242 C_word t3;
11243 C_word t4;
11244 C_word *a;
11245 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
11246 C_save_and_reclaim_args((void *)trf_13352,2,t0,t1);}
11247 a=C_alloc(8);
11248 if(C_truep(t1)){
11249 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
11250 /* expand.scm:1067: chicken.syntax#strip-syntax */
11251 t3=*((C_word*)lf[12]+1);{
11252 C_word av2[3];
11253 av2[0]=t3;
11254 av2[1]=t2;
11255 av2[2]=((C_word*)t0)[6];
11256 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
11257 else{
11258 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13424,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
11259 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13483,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
11260 /* expand.scm:1100: chicken.syntax#strip-syntax */
11261 t4=*((C_word*)lf[12]+1);{
11262 C_word av2[3];
11263 av2[0]=t4;
11264 av2[1]=t3;
11265 av2[2]=C_i_caddr(((C_word*)t0)[6]);
11266 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
11267 
11268 /* k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13355(C_word c,C_word * av)11269 static void C_ccall f_13355(C_word c,C_word *av){
11270 C_word tmp;
11271 C_word t0=av[0];
11272 C_word t1=av[1];
11273 C_word t2;
11274 C_word t3;
11275 C_word t4;
11276 C_word t5;
11277 C_word t6;
11278 C_word *a;
11279 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
11280 C_save_and_reclaim((void *)f_13355,c,av);}
11281 a=C_alloc(13);
11282 t2=C_i_cadddr(t1);
11283 if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],C_fix(4)))){
11284 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13367,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
11285 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13401,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
11286 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13405,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
11287 /* expand.scm:1086: scheme#symbol->string */
11288 t6=*((C_word*)lf[46]+1);{
11289 C_word *av2;
11290 if(c >= 3) {
11291   av2=av;
11292 } else {
11293   av2=C_alloc(3);
11294 }
11295 av2[0]=t6;
11296 av2[1]=t5;
11297 av2[2]=((C_word*)t0)[3];
11298 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
11299 else{
11300 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13408,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
11301 /* expand.scm:1092: ##sys#check-syntax */
11302 t4=*((C_word*)lf[56]+1);{
11303 C_word *av2;
11304 if(c >= 5) {
11305   av2=av;
11306 } else {
11307   av2=C_alloc(5);
11308 }
11309 av2[0]=t4;
11310 av2[1]=t3;
11311 av2[2]=lf[347];
11312 av2[3]=t1;
11313 av2[4]=lf[353];
11314 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
11315 
11316 /* k13365 in k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13367(C_word c,C_word * av)11317 static void C_ccall f_13367(C_word c,C_word *av){
11318 C_word tmp;
11319 C_word t0=av[0];
11320 C_word t1=av[1];
11321 C_word t2;
11322 C_word t3;
11323 C_word *a;
11324 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
11325 C_save_and_reclaim((void *)f_13367,c,av);}
11326 a=C_alloc(7);
11327 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13370,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
11328 /* expand.scm:1087: r */
11329 t3=((C_word*)t0)[6];{
11330 C_word *av2;
11331 if(c >= 3) {
11332   av2=av;
11333 } else {
11334   av2=C_alloc(3);
11335 }
11336 av2[0]=t3;
11337 av2[1]=t2;
11338 av2[2]=lf[347];
11339 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
11340 
11341 /* k13368 in k13365 in k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13370(C_word c,C_word * av)11342 static void C_ccall f_13370(C_word c,C_word *av){
11343 C_word tmp;
11344 C_word t0=av[0];
11345 C_word t1=av[1];
11346 C_word t2;
11347 C_word t3;
11348 C_word t4;
11349 C_word t5;
11350 C_word t6;
11351 C_word t7;
11352 C_word t8;
11353 C_word *a;
11354 if(C_unlikely(!C_demand(C_calculate_demand(36,c,1)))){
11355 C_save_and_reclaim((void *)f_13370,c,av);}
11356 a=C_alloc(36);
11357 t2=C_i_cddddr(((C_word*)t0)[2]);
11358 t3=C_a_i_cons(&a,2,lf[326],t2);
11359 t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3);
11360 t5=C_a_i_cons(&a,2,t1,t4);
11361 t6=C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]);
11362 t7=C_a_i_list(&a,4,t1,((C_word*)t0)[5],lf[348],t6);
11363 t8=((C_word*)t0)[6];{
11364 C_word *av2=av;
11365 av2[0]=t8;
11366 av2[1]=C_a_i_list(&a,3,lf[105],t5,t7);
11367 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11368 
11369 /* k13399 in k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13401(C_word c,C_word * av)11370 static void C_ccall f_13401(C_word c,C_word *av){
11371 C_word tmp;
11372 C_word t0=av[0];
11373 C_word t1=av[1];
11374 C_word t2;
11375 C_word *a;
11376 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
11377 C_save_and_reclaim((void *)f_13401,c,av);}
11378 /* expand.scm:1083: scheme#string->symbol */
11379 t2=*((C_word*)lf[349]+1);{
11380 C_word *av2;
11381 if(c >= 3) {
11382   av2=av;
11383 } else {
11384   av2=C_alloc(3);
11385 }
11386 av2[0]=t2;
11387 av2[1]=((C_word*)t0)[2];
11388 av2[2]=t1;
11389 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
11390 
11391 /* k13403 in k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13405(C_word c,C_word * av)11392 static void C_ccall f_13405(C_word c,C_word *av){
11393 C_word tmp;
11394 C_word t0=av[0];
11395 C_word t1=av[1];
11396 C_word t2;
11397 C_word *a;
11398 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
11399 C_save_and_reclaim((void *)f_13405,c,av);}
11400 /* expand.scm:1084: ##sys#string-append */
11401 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[350]+1));
11402 C_word *av2;
11403 if(c >= 4) {
11404   av2=av;
11405 } else {
11406   av2=C_alloc(4);
11407 }
11408 av2[0]=*((C_word*)lf[350]+1);
11409 av2[1]=((C_word*)t0)[2];
11410 av2[2]=lf[351];
11411 av2[3]=t1;
11412 tp(4,av2);}}
11413 
11414 /* k13406 in k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13408(C_word c,C_word * av)11415 static void C_ccall f_13408(C_word c,C_word *av){
11416 C_word tmp;
11417 C_word t0=av[0];
11418 C_word t1=av[1];
11419 C_word t2;
11420 C_word t3;
11421 C_word *a;
11422 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
11423 C_save_and_reclaim((void *)f_13408,c,av);}
11424 a=C_alloc(5);
11425 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
11426 /* expand.scm:1096: chicken.internal#library-id */
11427 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[340]+1));
11428 C_word *av2;
11429 if(c >= 3) {
11430   av2=av;
11431 } else {
11432   av2=C_alloc(3);
11433 }
11434 av2[0]=*((C_word*)lf[340]+1);
11435 av2[1]=t2;
11436 av2[2]=C_i_car(((C_word*)t0)[4]);
11437 tp(3,av2);}}
11438 
11439 /* k13413 in k13406 in k13353 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13415(C_word c,C_word * av)11440 static void C_ccall f_13415(C_word c,C_word *av){
11441 C_word tmp;
11442 C_word t0=av[0];
11443 C_word t1=av[1];
11444 C_word t2;
11445 C_word *a;
11446 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
11447 C_save_and_reclaim((void *)f_13415,c,av);}
11448 /* expand.scm:1094: ##sys#instantiate-functor */
11449 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[352]+1));
11450 C_word *av2;
11451 if(c >= 5) {
11452   av2=av;
11453 } else {
11454   av2=C_alloc(5);
11455 }
11456 av2[0]=*((C_word*)lf[352]+1);
11457 av2[1]=((C_word*)t0)[2];
11458 av2[2]=((C_word*)t0)[3];
11459 av2[3]=t1;
11460 av2[4]=C_u_i_cdr(((C_word*)t0)[4]);
11461 tp(5,av2);}}
11462 
11463 /* k13422 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13424(C_word c,C_word * av)11464 static void C_ccall f_13424(C_word c,C_word *av){
11465 C_word tmp;
11466 C_word t0=av[0];
11467 C_word t1=av[1];
11468 C_word t2;
11469 C_word t3;
11470 C_word t4;
11471 C_word t5;
11472 C_word t6;
11473 C_word t7;
11474 C_word *a;
11475 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
11476 C_save_and_reclaim((void *)f_13424,c,av);}
11477 a=C_alloc(6);
11478 t2=C_eqp(lf[326],t1);
11479 t3=(C_truep(t2)?C_SCHEME_TRUE:t1);
11480 t4=C_i_cdddr(((C_word*)t0)[2]);
11481 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13449,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
11482 if(C_truep(C_i_pairp(t4))){
11483 t6=C_i_nullp(C_u_i_cdr(t4));
11484 t7=t5;
11485 f_13449(t7,(C_truep(t6)?C_i_stringp(C_u_i_car(t4)):C_SCHEME_FALSE));}
11486 else{
11487 t6=t5;
11488 f_13449(t6,C_SCHEME_FALSE);}}
11489 
11490 /* k13447 in k13422 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13449(C_word t0,C_word t1)11491 static void C_fcall f_13449(C_word t0,C_word t1){
11492 C_word tmp;
11493 C_word t2;
11494 C_word t3;
11495 C_word t4;
11496 C_word t5;
11497 C_word t6;
11498 C_word t7;
11499 C_word *a;
11500 if(C_unlikely(!C_demand(C_calculate_demand(21,0,1)))){
11501 C_save_and_reclaim_args((void *)trf_13449,2,t0,t1);}
11502 a=C_alloc(21);
11503 if(C_truep(t1)){
11504 t2=C_i_car(((C_word*)t0)[2]);
11505 t3=C_a_i_list(&a,3,lf[107],t2,*((C_word*)lf[3]+1));
11506 t4=C_a_i_list(&a,1,t3);
11507 t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t4);
11508 t6=C_a_i_cons(&a,2,((C_word*)t0)[4],t5);
11509 t7=((C_word*)t0)[5];{
11510 C_word av2[2];
11511 av2[0]=t7;
11512 av2[1]=C_a_i_cons(&a,2,lf[106],t6);
11513 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
11514 else{
11515 t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]);
11516 t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
11517 t4=((C_word*)t0)[5];{
11518 C_word av2[2];
11519 av2[0]=t4;
11520 av2[1]=C_a_i_cons(&a,2,lf[106],t3);
11521 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
11522 
11523 /* k13481 in k13350 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13483(C_word c,C_word * av)11524 static void C_ccall f_13483(C_word c,C_word *av){
11525 C_word tmp;
11526 C_word t0=av[0];
11527 C_word t1=av[1];
11528 C_word t2;
11529 C_word *a;
11530 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
11531 C_save_and_reclaim((void *)f_13483,c,av);}
11532 /* expand.scm:1100: ##sys#validate-exports */
11533 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1));
11534 C_word *av2;
11535 if(c >= 4) {
11536   av2=av;
11537 } else {
11538   av2=C_alloc(4);
11539 }
11540 av2[0]=*((C_word*)lf[328]+1);
11541 av2[1]=((C_word*)t0)[2];
11542 av2[2]=t1;
11543 av2[3]=lf[347];
11544 tp(4,av2);}}
11545 
11546 /* k13495 in k13344 in k13338 in a13335 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13497(C_word c,C_word * av)11547 static void C_ccall f_13497(C_word c,C_word *av){
11548 C_word tmp;
11549 C_word t0=av[0];
11550 C_word t1=av[1];
11551 C_word t2;
11552 C_word *a;
11553 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
11554 C_save_and_reclaim((void *)f_13497,c,av);}
11555 t2=((C_word*)t0)[2];
11556 f_13352(t2,C_eqp(lf[348],t1));}
11557 
11558 /* k13507 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13509(C_word c,C_word * av)11559 static void C_ccall f_13509(C_word c,C_word *av){
11560 C_word tmp;
11561 C_word t0=av[0];
11562 C_word t1=av[1];
11563 C_word t2;
11564 C_word *a;
11565 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
11566 C_save_and_reclaim((void *)f_13509,c,av);}
11567 /* expand.scm:996: ##sys#extend-macro-environment */
11568 t2=*((C_word*)lf[30]+1);{
11569 C_word *av2;
11570 if(c >= 5) {
11571   av2=av;
11572 } else {
11573   av2=C_alloc(5);
11574 }
11575 av2[0]=t2;
11576 av2[1]=((C_word*)t0)[2];
11577 av2[2]=lf[355];
11578 av2[3]=C_SCHEME_END_OF_LIST;
11579 av2[4]=t1;
11580 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
11581 
11582 /* a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13511(C_word c,C_word * av)11583 static void C_ccall f_13511(C_word c,C_word *av){
11584 C_word tmp;
11585 C_word t0=av[0];
11586 C_word t1=av[1];
11587 C_word t2=av[2];
11588 C_word t3=av[3];
11589 C_word t4=av[4];
11590 C_word t5;
11591 C_word t6;
11592 C_word t7;
11593 C_word t8;
11594 C_word t9;
11595 C_word t10;
11596 C_word t11;
11597 C_word t12;
11598 C_word t13;
11599 C_word t14;
11600 C_word t15;
11601 C_word *a;
11602 if(c!=5) C_bad_argc_2(c,5,t0);
11603 if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
11604 C_save_and_reclaim((void *)f_13511,c,av);}
11605 a=C_alloc(22);
11606 t5=C_i_cdr(t2);
11607 t6=C_SCHEME_UNDEFINED;
11608 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
11609 t8=C_SCHEME_UNDEFINED;
11610 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
11611 t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13517,a[2]=t5,a[3]=((C_word)li165),tmp=(C_word)a,a+=4,tmp));
11612 t11=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13527,a[2]=t7,a[3]=t9,a[4]=((C_word)li166),tmp=(C_word)a,a+=5,tmp));
11613 t12=C_SCHEME_UNDEFINED;
11614 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
11615 t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13672,a[2]=t5,a[3]=t7,a[4]=t13,a[5]=t9,a[6]=((C_word)li168),tmp=(C_word)a,a+=7,tmp));
11616 t15=((C_word*)t13)[1];
11617 f_13672(t15,t1,t5);}
11618 
11619 /* err in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13517(C_word t0,C_word t1,C_word t2)11620 static void C_fcall f_13517(C_word t0,C_word t1,C_word t2){
11621 C_word tmp;
11622 C_word t3;
11623 C_word t4;
11624 C_word *a;
11625 if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
11626 C_save_and_reclaim_args((void *)trf_13517,3,t0,t1,t2);}
11627 a=C_alloc(3);
11628 t3=C_a_i_cons(&a,2,lf[355],((C_word*)t0)[2]);
11629 /* expand.scm:1003: ##sys#error */
11630 t4=*((C_word*)lf[28]+1);{
11631 C_word av2[5];
11632 av2[0]=t4;
11633 av2[1]=t1;
11634 av2[2]=lf[356];
11635 av2[3]=t2;
11636 av2[4]=t3;
11637 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
11638 
11639 /* test in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13527(C_word t0,C_word t1,C_word t2)11640 static void C_fcall f_13527(C_word t0,C_word t1,C_word t2){
11641 C_word tmp;
11642 C_word t3;
11643 C_word t4;
11644 C_word t5;
11645 C_word t6;
11646 C_word t7;
11647 C_word *a;
11648 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
11649 C_save_and_reclaim_args((void *)trf_13527,3,t0,t1,t2);}
11650 a=C_alloc(7);
11651 if(C_truep(C_i_symbolp(t2))){
11652 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13541,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
11653 /* expand.scm:1007: chicken.syntax#strip-syntax */
11654 t4=*((C_word*)lf[12]+1);{
11655 C_word av2[3];
11656 av2[0]=t4;
11657 av2[1]=t3;
11658 av2[2]=t2;
11659 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
11660 else{
11661 t3=C_i_pairp(t2);
11662 if(C_truep(C_i_not(t3))){
11663 /* expand.scm:1008: err */
11664 t4=((C_word*)((C_word*)t0)[2])[1];
11665 f_13517(t4,t1,t2);}
11666 else{
11667 t4=C_i_car(t2);
11668 t5=C_u_i_cdr(t2);
11669 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13557,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
11670 /* expand.scm:1012: chicken.syntax#strip-syntax */
11671 t7=*((C_word*)lf[12]+1);{
11672 C_word av2[3];
11673 av2[0]=t7;
11674 av2[1]=t6;
11675 av2[2]=t4;
11676 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}
11677 
11678 /* k13539 in test in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13541(C_word c,C_word * av)11679 static void C_ccall f_13541(C_word c,C_word *av){
11680 C_word tmp;
11681 C_word t0=av[0];
11682 C_word t1=av[1];
11683 C_word t2;
11684 C_word *a;
11685 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
11686 C_save_and_reclaim((void *)f_13541,c,av);}
11687 /* expand.scm:1007: chicken.platform#feature? */
11688 t2=*((C_word*)lf[357]+1);{
11689 C_word *av2;
11690 if(c >= 3) {
11691   av2=av;
11692 } else {
11693   av2=C_alloc(3);
11694 }
11695 av2[0]=t2;
11696 av2[1]=((C_word*)t0)[2];
11697 av2[2]=t1;
11698 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
11699 
11700 /* k13555 in test in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13557(C_word c,C_word * av)11701 static void C_ccall f_13557(C_word c,C_word *av){
11702 C_word tmp;
11703 C_word t0=av[0];
11704 C_word t1=av[1];
11705 C_word t2;
11706 C_word t3;
11707 C_word t4;
11708 C_word t5;
11709 C_word t6;
11710 C_word *a;
11711 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
11712 C_save_and_reclaim((void *)f_13557,c,av);}
11713 a=C_alloc(5);
11714 t2=C_eqp(t1,lf[235]);
11715 if(C_truep(t2)){
11716 t3=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
11717 if(C_truep(t3)){
11718 t4=((C_word*)t0)[3];{
11719 C_word *av2=av;
11720 av2[0]=t4;
11721 av2[1]=t3;
11722 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11723 else{
11724 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
11725 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
11726 /* expand.scm:1016: test */
11727 t5=((C_word*)((C_word*)t0)[4])[1];
11728 f_13527(t5,t4,C_u_i_car(((C_word*)t0)[2]));}
11729 else{
11730 /* expand.scm:1018: err */
11731 t4=((C_word*)((C_word*)t0)[5])[1];
11732 f_13517(t4,((C_word*)t0)[3],((C_word*)t0)[6]);}}}
11733 else{
11734 t3=C_eqp(t1,lf[226]);
11735 if(C_truep(t3)){
11736 t4=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
11737 if(C_truep(C_i_not(t4))){
11738 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
11739 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13616,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
11740 /* expand.scm:1022: test */
11741 t6=((C_word*)((C_word*)t0)[4])[1];
11742 f_13527(t6,t5,C_u_i_car(((C_word*)t0)[2]));}
11743 else{
11744 /* expand.scm:1024: err */
11745 t5=((C_word*)((C_word*)t0)[5])[1];
11746 f_13517(t5,((C_word*)t0)[3],((C_word*)t0)[6]);}}
11747 else{
11748 t5=((C_word*)t0)[3];{
11749 C_word *av2=av;
11750 av2[0]=t5;
11751 av2[1]=C_SCHEME_FALSE;
11752 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
11753 else{
11754 t4=C_eqp(t1,lf[358]);
11755 if(C_truep(t4)){
11756 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13650,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
11757 /* expand.scm:1025: test */
11758 t6=((C_word*)((C_word*)t0)[4])[1];
11759 f_13527(t6,t5,C_i_cadr(((C_word*)t0)[6]));}
11760 else{
11761 /* expand.scm:1026: err */
11762 t5=((C_word*)((C_word*)t0)[5])[1];
11763 f_13517(t5,((C_word*)t0)[3],((C_word*)t0)[6]);}}}}
11764 
11765 /* k13579 in k13555 in test in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13581(C_word c,C_word * av)11766 static void C_ccall f_13581(C_word c,C_word *av){
11767 C_word tmp;
11768 C_word t0=av[0];
11769 C_word t1=av[1];
11770 C_word t2;
11771 C_word t3;
11772 C_word t4;
11773 C_word *a;
11774 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
11775 C_save_and_reclaim((void *)f_13581,c,av);}
11776 a=C_alloc(3);
11777 if(C_truep(t1)){
11778 t2=C_u_i_cdr(((C_word*)t0)[2]);
11779 t3=C_a_i_cons(&a,2,lf[235],t2);
11780 /* expand.scm:1017: test */
11781 t4=((C_word*)((C_word*)t0)[3])[1];
11782 f_13527(t4,((C_word*)t0)[4],t3);}
11783 else{
11784 t2=((C_word*)t0)[4];{
11785 C_word *av2=av;
11786 av2[0]=t2;
11787 av2[1]=C_SCHEME_FALSE;
11788 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
11789 
11790 /* k13614 in k13555 in test in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13616(C_word c,C_word * av)11791 static void C_ccall f_13616(C_word c,C_word *av){
11792 C_word tmp;
11793 C_word t0=av[0];
11794 C_word t1=av[1];
11795 C_word t2;
11796 C_word t3;
11797 C_word t4;
11798 C_word *a;
11799 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
11800 C_save_and_reclaim((void *)f_13616,c,av);}
11801 a=C_alloc(3);
11802 if(C_truep(t1)){
11803 t2=((C_word*)t0)[2];{
11804 C_word *av2=av;
11805 av2[0]=t2;
11806 av2[1]=t1;
11807 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11808 else{
11809 t2=C_u_i_cdr(((C_word*)t0)[3]);
11810 t3=C_a_i_cons(&a,2,lf[226],t2);
11811 /* expand.scm:1023: test */
11812 t4=((C_word*)((C_word*)t0)[4])[1];
11813 f_13527(t4,((C_word*)t0)[2],t3);}}
11814 
11815 /* k13648 in k13555 in test in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13650(C_word c,C_word * av)11816 static void C_ccall f_13650(C_word c,C_word *av){
11817 C_word tmp;
11818 C_word t0=av[0];
11819 C_word t1=av[1];
11820 C_word t2;
11821 C_word *a;
11822 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
11823 C_save_and_reclaim((void *)f_13650,c,av);}
11824 t2=((C_word*)t0)[2];{
11825 C_word *av2=av;
11826 av2[0]=t2;
11827 av2[1]=C_i_not(t1);
11828 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
11829 
11830 /* expand in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13672(C_word t0,C_word t1,C_word t2)11831 static void C_fcall f_13672(C_word t0,C_word t1,C_word t2){
11832 C_word tmp;
11833 C_word t3;
11834 C_word t4;
11835 C_word t5;
11836 C_word t6;
11837 C_word t7;
11838 C_word t8;
11839 C_word t9;
11840 C_word t10;
11841 C_word t11;
11842 C_word t12;
11843 C_word t13;
11844 C_word *a;
11845 if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
11846 C_save_and_reclaim_args((void *)trf_13672,3,t0,t1,t2);}
11847 a=C_alloc(16);
11848 t3=C_eqp(t2,C_SCHEME_END_OF_LIST);
11849 if(C_truep(t3)){
11850 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
11851 t5=t4;
11852 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
11853 t7=((C_word*)t6)[1];
11854 t8=C_i_check_list_2(((C_word*)t0)[2],lf[17]);
11855 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13697,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
11856 t10=C_SCHEME_UNDEFINED;
11857 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
11858 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13699,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li167),tmp=(C_word)a,a+=6,tmp));
11859 t13=((C_word*)t11)[1];
11860 f_13699(t13,t9,((C_word*)t0)[2]);}
11861 else{
11862 t4=C_i_pairp(t2);
11863 if(C_truep(C_i_not(t4))){
11864 /* expand.scm:1032: err */
11865 t5=((C_word*)((C_word*)t0)[3])[1];
11866 f_13517(t5,t1,t2);}
11867 else{
11868 t5=C_i_car(t2);
11869 t6=C_u_i_cdr(t2);
11870 t7=C_i_pairp(t5);
11871 if(C_truep(C_i_not(t7))){
11872 /* expand.scm:1037: err */
11873 t8=((C_word*)((C_word*)t0)[3])[1];
11874 f_13517(t8,t1,t5);}
11875 else{
11876 t8=C_i_car(t5);
11877 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13790,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word*)t0)[5],a[7]=t8,tmp=(C_word)a,a+=8,tmp);
11878 /* expand.scm:1039: chicken.syntax#strip-syntax */
11879 t10=*((C_word*)lf[12]+1);{
11880 C_word av2[3];
11881 av2[0]=t10;
11882 av2[1]=t9;
11883 av2[2]=t8;
11884 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}}
11885 
11886 /* k13695 in expand in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13697(C_word c,C_word * av)11887 static void C_ccall f_13697(C_word c,C_word *av){
11888 C_word tmp;
11889 C_word t0=av[0];
11890 C_word t1=av[1];
11891 C_word t2;
11892 C_word *a;
11893 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
11894 C_save_and_reclaim((void *)f_13697,c,av);}{
11895 C_word *av2;
11896 if(c >= 5) {
11897   av2=av;
11898 } else {
11899   av2=C_alloc(5);
11900 }
11901 av2[0]=0;
11902 av2[1]=((C_word*)t0)[2];
11903 av2[2]=*((C_word*)lf[28]+1);
11904 av2[3]=lf[359];
11905 av2[4]=t1;
11906 C_apply(5,av2);}}
11907 
11908 /* map-loop2370 in expand in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13699(C_word t0,C_word t1,C_word t2)11909 static void C_fcall f_13699(C_word t0,C_word t1,C_word t2){
11910 C_word tmp;
11911 C_word t3;
11912 C_word t4;
11913 C_word t5;
11914 C_word t6;
11915 C_word t7;
11916 C_word t8;
11917 C_word t9;
11918 C_word t10;
11919 C_word *a;
11920 loop:
11921 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
11922 C_save_and_reclaim_args((void *)trf_13699,3,t0,t1,t2);}
11923 a=C_alloc(3);
11924 if(C_truep(C_i_pairp(t2))){
11925 t3=C_slot(t2,C_fix(0));
11926 t4=C_i_car(t3);
11927 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
11928 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
11929 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
11930 t9=t1;
11931 t10=C_slot(t2,C_fix(1));
11932 t1=t9;
11933 t2=t10;
11934 goto loop;}
11935 else{
11936 t3=t1;{
11937 C_word av2[2];
11938 av2[0]=t3;
11939 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
11940 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
11941 
11942 /* k13776 in k13788 in expand in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13778(C_word c,C_word * av)11943 static void C_ccall f_13778(C_word c,C_word *av){
11944 C_word tmp;
11945 C_word t0=av[0];
11946 C_word t1=av[1];
11947 C_word t2;
11948 C_word t3;
11949 C_word *a;
11950 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
11951 C_save_and_reclaim((void *)f_13778,c,av);}
11952 a=C_alloc(3);
11953 if(C_truep(t1)){
11954 t2=C_u_i_cdr(((C_word*)t0)[2]);
11955 t3=((C_word*)t0)[3];{
11956 C_word *av2=av;
11957 av2[0]=t3;
11958 av2[1]=C_a_i_cons(&a,2,lf[105],t2);
11959 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11960 else{
11961 /* expand.scm:1045: expand */
11962 t2=((C_word*)((C_word*)t0)[4])[1];
11963 f_13672(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}}
11964 
11965 /* k13788 in expand in a13510 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13790(C_word c,C_word * av)11966 static void C_ccall f_13790(C_word c,C_word *av){
11967 C_word tmp;
11968 C_word t0=av[0];
11969 C_word t1=av[1];
11970 C_word t2;
11971 C_word t3;
11972 C_word t4;
11973 C_word t5;
11974 C_word *a;
11975 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
11976 C_save_and_reclaim((void *)f_13790,c,av);}
11977 a=C_alloc(6);
11978 t2=C_eqp(t1,lf[232]);
11979 if(C_truep(t2)){
11980 t3=C_u_i_cdr(((C_word*)t0)[2]);
11981 t4=C_eqp(t3,C_SCHEME_END_OF_LIST);
11982 t5=((C_word*)t0)[3];{
11983 C_word *av2=av;
11984 av2[0]=t5;
11985 av2[1]=(C_truep(t4)?lf[360]:C_a_i_cons(&a,2,lf[105],t3));
11986 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
11987 else{
11988 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
11989 /* expand.scm:1044: test */
11990 t4=((C_word*)((C_word*)t0)[6])[1];
11991 f_13527(t4,t3,((C_word*)t0)[7]);}}
11992 
11993 /* k13800 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13802(C_word c,C_word * av)11994 static void C_ccall f_13802(C_word c,C_word *av){
11995 C_word tmp;
11996 C_word t0=av[0];
11997 C_word t1=av[1];
11998 C_word t2;
11999 C_word *a;
12000 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12001 C_save_and_reclaim((void *)f_13802,c,av);}
12002 /* expand.scm:988: ##sys#extend-macro-environment */
12003 t2=*((C_word*)lf[30]+1);{
12004 C_word *av2;
12005 if(c >= 5) {
12006   av2=av;
12007 } else {
12008   av2=C_alloc(5);
12009 }
12010 av2[0]=t2;
12011 av2[1]=((C_word*)t0)[2];
12012 av2[2]=lf[361];
12013 av2[3]=C_SCHEME_END_OF_LIST;
12014 av2[4]=t1;
12015 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
12016 
12017 /* a13803 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13804(C_word c,C_word * av)12018 static void C_ccall f_13804(C_word c,C_word *av){
12019 C_word tmp;
12020 C_word t0=av[0];
12021 C_word t1=av[1];
12022 C_word t2=av[2];
12023 C_word t3=av[3];
12024 C_word t4=av[4];
12025 C_word t5;
12026 C_word t6;
12027 C_word t7;
12028 C_word *a;
12029 if(c!=5) C_bad_argc_2(c,5,t0);
12030 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
12031 C_save_and_reclaim((void *)f_13804,c,av);}
12032 a=C_alloc(9);
12033 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13808,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
12034 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13829,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
12035 /* expand.scm:992: r */
12036 t7=t3;{
12037 C_word *av2=av;
12038 av2[0]=t7;
12039 av2[1]=t6;
12040 av2[2]=lf[104];
12041 ((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}
12042 
12043 /* k13806 in a13803 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13808(C_word c,C_word * av)12044 static void C_ccall f_13808(C_word c,C_word *av){
12045 C_word tmp;
12046 C_word t0=av[0];
12047 C_word t1=av[1];
12048 C_word t2;
12049 C_word t3;
12050 C_word *a;
12051 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
12052 C_save_and_reclaim((void *)f_13808,c,av);}
12053 a=C_alloc(4);
12054 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12055 /* expand.scm:993: r */
12056 t3=((C_word*)t0)[4];{
12057 C_word *av2;
12058 if(c >= 3) {
12059   av2=av;
12060 } else {
12061   av2=C_alloc(3);
12062 }
12063 av2[0]=t3;
12064 av2[1]=t2;
12065 av2[2]=lf[104];
12066 ((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
12067 
12068 /* k13817 in k13806 in a13803 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13819(C_word c,C_word * av)12069 static void C_ccall f_13819(C_word c,C_word *av){
12070 C_word tmp;
12071 C_word t0=av[0];
12072 C_word t1=av[1];
12073 C_word t2;
12074 C_word t3;
12075 C_word t4;
12076 C_word *a;
12077 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
12078 C_save_and_reclaim((void *)f_13819,c,av);}
12079 a=C_alloc(9);
12080 t2=C_u_i_cdr(((C_word*)t0)[2]);
12081 t3=C_a_i_cons(&a,2,t1,t2);
12082 t4=((C_word*)t0)[3];{
12083 C_word *av2=av;
12084 av2[0]=t4;
12085 av2[1]=C_a_i_list(&a,2,lf[325],t3);
12086 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12087 
12088 /* k13827 in a13803 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13829(C_word c,C_word * av)12089 static void C_ccall f_13829(C_word c,C_word *av){
12090 C_word tmp;
12091 C_word t0=av[0];
12092 C_word t1=av[1];
12093 C_word t2;
12094 C_word t3;
12095 C_word t4;
12096 C_word *a;
12097 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
12098 C_save_and_reclaim((void *)f_13829,c,av);}
12099 a=C_alloc(3);
12100 t2=C_i_cdr(((C_word*)t0)[2]);
12101 t3=C_a_i_cons(&a,2,t1,t2);
12102 /* expand.scm:992: ##sys#register-meta-expression */
12103 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[362]+1));
12104 C_word *av2;
12105 if(c >= 3) {
12106   av2=av;
12107 } else {
12108   av2=C_alloc(3);
12109 }
12110 av2[0]=*((C_word*)lf[362]+1);
12111 av2[1]=((C_word*)t0)[3];
12112 av2[2]=t3;
12113 tp(3,av2);}}
12114 
12115 /* k13835 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13837(C_word c,C_word * av)12116 static void C_ccall f_13837(C_word c,C_word *av){
12117 C_word tmp;
12118 C_word t0=av[0];
12119 C_word t1=av[1];
12120 C_word t2;
12121 C_word *a;
12122 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12123 C_save_and_reclaim((void *)f_13837,c,av);}
12124 /* expand.scm:966: ##sys#extend-macro-environment */
12125 t2=*((C_word*)lf[30]+1);{
12126 C_word *av2;
12127 if(c >= 5) {
12128   av2=av;
12129 } else {
12130   av2=C_alloc(5);
12131 }
12132 av2[0]=t2;
12133 av2[1]=((C_word*)t0)[2];
12134 av2[2]=lf[104];
12135 av2[3]=C_SCHEME_END_OF_LIST;
12136 av2[4]=t1;
12137 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
12138 
12139 /* a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13839(C_word c,C_word * av)12140 static void C_ccall f_13839(C_word c,C_word *av){
12141 C_word tmp;
12142 C_word t0=av[0];
12143 C_word t1=av[1];
12144 C_word t2=av[2];
12145 C_word t3=av[3];
12146 C_word t4=av[4];
12147 C_word t5;
12148 C_word t6;
12149 C_word t7;
12150 C_word t8;
12151 C_word t9;
12152 C_word t10;
12153 C_word t11;
12154 C_word t12;
12155 C_word t13;
12156 C_word t14;
12157 C_word t15;
12158 C_word t16;
12159 C_word *a;
12160 if(c!=5) C_bad_argc_2(c,5,t0);
12161 if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
12162 C_save_and_reclaim((void *)f_13839,c,av);}
12163 a=C_alloc(22);
12164 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
12165 t6=t5;
12166 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
12167 t8=((C_word*)t7)[1];
12168 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13848,a[2]=t3,a[3]=t4,a[4]=((C_word)li173),tmp=(C_word)a,a+=5,tmp);
12169 t10=C_i_cdr(t2);
12170 t11=C_i_check_list_2(t10,lf[17]);
12171 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13910,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
12172 t13=C_SCHEME_UNDEFINED;
12173 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
12174 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13912,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li174),tmp=(C_word)a,a+=7,tmp));
12175 t16=((C_word*)t14)[1];
12176 f_13912(t16,t12,t10);}
12177 
12178 /* g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13848(C_word t0,C_word t1,C_word t2)12179 static void C_fcall f_13848(C_word t0,C_word t1,C_word t2){
12180 C_word tmp;
12181 C_word t3;
12182 C_word t4;
12183 C_word t5;
12184 C_word *a;
12185 if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){
12186 C_save_and_reclaim_args((void *)trf_13848,3,t0,t1,t2);}
12187 a=C_alloc(9);
12188 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13854,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li171),tmp=(C_word)a,a+=6,tmp);
12189 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13860,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp);
12190 /* expand.scm:972: ##sys#call-with-values */{
12191 C_word av2[4];
12192 av2[0]=0;
12193 av2[1]=t1;
12194 av2[2]=t3;
12195 av2[3]=t4;
12196 C_call_with_values(4,av2);}}
12197 
12198 /* a13853 in g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13854(C_word c,C_word * av)12199 static void C_ccall f_13854(C_word c,C_word *av){
12200 C_word tmp;
12201 C_word t0=av[0];
12202 C_word t1=av[1];
12203 C_word t2;
12204 C_word *a;
12205 if(c!=2) C_bad_argc_2(c,2,t0);
12206 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
12207 C_save_and_reclaim((void *)f_13854,c,av);}
12208 /* expand.scm:972: ##sys#decompose-import */
12209 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[363]+1));
12210 C_word *av2;
12211 if(c >= 6) {
12212   av2=av;
12213 } else {
12214   av2=C_alloc(6);
12215 }
12216 av2[0]=*((C_word*)lf[363]+1);
12217 av2[1]=t1;
12218 av2[2]=((C_word*)t0)[2];
12219 av2[3]=((C_word*)t0)[3];
12220 av2[4]=((C_word*)t0)[4];
12221 av2[5]=lf[104];
12222 tp(6,av2);}}
12223 
12224 /* a13859 in g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13860(C_word c,C_word * av)12225 static void C_ccall f_13860(C_word c,C_word *av){
12226 C_word tmp;
12227 C_word t0=av[0];
12228 C_word t1=av[1];
12229 C_word t2=av[2];
12230 C_word t3=av[3];
12231 C_word t4=av[4];
12232 C_word t5=av[5];
12233 C_word t6=av[6];
12234 C_word t7=av[7];
12235 C_word t8;
12236 C_word t9;
12237 C_word *a;
12238 if(c!=8) C_bad_argc_2(c,8,t0);
12239 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
12240 C_save_and_reclaim((void *)f_13860,c,av);}
12241 a=C_alloc(9);
12242 t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13864,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,tmp=(C_word)a,a+=9,tmp);
12243 /* expand.scm:973: ##sys#current-module */
12244 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[306]+1));
12245 C_word *av2=av;
12246 av2[0]=*((C_word*)lf[306]+1);
12247 av2[1]=t8;
12248 tp(2,av2);}}
12249 
12250 /* k13862 in a13859 in g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13864(C_word c,C_word * av)12251 static void C_ccall f_13864(C_word c,C_word *av){
12252 C_word tmp;
12253 C_word t0=av[0];
12254 C_word t1=av[1];
12255 C_word t2;
12256 C_word t3;
12257 C_word t4;
12258 C_word *a;
12259 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
12260 C_save_and_reclaim((void *)f_13864,c,av);}
12261 a=C_alloc(13);
12262 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
12263 if(C_truep(t1)){
12264 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13901,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
12265 /* expand.scm:974: ##sys#module-name */
12266 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[320]+1));
12267 C_word *av2;
12268 if(c >= 3) {
12269   av2=av;
12270 } else {
12271   av2=C_alloc(3);
12272 }
12273 av2[0]=*((C_word*)lf[320]+1);
12274 av2[1]=t3;
12275 av2[2]=t1;
12276 tp(3,av2);}}
12277 else{
12278 t3=t2;{
12279 C_word *av2=av;
12280 av2[0]=t3;
12281 av2[1]=C_SCHEME_UNDEFINED;
12282 f_13867(2,av2);}}}
12283 
12284 /* k13865 in k13862 in a13859 in g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13867(C_word c,C_word * av)12285 static void C_ccall f_13867(C_word c,C_word *av){
12286 C_word tmp;
12287 C_word t0=av[0];
12288 C_word t1=av[1];
12289 C_word t2;
12290 C_word t3;
12291 C_word *a;
12292 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
12293 C_save_and_reclaim((void *)f_13867,c,av);}
12294 a=C_alloc(5);
12295 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
12296 if(C_truep(C_i_not(((C_word*)t0)[5]))){
12297 /* expand.scm:978: ##sys#syntax-error-hook */
12298 t3=*((C_word*)lf[43]+1);{
12299 C_word *av2;
12300 if(c >= 5) {
12301   av2=av;
12302 } else {
12303   av2=C_alloc(5);
12304 }
12305 av2[0]=t3;
12306 av2[1]=t2;
12307 av2[2]=lf[104];
12308 av2[3]=lf[366];
12309 av2[4]=((C_word*)t0)[4];
12310 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
12311 else{
12312 /* expand.scm:980: ##sys#import */
12313 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[367]+1));
12314 C_word *av2;
12315 if(c >= 11) {
12316   av2=av;
12317 } else {
12318   av2=C_alloc(11);
12319 }
12320 av2[0]=*((C_word*)lf[367]+1);
12321 av2[1]=t2;
12322 av2[2]=((C_word*)t0)[5];
12323 av2[3]=((C_word*)t0)[6];
12324 av2[4]=((C_word*)t0)[7];
12325 av2[5]=((C_word*)t0)[8];
12326 av2[6]=*((C_word*)lf[4]+1);
12327 av2[7]=*((C_word*)lf[18]+1);
12328 av2[8]=C_SCHEME_FALSE;
12329 av2[9]=C_SCHEME_FALSE;
12330 av2[10]=lf[104];
12331 tp(11,av2);}}}
12332 
12333 /* k13868 in k13865 in k13862 in a13859 in g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13870(C_word c,C_word * av)12334 static void C_ccall f_13870(C_word c,C_word *av){
12335 C_word tmp;
12336 C_word t0=av[0];
12337 C_word t1=av[1];
12338 C_word t2;
12339 C_word t3;
12340 C_word *a;
12341 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
12342 C_save_and_reclaim((void *)f_13870,c,av);}
12343 a=C_alloc(9);
12344 t2=C_i_not(((C_word*)t0)[2]);
12345 t3=((C_word*)t0)[3];{
12346 C_word *av2=av;
12347 av2[0]=t3;
12348 av2[1]=(C_truep(t2)?lf[364]:C_a_i_list(&a,3,lf[365],((C_word*)t0)[2],((C_word*)t0)[4]));
12349 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12350 
12351 /* k13899 in k13862 in a13859 in g2265 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13901(C_word c,C_word * av)12352 static void C_ccall f_13901(C_word c,C_word *av){
12353 C_word tmp;
12354 C_word t0=av[0];
12355 C_word t1=av[1];
12356 C_word t2;
12357 C_word t3;
12358 C_word *a;
12359 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12360 C_save_and_reclaim((void *)f_13901,c,av);}
12361 t2=C_eqp(((C_word*)t0)[2],t1);
12362 if(C_truep(t2)){
12363 /* expand.scm:975: ##sys#syntax-error-hook */
12364 t3=*((C_word*)lf[43]+1);{
12365 C_word *av2;
12366 if(c >= 5) {
12367   av2=av;
12368 } else {
12369   av2=C_alloc(5);
12370 }
12371 av2[0]=t3;
12372 av2[1]=((C_word*)t0)[3];
12373 av2[2]=lf[104];
12374 av2[3]=lf[368];
12375 av2[4]=((C_word*)t0)[2];
12376 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
12377 else{
12378 t3=((C_word*)t0)[3];{
12379 C_word *av2=av;
12380 av2[0]=t3;
12381 av2[1]=C_SCHEME_UNDEFINED;
12382 f_13867(2,av2);}}}
12383 
12384 /* k13908 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13910(C_word c,C_word * av)12385 static void C_ccall f_13910(C_word c,C_word *av){
12386 C_word tmp;
12387 C_word t0=av[0];
12388 C_word t1=av[1];
12389 C_word t2;
12390 C_word *a;
12391 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
12392 C_save_and_reclaim((void *)f_13910,c,av);}
12393 a=C_alloc(3);
12394 t2=((C_word*)t0)[2];{
12395 C_word *av2=av;
12396 av2[0]=t2;
12397 av2[1]=C_a_i_cons(&a,2,lf[105],t1);
12398 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
12399 
12400 /* map-loop2259 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13912(C_word t0,C_word t1,C_word t2)12401 static void C_fcall f_13912(C_word t0,C_word t1,C_word t2){
12402 C_word tmp;
12403 C_word t3;
12404 C_word t4;
12405 C_word *a;
12406 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
12407 C_save_and_reclaim_args((void *)trf_13912,3,t0,t1,t2);}
12408 a=C_alloc(6);
12409 if(C_truep(C_i_pairp(t2))){
12410 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
12411 /* expand.scm:971: g2265 */
12412 t4=((C_word*)t0)[4];
12413 f_13848(t4,t3,C_slot(t2,C_fix(0)));}
12414 else{
12415 t3=t1;{
12416 C_word av2[2];
12417 av2[0]=t3;
12418 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
12419 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12420 
12421 /* k13935 in map-loop2259 in a13838 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13937(C_word c,C_word * av)12422 static void C_ccall f_13937(C_word c,C_word *av){
12423 C_word tmp;
12424 C_word t0=av[0];
12425 C_word t1=av[1];
12426 C_word t2;
12427 C_word t3;
12428 C_word t4;
12429 C_word t5;
12430 C_word *a;
12431 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
12432 C_save_and_reclaim((void *)f_13937,c,av);}
12433 a=C_alloc(3);
12434 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
12435 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
12436 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
12437 t5=((C_word*)((C_word*)t0)[3])[1];
12438 f_13912(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
12439 
12440 /* k13946 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13948(C_word c,C_word * av)12441 static void C_ccall f_13948(C_word c,C_word *av){
12442 C_word tmp;
12443 C_word t0=av[0];
12444 C_word t1=av[1];
12445 C_word t2;
12446 C_word *a;
12447 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12448 C_save_and_reclaim((void *)f_13948,c,av);}
12449 /* expand.scm:958: ##sys#extend-macro-environment */
12450 t2=*((C_word*)lf[30]+1);{
12451 C_word *av2;
12452 if(c >= 5) {
12453   av2=av;
12454 } else {
12455   av2=C_alloc(5);
12456 }
12457 av2[0]=t2;
12458 av2[1]=((C_word*)t0)[2];
12459 av2[2]=lf[369];
12460 av2[3]=C_SCHEME_END_OF_LIST;
12461 av2[4]=t1;
12462 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
12463 
12464 /* a13949 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13950(C_word c,C_word * av)12465 static void C_ccall f_13950(C_word c,C_word *av){
12466 C_word tmp;
12467 C_word t0=av[0];
12468 C_word t1=av[1];
12469 C_word t2=av[2];
12470 C_word t3=av[3];
12471 C_word t4=av[4];
12472 C_word t5;
12473 C_word t6;
12474 C_word *a;
12475 if(c!=5) C_bad_argc_2(c,5,t0);
12476 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
12477 C_save_and_reclaim((void *)f_13950,c,av);}
12478 t5=*((C_word*)lf[343]+1);
12479 /* expand.scm:961: g2249 */
12480 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[343]+1));
12481 C_word *av2;
12482 if(c >= 10) {
12483   av2=av;
12484 } else {
12485   av2=C_alloc(10);
12486 }
12487 av2[0]=*((C_word*)lf[343]+1);
12488 av2[1]=t1;
12489 av2[2]=t2;
12490 av2[3]=t3;
12491 av2[4]=t4;
12492 av2[5]=*((C_word*)lf[5]+1);
12493 av2[6]=*((C_word*)lf[193]+1);
12494 av2[7]=C_SCHEME_TRUE;
12495 av2[8]=C_SCHEME_FALSE;
12496 av2[9]=lf[369];
12497 tp(10,av2);}}
12498 
12499 /* k13956 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13958(C_word c,C_word * av)12500 static void C_ccall f_13958(C_word c,C_word *av){
12501 C_word tmp;
12502 C_word t0=av[0];
12503 C_word t1=av[1];
12504 C_word t2;
12505 C_word *a;
12506 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
12507 C_save_and_reclaim((void *)f_13958,c,av);}
12508 /* expand.scm:951: ##sys#extend-macro-environment */
12509 t2=*((C_word*)lf[30]+1);{
12510 C_word *av2;
12511 if(c >= 5) {
12512   av2=av;
12513 } else {
12514   av2=C_alloc(5);
12515 }
12516 av2[0]=t2;
12517 av2[1]=((C_word*)t0)[2];
12518 av2[2]=lf[370];
12519 av2[3]=C_SCHEME_END_OF_LIST;
12520 av2[4]=t1;
12521 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
12522 
12523 /* a13959 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_13960(C_word c,C_word * av)12524 static void C_ccall f_13960(C_word c,C_word *av){
12525 C_word tmp;
12526 C_word t0=av[0];
12527 C_word t1=av[1];
12528 C_word t2=av[2];
12529 C_word t3=av[3];
12530 C_word t4=av[4];
12531 C_word t5;
12532 C_word t6;
12533 C_word *a;
12534 if(c!=5) C_bad_argc_2(c,5,t0);
12535 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
12536 C_save_and_reclaim((void *)f_13960,c,av);}
12537 t5=*((C_word*)lf[343]+1);
12538 /* expand.scm:954: g2235 */
12539 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[343]+1));
12540 C_word *av2;
12541 if(c >= 10) {
12542   av2=av;
12543 } else {
12544   av2=C_alloc(10);
12545 }
12546 av2[0]=*((C_word*)lf[343]+1);
12547 av2[1]=t1;
12548 av2[2]=t2;
12549 av2[3]=t3;
12550 av2[4]=t4;
12551 av2[5]=*((C_word*)lf[4]+1);
12552 av2[6]=*((C_word*)lf[18]+1);
12553 av2[7]=C_SCHEME_FALSE;
12554 av2[8]=C_SCHEME_FALSE;
12555 av2[9]=lf[370];
12556 tp(10,av2);}}
12557 
12558 /* k4260 */
f_4262(C_word c,C_word * av)12559 static void C_ccall f_4262(C_word c,C_word *av){
12560 C_word tmp;
12561 C_word t0=av[0];
12562 C_word t1=av[1];
12563 C_word t2;
12564 C_word t3;
12565 C_word t4;
12566 C_word t5;
12567 C_word *a;
12568 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
12569 C_save_and_reclaim((void *)f_4262,c,av);}
12570 a=C_alloc(19);
12571 t2=C_a_i_provide(&a,1,lf[0]);
12572 t3=C_a_i_provide(&a,1,lf[1]);
12573 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4265,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
12574 C_word *av2=av;
12575 av2[0]=C_SCHEME_UNDEFINED;
12576 av2[1]=t4;
12577 C_library_toplevel(2,av2);}}
12578 
12579 /* k4263 in k4260 */
f_4265(C_word c,C_word * av)12580 static void C_ccall f_4265(C_word c,C_word *av){
12581 C_word tmp;
12582 C_word t0=av[0];
12583 C_word t1=av[1];
12584 C_word t2;
12585 C_word t3;
12586 C_word *a;
12587 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
12588 C_save_and_reclaim((void *)f_4265,c,av);}
12589 a=C_alloc(3);
12590 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5547,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
12591 /* expand.scm:67: scheme#append */
12592 t3=*((C_word*)lf[16]+1);{
12593 C_word *av2;
12594 if(c >= 4) {
12595   av2=av;
12596 } else {
12597   av2=C_alloc(4);
12598 }
12599 av2[0]=t3;
12600 av2[1]=t2;
12601 av2[2]=lf[371];
12602 av2[3]=*((C_word*)lf[2]+1);
12603 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
12604 
12605 /* k5545 in k4263 in k4260 */
f_5547(C_word c,C_word * av)12606 static void C_ccall f_5547(C_word c,C_word *av){
12607 C_word tmp;
12608 C_word t0=av[0];
12609 C_word t1=av[1];
12610 C_word t2;
12611 C_word t3;
12612 C_word t4;
12613 C_word t5;
12614 C_word *a;
12615 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
12616 C_save_and_reclaim((void *)f_5547,c,av);}
12617 a=C_alloc(3);
12618 t2=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#features ...) */,t1);
12619 t3=C_set_block_item(lf[3] /* ##sys#current-source-filename */,0,C_SCHEME_FALSE);
12620 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5552,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
12621 /* expand.scm:89: chicken.base#make-parameter */
12622 t5=*((C_word*)lf[194]+1);{
12623 C_word *av2;
12624 if(c >= 3) {
12625   av2=av;
12626 } else {
12627   av2=C_alloc(3);
12628 }
12629 av2[0]=t5;
12630 av2[1]=t4;
12631 av2[2]=C_SCHEME_END_OF_LIST;
12632 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
12633 
12634 /* k5550 in k5545 in k4263 in k4260 */
f_5552(C_word c,C_word * av)12635 static void C_ccall f_5552(C_word c,C_word *av){
12636 C_word tmp;
12637 C_word t0=av[0];
12638 C_word t1=av[1];
12639 C_word t2;
12640 C_word t3;
12641 C_word t4;
12642 C_word *a;
12643 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
12644 C_save_and_reclaim((void *)f_5552,c,av);}
12645 a=C_alloc(3);
12646 t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#current-environment ...) */,t1);
12647 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5556,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
12648 /* expand.scm:90: chicken.base#make-parameter */
12649 t4=*((C_word*)lf[194]+1);{
12650 C_word *av2;
12651 if(c >= 3) {
12652   av2=av;
12653 } else {
12654   av2=C_alloc(3);
12655 }
12656 av2[0]=t4;
12657 av2[1]=t3;
12658 av2[2]=C_SCHEME_END_OF_LIST;
12659 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
12660 
12661 /* k5554 in k5550 in k5545 in k4263 in k4260 */
f_5556(C_word c,C_word * av)12662 static void C_ccall f_5556(C_word c,C_word *av){
12663 C_word tmp;
12664 C_word t0=av[0];
12665 C_word t1=av[1];
12666 C_word t2;
12667 C_word t3;
12668 C_word t4;
12669 C_word t5;
12670 C_word t6;
12671 C_word t7;
12672 C_word t8;
12673 C_word *a;
12674 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
12675 C_save_and_reclaim((void *)f_5556,c,av);}
12676 a=C_alloc(15);
12677 t2=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#current-meta-environment ...) */,t1);
12678 t3=C_mutate(&lf[6] /* (set! chicken.syntax#lookup ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5558,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
12679 t4=C_mutate(&lf[8] /* (set! chicken.syntax#macro-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5575,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
12680 t5=C_mutate((C_word*)lf[12]+1 /* (set! chicken.syntax#strip-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5622,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
12681 t6=C_mutate((C_word*)lf[14]+1 /* (set! ##sys#extend-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5764,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
12682 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5946,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
12683 /* expand.scm:148: chicken.base#make-parameter */
12684 t8=*((C_word*)lf[194]+1);{
12685 C_word *av2;
12686 if(c >= 3) {
12687   av2=av;
12688 } else {
12689   av2=C_alloc(3);
12690 }
12691 av2[0]=t8;
12692 av2[1]=t7;
12693 av2[2]=C_SCHEME_END_OF_LIST;
12694 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
12695 
12696 /* chicken.syntax#lookup in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5558(C_word t1,C_word t2)12697 static C_word C_fcall f_5558(C_word t1,C_word t2){
12698 C_word tmp;
12699 C_word t3;
12700 C_word t4;
12701 C_word t5;
12702 C_stack_overflow_check;{}
12703 t3=C_u_i_assq(t1,t2);
12704 if(C_truep(t3)){
12705 return(C_i_cdr(t3));}
12706 else{
12707 t4=C_i_getprop(t1,lf[7],C_SCHEME_FALSE);
12708 return((C_truep(t4)?t4:C_SCHEME_FALSE));}}
12709 
12710 /* chicken.syntax#macro-alias in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5575(C_word t1,C_word t2,C_word t3)12711 static void C_fcall f_5575(C_word t1,C_word t2,C_word t3){
12712 C_word tmp;
12713 C_word t4;
12714 C_word t5;
12715 C_word *a;
12716 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
12717 C_save_and_reclaim_args((void *)trf_5575,3,t1,t2,t3);}
12718 a=C_alloc(5);
12719 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5582,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
12720 /* expand.scm:98: chicken.keyword#keyword? */
12721 t5=*((C_word*)lf[11]+1);{
12722 C_word av2[3];
12723 av2[0]=t5;
12724 av2[1]=t4;
12725 av2[2]=t2;
12726 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
12727 
12728 /* k5580 in chicken.syntax#macro-alias in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5582(C_word c,C_word * av)12729 static void C_ccall f_5582(C_word c,C_word *av){
12730 C_word tmp;
12731 C_word t0=av[0];
12732 C_word t1=av[1];
12733 C_word t2;
12734 C_word t3;
12735 C_word t4;
12736 C_word *a;
12737 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
12738 C_save_and_reclaim((void *)f_5582,c,av);}
12739 a=C_alloc(5);
12740 t2=(C_truep(t1)?t1:C_u_i_namespaced_symbolp(((C_word*)t0)[2]));
12741 if(C_truep(t2)){
12742 t3=((C_word*)t0)[3];{
12743 C_word *av2=av;
12744 av2[0]=t3;
12745 av2[1]=((C_word*)t0)[2];
12746 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12747 else{
12748 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5588,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
12749 /* expand.scm:100: chicken.base#gensym */
12750 t4=*((C_word*)lf[10]+1);{
12751 C_word *av2;
12752 if(c >= 3) {
12753   av2=av;
12754 } else {
12755   av2=C_alloc(3);
12756 }
12757 av2[0]=t4;
12758 av2[1]=t3;
12759 av2[2]=((C_word*)t0)[2];
12760 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
12761 
12762 /* k5586 in k5580 in chicken.syntax#macro-alias in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5588(C_word c,C_word * av)12763 static void C_ccall f_5588(C_word c,C_word *av){
12764 C_word tmp;
12765 C_word t0=av[0];
12766 C_word t1=av[1];
12767 C_word t2;
12768 C_word t3;
12769 C_word t4;
12770 C_word t5;
12771 C_word t6;
12772 C_word t7;
12773 C_word *a;
12774 if(C_unlikely(!C_demand(C_calculate_demand(16,c,1)))){
12775 C_save_and_reclaim((void *)f_5588,c,av);}
12776 a=C_alloc(16);
12777 t2=(
12778 /* expand.scm:101: lookup */
12779   f_5558(((C_word*)t0)[2],((C_word*)t0)[3])
12780 );
12781 t3=(C_truep(t2)?t2:((C_word*)t0)[2]);
12782 t4=C_i_getprop(((C_word*)t0)[2],lf[9],C_SCHEME_FALSE);
12783 if(C_truep(t4)){
12784 t5=C_a_i_putprop(&a,3,t1,lf[7],t3);
12785 t6=C_a_i_putprop(&a,3,t1,lf[9],t4);
12786 t7=((C_word*)t0)[4];{
12787 C_word *av2=av;
12788 av2[0]=t7;
12789 av2[1]=t1;
12790 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
12791 else{
12792 t5=C_a_i_putprop(&a,3,t1,lf[7],t3);
12793 t6=C_a_i_putprop(&a,3,t1,lf[9],((C_word*)t0)[2]);
12794 t7=((C_word*)t0)[4];{
12795 C_word *av2=av;
12796 av2[0]=t7;
12797 av2[1]=t1;
12798 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
12799 
12800 /* chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5622(C_word c,C_word * av)12801 static void C_ccall f_5622(C_word c,C_word *av){
12802 C_word tmp;
12803 C_word t0=av[0];
12804 C_word t1=av[1];
12805 C_word t2=av[2];
12806 C_word t3;
12807 C_word t4;
12808 C_word t5;
12809 C_word t6;
12810 C_word t7;
12811 C_word t8;
12812 C_word *a;
12813 if(c!=3) C_bad_argc_2(c,3,t0);
12814 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
12815 C_save_and_reclaim((void *)f_5622,c,av);}
12816 a=C_alloc(9);
12817 t3=C_SCHEME_END_OF_LIST;
12818 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
12819 t5=C_SCHEME_UNDEFINED;
12820 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
12821 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5628,a[2]=t4,a[3]=t6,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp));
12822 t8=((C_word*)t6)[1];
12823 f_5628(t8,t1,t2);}
12824 
12825 /* walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5628(C_word t0,C_word t1,C_word t2)12826 static void C_fcall f_5628(C_word t0,C_word t1,C_word t2){
12827 C_word tmp;
12828 C_word t3;
12829 C_word t4;
12830 C_word t5;
12831 C_word *a;
12832 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
12833 C_save_and_reclaim_args((void *)trf_5628,3,t0,t1,t2);}
12834 a=C_alloc(6);
12835 t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]);
12836 if(C_truep(t3)){
12837 t4=t1;{
12838 C_word av2[2];
12839 av2[0]=t4;
12840 av2[1]=C_i_cdr(t3);
12841 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12842 else{
12843 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5644,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
12844 /* expand.scm:115: chicken.keyword#keyword? */
12845 t5=*((C_word*)lf[11]+1);{
12846 C_word av2[3];
12847 av2[0]=t5;
12848 av2[1]=t4;
12849 av2[2]=t2;
12850 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
12851 
12852 /* k5642 in walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5644(C_word c,C_word * av)12853 static void C_ccall f_5644(C_word c,C_word *av){
12854 C_word tmp;
12855 C_word t0=av[0];
12856 C_word t1=av[1];
12857 C_word t2;
12858 C_word t3;
12859 C_word t4;
12860 C_word t5;
12861 C_word t6;
12862 C_word t7;
12863 C_word *a;
12864 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
12865 C_save_and_reclaim((void *)f_5644,c,av);}
12866 a=C_alloc(15);
12867 if(C_truep(t1)){
12868 t2=((C_word*)t0)[2];{
12869 C_word *av2=av;
12870 av2[0]=t2;
12871 av2[1]=((C_word*)t0)[3];
12872 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
12873 else{
12874 if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
12875 t2=C_i_getprop(((C_word*)t0)[3],lf[7],C_SCHEME_FALSE);
12876 t3=C_i_getprop(((C_word*)t0)[3],lf[9],C_SCHEME_FALSE);
12877 if(C_truep(t3)){
12878 t4=((C_word*)t0)[2];{
12879 C_word *av2=av;
12880 av2[0]=t4;
12881 av2[1]=t3;
12882 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12883 else{
12884 if(C_truep(C_i_not(t2))){
12885 t4=((C_word*)t0)[2];{
12886 C_word *av2=av;
12887 av2[0]=t4;
12888 av2[1]=((C_word*)t0)[3];
12889 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12890 else{
12891 t4=C_i_pairp(t2);
12892 t5=((C_word*)t0)[2];{
12893 C_word *av2=av;
12894 av2[0]=t5;
12895 av2[1]=(C_truep(t4)?((C_word*)t0)[3]:t2);
12896 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}
12897 else{
12898 if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
12899 t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE);
12900 t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
12901 t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[4])[1]);
12902 t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
12903 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5706,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
12904 /* expand.scm:125: walk */
12905 t7=((C_word*)((C_word*)t0)[5])[1];
12906 f_5628(t7,t6,C_u_i_car(((C_word*)t0)[3]));}
12907 else{
12908 if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){
12909 t2=C_block_size(((C_word*)t0)[3]);
12910 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5724,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
12911 /* expand.scm:130: scheme#make-vector */
12912 t4=*((C_word*)lf[13]+1);{
12913 C_word *av2;
12914 if(c >= 3) {
12915   av2=av;
12916 } else {
12917   av2=C_alloc(3);
12918 }
12919 av2[0]=t4;
12920 av2[1]=t3;
12921 av2[2]=t2;
12922 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
12923 else{
12924 t2=((C_word*)t0)[2];{
12925 C_word *av2=av;
12926 av2[0]=t2;
12927 av2[1]=((C_word*)t0)[3];
12928 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}}
12929 
12930 /* k5697 in k5704 in k5642 in walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5699(C_word c,C_word * av)12931 static void C_ccall f_5699(C_word c,C_word *av){
12932 C_word tmp;
12933 C_word t0=av[0];
12934 C_word t1=av[1];
12935 C_word t2;
12936 C_word t3;
12937 C_word *a;
12938 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
12939 C_save_and_reclaim((void *)f_5699,c,av);}
12940 t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1);
12941 t3=((C_word*)t0)[3];{
12942 C_word *av2=av;
12943 av2[0]=t3;
12944 av2[1]=((C_word*)t0)[2];
12945 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12946 
12947 /* k5704 in k5642 in walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5706(C_word c,C_word * av)12948 static void C_ccall f_5706(C_word c,C_word *av){
12949 C_word tmp;
12950 C_word t0=av[0];
12951 C_word t1=av[1];
12952 C_word t2;
12953 C_word t3;
12954 C_word t4;
12955 C_word *a;
12956 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
12957 C_save_and_reclaim((void *)f_5706,c,av);}
12958 a=C_alloc(4);
12959 t2=C_i_setslot(((C_word*)t0)[2],C_fix(0),t1);
12960 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12961 /* expand.scm:126: walk */
12962 t4=((C_word*)((C_word*)t0)[4])[1];
12963 f_5628(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));}
12964 
12965 /* k5722 in k5642 in walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5724(C_word c,C_word * av)12966 static void C_ccall f_5724(C_word c,C_word *av){
12967 C_word tmp;
12968 C_word t0=av[0];
12969 C_word t1=av[1];
12970 C_word t2;
12971 C_word t3;
12972 C_word t4;
12973 C_word t5;
12974 C_word t6;
12975 C_word t7;
12976 C_word t8;
12977 C_word *a;
12978 if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
12979 C_save_and_reclaim((void *)f_5724,c,av);}
12980 a=C_alloc(16);
12981 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
12982 t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]);
12983 t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
12984 t5=C_SCHEME_UNDEFINED;
12985 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
12986 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5733,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word)li2),tmp=(C_word)a,a+=8,tmp));
12987 t8=((C_word*)t6)[1];
12988 f_5733(t8,((C_word*)t0)[6],C_fix(0));}
12989 
12990 /* doloop874 in k5722 in k5642 in walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5733(C_word t0,C_word t1,C_word t2)12991 static void C_fcall f_5733(C_word t0,C_word t1,C_word t2){
12992 C_word tmp;
12993 C_word t3;
12994 C_word t4;
12995 C_word *a;
12996 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
12997 C_save_and_reclaim_args((void *)trf_5733,3,t0,t1,t2);}
12998 a=C_alloc(6);
12999 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
13000 t3=t1;{
13001 C_word av2[2];
13002 av2[0]=t3;
13003 av2[1]=((C_word*)t0)[3];
13004 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
13005 else{
13006 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5754,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
13007 /* expand.scm:134: walk */
13008 t4=((C_word*)((C_word*)t0)[5])[1];
13009 f_5628(t4,t3,C_slot(((C_word*)t0)[6],t2));}}
13010 
13011 /* k5752 in doloop874 in k5722 in k5642 in walk in chicken.syntax#strip-syntax in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5754(C_word c,C_word * av)13012 static void C_ccall f_5754(C_word c,C_word *av){
13013 C_word tmp;
13014 C_word t0=av[0];
13015 C_word t1=av[1];
13016 C_word t2;
13017 C_word t3;
13018 C_word *a;
13019 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
13020 C_save_and_reclaim((void *)f_5754,c,av);}
13021 t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1);
13022 t3=((C_word*)((C_word*)t0)[4])[1];
13023 f_5733(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}
13024 
13025 /* ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5764(C_word c,C_word * av)13026 static void C_ccall f_5764(C_word c,C_word *av){
13027 C_word tmp;
13028 C_word t0=av[0];
13029 C_word t1=av[1];
13030 C_word t2=av[2];
13031 C_word t3=av[3];
13032 C_word t4;
13033 C_word t5;
13034 C_word t6;
13035 C_word t7;
13036 C_word t8;
13037 C_word t9;
13038 C_word t10;
13039 C_word t11;
13040 C_word t12;
13041 C_word t13;
13042 C_word *a;
13043 if(c<4) C_bad_min_argc_2(c,4,t0);
13044 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
13045 C_save_and_reclaim((void *)f_5764,c,av);}
13046 a=C_alloc(18);
13047 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5768,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
13048 if(C_truep(C_rest_nullp(c,4))){
13049 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13050 t6=t5;
13051 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
13052 t8=((C_word*)t7)[1];
13053 t9=C_i_check_list_2(t3,lf[17]);
13054 t10=C_SCHEME_UNDEFINED;
13055 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
13056 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5907,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp));
13057 t13=((C_word*)t11)[1];
13058 f_5907(t13,t4,t3);}
13059 else{
13060 t5=t4;{
13061 C_word av2[2];
13062 av2[0]=t5;
13063 av2[1]=C_get_rest_arg(c,4,av,4,t0);
13064 f_5768(2,av2);}}}
13065 
13066 /* k5766 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5768(C_word c,C_word * av)13067 static void C_ccall f_5768(C_word c,C_word *av){
13068 C_word tmp;
13069 C_word t0=av[0];
13070 C_word t1=av[1];
13071 C_word t2;
13072 C_word t3;
13073 C_word t4;
13074 C_word t5;
13075 C_word t6;
13076 C_word t7;
13077 C_word t8;
13078 C_word *a;
13079 if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
13080 C_save_and_reclaim((void *)f_5768,c,av);}
13081 a=C_alloc(12);
13082 t2=C_i_check_list_2(t1,lf[15]);
13083 t3=C_i_check_list_2(((C_word*)t0)[2],lf[15]);
13084 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5793,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
13085 t5=C_SCHEME_UNDEFINED;
13086 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
13087 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5858,a[2]=t6,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp));
13088 t8=((C_word*)t6)[1];
13089 f_5858(t8,t4,t1,((C_word*)t0)[2]);}
13090 
13091 /* k5791 in k5766 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5793(C_word c,C_word * av)13092 static void C_ccall f_5793(C_word c,C_word *av){
13093 C_word tmp;
13094 C_word t0=av[0];
13095 C_word t1=av[1];
13096 C_word t2;
13097 C_word t3;
13098 C_word t4;
13099 C_word t5;
13100 C_word t6;
13101 C_word t7;
13102 C_word t8;
13103 C_word t9;
13104 C_word t10;
13105 C_word *a;
13106 if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
13107 C_save_and_reclaim((void *)f_5793,c,av);}
13108 a=C_alloc(17);
13109 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13110 t3=t2;
13111 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
13112 t5=((C_word*)t4)[1];
13113 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
13114 t7=C_SCHEME_UNDEFINED;
13115 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
13116 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5810,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp));
13117 t10=((C_word*)t8)[1];
13118 f_5810(t10,t6,((C_word*)t0)[4],((C_word*)t0)[5]);}
13119 
13120 /* k5806 in k5791 in k5766 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5808(C_word c,C_word * av)13121 static void C_ccall f_5808(C_word c,C_word *av){
13122 C_word tmp;
13123 C_word t0=av[0];
13124 C_word t1=av[1];
13125 C_word t2;
13126 C_word *a;
13127 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13128 C_save_and_reclaim((void *)f_5808,c,av);}
13129 /* expand.scm:143: scheme#append */
13130 t2=*((C_word*)lf[16]+1);{
13131 C_word *av2;
13132 if(c >= 4) {
13133   av2=av;
13134 } else {
13135   av2=C_alloc(4);
13136 }
13137 av2[0]=t2;
13138 av2[1]=((C_word*)t0)[2];
13139 av2[2]=t1;
13140 av2[3]=((C_word*)t0)[3];
13141 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13142 
13143 /* map-loop959 in k5791 in k5766 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5810(C_word t0,C_word t1,C_word t2,C_word t3)13144 static void C_fcall f_5810(C_word t0,C_word t1,C_word t2,C_word t3){
13145 C_word tmp;
13146 C_word t4;
13147 C_word t5;
13148 C_word t6;
13149 C_word t7;
13150 C_word t8;
13151 C_word t9;
13152 C_word t10;
13153 C_word t11;
13154 C_word t12;
13155 C_word t13;
13156 C_word t14;
13157 C_word t15;
13158 C_word *a;
13159 loop:
13160 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
13161 C_save_and_reclaim_args((void *)trf_5810,4,t0,t1,t2,t3);}
13162 a=C_alloc(6);
13163 t4=C_i_pairp(t2);
13164 t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
13165 if(C_truep(t5)){
13166 t6=C_slot(t2,C_fix(0));
13167 t7=C_slot(t3,C_fix(0));
13168 t8=C_a_i_cons(&a,2,t6,t7);
13169 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
13170 t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
13171 t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
13172 t13=t1;
13173 t14=C_slot(t2,C_fix(1));
13174 t15=C_slot(t3,C_fix(1));
13175 t1=t13;
13176 t2=t14;
13177 t3=t15;
13178 goto loop;}
13179 else{
13180 t6=t1;{
13181 C_word av2[2];
13182 av2[0]=t6;
13183 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
13184 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
13185 
13186 /* for-each-loop922 in k5766 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5858(C_word t0,C_word t1,C_word t2,C_word t3)13187 static void C_fcall f_5858(C_word t0,C_word t1,C_word t2,C_word t3){
13188 C_word tmp;
13189 C_word t4;
13190 C_word t5;
13191 C_word t6;
13192 C_word t7;
13193 C_word t8;
13194 C_word t9;
13195 C_word t10;
13196 C_word t11;
13197 C_word t12;
13198 C_word t13;
13199 C_word *a;
13200 loop:
13201 if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
13202 C_save_and_reclaim_args((void *)trf_5858,4,t0,t1,t2,t3);}
13203 a=C_alloc(8);
13204 t4=C_i_pairp(t2);
13205 t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
13206 if(C_truep(t5)){
13207 t6=C_slot(t2,C_fix(0));
13208 t7=C_slot(t3,C_fix(0));
13209 t8=C_i_getprop(t7,lf[9],C_SCHEME_FALSE);
13210 t9=(C_truep(t8)?C_a_i_putprop(&a,3,t6,lf[9],t8):C_a_i_putprop(&a,3,t6,lf[9],t7));
13211 t11=t1;
13212 t12=C_slot(t2,C_fix(1));
13213 t13=C_slot(t3,C_fix(1));
13214 t1=t11;
13215 t2=t12;
13216 t3=t13;
13217 goto loop;}
13218 else{
13219 t6=C_SCHEME_UNDEFINED;
13220 t7=t1;{
13221 C_word av2[2];
13222 av2[0]=t7;
13223 av2[1]=t6;
13224 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
13225 
13226 /* map-loop896 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5907(C_word t0,C_word t1,C_word t2)13227 static void C_fcall f_5907(C_word t0,C_word t1,C_word t2){
13228 C_word tmp;
13229 C_word t3;
13230 C_word t4;
13231 C_word *a;
13232 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
13233 C_save_and_reclaim_args((void *)trf_5907,3,t0,t1,t2);}
13234 a=C_alloc(6);
13235 if(C_truep(C_i_pairp(t2))){
13236 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
13237 /* expand.scm:137: g902 */
13238 t4=*((C_word*)lf[10]+1);{
13239 C_word av2[3];
13240 av2[0]=t4;
13241 av2[1]=t3;
13242 av2[2]=C_slot(t2,C_fix(0));
13243 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
13244 else{
13245 t3=t1;{
13246 C_word av2[2];
13247 av2[0]=t3;
13248 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
13249 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
13250 
13251 /* k5930 in map-loop896 in ##sys#extend-se in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5932(C_word c,C_word * av)13252 static void C_ccall f_5932(C_word c,C_word *av){
13253 C_word tmp;
13254 C_word t0=av[0];
13255 C_word t1=av[1];
13256 C_word t2;
13257 C_word t3;
13258 C_word t4;
13259 C_word t5;
13260 C_word *a;
13261 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13262 C_save_and_reclaim((void *)f_5932,c,av);}
13263 a=C_alloc(3);
13264 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
13265 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
13266 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
13267 t5=((C_word*)((C_word*)t0)[3])[1];
13268 f_5907(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
13269 
13270 /* k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5946(C_word c,C_word * av)13271 static void C_ccall f_5946(C_word c,C_word *av){
13272 C_word tmp;
13273 C_word t0=av[0];
13274 C_word t1=av[1];
13275 C_word t2;
13276 C_word t3;
13277 C_word t4;
13278 C_word t5;
13279 C_word t6;
13280 C_word t7;
13281 C_word t8;
13282 C_word t9;
13283 C_word t10;
13284 C_word t11;
13285 C_word t12;
13286 C_word t13;
13287 C_word t14;
13288 C_word t15;
13289 C_word t16;
13290 C_word t17;
13291 C_word t18;
13292 C_word t19;
13293 C_word t20;
13294 C_word t21;
13295 C_word t22;
13296 C_word t23;
13297 C_word t24;
13298 C_word t25;
13299 C_word t26;
13300 C_word t27;
13301 C_word t28;
13302 C_word t29;
13303 C_word t30;
13304 C_word t31;
13305 C_word t32;
13306 C_word t33;
13307 C_word t34;
13308 C_word t35;
13309 C_word t36;
13310 C_word t37;
13311 C_word t38;
13312 C_word t39;
13313 C_word t40;
13314 C_word t41;
13315 C_word t42;
13316 C_word t43;
13317 C_word t44;
13318 C_word t45;
13319 C_word t46;
13320 C_word t47;
13321 C_word t48;
13322 C_word t49;
13323 C_word *a;
13324 if(C_unlikely(!C_demand(C_calculate_demand(69,c,6)))){
13325 C_save_and_reclaim((void *)f_5946,c,av);}
13326 a=C_alloc(69);
13327 t2=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#macro-environment ...) */,t1);
13328 t3=C_set_block_item(lf[19] /* ##sys#scheme-macro-environment */,0,C_SCHEME_END_OF_LIST);
13329 t4=C_set_block_item(lf[20] /* ##sys#chicken-ffi-macro-environment */,0,C_SCHEME_END_OF_LIST);
13330 t5=C_set_block_item(lf[21] /* ##sys#chicken.condition-macro-environment */,0,C_SCHEME_END_OF_LIST);
13331 t6=C_set_block_item(lf[22] /* ##sys#chicken.time-macro-environment */,0,C_SCHEME_END_OF_LIST);
13332 t7=C_set_block_item(lf[23] /* ##sys#chicken.type-macro-environment */,0,C_SCHEME_END_OF_LIST);
13333 t8=C_set_block_item(lf[24] /* ##sys#chicken.syntax-macro-environment */,0,C_SCHEME_END_OF_LIST);
13334 t9=C_set_block_item(lf[25] /* ##sys#chicken.base-macro-environment */,0,C_SCHEME_END_OF_LIST);
13335 t10=C_mutate((C_word*)lf[26]+1 /* (set! ##sys#ensure-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5955,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
13336 t11=C_mutate((C_word*)lf[30]+1 /* (set! ##sys#extend-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5979,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
13337 t12=C_mutate((C_word*)lf[31]+1 /* (set! ##sys#macro? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6021,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
13338 t13=C_mutate((C_word*)lf[32]+1 /* (set! ##sys#undefine-macro! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6058,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp));
13339 t14=C_mutate((C_word*)lf[33]+1 /* (set! ##sys#expand-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6103,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp));
13340 t15=C_set_block_item(lf[60] /* ##sys#compiler-syntax-hook */,0,C_SCHEME_FALSE);
13341 t16=C_set_block_item(lf[62] /* ##sys#enable-runtime-macros */,0,C_SCHEME_FALSE);
13342 t17=C_mutate((C_word*)lf[42]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6601,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp));
13343 t18=C_mutate((C_word*)lf[63]+1 /* (set! chicken.syntax#expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6604,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp));
13344 t19=C_mutate((C_word*)lf[64]+1 /* (set! ##sys#extended-lambda-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6670,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp));
13345 t20=C_mutate((C_word*)lf[68]+1 /* (set! ##sys#expand-extended-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6717,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp));
13346 t21=C_mutate((C_word*)lf[91]+1 /* (set! ##sys#expand-multiple-values-assignment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7326,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp));
13347 t22=C_set_block_item(lf[96] /* chicken.syntax#define-definition */,0,C_SCHEME_UNDEFINED);
13348 t23=C_set_block_item(lf[97] /* chicken.syntax#define-syntax-definition */,0,C_SCHEME_UNDEFINED);
13349 t24=C_set_block_item(lf[98] /* chicken.syntax#define-values-definition */,0,C_SCHEME_UNDEFINED);
13350 t25=lf[99] /* chicken.syntax#import-definition */ =C_SCHEME_UNDEFINED;;
13351 t26=C_mutate((C_word*)lf[100]+1 /* (set! ##sys#canonicalize-body ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7506,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp));
13352 t27=C_mutate((C_word*)lf[119]+1 /* (set! chicken.syntax#match-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8512,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp));
13353 t28=C_mutate((C_word*)lf[113]+1 /* (set! chicken.syntax#expand-curried-define ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8594,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp));
13354 t29=C_set_block_item(lf[120] /* ##sys#line-number-database */,0,C_SCHEME_FALSE);
13355 t30=C_set_block_item(lf[121] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE);
13356 t31=C_set_block_item(lf[122] /* ##sys#syntax-context */,0,C_SCHEME_END_OF_LIST);
13357 t32=C_mutate((C_word*)lf[123]+1 /* (set! chicken.syntax#syntax-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8649,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp));
13358 t33=C_mutate((C_word*)lf[43]+1 /* (set! ##sys#syntax-error-hook ...) */,*((C_word*)lf[123]+1));
13359 t34=C_mutate((C_word*)lf[126]+1 /* (set! ##sys#syntax-error/context ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8660,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp));
13360 t35=C_mutate((C_word*)lf[145]+1 /* (set! chicken.syntax#get-line-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8881,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp));
13361 t36=C_mutate((C_word*)lf[56]+1 /* (set! ##sys#check-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8920,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp));
13362 t37=C_mutate(&lf[178] /* (set! chicken.syntax#make-er/ir-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9364,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp));
13363 t38=C_mutate((C_word*)lf[183]+1 /* (set! chicken.syntax#er-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9893,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp));
13364 t39=C_mutate((C_word*)lf[184]+1 /* (set! chicken.syntax#ir-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9899,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp));
13365 t40=C_mutate((C_word*)lf[185]+1 /* (set! ##sys#er-transformer ...) */,*((C_word*)lf[183]+1));
13366 t41=C_mutate((C_word*)lf[186]+1 /* (set! ##sys#ir-transformer ...) */,*((C_word*)lf[184]+1));
13367 t42=C_mutate((C_word*)lf[96]+1 /* (set! chicken.syntax#define-definition ...) */,*((C_word*)lf[96]+1));
13368 t43=C_mutate((C_word*)lf[97]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,*((C_word*)lf[97]+1));
13369 t44=C_mutate((C_word*)lf[98]+1 /* (set! chicken.syntax#define-values-definition ...) */,*((C_word*)lf[98]+1));
13370 t45=C_mutate((C_word*)lf[42]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,*((C_word*)lf[42]+1));
13371 t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9912,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
13372 t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13958,a[2]=t46,tmp=(C_word)a,a+=3,tmp);
13373 t48=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13960,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp);
13374 /* expand.scm:953: ##sys#er-transformer */
13375 t49=*((C_word*)lf[185]+1);{
13376 C_word *av2;
13377 if(c >= 3) {
13378   av2=av;
13379 } else {
13380   av2=C_alloc(3);
13381 }
13382 av2[0]=t49;
13383 av2[1]=t47;
13384 av2[2]=t48;
13385 ((C_proc)(void*)(*((C_word*)t49+1)))(3,av2);}}
13386 
13387 /* ##sys#ensure-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5955(C_word c,C_word * av)13388 static void C_ccall f_5955(C_word c,C_word *av){
13389 C_word tmp;
13390 C_word t0=av[0];
13391 C_word t1=av[1];
13392 C_word t2=av[2];
13393 C_word t3;
13394 C_word t4;
13395 C_word t5;
13396 C_word *a;
13397 if(c<3) C_bad_min_argc_2(c,3,t0);
13398 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
13399 C_save_and_reclaim((void *)f_5955,c,av);}
13400 t3=C_rest_nullp(c,3);
13401 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
13402 if(C_truep(C_i_structurep(t2,lf[27]))){
13403 t5=t1;{
13404 C_word *av2=av;
13405 av2[0]=t5;
13406 av2[1]=C_slot(t2,C_fix(1));
13407 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
13408 else{
13409 /* expand.scm:162: ##sys#error */
13410 t5=*((C_word*)lf[28]+1);{
13411 C_word av2[5];
13412 av2[0]=t5;
13413 av2[1]=t1;
13414 av2[2]=t4;
13415 av2[3]=lf[29];
13416 av2[4]=t2;
13417 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
13418 
13419 /* ##sys#extend-macro-environment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5979(C_word c,C_word * av)13420 static void C_ccall f_5979(C_word c,C_word *av){
13421 C_word tmp;
13422 C_word t0=av[0];
13423 C_word t1=av[1];
13424 C_word t2=av[2];
13425 C_word t3=av[3];
13426 C_word t4=av[4];
13427 C_word t5;
13428 C_word t6;
13429 C_word *a;
13430 if(c!=5) C_bad_argc_2(c,5,t0);
13431 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
13432 C_save_and_reclaim((void *)f_5979,c,av);}
13433 a=C_alloc(6);
13434 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5983,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
13435 /* expand.scm:165: ##sys#macro-environment */
13436 t6=*((C_word*)lf[18]+1);{
13437 C_word *av2=av;
13438 av2[0]=t6;
13439 av2[1]=t5;
13440 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
13441 
13442 /* k5981 in ##sys#extend-macro-environment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5983(C_word c,C_word * av)13443 static void C_ccall f_5983(C_word c,C_word *av){
13444 C_word tmp;
13445 C_word t0=av[0];
13446 C_word t1=av[1];
13447 C_word t2;
13448 C_word t3;
13449 C_word *a;
13450 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
13451 C_save_and_reclaim((void *)f_5983,c,av);}
13452 a=C_alloc(6);
13453 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5986,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
13454 /* expand.scm:166: ##sys#ensure-transformer */
13455 t3=*((C_word*)lf[26]+1);{
13456 C_word *av2;
13457 if(c >= 4) {
13458   av2=av;
13459 } else {
13460   av2=C_alloc(4);
13461 }
13462 av2[0]=t3;
13463 av2[1]=t2;
13464 av2[2]=((C_word*)t0)[5];
13465 av2[3]=((C_word*)t0)[2];
13466 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
13467 
13468 /* k5984 in k5981 in ##sys#extend-macro-environment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5986(C_word c,C_word * av)13469 static void C_ccall f_5986(C_word c,C_word *av){
13470 C_word tmp;
13471 C_word t0=av[0];
13472 C_word t1=av[1];
13473 C_word t2;
13474 C_word t3;
13475 C_word t4;
13476 C_word t5;
13477 C_word t6;
13478 C_word t7;
13479 C_word *a;
13480 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
13481 C_save_and_reclaim((void *)f_5986,c,av);}
13482 a=C_alloc(16);
13483 t2=(
13484 /* expand.scm:167: lookup */
13485   f_5558(((C_word*)t0)[2],((C_word*)t0)[3])
13486 );
13487 if(C_truep(t2)){
13488 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5993,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp);
13489 /* expand.scm:167: g1023 */
13490 t4=((C_word*)t0)[5];{
13491 C_word *av2=av;
13492 av2[0]=t4;
13493 av2[1]=(
13494 /* expand.scm:167: g1023 */
13495   f_5993(t3,t2)
13496 );
13497 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
13498 else{
13499 t3=C_a_i_list2(&a,2,((C_word*)t0)[4],t1);
13500 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6011,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
13501 t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t3);
13502 t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]);
13503 /* expand.scm:174: ##sys#macro-environment */
13504 t7=*((C_word*)lf[18]+1);{
13505 C_word *av2;
13506 if(c >= 3) {
13507   av2=av;
13508 } else {
13509   av2=C_alloc(3);
13510 }
13511 av2[0]=t7;
13512 av2[1]=t4;
13513 av2[2]=t6;
13514 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
13515 
13516 /* g1023 in k5984 in k5981 in ##sys#extend-macro-environment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_5993(C_word t0,C_word t1)13517 static C_word C_fcall f_5993(C_word t0,C_word t1){
13518 C_word tmp;
13519 C_word t2;
13520 C_word t3;
13521 C_word t4;
13522 C_stack_overflow_check;{}
13523 t2=C_i_set_car(t1,((C_word*)t0)[2]);
13524 t3=C_i_set_car(C_u_i_cdr(t1),((C_word*)t0)[3]);
13525 return(t1);}
13526 
13527 /* k6009 in k5984 in k5981 in ##sys#extend-macro-environment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6011(C_word c,C_word * av)13528 static void C_ccall f_6011(C_word c,C_word *av){
13529 C_word tmp;
13530 C_word t0=av[0];
13531 C_word t1=av[1];
13532 C_word t2;
13533 C_word *a;
13534 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13535 C_save_and_reclaim((void *)f_6011,c,av);}
13536 t2=((C_word*)t0)[2];{
13537 C_word *av2=av;
13538 av2[0]=t2;
13539 av2[1]=((C_word*)t0)[3];
13540 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13541 
13542 /* ##sys#macro? in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6021(C_word c,C_word * av)13543 static void C_ccall f_6021(C_word c,C_word *av){
13544 C_word tmp;
13545 C_word t0=av[0];
13546 C_word t1=av[1];
13547 C_word t2=av[2];
13548 C_word t3;
13549 C_word t4;
13550 C_word *a;
13551 if(c<3) C_bad_min_argc_2(c,3,t0);
13552 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
13553 C_save_and_reclaim((void *)f_6021,c,av);}
13554 a=C_alloc(4);
13555 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6025,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
13556 if(C_truep(C_rest_nullp(c,3))){
13557 /* expand.scm:178: ##sys#current-environment */
13558 t4=*((C_word*)lf[4]+1);{
13559 C_word *av2=av;
13560 av2[0]=t4;
13561 av2[1]=t3;
13562 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
13563 else{
13564 t4=t3;{
13565 C_word av2[2];
13566 av2[0]=t4;
13567 av2[1]=C_get_rest_arg(c,3,av,3,t0);
13568 f_6025(2,av2);}}}
13569 
13570 /* k6023 in ##sys#macro? in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6025(C_word c,C_word * av)13571 static void C_ccall f_6025(C_word c,C_word *av){
13572 C_word tmp;
13573 C_word t0=av[0];
13574 C_word t1=av[1];
13575 C_word t2;
13576 C_word t3;
13577 C_word t4;
13578 C_word t5;
13579 C_word *a;
13580 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
13581 C_save_and_reclaim((void *)f_6025,c,av);}
13582 a=C_alloc(4);
13583 t2=(
13584 /* expand.scm:179: lookup */
13585   f_5558(((C_word*)t0)[2],t1)
13586 );
13587 t3=C_i_pairp(t2);
13588 if(C_truep(t3)){
13589 t4=((C_word*)t0)[3];{
13590 C_word *av2=av;
13591 av2[0]=t4;
13592 av2[1]=t3;
13593 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
13594 else{
13595 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
13596 /* expand.scm:181: ##sys#macro-environment */
13597 t5=*((C_word*)lf[18]+1);{
13598 C_word *av2=av;
13599 av2[0]=t5;
13600 av2[1]=t4;
13601 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
13602 
13603 /* k6045 in k6023 in ##sys#macro? in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6047(C_word c,C_word * av)13604 static void C_ccall f_6047(C_word c,C_word *av){
13605 C_word tmp;
13606 C_word t0=av[0];
13607 C_word t1=av[1];
13608 C_word t2;
13609 C_word t3;
13610 C_word *a;
13611 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13612 C_save_and_reclaim((void *)f_6047,c,av);}
13613 t2=(
13614 /* expand.scm:181: lookup */
13615   f_5558(((C_word*)t0)[2],t1)
13616 );
13617 t3=((C_word*)t0)[3];{
13618 C_word *av2=av;
13619 av2[0]=t3;
13620 av2[1]=(C_truep(t2)?C_i_pairp(t2):C_SCHEME_FALSE);
13621 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
13622 
13623 /* ##sys#undefine-macro! in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6058(C_word c,C_word * av)13624 static void C_ccall f_6058(C_word c,C_word *av){
13625 C_word tmp;
13626 C_word t0=av[0];
13627 C_word t1=av[1];
13628 C_word t2=av[2];
13629 C_word t3;
13630 C_word t4;
13631 C_word t5;
13632 C_word *a;
13633 if(c!=3) C_bad_argc_2(c,3,t0);
13634 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
13635 C_save_and_reclaim((void *)f_6058,c,av);}
13636 a=C_alloc(7);
13637 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6066,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
13638 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6070,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
13639 /* expand.scm:187: ##sys#macro-environment */
13640 t5=*((C_word*)lf[18]+1);{
13641 C_word *av2=av;
13642 av2[0]=t5;
13643 av2[1]=t4;
13644 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
13645 
13646 /* k6064 in ##sys#undefine-macro! in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6066(C_word c,C_word * av)13647 static void C_ccall f_6066(C_word c,C_word *av){
13648 C_word tmp;
13649 C_word t0=av[0];
13650 C_word t1=av[1];
13651 C_word t2;
13652 C_word *a;
13653 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
13654 C_save_and_reclaim((void *)f_6066,c,av);}
13655 /* expand.scm:185: ##sys#macro-environment */
13656 t2=*((C_word*)lf[18]+1);{
13657 C_word *av2;
13658 if(c >= 3) {
13659   av2=av;
13660 } else {
13661   av2=C_alloc(3);
13662 }
13663 av2[0]=t2;
13664 av2[1]=((C_word*)t0)[2];
13665 av2[2]=t1;
13666 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
13667 
13668 /* k6068 in ##sys#undefine-macro! in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6070(C_word c,C_word * av)13669 static void C_ccall f_6070(C_word c,C_word *av){
13670 C_word tmp;
13671 C_word t0=av[0];
13672 C_word t1=av[1];
13673 C_word t2;
13674 C_word t3;
13675 C_word t4;
13676 C_word t5;
13677 C_word *a;
13678 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
13679 C_save_and_reclaim((void *)f_6070,c,av);}
13680 a=C_alloc(7);
13681 t2=C_SCHEME_UNDEFINED;
13682 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
13683 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6072,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp));
13684 t5=((C_word*)t3)[1];
13685 f_6072(t5,((C_word*)t0)[3],t1);}
13686 
13687 /* loop in k6068 in ##sys#undefine-macro! in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6072(C_word t0,C_word t1,C_word t2)13688 static void C_fcall f_6072(C_word t0,C_word t1,C_word t2){
13689 C_word tmp;
13690 C_word t3;
13691 C_word t4;
13692 C_word t5;
13693 C_word t6;
13694 C_word t7;
13695 C_word t8;
13696 C_word t9;
13697 C_word *a;
13698 loop:
13699 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
13700 C_save_and_reclaim_args((void *)trf_6072,3,t0,t1,t2);}
13701 a=C_alloc(4);
13702 if(C_truep(C_i_nullp(t2))){
13703 t3=t1;{
13704 C_word av2[2];
13705 av2[0]=t3;
13706 av2[1]=C_SCHEME_END_OF_LIST;
13707 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
13708 else{
13709 t3=C_i_caar(t2);
13710 t4=C_eqp(((C_word*)t0)[2],t3);
13711 if(C_truep(t4)){
13712 t5=t1;{
13713 C_word av2[2];
13714 av2[0]=t5;
13715 av2[1]=C_u_i_cdr(t2);
13716 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
13717 else{
13718 t5=C_u_i_car(t2);
13719 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6095,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
13720 /* expand.scm:190: loop */
13721 t8=t6;
13722 t9=C_u_i_cdr(t2);
13723 t1=t8;
13724 t2=t9;
13725 goto loop;}}}
13726 
13727 /* k6093 in loop in k6068 in ##sys#undefine-macro! in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6095(C_word c,C_word * av)13728 static void C_ccall f_6095(C_word c,C_word *av){
13729 C_word tmp;
13730 C_word t0=av[0];
13731 C_word t1=av[1];
13732 C_word t2;
13733 C_word *a;
13734 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
13735 C_save_and_reclaim((void *)f_6095,c,av);}
13736 a=C_alloc(3);
13737 t2=((C_word*)t0)[2];{
13738 C_word *av2=av;
13739 av2[0]=t2;
13740 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
13741 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13742 
13743 /* ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6103(C_word c,C_word * av)13744 static void C_ccall f_6103(C_word c,C_word *av){
13745 C_word tmp;
13746 C_word t0=av[0];
13747 C_word t1=av[1];
13748 C_word t2=av[2];
13749 C_word t3=av[3];
13750 C_word t4=av[4];
13751 C_word t5;
13752 C_word t6;
13753 C_word t7;
13754 C_word t8;
13755 C_word t9;
13756 C_word t10;
13757 C_word t11;
13758 C_word t12;
13759 C_word t13;
13760 C_word t14;
13761 C_word *a;
13762 if(c!=5) C_bad_argc_2(c,5,t0);
13763 if(C_unlikely(!C_demand(C_calculate_demand(22,c,7)))){
13764 C_save_and_reclaim((void *)f_6103,c,av);}
13765 a=C_alloc(22);
13766 t5=C_SCHEME_UNDEFINED;
13767 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
13768 t7=C_SCHEME_UNDEFINED;
13769 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
13770 t9=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6106,a[2]=t3,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp));
13771 t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6305,a[2]=t6,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp));
13772 t11=C_SCHEME_UNDEFINED;
13773 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
13774 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6349,a[2]=t3,a[3]=t8,a[4]=t12,a[5]=t6,a[6]=t4,a[7]=((C_word)li32),tmp=(C_word)a,a+=8,tmp));
13775 t14=((C_word*)t12)[1];
13776 f_6349(t14,t1,t2);}
13777 
13778 /* call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6106(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6)13779 static void C_fcall f_6106(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
13780 C_word tmp;
13781 C_word t7;
13782 C_word t8;
13783 C_word t9;
13784 C_word *a;
13785 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
13786 C_save_and_reclaim_args((void *)trf_6106,7,t0,t1,t2,t3,t4,t5,t6);}
13787 a=C_alloc(12);
13788 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6116,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
13789 t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6121,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word)li26),tmp=(C_word)a,a+=9,tmp);
13790 /* expand.scm:198: scheme#call-with-current-continuation */
13791 t9=*((C_word*)lf[50]+1);{
13792 C_word av2[3];
13793 av2[0]=t9;
13794 av2[1]=t7;
13795 av2[2]=t8;
13796 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
13797 
13798 /* k6114 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6116(C_word c,C_word * av)13799 static void C_ccall f_6116(C_word c,C_word *av){
13800 C_word tmp;
13801 C_word t0=av[0];
13802 C_word t1=av[1];
13803 C_word t2;
13804 C_word *a;
13805 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13806 C_save_and_reclaim((void *)f_6116,c,av);}
13807 /* g10751076 */
13808 t2=t1;{
13809 C_word *av2=av;
13810 av2[0]=t2;
13811 av2[1]=((C_word*)t0)[2];
13812 ((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}
13813 
13814 /* a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6121(C_word c,C_word * av)13815 static void C_ccall f_6121(C_word c,C_word *av){
13816 C_word tmp;
13817 C_word t0=av[0];
13818 C_word t1=av[1];
13819 C_word t2=av[2];
13820 C_word t3;
13821 C_word t4;
13822 C_word t5;
13823 C_word *a;
13824 if(c!=3) C_bad_argc_2(c,3,t0);
13825 if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
13826 C_save_and_reclaim((void *)f_6121,c,av);}
13827 a=C_alloc(15);
13828 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6127,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li17),tmp=(C_word)a,a+=5,tmp);
13829 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6228,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t2,a[9]=((C_word)li25),tmp=(C_word)a,a+=10,tmp);
13830 /* expand.scm:198: chicken.condition#with-exception-handler */
13831 t5=*((C_word*)lf[49]+1);{
13832 C_word *av2;
13833 if(c >= 4) {
13834   av2=av;
13835 } else {
13836   av2=C_alloc(4);
13837 }
13838 av2[0]=t5;
13839 av2[1]=t1;
13840 av2[2]=t3;
13841 av2[3]=t4;
13842 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
13843 
13844 /* a6126 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6127(C_word c,C_word * av)13845 static void C_ccall f_6127(C_word c,C_word *av){
13846 C_word tmp;
13847 C_word t0=av[0];
13848 C_word t1=av[1];
13849 C_word t2=av[2];
13850 C_word t3;
13851 C_word t4;
13852 C_word *a;
13853 if(c!=3) C_bad_argc_2(c,3,t0);
13854 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
13855 C_save_and_reclaim((void *)f_6127,c,av);}
13856 a=C_alloc(5);
13857 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6133,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp);
13858 /* expand.scm:198: k1072 */
13859 t4=((C_word*)t0)[3];{
13860 C_word *av2=av;
13861 av2[0]=t4;
13862 av2[1]=t1;
13863 av2[2]=t3;
13864 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
13865 
13866 /* a6132 in a6126 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6133(C_word c,C_word * av)13867 static void C_ccall f_6133(C_word c,C_word *av){
13868 C_word tmp;
13869 C_word t0=av[0];
13870 C_word t1=av[1];
13871 C_word t2;
13872 C_word t3;
13873 C_word t4;
13874 C_word t5;
13875 C_word t6;
13876 C_word t7;
13877 C_word t8;
13878 C_word t9;
13879 C_word t10;
13880 C_word *a;
13881 if(c!=2) C_bad_argc_2(c,2,t0);
13882 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
13883 C_save_and_reclaim((void *)f_6133,c,av);}
13884 a=C_alloc(11);
13885 t2=C_i_structurep(((C_word*)t0)[2],lf[34]);
13886 t3=(C_truep(t2)?C_i_memq(lf[35],C_slot(((C_word*)t0)[2],C_fix(1))):C_SCHEME_FALSE);
13887 if(C_truep(t3)){
13888 t4=C_slot(((C_word*)t0)[2],C_fix(1));
13889 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6155,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
13890 t6=C_slot(((C_word*)t0)[2],C_fix(2));
13891 t7=C_SCHEME_UNDEFINED;
13892 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
13893 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6161,a[2]=((C_word*)t0)[3],a[3]=t8,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp));
13894 t10=((C_word*)t8)[1];
13895 f_6161(t10,t5,t6);}
13896 else{
13897 /* expand.scm:201: chicken.condition#abort */
13898 t4=*((C_word*)lf[36]+1);{
13899 C_word *av2;
13900 if(c >= 3) {
13901   av2=av;
13902 } else {
13903   av2=C_alloc(3);
13904 }
13905 av2[0]=t4;
13906 av2[1]=t1;
13907 av2[2]=((C_word*)t0)[2];
13908 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
13909 
13910 /* k6153 in a6132 in a6126 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6155(C_word c,C_word * av)13911 static void C_ccall f_6155(C_word c,C_word *av){
13912 C_word tmp;
13913 C_word t0=av[0];
13914 C_word t1=av[1];
13915 C_word t2;
13916 C_word t3;
13917 C_word *a;
13918 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
13919 C_save_and_reclaim((void *)f_6155,c,av);}
13920 a=C_alloc(4);
13921 t2=C_a_i_record3(&a,3,lf[34],((C_word*)t0)[2],t1);
13922 /* expand.scm:201: chicken.condition#abort */
13923 t3=*((C_word*)lf[36]+1);{
13924 C_word *av2;
13925 if(c >= 3) {
13926   av2=av;
13927 } else {
13928   av2=C_alloc(3);
13929 }
13930 av2[0]=t3;
13931 av2[1]=((C_word*)t0)[3];
13932 av2[2]=t2;
13933 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
13934 
13935 /* copy in a6132 in a6126 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6161(C_word t0,C_word t1,C_word t2)13936 static void C_fcall f_6161(C_word t0,C_word t1,C_word t2){
13937 C_word tmp;
13938 C_word t3;
13939 C_word t4;
13940 C_word t5;
13941 C_word t6;
13942 C_word t7;
13943 C_word *a;
13944 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
13945 C_save_and_reclaim_args((void *)trf_6161,3,t0,t1,t2);}
13946 a=C_alloc(6);
13947 if(C_truep(C_i_nullp(t2))){
13948 t3=t1;{
13949 C_word av2[2];
13950 av2[0]=t3;
13951 av2[1]=C_SCHEME_END_OF_LIST;
13952 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
13953 else{
13954 t3=C_i_car(t2);
13955 t4=C_u_i_cdr(t2);
13956 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6178,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
13957 if(C_truep(C_i_equalp(lf[41],t3))){
13958 t6=C_i_pairp(t4);
13959 t7=t5;
13960 f_6178(t7,(C_truep(t6)?C_i_stringp(C_u_i_car(t4)):C_SCHEME_FALSE));}
13961 else{
13962 t6=t5;
13963 f_6178(t6,C_SCHEME_FALSE);}}}
13964 
13965 /* k6176 in copy in a6132 in a6126 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6178(C_word t0,C_word t1)13966 static void C_fcall f_6178(C_word t0,C_word t1){
13967 C_word tmp;
13968 C_word t2;
13969 C_word t3;
13970 C_word *a;
13971 if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
13972 C_save_and_reclaim_args((void *)trf_6178,2,t0,t1);}
13973 a=C_alloc(4);
13974 if(C_truep(t1)){
13975 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
13976 /* expand.scm:217: scheme#string-append */
13977 t3=*((C_word*)lf[38]+1);{
13978 C_word av2[6];
13979 av2[0]=t3;
13980 av2[1]=t2;
13981 av2[2]=lf[39];
13982 av2[3]=C_slot(((C_word*)t0)[4],C_fix(1));
13983 av2[4]=lf[40];
13984 av2[5]=C_i_car(((C_word*)t0)[2]);
13985 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
13986 else{
13987 /* expand.scm:223: copy */
13988 t2=((C_word*)((C_word*)t0)[5])[1];
13989 f_6161(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}}
13990 
13991 /* k6187 in k6176 in copy in a6132 in a6126 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6189(C_word c,C_word * av)13992 static void C_ccall f_6189(C_word c,C_word *av){
13993 C_word tmp;
13994 C_word t0=av[0];
13995 C_word t1=av[1];
13996 C_word t2;
13997 C_word t3;
13998 C_word t4;
13999 C_word *a;
14000 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
14001 C_save_and_reclaim((void *)f_6189,c,av);}
14002 a=C_alloc(6);
14003 t2=C_u_i_cdr(((C_word*)t0)[2]);
14004 t3=C_a_i_cons(&a,2,t1,t2);
14005 t4=((C_word*)t0)[3];{
14006 C_word *av2=av;
14007 av2[0]=t4;
14008 av2[1]=C_a_i_cons(&a,2,lf[37],t3);
14009 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14010 
14011 /* a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6228(C_word c,C_word * av)14012 static void C_ccall f_6228(C_word c,C_word *av){
14013 C_word tmp;
14014 C_word t0=av[0];
14015 C_word t1=av[1];
14016 C_word t2;
14017 C_word t3;
14018 C_word t4;
14019 C_word *a;
14020 if(c!=2) C_bad_argc_2(c,2,t0);
14021 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
14022 C_save_and_reclaim((void *)f_6228,c,av);}
14023 a=C_alloc(13);
14024 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li22),tmp=(C_word)a,a+=9,tmp);
14025 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6293,a[2]=((C_word*)t0)[8],a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp);
14026 /* expand.scm:198: ##sys#call-with-values */{
14027 C_word *av2;
14028 if(c >= 4) {
14029   av2=av;
14030 } else {
14031   av2=C_alloc(4);
14032 }
14033 av2[0]=0;
14034 av2[1]=t1;
14035 av2[2]=t2;
14036 av2[3]=t3;
14037 C_call_with_values(4,av2);}}
14038 
14039 /* a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6234(C_word c,C_word * av)14040 static void C_ccall f_6234(C_word c,C_word *av){
14041 C_word tmp;
14042 C_word t0=av[0];
14043 C_word t1=av[1];
14044 C_word t2;
14045 C_word t3;
14046 C_word t4;
14047 C_word t5;
14048 C_word t6;
14049 C_word t7;
14050 C_word t8;
14051 C_word t9;
14052 C_word t10;
14053 C_word *a;
14054 if(c!=2) C_bad_argc_2(c,2,t0);
14055 if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){
14056 C_save_and_reclaim((void *)f_6234,c,av);}
14057 a=C_alloc(31);
14058 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6238,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
14059 if(C_truep(((C_word*)t0)[3])){
14060 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6268,a[2]=((C_word*)t0)[2],a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp);
14061 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
14062 t5=C_SCHEME_FALSE;
14063 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
14064 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6274,a[2]=t6,a[3]=t4,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp);
14065 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6279,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li20),tmp=(C_word)a,a+=7,tmp);
14066 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6285,a[2]=t4,a[3]=t6,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp);
14067 /* expand.scm:228: ##sys#dynamic-wind */
14068 t10=*((C_word*)lf[48]+1);{
14069 C_word *av2;
14070 if(c >= 5) {
14071   av2=av;
14072 } else {
14073   av2=C_alloc(5);
14074 }
14075 av2[0]=t10;
14076 av2[1]=t2;
14077 av2[2]=t7;
14078 av2[3]=t8;
14079 av2[4]=t9;
14080 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
14081 else{
14082 /* expand.scm:231: handler */
14083 t3=((C_word*)t0)[5];{
14084 C_word *av2;
14085 if(c >= 5) {
14086   av2=av;
14087 } else {
14088   av2=C_alloc(5);
14089 }
14090 av2[0]=t3;
14091 av2[1]=t2;
14092 av2[2]=((C_word*)t0)[2];
14093 av2[3]=((C_word*)t0)[6];
14094 av2[4]=((C_word*)t0)[7];
14095 ((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}}
14096 
14097 /* k6236 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6238(C_word c,C_word * av)14098 static void C_ccall f_6238(C_word c,C_word *av){
14099 C_word tmp;
14100 C_word t0=av[0];
14101 C_word t1=av[1];
14102 C_word t2;
14103 C_word t3;
14104 C_word t4;
14105 C_word t5;
14106 C_word t6;
14107 C_word t7;
14108 C_word *a;
14109 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
14110 C_save_and_reclaim((void *)f_6238,c,av);}
14111 a=C_alloc(12);
14112 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6241,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
14113 t3=C_i_not(((C_word*)t0)[4]);
14114 t4=(C_truep(t3)?C_eqp(((C_word*)t0)[3],t1):C_SCHEME_FALSE);
14115 if(C_truep(t4)){
14116 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6257,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
14117 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6261,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
14118 /* expand.scm:235: scheme#symbol->string */
14119 t7=*((C_word*)lf[46]+1);{
14120 C_word *av2;
14121 if(c >= 3) {
14122   av2=av;
14123 } else {
14124   av2=C_alloc(3);
14125 }
14126 av2[0]=t7;
14127 av2[1]=t6;
14128 av2[2]=((C_word*)t0)[5];
14129 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
14130 else{
14131 /* expand.scm:239: expansion-result-hook */
14132 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1));
14133 C_word *av2;
14134 if(c >= 4) {
14135   av2=av;
14136 } else {
14137   av2=C_alloc(4);
14138 }
14139 av2[0]=*((C_word*)lf[42]+1);
14140 av2[1]=((C_word*)t0)[2];
14141 av2[2]=((C_word*)t0)[3];
14142 av2[3]=t1;
14143 tp(4,av2);}}}
14144 
14145 /* k6239 in k6236 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6241(C_word c,C_word * av)14146 static void C_ccall f_6241(C_word c,C_word *av){
14147 C_word tmp;
14148 C_word t0=av[0];
14149 C_word t1=av[1];
14150 C_word t2;
14151 C_word *a;
14152 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
14153 C_save_and_reclaim((void *)f_6241,c,av);}
14154 /* expand.scm:239: expansion-result-hook */
14155 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1));
14156 C_word *av2;
14157 if(c >= 4) {
14158   av2=av;
14159 } else {
14160   av2=C_alloc(4);
14161 }
14162 av2[0]=*((C_word*)lf[42]+1);
14163 av2[1]=((C_word*)t0)[2];
14164 av2[2]=((C_word*)t0)[3];
14165 av2[3]=((C_word*)t0)[4];
14166 tp(4,av2);}}
14167 
14168 /* k6255 in k6236 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6257(C_word c,C_word * av)14169 static void C_ccall f_6257(C_word c,C_word *av){
14170 C_word tmp;
14171 C_word t0=av[0];
14172 C_word t1=av[1];
14173 C_word t2;
14174 C_word *a;
14175 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
14176 C_save_and_reclaim((void *)f_6257,c,av);}
14177 /* expand.scm:233: ##sys#syntax-error-hook */
14178 t2=*((C_word*)lf[43]+1);{
14179 C_word *av2;
14180 if(c >= 4) {
14181   av2=av;
14182 } else {
14183   av2=C_alloc(4);
14184 }
14185 av2[0]=t2;
14186 av2[1]=((C_word*)t0)[2];
14187 av2[2]=t1;
14188 av2[3]=((C_word*)t0)[3];
14189 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
14190 
14191 /* k6259 in k6236 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6261(C_word c,C_word * av)14192 static void C_ccall f_6261(C_word c,C_word *av){
14193 C_word tmp;
14194 C_word t0=av[0];
14195 C_word t1=av[1];
14196 C_word t2;
14197 C_word *a;
14198 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
14199 C_save_and_reclaim((void *)f_6261,c,av);}
14200 /* expand.scm:234: scheme#string-append */
14201 t2=*((C_word*)lf[38]+1);{
14202 C_word *av2;
14203 if(c >= 5) {
14204   av2=av;
14205 } else {
14206   av2=C_alloc(5);
14207 }
14208 av2[0]=t2;
14209 av2[1]=((C_word*)t0)[2];
14210 av2[2]=lf[44];
14211 av2[3]=t1;
14212 av2[4]=lf[45];
14213 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
14214 
14215 /* f_6268 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6268(C_word c,C_word * av)14216 static void C_ccall f_6268(C_word c,C_word *av){
14217 C_word tmp;
14218 C_word t0=av[0];
14219 C_word t1=av[1];
14220 C_word t2=av[2];
14221 C_word t3;
14222 C_word *a;
14223 if(c!=3) C_bad_argc_2(c,3,t0);
14224 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14225 C_save_and_reclaim((void *)f_6268,c,av);}
14226 t3=t1;{
14227 C_word *av2=av;
14228 av2[0]=t3;
14229 av2[1]=((C_word*)t0)[2];
14230 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
14231 
14232 /* a6273 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6274(C_word c,C_word * av)14233 static void C_ccall f_6274(C_word c,C_word *av){
14234 C_word tmp;
14235 C_word t0=av[0];
14236 C_word t1=av[1];
14237 C_word t2;
14238 C_word t3;
14239 C_word t4;
14240 C_word *a;
14241 if(c!=2) C_bad_argc_2(c,2,t0);
14242 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14243 C_save_and_reclaim((void *)f_6274,c,av);}
14244 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[47]+1));
14245 t3=C_mutate((C_word*)lf[47]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]);
14246 t4=t1;{
14247 C_word *av2=av;
14248 av2[0]=t4;
14249 av2[1]=C_SCHEME_UNDEFINED;
14250 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14251 
14252 /* a6278 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6279(C_word c,C_word * av)14253 static void C_ccall f_6279(C_word c,C_word *av){
14254 C_word tmp;
14255 C_word t0=av[0];
14256 C_word t1=av[1];
14257 C_word t2;
14258 C_word *a;
14259 if(c!=2) C_bad_argc_2(c,2,t0);
14260 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
14261 C_save_and_reclaim((void *)f_6279,c,av);}
14262 /* expand.scm:230: handler */
14263 t2=((C_word*)t0)[2];{
14264 C_word *av2;
14265 if(c >= 5) {
14266   av2=av;
14267 } else {
14268   av2=C_alloc(5);
14269 }
14270 av2[0]=t2;
14271 av2[1]=t1;
14272 av2[2]=((C_word*)t0)[3];
14273 av2[3]=((C_word*)t0)[4];
14274 av2[4]=((C_word*)t0)[5];
14275 ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
14276 
14277 /* a6284 in a6233 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6285(C_word c,C_word * av)14278 static void C_ccall f_6285(C_word c,C_word *av){
14279 C_word tmp;
14280 C_word t0=av[0];
14281 C_word t1=av[1];
14282 C_word t2;
14283 C_word t3;
14284 C_word t4;
14285 C_word *a;
14286 if(c!=2) C_bad_argc_2(c,2,t0);
14287 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14288 C_save_and_reclaim((void *)f_6285,c,av);}
14289 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[47]+1));
14290 t3=C_mutate((C_word*)lf[47]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]);
14291 t4=t1;{
14292 C_word *av2=av;
14293 av2[0]=t4;
14294 av2[1]=C_SCHEME_UNDEFINED;
14295 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14296 
14297 /* a6292 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6293(C_word c,C_word * av)14298 static void C_ccall f_6293(C_word c,C_word *av){
14299 C_word tmp;
14300 C_word t0=av[0];
14301 C_word t1=av[1];
14302 C_word t2;
14303 C_word *a;
14304 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){
14305 C_save_and_reclaim((void*)f_6293,c,av);}
14306 a=C_alloc((c-2)*C_SIZEOF_PAIR+4);
14307 t2=C_build_rest(&a,c,2,av);
14308 C_word t3;
14309 C_word t4;
14310 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6299,a[2]=t2,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp);
14311 /* expand.scm:198: k1072 */
14312 t4=((C_word*)t0)[2];{
14313 C_word *av2;
14314 if(c >= 3) {
14315   av2=av;
14316 } else {
14317   av2=C_alloc(3);
14318 }
14319 av2[0]=t4;
14320 av2[1]=t1;
14321 av2[2]=t3;
14322 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
14323 
14324 /* a6298 in a6292 in a6227 in a6120 in call-handler in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6299(C_word c,C_word * av)14325 static void C_ccall f_6299(C_word c,C_word *av){
14326 C_word tmp;
14327 C_word t0=av[0];
14328 C_word t1=av[1];
14329 C_word t2;
14330 C_word *a;
14331 if(c!=2) C_bad_argc_2(c,2,t0);
14332 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
14333 C_save_and_reclaim((void *)f_6299,c,av);}{
14334 C_word *av2;
14335 if(c >= 3) {
14336   av2=av;
14337 } else {
14338   av2=C_alloc(3);
14339 }
14340 av2[0]=0;
14341 av2[1]=t1;
14342 av2[2]=((C_word*)t0)[2];
14343 C_apply_values(3,av2);}}
14344 
14345 /* expand in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6305(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)14346 static void C_fcall f_6305(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
14347 C_word tmp;
14348 C_word t5;
14349 C_word t6;
14350 C_word t7;
14351 C_word *a;
14352 if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
14353 C_save_and_reclaim_args((void *)trf_6305,5,t0,t1,t2,t3,t4);}
14354 a=C_alloc(3);
14355 t5=C_i_listp(t3);
14356 if(C_truep(C_i_not(t5))){
14357 /* expand.scm:251: ##sys#syntax-error-hook */
14358 t6=*((C_word*)lf[43]+1);{
14359 C_word av2[4];
14360 av2[0]=t6;
14361 av2[1]=t1;
14362 av2[2]=lf[51];
14363 av2[3]=t3;
14364 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
14365 else{
14366 if(C_truep(C_i_pairp(t4))){
14367 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6331,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
14368 /* expand.scm:255: call-handler */
14369 t7=((C_word*)((C_word*)t0)[2])[1];
14370 f_6106(t7,t6,t2,C_i_cadr(t4),t3,C_u_i_car(t4),C_SCHEME_FALSE);}
14371 else{
14372 /* expand.scm:257: scheme#values */{
14373 C_word av2[4];
14374 av2[0]=0;
14375 av2[1]=t1;
14376 av2[2]=t3;
14377 av2[3]=C_SCHEME_FALSE;
14378 C_values(4,av2);}}}}
14379 
14380 /* k6329 in expand in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6331(C_word c,C_word * av)14381 static void C_ccall f_6331(C_word c,C_word *av){
14382 C_word tmp;
14383 C_word t0=av[0];
14384 C_word t1=av[1];
14385 C_word t2;
14386 C_word *a;
14387 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
14388 C_save_and_reclaim((void *)f_6331,c,av);}
14389 /* expand.scm:253: scheme#values */{
14390 C_word *av2;
14391 if(c >= 4) {
14392   av2=av;
14393 } else {
14394   av2=C_alloc(4);
14395 }
14396 av2[0]=0;
14397 av2[1]=((C_word*)t0)[2];
14398 av2[2]=t1;
14399 av2[3]=C_SCHEME_TRUE;
14400 C_values(4,av2);}}
14401 
14402 /* loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6349(C_word t0,C_word t1,C_word t2)14403 static void C_fcall f_6349(C_word t0,C_word t1,C_word t2){
14404 C_word tmp;
14405 C_word t3;
14406 C_word t4;
14407 C_word t5;
14408 C_word t6;
14409 C_word t7;
14410 C_word t8;
14411 C_word t9;
14412 C_word t10;
14413 C_word t11;
14414 C_word *a;
14415 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
14416 C_save_and_reclaim_args((void *)trf_6349,3,t0,t1,t2);}
14417 a=C_alloc(18);
14418 if(C_truep(C_i_pairp(t2))){
14419 t3=C_u_i_car(t2);
14420 t4=C_u_i_cdr(t2);
14421 if(C_truep(C_i_symbolp(t3))){
14422 t5=(
14423 /* expand.scm:263: lookup */
14424   f_5558(t3,((C_word*)t0)[2])
14425 );
14426 t6=(C_truep(t5)?t5:t3);
14427 t7=t6;
14428 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
14429 t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6373,a[2]=t8,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],tmp=(C_word)a,a+=12,tmp);
14430 if(C_truep(C_i_pairp(((C_word*)t8)[1]))){
14431 t10=t9;
14432 f_6373(t10,C_SCHEME_UNDEFINED);}
14433 else{
14434 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6591,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
14435 /* expand.scm:265: ##sys#macro-environment */
14436 t11=*((C_word*)lf[18]+1);{
14437 C_word av2[2];
14438 av2[0]=t11;
14439 av2[1]=t10;
14440 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}
14441 else{
14442 /* expand.scm:291: scheme#values */{
14443 C_word av2[4];
14444 av2[0]=0;
14445 av2[1]=t1;
14446 av2[2]=t2;
14447 av2[3]=C_SCHEME_FALSE;
14448 C_values(4,av2);}}}
14449 else{
14450 /* expand.scm:292: scheme#values */{
14451 C_word av2[4];
14452 av2[0]=0;
14453 av2[1]=t1;
14454 av2[2]=t2;
14455 av2[3]=C_SCHEME_FALSE;
14456 C_values(4,av2);}}}
14457 
14458 /* k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6373(C_word t0,C_word t1)14459 static void C_fcall f_6373(C_word t0,C_word t1){
14460 C_word tmp;
14461 C_word t2;
14462 C_word t3;
14463 C_word t4;
14464 C_word t5;
14465 C_word *a;
14466 if(C_unlikely(!C_demand(C_calculate_demand(9,0,6)))){
14467 C_save_and_reclaim_args((void *)trf_6373,2,t0,t1);}
14468 a=C_alloc(9);
14469 t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[52]);
14470 if(C_truep(t2)){
14471 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6382,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
14472 /* expand.scm:267: ##sys#check-syntax */
14473 t4=*((C_word*)lf[56]+1);{
14474 C_word av2[7];
14475 av2[0]=t4;
14476 av2[1]=t3;
14477 av2[2]=lf[57];
14478 av2[3]=((C_word*)t0)[3];
14479 av2[4]=lf[59];
14480 av2[5]=C_SCHEME_FALSE;
14481 av2[6]=((C_word*)t0)[5];
14482 ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}
14483 else{
14484 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6528,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
14485 if(C_truep(((C_word*)t0)[11])){
14486 if(C_truep(C_i_symbolp(((C_word*)((C_word*)t0)[2])[1]))){
14487 t4=((C_word*)((C_word*)t0)[2])[1];
14488 t5=t3;
14489 f_6528(t5,C_i_getprop(t4,lf[61],C_SCHEME_FALSE));}
14490 else{
14491 t4=t3;
14492 f_6528(t4,C_SCHEME_FALSE);}}
14493 else{
14494 t4=t3;
14495 f_6528(t4,C_SCHEME_FALSE);}}}
14496 
14497 /* k6380 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6382(C_word c,C_word * av)14498 static void C_ccall f_6382(C_word c,C_word *av){
14499 C_word tmp;
14500 C_word t0=av[0];
14501 C_word t1=av[1];
14502 C_word t2;
14503 C_word t3;
14504 C_word t4;
14505 C_word *a;
14506 if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
14507 C_save_and_reclaim((void *)f_6382,c,av);}
14508 a=C_alloc(5);
14509 t2=C_i_car(((C_word*)t0)[2]);
14510 if(C_truep(C_i_symbolp(t2))){
14511 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6394,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
14512 /* expand.scm:270: ##sys#check-syntax */
14513 t4=*((C_word*)lf[56]+1);{
14514 C_word *av2;
14515 if(c >= 7) {
14516   av2=av;
14517 } else {
14518   av2=C_alloc(7);
14519 }
14520 av2[0]=t4;
14521 av2[1]=t3;
14522 av2[2]=lf[57];
14523 av2[3]=((C_word*)t0)[2];
14524 av2[4]=lf[58];
14525 av2[5]=C_SCHEME_FALSE;
14526 av2[6]=((C_word*)t0)[4];
14527 ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}
14528 else{
14529 /* expand.scm:281: scheme#values */{
14530 C_word *av2;
14531 if(c >= 4) {
14532   av2=av;
14533 } else {
14534   av2=C_alloc(4);
14535 }
14536 av2[0]=0;
14537 av2[1]=((C_word*)t0)[3];
14538 av2[2]=((C_word*)t0)[5];
14539 av2[3]=C_SCHEME_FALSE;
14540 C_values(4,av2);}}}
14541 
14542 /* k6392 in k6380 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6394(C_word c,C_word * av)14543 static void C_ccall f_6394(C_word c,C_word *av){
14544 C_word tmp;
14545 C_word t0=av[0];
14546 C_word t1=av[1];
14547 C_word t2;
14548 C_word t3;
14549 C_word t4;
14550 C_word t5;
14551 C_word t6;
14552 C_word t7;
14553 C_word t8;
14554 C_word t9;
14555 C_word t10;
14556 C_word t11;
14557 C_word t12;
14558 C_word *a;
14559 if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
14560 C_save_and_reclaim((void *)f_6394,c,av);}
14561 a=C_alloc(19);
14562 t2=C_i_cadr(((C_word*)t0)[2]);
14563 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
14564 t4=t3;
14565 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
14566 t6=((C_word*)t5)[1];
14567 t7=C_i_check_list_2(t2,lf[17]);
14568 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6484,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
14569 t9=C_SCHEME_UNDEFINED;
14570 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
14571 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6490,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li30),tmp=(C_word)a,a+=6,tmp));
14572 t12=((C_word*)t10)[1];
14573 f_6490(t12,t8,t2);}
14574 
14575 /* k6417 in k6482 in k6392 in k6380 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6419(C_word c,C_word * av)14576 static void C_ccall f_6419(C_word c,C_word *av){
14577 C_word tmp;
14578 C_word t0=av[0];
14579 C_word t1=av[1];
14580 C_word t2;
14581 C_word t3;
14582 C_word t4;
14583 C_word *a;
14584 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
14585 C_save_and_reclaim((void *)f_6419,c,av);}
14586 a=C_alloc(6);
14587 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
14588 t3=C_a_i_cons(&a,2,lf[55],t2);
14589 /* expand.scm:272: scheme#values */{
14590 C_word *av2;
14591 if(c >= 4) {
14592   av2=av;
14593 } else {
14594   av2=C_alloc(4);
14595 }
14596 av2[0]=0;
14597 av2[1]=((C_word*)t0)[3];
14598 av2[2]=t3;
14599 av2[3]=C_SCHEME_TRUE;
14600 C_values(4,av2);}}
14601 
14602 /* map-loop1171 in k6482 in k6392 in k6380 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6421(C_word t0,C_word t1,C_word t2)14603 static void C_fcall f_6421(C_word t0,C_word t1,C_word t2){
14604 C_word tmp;
14605 C_word t3;
14606 C_word t4;
14607 C_word t5;
14608 C_word t6;
14609 C_word t7;
14610 C_word t8;
14611 C_word t9;
14612 C_word t10;
14613 C_word *a;
14614 loop:
14615 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
14616 C_save_and_reclaim_args((void *)trf_6421,3,t0,t1,t2);}
14617 a=C_alloc(3);
14618 if(C_truep(C_i_pairp(t2))){
14619 t3=C_slot(t2,C_fix(0));
14620 t4=C_i_cadr(t3);
14621 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
14622 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
14623 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
14624 t9=t1;
14625 t10=C_slot(t2,C_fix(1));
14626 t1=t9;
14627 t2=t10;
14628 goto loop;}
14629 else{
14630 t3=t1;{
14631 C_word av2[2];
14632 av2[0]=t3;
14633 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
14634 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14635 
14636 /* k6482 in k6392 in k6380 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6484(C_word c,C_word * av)14637 static void C_ccall f_6484(C_word c,C_word *av){
14638 C_word tmp;
14639 C_word t0=av[0];
14640 C_word t1=av[1];
14641 C_word t2;
14642 C_word t3;
14643 C_word t4;
14644 C_word t5;
14645 C_word t6;
14646 C_word t7;
14647 C_word t8;
14648 C_word t9;
14649 C_word t10;
14650 C_word t11;
14651 C_word t12;
14652 C_word t13;
14653 C_word t14;
14654 C_word t15;
14655 C_word t16;
14656 C_word *a;
14657 if(C_unlikely(!C_demand(C_calculate_demand(41,c,3)))){
14658 C_save_and_reclaim((void *)f_6484,c,av);}
14659 a=C_alloc(41);
14660 t2=C_i_cddr(((C_word*)t0)[2]);
14661 t3=C_a_i_cons(&a,2,t1,t2);
14662 t4=C_a_i_cons(&a,2,lf[53],t3);
14663 t5=C_a_i_list(&a,2,((C_word*)t0)[3],t4);
14664 t6=C_a_i_list(&a,1,t5);
14665 t7=C_a_i_list(&a,3,lf[54],t6,((C_word*)t0)[3]);
14666 t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
14667 t9=t8;
14668 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
14669 t11=((C_word*)t10)[1];
14670 t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6419,a[2]=t7,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
14671 t13=C_SCHEME_UNDEFINED;
14672 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
14673 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6421,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp));
14674 t16=((C_word*)t14)[1];
14675 f_6421(t16,t12,((C_word*)t0)[5]);}
14676 
14677 /* map-loop1144 in k6392 in k6380 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6490(C_word t0,C_word t1,C_word t2)14678 static void C_fcall f_6490(C_word t0,C_word t1,C_word t2){
14679 C_word tmp;
14680 C_word t3;
14681 C_word t4;
14682 C_word t5;
14683 C_word t6;
14684 C_word t7;
14685 C_word t8;
14686 C_word t9;
14687 C_word t10;
14688 C_word *a;
14689 loop:
14690 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
14691 C_save_and_reclaim_args((void *)trf_6490,3,t0,t1,t2);}
14692 a=C_alloc(3);
14693 if(C_truep(C_i_pairp(t2))){
14694 t3=C_slot(t2,C_fix(0));
14695 t4=C_i_car(t3);
14696 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
14697 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
14698 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
14699 t9=t1;
14700 t10=C_slot(t2,C_fix(1));
14701 t1=t9;
14702 t2=t10;
14703 goto loop;}
14704 else{
14705 t3=t1;{
14706 C_word av2[2];
14707 av2[0]=t3;
14708 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
14709 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14710 
14711 /* k6526 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6528(C_word t0,C_word t1)14712 static void C_fcall f_6528(C_word t0,C_word t1){
14713 C_word tmp;
14714 C_word t2;
14715 C_word t3;
14716 C_word *a;
14717 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
14718 C_save_and_reclaim_args((void *)trf_6528,2,t0,t1);}
14719 a=C_alloc(9);
14720 if(C_truep(t1)){
14721 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6532,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li31),tmp=(C_word)a,a+=9,tmp);
14722 /* expand.scm:266: g1204 */
14723 t3=t2;
14724 f_6532(t3,((C_word*)t0)[8],t1);}
14725 else{
14726 /* expand.scm:290: expand */
14727 t2=((C_word*)((C_word*)t0)[3])[1];
14728 f_6305(t2,((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]);}}
14729 
14730 /* g1204 in k6526 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6532(C_word t0,C_word t1,C_word t2)14731 static void C_fcall f_6532(C_word t0,C_word t1,C_word t2){
14732 C_word tmp;
14733 C_word t3;
14734 C_word t4;
14735 C_word *a;
14736 if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){
14737 C_save_and_reclaim_args((void *)trf_6532,3,t0,t1,t2);}
14738 a=C_alloc(8);
14739 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6536,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
14740 /* expand.scm:284: call-handler */
14741 t4=((C_word*)((C_word*)t0)[7])[1];
14742 f_6106(t4,t3,((C_word*)t0)[4],C_i_car(t2),((C_word*)t0)[2],C_u_i_cdr(t2),C_SCHEME_TRUE);}
14743 
14744 /* k6534 in g1204 in k6526 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6536(C_word c,C_word * av)14745 static void C_ccall f_6536(C_word c,C_word *av){
14746 C_word tmp;
14747 C_word t0=av[0];
14748 C_word t1=av[1];
14749 C_word t2;
14750 C_word t3;
14751 C_word t4;
14752 C_word *a;
14753 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
14754 C_save_and_reclaim((void *)f_6536,c,av);}
14755 a=C_alloc(5);
14756 t2=C_eqp(t1,((C_word*)t0)[2]);
14757 if(C_truep(t2)){
14758 /* expand.scm:285: expand */
14759 t3=((C_word*)((C_word*)t0)[3])[1];
14760 f_6305(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]);}
14761 else{
14762 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6548,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
14763 if(C_truep(*((C_word*)lf[60]+1))){
14764 /* expand.scm:288: ##sys#compiler-syntax-hook */
14765 t4=*((C_word*)lf[60]+1);{
14766 C_word *av2;
14767 if(c >= 4) {
14768   av2=av;
14769 } else {
14770   av2=C_alloc(4);
14771 }
14772 av2[0]=t4;
14773 av2[1]=t3;
14774 av2[2]=((C_word*)((C_word*)t0)[6])[1];
14775 av2[3]=t1;
14776 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
14777 else{
14778 /* expand.scm:289: loop */
14779 t4=((C_word*)((C_word*)t0)[7])[1];
14780 f_6349(t4,((C_word*)t0)[4],t1);}}}
14781 
14782 /* k6546 in k6534 in g1204 in k6526 in k6371 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6548(C_word c,C_word * av)14783 static void C_ccall f_6548(C_word c,C_word *av){
14784 C_word tmp;
14785 C_word t0=av[0];
14786 C_word t1=av[1];
14787 C_word t2;
14788 C_word *a;
14789 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
14790 C_save_and_reclaim((void *)f_6548,c,av);}
14791 /* expand.scm:289: loop */
14792 t2=((C_word*)((C_word*)t0)[2])[1];
14793 f_6349(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
14794 
14795 /* k6589 in loop in ##sys#expand-0 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6591(C_word c,C_word * av)14796 static void C_ccall f_6591(C_word c,C_word *av){
14797 C_word tmp;
14798 C_word t0=av[0];
14799 C_word t1=av[1];
14800 C_word t2;
14801 C_word t3;
14802 C_word t4;
14803 C_word t5;
14804 C_word *a;
14805 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14806 C_save_and_reclaim((void *)f_6591,c,av);}
14807 t2=(
14808 /* expand.scm:265: lookup */
14809   f_5558(((C_word*)((C_word*)t0)[2])[1],t1)
14810 );
14811 if(C_truep(t2)){
14812 t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
14813 t4=((C_word*)t0)[3];
14814 f_6373(t4,t3);}
14815 else{
14816 t3=((C_word*)((C_word*)t0)[2])[1];
14817 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
14818 t5=((C_word*)t0)[3];
14819 f_6373(t5,t4);}}
14820 
14821 /* chicken.syntax#expansion-result-hook in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6601(C_word c,C_word * av)14822 static void C_ccall f_6601(C_word c,C_word *av){
14823 C_word tmp;
14824 C_word t0=av[0];
14825 C_word t1=av[1];
14826 C_word t2=av[2];
14827 C_word t3=av[3];
14828 C_word t4;
14829 C_word *a;
14830 if(c!=4) C_bad_argc_2(c,4,t0);
14831 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
14832 C_save_and_reclaim((void *)f_6601,c,av);}
14833 t4=t1;{
14834 C_word *av2=av;
14835 av2[0]=t4;
14836 av2[1]=t3;
14837 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14838 
14839 /* chicken.syntax#expand in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6604(C_word c,C_word * av)14840 static void C_ccall f_6604(C_word c,C_word *av){
14841 C_word tmp;
14842 C_word t0=av[0];
14843 C_word t1=av[1];
14844 C_word t2=av[2];
14845 C_word t3;
14846 C_word *a;
14847 if(c<3) C_bad_min_argc_2(c,3,t0);
14848 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
14849 C_save_and_reclaim((void*)f_6604,c,av);}
14850 a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
14851 t3=C_build_rest(&a,c,3,av);
14852 C_word t4;
14853 C_word t5;
14854 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6608,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
14855 if(C_truep(C_i_nullp(t3))){
14856 /* expand.scm:301: ##sys#current-environment */
14857 t5=*((C_word*)lf[4]+1);{
14858 C_word *av2=av;
14859 av2[0]=t5;
14860 av2[1]=t4;
14861 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
14862 else{
14863 t5=t4;{
14864 C_word *av2=av;
14865 av2[0]=t5;
14866 av2[1]=C_i_car(t3);
14867 f_6608(2,av2);}}}
14868 
14869 /* k6606 in chicken.syntax#expand in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6608(C_word c,C_word * av)14870 static void C_ccall f_6608(C_word c,C_word *av){
14871 C_word tmp;
14872 C_word t0=av[0];
14873 C_word t1=av[1];
14874 C_word t2;
14875 C_word t3;
14876 C_word t4;
14877 C_word t5;
14878 C_word t6;
14879 C_word t7;
14880 C_word t8;
14881 C_word t9;
14882 C_word t10;
14883 C_word t11;
14884 C_word *a;
14885 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
14886 C_save_and_reclaim((void *)f_6608,c,av);}
14887 a=C_alloc(8);
14888 t2=C_i_nullp(((C_word*)t0)[2]);
14889 t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
14890 t4=C_i_nullp(t3);
14891 t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3));
14892 t6=C_i_nullp(t3);
14893 t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3));
14894 t8=C_SCHEME_UNDEFINED;
14895 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
14896 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6622,a[2]=t1,a[3]=t5,a[4]=t9,a[5]=((C_word)li37),tmp=(C_word)a,a+=6,tmp));
14897 t11=((C_word*)t9)[1];
14898 f_6622(t11,((C_word*)t0)[3],((C_word*)t0)[4]);}
14899 
14900 /* loop in k6606 in chicken.syntax#expand in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6622(C_word t0,C_word t1,C_word t2)14901 static void C_fcall f_6622(C_word t0,C_word t1,C_word t2){
14902 C_word tmp;
14903 C_word t3;
14904 C_word t4;
14905 C_word t5;
14906 C_word *a;
14907 if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
14908 C_save_and_reclaim_args((void *)trf_6622,3,t0,t1,t2);}
14909 a=C_alloc(10);
14910 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6628,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp);
14911 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6634,a[2]=((C_word*)t0)[4],a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp);
14912 /* expand.scm:303: ##sys#call-with-values */{
14913 C_word av2[4];
14914 av2[0]=0;
14915 av2[1]=t1;
14916 av2[2]=t3;
14917 av2[3]=t4;
14918 C_call_with_values(4,av2);}}
14919 
14920 /* a6627 in loop in k6606 in chicken.syntax#expand in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6628(C_word c,C_word * av)14921 static void C_ccall f_6628(C_word c,C_word *av){
14922 C_word tmp;
14923 C_word t0=av[0];
14924 C_word t1=av[1];
14925 C_word t2;
14926 C_word *a;
14927 if(c!=2) C_bad_argc_2(c,2,t0);
14928 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
14929 C_save_and_reclaim((void *)f_6628,c,av);}
14930 /* expand.scm:303: ##sys#expand-0 */
14931 t2=*((C_word*)lf[33]+1);{
14932 C_word *av2;
14933 if(c >= 5) {
14934   av2=av;
14935 } else {
14936   av2=C_alloc(5);
14937 }
14938 av2[0]=t2;
14939 av2[1]=t1;
14940 av2[2]=((C_word*)t0)[2];
14941 av2[3]=((C_word*)t0)[3];
14942 av2[4]=((C_word*)t0)[4];
14943 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
14944 
14945 /* a6633 in loop in k6606 in chicken.syntax#expand in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6634(C_word c,C_word * av)14946 static void C_ccall f_6634(C_word c,C_word *av){
14947 C_word tmp;
14948 C_word t0=av[0];
14949 C_word t1=av[1];
14950 C_word t2=av[2];
14951 C_word t3=av[3];
14952 C_word t4;
14953 C_word *a;
14954 if(c!=4) C_bad_argc_2(c,4,t0);
14955 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
14956 C_save_and_reclaim((void *)f_6634,c,av);}
14957 if(C_truep(t3)){
14958 /* expand.scm:305: loop */
14959 t4=((C_word*)((C_word*)t0)[2])[1];
14960 f_6622(t4,t1,t2);}
14961 else{
14962 t4=t1;{
14963 C_word *av2=av;
14964 av2[0]=t4;
14965 av2[1]=t2;
14966 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
14967 
14968 /* ##sys#extended-lambda-list? in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6670(C_word c,C_word * av)14969 static void C_ccall f_6670(C_word c,C_word *av){
14970 C_word tmp;
14971 C_word t0=av[0];
14972 C_word t1=av[1];
14973 C_word t2=av[2];
14974 C_word t3;
14975 C_word t4;
14976 C_word *a;
14977 if(c!=3) C_bad_argc_2(c,3,t0);
14978 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
14979 C_save_and_reclaim((void *)f_6670,c,av);}
14980 a=C_alloc(3);
14981 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6676,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp);
14982 t4=t1;{
14983 C_word *av2=av;
14984 av2[0]=t4;
14985 av2[1]=(
14986   f_6676(t2)
14987 );
14988 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14989 
14990 /* loop in ##sys#extended-lambda-list? in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6676(C_word t1)14991 static C_word C_fcall f_6676(C_word t1){
14992 C_word tmp;
14993 C_word t2;
14994 C_word t3;
14995 C_word t4;
14996 C_word t5;
14997 C_word t6;
14998 C_word t7;
14999 C_stack_overflow_check;
15000 loop:{}
15001 if(C_truep(C_i_pairp(t1))){
15002 t2=C_slot(t1,C_fix(0));
15003 t3=C_eqp(t2,lf[65]);
15004 if(C_truep(t3)){
15005 if(C_truep(t3)){
15006 return(C_SCHEME_TRUE);}
15007 else{
15008 t7=C_u_i_cdr(t1);
15009 t1=t7;
15010 goto loop;}}
15011 else{
15012 t4=C_eqp(t2,lf[66]);
15013 if(C_truep(t4)){
15014 if(C_truep(t4)){
15015 return(C_SCHEME_TRUE);}
15016 else{
15017 t7=C_u_i_cdr(t1);
15018 t1=t7;
15019 goto loop;}}
15020 else{
15021 t5=C_eqp(t2,lf[67]);
15022 if(C_truep(t5)){
15023 return(C_SCHEME_TRUE);}
15024 else{
15025 t7=C_u_i_cdr(t1);
15026 t1=t7;
15027 goto loop;}}}}
15028 else{
15029 return(C_SCHEME_FALSE);}}
15030 
15031 /* ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6717(C_word c,C_word * av)15032 static void C_ccall f_6717(C_word c,C_word *av){
15033 C_word tmp;
15034 C_word t0=av[0];
15035 C_word t1=av[1];
15036 C_word t2=av[2];
15037 C_word t3=av[3];
15038 C_word t4=av[4];
15039 C_word t5=av[5];
15040 C_word t6;
15041 C_word t7;
15042 C_word t8;
15043 C_word t9;
15044 C_word t10;
15045 C_word t11;
15046 C_word t12;
15047 C_word *a;
15048 if(c!=6) C_bad_argc_2(c,6,t0);
15049 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
15050 C_save_and_reclaim((void *)f_6717,c,av);}
15051 a=C_alloc(18);
15052 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6720,a[2]=t4,a[3]=t2,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp);
15053 t7=C_SCHEME_FALSE;
15054 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
15055 t9=C_SCHEME_FALSE;
15056 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
15057 t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6737,a[2]=t8,a[3]=t10,a[4]=t3,a[5]=t6,a[6]=t5,a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp);
15058 /* expand.scm:336: macro-alias */
15059 f_5575(t11,lf[89],*((C_word*)lf[90]+1));}
15060 
15061 /* err in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6720(C_word t0,C_word t1,C_word t2)15062 static void C_fcall f_6720(C_word t0,C_word t1,C_word t2){
15063 C_word tmp;
15064 C_word t3;
15065 C_word *a;
15066 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
15067 C_save_and_reclaim_args((void *)trf_6720,3,t0,t1,t2);}
15068 /* expand.scm:331: errh */
15069 t3=((C_word*)t0)[2];{
15070 C_word av2[4];
15071 av2[0]=t3;
15072 av2[1]=t1;
15073 av2[2]=t2;
15074 av2[3]=((C_word*)t0)[3];
15075 ((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
15076 
15077 /* k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6737(C_word c,C_word * av)15078 static void C_ccall f_6737(C_word c,C_word *av){
15079 C_word tmp;
15080 C_word t0=av[0];
15081 C_word t1=av[1];
15082 C_word t2;
15083 C_word t3;
15084 C_word *a;
15085 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
15086 C_save_and_reclaim((void *)f_6737,c,av);}
15087 a=C_alloc(10);
15088 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6740,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,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);
15089 /* expand.scm:338: macro-alias */
15090 f_5575(t2,lf[88],*((C_word*)lf[25]+1));}
15091 
15092 /* k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6740(C_word c,C_word * av)15093 static void C_ccall f_6740(C_word c,C_word *av){
15094 C_word tmp;
15095 C_word t0=av[0];
15096 C_word t1=av[1];
15097 C_word t2;
15098 C_word t3;
15099 C_word *a;
15100 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
15101 C_save_and_reclaim((void *)f_6740,c,av);}
15102 a=C_alloc(11);
15103 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6743,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
15104 /* expand.scm:339: macro-alias */
15105 f_5575(t2,lf[87],*((C_word*)lf[25]+1));}
15106 
15107 /* k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6743(C_word c,C_word * av)15108 static void C_ccall f_6743(C_word c,C_word *av){
15109 C_word tmp;
15110 C_word t0=av[0];
15111 C_word t1=av[1];
15112 C_word t2;
15113 C_word t3;
15114 C_word t4;
15115 C_word t5;
15116 C_word *a;
15117 if(C_unlikely(!C_demand(C_calculate_demand(14,c,7)))){
15118 C_save_and_reclaim((void *)f_6743,c,av);}
15119 a=C_alloc(14);
15120 t2=C_SCHEME_UNDEFINED;
15121 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
15122 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6748,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=((C_word*)t0)[8],a[11]=((C_word)li44),tmp=(C_word)a,a+=12,tmp));
15123 t5=((C_word*)t3)[1];
15124 f_6748(t5,((C_word*)t0)[9],C_fix(0),C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[10]);}
15125 
15126 /* loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6748(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6)15127 static void C_fcall f_6748(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
15128 C_word tmp;
15129 C_word t7;
15130 C_word t8;
15131 C_word t9;
15132 C_word t10;
15133 C_word t11;
15134 C_word t12;
15135 C_word t13;
15136 C_word t14;
15137 C_word t15;
15138 C_word t16;
15139 C_word t17;
15140 C_word *a;
15141 loop:
15142 if(C_unlikely(!C_demand(C_calculate_demand(15,0,6)))){
15143 C_save_and_reclaim_args((void *)trf_6748,7,t0,t1,t2,t3,t4,t5,t6);}
15144 a=C_alloc(15);
15145 if(C_truep(C_i_nullp(t6))){
15146 t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6762,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=t5,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp);
15147 if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
15148 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7010,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
15149 /* expand.scm:348: reverse */
15150 t9=*((C_word*)lf[70]+1);{
15151 C_word av2[3];
15152 av2[0]=t9;
15153 av2[1]=t8;
15154 av2[2]=t3;
15155 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
15156 else{
15157 /* expand.scm:348: reverse */
15158 t8=*((C_word*)lf[70]+1);{
15159 C_word av2[3];
15160 av2[0]=t8;
15161 av2[1]=t7;
15162 av2[2]=t3;
15163 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
15164 else{
15165 if(C_truep(C_i_symbolp(t6))){
15166 if(C_truep(C_fixnum_greaterp(t2,C_fix(2)))){
15167 /* expand.scm:376: err */
15168 t7=((C_word*)t0)[8];
15169 f_6720(t7,t1,lf[76]);}
15170 else{
15171 if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
15172 t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6);
15173 /* expand.scm:380: loop */
15174 t12=t1;
15175 t13=C_fix(4);
15176 t14=t3;
15177 t15=t4;
15178 t16=C_SCHEME_END_OF_LIST;
15179 t17=C_SCHEME_END_OF_LIST;
15180 t1=t12;
15181 t2=t13;
15182 t3=t14;
15183 t4=t15;
15184 t5=t16;
15185 t6=t17;
15186 goto loop;}
15187 else{
15188 t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6);
15189 t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6);
15190 /* expand.scm:380: loop */
15191 t12=t1;
15192 t13=C_fix(4);
15193 t14=t3;
15194 t15=t4;
15195 t16=C_SCHEME_END_OF_LIST;
15196 t17=C_SCHEME_END_OF_LIST;
15197 t1=t12;
15198 t2=t13;
15199 t3=t14;
15200 t4=t15;
15201 t5=t16;
15202 t6=t17;
15203 goto loop;}}}
15204 else{
15205 t7=C_i_pairp(t6);
15206 if(C_truep(C_i_not(t7))){
15207 /* expand.scm:382: err */
15208 t8=((C_word*)t0)[8];
15209 f_6720(t8,t1,lf[77]);}
15210 else{
15211 t8=C_i_car(t6);
15212 t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7051,a[2]=t8,a[3]=t6,a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=t1,a[7]=t3,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[4],a[12]=t4,a[13]=t5,tmp=(C_word)a,a+=14,tmp);
15213 if(C_truep(C_i_symbolp(t8))){
15214 t10=C_eqp(C_fix(3),t2);
15215 /* expand.scm:385: lookup */
15216 t11=t9;
15217 f_7051(t11,(C_truep(C_i_not(t10))?(
15218 /* expand.scm:385: lookup */
15219   f_5558(t8,((C_word*)t0)[10])
15220 ):C_SCHEME_FALSE));}
15221 else{
15222 t10=t9;
15223 f_7051(t10,C_SCHEME_FALSE);}}}}}
15224 
15225 /* k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6762(C_word c,C_word * av)15226 static void C_ccall f_6762(C_word c,C_word *av){
15227 C_word tmp;
15228 C_word t0=av[0];
15229 C_word t1=av[1];
15230 C_word t2;
15231 C_word t3;
15232 C_word t4;
15233 C_word t5;
15234 C_word t6;
15235 C_word t7;
15236 C_word t8;
15237 C_word t9;
15238 C_word *a;
15239 if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){
15240 C_save_and_reclaim((void *)f_6762,c,av);}
15241 a=C_alloc(28);
15242 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6766,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
15243 if(C_truep(C_i_nullp(((C_word*)t0)[7]))){
15244 t3=t2;
15245 f_6766(t3,((C_word*)t0)[9]);}
15246 else{
15247 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
15248 t4=t3;
15249 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
15250 t6=((C_word*)t5)[1];
15251 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6906,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp);
15252 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6966,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=t5,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
15253 /* expand.scm:360: reverse */
15254 t9=*((C_word*)lf[70]+1);{
15255 C_word *av2;
15256 if(c >= 3) {
15257   av2=av;
15258 } else {
15259   av2=C_alloc(3);
15260 }
15261 av2[0]=t9;
15262 av2[1]=t8;
15263 av2[2]=((C_word*)t0)[7];
15264 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}
15265 
15266 /* k6764 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6766(C_word t0,C_word t1)15267 static void C_fcall f_6766(C_word t0,C_word t1){
15268 C_word tmp;
15269 C_word t2;
15270 C_word t3;
15271 C_word t4;
15272 C_word *a;
15273 if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
15274 C_save_and_reclaim_args((void *)trf_6766,2,t0,t1);}
15275 a=C_alloc(11);
15276 if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
15277 /* expand.scm:347: scheme#values */{
15278 C_word av2[4];
15279 av2[0]=0;
15280 av2[1]=((C_word*)t0)[3];
15281 av2[2]=((C_word*)t0)[4];
15282 av2[3]=t1;
15283 C_values(4,av2);}}
15284 else{
15285 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
15286 if(C_truep(C_i_not(((C_word*)((C_word*)t0)[7])[1]))){
15287 t3=C_i_nullp(((C_word*)t0)[8]);
15288 t4=t2;
15289 f_6778(t4,(C_truep(t3)?C_i_nullp(C_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE));}
15290 else{
15291 t3=t2;
15292 f_6778(t3,C_SCHEME_FALSE);}}}
15293 
15294 /* k6776 in k6764 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6778(C_word t0,C_word t1)15295 static void C_fcall f_6778(C_word t0,C_word t1){
15296 C_word tmp;
15297 C_word t2;
15298 C_word t3;
15299 C_word t4;
15300 C_word t5;
15301 C_word t6;
15302 C_word *a;
15303 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
15304 C_save_and_reclaim_args((void *)trf_6778,2,t0,t1);}
15305 a=C_alloc(12);
15306 if(C_truep(t1)){
15307 t2=C_i_caar(((C_word*)t0)[2]);
15308 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6809,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
15309 /* expand.scm:365: scheme#cadar */
15310 t4=*((C_word*)lf[69]+1);{
15311 C_word av2[3];
15312 av2[0]=t4;
15313 av2[1]=t3;
15314 av2[2]=((C_word*)t0)[2];
15315 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
15316 else{
15317 t2=C_i_not(((C_word*)((C_word*)t0)[8])[1]);
15318 t3=(C_truep(t2)?C_i_nullp(((C_word*)t0)[9]):C_SCHEME_FALSE);
15319 if(C_truep(t3)){
15320 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6834,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
15321 /* expand.scm:369: reverse */
15322 t5=*((C_word*)lf[70]+1);{
15323 C_word av2[3];
15324 av2[0]=t5;
15325 av2[1]=t4;
15326 av2[2]=((C_word*)t0)[2];
15327 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
15328 else{
15329 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6853,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
15330 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6857,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
15331 /* expand.scm:372: reverse */
15332 t6=*((C_word*)lf[70]+1);{
15333 C_word av2[3];
15334 av2[0]=t6;
15335 av2[1]=t5;
15336 av2[2]=((C_word*)t0)[2];
15337 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}
15338 
15339 /* k6807 in k6776 in k6764 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6809(C_word c,C_word * av)15340 static void C_ccall f_6809(C_word c,C_word *av){
15341 C_word tmp;
15342 C_word t0=av[0];
15343 C_word t1=av[1];
15344 C_word t2;
15345 C_word t3;
15346 C_word t4;
15347 C_word t5;
15348 C_word t6;
15349 C_word t7;
15350 C_word t8;
15351 C_word *a;
15352 if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
15353 C_save_and_reclaim((void *)f_6809,c,av);}
15354 a=C_alloc(27);
15355 t2=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);
15356 t3=C_a_i_list(&a,2,((C_word*)t0)[4],t2);
15357 t4=C_a_i_list(&a,1,t3);
15358 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]);
15359 t6=C_a_i_cons(&a,2,lf[52],t5);
15360 t7=C_a_i_list(&a,1,t6);
15361 /* expand.scm:347: scheme#values */{
15362 C_word *av2;
15363 if(c >= 4) {
15364   av2=av;
15365 } else {
15366   av2=C_alloc(4);
15367 }
15368 av2[0]=0;
15369 av2[1]=((C_word*)t0)[6];
15370 av2[2]=((C_word*)t0)[7];
15371 av2[3]=t7;
15372 C_values(4,av2);}}
15373 
15374 /* k6832 in k6776 in k6764 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6834(C_word c,C_word * av)15375 static void C_ccall f_6834(C_word c,C_word *av){
15376 C_word tmp;
15377 C_word t0=av[0];
15378 C_word t1=av[1];
15379 C_word t2;
15380 C_word t3;
15381 C_word t4;
15382 C_word t5;
15383 C_word t6;
15384 C_word *a;
15385 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
15386 C_save_and_reclaim((void *)f_6834,c,av);}
15387 a=C_alloc(12);
15388 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
15389 t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
15390 t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
15391 t5=C_a_i_list(&a,1,t4);
15392 /* expand.scm:347: scheme#values */{
15393 C_word *av2;
15394 if(c >= 4) {
15395   av2=av;
15396 } else {
15397   av2=C_alloc(4);
15398 }
15399 av2[0]=0;
15400 av2[1]=((C_word*)t0)[5];
15401 av2[2]=((C_word*)t0)[6];
15402 av2[3]=t5;
15403 C_values(4,av2);}}
15404 
15405 /* k6851 in k6776 in k6764 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6853(C_word c,C_word * av)15406 static void C_ccall f_6853(C_word c,C_word *av){
15407 C_word tmp;
15408 C_word t0=av[0];
15409 C_word t1=av[1];
15410 C_word t2;
15411 C_word t3;
15412 C_word t4;
15413 C_word t5;
15414 C_word t6;
15415 C_word *a;
15416 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
15417 C_save_and_reclaim((void *)f_6853,c,av);}
15418 a=C_alloc(12);
15419 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
15420 t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2);
15421 t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
15422 t5=C_a_i_list(&a,1,t4);
15423 /* expand.scm:347: scheme#values */{
15424 C_word *av2;
15425 if(c >= 4) {
15426   av2=av;
15427 } else {
15428   av2=C_alloc(4);
15429 }
15430 av2[0]=0;
15431 av2[1]=((C_word*)t0)[5];
15432 av2[2]=((C_word*)t0)[6];
15433 av2[3]=t5;
15434 C_values(4,av2);}}
15435 
15436 /* k6855 in k6776 in k6764 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6857(C_word c,C_word * av)15437 static void C_ccall f_6857(C_word c,C_word *av){
15438 C_word tmp;
15439 C_word t0=av[0];
15440 C_word t1=av[1];
15441 C_word t2;
15442 C_word t3;
15443 C_word t4;
15444 C_word t5;
15445 C_word *a;
15446 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
15447 C_save_and_reclaim((void *)f_6857,c,av);}
15448 a=C_alloc(3);
15449 t2=((C_word*)((C_word*)t0)[2])[1];
15450 if(C_truep(t2)){
15451 t3=C_a_i_list1(&a,1,t2);
15452 /* expand.scm:372: ##sys#append */
15453 t4=*((C_word*)lf[71]+1);{
15454 C_word *av2;
15455 if(c >= 4) {
15456   av2=av;
15457 } else {
15458   av2=C_alloc(4);
15459 }
15460 av2[0]=t4;
15461 av2[1]=((C_word*)t0)[3];
15462 av2[2]=t1;
15463 av2[3]=t3;
15464 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
15465 else{
15466 t3=((C_word*)((C_word*)t0)[4])[1];
15467 t4=C_a_i_list1(&a,1,t3);
15468 /* expand.scm:372: ##sys#append */
15469 t5=*((C_word*)lf[71]+1);{
15470 C_word *av2;
15471 if(c >= 4) {
15472   av2=av;
15473 } else {
15474   av2=C_alloc(4);
15475 }
15476 av2[0]=t5;
15477 av2[1]=((C_word*)t0)[3];
15478 av2[2]=t1;
15479 av2[3]=t4;
15480 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
15481 
15482 /* g1307 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6906(C_word t0,C_word t1,C_word t2)15483 static void C_fcall f_6906(C_word t0,C_word t1,C_word t2){
15484 C_word tmp;
15485 C_word t3;
15486 C_word t4;
15487 C_word t5;
15488 C_word t6;
15489 C_word *a;
15490 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
15491 C_save_and_reclaim_args((void *)trf_6906,3,t0,t1,t2);}
15492 a=C_alloc(10);
15493 t3=C_i_car(t2);
15494 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
15495 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6963,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
15496 /* expand.scm:356: chicken.syntax#strip-syntax */
15497 t6=*((C_word*)lf[12]+1);{
15498 C_word av2[3];
15499 av2[0]=t6;
15500 av2[1]=t5;
15501 av2[2]=t3;
15502 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
15503 
15504 /* k6957 in g1307 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6959(C_word c,C_word * av)15505 static void C_ccall f_6959(C_word c,C_word *av){
15506 C_word tmp;
15507 C_word t0=av[0];
15508 C_word t1=av[1];
15509 C_word t2;
15510 C_word t3;
15511 C_word t4;
15512 C_word t5;
15513 C_word t6;
15514 C_word t7;
15515 C_word t8;
15516 C_word t9;
15517 C_word t10;
15518 C_word t11;
15519 C_word t12;
15520 C_word *a;
15521 if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){
15522 C_save_and_reclaim((void *)f_6959,c,av);}
15523 a=C_alloc(30);
15524 t2=C_a_i_list(&a,2,lf[72],t1);
15525 t3=((C_word*)((C_word*)t0)[2])[1];
15526 t4=(C_truep(t3)?t3:((C_word*)((C_word*)t0)[3])[1]);
15527 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){
15528 t5=C_u_i_cdr(((C_word*)t0)[4]);
15529 t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5);
15530 t7=C_a_i_cons(&a,2,lf[73],t6);
15531 t8=C_a_i_list(&a,1,t7);
15532 t9=C_a_i_cons(&a,2,t4,t8);
15533 t10=C_a_i_cons(&a,2,t2,t9);
15534 t11=C_a_i_cons(&a,2,lf[74],t10);
15535 t12=((C_word*)t0)[5];{
15536 C_word *av2=av;
15537 av2[0]=t12;
15538 av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t11);
15539 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
15540 else{
15541 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
15542 t6=C_a_i_cons(&a,2,t2,t5);
15543 t7=C_a_i_cons(&a,2,lf[74],t6);
15544 t8=((C_word*)t0)[5];{
15545 C_word *av2=av;
15546 av2[0]=t8;
15547 av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t7);
15548 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
15549 
15550 /* k6961 in g1307 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6963(C_word c,C_word * av)15551 static void C_ccall f_6963(C_word c,C_word *av){
15552 C_word tmp;
15553 C_word t0=av[0];
15554 C_word t1=av[1];
15555 C_word t2;
15556 C_word *a;
15557 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
15558 C_save_and_reclaim((void *)f_6963,c,av);}
15559 /* expand.scm:332: chicken.keyword#string->keyword */
15560 t2=*((C_word*)lf[75]+1);{
15561 C_word *av2;
15562 if(c >= 3) {
15563   av2=av;
15564 } else {
15565   av2=C_alloc(3);
15566 }
15567 av2[0]=t2;
15568 av2[1]=((C_word*)t0)[2];
15569 av2[2]=C_slot(t1,C_fix(1));
15570 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
15571 
15572 /* k6964 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6966(C_word c,C_word * av)15573 static void C_ccall f_6966(C_word c,C_word *av){
15574 C_word tmp;
15575 C_word t0=av[0];
15576 C_word t1=av[1];
15577 C_word t2;
15578 C_word t3;
15579 C_word t4;
15580 C_word t5;
15581 C_word t6;
15582 C_word *a;
15583 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
15584 C_save_and_reclaim((void *)f_6966,c,av);}
15585 a=C_alloc(14);
15586 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6969,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
15587 t3=C_SCHEME_UNDEFINED;
15588 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
15589 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6971,a[2]=((C_word*)t0)[5],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li43),tmp=(C_word)a,a+=7,tmp));
15590 t6=((C_word*)t4)[1];
15591 f_6971(t6,t2,t1);}
15592 
15593 /* k6967 in k6964 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6969(C_word c,C_word * av)15594 static void C_ccall f_6969(C_word c,C_word *av){
15595 C_word tmp;
15596 C_word t0=av[0];
15597 C_word t1=av[1];
15598 C_word t2;
15599 C_word t3;
15600 C_word t4;
15601 C_word *a;
15602 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
15603 C_save_and_reclaim((void *)f_6969,c,av);}
15604 a=C_alloc(9);
15605 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
15606 t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
15607 t4=((C_word*)t0)[4];
15608 f_6766(t4,C_a_i_list(&a,1,t3));}
15609 
15610 /* map-loop1301 in k6964 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6971(C_word t0,C_word t1,C_word t2)15611 static void C_fcall f_6971(C_word t0,C_word t1,C_word t2){
15612 C_word tmp;
15613 C_word t3;
15614 C_word t4;
15615 C_word *a;
15616 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
15617 C_save_and_reclaim_args((void *)trf_6971,3,t0,t1,t2);}
15618 a=C_alloc(6);
15619 if(C_truep(C_i_pairp(t2))){
15620 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
15621 /* expand.scm:353: g1307 */
15622 t4=((C_word*)t0)[4];
15623 f_6906(t4,t3,C_slot(t2,C_fix(0)));}
15624 else{
15625 t3=t1;{
15626 C_word av2[2];
15627 av2[0]=t3;
15628 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
15629 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
15630 
15631 /* k6994 in map-loop1301 in k6964 in k6760 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_6996(C_word c,C_word * av)15632 static void C_ccall f_6996(C_word c,C_word *av){
15633 C_word tmp;
15634 C_word t0=av[0];
15635 C_word t1=av[1];
15636 C_word t2;
15637 C_word t3;
15638 C_word t4;
15639 C_word t5;
15640 C_word *a;
15641 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
15642 C_save_and_reclaim((void *)f_6996,c,av);}
15643 a=C_alloc(3);
15644 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
15645 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
15646 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
15647 t5=((C_word*)((C_word*)t0)[3])[1];
15648 f_6971(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
15649 
15650 /* k7008 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7010(C_word c,C_word * av)15651 static void C_ccall f_7010(C_word c,C_word *av){
15652 C_word tmp;
15653 C_word t0=av[0];
15654 C_word t1=av[1];
15655 C_word t2;
15656 C_word *a;
15657 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
15658 C_save_and_reclaim((void *)f_7010,c,av);}
15659 /* expand.scm:348: ##sys#append */
15660 t2=*((C_word*)lf[71]+1);{
15661 C_word *av2;
15662 if(c >= 4) {
15663   av2=av;
15664 } else {
15665   av2=C_alloc(4);
15666 }
15667 av2[0]=t2;
15668 av2[1]=((C_word*)t0)[2];
15669 av2[2]=t1;
15670 av2[3]=((C_word*)((C_word*)t0)[3])[1];
15671 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
15672 
15673 /* k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7051(C_word t0,C_word t1)15674 static void C_fcall f_7051(C_word t0,C_word t1){
15675 C_word tmp;
15676 C_word t2;
15677 C_word t3;
15678 C_word t4;
15679 C_word t5;
15680 C_word t6;
15681 C_word t7;
15682 C_word t8;
15683 C_word t9;
15684 C_word t10;
15685 C_word t11;
15686 C_word t12;
15687 C_word *a;
15688 if(C_unlikely(!C_demand(C_calculate_demand(13,0,6)))){
15689 C_save_and_reclaim_args((void *)trf_7051,2,t0,t1);}
15690 a=C_alloc(13);
15691 t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
15692 t3=C_u_i_cdr(((C_word*)t0)[3]);
15693 t4=C_eqp(t2,lf[66]);
15694 if(C_truep(t4)){
15695 t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7064,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t3,a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
15696 if(C_truep(((C_word*)((C_word*)t0)[9])[1])){
15697 t6=t5;
15698 f_7064(t6,C_SCHEME_UNDEFINED);}
15699 else{
15700 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7080,a[2]=((C_word*)t0)[9],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
15701 /* expand.scm:389: macro-alias */
15702 f_5575(t6,lf[79],((C_word*)t0)[10]);}}
15703 else{
15704 t5=C_eqp(t2,lf[65]);
15705 if(C_truep(t5)){
15706 if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],C_fix(1)))){
15707 t6=C_i_pairp(t3);
15708 t7=(C_truep(t6)?C_i_symbolp(C_u_i_car(t3)):C_SCHEME_FALSE);
15709 if(C_truep(t7)){
15710 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7101,a[2]=t3,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[12],tmp=(C_word)a,a+=8,tmp);
15711 if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
15712 t9=C_i_car(t3);
15713 t10=C_mutate(((C_word *)((C_word*)t0)[9])+1,t9);
15714 t11=t8;
15715 f_7101(t11,t10);}
15716 else{
15717 t9=t8;
15718 f_7101(t9,C_SCHEME_UNDEFINED);}}
15719 else{
15720 /* expand.scm:400: err */
15721 t8=((C_word*)t0)[8];
15722 f_6720(t8,((C_word*)t0)[6],lf[80]);}}
15723 else{
15724 /* expand.scm:401: err */
15725 t6=((C_word*)t0)[8];
15726 f_6720(t6,((C_word*)t0)[6],lf[81]);}}
15727 else{
15728 t6=C_eqp(t2,lf[67]);
15729 if(C_truep(t6)){
15730 t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7140,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[12],a[7]=t3,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
15731 if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){
15732 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7159,a[2]=((C_word*)t0)[9],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
15733 /* expand.scm:403: macro-alias */
15734 f_5575(t8,lf[79],((C_word*)t0)[10]);}
15735 else{
15736 t8=t7;
15737 f_7140(t8,C_SCHEME_UNDEFINED);}}
15738 else{
15739 if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){
15740 switch(((C_word*)t0)[4]){
15741 case C_fix(0):
15742 t7=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]);
15743 /* expand.scm:410: loop */
15744 t8=((C_word*)((C_word*)t0)[5])[1];
15745 f_6748(t8,((C_word*)t0)[6],C_fix(0),t7,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t3);
15746 case C_fix(1):
15747 t7=C_a_i_list2(&a,2,((C_word*)t0)[2],C_SCHEME_FALSE);
15748 t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[12]);
15749 /* expand.scm:411: loop */
15750 t9=((C_word*)((C_word*)t0)[5])[1];
15751 f_6748(t9,((C_word*)t0)[6],C_fix(1),((C_word*)t0)[7],t8,C_SCHEME_END_OF_LIST,t3);
15752 case C_fix(2):
15753 /* expand.scm:412: err */
15754 t7=((C_word*)t0)[8];
15755 f_6720(t7,((C_word*)t0)[6],lf[83]);
15756 default:
15757 t7=C_a_i_list1(&a,1,((C_word*)t0)[2]);
15758 t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[13]);
15759 /* expand.scm:413: loop */
15760 t9=((C_word*)((C_word*)t0)[5])[1];
15761 f_6748(t9,((C_word*)t0)[6],C_fix(3),((C_word*)t0)[7],((C_word*)t0)[12],t8,t3);}}
15762 else{
15763 t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7227,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp);
15764 if(C_truep(C_i_listp(((C_word*)t0)[2]))){
15765 t8=C_eqp(C_fix(2),C_u_i_length(((C_word*)t0)[2]));
15766 t9=t7;
15767 f_7227(t9,(C_truep(t8)?C_i_symbolp(C_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE));}
15768 else{
15769 t8=t7;
15770 f_7227(t8,C_SCHEME_FALSE);}}}}}}
15771 
15772 /* k7062 in k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7064(C_word t0,C_word t1)15773 static void C_fcall f_7064(C_word t0,C_word t1){
15774 C_word tmp;
15775 C_word t2;
15776 C_word t3;
15777 C_word *a;
15778 if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
15779 C_save_and_reclaim_args((void *)trf_7064,2,t0,t1);}
15780 t2=C_eqp(((C_word*)t0)[2],C_fix(0));
15781 if(C_truep(t2)){
15782 /* expand.scm:391: loop */
15783 t3=((C_word*)((C_word*)t0)[3])[1];
15784 f_6748(t3,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]);}
15785 else{
15786 /* expand.scm:392: err */
15787 t3=((C_word*)t0)[7];
15788 f_6720(t3,((C_word*)t0)[4],lf[78]);}}
15789 
15790 /* k7078 in k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7080(C_word c,C_word * av)15791 static void C_ccall f_7080(C_word c,C_word *av){
15792 C_word tmp;
15793 C_word t0=av[0];
15794 C_word t1=av[1];
15795 C_word t2;
15796 C_word t3;
15797 C_word *a;
15798 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15799 C_save_and_reclaim((void *)f_7080,c,av);}
15800 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
15801 t3=((C_word*)t0)[3];
15802 f_7064(t3,t2);}
15803 
15804 /* k7099 in k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7101(C_word t0,C_word t1)15805 static void C_fcall f_7101(C_word t0,C_word t1){
15806 C_word tmp;
15807 C_word t2;
15808 C_word t3;
15809 C_word t4;
15810 C_word *a;
15811 if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
15812 C_save_and_reclaim_args((void *)trf_7101,2,t0,t1);}
15813 t2=C_i_car(((C_word*)t0)[2]);
15814 t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
15815 /* expand.scm:399: loop */
15816 t4=((C_word*)((C_word*)t0)[4])[1];
15817 f_6748(t4,((C_word*)t0)[5],C_fix(2),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_u_i_cdr(((C_word*)t0)[2]));}
15818 
15819 /* k7138 in k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7140(C_word t0,C_word t1)15820 static void C_fcall f_7140(C_word t0,C_word t1){
15821 C_word tmp;
15822 C_word t2;
15823 C_word *a;
15824 if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
15825 C_save_and_reclaim_args((void *)trf_7140,2,t0,t1);}
15826 if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(2)))){
15827 /* expand.scm:405: loop */
15828 t2=((C_word*)((C_word*)t0)[3])[1];
15829 f_6748(t2,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,((C_word*)t0)[7]);}
15830 else{
15831 /* expand.scm:406: err */
15832 t2=((C_word*)t0)[8];
15833 f_6720(t2,((C_word*)t0)[4],lf[82]);}}
15834 
15835 /* k7157 in k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7159(C_word c,C_word * av)15836 static void C_ccall f_7159(C_word c,C_word *av){
15837 C_word tmp;
15838 C_word t0=av[0];
15839 C_word t1=av[1];
15840 C_word t2;
15841 C_word t3;
15842 C_word *a;
15843 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
15844 C_save_and_reclaim((void *)f_7159,c,av);}
15845 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
15846 t3=((C_word*)t0)[3];
15847 f_7140(t3,t2);}
15848 
15849 /* k7225 in k7049 in loop in k6741 in k6738 in k6735 in ##sys#expand-extended-lambda-list in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7227(C_word t0,C_word t1)15850 static void C_fcall f_7227(C_word t0,C_word t1){
15851 C_word tmp;
15852 C_word t2;
15853 C_word t3;
15854 C_word t4;
15855 C_word *a;
15856 if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
15857 C_save_and_reclaim_args((void *)trf_7227,2,t0,t1);}
15858 a=C_alloc(3);
15859 if(C_truep(t1)){
15860 switch(((C_word*)t0)[2]){
15861 case C_fix(0):
15862 /* expand.scm:416: err */
15863 t2=((C_word*)t0)[3];
15864 f_6720(t2,((C_word*)t0)[4],lf[84]);
15865 case C_fix(1):
15866 t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]);
15867 /* expand.scm:417: loop */
15868 t3=((C_word*)((C_word*)t0)[7])[1];
15869 f_6748(t3,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[8],t2,C_SCHEME_END_OF_LIST,((C_word*)t0)[9]);
15870 case C_fix(2):
15871 /* expand.scm:418: err */
15872 t2=((C_word*)t0)[3];
15873 f_6720(t2,((C_word*)t0)[4],lf[85]);
15874 default:
15875 t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[10]);
15876 /* expand.scm:419: loop */
15877 t3=((C_word*)((C_word*)t0)[7])[1];
15878 f_6748(t3,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[8],((C_word*)t0)[6],t2,((C_word*)t0)[9]);}}
15879 else{
15880 /* expand.scm:420: err */
15881 t2=((C_word*)t0)[3];
15882 f_6720(t2,((C_word*)t0)[4],lf[86]);}}
15883 
15884 /* ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7326(C_word c,C_word * av)15885 static void C_ccall f_7326(C_word c,C_word *av){
15886 C_word tmp;
15887 C_word t0=av[0];
15888 C_word t1=av[1];
15889 C_word t2=av[2];
15890 C_word t3=av[3];
15891 C_word t4;
15892 C_word t5;
15893 C_word *a;
15894 if(c!=4) C_bad_argc_2(c,4,t0);
15895 if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
15896 C_save_and_reclaim((void *)f_7326,c,av);}
15897 a=C_alloc(5);
15898 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7332,a[2]=t3,a[3]=t2,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp);
15899 /* expand.scm:438: ##sys#decompose-lambda-list */
15900 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1));
15901 C_word *av2=av;
15902 av2[0]=*((C_word*)lf[95]+1);
15903 av2[1]=t1;
15904 av2[2]=t2;
15905 av2[3]=t4;
15906 tp(4,av2);}}
15907 
15908 /* a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7332(C_word c,C_word * av)15909 static void C_ccall f_7332(C_word c,C_word *av){
15910 C_word tmp;
15911 C_word t0=av[0];
15912 C_word t1=av[1];
15913 C_word t2=av[2];
15914 C_word t3=av[3];
15915 C_word t4=av[4];
15916 C_word t5;
15917 C_word t6;
15918 C_word t7;
15919 C_word t8;
15920 C_word t9;
15921 C_word t10;
15922 C_word t11;
15923 C_word t12;
15924 C_word t13;
15925 C_word t14;
15926 C_word *a;
15927 if(c!=5) C_bad_argc_2(c,5,t0);
15928 if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
15929 C_save_and_reclaim((void *)f_7332,c,av);}
15930 a=C_alloc(20);
15931 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7336,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,tmp=(C_word)a,a+=7,tmp);
15932 if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
15933 t6=t5;{
15934 C_word *av2=av;
15935 av2[0]=t6;
15936 av2[1]=C_SCHEME_END_OF_LIST;
15937 f_7336(2,av2);}}
15938 else{
15939 t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
15940 t7=t6;
15941 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
15942 t9=((C_word*)t8)[1];
15943 t10=C_i_check_list_2(((C_word*)t0)[3],lf[17]);
15944 t11=C_SCHEME_UNDEFINED;
15945 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
15946 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7468,a[2]=t8,a[3]=t12,a[4]=t9,a[5]=((C_word)li47),tmp=(C_word)a,a+=6,tmp));
15947 t14=((C_word*)t12)[1];
15948 f_7468(t14,t5,((C_word*)t0)[3]);}}
15949 
15950 /* k7334 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7336(C_word c,C_word * av)15951 static void C_ccall f_7336(C_word c,C_word *av){
15952 C_word tmp;
15953 C_word t0=av[0];
15954 C_word t1=av[1];
15955 C_word t2;
15956 C_word t3;
15957 C_word *a;
15958 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
15959 C_save_and_reclaim((void *)f_7336,c,av);}
15960 a=C_alloc(8);
15961 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
15962 if(C_truep(C_i_not(((C_word*)t0)[6]))){
15963 t3=t2;{
15964 C_word *av2=av;
15965 av2[0]=t3;
15966 av2[1]=C_SCHEME_END_OF_LIST;
15967 f_7339(2,av2);}}
15968 else{
15969 /* expand.scm:442: chicken.base#gensym */
15970 t3=*((C_word*)lf[10]+1);{
15971 C_word *av2;
15972 if(c >= 3) {
15973   av2=av;
15974 } else {
15975   av2=C_alloc(3);
15976 }
15977 av2[0]=t3;
15978 av2[1]=t2;
15979 av2[2]=((C_word*)t0)[6];
15980 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
15981 
15982 /* k7337 in k7334 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7339(C_word c,C_word * av)15983 static void C_ccall f_7339(C_word c,C_word *av){
15984 C_word tmp;
15985 C_word t0=av[0];
15986 C_word t1=av[1];
15987 C_word t2;
15988 C_word t3;
15989 C_word t4;
15990 C_word *a;
15991 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
15992 C_save_and_reclaim((void *)f_7339,c,av);}
15993 a=C_alloc(18);
15994 t2=C_a_i_list(&a,3,lf[73],C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
15995 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7358,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
15996 /* expand.scm:446: scheme#append */
15997 t4=*((C_word*)lf[16]+1);{
15998 C_word *av2;
15999 if(c >= 4) {
16000   av2=av;
16001 } else {
16002   av2=C_alloc(4);
16003 }
16004 av2[0]=t4;
16005 av2[1]=t3;
16006 av2[2]=((C_word*)t0)[5];
16007 av2[3]=t1;
16008 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16009 
16010 /* k7356 in k7337 in k7334 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7358(C_word c,C_word * av)16011 static void C_ccall f_7358(C_word c,C_word *av){
16012 C_word tmp;
16013 C_word t0=av[0];
16014 C_word t1=av[1];
16015 C_word t2;
16016 C_word t3;
16017 C_word t4;
16018 C_word t5;
16019 C_word t6;
16020 C_word t7;
16021 C_word t8;
16022 C_word t9;
16023 C_word t10;
16024 C_word t11;
16025 C_word t12;
16026 C_word t13;
16027 C_word *a;
16028 if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){
16029 C_save_and_reclaim((void *)f_7358,c,av);}
16030 a=C_alloc(24);
16031 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7362,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
16032 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
16033 t4=t3;
16034 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
16035 t6=((C_word*)t5)[1];
16036 t7=C_i_check_list_2(((C_word*)t0)[4],lf[17]);
16037 t8=C_i_check_list_2(((C_word*)t0)[5],lf[17]);
16038 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7380,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
16039 t10=C_SCHEME_UNDEFINED;
16040 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
16041 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7402,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li46),tmp=(C_word)a,a+=6,tmp));
16042 t13=((C_word*)t11)[1];
16043 f_7402(t13,t9,((C_word*)t0)[4],((C_word*)t0)[5]);}
16044 
16045 /* k7360 in k7356 in k7337 in k7334 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7362(C_word c,C_word * av)16046 static void C_ccall f_7362(C_word c,C_word *av){
16047 C_word tmp;
16048 C_word t0=av[0];
16049 C_word t1=av[1];
16050 C_word t2;
16051 C_word t3;
16052 C_word t4;
16053 C_word *a;
16054 if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){
16055 C_save_and_reclaim((void *)f_7362,c,av);}
16056 a=C_alloc(15);
16057 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
16058 t3=C_a_i_cons(&a,2,lf[73],t2);
16059 t4=((C_word*)t0)[3];{
16060 C_word *av2=av;
16061 av2[0]=t4;
16062 av2[1]=C_a_i_list(&a,3,lf[92],((C_word*)t0)[4],t3);
16063 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
16064 
16065 /* k7378 in k7356 in k7337 in k7334 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7380(C_word c,C_word * av)16066 static void C_ccall f_7380(C_word c,C_word *av){
16067 C_word tmp;
16068 C_word t0=av[0];
16069 C_word t1=av[1];
16070 C_word t2;
16071 C_word t3;
16072 C_word t4;
16073 C_word *a;
16074 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
16075 C_save_and_reclaim((void *)f_7380,c,av);}
16076 a=C_alloc(12);
16077 if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
16078 /* expand.scm:443: ##sys#append */
16079 t2=*((C_word*)lf[71]+1);{
16080 C_word *av2;
16081 if(c >= 4) {
16082   av2=av;
16083 } else {
16084   av2=C_alloc(4);
16085 }
16086 av2[0]=t2;
16087 av2[1]=((C_word*)t0)[3];
16088 av2[2]=t1;
16089 av2[3]=lf[93];
16090 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16091 else{
16092 if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
16093 /* expand.scm:443: ##sys#append */
16094 t2=*((C_word*)lf[71]+1);{
16095 C_word *av2;
16096 if(c >= 4) {
16097   av2=av;
16098 } else {
16099   av2=C_alloc(4);
16100 }
16101 av2[0]=t2;
16102 av2[1]=((C_word*)t0)[3];
16103 av2[2]=t1;
16104 av2[3]=C_SCHEME_END_OF_LIST;
16105 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16106 else{
16107 t2=C_a_i_list(&a,3,lf[94],((C_word*)t0)[5],((C_word*)t0)[4]);
16108 t3=C_a_i_list(&a,1,t2);
16109 /* expand.scm:443: ##sys#append */
16110 t4=*((C_word*)lf[71]+1);{
16111 C_word *av2;
16112 if(c >= 4) {
16113   av2=av;
16114 } else {
16115   av2=C_alloc(4);
16116 }
16117 av2[0]=t4;
16118 av2[1]=((C_word*)t0)[3];
16119 av2[2]=t1;
16120 av2[3]=t3;
16121 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}
16122 
16123 /* map-loop1438 in k7356 in k7337 in k7334 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7402(C_word t0,C_word t1,C_word t2,C_word t3)16124 static void C_fcall f_7402(C_word t0,C_word t1,C_word t2,C_word t3){
16125 C_word tmp;
16126 C_word t4;
16127 C_word t5;
16128 C_word t6;
16129 C_word t7;
16130 C_word t8;
16131 C_word t9;
16132 C_word t10;
16133 C_word t11;
16134 C_word t12;
16135 C_word t13;
16136 C_word t14;
16137 C_word t15;
16138 C_word *a;
16139 loop:
16140 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
16141 C_save_and_reclaim_args((void *)trf_7402,4,t0,t1,t2,t3);}
16142 a=C_alloc(12);
16143 t4=C_i_pairp(t2);
16144 t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
16145 if(C_truep(t5)){
16146 t6=C_slot(t2,C_fix(0));
16147 t7=C_slot(t3,C_fix(0));
16148 t8=C_a_i_list(&a,3,lf[94],t6,t7);
16149 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
16150 t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
16151 t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
16152 t13=t1;
16153 t14=C_slot(t2,C_fix(1));
16154 t15=C_slot(t3,C_fix(1));
16155 t1=t13;
16156 t2=t14;
16157 t3=t15;
16158 goto loop;}
16159 else{
16160 t6=t1;{
16161 C_word av2[2];
16162 av2[0]=t6;
16163 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
16164 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
16165 
16166 /* map-loop1409 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7468(C_word t0,C_word t1,C_word t2)16167 static void C_fcall f_7468(C_word t0,C_word t1,C_word t2){
16168 C_word tmp;
16169 C_word t3;
16170 C_word t4;
16171 C_word *a;
16172 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
16173 C_save_and_reclaim_args((void *)trf_7468,3,t0,t1,t2);}
16174 a=C_alloc(6);
16175 if(C_truep(C_i_pairp(t2))){
16176 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
16177 /* expand.scm:441: g1415 */
16178 t4=*((C_word*)lf[10]+1);{
16179 C_word av2[3];
16180 av2[0]=t4;
16181 av2[1]=t3;
16182 av2[2]=C_slot(t2,C_fix(0));
16183 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
16184 else{
16185 t3=t1;{
16186 C_word av2[2];
16187 av2[0]=t3;
16188 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
16189 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
16190 
16191 /* k7491 in map-loop1409 in a7331 in ##sys#expand-multiple-values-assignment in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7493(C_word c,C_word * av)16192 static void C_ccall f_7493(C_word c,C_word *av){
16193 C_word tmp;
16194 C_word t0=av[0];
16195 C_word t1=av[1];
16196 C_word t2;
16197 C_word t3;
16198 C_word t4;
16199 C_word t5;
16200 C_word *a;
16201 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16202 C_save_and_reclaim((void *)f_7493,c,av);}
16203 a=C_alloc(3);
16204 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
16205 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
16206 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
16207 t5=((C_word*)((C_word*)t0)[3])[1];
16208 f_7468(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
16209 
16210 /* ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7506(C_word c,C_word * av)16211 static void C_ccall f_7506(C_word c,C_word *av){
16212 C_word tmp;
16213 C_word t0=av[0];
16214 C_word t1=av[1];
16215 C_word t2=av[2];
16216 C_word t3;
16217 C_word *a;
16218 if(c<3) C_bad_min_argc_2(c,3,t0);
16219 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
16220 C_save_and_reclaim((void*)f_7506,c,av);}
16221 a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
16222 t3=C_build_rest(&a,c,3,av);
16223 C_word t4;
16224 C_word t5;
16225 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7510,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
16226 if(C_truep(C_i_nullp(t3))){
16227 /* expand.scm:463: ##sys#current-environment */
16228 t5=*((C_word*)lf[4]+1);{
16229 C_word *av2=av;
16230 av2[0]=t5;
16231 av2[1]=t4;
16232 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
16233 else{
16234 t5=t4;{
16235 C_word *av2=av;
16236 av2[0]=t5;
16237 av2[1]=C_i_car(t3);
16238 f_7510(2,av2);}}}
16239 
16240 /* k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7510(C_word c,C_word * av)16241 static void C_ccall f_7510(C_word c,C_word *av){
16242 C_word tmp;
16243 C_word t0=av[0];
16244 C_word t1=av[1];
16245 C_word t2;
16246 C_word t3;
16247 C_word t4;
16248 C_word t5;
16249 C_word t6;
16250 C_word t7;
16251 C_word t8;
16252 C_word t9;
16253 C_word t10;
16254 C_word t11;
16255 C_word t12;
16256 C_word t13;
16257 C_word t14;
16258 C_word t15;
16259 C_word t16;
16260 C_word t17;
16261 C_word t18;
16262 C_word t19;
16263 C_word t20;
16264 C_word *a;
16265 if(C_unlikely(!C_demand(C_calculate_demand(32,c,6)))){
16266 C_save_and_reclaim((void *)f_7510,c,av);}
16267 a=C_alloc(32);
16268 t2=C_i_nullp(((C_word*)t0)[2]);
16269 t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
16270 t4=C_i_nullp(t3);
16271 t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3));
16272 t6=C_i_nullp(t3);
16273 t7=(C_truep(t6)?C_SCHEME_END_OF_LIST:C_i_cdr(t3));
16274 t8=C_SCHEME_UNDEFINED;
16275 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
16276 t10=C_SCHEME_UNDEFINED;
16277 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
16278 t12=C_SCHEME_UNDEFINED;
16279 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
16280 t14=C_SCHEME_UNDEFINED;
16281 t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
16282 t16=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7521,a[2]=t1,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp));
16283 t17=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7604,a[2]=t9,a[3]=t15,a[4]=t1,a[5]=t5,a[6]=((C_word)li57),tmp=(C_word)a,a+=7,tmp));
16284 t18=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8041,a[2]=t11,a[3]=t9,a[4]=((C_word)li60),tmp=(C_word)a,a+=5,tmp));
16285 t19=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8197,a[2]=t11,a[3]=t9,a[4]=t1,a[5]=t13,a[6]=t5,a[7]=((C_word)li63),tmp=(C_word)a,a+=8,tmp));
16286 /* expand.scm:620: expand */
16287 t20=((C_word*)t15)[1];
16288 f_8197(t20,((C_word*)t0)[3],((C_word*)t0)[4]);}
16289 
16290 /* comp in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7521(C_word t0,C_word t1,C_word t2)16291 static C_word C_fcall f_7521(C_word t0,C_word t1,C_word t2){
16292 C_word tmp;
16293 C_word t3;
16294 C_word t4;
16295 C_word t5;
16296 C_word t6;
16297 C_word t7;
16298 C_word t8;
16299 C_word t9;
16300 C_stack_overflow_check;{}
16301 t3=(
16302 /* expand.scm:465: lookup */
16303   f_5558(t2,((C_word*)t0)[2])
16304 );
16305 t4=C_eqp(t1,t3);
16306 if(C_truep(t4)){
16307 return(t4);}
16308 else{
16309 t5=C_eqp(t1,lf[101]);
16310 if(C_truep(t5)){
16311 return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[96]+1)):C_eqp(t1,t2)));}
16312 else{
16313 t6=C_eqp(t1,lf[102]);
16314 if(C_truep(t6)){
16315 return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[97]+1)):C_eqp(t1,t2)));}
16316 else{
16317 t7=C_eqp(t1,lf[103]);
16318 if(C_truep(t7)){
16319 return((C_truep(t3)?C_eqp(t3,*((C_word*)lf[98]+1)):C_eqp(t1,t2)));}
16320 else{
16321 t8=C_eqp(t1,lf[104]);
16322 return((C_truep(t8)?(C_truep(t3)?C_eqp(t3,lf[99]):C_eqp(t1,t2)):C_eqp(t1,t2)));}}}}}
16323 
16324 /* fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7604(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)16325 static void C_fcall f_7604(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
16326 C_word tmp;
16327 C_word t6;
16328 C_word t7;
16329 C_word t8;
16330 C_word t9;
16331 C_word t10;
16332 C_word t11;
16333 C_word t12;
16334 C_word t13;
16335 C_word *a;
16336 if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
16337 C_save_and_reclaim_args((void *)trf_7604,6,t0,t1,t2,t3,t4,t5);}
16338 a=C_alloc(14);
16339 t6=C_i_nullp(t2);
16340 t7=(C_truep(t6)?C_i_nullp(t4):C_SCHEME_FALSE);
16341 if(C_truep(t7)){
16342 t8=C_SCHEME_UNDEFINED;
16343 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
16344 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7616,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li52),tmp=(C_word)a,a+=8,tmp));
16345 t11=((C_word*)t9)[1];
16346 f_7616(t11,t1,t5,C_SCHEME_END_OF_LIST);}
16347 else{
16348 t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
16349 t9=t8;
16350 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
16351 t11=((C_word*)t10)[1];
16352 t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7857,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t10,a[8]=t11,tmp=(C_word)a,a+=9,tmp);
16353 /* expand.scm:528: scheme#reverse */
16354 t13=*((C_word*)lf[70]+1);{
16355 C_word av2[3];
16356 av2[0]=t13;
16357 av2[1]=t12;
16358 av2[2]=t2;
16359 ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}
16360 
16361 /* loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7616(C_word t0,C_word t1,C_word t2,C_word t3)16362 static void C_fcall f_7616(C_word t0,C_word t1,C_word t2,C_word t3){
16363 C_word tmp;
16364 C_word t4;
16365 C_word t5;
16366 C_word t6;
16367 C_word t7;
16368 C_word t8;
16369 C_word *a;
16370 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
16371 C_save_and_reclaim_args((void *)trf_7616,4,t0,t1,t2,t3);}
16372 a=C_alloc(12);
16373 t4=C_i_pairp(t2);
16374 if(C_truep(C_i_not(t4))){
16375 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7630,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
16376 /* expand.scm:480: scheme#reverse */
16377 t6=*((C_word*)lf[70]+1);{
16378 C_word av2[3];
16379 av2[0]=t6;
16380 av2[1]=t5;
16381 av2[2]=t3;
16382 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
16383 else{
16384 t5=C_SCHEME_UNDEFINED;
16385 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
16386 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7635,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word)li51),tmp=(C_word)a,a+=10,tmp));
16387 t8=((C_word*)t6)[1];
16388 f_7635(t8,t1,t2);}}
16389 
16390 /* k7628 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7630(C_word c,C_word * av)16391 static void C_ccall f_7630(C_word c,C_word *av){
16392 C_word tmp;
16393 C_word t0=av[0];
16394 C_word t1=av[1];
16395 C_word t2;
16396 C_word *a;
16397 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
16398 C_save_and_reclaim((void *)f_7630,c,av);}
16399 a=C_alloc(3);
16400 t2=((C_word*)t0)[2];{
16401 C_word *av2=av;
16402 av2[0]=t2;
16403 av2[1]=C_a_i_cons(&a,2,lf[105],t1);
16404 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
16405 
16406 /* loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7635(C_word t0,C_word t1,C_word t2)16407 static void C_fcall f_7635(C_word t0,C_word t1,C_word t2){
16408 C_word tmp;
16409 C_word t3;
16410 C_word t4;
16411 C_word t5;
16412 C_word t6;
16413 C_word t7;
16414 C_word t8;
16415 C_word t9;
16416 C_word t10;
16417 C_word t11;
16418 C_word *a;
16419 if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
16420 C_save_and_reclaim_args((void *)trf_7635,3,t0,t1,t2);}
16421 a=C_alloc(13);
16422 t3=C_i_car(t2);
16423 t4=C_u_i_cdr(t2);
16424 t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7646,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t4,a[8]=((C_word*)t0)[5],a[9]=t2,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp);
16425 if(C_truep(C_i_pairp(t3))){
16426 t6=C_u_i_car(t3);
16427 if(C_truep(C_i_symbolp(t6))){
16428 t7=(
16429 /* expand.scm:487: comp */
16430   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[101],t6)
16431 );
16432 if(C_truep(t7)){
16433 t8=t5;
16434 f_7646(t8,t7);}
16435 else{
16436 t8=(
16437 /* expand.scm:488: comp */
16438   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[103],t6)
16439 );
16440 if(C_truep(t8)){
16441 t9=t5;
16442 f_7646(t9,t8);}
16443 else{
16444 t9=(
16445 /* expand.scm:489: comp */
16446   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[102],t6)
16447 );
16448 if(C_truep(t9)){
16449 t10=t5;
16450 f_7646(t10,t9);}
16451 else{
16452 t10=(
16453 /* expand.scm:490: comp */
16454   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[105],t6)
16455 );
16456 t11=t5;
16457 f_7646(t11,(C_truep(t10)?t10:(
16458 /* expand.scm:491: comp */
16459   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[104],t6)
16460 )));}}}}
16461 else{
16462 t7=t5;
16463 f_7646(t7,C_SCHEME_FALSE);}}
16464 else{
16465 t6=t5;
16466 f_7646(t6,C_SCHEME_FALSE);}}
16467 
16468 /* k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7646(C_word t0,C_word t1)16469 static void C_fcall f_7646(C_word t0,C_word t1){
16470 C_word tmp;
16471 C_word t2;
16472 C_word t3;
16473 C_word t4;
16474 C_word t5;
16475 C_word *a;
16476 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
16477 C_save_and_reclaim_args((void *)trf_7646,2,t0,t1);}
16478 a=C_alloc(9);
16479 if(C_truep(t1)){
16480 t2=(
16481 /* expand.scm:493: comp */
16482   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[104],C_i_car(((C_word*)t0)[3]))
16483 );
16484 if(C_truep(t2)){
16485 t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
16486 /* expand.scm:494: loop */
16487 t4=((C_word*)((C_word*)t0)[5])[1];
16488 f_7616(t4,((C_word*)t0)[6],((C_word*)t0)[7],t3);}
16489 else{
16490 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7666,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
16491 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7670,a[2]=t3,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
16492 /* expand.scm:497: scheme#reverse */
16493 t5=*((C_word*)lf[70]+1);{
16494 C_word av2[3];
16495 av2[0]=t5;
16496 av2[1]=t4;
16497 av2[2]=((C_word*)t0)[4];
16498 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
16499 else{
16500 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7685,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
16501 /* expand.scm:498: ##sys#expand-0 */
16502 t3=*((C_word*)lf[33]+1);{
16503 C_word av2[5];
16504 av2[0]=t3;
16505 av2[1]=t2;
16506 av2[2]=((C_word*)t0)[3];
16507 av2[3]=((C_word*)t0)[11];
16508 av2[4]=((C_word*)t0)[12];
16509 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
16510 
16511 /* k7664 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7666(C_word c,C_word * av)16512 static void C_ccall f_7666(C_word c,C_word *av){
16513 C_word tmp;
16514 C_word t0=av[0];
16515 C_word t1=av[1];
16516 C_word t2;
16517 C_word *a;
16518 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
16519 C_save_and_reclaim((void *)f_7666,c,av);}
16520 a=C_alloc(3);
16521 t2=((C_word*)t0)[2];{
16522 C_word *av2=av;
16523 av2[0]=t2;
16524 av2[1]=C_a_i_cons(&a,2,lf[105],t1);
16525 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
16526 
16527 /* k7668 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7670(C_word c,C_word * av)16528 static void C_ccall f_7670(C_word c,C_word *av){
16529 C_word tmp;
16530 C_word t0=av[0];
16531 C_word t1=av[1];
16532 C_word t2;
16533 C_word t3;
16534 C_word *a;
16535 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
16536 C_save_and_reclaim((void *)f_7670,c,av);}
16537 a=C_alloc(4);
16538 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7678,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
16539 /* expand.scm:497: expand */
16540 t3=((C_word*)((C_word*)t0)[3])[1];
16541 f_8197(t3,t2,((C_word*)t0)[4]);}
16542 
16543 /* k7676 in k7668 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7678(C_word c,C_word * av)16544 static void C_ccall f_7678(C_word c,C_word *av){
16545 C_word tmp;
16546 C_word t0=av[0];
16547 C_word t1=av[1];
16548 C_word t2;
16549 C_word t3;
16550 C_word *a;
16551 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
16552 C_save_and_reclaim((void *)f_7678,c,av);}
16553 a=C_alloc(3);
16554 t2=C_a_i_list1(&a,1,t1);
16555 /* expand.scm:497: ##sys#append */
16556 t3=*((C_word*)lf[71]+1);{
16557 C_word *av2;
16558 if(c >= 4) {
16559   av2=av;
16560 } else {
16561   av2=C_alloc(4);
16562 }
16563 av2[0]=t3;
16564 av2[1]=((C_word*)t0)[2];
16565 av2[2]=((C_word*)t0)[3];
16566 av2[3]=t2;
16567 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
16568 
16569 /* k7683 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7685(C_word c,C_word * av)16570 static void C_ccall f_7685(C_word c,C_word *av){
16571 C_word tmp;
16572 C_word t0=av[0];
16573 C_word t1=av[1];
16574 C_word t2;
16575 C_word t3;
16576 C_word t4;
16577 C_word t5;
16578 C_word *a;
16579 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
16580 C_save_and_reclaim((void *)f_7685,c,av);}
16581 a=C_alloc(8);
16582 t2=C_eqp(((C_word*)t0)[2],t1);
16583 if(C_truep(t2)){
16584 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7697,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
16585 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
16586 if(C_truep(C_i_symbolp(C_u_i_car(((C_word*)t0)[2])))){
16587 t4=(
16588 /* expand.scm:505: comp */
16589   f_7521(((C_word*)((C_word*)t0)[4])[1],lf[106],C_u_i_car(((C_word*)t0)[2]))
16590 );
16591 t5=t3;
16592 f_7697(t5,(C_truep(t4)?t4:(
16593 /* expand.scm:506: comp */
16594   f_7521(((C_word*)((C_word*)t0)[4])[1],lf[107],C_u_i_car(((C_word*)t0)[2]))
16595 )));}
16596 else{
16597 t4=t3;
16598 f_7697(t4,C_SCHEME_FALSE);}}
16599 else{
16600 t4=t3;
16601 f_7697(t4,C_SCHEME_FALSE);}}
16602 else{
16603 t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[5]);
16604 /* expand.scm:515: loop2 */
16605 t4=((C_word*)((C_word*)t0)[8])[1];
16606 f_7635(t4,((C_word*)t0)[3],t3);}}
16607 
16608 /* k7695 in k7683 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7697(C_word t0,C_word t1)16609 static void C_fcall f_7697(C_word t0,C_word t1){
16610 C_word tmp;
16611 C_word t2;
16612 C_word t3;
16613 C_word t4;
16614 C_word *a;
16615 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
16616 C_save_and_reclaim_args((void *)trf_7697,2,t0,t1);}
16617 a=C_alloc(9);
16618 if(C_truep(t1)){
16619 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7704,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
16620 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7708,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
16621 /* expand.scm:508: scheme#reverse */
16622 t4=*((C_word*)lf[70]+1);{
16623 C_word av2[3];
16624 av2[0]=t4;
16625 av2[1]=t3;
16626 av2[2]=((C_word*)t0)[6];
16627 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
16628 else{
16629 t2=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[6]);
16630 /* expand.scm:514: loop */
16631 t3=((C_word*)((C_word*)t0)[7])[1];
16632 f_7616(t3,((C_word*)t0)[2],((C_word*)t0)[5],t2);}}
16633 
16634 /* k7702 in k7695 in k7683 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7704(C_word c,C_word * av)16635 static void C_ccall f_7704(C_word c,C_word *av){
16636 C_word tmp;
16637 C_word t0=av[0];
16638 C_word t1=av[1];
16639 C_word t2;
16640 C_word *a;
16641 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
16642 C_save_and_reclaim((void *)f_7704,c,av);}
16643 a=C_alloc(3);
16644 t2=((C_word*)t0)[2];{
16645 C_word *av2=av;
16646 av2[0]=t2;
16647 av2[1]=C_a_i_cons(&a,2,lf[105],t1);
16648 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
16649 
16650 /* k7706 in k7695 in k7683 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7708(C_word c,C_word * av)16651 static void C_ccall f_7708(C_word c,C_word *av){
16652 C_word tmp;
16653 C_word t0=av[0];
16654 C_word t1=av[1];
16655 C_word t2;
16656 C_word t3;
16657 C_word t4;
16658 C_word t5;
16659 C_word t6;
16660 C_word *a;
16661 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
16662 C_save_and_reclaim((void *)f_7708,c,av);}
16663 a=C_alloc(12);
16664 t2=(
16665 /* expand.scm:509: comp */
16666   f_7521(((C_word*)((C_word*)t0)[2])[1],lf[106],C_i_car(((C_word*)t0)[3]))
16667 );
16668 if(C_truep(t2)){
16669 if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
16670 t3=C_a_i_list(&a,1,((C_word*)t0)[3]);
16671 /* expand.scm:507: ##sys#append */
16672 t4=*((C_word*)lf[71]+1);{
16673 C_word *av2;
16674 if(c >= 4) {
16675   av2=av;
16676 } else {
16677   av2=C_alloc(4);
16678 }
16679 av2[0]=t4;
16680 av2[1]=((C_word*)t0)[5];
16681 av2[2]=t1;
16682 av2[3]=t3;
16683 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16684 else{
16685 t3=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[4]);
16686 t4=C_a_i_cons(&a,2,lf[52],t3);
16687 t5=C_a_i_list(&a,2,((C_word*)t0)[3],t4);
16688 /* expand.scm:507: ##sys#append */
16689 t6=*((C_word*)lf[71]+1);{
16690 C_word *av2;
16691 if(c >= 4) {
16692   av2=av;
16693 } else {
16694   av2=C_alloc(4);
16695 }
16696 av2[0]=t6;
16697 av2[1]=((C_word*)t0)[5];
16698 av2[2]=t1;
16699 av2[3]=t5;
16700 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}
16701 else{
16702 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7746,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
16703 t4=C_u_i_cdr(((C_word*)t0)[3]);
16704 t5=C_a_i_list(&a,1,((C_word*)t0)[4]);
16705 /* expand.scm:513: ##sys#append */
16706 t6=*((C_word*)lf[71]+1);{
16707 C_word *av2;
16708 if(c >= 4) {
16709   av2=av;
16710 } else {
16711   av2=C_alloc(4);
16712 }
16713 av2[0]=t6;
16714 av2[1]=t3;
16715 av2[2]=t4;
16716 av2[3]=t5;
16717 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}
16718 
16719 /* k7744 in k7706 in k7695 in k7683 in k7644 in loop2 in loop in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7746(C_word c,C_word * av)16720 static void C_ccall f_7746(C_word c,C_word *av){
16721 C_word tmp;
16722 C_word t0=av[0];
16723 C_word t1=av[1];
16724 C_word t2;
16725 C_word t3;
16726 C_word t4;
16727 C_word *a;
16728 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
16729 C_save_and_reclaim((void *)f_7746,c,av);}
16730 a=C_alloc(6);
16731 t2=C_a_i_cons(&a,2,lf[107],t1);
16732 t3=C_a_i_list(&a,1,t2);
16733 /* expand.scm:507: ##sys#append */
16734 t4=*((C_word*)lf[71]+1);{
16735 C_word *av2;
16736 if(c >= 4) {
16737   av2=av;
16738 } else {
16739   av2=C_alloc(4);
16740 }
16741 av2[0]=t4;
16742 av2[1]=((C_word*)t0)[2];
16743 av2[2]=((C_word*)t0)[3];
16744 av2[3]=t3;
16745 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16746 
16747 /* k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7857(C_word c,C_word * av)16748 static void C_ccall f_7857(C_word c,C_word *av){
16749 C_word tmp;
16750 C_word t0=av[0];
16751 C_word t1=av[1];
16752 C_word t2;
16753 C_word t3;
16754 C_word t4;
16755 C_word t5;
16756 C_word t6;
16757 C_word *a;
16758 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
16759 C_save_and_reclaim((void *)f_7857,c,av);}
16760 a=C_alloc(15);
16761 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
16762 t3=C_SCHEME_UNDEFINED;
16763 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
16764 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7999,a[2]=t4,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp));
16765 t6=((C_word*)t4)[1];
16766 f_7999(t6,t2,t1,C_SCHEME_END_OF_LIST);}
16767 
16768 /* k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7860(C_word c,C_word * av)16769 static void C_ccall f_7860(C_word c,C_word *av){
16770 C_word tmp;
16771 C_word t0=av[0];
16772 C_word t1=av[1];
16773 C_word t2;
16774 C_word t3;
16775 C_word t4;
16776 C_word t5;
16777 C_word t6;
16778 C_word t7;
16779 C_word *a;
16780 if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
16781 C_save_and_reclaim((void *)f_7860,c,av);}
16782 a=C_alloc(15);
16783 t2=C_i_check_list_2(t1,lf[17]);
16784 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
16785 t4=C_SCHEME_UNDEFINED;
16786 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
16787 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7965,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li54),tmp=(C_word)a,a+=6,tmp));
16788 t7=((C_word*)t5)[1];
16789 f_7965(t7,t3,t1);}
16790 
16791 /* k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7866(C_word c,C_word * av)16792 static void C_ccall f_7866(C_word c,C_word *av){
16793 C_word tmp;
16794 C_word t0=av[0];
16795 C_word t1=av[1];
16796 C_word t2;
16797 C_word t3;
16798 C_word t4;
16799 C_word t5;
16800 C_word t6;
16801 C_word t7;
16802 C_word t8;
16803 C_word *a;
16804 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
16805 C_save_and_reclaim((void *)f_7866,c,av);}
16806 a=C_alloc(17);
16807 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7870,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
16808 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
16809 t4=t3;
16810 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
16811 t6=((C_word*)t5)[1];
16812 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7892,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
16813 /* expand.scm:536: scheme#reverse */
16814 t8=*((C_word*)lf[70]+1);{
16815 C_word *av2;
16816 if(c >= 3) {
16817   av2=av;
16818 } else {
16819   av2=C_alloc(3);
16820 }
16821 av2[0]=t8;
16822 av2[1]=t7;
16823 av2[2]=((C_word*)t0)[6];
16824 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
16825 
16826 /* k7868 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7870(C_word c,C_word * av)16827 static void C_ccall f_7870(C_word c,C_word *av){
16828 C_word tmp;
16829 C_word t0=av[0];
16830 C_word t1=av[1];
16831 C_word t2;
16832 C_word t3;
16833 C_word *a;
16834 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
16835 C_save_and_reclaim((void *)f_7870,c,av);}
16836 a=C_alloc(6);
16837 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
16838 t3=((C_word*)t0)[3];{
16839 C_word *av2=av;
16840 av2[0]=t3;
16841 av2[1]=C_a_i_cons(&a,2,lf[52],t2);
16842 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
16843 
16844 /* k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7892(C_word c,C_word * av)16845 static void C_ccall f_7892(C_word c,C_word *av){
16846 C_word tmp;
16847 C_word t0=av[0];
16848 C_word t1=av[1];
16849 C_word t2;
16850 C_word t3;
16851 C_word *a;
16852 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
16853 C_save_and_reclaim((void *)f_7892,c,av);}
16854 a=C_alloc(8);
16855 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7895,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
16856 /* expand.scm:537: scheme#reverse */
16857 t3=*((C_word*)lf[70]+1);{
16858 C_word *av2;
16859 if(c >= 3) {
16860   av2=av;
16861 } else {
16862   av2=C_alloc(3);
16863 }
16864 av2[0]=t3;
16865 av2[1]=t2;
16866 av2[2]=((C_word*)t0)[7];
16867 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
16868 
16869 /* k7893 in k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7895(C_word c,C_word * av)16870 static void C_ccall f_7895(C_word c,C_word *av){
16871 C_word tmp;
16872 C_word t0=av[0];
16873 C_word t1=av[1];
16874 C_word t2;
16875 C_word t3;
16876 C_word *a;
16877 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
16878 C_save_and_reclaim((void *)f_7895,c,av);}
16879 a=C_alloc(8);
16880 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
16881 /* expand.scm:538: scheme#reverse */
16882 t3=*((C_word*)lf[70]+1);{
16883 C_word *av2;
16884 if(c >= 3) {
16885   av2=av;
16886 } else {
16887   av2=C_alloc(3);
16888 }
16889 av2[0]=t3;
16890 av2[1]=t2;
16891 av2[2]=((C_word*)t0)[7];
16892 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
16893 
16894 /* k7896 in k7893 in k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7898(C_word c,C_word * av)16895 static void C_ccall f_7898(C_word c,C_word *av){
16896 C_word tmp;
16897 C_word t0=av[0];
16898 C_word t1=av[1];
16899 C_word t2;
16900 C_word t3;
16901 C_word t4;
16902 C_word t5;
16903 C_word t6;
16904 C_word *a;
16905 if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
16906 C_save_and_reclaim((void *)f_7898,c,av);}
16907 a=C_alloc(12);
16908 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
16909 t3=C_SCHEME_UNDEFINED;
16910 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
16911 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7903,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp));
16912 t6=((C_word*)t4)[1];
16913 f_7903(t6,t2,((C_word*)t0)[6],((C_word*)t0)[7],t1);}
16914 
16915 /* k7899 in k7896 in k7893 in k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7901(C_word c,C_word * av)16916 static void C_ccall f_7901(C_word c,C_word *av){
16917 C_word tmp;
16918 C_word t0=av[0];
16919 C_word t1=av[1];
16920 C_word t2;
16921 C_word *a;
16922 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16923 C_save_and_reclaim((void *)f_7901,c,av);}
16924 /* expand.scm:520: ##sys#append */
16925 t2=*((C_word*)lf[71]+1);{
16926 C_word *av2;
16927 if(c >= 4) {
16928   av2=av;
16929 } else {
16930   av2=C_alloc(4);
16931 }
16932 av2[0]=t2;
16933 av2[1]=((C_word*)t0)[2];
16934 av2[2]=t1;
16935 av2[3]=((C_word*)t0)[3];
16936 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16937 
16938 /* map-loop1617 in k7896 in k7893 in k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7903(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)16939 static void C_fcall f_7903(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
16940 C_word tmp;
16941 C_word t5;
16942 C_word t6;
16943 C_word t7;
16944 C_word *a;
16945 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
16946 C_save_and_reclaim_args((void *)trf_7903,5,t0,t1,t2,t3,t4);}
16947 a=C_alloc(9);
16948 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
16949 if(C_truep(C_i_pairp(t2))){
16950 t6=C_i_pairp(t3);
16951 t7=t5;
16952 f_7910(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));}
16953 else{
16954 t6=t5;
16955 f_7910(t6,C_SCHEME_FALSE);}}
16956 
16957 /* k7908 in map-loop1617 in k7896 in k7893 in k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7910(C_word t0,C_word t1)16958 static void C_fcall f_7910(C_word t0,C_word t1){
16959 C_word tmp;
16960 C_word t2;
16961 C_word t3;
16962 C_word t4;
16963 C_word t5;
16964 C_word t6;
16965 C_word *a;
16966 if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
16967 C_save_and_reclaim_args((void *)trf_7910,2,t0,t1);}
16968 a=C_alloc(17);
16969 if(C_truep(t1)){
16970 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7936,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
16971 t3=C_slot(((C_word*)t0)[5],C_fix(0));
16972 t4=C_slot(((C_word*)t0)[6],C_fix(0));
16973 if(C_truep(C_slot(((C_word*)t0)[7],C_fix(0)))){
16974 /* expand.scm:534: ##sys#expand-multiple-values-assignment */
16975 t5=*((C_word*)lf[91]+1);{
16976 C_word av2[4];
16977 av2[0]=t5;
16978 av2[1]=t2;
16979 av2[2]=t3;
16980 av2[3]=t4;
16981 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
16982 else{
16983 t5=C_i_car(t3);
16984 t6=t2;{
16985 C_word av2[2];
16986 av2[0]=t6;
16987 av2[1]=C_a_i_list(&a,3,lf[94],t5,t4);
16988 f_7936(2,av2);}}}
16989 else{
16990 t2=((C_word*)t0)[4];{
16991 C_word av2[2];
16992 av2[0]=t2;
16993 av2[1]=C_slot(((C_word*)t0)[8],C_fix(1));
16994 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
16995 
16996 /* k7934 in k7908 in map-loop1617 in k7896 in k7893 in k7890 in k7864 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7936(C_word c,C_word * av)16997 static void C_ccall f_7936(C_word c,C_word *av){
16998 C_word tmp;
16999 C_word t0=av[0];
17000 C_word t1=av[1];
17001 C_word t2;
17002 C_word t3;
17003 C_word t4;
17004 C_word t5;
17005 C_word *a;
17006 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
17007 C_save_and_reclaim((void *)f_7936,c,av);}
17008 a=C_alloc(3);
17009 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
17010 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
17011 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
17012 t5=((C_word*)((C_word*)t0)[3])[1];
17013 f_7903(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)),C_slot(((C_word*)t0)[7],C_fix(1)));}
17014 
17015 /* map-loop1569 in k7858 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7965(C_word t0,C_word t1,C_word t2)17016 static void C_fcall f_7965(C_word t0,C_word t1,C_word t2){
17017 C_word tmp;
17018 C_word t3;
17019 C_word t4;
17020 C_word t5;
17021 C_word t6;
17022 C_word t7;
17023 C_word t8;
17024 C_word t9;
17025 C_word t10;
17026 C_word *a;
17027 loop:
17028 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
17029 C_save_and_reclaim_args((void *)trf_7965,3,t0,t1,t2);}
17030 a=C_alloc(9);
17031 if(C_truep(C_i_pairp(t2))){
17032 t3=C_slot(t2,C_fix(0));
17033 t4=C_a_i_list(&a,2,t3,lf[108]);
17034 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
17035 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
17036 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
17037 t9=t1;
17038 t10=C_slot(t2,C_fix(1));
17039 t1=t9;
17040 t2=t10;
17041 goto loop;}
17042 else{
17043 t3=t1;{
17044 C_word av2[2];
17045 av2[0]=t3;
17046 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
17047 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17048 
17049 /* foldl1592 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_7999(C_word t0,C_word t1,C_word t2,C_word t3)17050 static void C_fcall f_7999(C_word t0,C_word t1,C_word t2,C_word t3){
17051 C_word tmp;
17052 C_word t4;
17053 C_word t5;
17054 C_word t6;
17055 C_word t7;
17056 C_word t8;
17057 C_word t9;
17058 C_word *a;
17059 if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){
17060 C_save_and_reclaim_args((void *)trf_7999,4,t0,t1,t2,t3);}
17061 a=C_alloc(12);
17062 if(C_truep(C_i_pairp(t2))){
17063 t4=C_slot(t2,C_fix(1));
17064 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8029,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
17065 t6=C_slot(t2,C_fix(0));
17066 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8023,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
17067 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8025,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp);
17068 /* expand.scm:525: ##sys#decompose-lambda-list */
17069 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[95]+1));
17070 C_word av2[4];
17071 av2[0]=*((C_word*)lf[95]+1);
17072 av2[1]=t7;
17073 av2[2]=t6;
17074 av2[3]=t8;
17075 tp(4,av2);}}
17076 else{
17077 t4=t1;{
17078 C_word av2[2];
17079 av2[0]=t4;
17080 av2[1]=t3;
17081 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
17082 
17083 /* k8021 in foldl1592 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8023(C_word c,C_word * av)17084 static void C_ccall f_8023(C_word c,C_word *av){
17085 C_word tmp;
17086 C_word t0=av[0];
17087 C_word t1=av[1];
17088 C_word t2;
17089 C_word *a;
17090 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17091 C_save_and_reclaim((void *)f_8023,c,av);}
17092 /* expand.scm:525: ##sys#append */
17093 t2=*((C_word*)lf[71]+1);{
17094 C_word *av2;
17095 if(c >= 4) {
17096   av2=av;
17097 } else {
17098   av2=C_alloc(4);
17099 }
17100 av2[0]=t2;
17101 av2[1]=((C_word*)t0)[2];
17102 av2[2]=((C_word*)t0)[3];
17103 av2[3]=t1;
17104 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
17105 
17106 /* a8024 in foldl1592 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8025(C_word c,C_word * av)17107 static void C_ccall f_8025(C_word c,C_word *av){
17108 C_word tmp;
17109 C_word t0=av[0];
17110 C_word t1=av[1];
17111 C_word t2=av[2];
17112 C_word t3=av[3];
17113 C_word t4=av[4];
17114 C_word t5;
17115 C_word *a;
17116 if(c!=5) C_bad_argc_2(c,5,t0);
17117 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
17118 C_save_and_reclaim((void *)f_8025,c,av);}
17119 t5=t1;{
17120 C_word *av2=av;
17121 av2[0]=t5;
17122 av2[1]=t2;
17123 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
17124 
17125 /* k8027 in foldl1592 in k7855 in fini in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8029(C_word c,C_word * av)17126 static void C_ccall f_8029(C_word c,C_word *av){
17127 C_word tmp;
17128 C_word t0=av[0];
17129 C_word t1=av[1];
17130 C_word t2;
17131 C_word *a;
17132 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17133 C_save_and_reclaim((void *)f_8029,c,av);}
17134 t2=((C_word*)((C_word*)t0)[2])[1];
17135 f_7999(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
17136 
17137 /* fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8041(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)17138 static void C_fcall f_8041(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
17139 C_word tmp;
17140 C_word t6;
17141 C_word t7;
17142 C_word t8;
17143 C_word t9;
17144 C_word t10;
17145 C_word *a;
17146 if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){
17147 C_save_and_reclaim_args((void *)trf_8041,6,t0,t1,t2,t3,t4,t5);}
17148 a=C_alloc(14);
17149 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8049,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
17150 t7=C_SCHEME_UNDEFINED;
17151 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
17152 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8051,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp));
17153 t10=((C_word*)t8)[1];
17154 f_8051(t10,t6,t5,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}
17155 
17156 /* k8047 in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8049(C_word c,C_word * av)17157 static void C_ccall f_8049(C_word c,C_word *av){
17158 C_word tmp;
17159 C_word t0=av[0];
17160 C_word t1=av[1];
17161 C_word t2;
17162 C_word *a;
17163 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
17164 C_save_and_reclaim((void *)f_8049,c,av);}
17165 /* expand.scm:543: fini */
17166 t2=((C_word*)((C_word*)t0)[2])[1];
17167 f_7604(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}
17168 
17169 /* loop in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8051(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)17170 static void C_fcall f_8051(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
17171 C_word tmp;
17172 C_word t5;
17173 C_word t6;
17174 C_word t7;
17175 C_word t8;
17176 C_word t9;
17177 C_word t10;
17178 C_word t11;
17179 C_word t12;
17180 C_word t13;
17181 C_word t14;
17182 C_word t15;
17183 C_word *a;
17184 loop:
17185 if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
17186 C_save_and_reclaim_args((void *)trf_8051,5,t0,t1,t2,t3,t4);}
17187 a=C_alloc(11);
17188 if(C_truep(t4)){
17189 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
17190 t6=t5;
17191 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
17192 t8=((C_word*)t7)[1];
17193 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8073,a[2]=t2,a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp);
17194 /* expand.scm:547: scheme#reverse */
17195 t10=*((C_word*)lf[70]+1);{
17196 C_word av2[3];
17197 av2[0]=t10;
17198 av2[1]=t9;
17199 av2[2]=t3;
17200 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
17201 else{
17202 t5=C_i_pairp(t2);
17203 if(C_truep(C_i_not(t5))){
17204 /* expand.scm:548: loop */
17205 t12=t1;
17206 t13=t2;
17207 t14=t3;
17208 t15=C_SCHEME_TRUE;
17209 t1=t12;
17210 t2=t13;
17211 t3=t14;
17212 t4=t15;
17213 goto loop;}
17214 else{
17215 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8125,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
17216 t7=C_i_car(t2);
17217 if(C_truep(C_i_listp(t7))){
17218 t8=C_i_length(C_u_i_car(t2));
17219 if(C_truep(C_fixnum_greater_or_equal_p(C_fix(3),t8))){
17220 t9=C_i_caar(t2);
17221 if(C_truep(C_i_symbolp(t9))){
17222 t10=C_u_i_car(t2);
17223 /* expand.scm:552: comp */
17224 t11=t6;
17225 f_8125(t11,(
17226 /* expand.scm:552: comp */
17227   f_7521(((C_word*)((C_word*)t0)[3])[1],lf[102],C_u_i_car(t10))
17228 ));}
17229 else{
17230 t10=t6;
17231 f_8125(t10,C_SCHEME_FALSE);}}
17232 else{
17233 t9=t6;
17234 f_8125(t9,C_SCHEME_FALSE);}}
17235 else{
17236 t8=t6;
17237 f_8125(t8,C_SCHEME_FALSE);}}}}
17238 
17239 /* k8071 in loop in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8073(C_word c,C_word * av)17240 static void C_ccall f_8073(C_word c,C_word *av){
17241 C_word tmp;
17242 C_word t0=av[0];
17243 C_word t1=av[1];
17244 C_word t2;
17245 C_word t3;
17246 C_word t4;
17247 C_word t5;
17248 C_word t6;
17249 C_word *a;
17250 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
17251 C_save_and_reclaim((void *)f_8073,c,av);}
17252 a=C_alloc(12);
17253 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8076,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
17254 t3=C_SCHEME_UNDEFINED;
17255 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
17256 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8078,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp));
17257 t6=((C_word*)t4)[1];
17258 f_8078(t6,t2,t1);}
17259 
17260 /* k8074 in k8071 in loop in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8076(C_word c,C_word * av)17261 static void C_ccall f_8076(C_word c,C_word *av){
17262 C_word tmp;
17263 C_word t0=av[0];
17264 C_word t1=av[1];
17265 C_word t2;
17266 C_word t3;
17267 C_word t4;
17268 C_word *a;
17269 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
17270 C_save_and_reclaim((void *)f_8076,c,av);}
17271 a=C_alloc(9);
17272 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
17273 t3=C_a_i_cons(&a,2,lf[109],t2);
17274 t4=((C_word*)t0)[3];{
17275 C_word *av2=av;
17276 av2[0]=t4;
17277 av2[1]=C_a_i_list(&a,1,t3);
17278 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17279 
17280 /* map-loop1677 in k8071 in loop in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8078(C_word t0,C_word t1,C_word t2)17281 static void C_fcall f_8078(C_word t0,C_word t1,C_word t2){
17282 C_word tmp;
17283 C_word t3;
17284 C_word t4;
17285 C_word t5;
17286 C_word t6;
17287 C_word t7;
17288 C_word t8;
17289 C_word t9;
17290 C_word t10;
17291 C_word *a;
17292 loop:
17293 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
17294 C_save_and_reclaim_args((void *)trf_8078,3,t0,t1,t2);}
17295 a=C_alloc(3);
17296 if(C_truep(C_i_pairp(t2))){
17297 t3=C_slot(t2,C_fix(0));
17298 t4=C_i_cdr(t3);
17299 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
17300 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
17301 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
17302 t9=t1;
17303 t10=C_slot(t2,C_fix(1));
17304 t1=t9;
17305 t2=t10;
17306 goto loop;}
17307 else{
17308 t3=t1;{
17309 C_word av2[2];
17310 av2[0]=t3;
17311 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
17312 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17313 
17314 /* k8123 in loop in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8125(C_word t0,C_word t1)17315 static void C_fcall f_8125(C_word t0,C_word t1){
17316 C_word tmp;
17317 C_word t2;
17318 C_word t3;
17319 C_word t4;
17320 C_word t5;
17321 C_word t6;
17322 C_word t7;
17323 C_word t8;
17324 C_word t9;
17325 C_word *a;
17326 if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
17327 C_save_and_reclaim_args((void *)trf_8125,2,t0,t1);}
17328 a=C_alloc(10);
17329 if(C_truep(t1)){
17330 t2=C_u_i_car(((C_word*)t0)[2]);
17331 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8129,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
17332 t4=C_i_car(t2);
17333 t5=C_i_cadr(t2);
17334 t6=C_eqp(t4,t5);
17335 if(C_truep(t6)){
17336 /* expand.scm:428: ##sys#syntax-error-hook */
17337 t7=*((C_word*)lf[43]+1);{
17338 C_word av2[4];
17339 av2[0]=t7;
17340 av2[1]=t3;
17341 av2[2]=lf[110];
17342 av2[3]=t2;
17343 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
17344 else{
17345 t7=C_u_i_cdr(((C_word*)t0)[2]);
17346 t8=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
17347 /* expand.scm:558: loop */
17348 t9=((C_word*)((C_word*)t0)[4])[1];
17349 f_8051(t9,((C_word*)t0)[5],t7,t8,C_SCHEME_FALSE);}}
17350 else{
17351 /* expand.scm:559: loop */
17352 t2=((C_word*)((C_word*)t0)[4])[1];
17353 f_8051(t2,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE);}}
17354 
17355 /* k8127 in k8123 in loop in fini/syntax in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8129(C_word c,C_word * av)17356 static void C_ccall f_8129(C_word c,C_word *av){
17357 C_word tmp;
17358 C_word t0=av[0];
17359 C_word t1=av[1];
17360 C_word t2;
17361 C_word t3;
17362 C_word t4;
17363 C_word *a;
17364 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
17365 C_save_and_reclaim((void *)f_8129,c,av);}
17366 a=C_alloc(3);
17367 t2=C_u_i_cdr(((C_word*)t0)[2]);
17368 t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
17369 /* expand.scm:558: loop */
17370 t4=((C_word*)((C_word*)t0)[5])[1];
17371 f_8051(t4,((C_word*)t0)[6],t2,t3,C_SCHEME_FALSE);}
17372 
17373 /* expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8197(C_word t0,C_word t1,C_word t2)17374 static void C_fcall f_8197(C_word t0,C_word t1,C_word t2){
17375 C_word tmp;
17376 C_word t3;
17377 C_word t4;
17378 C_word t5;
17379 C_word t6;
17380 C_word *a;
17381 if(C_unlikely(!C_demand(C_calculate_demand(11,0,6)))){
17382 C_save_and_reclaim_args((void *)trf_8197,3,t0,t1,t2);}
17383 a=C_alloc(11);
17384 t3=C_SCHEME_UNDEFINED;
17385 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
17386 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8203,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word)li62),tmp=(C_word)a,a+=9,tmp));
17387 t6=((C_word*)t4)[1];
17388 f_8203(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}
17389 
17390 /* loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8203(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)17391 static void C_fcall f_8203(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
17392 C_word tmp;
17393 C_word t6;
17394 C_word t7;
17395 C_word t8;
17396 C_word t9;
17397 C_word t10;
17398 C_word t11;
17399 C_word t12;
17400 C_word t13;
17401 C_word *a;
17402 if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){
17403 C_save_and_reclaim_args((void *)trf_8203,6,t0,t1,t2,t3,t4,t5);}
17404 a=C_alloc(15);
17405 t6=C_i_pairp(t2);
17406 if(C_truep(C_i_not(t6))){
17407 /* expand.scm:567: fini */
17408 t7=((C_word*)((C_word*)t0)[2])[1];
17409 f_7604(t7,t1,t3,t4,t5,t2);}
17410 else{
17411 t7=C_i_car(t2);
17412 t8=C_u_i_cdr(t2);
17413 t9=C_i_pairp(t7);
17414 t10=(C_truep(t9)?C_u_i_car(t7):C_SCHEME_FALSE);
17415 t11=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8223,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t2,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=t8,a[11]=((C_word*)t0)[5],a[12]=t7,a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],tmp=(C_word)a,a+=15,tmp);
17416 if(C_truep(t10)){
17417 t12=C_i_symbolp(t10);
17418 t13=t11;
17419 f_8223(t13,(C_truep(t12)?t10:C_SCHEME_FALSE));}
17420 else{
17421 t12=t11;
17422 f_8223(t12,C_SCHEME_FALSE);}}}
17423 
17424 /* k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8223(C_word t0,C_word t1)17425 static void C_fcall f_8223(C_word t0,C_word t1){
17426 C_word tmp;
17427 C_word t2;
17428 C_word t3;
17429 C_word t4;
17430 C_word t5;
17431 C_word t6;
17432 C_word t7;
17433 C_word t8;
17434 C_word t9;
17435 C_word *a;
17436 if(C_unlikely(!C_demand(C_calculate_demand(14,0,6)))){
17437 C_save_and_reclaim_args((void *)trf_8223,2,t0,t1);}
17438 a=C_alloc(14);
17439 t2=C_i_symbolp(t1);
17440 if(C_truep(C_i_not(t2))){
17441 /* expand.scm:573: fini */
17442 t3=((C_word*)((C_word*)t0)[2])[1];
17443 f_7604(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
17444 else{
17445 t3=(
17446 /* expand.scm:575: comp */
17447   f_7521(((C_word*)((C_word*)t0)[8])[1],lf[101],t1)
17448 );
17449 if(C_truep(t3)){
17450 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8241,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[12],tmp=(C_word)a,a+=10,tmp);
17451 /* expand.scm:576: ##sys#check-syntax */
17452 t5=*((C_word*)lf[56]+1);{
17453 C_word av2[7];
17454 av2[0]=t5;
17455 av2[1]=t4;
17456 av2[2]=lf[101];
17457 av2[3]=((C_word*)t0)[12];
17458 av2[4]=lf[116];
17459 av2[5]=C_SCHEME_FALSE;
17460 av2[6]=((C_word*)t0)[11];
17461 ((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}
17462 else{
17463 t4=(
17464 /* expand.scm:602: comp */
17465   f_7521(((C_word*)((C_word*)t0)[8])[1],lf[102],t1)
17466 );
17467 if(C_truep(t4)){
17468 t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8378,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
17469 /* expand.scm:603: ##sys#check-syntax */
17470 t6=*((C_word*)lf[56]+1);{
17471 C_word av2[6];
17472 av2[0]=t6;
17473 av2[1]=t5;
17474 av2[2]=lf[102];
17475 av2[3]=((C_word*)t0)[12];
17476 av2[4]=lf[117];
17477 av2[5]=((C_word*)t0)[11];
17478 ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
17479 else{
17480 t5=(
17481 /* expand.scm:605: comp */
17482   f_7521(((C_word*)((C_word*)t0)[8])[1],lf[103],t1)
17483 );
17484 if(C_truep(t5)){
17485 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8390,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
17486 /* expand.scm:607: ##sys#check-syntax */
17487 t7=*((C_word*)lf[56]+1);{
17488 C_word av2[7];
17489 av2[0]=t7;
17490 av2[1]=t6;
17491 av2[2]=lf[103];
17492 av2[3]=((C_word*)t0)[12];
17493 av2[4]=lf[118];
17494 av2[5]=C_SCHEME_FALSE;
17495 av2[6]=((C_word*)t0)[11];
17496 ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}
17497 else{
17498 t6=(
17499 /* expand.scm:609: comp */
17500   f_7521(((C_word*)((C_word*)t0)[8])[1],lf[105],t1)
17501 );
17502 if(C_truep(t6)){
17503 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8426,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
17504 /* expand.scm:610: ##sys#append */
17505 t8=*((C_word*)lf[71]+1);{
17506 C_word av2[4];
17507 av2[0]=t8;
17508 av2[1]=t7;
17509 av2[2]=C_i_cdr(((C_word*)t0)[12]);
17510 av2[3]=((C_word*)t0)[10];
17511 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
17512 else{
17513 t7=C_a_i_list1(&a,1,t1);
17514 if(C_truep(C_i_member(t7,((C_word*)t0)[4]))){
17515 /* expand.scm:615: fini */
17516 t8=((C_word*)((C_word*)t0)[2])[1];
17517 f_7604(t8,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
17518 else{
17519 t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8442,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[2],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)[10],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
17520 /* expand.scm:616: ##sys#expand-0 */
17521 t9=*((C_word*)lf[33]+1);{
17522 C_word av2[5];
17523 av2[0]=t9;
17524 av2[1]=t8;
17525 av2[2]=((C_word*)t0)[12];
17526 av2[3]=((C_word*)t0)[11];
17527 av2[4]=((C_word*)t0)[14];
17528 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}}}}}
17529 
17530 /* k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8241(C_word c,C_word * av)17531 static void C_ccall f_8241(C_word c,C_word *av){
17532 C_word tmp;
17533 C_word t0=av[0];
17534 C_word t1=av[1];
17535 C_word t2;
17536 C_word t3;
17537 C_word t4;
17538 C_word t5;
17539 C_word *a;
17540 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
17541 C_save_and_reclaim((void *)f_8241,c,av);}
17542 a=C_alloc(12);
17543 t2=C_SCHEME_UNDEFINED;
17544 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
17545 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word)li61),tmp=(C_word)a,a+=10,tmp));
17546 t5=((C_word*)t3)[1];
17547 f_8246(t5,((C_word*)t0)[8],((C_word*)t0)[9]);}
17548 
17549 /* loop2 in k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8246(C_word t0,C_word t1,C_word t2)17550 static void C_fcall f_8246(C_word t0,C_word t1,C_word t2){
17551 C_word tmp;
17552 C_word t3;
17553 C_word t4;
17554 C_word t5;
17555 C_word t6;
17556 C_word t7;
17557 C_word *a;
17558 if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){
17559 C_save_and_reclaim_args((void *)trf_8246,3,t0,t1,t2);}
17560 a=C_alloc(10);
17561 t3=C_i_cadr(t2);
17562 t4=C_i_pairp(t3);
17563 if(C_truep(C_i_not(t4))){
17564 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8259,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
17565 /* expand.scm:580: ##sys#check-syntax */
17566 t6=*((C_word*)lf[56]+1);{
17567 C_word av2[7];
17568 av2[0]=t6;
17569 av2[1]=t5;
17570 av2[2]=lf[101];
17571 av2[3]=t2;
17572 av2[4]=lf[112];
17573 av2[5]=C_SCHEME_FALSE;
17574 av2[6]=((C_word*)t0)[7];
17575 ((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}
17576 else{
17577 t5=C_i_car(t3);
17578 if(C_truep(C_i_pairp(t5))){
17579 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8312,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
17580 /* expand.scm:590: ##sys#check-syntax */
17581 t7=*((C_word*)lf[56]+1);{
17582 C_word av2[7];
17583 av2[0]=t7;
17584 av2[1]=t6;
17585 av2[2]=lf[101];
17586 av2[3]=t2;
17587 av2[4]=lf[114];
17588 av2[5]=C_SCHEME_FALSE;
17589 av2[6]=((C_word*)t0)[7];
17590 ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}
17591 else{
17592 t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8326,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
17593 /* expand.scm:595: ##sys#check-syntax */
17594 t7=*((C_word*)lf[56]+1);{
17595 C_word av2[7];
17596 av2[0]=t7;
17597 av2[1]=t6;
17598 av2[2]=lf[101];
17599 av2[3]=t2;
17600 av2[4]=lf[115];
17601 av2[5]=C_SCHEME_FALSE;
17602 av2[6]=((C_word*)t0)[7];
17603 ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}}}
17604 
17605 /* k8257 in loop2 in k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8259(C_word c,C_word * av)17606 static void C_ccall f_8259(C_word c,C_word *av){
17607 C_word tmp;
17608 C_word t0=av[0];
17609 C_word t1=av[1];
17610 C_word t2;
17611 C_word t3;
17612 C_word t4;
17613 C_word *a;
17614 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
17615 C_save_and_reclaim((void *)f_8259,c,av);}
17616 a=C_alloc(10);
17617 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
17618 t3=C_eqp(C_u_i_car(((C_word*)t0)[4]),((C_word*)t0)[2]);
17619 if(C_truep(t3)){
17620 /* expand.scm:428: ##sys#syntax-error-hook */
17621 t4=*((C_word*)lf[43]+1);{
17622 C_word *av2;
17623 if(c >= 4) {
17624   av2=av;
17625 } else {
17626   av2=C_alloc(4);
17627 }
17628 av2[0]=t4;
17629 av2[1]=t2;
17630 av2[2]=lf[110];
17631 av2[3]=((C_word*)t0)[4];
17632 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
17633 else{
17634 t4=t2;{
17635 C_word *av2=av;
17636 av2[0]=t4;
17637 av2[1]=C_SCHEME_UNDEFINED;
17638 f_8262(2,av2);}}}
17639 
17640 /* k8260 in k8257 in loop2 in k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8262(C_word c,C_word * av)17641 static void C_ccall f_8262(C_word c,C_word *av){
17642 C_word tmp;
17643 C_word t0=av[0];
17644 C_word t1=av[1];
17645 C_word t2;
17646 C_word t3;
17647 C_word t4;
17648 C_word t5;
17649 C_word t6;
17650 C_word t7;
17651 C_word t8;
17652 C_word *a;
17653 if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
17654 C_save_and_reclaim((void *)f_8262,c,av);}
17655 a=C_alloc(12);
17656 t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
17657 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
17658 t4=C_i_cddr(((C_word*)t0)[4]);
17659 if(C_truep(C_i_pairp(t4))){
17660 t5=C_i_caddr(((C_word*)t0)[4]);
17661 t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[5]);
17662 t7=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]);
17663 /* expand.scm:583: loop */
17664 t8=((C_word*)((C_word*)t0)[7])[1];
17665 f_8203(t8,((C_word*)t0)[8],((C_word*)t0)[9],t3,t6,t7);}
17666 else{
17667 t5=C_a_i_cons(&a,2,lf[111],((C_word*)t0)[5]);
17668 t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]);
17669 /* expand.scm:583: loop */
17670 t7=((C_word*)((C_word*)t0)[7])[1];
17671 f_8203(t7,((C_word*)t0)[8],((C_word*)t0)[9],t3,t5,t6);}}
17672 
17673 /* k8310 in loop2 in k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8312(C_word c,C_word * av)17674 static void C_ccall f_8312(C_word c,C_word *av){
17675 C_word tmp;
17676 C_word t0=av[0];
17677 C_word t1=av[1];
17678 C_word t2;
17679 C_word t3;
17680 C_word *a;
17681 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
17682 C_save_and_reclaim((void *)f_8312,c,av);}
17683 a=C_alloc(4);
17684 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
17685 /* expand.scm:593: chicken.syntax#expand-curried-define */
17686 t3=*((C_word*)lf[113]+1);{
17687 C_word *av2;
17688 if(c >= 5) {
17689   av2=av;
17690 } else {
17691   av2=C_alloc(5);
17692 }
17693 av2[0]=t3;
17694 av2[1]=t2;
17695 av2[2]=((C_word*)t0)[4];
17696 av2[3]=C_i_cddr(((C_word*)t0)[5]);
17697 av2[4]=((C_word*)t0)[6];
17698 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
17699 
17700 /* k8317 in k8310 in loop2 in k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8319(C_word c,C_word * av)17701 static void C_ccall f_8319(C_word c,C_word *av){
17702 C_word tmp;
17703 C_word t0=av[0];
17704 C_word t1=av[1];
17705 C_word t2;
17706 C_word *a;
17707 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
17708 C_save_and_reclaim((void *)f_8319,c,av);}
17709 /* expand.scm:592: loop2 */
17710 t2=((C_word*)((C_word*)t0)[2])[1];
17711 f_8246(t2,((C_word*)t0)[3],t1);}
17712 
17713 /* k8324 in loop2 in k8239 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8326(C_word c,C_word * av)17714 static void C_ccall f_8326(C_word c,C_word *av){
17715 C_word tmp;
17716 C_word t0=av[0];
17717 C_word t1=av[1];
17718 C_word t2;
17719 C_word t3;
17720 C_word t4;
17721 C_word t5;
17722 C_word t6;
17723 C_word t7;
17724 C_word t8;
17725 C_word t9;
17726 C_word t10;
17727 C_word t11;
17728 C_word *a;
17729 if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){
17730 C_save_and_reclaim((void *)f_8326,c,av);}
17731 a=C_alloc(18);
17732 t2=C_u_i_car(((C_word*)t0)[2]);
17733 t3=C_a_i_list1(&a,1,t2);
17734 t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
17735 t5=C_u_i_cdr(((C_word*)t0)[2]);
17736 t6=C_i_cddr(((C_word*)t0)[4]);
17737 t7=C_a_i_cons(&a,2,t5,t6);
17738 t8=C_a_i_cons(&a,2,lf[73],t7);
17739 t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[5]);
17740 t10=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]);
17741 /* expand.scm:598: loop */
17742 t11=((C_word*)((C_word*)t0)[7])[1];
17743 f_8203(t11,((C_word*)t0)[8],((C_word*)t0)[9],t4,t9,t10);}
17744 
17745 /* k8376 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8378(C_word c,C_word * av)17746 static void C_ccall f_8378(C_word c,C_word *av){
17747 C_word tmp;
17748 C_word t0=av[0];
17749 C_word t1=av[1];
17750 C_word t2;
17751 C_word *a;
17752 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
17753 C_save_and_reclaim((void *)f_8378,c,av);}
17754 /* expand.scm:604: fini/syntax */
17755 t2=((C_word*)((C_word*)t0)[2])[1];
17756 f_8041(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
17757 
17758 /* k8388 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8390(C_word c,C_word * av)17759 static void C_ccall f_8390(C_word c,C_word *av){
17760 C_word tmp;
17761 C_word t0=av[0];
17762 C_word t1=av[1];
17763 C_word t2;
17764 C_word t3;
17765 C_word t4;
17766 C_word t5;
17767 C_word t6;
17768 C_word t7;
17769 C_word *a;
17770 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
17771 C_save_and_reclaim((void *)f_8390,c,av);}
17772 a=C_alloc(9);
17773 t2=C_i_cadr(((C_word*)t0)[2]);
17774 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
17775 t4=C_i_caddr(((C_word*)t0)[2]);
17776 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
17777 t6=C_a_i_cons(&a,2,C_SCHEME_TRUE,((C_word*)t0)[5]);
17778 /* expand.scm:608: loop */
17779 t7=((C_word*)((C_word*)t0)[6])[1];
17780 f_8203(t7,((C_word*)t0)[7],((C_word*)t0)[8],t3,t5,t6);}
17781 
17782 /* k8424 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8426(C_word c,C_word * av)17783 static void C_ccall f_8426(C_word c,C_word *av){
17784 C_word tmp;
17785 C_word t0=av[0];
17786 C_word t1=av[1];
17787 C_word t2;
17788 C_word *a;
17789 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
17790 C_save_and_reclaim((void *)f_8426,c,av);}
17791 /* expand.scm:610: loop */
17792 t2=((C_word*)((C_word*)t0)[2])[1];
17793 f_8203(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}
17794 
17795 /* k8440 in k8221 in loop in expand in k7508 in ##sys#canonicalize-body in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8442(C_word c,C_word * av)17796 static void C_ccall f_8442(C_word c,C_word *av){
17797 C_word tmp;
17798 C_word t0=av[0];
17799 C_word t1=av[1];
17800 C_word t2;
17801 C_word t3;
17802 C_word t4;
17803 C_word *a;
17804 if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
17805 C_save_and_reclaim((void *)f_8442,c,av);}
17806 a=C_alloc(3);
17807 t2=C_eqp(((C_word*)t0)[2],t1);
17808 if(C_truep(t2)){
17809 /* expand.scm:618: fini */
17810 t3=((C_word*)((C_word*)t0)[3])[1];
17811 f_7604(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
17812 else{
17813 t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[9]);
17814 /* expand.scm:619: loop */
17815 t4=((C_word*)((C_word*)t0)[10])[1];
17816 f_8203(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}
17817 
17818 /* chicken.syntax#match-expression in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8512(C_word c,C_word * av)17819 static void C_ccall f_8512(C_word c,C_word *av){
17820 C_word tmp;
17821 C_word t0=av[0];
17822 C_word t1=av[1];
17823 C_word t2=av[2];
17824 C_word t3=av[3];
17825 C_word t4=av[4];
17826 C_word t5;
17827 C_word t6;
17828 C_word t7;
17829 C_word t8;
17830 C_word t9;
17831 C_word t10;
17832 C_word t11;
17833 C_word *a;
17834 if(c!=5) C_bad_argc_2(c,5,t0);
17835 if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
17836 C_save_and_reclaim((void *)f_8512,c,av);}
17837 a=C_alloc(14);
17838 t5=C_SCHEME_END_OF_LIST;
17839 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
17840 t7=C_SCHEME_UNDEFINED;
17841 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
17842 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8515,a[2]=t6,a[3]=t4,a[4]=t8,a[5]=((C_word)li66),tmp=(C_word)a,a+=6,tmp));
17843 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8592,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
17844 /* expand.scm:640: mwalk */
17845 t11=((C_word*)t8)[1];
17846 f_8515(t11,t10,t2,t3);}
17847 
17848 /* mwalk in chicken.syntax#match-expression in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8515(C_word t0,C_word t1,C_word t2,C_word t3)17849 static void C_fcall f_8515(C_word t0,C_word t1,C_word t2,C_word t3){
17850 C_word tmp;
17851 C_word t4;
17852 C_word t5;
17853 C_word t6;
17854 C_word t7;
17855 C_word t8;
17856 C_word t9;
17857 C_word t10;
17858 C_word t11;
17859 C_word t12;
17860 C_word *a;
17861 loop:
17862 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
17863 C_save_and_reclaim_args((void *)trf_8515,4,t0,t1,t2,t3);}
17864 a=C_alloc(6);
17865 t4=C_i_pairp(t3);
17866 if(C_truep(C_i_not(t4))){
17867 t5=C_i_assq(t3,((C_word*)((C_word*)t0)[2])[1]);
17868 if(C_truep(t5)){
17869 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8529,a[2]=t2,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp);
17870 /* expand.scm:631: g1767 */
17871 t7=t1;{
17872 C_word av2[2];
17873 av2[0]=t7;
17874 av2[1]=(
17875 /* expand.scm:631: g1767 */
17876   f_8529(t6,t5)
17877 );
17878 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
17879 else{
17880 if(C_truep(C_i_memq(t3,((C_word*)t0)[3]))){
17881 t6=C_a_i_cons(&a,2,t3,t2);
17882 t7=C_a_i_cons(&a,2,t6,((C_word*)((C_word*)t0)[2])[1]);
17883 t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
17884 t9=t1;{
17885 C_word av2[2];
17886 av2[0]=t9;
17887 av2[1]=C_SCHEME_TRUE;
17888 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
17889 else{
17890 t6=t1;{
17891 C_word av2[2];
17892 av2[0]=t6;
17893 av2[1]=C_eqp(t2,t3);
17894 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
17895 else{
17896 if(C_truep(C_i_pairp(t2))){
17897 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8569,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
17898 /* expand.scm:637: mwalk */
17899 t10=t5;
17900 t11=C_u_i_car(t2);
17901 t12=C_i_car(t3);
17902 t1=t10;
17903 t2=t11;
17904 t3=t12;
17905 goto loop;}
17906 else{
17907 t5=t1;{
17908 C_word av2[2];
17909 av2[0]=t5;
17910 av2[1]=C_SCHEME_FALSE;
17911 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}
17912 
17913 /* g1767 in mwalk in chicken.syntax#match-expression in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8529(C_word t0,C_word t1)17914 static C_word C_fcall f_8529(C_word t0,C_word t1){
17915 C_word tmp;
17916 C_word t2;
17917 C_stack_overflow_check;{}
17918 return(C_i_equalp(((C_word*)t0)[2],C_i_cdr(t1)));}
17919 
17920 /* k8567 in mwalk in chicken.syntax#match-expression in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8569(C_word c,C_word * av)17921 static void C_ccall f_8569(C_word c,C_word *av){
17922 C_word tmp;
17923 C_word t0=av[0];
17924 C_word t1=av[1];
17925 C_word t2;
17926 C_word *a;
17927 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17928 C_save_and_reclaim((void *)f_8569,c,av);}
17929 if(C_truep(t1)){
17930 /* expand.scm:638: mwalk */
17931 t2=((C_word*)((C_word*)t0)[2])[1];
17932 f_8515(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
17933 else{
17934 t2=((C_word*)t0)[3];{
17935 C_word *av2=av;
17936 av2[0]=t2;
17937 av2[1]=C_SCHEME_FALSE;
17938 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
17939 
17940 /* k8590 in chicken.syntax#match-expression in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8592(C_word c,C_word * av)17941 static void C_ccall f_8592(C_word c,C_word *av){
17942 C_word tmp;
17943 C_word t0=av[0];
17944 C_word t1=av[1];
17945 C_word t2;
17946 C_word t3;
17947 C_word *a;
17948 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
17949 C_save_and_reclaim((void *)f_8592,c,av);}
17950 if(C_truep(t1)){
17951 t2=((C_word*)((C_word*)t0)[2])[1];
17952 t3=((C_word*)t0)[3];{
17953 C_word *av2=av;
17954 av2[0]=t3;
17955 av2[1]=t2;
17956 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
17957 else{
17958 t2=((C_word*)t0)[3];{
17959 C_word *av2=av;
17960 av2[0]=t2;
17961 av2[1]=C_SCHEME_FALSE;
17962 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
17963 
17964 /* chicken.syntax#expand-curried-define in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8594(C_word c,C_word * av)17965 static void C_ccall f_8594(C_word c,C_word *av){
17966 C_word tmp;
17967 C_word t0=av[0];
17968 C_word t1=av[1];
17969 C_word t2=av[2];
17970 C_word t3=av[3];
17971 C_word t4=av[4];
17972 C_word t5;
17973 C_word t6;
17974 C_word t7;
17975 C_word t8;
17976 C_word t9;
17977 C_word t10;
17978 C_word t11;
17979 C_word *a;
17980 if(c!=5) C_bad_argc_2(c,5,t0);
17981 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
17982 C_save_and_reclaim((void *)f_8594,c,av);}
17983 a=C_alloc(13);
17984 t5=C_SCHEME_FALSE;
17985 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
17986 t7=C_SCHEME_UNDEFINED;
17987 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
17988 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8597,a[2]=t6,a[3]=t8,a[4]=((C_word)li68),tmp=(C_word)a,a+=5,tmp));
17989 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8641,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
17990 /* expand.scm:654: loop */
17991 t11=((C_word*)t8)[1];
17992 f_8597(t11,t10,t2,t3);}
17993 
17994 /* loop in chicken.syntax#expand-curried-define in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8597(C_word t0,C_word t1,C_word t2,C_word t3)17995 static void C_fcall f_8597(C_word t0,C_word t1,C_word t2,C_word t3){
17996 C_word tmp;
17997 C_word t4;
17998 C_word t5;
17999 C_word t6;
18000 C_word t7;
18001 C_word t8;
18002 C_word t9;
18003 C_word t10;
18004 C_word t11;
18005 C_word t12;
18006 C_word t13;
18007 C_word *a;
18008 loop:
18009 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
18010 C_save_and_reclaim_args((void *)trf_8597,4,t0,t1,t2,t3);}
18011 a=C_alloc(9);
18012 t4=C_i_car(t2);
18013 if(C_truep(C_i_symbolp(t4))){
18014 t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_u_i_car(t2));
18015 t6=C_u_i_cdr(t2);
18016 t7=C_a_i_cons(&a,2,t6,t3);
18017 t8=t1;{
18018 C_word av2[2];
18019 av2[0]=t8;
18020 av2[1]=C_a_i_cons(&a,2,lf[73],t7);
18021 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
18022 else{
18023 t5=C_u_i_car(t2);
18024 t6=C_u_i_cdr(t2);
18025 t7=C_a_i_cons(&a,2,t6,t3);
18026 t8=C_a_i_cons(&a,2,lf[73],t7);
18027 t9=C_a_i_list(&a,1,t8);
18028 /* expand.scm:653: loop */
18029 t11=t1;
18030 t12=t5;
18031 t13=t9;
18032 t1=t11;
18033 t2=t12;
18034 t3=t13;
18035 goto loop;}}
18036 
18037 /* k8639 in chicken.syntax#expand-curried-define in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8641(C_word c,C_word * av)18038 static void C_ccall f_8641(C_word c,C_word *av){
18039 C_word tmp;
18040 C_word t0=av[0];
18041 C_word t1=av[1];
18042 C_word t2;
18043 C_word *a;
18044 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
18045 C_save_and_reclaim((void *)f_8641,c,av);}
18046 a=C_alloc(9);
18047 t2=((C_word*)t0)[2];{
18048 C_word *av2=av;
18049 av2[0]=t2;
18050 av2[1]=C_a_i_list3(&a,3,lf[101],((C_word*)((C_word*)t0)[3])[1],t1);
18051 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
18052 
18053 /* chicken.syntax#syntax-error in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8649(C_word c,C_word * av)18054 static void C_ccall f_8649(C_word c,C_word *av){
18055 C_word tmp;
18056 C_word t0=av[0];
18057 C_word t1=av[1];
18058 C_word t2;
18059 C_word *a;
18060 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){
18061 C_save_and_reclaim((void*)f_8649,c,av);}
18062 a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
18063 t2=C_build_rest(&a,c,2,av);
18064 C_word t3;
18065 C_word t4;
18066 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8657,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
18067 /* expand.scm:666: chicken.syntax#strip-syntax */
18068 t4=*((C_word*)lf[12]+1);{
18069 C_word *av2;
18070 if(c >= 3) {
18071   av2=av;
18072 } else {
18073   av2=C_alloc(3);
18074 }
18075 av2[0]=t4;
18076 av2[1]=t3;
18077 av2[2]=t2;
18078 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
18079 
18080 /* k8655 in chicken.syntax#syntax-error in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8657(C_word c,C_word * av)18081 static void C_ccall f_8657(C_word c,C_word *av){
18082 C_word tmp;
18083 C_word t0=av[0];
18084 C_word t1=av[1];
18085 C_word t2;
18086 C_word *a;
18087 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
18088 C_save_and_reclaim((void *)f_8657,c,av);}{
18089 C_word *av2;
18090 if(c >= 5) {
18091   av2=av;
18092 } else {
18093   av2=C_alloc(5);
18094 }
18095 av2[0]=0;
18096 av2[1]=((C_word*)t0)[2];
18097 av2[2]=*((C_word*)lf[124]+1);
18098 av2[3]=lf[125];
18099 av2[4]=t1;
18100 C_apply(5,av2);}}
18101 
18102 /* ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8660(C_word c,C_word * av)18103 static void C_ccall f_8660(C_word c,C_word *av){
18104 C_word tmp;
18105 C_word t0=av[0];
18106 C_word t1=av[1];
18107 C_word t2=av[2];
18108 C_word t3=av[3];
18109 C_word t4;
18110 C_word t5;
18111 C_word *a;
18112 if(c!=4) C_bad_argc_2(c,4,t0);
18113 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
18114 C_save_and_reclaim((void *)f_8660,c,av);}
18115 a=C_alloc(5);
18116 if(C_truep(C_i_nullp(*((C_word*)lf[122]+1)))){
18117 /* expand.scm:679: ##sys#syntax-error-hook */
18118 t4=*((C_word*)lf[43]+1);{
18119 C_word *av2=av;
18120 av2[0]=t4;
18121 av2[1]=t1;
18122 av2[2]=t2;
18123 av2[3]=t3;
18124 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
18125 else{
18126 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8727,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
18127 /* expand.scm:680: chicken.base#open-output-string */
18128 t5=*((C_word*)lf[144]+1);{
18129 C_word *av2=av;
18130 av2[0]=t5;
18131 av2[1]=t4;
18132 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
18133 
18134 /* k8669 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8671(C_word c,C_word * av)18135 static void C_ccall f_8671(C_word c,C_word *av){
18136 C_word tmp;
18137 C_word t0=av[0];
18138 C_word t1=av[1];
18139 C_word t2;
18140 C_word t3;
18141 C_word t4;
18142 C_word t5;
18143 C_word t6;
18144 C_word *a;
18145 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
18146 C_save_and_reclaim((void *)f_8671,c,av);}
18147 a=C_alloc(6);
18148 t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
18149 t3=C_SCHEME_UNDEFINED;
18150 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
18151 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8676,a[2]=t4,a[3]=((C_word)li73),tmp=(C_word)a,a+=4,tmp));
18152 t6=((C_word*)t4)[1];
18153 f_8676(t6,((C_word*)t0)[2],t2);}
18154 
18155 /* loop in k8669 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8676(C_word t0,C_word t1,C_word t2)18156 static void C_fcall f_8676(C_word t0,C_word t1,C_word t2){
18157 C_word tmp;
18158 C_word t3;
18159 C_word t4;
18160 C_word t5;
18161 C_word t6;
18162 C_word t7;
18163 C_word t8;
18164 C_word *a;
18165 loop:
18166 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
18167 C_save_and_reclaim_args((void *)trf_8676,3,t0,t1,t2);}
18168 a=C_alloc(5);
18169 if(C_truep(C_i_nullp(t2))){
18170 t3=t1;{
18171 C_word av2[2];
18172 av2[0]=t3;
18173 av2[1]=C_SCHEME_END_OF_LIST;
18174 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
18175 else{
18176 t3=C_i_caar(t2);
18177 t4=C_eqp(lf[141],t3);
18178 if(C_truep(t4)){
18179 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8696,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
18180 /* expand.scm:676: scheme#cadar */
18181 t6=*((C_word*)lf[69]+1);{
18182 C_word av2[3];
18183 av2[0]=t6;
18184 av2[1]=t5;
18185 av2[2]=t2;
18186 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
18187 else{
18188 /* expand.scm:677: loop */
18189 t7=t1;
18190 t8=C_u_i_cdr(t2);
18191 t1=t7;
18192 t2=t8;
18193 goto loop;}}}
18194 
18195 /* k8694 in loop in k8669 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8696(C_word c,C_word * av)18196 static void C_ccall f_8696(C_word c,C_word *av){
18197 C_word tmp;
18198 C_word t0=av[0];
18199 C_word t1=av[1];
18200 C_word t2;
18201 C_word t3;
18202 C_word *a;
18203 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
18204 C_save_and_reclaim((void *)f_8696,c,av);}
18205 a=C_alloc(4);
18206 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8700,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
18207 /* expand.scm:676: loop */
18208 t3=((C_word*)((C_word*)t0)[3])[1];
18209 f_8676(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}
18210 
18211 /* k8698 in k8694 in loop in k8669 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8700(C_word c,C_word * av)18212 static void C_ccall f_8700(C_word c,C_word *av){
18213 C_word tmp;
18214 C_word t0=av[0];
18215 C_word t1=av[1];
18216 C_word t2;
18217 C_word *a;
18218 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
18219 C_save_and_reclaim((void *)f_8700,c,av);}
18220 a=C_alloc(3);
18221 t2=((C_word*)t0)[2];{
18222 C_word *av2=av;
18223 av2[0]=t2;
18224 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
18225 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
18226 
18227 /* k8713 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8715(C_word c,C_word * av)18228 static void C_ccall f_8715(C_word c,C_word *av){
18229 C_word tmp;
18230 C_word t0=av[0];
18231 C_word t1=av[1];
18232 C_word t2;
18233 C_word *a;
18234 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
18235 C_save_and_reclaim((void *)f_8715,c,av);}
18236 /* expand.scm:673: ##sys#get */
18237 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[142]+1));
18238 C_word *av2;
18239 if(c >= 4) {
18240   av2=av;
18241 } else {
18242   av2=C_alloc(4);
18243 }
18244 av2[0]=*((C_word*)lf[142]+1);
18245 av2[1]=((C_word*)t0)[2];
18246 av2[2]=t1;
18247 av2[3]=lf[143];
18248 tp(4,av2);}}
18249 
18250 /* k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8727(C_word c,C_word * av)18251 static void C_ccall f_8727(C_word c,C_word *av){
18252 C_word tmp;
18253 C_word t0=av[0];
18254 C_word t1=av[1];
18255 C_word t2;
18256 C_word t3;
18257 C_word t4;
18258 C_word t5;
18259 C_word t6;
18260 C_word t7;
18261 C_word *a;
18262 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
18263 C_save_and_reclaim((void *)f_8727,c,av);}
18264 a=C_alloc(18);
18265 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8729,a[2]=t1,a[3]=((C_word)li71),tmp=(C_word)a,a+=4,tmp);
18266 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8736,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
18267 t4=C_SCHEME_UNDEFINED;
18268 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
18269 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8745,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li74),tmp=(C_word)a,a+=8,tmp));
18270 t7=((C_word*)t5)[1];
18271 f_8745(t7,t3,*((C_word*)lf[122]+1));}
18272 
18273 /* outstr in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8729(C_word t0,C_word t1,C_word t2)18274 static void C_fcall f_8729(C_word t0,C_word t1,C_word t2){
18275 C_word tmp;
18276 C_word t3;
18277 C_word *a;
18278 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
18279 C_save_and_reclaim_args((void *)trf_8729,3,t0,t1,t2);}
18280 /* expand.scm:682: ##sys#print */
18281 t3=*((C_word*)lf[127]+1);{
18282 C_word av2[5];
18283 av2[0]=t3;
18284 av2[1]=t1;
18285 av2[2]=t2;
18286 av2[3]=C_SCHEME_FALSE;
18287 av2[4]=((C_word*)t0)[2];
18288 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18289 
18290 /* k8734 in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8736(C_word c,C_word * av)18291 static void C_ccall f_8736(C_word c,C_word *av){
18292 C_word tmp;
18293 C_word t0=av[0];
18294 C_word t1=av[1];
18295 C_word t2;
18296 C_word t3;
18297 C_word *a;
18298 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
18299 C_save_and_reclaim((void *)f_8736,c,av);}
18300 a=C_alloc(3);
18301 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
18302 /* expand.scm:717: chicken.base#get-output-string */
18303 t3=*((C_word*)lf[128]+1);{
18304 C_word *av2;
18305 if(c >= 3) {
18306   av2=av;
18307 } else {
18308   av2=C_alloc(3);
18309 }
18310 av2[0]=t3;
18311 av2[1]=t2;
18312 av2[2]=((C_word*)t0)[3];
18313 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18314 
18315 /* k8741 in k8734 in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8743(C_word c,C_word * av)18316 static void C_ccall f_8743(C_word c,C_word *av){
18317 C_word tmp;
18318 C_word t0=av[0];
18319 C_word t1=av[1];
18320 C_word t2;
18321 C_word *a;
18322 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18323 C_save_and_reclaim((void *)f_8743,c,av);}
18324 /* expand.scm:717: ##sys#syntax-error-hook */
18325 t2=*((C_word*)lf[43]+1);{
18326 C_word *av2;
18327 if(c >= 3) {
18328   av2=av;
18329 } else {
18330   av2=C_alloc(3);
18331 }
18332 av2[0]=t2;
18333 av2[1]=((C_word*)t0)[2];
18334 av2[2]=t1;
18335 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
18336 
18337 /* loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8745(C_word t0,C_word t1,C_word t2)18338 static void C_fcall f_8745(C_word t0,C_word t1,C_word t2){
18339 C_word tmp;
18340 C_word t3;
18341 C_word t4;
18342 C_word *a;
18343 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
18344 C_save_and_reclaim_args((void *)trf_8745,3,t0,t1,t2);}
18345 a=C_alloc(9);
18346 if(C_truep(C_i_nullp(t2))){
18347 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8755,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
18348 /* expand.scm:685: outstr */
18349 t4=((C_word*)t0)[2];
18350 f_8729(t4,t3,((C_word*)t0)[5]);}
18351 else{
18352 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8781,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]=t2,tmp=(C_word)a,a+=9,tmp);
18353 /* expand.scm:692: chicken.syntax#strip-syntax */
18354 t4=*((C_word*)lf[12]+1);{
18355 C_word av2[3];
18356 av2[0]=t4;
18357 av2[1]=t3;
18358 av2[2]=C_i_car(t2);
18359 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
18360 
18361 /* k8753 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8755(C_word c,C_word * av)18362 static void C_ccall f_8755(C_word c,C_word *av){
18363 C_word tmp;
18364 C_word t0=av[0];
18365 C_word t1=av[1];
18366 C_word t2;
18367 C_word t3;
18368 C_word *a;
18369 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18370 C_save_and_reclaim((void *)f_8755,c,av);}
18371 a=C_alloc(6);
18372 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8758,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
18373 /* expand.scm:686: outstr */
18374 t3=((C_word*)t0)[2];
18375 f_8729(t3,t2,lf[131]);}
18376 
18377 /* k8756 in k8753 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8758(C_word c,C_word * av)18378 static void C_ccall f_8758(C_word c,C_word *av){
18379 C_word tmp;
18380 C_word t0=av[0];
18381 C_word t1=av[1];
18382 C_word t2;
18383 C_word t3;
18384 C_word *a;
18385 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
18386 C_save_and_reclaim((void *)f_8758,c,av);}
18387 a=C_alloc(5);
18388 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18389 /* expand.scm:687: ##sys#print */
18390 t3=*((C_word*)lf[127]+1);{
18391 C_word *av2;
18392 if(c >= 5) {
18393   av2=av;
18394 } else {
18395   av2=C_alloc(5);
18396 }
18397 av2[0]=t3;
18398 av2[1]=t2;
18399 av2[2]=((C_word*)t0)[5];
18400 av2[3]=C_SCHEME_TRUE;
18401 av2[4]=((C_word*)t0)[4];
18402 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18403 
18404 /* k8759 in k8756 in k8753 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8761(C_word c,C_word * av)18405 static void C_ccall f_8761(C_word c,C_word *av){
18406 C_word tmp;
18407 C_word t0=av[0];
18408 C_word t1=av[1];
18409 C_word t2;
18410 C_word t3;
18411 C_word *a;
18412 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
18413 C_save_and_reclaim((void *)f_8761,c,av);}
18414 a=C_alloc(5);
18415 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8764,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18416 /* expand.scm:688: outstr */
18417 t3=((C_word*)t0)[2];
18418 f_8729(t3,t2,lf[130]);}
18419 
18420 /* k8762 in k8759 in k8756 in k8753 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8764(C_word c,C_word * av)18421 static void C_ccall f_8764(C_word c,C_word *av){
18422 C_word tmp;
18423 C_word t0=av[0];
18424 C_word t1=av[1];
18425 C_word t2;
18426 C_word t3;
18427 C_word t4;
18428 C_word *a;
18429 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
18430 C_save_and_reclaim((void *)f_8764,c,av);}
18431 a=C_alloc(8);
18432 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8767,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
18433 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8774,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
18434 /* expand.scm:689: chicken.syntax#strip-syntax */
18435 t4=*((C_word*)lf[12]+1);{
18436 C_word *av2;
18437 if(c >= 3) {
18438   av2=av;
18439 } else {
18440   av2=C_alloc(3);
18441 }
18442 av2[0]=t4;
18443 av2[1]=t3;
18444 av2[2]=C_i_car(*((C_word*)lf[122]+1));
18445 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
18446 
18447 /* k8765 in k8762 in k8759 in k8756 in k8753 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8767(C_word c,C_word * av)18448 static void C_ccall f_8767(C_word c,C_word *av){
18449 C_word tmp;
18450 C_word t0=av[0];
18451 C_word t1=av[1];
18452 C_word t2;
18453 C_word *a;
18454 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18455 C_save_and_reclaim((void *)f_8767,c,av);}
18456 /* expand.scm:690: outstr */
18457 t2=((C_word*)t0)[2];
18458 f_8729(t2,((C_word*)t0)[3],lf[129]);}
18459 
18460 /* k8772 in k8762 in k8759 in k8756 in k8753 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8774(C_word c,C_word * av)18461 static void C_ccall f_8774(C_word c,C_word *av){
18462 C_word tmp;
18463 C_word t0=av[0];
18464 C_word t1=av[1];
18465 C_word t2;
18466 C_word *a;
18467 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
18468 C_save_and_reclaim((void *)f_8774,c,av);}
18469 /* expand.scm:689: ##sys#print */
18470 t2=*((C_word*)lf[127]+1);{
18471 C_word *av2;
18472 if(c >= 5) {
18473   av2=av;
18474 } else {
18475   av2=C_alloc(5);
18476 }
18477 av2[0]=t2;
18478 av2[1]=((C_word*)t0)[2];
18479 av2[2]=t1;
18480 av2[3]=C_SCHEME_TRUE;
18481 av2[4]=((C_word*)t0)[3];
18482 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
18483 
18484 /* k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8781(C_word c,C_word * av)18485 static void C_ccall f_8781(C_word c,C_word *av){
18486 C_word tmp;
18487 C_word t0=av[0];
18488 C_word t1=av[1];
18489 C_word t2;
18490 C_word t3;
18491 C_word t4;
18492 C_word t5;
18493 C_word *a;
18494 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
18495 C_save_and_reclaim((void *)f_8781,c,av);}
18496 a=C_alloc(16);
18497 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
18498 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8671,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
18499 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8715,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
18500 /* expand.scm:673: chicken.syntax#strip-syntax */
18501 t5=*((C_word*)lf[12]+1);{
18502 C_word *av2;
18503 if(c >= 3) {
18504   av2=av;
18505 } else {
18506   av2=C_alloc(3);
18507 }
18508 av2[0]=t5;
18509 av2[1]=t4;
18510 av2[2]=t1;
18511 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
18512 
18513 /* k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8784(C_word c,C_word * av)18514 static void C_ccall f_8784(C_word c,C_word *av){
18515 C_word tmp;
18516 C_word t0=av[0];
18517 C_word t1=av[1];
18518 C_word t2;
18519 C_word t3;
18520 C_word *a;
18521 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
18522 C_save_and_reclaim((void *)f_8784,c,av);}
18523 a=C_alloc(8);
18524 if(C_truep(C_i_pairp(t1))){
18525 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8793,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
18526 /* expand.scm:695: outstr */
18527 t3=((C_word*)t0)[2];
18528 f_8729(t3,t2,((C_word*)t0)[7]);}
18529 else{
18530 /* expand.scm:716: loop */
18531 t2=((C_word*)((C_word*)t0)[8])[1];
18532 f_8745(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[9]));}}
18533 
18534 /* k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8793(C_word c,C_word * av)18535 static void C_ccall f_8793(C_word c,C_word *av){
18536 C_word tmp;
18537 C_word t0=av[0];
18538 C_word t1=av[1];
18539 C_word t2;
18540 C_word t3;
18541 C_word *a;
18542 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
18543 C_save_and_reclaim((void *)f_8793,c,av);}
18544 a=C_alloc(8);
18545 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
18546 /* expand.scm:696: outstr */
18547 t3=((C_word*)t0)[3];
18548 f_8729(t3,t2,lf[140]);}
18549 
18550 /* k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8796(C_word c,C_word * av)18551 static void C_ccall f_8796(C_word c,C_word *av){
18552 C_word tmp;
18553 C_word t0=av[0];
18554 C_word t1=av[1];
18555 C_word t2;
18556 C_word t3;
18557 C_word *a;
18558 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
18559 C_save_and_reclaim((void *)f_8796,c,av);}
18560 a=C_alloc(7);
18561 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
18562 /* expand.scm:697: ##sys#print */
18563 t3=*((C_word*)lf[127]+1);{
18564 C_word *av2;
18565 if(c >= 5) {
18566   av2=av;
18567 } else {
18568   av2=C_alloc(5);
18569 }
18570 av2[0]=t3;
18571 av2[1]=t2;
18572 av2[2]=((C_word*)t0)[7];
18573 av2[3]=C_SCHEME_TRUE;
18574 av2[4]=((C_word*)t0)[6];
18575 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18576 
18577 /* k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8799(C_word c,C_word * av)18578 static void C_ccall f_8799(C_word c,C_word *av){
18579 C_word tmp;
18580 C_word t0=av[0];
18581 C_word t1=av[1];
18582 C_word t2;
18583 C_word t3;
18584 C_word *a;
18585 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
18586 C_save_and_reclaim((void *)f_8799,c,av);}
18587 a=C_alloc(7);
18588 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8802,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
18589 /* expand.scm:698: outstr */
18590 t3=((C_word*)t0)[3];
18591 f_8729(t3,t2,lf[139]);}
18592 
18593 /* k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8802(C_word c,C_word * av)18594 static void C_ccall f_8802(C_word c,C_word *av){
18595 C_word tmp;
18596 C_word t0=av[0];
18597 C_word t1=av[1];
18598 C_word t2;
18599 C_word t3;
18600 C_word *a;
18601 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
18602 C_save_and_reclaim((void *)f_8802,c,av);}
18603 a=C_alloc(5);
18604 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8805,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18605 /* expand.scm:699: ##sys#print */
18606 t3=*((C_word*)lf[127]+1);{
18607 C_word *av2;
18608 if(c >= 5) {
18609   av2=av;
18610 } else {
18611   av2=C_alloc(5);
18612 }
18613 av2[0]=t3;
18614 av2[1]=t2;
18615 av2[2]=((C_word*)t0)[5];
18616 av2[3]=C_SCHEME_TRUE;
18617 av2[4]=((C_word*)t0)[6];
18618 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18619 
18620 /* k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8805(C_word c,C_word * av)18621 static void C_ccall f_8805(C_word c,C_word *av){
18622 C_word tmp;
18623 C_word t0=av[0];
18624 C_word t1=av[1];
18625 C_word t2;
18626 C_word t3;
18627 C_word *a;
18628 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
18629 C_save_and_reclaim((void *)f_8805,c,av);}
18630 a=C_alloc(5);
18631 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
18632 /* expand.scm:700: outstr */
18633 t3=((C_word*)t0)[3];
18634 f_8729(t3,t2,lf[138]);}
18635 
18636 /* k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8808(C_word c,C_word * av)18637 static void C_ccall f_8808(C_word c,C_word *av){
18638 C_word tmp;
18639 C_word t0=av[0];
18640 C_word t1=av[1];
18641 C_word t2;
18642 C_word t3;
18643 C_word t4;
18644 C_word t5;
18645 C_word t6;
18646 C_word t7;
18647 C_word t8;
18648 C_word t9;
18649 C_word *a;
18650 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
18651 C_save_and_reclaim((void *)f_8808,c,av);}
18652 a=C_alloc(13);
18653 t2=C_i_length(((C_word*)t0)[2]);
18654 t3=C_eqp(C_fix(1),t2);
18655 if(C_truep(t3)){
18656 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8821,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
18657 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8825,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
18658 /* expand.scm:705: scheme#symbol->string */
18659 t6=*((C_word*)lf[46]+1);{
18660 C_word *av2;
18661 if(c >= 3) {
18662   av2=av;
18663 } else {
18664   av2=C_alloc(3);
18665 }
18666 av2[0]=t6;
18667 av2[1]=t5;
18668 av2[2]=C_i_car(((C_word*)t0)[2]);
18669 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
18670 else{
18671 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8836,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
18672 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8840,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
18673 t6=C_SCHEME_UNDEFINED;
18674 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
18675 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8842,a[2]=t7,a[3]=((C_word)li72),tmp=(C_word)a,a+=4,tmp));
18676 t9=((C_word*)t7)[1];
18677 f_8842(t9,t5,((C_word*)t0)[2]);}}
18678 
18679 /* k8819 in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8821(C_word c,C_word * av)18680 static void C_ccall f_8821(C_word c,C_word *av){
18681 C_word tmp;
18682 C_word t0=av[0];
18683 C_word t1=av[1];
18684 C_word t2;
18685 C_word *a;
18686 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18687 C_save_and_reclaim((void *)f_8821,c,av);}
18688 /* expand.scm:702: outstr */
18689 t2=((C_word*)t0)[2];
18690 f_8729(t2,((C_word*)t0)[3],t1);}
18691 
18692 /* k8823 in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8825(C_word c,C_word * av)18693 static void C_ccall f_8825(C_word c,C_word *av){
18694 C_word tmp;
18695 C_word t0=av[0];
18696 C_word t1=av[1];
18697 C_word t2;
18698 C_word *a;
18699 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
18700 C_save_and_reclaim((void *)f_8825,c,av);}
18701 /* expand.scm:703: scheme#string-append */
18702 t2=*((C_word*)lf[38]+1);{
18703 C_word *av2;
18704 if(c >= 5) {
18705   av2=av;
18706 } else {
18707   av2=C_alloc(5);
18708 }
18709 av2[0]=t2;
18710 av2[1]=((C_word*)t0)[2];
18711 av2[2]=lf[132];
18712 av2[3]=t1;
18713 av2[4]=lf[133];
18714 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
18715 
18716 /* k8834 in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8836(C_word c,C_word * av)18717 static void C_ccall f_8836(C_word c,C_word *av){
18718 C_word tmp;
18719 C_word t0=av[0];
18720 C_word t1=av[1];
18721 C_word t2;
18722 C_word *a;
18723 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
18724 C_save_and_reclaim((void *)f_8836,c,av);}
18725 /* expand.scm:707: outstr */
18726 t2=((C_word*)t0)[2];
18727 f_8729(t2,((C_word*)t0)[3],t1);}
18728 
18729 /* k8838 in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8840(C_word c,C_word * av)18730 static void C_ccall f_8840(C_word c,C_word *av){
18731 C_word tmp;
18732 C_word t0=av[0];
18733 C_word t1=av[1];
18734 C_word t2;
18735 C_word *a;
18736 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
18737 C_save_and_reclaim((void *)f_8840,c,av);}
18738 /* expand.scm:708: scheme#string-append */
18739 t2=*((C_word*)lf[38]+1);{
18740 C_word *av2;
18741 if(c >= 4) {
18742   av2=av;
18743 } else {
18744   av2=C_alloc(4);
18745 }
18746 av2[0]=t2;
18747 av2[1]=((C_word*)t0)[2];
18748 av2[2]=lf[134];
18749 av2[3]=t1;
18750 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
18751 
18752 /* loop in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8842(C_word t0,C_word t1,C_word t2)18753 static void C_fcall f_8842(C_word t0,C_word t1,C_word t2){
18754 C_word tmp;
18755 C_word t3;
18756 C_word t4;
18757 C_word *a;
18758 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
18759 C_save_and_reclaim_args((void *)trf_8842,3,t0,t1,t2);}
18760 a=C_alloc(5);
18761 if(C_truep(C_i_nullp(t2))){
18762 t3=t1;{
18763 C_word av2[2];
18764 av2[0]=t3;
18765 av2[1]=lf[135];
18766 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
18767 else{
18768 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8856,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
18769 /* expand.scm:714: scheme#symbol->string */
18770 t4=*((C_word*)lf[46]+1);{
18771 C_word av2[3];
18772 av2[0]=t4;
18773 av2[1]=t3;
18774 av2[2]=C_i_car(t2);
18775 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
18776 
18777 /* k8854 in loop in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8856(C_word c,C_word * av)18778 static void C_ccall f_8856(C_word c,C_word *av){
18779 C_word tmp;
18780 C_word t0=av[0];
18781 C_word t1=av[1];
18782 C_word t2;
18783 C_word t3;
18784 C_word *a;
18785 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
18786 C_save_and_reclaim((void *)f_8856,c,av);}
18787 a=C_alloc(4);
18788 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8860,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
18789 /* expand.scm:715: loop */
18790 t3=((C_word*)((C_word*)t0)[3])[1];
18791 f_8842(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}
18792 
18793 /* k8858 in k8854 in loop in k8806 in k8803 in k8800 in k8797 in k8794 in k8791 in k8782 in k8779 in loop in k8725 in ##sys#syntax-error/context in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8860(C_word c,C_word * av)18794 static void C_ccall f_8860(C_word c,C_word *av){
18795 C_word tmp;
18796 C_word t0=av[0];
18797 C_word t1=av[1];
18798 C_word t2;
18799 C_word *a;
18800 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
18801 C_save_and_reclaim((void *)f_8860,c,av);}
18802 /* expand.scm:713: scheme#string-append */
18803 t2=*((C_word*)lf[38]+1);{
18804 C_word *av2;
18805 if(c >= 6) {
18806   av2=av;
18807 } else {
18808   av2=C_alloc(6);
18809 }
18810 av2[0]=t2;
18811 av2[1]=((C_word*)t0)[2];
18812 av2[2]=lf[136];
18813 av2[3]=((C_word*)t0)[3];
18814 av2[4]=lf[137];
18815 av2[5]=t1;
18816 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
18817 
18818 /* chicken.syntax#get-line-number in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8881(C_word c,C_word * av)18819 static void C_ccall f_8881(C_word c,C_word *av){
18820 C_word tmp;
18821 C_word t0=av[0];
18822 C_word t1=av[1];
18823 C_word t2=av[2];
18824 C_word t3;
18825 C_word t4;
18826 C_word t5;
18827 C_word *a;
18828 if(c!=3) C_bad_argc_2(c,3,t0);
18829 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
18830 C_save_and_reclaim((void *)f_8881,c,av);}
18831 a=C_alloc(4);
18832 if(C_truep(*((C_word*)lf[120]+1))){
18833 if(C_truep(C_i_pairp(t2))){
18834 t3=C_u_i_car(t2);
18835 if(C_truep(C_i_symbolp(t3))){
18836 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8901,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
18837 /* expand.scm:724: chicken.internal#hash-table-ref */
18838 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[146]+1));
18839 C_word *av2;
18840 if(c >= 4) {
18841   av2=av;
18842 } else {
18843   av2=C_alloc(4);
18844 }
18845 av2[0]=*((C_word*)lf[146]+1);
18846 av2[1]=t4;
18847 av2[2]=*((C_word*)lf[120]+1);
18848 av2[3]=t3;
18849 tp(4,av2);}}
18850 else{
18851 t4=t1;{
18852 C_word *av2=av;
18853 av2[0]=t4;
18854 av2[1]=C_SCHEME_FALSE;
18855 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
18856 else{
18857 t3=t1;{
18858 C_word *av2=av;
18859 av2[0]=t3;
18860 av2[1]=C_SCHEME_FALSE;
18861 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
18862 else{
18863 t3=t1;{
18864 C_word *av2=av;
18865 av2[0]=t3;
18866 av2[1]=C_SCHEME_FALSE;
18867 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
18868 
18869 /* k8899 in chicken.syntax#get-line-number in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8901(C_word c,C_word * av)18870 static void C_ccall f_8901(C_word c,C_word *av){
18871 C_word tmp;
18872 C_word t0=av[0];
18873 C_word t1=av[1];
18874 C_word t2;
18875 C_word t3;
18876 C_word *a;
18877 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
18878 C_save_and_reclaim((void *)f_8901,c,av);}
18879 a=C_alloc(4);
18880 if(C_truep(t1)){
18881 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8905,a[2]=((C_word*)t0)[2],a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp);
18882 /* expand.scm:724: g1856 */
18883 t3=((C_word*)t0)[3];{
18884 C_word *av2=av;
18885 av2[0]=t3;
18886 av2[1]=(
18887 /* expand.scm:724: g1856 */
18888   f_8905(t2,t1)
18889 );
18890 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
18891 else{
18892 t2=((C_word*)t0)[3];{
18893 C_word *av2=av;
18894 av2[0]=t2;
18895 av2[1]=C_SCHEME_FALSE;
18896 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18897 
18898 /* g1856 in k8899 in chicken.syntax#get-line-number in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8905(C_word t0,C_word t1)18899 static C_word C_fcall f_8905(C_word t0,C_word t1){
18900 C_word tmp;
18901 C_word t2;
18902 C_word t3;
18903 C_stack_overflow_check;{}
18904 t2=C_i_assq(((C_word*)t0)[2],t1);
18905 return((C_truep(t2)?C_i_cdr(t2):C_SCHEME_FALSE));}
18906 
18907 /* ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8920(C_word c,C_word * av)18908 static void C_ccall f_8920(C_word c,C_word *av){
18909 C_word tmp;
18910 C_word t0=av[0];
18911 C_word t1=av[1];
18912 C_word t2=av[2];
18913 C_word t3=av[3];
18914 C_word t4=av[4];
18915 C_word t5;
18916 C_word *a;
18917 if(c<5) C_bad_min_argc_2(c,5,t0);
18918 if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +8,c,2)))){
18919 C_save_and_reclaim((void*)f_8920,c,av);}
18920 a=C_alloc((c-5)*C_SIZEOF_PAIR+8);
18921 t5=C_build_rest(&a,c,5,av);
18922 C_word t6;
18923 C_word t7;
18924 C_word t8;
18925 C_word t9;
18926 C_word t10;
18927 C_word t11;
18928 t6=C_rest_nullp(c,5);
18929 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0));
18930 t8=C_rest_nullp(c,5);
18931 t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t5));
18932 t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8930,a[2]=t9,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t4,a[7]=t7,tmp=(C_word)a,a+=8,tmp);
18933 if(C_truep(C_i_nullp(t9))){
18934 /* expand.scm:733: ##sys#current-environment */
18935 t11=*((C_word*)lf[4]+1);{
18936 C_word *av2=av;
18937 av2[0]=t11;
18938 av2[1]=t10;
18939 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
18940 else{
18941 t11=t10;{
18942 C_word *av2=av;
18943 av2[0]=t11;
18944 av2[1]=C_i_car(t9);
18945 f_8930(2,av2);}}}
18946 
18947 /* k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8930(C_word c,C_word * av)18948 static void C_ccall f_8930(C_word c,C_word *av){
18949 C_word tmp;
18950 C_word t0=av[0];
18951 C_word t1=av[1];
18952 C_word t2;
18953 C_word t3;
18954 C_word t4;
18955 C_word t5;
18956 C_word t6;
18957 C_word t7;
18958 C_word t8;
18959 C_word t9;
18960 C_word t10;
18961 C_word t11;
18962 C_word t12;
18963 C_word t13;
18964 C_word t14;
18965 C_word t15;
18966 C_word t16;
18967 C_word t17;
18968 C_word t18;
18969 C_word t19;
18970 C_word t20;
18971 C_word t21;
18972 C_word *a;
18973 if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){
18974 C_save_and_reclaim((void *)f_8930,c,av);}
18975 a=C_alloc(39);
18976 t2=C_i_nullp(((C_word*)t0)[2]);
18977 t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2]));
18978 t4=C_SCHEME_UNDEFINED;
18979 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
18980 t6=C_SCHEME_UNDEFINED;
18981 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
18982 t8=C_SCHEME_UNDEFINED;
18983 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
18984 t10=C_SCHEME_UNDEFINED;
18985 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
18986 t12=C_SCHEME_UNDEFINED;
18987 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
18988 t14=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8935,a[2]=t7,a[3]=((C_word)li78),tmp=(C_word)a,a+=4,tmp));
18989 t15=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8947,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li79),tmp=(C_word)a,a+=5,tmp));
18990 t16=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8974,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp));
18991 t17=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9019,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp));
18992 t18=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9025,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp));
18993 t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9052,a[2]=t7,a[3]=t5,a[4]=t11,a[5]=t13,a[6]=t9,a[7]=t1,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
18994 if(C_truep(((C_word*)t0)[7])){
18995 t20=C_mutate((C_word*)lf[121]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[7]);
18996 t21=t19;
18997 f_9052(t21,t20);}
18998 else{
18999 t20=t19;
19000 f_9052(t20,C_SCHEME_UNDEFINED);}}
19001 
19002 /* test in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)19003 static void C_fcall f_8935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
19004 C_word tmp;
19005 C_word t5;
19006 C_word t6;
19007 C_word *a;
19008 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
19009 C_save_and_reclaim_args((void *)trf_8935,5,t0,t1,t2,t3,t4);}
19010 a=C_alloc(5);
19011 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8942,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
19012 /* expand.scm:736: pred */
19013 t6=t3;{
19014 C_word av2[3];
19015 av2[0]=t6;
19016 av2[1]=t5;
19017 av2[2]=t2;
19018 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
19019 
19020 /* k8940 in test in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8942(C_word c,C_word * av)19021 static void C_ccall f_8942(C_word c,C_word *av){
19022 C_word tmp;
19023 C_word t0=av[0];
19024 C_word t1=av[1];
19025 C_word t2;
19026 C_word t3;
19027 C_word *a;
19028 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19029 C_save_and_reclaim((void *)f_8942,c,av);}
19030 if(C_truep(t1)){
19031 t2=C_SCHEME_UNDEFINED;
19032 t3=((C_word*)t0)[2];{
19033 C_word *av2=av;
19034 av2[0]=t3;
19035 av2[1]=t2;
19036 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19037 else{
19038 /* expand.scm:736: err */
19039 t2=((C_word*)((C_word*)t0)[3])[1];
19040 f_8947(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}}
19041 
19042 /* err in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8947(C_word t0,C_word t1,C_word t2)19043 static void C_fcall f_8947(C_word t0,C_word t1,C_word t2){
19044 C_word tmp;
19045 C_word t3;
19046 C_word t4;
19047 C_word t5;
19048 C_word *a;
19049 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
19050 C_save_and_reclaim_args((void *)trf_8947,3,t0,t1,t2);}
19051 a=C_alloc(6);
19052 t3=*((C_word*)lf[121]+1);
19053 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8951,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
19054 /* expand.scm:740: get-line-number */
19055 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[145]+1));
19056 C_word av2[3];
19057 av2[0]=*((C_word*)lf[145]+1);
19058 av2[1]=t4;
19059 av2[2]=*((C_word*)lf[121]+1);
19060 tp(3,av2);}}
19061 
19062 /* k8949 in err in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8951(C_word c,C_word * av)19063 static void C_ccall f_8951(C_word c,C_word *av){
19064 C_word tmp;
19065 C_word t0=av[0];
19066 C_word t1=av[1];
19067 C_word t2;
19068 C_word t3;
19069 C_word t4;
19070 C_word *a;
19071 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
19072 C_save_and_reclaim((void *)f_8951,c,av);}
19073 a=C_alloc(9);
19074 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
19075 if(C_truep(t1)){
19076 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8965,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
19077 /* expand.scm:743: scheme#symbol->string */
19078 t4=*((C_word*)lf[46]+1);{
19079 C_word *av2;
19080 if(c >= 3) {
19081   av2=av;
19082 } else {
19083   av2=C_alloc(3);
19084 }
19085 av2[0]=t4;
19086 av2[1]=t3;
19087 av2[2]=((C_word*)t0)[5];
19088 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
19089 else{
19090 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8972,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
19091 /* expand.scm:744: scheme#symbol->string */
19092 t4=*((C_word*)lf[46]+1);{
19093 C_word *av2;
19094 if(c >= 3) {
19095   av2=av;
19096 } else {
19097   av2=C_alloc(3);
19098 }
19099 av2[0]=t4;
19100 av2[1]=t3;
19101 av2[2]=((C_word*)t0)[5];
19102 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
19103 
19104 /* k8956 in k8949 in err in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8958(C_word c,C_word * av)19105 static void C_ccall f_8958(C_word c,C_word *av){
19106 C_word tmp;
19107 C_word t0=av[0];
19108 C_word t1=av[1];
19109 C_word t2;
19110 C_word *a;
19111 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
19112 C_save_and_reclaim((void *)f_8958,c,av);}
19113 /* expand.scm:741: ##sys#syntax-error-hook */
19114 t2=*((C_word*)lf[43]+1);{
19115 C_word *av2;
19116 if(c >= 4) {
19117   av2=av;
19118 } else {
19119   av2=C_alloc(4);
19120 }
19121 av2[0]=t2;
19122 av2[1]=((C_word*)t0)[2];
19123 av2[2]=t1;
19124 av2[3]=((C_word*)t0)[3];
19125 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
19126 
19127 /* k8963 in k8949 in err in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8965(C_word c,C_word * av)19128 static void C_ccall f_8965(C_word c,C_word *av){
19129 C_word tmp;
19130 C_word t0=av[0];
19131 C_word t1=av[1];
19132 C_word t2;
19133 C_word *a;
19134 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
19135 C_save_and_reclaim((void *)f_8965,c,av);}
19136 /* expand.scm:743: scheme#string-append */
19137 t2=*((C_word*)lf[38]+1);{
19138 C_word *av2;
19139 if(c >= 8) {
19140   av2=av;
19141 } else {
19142   av2=C_alloc(8);
19143 }
19144 av2[0]=t2;
19145 av2[1]=((C_word*)t0)[2];
19146 av2[2]=lf[147];
19147 av2[3]=((C_word*)t0)[3];
19148 av2[4]=lf[148];
19149 av2[5]=t1;
19150 av2[6]=lf[149];
19151 av2[7]=((C_word*)t0)[4];
19152 ((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}
19153 
19154 /* k8970 in k8949 in err in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8972(C_word c,C_word * av)19155 static void C_ccall f_8972(C_word c,C_word *av){
19156 C_word tmp;
19157 C_word t0=av[0];
19158 C_word t1=av[1];
19159 C_word t2;
19160 C_word *a;
19161 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
19162 C_save_and_reclaim((void *)f_8972,c,av);}
19163 /* expand.scm:744: scheme#string-append */
19164 t2=*((C_word*)lf[38]+1);{
19165 C_word *av2;
19166 if(c >= 6) {
19167   av2=av;
19168 } else {
19169   av2=C_alloc(6);
19170 }
19171 av2[0]=t2;
19172 av2[1]=((C_word*)t0)[2];
19173 av2[2]=lf[150];
19174 av2[3]=t1;
19175 av2[4]=lf[151];
19176 av2[5]=((C_word*)t0)[3];
19177 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
19178 
19179 /* lambda-list? in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8974(C_word c,C_word * av)19180 static void C_ccall f_8974(C_word c,C_word *av){
19181 C_word tmp;
19182 C_word t0=av[0];
19183 C_word t1=av[1];
19184 C_word t2=av[2];
19185 C_word t3;
19186 C_word t4;
19187 C_word *a;
19188 if(c!=3) C_bad_argc_2(c,3,t0);
19189 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
19190 C_save_and_reclaim((void *)f_8974,c,av);}
19191 a=C_alloc(4);
19192 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8978,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
19193 /* expand.scm:748: ##sys#extended-lambda-list? */
19194 t4=*((C_word*)lf[64]+1);{
19195 C_word *av2=av;
19196 av2[0]=t4;
19197 av2[1]=t3;
19198 av2[2]=t2;
19199 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
19200 
19201 /* k8976 in lambda-list? in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8978(C_word c,C_word * av)19202 static void C_ccall f_8978(C_word c,C_word *av){
19203 C_word tmp;
19204 C_word t0=av[0];
19205 C_word t1=av[1];
19206 C_word t2;
19207 C_word t3;
19208 C_word *a;
19209 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
19210 C_save_and_reclaim((void *)f_8978,c,av);}
19211 a=C_alloc(3);
19212 if(C_truep(t1)){
19213 t2=((C_word*)t0)[2];{
19214 C_word *av2=av;
19215 av2[0]=t2;
19216 av2[1]=t1;
19217 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
19218 else{
19219 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8986,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp);
19220 t3=((C_word*)t0)[2];{
19221 C_word *av2=av;
19222 av2[0]=t3;
19223 av2[1]=(
19224   f_8986(((C_word*)t0)[3])
19225 );
19226 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
19227 
19228 /* loop in k8976 in lambda-list? in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_8986(C_word t1)19229 static C_word C_fcall f_8986(C_word t1){
19230 C_word tmp;
19231 C_word t2;
19232 C_word t3;
19233 C_word t4;
19234 C_word t5;
19235 C_word t6;
19236 C_stack_overflow_check;
19237 loop:{}
19238 t2=C_i_nullp(t1);
19239 if(C_truep(t2)){
19240 return(t2);}
19241 else{
19242 t3=C_i_symbolp(t1);
19243 if(C_truep(t3)){
19244 return(t3);}
19245 else{
19246 if(C_truep(C_i_pairp(t1))){
19247 t4=C_u_i_car(t1);
19248 if(C_truep(C_i_symbolp(t4))){
19249 t6=C_u_i_cdr(t1);
19250 t1=t6;
19251 goto loop;}
19252 else{
19253 return(C_SCHEME_FALSE);}}
19254 else{
19255 return(C_SCHEME_FALSE);}}}}
19256 
19257 /* variable? in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9019(C_word c,C_word * av)19258 static void C_ccall f_9019(C_word c,C_word *av){
19259 C_word tmp;
19260 C_word t0=av[0];
19261 C_word t1=av[1];
19262 C_word t2=av[2];
19263 C_word t3;
19264 C_word *a;
19265 if(c!=3) C_bad_argc_2(c,3,t0);
19266 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19267 C_save_and_reclaim((void *)f_9019,c,av);}
19268 t3=t1;{
19269 C_word *av2=av;
19270 av2[0]=t3;
19271 av2[1]=C_i_symbolp(t2);
19272 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19273 
19274 /* proper-list? in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9025(C_word c,C_word * av)19275 static void C_ccall f_9025(C_word c,C_word *av){
19276 C_word tmp;
19277 C_word t0=av[0];
19278 C_word t1=av[1];
19279 C_word t2=av[2];
19280 C_word t3;
19281 C_word t4;
19282 C_word *a;
19283 if(c!=3) C_bad_argc_2(c,3,t0);
19284 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
19285 C_save_and_reclaim((void *)f_9025,c,av);}
19286 a=C_alloc(3);
19287 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9031,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp);
19288 t4=t1;{
19289 C_word *av2=av;
19290 av2[0]=t4;
19291 av2[1]=(
19292   f_9031(t2)
19293 );
19294 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
19295 
19296 /* loop in proper-list? in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9031(C_word t1)19297 static C_word C_fcall f_9031(C_word t1){
19298 C_word tmp;
19299 C_word t2;
19300 C_word t3;
19301 C_word t4;
19302 C_stack_overflow_check;
19303 loop:{}
19304 t2=C_eqp(t1,C_SCHEME_END_OF_LIST);
19305 if(C_truep(t2)){
19306 return(t2);}
19307 else{
19308 if(C_truep(C_i_pairp(t1))){
19309 t4=C_u_i_cdr(t1);
19310 t1=t4;
19311 goto loop;}
19312 else{
19313 return(C_SCHEME_FALSE);}}}
19314 
19315 /* k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9052(C_word t0,C_word t1)19316 static void C_fcall f_9052(C_word t0,C_word t1){
19317 C_word tmp;
19318 C_word t2;
19319 C_word t3;
19320 C_word t4;
19321 C_word t5;
19322 C_word *a;
19323 if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
19324 C_save_and_reclaim_args((void *)trf_9052,2,t0,t1);}
19325 a=C_alloc(12);
19326 t2=C_SCHEME_UNDEFINED;
19327 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19328 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9057,a[2]=((C_word*)t0)[2],a[3]=t3,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)li87),tmp=(C_word)a,a+=10,tmp));
19329 t5=((C_word*)t3)[1];
19330 f_9057(t5,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}
19331 
19332 /* walk in k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9057(C_word t0,C_word t1,C_word t2,C_word t3)19333 static void C_fcall f_9057(C_word t0,C_word t1,C_word t2,C_word t3){
19334 C_word tmp;
19335 C_word t4;
19336 C_word t5;
19337 C_word t6;
19338 C_word t7;
19339 C_word t8;
19340 C_word t9;
19341 C_word t10;
19342 C_word t11;
19343 C_word t12;
19344 C_word t13;
19345 C_word t14;
19346 C_word t15;
19347 C_word t16;
19348 C_word *a;
19349 loop:
19350 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
19351 C_save_and_reclaim_args((void *)trf_9057,4,t0,t1,t2,t3);}
19352 a=C_alloc(8);
19353 if(C_truep(C_i_vectorp(t3))){
19354 t4=C_i_vector_ref(t3,C_fix(0));
19355 t5=C_block_size(t3);
19356 t6=C_fixnum_greaterp(t5,C_fix(1));
19357 t7=(C_truep(t6)?C_i_vector_ref(t3,C_fix(1)):C_fix(0));
19358 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9076,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
19359 t9=C_eqp(t5,C_fix(1));
19360 if(C_truep(t9)){
19361 t10=t8;
19362 f_9076(t10,C_fix(1));}
19363 else{
19364 t10=C_fixnum_greaterp(t5,C_fix(2));
19365 t11=t8;
19366 f_9076(t11,(C_truep(t10)?C_i_vector_ref(t3,C_fix(2)):C_fix(99999)));}}
19367 else{
19368 if(C_truep(C_immp(t3))){
19369 t4=C_eqp(t3,t2);
19370 if(C_truep(C_i_not(t4))){
19371 /* expand.scm:789: err */
19372 t5=((C_word*)((C_word*)t0)[2])[1];
19373 f_8947(t5,t1,lf[155]);}
19374 else{
19375 t5=C_SCHEME_UNDEFINED;
19376 t6=t1;{
19377 C_word av2[2];
19378 av2[0]=t6;
19379 av2[1]=t5;
19380 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
19381 else{
19382 if(C_truep(C_i_symbolp(t3))){
19383 t4=C_eqp(t3,lf[156]);
19384 if(C_truep(t4)){
19385 t5=t1;{
19386 C_word av2[2];
19387 av2[0]=t5;
19388 av2[1]=C_SCHEME_TRUE;
19389 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19390 else{
19391 t5=C_eqp(t3,lf[157]);
19392 if(C_truep(t5)){
19393 /* expand.scm:793: test */
19394 t6=((C_word*)((C_word*)t0)[4])[1];
19395 f_8935(t6,t1,t2,*((C_word*)lf[158]+1),lf[159]);}
19396 else{
19397 t6=C_eqp(t3,lf[160]);
19398 if(C_truep(t6)){
19399 /* expand.scm:794: test */
19400 t7=((C_word*)((C_word*)t0)[4])[1];
19401 f_8935(t7,t1,t2,((C_word*)((C_word*)t0)[5])[1],lf[161]);}
19402 else{
19403 t7=C_eqp(t3,lf[162]);
19404 if(C_truep(t7)){
19405 /* expand.scm:795: test */
19406 t8=((C_word*)((C_word*)t0)[4])[1];
19407 f_8935(t8,t1,t2,*((C_word*)lf[163]+1),lf[164]);}
19408 else{
19409 t8=C_eqp(t3,lf[165]);
19410 if(C_truep(t8)){
19411 /* expand.scm:796: test */
19412 t9=((C_word*)((C_word*)t0)[4])[1];
19413 f_8935(t9,t1,t2,((C_word*)((C_word*)t0)[6])[1],lf[166]);}
19414 else{
19415 t9=C_eqp(t3,lf[167]);
19416 if(C_truep(t9)){
19417 /* expand.scm:797: test */
19418 t10=((C_word*)((C_word*)t0)[4])[1];
19419 f_8935(t10,t1,t2,*((C_word*)lf[168]+1),lf[169]);}
19420 else{
19421 t10=C_eqp(t3,lf[170]);
19422 if(C_truep(t10)){
19423 /* expand.scm:798: test */
19424 t11=((C_word*)((C_word*)t0)[4])[1];
19425 f_8935(t11,t1,t2,*((C_word*)lf[171]+1),lf[172]);}
19426 else{
19427 t11=C_eqp(t3,lf[173]);
19428 if(C_truep(t11)){
19429 /* expand.scm:799: test */
19430 t12=((C_word*)((C_word*)t0)[4])[1];
19431 f_8935(t12,t1,t2,((C_word*)((C_word*)t0)[7])[1],lf[174]);}
19432 else{
19433 t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9254,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word)li86),tmp=(C_word)a,a+=5,tmp);
19434 /* expand.scm:801: test */
19435 t13=((C_word*)((C_word*)t0)[4])[1];
19436 f_8935(t13,t1,t2,t12,lf[175]);}}}}}}}}}
19437 else{
19438 t4=C_i_pairp(t3);
19439 if(C_truep(C_i_not(t4))){
19440 /* expand.scm:808: err */
19441 t5=((C_word*)((C_word*)t0)[2])[1];
19442 f_8947(t5,t1,lf[176]);}
19443 else{
19444 t5=C_i_pairp(t2);
19445 if(C_truep(C_i_not(t5))){
19446 /* expand.scm:809: err */
19447 t6=((C_word*)((C_word*)t0)[2])[1];
19448 f_8947(t6,t1,lf[177]);}
19449 else{
19450 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9311,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
19451 /* expand.scm:811: walk */
19452 t14=t6;
19453 t15=C_i_car(t2);
19454 t16=C_i_car(t3);
19455 t1=t14;
19456 t2=t15;
19457 t3=t16;
19458 goto loop;}}}}}}
19459 
19460 /* k9074 in walk in k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9076(C_word t0,C_word t1)19461 static void C_fcall f_9076(C_word t0,C_word t1){
19462 C_word tmp;
19463 C_word t2;
19464 C_word t3;
19465 C_word t4;
19466 C_word t5;
19467 C_word *a;
19468 if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
19469 C_save_and_reclaim_args((void *)trf_9076,2,t0,t1);}
19470 a=C_alloc(11);
19471 t2=C_SCHEME_UNDEFINED;
19472 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19473 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9081,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li85),tmp=(C_word)a,a+=9,tmp));
19474 t5=((C_word*)t3)[1];
19475 f_9081(t5,((C_word*)t0)[6],((C_word*)t0)[7],C_fix(0));}
19476 
19477 /* doloop1937 in k9074 in walk in k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9081(C_word t0,C_word t1,C_word t2,C_word t3)19478 static void C_fcall f_9081(C_word t0,C_word t1,C_word t2,C_word t3){
19479 C_word tmp;
19480 C_word t4;
19481 C_word t5;
19482 C_word t6;
19483 C_word t7;
19484 C_word *a;
19485 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
19486 C_save_and_reclaim_args((void *)trf_9081,4,t0,t1,t2,t3);}
19487 a=C_alloc(6);
19488 t4=C_eqp(t2,C_SCHEME_END_OF_LIST);
19489 if(C_truep(t4)){
19490 if(C_truep(C_fixnum_lessp(t3,((C_word*)t0)[2]))){
19491 /* expand.scm:782: err */
19492 t5=((C_word*)((C_word*)t0)[3])[1];
19493 f_8947(t5,t1,lf[152]);}
19494 else{
19495 t5=t1;{
19496 C_word av2[2];
19497 av2[0]=t5;
19498 av2[1]=C_SCHEME_UNDEFINED;
19499 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
19500 else{
19501 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9100,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
19502 if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[5]))){
19503 /* expand.scm:784: err */
19504 t6=((C_word*)((C_word*)t0)[3])[1];
19505 f_8947(t6,t5,lf[153]);}
19506 else{
19507 t6=C_i_pairp(t2);
19508 if(C_truep(C_i_not(t6))){
19509 /* expand.scm:786: err */
19510 t7=((C_word*)((C_word*)t0)[3])[1];
19511 f_8947(t7,t5,lf[154]);}
19512 else{
19513 /* expand.scm:787: walk */
19514 t7=((C_word*)((C_word*)t0)[6])[1];
19515 f_9057(t7,t5,C_i_car(t2),((C_word*)t0)[7]);}}}}
19516 
19517 /* k9098 in doloop1937 in k9074 in walk in k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9100(C_word c,C_word * av)19518 static void C_ccall f_9100(C_word c,C_word *av){
19519 C_word tmp;
19520 C_word t0=av[0];
19521 C_word t1=av[1];
19522 C_word t2;
19523 C_word *a;
19524 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
19525 C_save_and_reclaim((void *)f_9100,c,av);}
19526 t2=((C_word*)((C_word*)t0)[2])[1];
19527 f_9081(t2,((C_word*)t0)[3],C_i_cdr(((C_word*)t0)[4]),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
19528 
19529 /* a9253 in walk in k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9254(C_word c,C_word * av)19530 static void C_ccall f_9254(C_word c,C_word *av){
19531 C_word tmp;
19532 C_word t0=av[0];
19533 C_word t1=av[1];
19534 C_word t2=av[2];
19535 C_word t3;
19536 C_word t4;
19537 C_word t5;
19538 C_word *a;
19539 if(c!=3) C_bad_argc_2(c,3,t0);
19540 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19541 C_save_and_reclaim((void *)f_9254,c,av);}
19542 if(C_truep(C_i_symbolp(t2))){
19543 t3=(
19544 /* expand.scm:804: lookup */
19545   f_5558(t2,((C_word*)t0)[2])
19546 );
19547 t4=C_i_symbolp(t3);
19548 t5=t1;{
19549 C_word *av2=av;
19550 av2[0]=t5;
19551 av2[1]=(C_truep(t4)?C_eqp(t3,((C_word*)t0)[3]):C_eqp(t2,((C_word*)t0)[3]));
19552 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19553 else{
19554 t3=C_i_symbolp(C_SCHEME_FALSE);
19555 t4=t1;{
19556 C_word *av2=av;
19557 av2[0]=t4;
19558 av2[1]=(C_truep(t3)?C_eqp(C_SCHEME_FALSE,((C_word*)t0)[3]):C_eqp(t2,((C_word*)t0)[3]));
19559 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
19560 
19561 /* k9309 in walk in k9050 in k8928 in ##sys#check-syntax in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9311(C_word c,C_word * av)19562 static void C_ccall f_9311(C_word c,C_word *av){
19563 C_word tmp;
19564 C_word t0=av[0];
19565 C_word t1=av[1];
19566 C_word t2;
19567 C_word *a;
19568 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
19569 C_save_and_reclaim((void *)f_9311,c,av);}
19570 /* expand.scm:812: walk */
19571 t2=((C_word*)((C_word*)t0)[2])[1];
19572 f_9057(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}
19573 
19574 /* chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9364(C_word t1,C_word t2,C_word t3)19575 static void C_fcall f_9364(C_word t1,C_word t2,C_word t3){
19576 C_word tmp;
19577 C_word t4;
19578 C_word t5;
19579 C_word *a;
19580 if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
19581 C_save_and_reclaim_args((void *)trf_9364,3,t1,t2,t3);}
19582 a=C_alloc(8);
19583 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9370,a[2]=t3,a[3]=t2,a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp);
19584 t5=t1;{
19585 C_word av2[2];
19586 av2[0]=t5;
19587 av2[1]=C_a_i_record2(&a,2,lf[27],t4);
19588 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19589 
19590 /* a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9370(C_word c,C_word * av)19591 static void C_ccall f_9370(C_word c,C_word *av){
19592 C_word tmp;
19593 C_word t0=av[0];
19594 C_word t1=av[1];
19595 C_word t2=av[2];
19596 C_word t3=av[3];
19597 C_word t4=av[4];
19598 C_word t5;
19599 C_word t6;
19600 C_word t7;
19601 C_word t8;
19602 C_word t9;
19603 C_word t10;
19604 C_word *a;
19605 if(c!=5) C_bad_argc_2(c,5,t0);
19606 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
19607 C_save_and_reclaim((void *)f_9370,c,av);}
19608 a=C_alloc(15);
19609 t5=C_SCHEME_END_OF_LIST;
19610 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
19611 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9373,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp);
19612 t8=C_i_listp(t3);
19613 t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9420,a[2]=t7,a[3]=t6,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t1,a[9]=t2,tmp=(C_word)a,a+=10,tmp);
19614 if(C_truep(t8)){
19615 t10=t9;{
19616 C_word *av2=av;
19617 av2[0]=t10;
19618 av2[1]=t8;
19619 f_9420(2,av2);}}
19620 else{
19621 /* expand.scm:831: ##sys#error */
19622 t10=*((C_word*)lf[28]+1);{
19623 C_word *av2=av;
19624 av2[0]=t10;
19625 av2[1]=t9;
19626 av2[2]=lf[182];
19627 av2[3]=t3;
19628 ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}}
19629 
19630 /* inherit-pair-line-numbers in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9373(C_word t1,C_word t2,C_word t3)19631 static void C_fcall f_9373(C_word t1,C_word t2,C_word t3){
19632 C_word tmp;
19633 C_word t4;
19634 C_word t5;
19635 C_word t6;
19636 C_word t7;
19637 C_word *a;
19638 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
19639 C_save_and_reclaim_args((void *)trf_9373,3,t1,t2,t3);}
19640 a=C_alloc(10);
19641 t4=C_i_car(t3);
19642 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9380,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
19643 if(C_truep(t4)){
19644 if(C_truep(C_i_symbolp(t4))){
19645 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9389,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
19646 /* expand.scm:825: get-line-number */
19647 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[145]+1));
19648 C_word av2[3];
19649 av2[0]=*((C_word*)lf[145]+1);
19650 av2[1]=t6;
19651 av2[2]=t2;
19652 tp(3,av2);}}
19653 else{
19654 t6=t1;{
19655 C_word av2[2];
19656 av2[0]=t6;
19657 av2[1]=t3;
19658 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
19659 else{
19660 t6=t1;{
19661 C_word av2[2];
19662 av2[0]=t6;
19663 av2[1]=t3;
19664 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
19665 
19666 /* k9378 in inherit-pair-line-numbers in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9380(C_word c,C_word * av)19667 static void C_ccall f_9380(C_word c,C_word *av){
19668 C_word tmp;
19669 C_word t0=av[0];
19670 C_word t1=av[1];
19671 C_word t2;
19672 C_word *a;
19673 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19674 C_save_and_reclaim((void *)f_9380,c,av);}
19675 t2=((C_word*)t0)[2];{
19676 C_word *av2=av;
19677 av2[0]=t2;
19678 av2[1]=((C_word*)t0)[3];
19679 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
19680 
19681 /* k9387 in inherit-pair-line-numbers in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9389(C_word c,C_word * av)19682 static void C_ccall f_9389(C_word c,C_word *av){
19683 C_word tmp;
19684 C_word t0=av[0];
19685 C_word t1=av[1];
19686 C_word t2;
19687 C_word t3;
19688 C_word *a;
19689 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
19690 C_save_and_reclaim((void *)f_9389,c,av);}
19691 a=C_alloc(7);
19692 if(C_truep(t1)){
19693 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
19694 /* expand.scm:826: chicken.internal#hash-table-ref */
19695 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[146]+1));
19696 C_word *av2;
19697 if(c >= 4) {
19698   av2=av;
19699 } else {
19700   av2=C_alloc(4);
19701 }
19702 av2[0]=*((C_word*)lf[146]+1);
19703 av2[1]=t2;
19704 av2[2]=*((C_word*)lf[120]+1);
19705 av2[3]=((C_word*)t0)[5];
19706 tp(4,av2);}}
19707 else{
19708 t2=((C_word*)t0)[3];{
19709 C_word *av2=av;
19710 av2[0]=t2;
19711 av2[1]=((C_word*)t0)[2];
19712 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
19713 
19714 /* k9393 in k9387 in inherit-pair-line-numbers in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9395(C_word c,C_word * av)19715 static void C_ccall f_9395(C_word c,C_word *av){
19716 C_word tmp;
19717 C_word t0=av[0];
19718 C_word t1=av[1];
19719 C_word t2;
19720 C_word t3;
19721 C_word t4;
19722 C_word t5;
19723 C_word *a;
19724 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
19725 C_save_and_reclaim((void *)f_9395,c,av);}
19726 a=C_alloc(6);
19727 t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
19728 if(C_truep(t2)){
19729 if(C_truep(C_i_assq(((C_word*)t0)[2],t2))){
19730 t3=((C_word*)t0)[3];{
19731 C_word *av2=av;
19732 av2[0]=t3;
19733 av2[1]=((C_word*)t0)[2];
19734 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19735 else{
19736 t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]);
19737 t4=C_a_i_cons(&a,2,t3,t2);
19738 /* expand.scm:828: chicken.internal#hash-table-set! */
19739 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[179]+1));
19740 C_word *av2;
19741 if(c >= 5) {
19742   av2=av;
19743 } else {
19744   av2=C_alloc(5);
19745 }
19746 av2[0]=*((C_word*)lf[179]+1);
19747 av2[1]=((C_word*)t0)[5];
19748 av2[2]=*((C_word*)lf[120]+1);
19749 av2[3]=((C_word*)t0)[6];
19750 av2[4]=t4;
19751 tp(5,av2);}}}
19752 else{
19753 t3=((C_word*)t0)[3];{
19754 C_word *av2=av;
19755 av2[0]=t3;
19756 av2[1]=((C_word*)t0)[2];
19757 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
19758 
19759 /* k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9420(C_word c,C_word * av)19760 static void C_ccall f_9420(C_word c,C_word *av){
19761 C_word tmp;
19762 C_word t0=av[0];
19763 C_word t1=av[1];
19764 C_word t2;
19765 C_word t3;
19766 C_word t4;
19767 C_word t5;
19768 C_word t6;
19769 C_word t7;
19770 C_word t8;
19771 C_word t9;
19772 C_word t10;
19773 C_word t11;
19774 C_word t12;
19775 C_word t13;
19776 C_word t14;
19777 C_word t15;
19778 C_word t16;
19779 C_word *a;
19780 if(C_unlikely(!C_demand(C_calculate_demand(42,c,4)))){
19781 C_save_and_reclaim((void *)f_9420,c,av);}
19782 a=C_alloc(42);
19783 t2=C_SCHEME_UNDEFINED;
19784 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19785 t4=C_SCHEME_UNDEFINED;
19786 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
19787 t6=C_SCHEME_UNDEFINED;
19788 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
19789 t8=C_SCHEME_UNDEFINED;
19790 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
19791 t10=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9422,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word)li90),tmp=(C_word)a,a+=7,tmp));
19792 t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9508,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li94),tmp=(C_word)a,a+=5,tmp));
19793 t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9727,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp));
19794 t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9752,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=((C_word*)t0)[3],a[7]=t3,a[8]=((C_word)li96),tmp=(C_word)a,a+=9,tmp));
19795 if(C_truep(((C_word*)t0)[6])){
19796 /* expand.scm:922: handler */
19797 t14=((C_word*)t0)[7];{
19798 C_word *av2;
19799 if(c >= 5) {
19800   av2=av;
19801 } else {
19802   av2=C_alloc(5);
19803 }
19804 av2[0]=t14;
19805 av2[1]=((C_word*)t0)[8];
19806 av2[2]=((C_word*)t0)[9];
19807 av2[3]=((C_word*)t3)[1];
19808 av2[4]=((C_word*)t5)[1];
19809 ((C_proc)C_fast_retrieve_proc(t14))(5,av2);}}
19810 else{
19811 t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9884,a[2]=t9,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
19812 t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9888,a[2]=((C_word*)t0)[7],a[3]=t14,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
19813 /* expand.scm:928: rename */
19814 t16=((C_word*)t3)[1];{
19815 C_word *av2;
19816 if(c >= 3) {
19817   av2=av;
19818 } else {
19819   av2=C_alloc(3);
19820 }
19821 av2[0]=t16;
19822 av2[1]=t15;
19823 av2[2]=((C_word*)t0)[9];
19824 f_9422(3,av2);}}}
19825 
19826 /* rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9422(C_word c,C_word * av)19827 static void C_ccall f_9422(C_word c,C_word *av){
19828 C_word tmp;
19829 C_word t0=av[0];
19830 C_word t1=av[1];
19831 C_word t2=av[2];
19832 C_word t3;
19833 C_word t4;
19834 C_word t5;
19835 C_word t6;
19836 C_word t7;
19837 C_word t8;
19838 C_word *a;
19839 loop:
19840 if(c!=3) C_bad_argc_2(c,3,t0);
19841 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
19842 av[0]=t0;
19843 av[1]=t1;
19844 av[2]=t2;
19845 C_save_and_reclaim((void *)f_9422,c,av);}
19846 a=C_alloc(7);
19847 if(C_truep(C_i_pairp(t2))){
19848 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9440,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
19849 /* expand.scm:834: rename */
19850 t7=t3;
19851 t8=C_u_i_car(t2);
19852 t1=t7;
19853 t2=t8;
19854 c=3;
19855 goto loop;}
19856 else{
19857 if(C_truep(C_i_vectorp(t2))){
19858 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9461,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
19859 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9465,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
19860 /* expand.scm:836: scheme#vector->list */
19861 t5=*((C_word*)lf[181]+1);{
19862 C_word *av2=av;
19863 av2[0]=t5;
19864 av2[1]=t4;
19865 av2[2]=t2;
19866 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19867 else{
19868 t3=C_i_symbolp(t2);
19869 if(C_truep(C_i_not(t3))){
19870 t4=t1;{
19871 C_word *av2=av;
19872 av2[0]=t4;
19873 av2[1]=t2;
19874 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
19875 else{
19876 t4=C_i_assq(t2,((C_word*)((C_word*)t0)[4])[1]);
19877 if(C_truep(t4)){
19878 t5=t1;{
19879 C_word *av2=av;
19880 av2[0]=t5;
19881 av2[1]=C_i_cdr(t4);
19882 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19883 else{
19884 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9491,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
19885 /* expand.scm:843: macro-alias */
19886 f_5575(t5,t2,((C_word*)t0)[5]);}}}}}
19887 
19888 /* k9438 in rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9440(C_word c,C_word * av)19889 static void C_ccall f_9440(C_word c,C_word *av){
19890 C_word tmp;
19891 C_word t0=av[0];
19892 C_word t1=av[1];
19893 C_word t2;
19894 C_word t3;
19895 C_word *a;
19896 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
19897 C_save_and_reclaim((void *)f_9440,c,av);}
19898 a=C_alloc(6);
19899 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9444,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
19900 /* expand.scm:834: rename */
19901 t3=((C_word*)((C_word*)t0)[5])[1];{
19902 C_word *av2;
19903 if(c >= 3) {
19904   av2=av;
19905 } else {
19906   av2=C_alloc(3);
19907 }
19908 av2[0]=t3;
19909 av2[1]=t2;
19910 av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
19911 f_9422(3,av2);}}
19912 
19913 /* k9442 in k9438 in rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9444(C_word c,C_word * av)19914 static void C_ccall f_9444(C_word c,C_word *av){
19915 C_word tmp;
19916 C_word t0=av[0];
19917 C_word t1=av[1];
19918 C_word t2;
19919 C_word t3;
19920 C_word *a;
19921 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
19922 C_save_and_reclaim((void *)f_9444,c,av);}
19923 a=C_alloc(3);
19924 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
19925 /* expand.scm:834: inherit-pair-line-numbers */
19926 f_9373(((C_word*)t0)[4],((C_word*)t0)[5],t2);}
19927 
19928 /* k9459 in rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9461(C_word c,C_word * av)19929 static void C_ccall f_9461(C_word c,C_word *av){
19930 C_word tmp;
19931 C_word t0=av[0];
19932 C_word t1=av[1];
19933 C_word t2;
19934 C_word *a;
19935 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19936 C_save_and_reclaim((void *)f_9461,c,av);}
19937 /* expand.scm:836: scheme#list->vector */
19938 t2=*((C_word*)lf[180]+1);{
19939 C_word *av2;
19940 if(c >= 3) {
19941   av2=av;
19942 } else {
19943   av2=C_alloc(3);
19944 }
19945 av2[0]=t2;
19946 av2[1]=((C_word*)t0)[2];
19947 av2[2]=t1;
19948 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
19949 
19950 /* k9463 in rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9465(C_word c,C_word * av)19951 static void C_ccall f_9465(C_word c,C_word *av){
19952 C_word tmp;
19953 C_word t0=av[0];
19954 C_word t1=av[1];
19955 C_word t2;
19956 C_word *a;
19957 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19958 C_save_and_reclaim((void *)f_9465,c,av);}
19959 /* expand.scm:836: rename */
19960 t2=((C_word*)((C_word*)t0)[2])[1];{
19961 C_word *av2;
19962 if(c >= 3) {
19963   av2=av;
19964 } else {
19965   av2=C_alloc(3);
19966 }
19967 av2[0]=t2;
19968 av2[1]=((C_word*)t0)[3];
19969 av2[2]=t1;
19970 f_9422(3,av2);}}
19971 
19972 /* k9489 in rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9491(C_word c,C_word * av)19973 static void C_ccall f_9491(C_word c,C_word *av){
19974 C_word tmp;
19975 C_word t0=av[0];
19976 C_word t1=av[1];
19977 C_word t2;
19978 C_word t3;
19979 C_word t4;
19980 C_word t5;
19981 C_word *a;
19982 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
19983 C_save_and_reclaim((void *)f_9491,c,av);}
19984 a=C_alloc(6);
19985 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
19986 t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]);
19987 t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
19988 t5=((C_word*)t0)[4];{
19989 C_word *av2=av;
19990 av2[0]=t5;
19991 av2[1]=t1;
19992 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19993 
19994 /* compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9508(C_word c,C_word * av)19995 static void C_ccall f_9508(C_word c,C_word *av){
19996 C_word tmp;
19997 C_word t0=av[0];
19998 C_word t1=av[1];
19999 C_word t2=av[2];
20000 C_word t3=av[3];
20001 C_word t4;
20002 C_word t5;
20003 C_word t6;
20004 C_word t7;
20005 C_word t8;
20006 C_word t9;
20007 C_word t10;
20008 C_word t11;
20009 C_word t12;
20010 C_word t13;
20011 C_word *a;
20012 loop:
20013 if(c!=4) C_bad_argc_2(c,4,t0);
20014 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
20015 av[0]=t0;
20016 av[1]=t1;
20017 av[2]=t2;
20018 av[3]=t3;
20019 C_save_and_reclaim((void *)f_9508,c,av);}
20020 a=C_alloc(10);
20021 if(C_truep(C_i_pairp(t2))){
20022 if(C_truep(C_i_pairp(t3))){
20023 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9530,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
20024 /* expand.scm:851: compare */
20025 t11=t4;
20026 t12=C_u_i_car(t2);
20027 t13=C_u_i_car(t3);
20028 t1=t11;
20029 t2=t12;
20030 t3=t13;
20031 c=4;
20032 goto loop;}
20033 else{
20034 t4=t1;{
20035 C_word *av2=av;
20036 av2[0]=t4;
20037 av2[1]=C_SCHEME_FALSE;
20038 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
20039 else{
20040 if(C_truep(C_i_vectorp(t2))){
20041 if(C_truep(C_i_vectorp(t3))){
20042 t4=C_block_size(t2);
20043 t5=C_block_size(t3);
20044 t6=C_eqp(t4,t5);
20045 if(C_truep(t6)){
20046 t7=C_SCHEME_UNDEFINED;
20047 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
20048 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9567,a[2]=t4,a[3]=t8,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=((C_word)li91),tmp=(C_word)a,a+=8,tmp));
20049 t10=((C_word*)t8)[1];
20050 f_9567(t10,t1,C_fix(0),C_SCHEME_TRUE);}
20051 else{
20052 t7=t1;{
20053 C_word *av2=av;
20054 av2[0]=t7;
20055 av2[1]=C_SCHEME_FALSE;
20056 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
20057 else{
20058 t4=t1;{
20059 C_word *av2=av;
20060 av2[0]=t4;
20061 av2[1]=C_SCHEME_FALSE;
20062 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
20063 else{
20064 t4=C_i_symbolp(t2);
20065 t5=(C_truep(t4)?C_i_symbolp(t3):C_SCHEME_FALSE);
20066 if(C_truep(t5)){
20067 t6=C_i_getprop(t2,lf[7],C_SCHEME_FALSE);
20068 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9619,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
20069 if(C_truep(t6)){
20070 t8=t7;
20071 f_9619(t8,t6);}
20072 else{
20073 t8=(
20074 /* expand.scm:882: lookup */
20075   f_5558(t2,((C_word*)t0)[3])
20076 );
20077 t9=t7;
20078 f_9619(t9,(C_truep(t8)?t8:t2));}}
20079 else{
20080 t6=t1;{
20081 C_word *av2=av;
20082 av2[0]=t6;
20083 av2[1]=C_eqp(t2,t3);
20084 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}
20085 
20086 /* k9528 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9530(C_word c,C_word * av)20087 static void C_ccall f_9530(C_word c,C_word *av){
20088 C_word tmp;
20089 C_word t0=av[0];
20090 C_word t1=av[1];
20091 C_word t2;
20092 C_word *a;
20093 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
20094 C_save_and_reclaim((void *)f_9530,c,av);}
20095 if(C_truep(t1)){
20096 /* expand.scm:852: compare */
20097 t2=((C_word*)((C_word*)t0)[2])[1];{
20098 C_word *av2;
20099 if(c >= 4) {
20100   av2=av;
20101 } else {
20102   av2=C_alloc(4);
20103 }
20104 av2[0]=t2;
20105 av2[1]=((C_word*)t0)[3];
20106 av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
20107 av2[3]=C_u_i_cdr(((C_word*)t0)[5]);
20108 f_9508(4,av2);}}
20109 else{
20110 t2=((C_word*)t0)[3];{
20111 C_word *av2=av;
20112 av2[0]=t2;
20113 av2[1]=C_SCHEME_FALSE;
20114 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
20115 
20116 /* doloop2022 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9567(C_word t0,C_word t1,C_word t2,C_word t3)20117 static void C_fcall f_9567(C_word t0,C_word t1,C_word t2,C_word t3){
20118 C_word tmp;
20119 C_word t4;
20120 C_word t5;
20121 C_word t6;
20122 C_word t7;
20123 C_word t8;
20124 C_word *a;
20125 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
20126 C_save_and_reclaim_args((void *)trf_9567,4,t0,t1,t2,t3);}
20127 a=C_alloc(5);
20128 t4=C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]);
20129 t5=(C_truep(t4)?t4:C_i_not(t3));
20130 if(C_truep(t5)){
20131 t6=t1;{
20132 C_word av2[2];
20133 av2[0]=t6;
20134 av2[1]=t3;
20135 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
20136 else{
20137 t6=C_fixnum_plus(t2,C_fix(1));
20138 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9588,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
20139 /* expand.scm:858: compare */
20140 t8=((C_word*)((C_word*)t0)[4])[1];{
20141 C_word av2[4];
20142 av2[0]=t8;
20143 av2[1]=t7;
20144 av2[2]=C_i_vector_ref(((C_word*)t0)[5],t2);
20145 av2[3]=C_i_vector_ref(((C_word*)t0)[6],t2);
20146 f_9508(4,av2);}}}
20147 
20148 /* k9586 in doloop2022 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9588(C_word c,C_word * av)20149 static void C_ccall f_9588(C_word c,C_word *av){
20150 C_word tmp;
20151 C_word t0=av[0];
20152 C_word t1=av[1];
20153 C_word t2;
20154 C_word *a;
20155 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
20156 C_save_and_reclaim((void *)f_9588,c,av);}
20157 t2=((C_word*)((C_word*)t0)[2])[1];
20158 f_9567(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
20159 
20160 /* k9617 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9619(C_word t0,C_word t1)20161 static void C_fcall f_9619(C_word t0,C_word t1){
20162 C_word tmp;
20163 C_word t2;
20164 C_word t3;
20165 C_word t4;
20166 C_word t5;
20167 C_word *a;
20168 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
20169 C_save_and_reclaim_args((void *)trf_9619,2,t0,t1);}
20170 a=C_alloc(4);
20171 t2=C_i_getprop(((C_word*)t0)[2],lf[7],C_SCHEME_FALSE);
20172 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9627,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
20173 if(C_truep(t2)){
20174 t4=t3;
20175 f_9627(t4,t2);}
20176 else{
20177 t4=(
20178 /* expand.scm:882: lookup */
20179   f_5558(((C_word*)t0)[2],((C_word*)t0)[4])
20180 );
20181 t5=t3;
20182 f_9627(t5,(C_truep(t4)?t4:((C_word*)t0)[2]));}}
20183 
20184 /* k9625 in k9617 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9627(C_word t0,C_word t1)20185 static void C_fcall f_9627(C_word t0,C_word t1){
20186 C_word tmp;
20187 C_word t2;
20188 C_word t3;
20189 C_word *a;
20190 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
20191 C_save_and_reclaim_args((void *)trf_9627,2,t0,t1);}
20192 a=C_alloc(5);
20193 if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){
20194 if(C_truep(C_i_symbolp(t1))){
20195 t2=((C_word*)t0)[3];{
20196 C_word av2[2];
20197 av2[0]=t2;
20198 av2[1]=C_eqp(((C_word*)t0)[2],t1);
20199 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20200 else{
20201 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9664,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
20202 /* expand.scm:870: ##sys#macro-environment */
20203 t3=*((C_word*)lf[18]+1);{
20204 C_word av2[2];
20205 av2[0]=t3;
20206 av2[1]=t2;
20207 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20208 else{
20209 if(C_truep(C_i_symbolp(t1))){
20210 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9692,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
20211 /* expand.scm:874: ##sys#macro-environment */
20212 t3=*((C_word*)lf[18]+1);{
20213 C_word av2[2];
20214 av2[0]=t3;
20215 av2[1]=t2;
20216 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
20217 else{
20218 t2=((C_word*)t0)[3];{
20219 C_word av2[2];
20220 av2[0]=t2;
20221 av2[1]=C_eqp(((C_word*)t0)[2],t1);
20222 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
20223 
20224 /* g2063 in k9662 in k9625 in k9617 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9649(C_word t0,C_word t1)20225 static C_word C_fcall f_9649(C_word t0,C_word t1){
20226 C_word tmp;
20227 C_word t2;
20228 C_stack_overflow_check;{}
20229 return(C_eqp(C_i_cdr(t1),((C_word*)t0)[2]));}
20230 
20231 /* k9662 in k9625 in k9617 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9664(C_word c,C_word * av)20232 static void C_ccall f_9664(C_word c,C_word *av){
20233 C_word tmp;
20234 C_word t0=av[0];
20235 C_word t1=av[1];
20236 C_word t2;
20237 C_word t3;
20238 C_word t4;
20239 C_word *a;
20240 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
20241 C_save_and_reclaim((void *)f_9664,c,av);}
20242 a=C_alloc(4);
20243 t2=C_i_assq(((C_word*)t0)[2],t1);
20244 if(C_truep(t2)){
20245 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9649,a[2]=((C_word*)t0)[3],a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp);
20246 /* expand.scm:869: g2063 */
20247 t4=((C_word*)t0)[4];{
20248 C_word *av2=av;
20249 av2[0]=t4;
20250 av2[1]=(
20251 /* expand.scm:869: g2063 */
20252   f_9649(t3,t2)
20253 );
20254 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20255 else{
20256 t3=((C_word*)t0)[4];{
20257 C_word *av2=av;
20258 av2[0]=t3;
20259 av2[1]=C_SCHEME_FALSE;
20260 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20261 
20262 /* g2072 in k9690 in k9625 in k9617 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9677(C_word t0,C_word t1)20263 static C_word C_fcall f_9677(C_word t0,C_word t1){
20264 C_word tmp;
20265 C_word t2;
20266 C_stack_overflow_check;{}
20267 return(C_eqp(((C_word*)t0)[2],C_i_cdr(t1)));}
20268 
20269 /* k9690 in k9625 in k9617 in compare in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9692(C_word c,C_word * av)20270 static void C_ccall f_9692(C_word c,C_word *av){
20271 C_word tmp;
20272 C_word t0=av[0];
20273 C_word t1=av[1];
20274 C_word t2;
20275 C_word t3;
20276 C_word t4;
20277 C_word *a;
20278 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
20279 C_save_and_reclaim((void *)f_9692,c,av);}
20280 a=C_alloc(4);
20281 t2=C_i_assq(((C_word*)t0)[2],t1);
20282 if(C_truep(t2)){
20283 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9677,a[2]=((C_word*)t0)[3],a[3]=((C_word)li93),tmp=(C_word)a,a+=4,tmp);
20284 /* expand.scm:874: g2072 */
20285 t4=((C_word*)t0)[4];{
20286 C_word *av2=av;
20287 av2[0]=t4;
20288 av2[1]=(
20289 /* expand.scm:874: g2072 */
20290   f_9677(t3,t2)
20291 );
20292 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20293 else{
20294 t3=((C_word*)t0)[4];{
20295 C_word *av2=av;
20296 av2[0]=t3;
20297 av2[1]=C_SCHEME_FALSE;
20298 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20299 
20300 /* assq-reverse in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9727(C_word t1,C_word t2)20301 static C_word C_fcall f_9727(C_word t1,C_word t2){
20302 C_word tmp;
20303 C_word t3;
20304 C_word t4;
20305 C_word t5;
20306 C_word t6;
20307 C_word t7;
20308 C_stack_overflow_check;
20309 loop:{}
20310 if(C_truep(C_i_nullp(t2))){
20311 return(C_SCHEME_FALSE);}
20312 else{
20313 t3=C_i_cdar(t2);
20314 t4=C_eqp(t3,t1);
20315 if(C_truep(t4)){
20316 return(C_u_i_car(t2));}
20317 else{
20318 t6=t1;
20319 t7=C_u_i_cdr(t2);
20320 t1=t6;
20321 t2=t7;
20322 goto loop;}}}
20323 
20324 /* mirror-rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9752(C_word t0,C_word t1,C_word t2)20325 static void C_fcall f_9752(C_word t0,C_word t1,C_word t2){
20326 C_word tmp;
20327 C_word t3;
20328 C_word t4;
20329 C_word t5;
20330 C_word t6;
20331 C_word t7;
20332 C_word t8;
20333 C_word t9;
20334 C_word *a;
20335 loop:
20336 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
20337 C_save_and_reclaim_args((void *)trf_9752,3,t0,t1,t2);}
20338 a=C_alloc(7);
20339 if(C_truep(C_i_pairp(t2))){
20340 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9770,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
20341 /* expand.scm:897: mirror-rename */
20342 t8=t3;
20343 t9=C_u_i_car(t2);
20344 t1=t8;
20345 t2=t9;
20346 goto loop;}
20347 else{
20348 if(C_truep(C_i_vectorp(t2))){
20349 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9791,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
20350 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9795,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
20351 /* expand.scm:899: scheme#vector->list */
20352 t5=*((C_word*)lf[181]+1);{
20353 C_word av2[3];
20354 av2[0]=t5;
20355 av2[1]=t4;
20356 av2[2]=t2;
20357 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20358 else{
20359 t3=C_i_symbolp(t2);
20360 if(C_truep(C_i_not(t3))){
20361 t4=t1;{
20362 C_word av2[2];
20363 av2[0]=t4;
20364 av2[1]=t2;
20365 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20366 else{
20367 t4=(
20368 /* expand.scm:902: lookup */
20369   f_5558(t2,((C_word*)t0)[4])
20370 );
20371 t5=(
20372 /* expand.scm:903: assq-reverse */
20373   f_9727(t2,((C_word*)((C_word*)t0)[6])[1])
20374 );
20375 if(C_truep(t5)){
20376 t6=t1;{
20377 C_word av2[2];
20378 av2[0]=t6;
20379 av2[1]=C_i_car(t5);
20380 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
20381 else{
20382 if(C_truep(C_i_not(t4))){
20383 /* expand.scm:907: rename */
20384 t6=((C_word*)((C_word*)t0)[7])[1];{
20385 C_word av2[3];
20386 av2[0]=t6;
20387 av2[1]=t1;
20388 av2[2]=t2;
20389 f_9422(3,av2);}}
20390 else{
20391 if(C_truep(C_i_pairp(t4))){
20392 /* expand.scm:909: rename */
20393 t6=((C_word*)((C_word*)t0)[7])[1];{
20394 C_word av2[3];
20395 av2[0]=t6;
20396 av2[1]=t1;
20397 av2[2]=t2;
20398 f_9422(3,av2);}}
20399 else{
20400 t6=C_i_getprop(t2,lf[9],C_SCHEME_FALSE);
20401 if(C_truep(t6)){
20402 t7=t1;{
20403 C_word av2[2];
20404 av2[0]=t7;
20405 av2[1]=t6;
20406 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
20407 else{
20408 /* expand.scm:916: rename */
20409 t7=((C_word*)((C_word*)t0)[7])[1];{
20410 C_word av2[3];
20411 av2[0]=t7;
20412 av2[1]=t1;
20413 av2[2]=t2;
20414 f_9422(3,av2);}}}}}}}}}
20415 
20416 /* k9768 in mirror-rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9770(C_word c,C_word * av)20417 static void C_ccall f_9770(C_word c,C_word *av){
20418 C_word tmp;
20419 C_word t0=av[0];
20420 C_word t1=av[1];
20421 C_word t2;
20422 C_word t3;
20423 C_word *a;
20424 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
20425 C_save_and_reclaim((void *)f_9770,c,av);}
20426 a=C_alloc(6);
20427 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9774,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
20428 /* expand.scm:897: mirror-rename */
20429 t3=((C_word*)((C_word*)t0)[5])[1];
20430 f_9752(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}
20431 
20432 /* k9772 in k9768 in mirror-rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9774(C_word c,C_word * av)20433 static void C_ccall f_9774(C_word c,C_word *av){
20434 C_word tmp;
20435 C_word t0=av[0];
20436 C_word t1=av[1];
20437 C_word t2;
20438 C_word t3;
20439 C_word *a;
20440 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
20441 C_save_and_reclaim((void *)f_9774,c,av);}
20442 a=C_alloc(3);
20443 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
20444 /* expand.scm:896: inherit-pair-line-numbers */
20445 f_9373(((C_word*)t0)[4],((C_word*)t0)[5],t2);}
20446 
20447 /* k9789 in mirror-rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9791(C_word c,C_word * av)20448 static void C_ccall f_9791(C_word c,C_word *av){
20449 C_word tmp;
20450 C_word t0=av[0];
20451 C_word t1=av[1];
20452 C_word t2;
20453 C_word *a;
20454 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
20455 C_save_and_reclaim((void *)f_9791,c,av);}
20456 /* expand.scm:899: scheme#list->vector */
20457 t2=*((C_word*)lf[180]+1);{
20458 C_word *av2;
20459 if(c >= 3) {
20460   av2=av;
20461 } else {
20462   av2=C_alloc(3);
20463 }
20464 av2[0]=t2;
20465 av2[1]=((C_word*)t0)[2];
20466 av2[2]=t1;
20467 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
20468 
20469 /* k9793 in mirror-rename in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9795(C_word c,C_word * av)20470 static void C_ccall f_9795(C_word c,C_word *av){
20471 C_word tmp;
20472 C_word t0=av[0];
20473 C_word t1=av[1];
20474 C_word t2;
20475 C_word *a;
20476 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
20477 C_save_and_reclaim((void *)f_9795,c,av);}
20478 /* expand.scm:899: mirror-rename */
20479 t2=((C_word*)((C_word*)t0)[2])[1];
20480 f_9752(t2,((C_word*)t0)[3],t1);}
20481 
20482 /* k9882 in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9884(C_word c,C_word * av)20483 static void C_ccall f_9884(C_word c,C_word *av){
20484 C_word tmp;
20485 C_word t0=av[0];
20486 C_word t1=av[1];
20487 C_word t2;
20488 C_word *a;
20489 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
20490 C_save_and_reclaim((void *)f_9884,c,av);}
20491 /* expand.scm:928: mirror-rename */
20492 t2=((C_word*)((C_word*)t0)[2])[1];
20493 f_9752(t2,((C_word*)t0)[3],t1);}
20494 
20495 /* k9886 in k9418 in a9369 in chicken.syntax#make-er/ir-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9888(C_word c,C_word * av)20496 static void C_ccall f_9888(C_word c,C_word *av){
20497 C_word tmp;
20498 C_word t0=av[0];
20499 C_word t1=av[1];
20500 C_word t2;
20501 C_word *a;
20502 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
20503 C_save_and_reclaim((void *)f_9888,c,av);}
20504 /* expand.scm:928: handler */
20505 t2=((C_word*)t0)[2];{
20506 C_word *av2;
20507 if(c >= 5) {
20508   av2=av;
20509 } else {
20510   av2=C_alloc(5);
20511 }
20512 av2[0]=t2;
20513 av2[1]=((C_word*)t0)[3];
20514 av2[2]=t1;
20515 av2[3]=((C_word*)((C_word*)t0)[4])[1];
20516 av2[4]=((C_word*)((C_word*)t0)[5])[1];
20517 ((C_proc)C_fast_retrieve_proc(t2))(5,av2);}}
20518 
20519 /* chicken.syntax#er-macro-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9893(C_word c,C_word * av)20520 static void C_ccall f_9893(C_word c,C_word *av){
20521 C_word tmp;
20522 C_word t0=av[0];
20523 C_word t1=av[1];
20524 C_word t2=av[2];
20525 C_word t3;
20526 C_word *a;
20527 if(c!=3) C_bad_argc_2(c,3,t0);
20528 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
20529 C_save_and_reclaim((void *)f_9893,c,av);}
20530 /* expand.scm:930: make-er/ir-transformer */
20531 f_9364(t1,t2,C_SCHEME_TRUE);}
20532 
20533 /* chicken.syntax#ir-macro-transformer in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9899(C_word c,C_word * av)20534 static void C_ccall f_9899(C_word c,C_word *av){
20535 C_word tmp;
20536 C_word t0=av[0];
20537 C_word t1=av[1];
20538 C_word t2=av[2];
20539 C_word t3;
20540 C_word *a;
20541 if(c!=3) C_bad_argc_2(c,3,t0);
20542 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
20543 C_save_and_reclaim((void *)f_9899,c,av);}
20544 /* expand.scm:931: make-er/ir-transformer */
20545 f_9364(t1,t2,C_SCHEME_FALSE);}
20546 
20547 /* k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9912(C_word c,C_word * av)20548 static void C_ccall f_9912(C_word c,C_word *av){
20549 C_word tmp;
20550 C_word t0=av[0];
20551 C_word t1=av[1];
20552 C_word t2;
20553 C_word t3;
20554 C_word t4;
20555 C_word t5;
20556 C_word *a;
20557 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20558 C_save_and_reclaim((void *)f_9912,c,av);}
20559 a=C_alloc(9);
20560 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9915,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20561 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13948,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20562 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13950,a[2]=((C_word)li176),tmp=(C_word)a,a+=3,tmp);
20563 /* expand.scm:960: ##sys#er-transformer */
20564 t5=*((C_word*)lf[185]+1);{
20565 C_word *av2;
20566 if(c >= 3) {
20567   av2=av;
20568 } else {
20569   av2=C_alloc(3);
20570 }
20571 av2[0]=t5;
20572 av2[1]=t3;
20573 av2[2]=t4;
20574 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20575 
20576 /* k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9915(C_word c,C_word * av)20577 static void C_ccall f_9915(C_word c,C_word *av){
20578 C_word tmp;
20579 C_word t0=av[0];
20580 C_word t1=av[1];
20581 C_word t2;
20582 C_word t3;
20583 C_word t4;
20584 C_word t5;
20585 C_word *a;
20586 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20587 C_save_and_reclaim((void *)f_9915,c,av);}
20588 a=C_alloc(9);
20589 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9919,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20590 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13837,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20591 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13839,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp);
20592 /* expand.scm:968: ##sys#er-transformer */
20593 t5=*((C_word*)lf[185]+1);{
20594 C_word *av2;
20595 if(c >= 3) {
20596   av2=av;
20597 } else {
20598   av2=C_alloc(3);
20599 }
20600 av2[0]=t5;
20601 av2[1]=t3;
20602 av2[2]=t4;
20603 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20604 
20605 /* k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9919(C_word c,C_word * av)20606 static void C_ccall f_9919(C_word c,C_word *av){
20607 C_word tmp;
20608 C_word t0=av[0];
20609 C_word t1=av[1];
20610 C_word t2;
20611 C_word t3;
20612 C_word t4;
20613 C_word t5;
20614 C_word t6;
20615 C_word *a;
20616 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20617 C_save_and_reclaim((void *)f_9919,c,av);}
20618 a=C_alloc(9);
20619 t2=C_mutate(&lf[99] /* (set! chicken.syntax#import-definition ...) */,t1);
20620 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9922,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20621 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13802,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
20622 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13804,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp);
20623 /* expand.scm:990: ##sys#er-transformer */
20624 t6=*((C_word*)lf[185]+1);{
20625 C_word *av2;
20626 if(c >= 3) {
20627   av2=av;
20628 } else {
20629   av2=C_alloc(3);
20630 }
20631 av2[0]=t6;
20632 av2[1]=t4;
20633 av2[2]=t5;
20634 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
20635 
20636 /* k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9922(C_word c,C_word * av)20637 static void C_ccall f_9922(C_word c,C_word *av){
20638 C_word tmp;
20639 C_word t0=av[0];
20640 C_word t1=av[1];
20641 C_word t2;
20642 C_word t3;
20643 C_word t4;
20644 C_word t5;
20645 C_word *a;
20646 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20647 C_save_and_reclaim((void *)f_9922,c,av);}
20648 a=C_alloc(9);
20649 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9925,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20650 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13509,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20651 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13511,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp);
20652 /* expand.scm:999: ##sys#er-transformer */
20653 t5=*((C_word*)lf[185]+1);{
20654 C_word *av2;
20655 if(c >= 3) {
20656   av2=av;
20657 } else {
20658   av2=C_alloc(3);
20659 }
20660 av2[0]=t5;
20661 av2[1]=t3;
20662 av2[2]=t4;
20663 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20664 
20665 /* k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9925(C_word c,C_word * av)20666 static void C_ccall f_9925(C_word c,C_word *av){
20667 C_word tmp;
20668 C_word t0=av[0];
20669 C_word t1=av[1];
20670 C_word t2;
20671 C_word t3;
20672 C_word *a;
20673 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
20674 C_save_and_reclaim((void *)f_9925,c,av);}
20675 a=C_alloc(3);
20676 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9929,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20677 /* expand.scm:1051: ##sys#macro-environment */
20678 t3=*((C_word*)lf[18]+1);{
20679 C_word *av2=av;
20680 av2[0]=t3;
20681 av2[1]=t2;
20682 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
20683 
20684 /* k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9929(C_word c,C_word * av)20685 static void C_ccall f_9929(C_word c,C_word *av){
20686 C_word tmp;
20687 C_word t0=av[0];
20688 C_word t1=av[1];
20689 C_word t2;
20690 C_word t3;
20691 C_word t4;
20692 C_word t5;
20693 C_word t6;
20694 C_word *a;
20695 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20696 C_save_and_reclaim((void *)f_9929,c,av);}
20697 a=C_alloc(9);
20698 t2=C_mutate((C_word*)lf[187]+1 /* (set! ##sys#initial-macro-environment ...) */,t1);
20699 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9932,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20700 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13334,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
20701 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13336,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp);
20702 /* expand.scm:1055: ##sys#er-transformer */
20703 t6=*((C_word*)lf[185]+1);{
20704 C_word *av2;
20705 if(c >= 3) {
20706   av2=av;
20707 } else {
20708   av2=C_alloc(3);
20709 }
20710 av2[0]=t6;
20711 av2[1]=t4;
20712 av2[2]=t5;
20713 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
20714 
20715 /* k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9932(C_word c,C_word * av)20716 static void C_ccall f_9932(C_word c,C_word *av){
20717 C_word tmp;
20718 C_word t0=av[0];
20719 C_word t1=av[1];
20720 C_word t2;
20721 C_word t3;
20722 C_word t4;
20723 C_word t5;
20724 C_word *a;
20725 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20726 C_save_and_reclaim((void *)f_9932,c,av);}
20727 a=C_alloc(9);
20728 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9935,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20729 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13307,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20730 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13309,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp);
20731 /* expand.scm:1115: ##sys#er-transformer */
20732 t5=*((C_word*)lf[185]+1);{
20733 C_word *av2;
20734 if(c >= 3) {
20735   av2=av;
20736 } else {
20737   av2=C_alloc(3);
20738 }
20739 av2[0]=t5;
20740 av2[1]=t3;
20741 av2[2]=t4;
20742 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20743 
20744 /* k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9935(C_word c,C_word * av)20745 static void C_ccall f_9935(C_word c,C_word *av){
20746 C_word tmp;
20747 C_word t0=av[0];
20748 C_word t1=av[1];
20749 C_word t2;
20750 C_word t3;
20751 C_word t4;
20752 C_word t5;
20753 C_word *a;
20754 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20755 C_save_and_reclaim((void *)f_9935,c,av);}
20756 a=C_alloc(9);
20757 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9938,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20758 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13297,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20759 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13299,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp);
20760 /* expand.scm:1125: ##sys#er-transformer */
20761 t5=*((C_word*)lf[185]+1);{
20762 C_word *av2;
20763 if(c >= 3) {
20764   av2=av;
20765 } else {
20766   av2=C_alloc(3);
20767 }
20768 av2[0]=t5;
20769 av2[1]=t3;
20770 av2[2]=t4;
20771 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20772 
20773 /* k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9938(C_word c,C_word * av)20774 static void C_ccall f_9938(C_word c,C_word *av){
20775 C_word tmp;
20776 C_word t0=av[0];
20777 C_word t1=av[1];
20778 C_word t2;
20779 C_word t3;
20780 C_word t4;
20781 C_word t5;
20782 C_word *a;
20783 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20784 C_save_and_reclaim((void *)f_9938,c,av);}
20785 a=C_alloc(9);
20786 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9941,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20787 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13126,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20788 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13128,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp);
20789 /* expand.scm:1134: ##sys#er-transformer */
20790 t5=*((C_word*)lf[185]+1);{
20791 C_word *av2;
20792 if(c >= 3) {
20793   av2=av;
20794 } else {
20795   av2=C_alloc(3);
20796 }
20797 av2[0]=t5;
20798 av2[1]=t3;
20799 av2[2]=t4;
20800 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20801 
20802 /* k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9941(C_word c,C_word * av)20803 static void C_ccall f_9941(C_word c,C_word *av){
20804 C_word tmp;
20805 C_word t0=av[0];
20806 C_word t1=av[1];
20807 C_word t2;
20808 C_word t3;
20809 C_word t4;
20810 C_word t5;
20811 C_word *a;
20812 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20813 C_save_and_reclaim((void *)f_9941,c,av);}
20814 a=C_alloc(9);
20815 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9944,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20816 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13042,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20817 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13044,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp);
20818 /* expand.scm:1169: ##sys#er-transformer */
20819 t5=*((C_word*)lf[185]+1);{
20820 C_word *av2;
20821 if(c >= 3) {
20822   av2=av;
20823 } else {
20824   av2=C_alloc(3);
20825 }
20826 av2[0]=t5;
20827 av2[1]=t3;
20828 av2[2]=t4;
20829 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20830 
20831 /* k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9944(C_word c,C_word * av)20832 static void C_ccall f_9944(C_word c,C_word *av){
20833 C_word tmp;
20834 C_word t0=av[0];
20835 C_word t1=av[1];
20836 C_word t2;
20837 C_word t3;
20838 C_word t4;
20839 C_word t5;
20840 C_word *a;
20841 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
20842 C_save_and_reclaim((void *)f_9944,c,av);}
20843 a=C_alloc(9);
20844 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9947,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20845 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13019,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20846 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13021,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp);
20847 /* expand.scm:1192: ##sys#er-transformer */
20848 t5=*((C_word*)lf[185]+1);{
20849 C_word *av2;
20850 if(c >= 3) {
20851   av2=av;
20852 } else {
20853   av2=C_alloc(3);
20854 }
20855 av2[0]=t5;
20856 av2[1]=t3;
20857 av2[2]=t4;
20858 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20859 
20860 /* k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9947(C_word c,C_word * av)20861 static void C_ccall f_9947(C_word c,C_word *av){
20862 C_word tmp;
20863 C_word t0=av[0];
20864 C_word t1=av[1];
20865 C_word t2;
20866 C_word t3;
20867 C_word *a;
20868 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
20869 C_save_and_reclaim((void *)f_9947,c,av);}
20870 a=C_alloc(3);
20871 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9951,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20872 /* expand.scm:1199: ##sys#macro-environment */
20873 t3=*((C_word*)lf[18]+1);{
20874 C_word *av2=av;
20875 av2[0]=t3;
20876 av2[1]=t2;
20877 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
20878 
20879 /* k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9951(C_word c,C_word * av)20880 static void C_ccall f_9951(C_word c,C_word *av){
20881 C_word tmp;
20882 C_word t0=av[0];
20883 C_word t1=av[1];
20884 C_word t2;
20885 C_word t3;
20886 C_word t4;
20887 C_word *a;
20888 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
20889 C_save_and_reclaim((void *)f_9951,c,av);}
20890 a=C_alloc(3);
20891 t2=C_mutate((C_word*)lf[188]+1 /* (set! ##sys#chicken.module-macro-environment ...) */,t1);
20892 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20893 /* expand.scm:1202: ##sys#macro-environment */
20894 t4=*((C_word*)lf[18]+1);{
20895 C_word *av2=av;
20896 av2[0]=t4;
20897 av2[1]=t3;
20898 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20899 
20900 /* k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9955(C_word c,C_word * av)20901 static void C_ccall f_9955(C_word c,C_word *av){
20902 C_word tmp;
20903 C_word t0=av[0];
20904 C_word t1=av[1];
20905 C_word t2;
20906 C_word t3;
20907 C_word t4;
20908 C_word t5;
20909 C_word *a;
20910 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
20911 C_save_and_reclaim((void *)f_9955,c,av);}
20912 a=C_alloc(10);
20913 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9958,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
20914 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13002,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20915 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13004,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp);
20916 /* expand.scm:1207: ##sys#er-transformer */
20917 t5=*((C_word*)lf[185]+1);{
20918 C_word *av2;
20919 if(c >= 3) {
20920   av2=av;
20921 } else {
20922   av2=C_alloc(3);
20923 }
20924 av2[0]=t5;
20925 av2[1]=t3;
20926 av2[2]=t4;
20927 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20928 
20929 /* k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 */
f_9958(C_word c,C_word * av)20930 static void C_ccall f_9958(C_word c,C_word *av){
20931 C_word tmp;
20932 C_word t0=av[0];
20933 C_word t1=av[1];
20934 C_word t2;
20935 C_word t3;
20936 C_word t4;
20937 C_word t5;
20938 C_word *a;
20939 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
20940 C_save_and_reclaim((void *)f_9958,c,av);}
20941 a=C_alloc(10);
20942 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
20943 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12985,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20944 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12987,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp);
20945 /* expand.scm:1215: ##sys#er-transformer */
20946 t5=*((C_word*)lf[185]+1);{
20947 C_word *av2;
20948 if(c >= 3) {
20949   av2=av;
20950 } else {
20951   av2=C_alloc(3);
20952 }
20953 av2[0]=t5;
20954 av2[1]=t3;
20955 av2[2]=t4;
20956 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20957 
20958 /* k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in k4260 in ... */
f_9961(C_word c,C_word * av)20959 static void C_ccall f_9961(C_word c,C_word *av){
20960 C_word tmp;
20961 C_word t0=av[0];
20962 C_word t1=av[1];
20963 C_word t2;
20964 C_word t3;
20965 C_word t4;
20966 C_word t5;
20967 C_word *a;
20968 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
20969 C_save_and_reclaim((void *)f_9961,c,av);}
20970 a=C_alloc(10);
20971 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9964,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
20972 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12968,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
20973 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12970,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp);
20974 /* expand.scm:1223: ##sys#er-transformer */
20975 t5=*((C_word*)lf[185]+1);{
20976 C_word *av2;
20977 if(c >= 3) {
20978   av2=av;
20979 } else {
20980   av2=C_alloc(3);
20981 }
20982 av2[0]=t5;
20983 av2[1]=t3;
20984 av2[2]=t4;
20985 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
20986 
20987 /* k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in k4263 in ... */
f_9964(C_word c,C_word * av)20988 static void C_ccall f_9964(C_word c,C_word *av){
20989 C_word tmp;
20990 C_word t0=av[0];
20991 C_word t1=av[1];
20992 C_word t2;
20993 C_word t3;
20994 C_word t4;
20995 C_word t5;
20996 C_word *a;
20997 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
20998 C_save_and_reclaim((void *)f_9964,c,av);}
20999 a=C_alloc(10);
21000 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21001 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12951,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21002 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12953,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp);
21003 /* expand.scm:1231: ##sys#er-transformer */
21004 t5=*((C_word*)lf[185]+1);{
21005 C_word *av2;
21006 if(c >= 3) {
21007   av2=av;
21008 } else {
21009   av2=C_alloc(3);
21010 }
21011 av2[0]=t5;
21012 av2[1]=t3;
21013 av2[2]=t4;
21014 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21015 
21016 /* k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in k5545 in ... */
f_9967(C_word c,C_word * av)21017 static void C_ccall f_9967(C_word c,C_word *av){
21018 C_word tmp;
21019 C_word t0=av[0];
21020 C_word t1=av[1];
21021 C_word t2;
21022 C_word t3;
21023 C_word t4;
21024 C_word t5;
21025 C_word *a;
21026 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21027 C_save_and_reclaim((void *)f_9967,c,av);}
21028 a=C_alloc(10);
21029 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21030 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12824,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21031 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12826,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp);
21032 /* expand.scm:1240: ##sys#er-transformer */
21033 t5=*((C_word*)lf[185]+1);{
21034 C_word *av2;
21035 if(c >= 3) {
21036   av2=av;
21037 } else {
21038   av2=C_alloc(3);
21039 }
21040 av2[0]=t5;
21041 av2[1]=t3;
21042 av2[2]=t4;
21043 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21044 
21045 /* k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in k5550 in ... */
f_9971(C_word c,C_word * av)21046 static void C_ccall f_9971(C_word c,C_word *av){
21047 C_word tmp;
21048 C_word t0=av[0];
21049 C_word t1=av[1];
21050 C_word t2;
21051 C_word t3;
21052 C_word t4;
21053 C_word t5;
21054 C_word t6;
21055 C_word *a;
21056 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21057 C_save_and_reclaim((void *)f_9971,c,av);}
21058 a=C_alloc(10);
21059 t2=C_mutate((C_word*)lf[96]+1 /* (set! chicken.syntax#define-definition ...) */,t1);
21060 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21061 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12777,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
21062 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12779,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp);
21063 /* expand.scm:1268: ##sys#er-transformer */
21064 t6=*((C_word*)lf[185]+1);{
21065 C_word *av2;
21066 if(c >= 3) {
21067   av2=av;
21068 } else {
21069   av2=C_alloc(3);
21070 }
21071 av2[0]=t6;
21072 av2[1]=t4;
21073 av2[2]=t5;
21074 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
21075 
21076 /* k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in k5554 in ... */
f_9975(C_word c,C_word * av)21077 static void C_ccall f_9975(C_word c,C_word *av){
21078 C_word tmp;
21079 C_word t0=av[0];
21080 C_word t1=av[1];
21081 C_word t2;
21082 C_word t3;
21083 C_word t4;
21084 C_word t5;
21085 C_word t6;
21086 C_word *a;
21087 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21088 C_save_and_reclaim((void *)f_9975,c,av);}
21089 a=C_alloc(10);
21090 t2=C_mutate((C_word*)lf[97]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,t1);
21091 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21092 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12725,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
21093 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12727,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp);
21094 /* expand.scm:1282: ##sys#er-transformer */
21095 t6=*((C_word*)lf[185]+1);{
21096 C_word *av2;
21097 if(c >= 3) {
21098   av2=av;
21099 } else {
21100   av2=C_alloc(3);
21101 }
21102 av2[0]=t6;
21103 av2[1]=t4;
21104 av2[2]=t5;
21105 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
21106 
21107 /* k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in k5944 in ... */
f_9978(C_word c,C_word * av)21108 static void C_ccall f_9978(C_word c,C_word *av){
21109 C_word tmp;
21110 C_word t0=av[0];
21111 C_word t1=av[1];
21112 C_word t2;
21113 C_word t3;
21114 C_word t4;
21115 C_word t5;
21116 C_word *a;
21117 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21118 C_save_and_reclaim((void *)f_9978,c,av);}
21119 a=C_alloc(10);
21120 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9981,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21121 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12703,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21122 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12705,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp);
21123 /* expand.scm:1295: ##sys#er-transformer */
21124 t5=*((C_word*)lf[185]+1);{
21125 C_word *av2;
21126 if(c >= 3) {
21127   av2=av;
21128 } else {
21129   av2=C_alloc(3);
21130 }
21131 av2[0]=t5;
21132 av2[1]=t3;
21133 av2[2]=t4;
21134 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21135 
21136 /* k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in k9910 in ... */
f_9981(C_word c,C_word * av)21137 static void C_ccall f_9981(C_word c,C_word *av){
21138 C_word tmp;
21139 C_word t0=av[0];
21140 C_word t1=av[1];
21141 C_word t2;
21142 C_word t3;
21143 C_word t4;
21144 C_word t5;
21145 C_word *a;
21146 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21147 C_save_and_reclaim((void *)f_9981,c,av);}
21148 a=C_alloc(10);
21149 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9984,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21150 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12681,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21151 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12683,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp);
21152 /* expand.scm:1304: ##sys#er-transformer */
21153 t5=*((C_word*)lf[185]+1);{
21154 C_word *av2;
21155 if(c >= 3) {
21156   av2=av;
21157 } else {
21158   av2=C_alloc(3);
21159 }
21160 av2[0]=t5;
21161 av2[1]=t3;
21162 av2[2]=t4;
21163 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21164 
21165 /* k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in k9913 in ... */
f_9984(C_word c,C_word * av)21166 static void C_ccall f_9984(C_word c,C_word *av){
21167 C_word tmp;
21168 C_word t0=av[0];
21169 C_word t1=av[1];
21170 C_word t2;
21171 C_word t3;
21172 C_word t4;
21173 C_word t5;
21174 C_word *a;
21175 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21176 C_save_and_reclaim((void *)f_9984,c,av);}
21177 a=C_alloc(10);
21178 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9987,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21179 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12659,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21180 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12661,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp);
21181 /* expand.scm:1313: ##sys#er-transformer */
21182 t5=*((C_word*)lf[185]+1);{
21183 C_word *av2;
21184 if(c >= 3) {
21185   av2=av;
21186 } else {
21187   av2=C_alloc(3);
21188 }
21189 av2[0]=t5;
21190 av2[1]=t3;
21191 av2[2]=t4;
21192 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21193 
21194 /* k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in k9917 in ... */
f_9987(C_word c,C_word * av)21195 static void C_ccall f_9987(C_word c,C_word *av){
21196 C_word tmp;
21197 C_word t0=av[0];
21198 C_word t1=av[1];
21199 C_word t2;
21200 C_word t3;
21201 C_word t4;
21202 C_word t5;
21203 C_word *a;
21204 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21205 C_save_and_reclaim((void *)f_9987,c,av);}
21206 a=C_alloc(10);
21207 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9990,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21208 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12615,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21209 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12617,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp);
21210 /* expand.scm:1322: ##sys#er-transformer */
21211 t5=*((C_word*)lf[185]+1);{
21212 C_word *av2;
21213 if(c >= 3) {
21214   av2=av;
21215 } else {
21216   av2=C_alloc(3);
21217 }
21218 av2[0]=t5;
21219 av2[1]=t3;
21220 av2[2]=t4;
21221 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21222 
21223 /* k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in k9920 in ... */
f_9990(C_word c,C_word * av)21224 static void C_ccall f_9990(C_word c,C_word *av){
21225 C_word tmp;
21226 C_word t0=av[0];
21227 C_word t1=av[1];
21228 C_word t2;
21229 C_word t3;
21230 C_word t4;
21231 C_word t5;
21232 C_word *a;
21233 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21234 C_save_and_reclaim((void *)f_9990,c,av);}
21235 a=C_alloc(10);
21236 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21237 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12578,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21238 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12580,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp);
21239 /* expand.scm:1334: ##sys#er-transformer */
21240 t5=*((C_word*)lf[185]+1);{
21241 C_word *av2;
21242 if(c >= 3) {
21243   av2=av;
21244 } else {
21245   av2=C_alloc(3);
21246 }
21247 av2[0]=t5;
21248 av2[1]=t3;
21249 av2[2]=t4;
21250 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21251 
21252 /* k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in k9923 in ... */
f_9993(C_word c,C_word * av)21253 static void C_ccall f_9993(C_word c,C_word *av){
21254 C_word tmp;
21255 C_word t0=av[0];
21256 C_word t1=av[1];
21257 C_word t2;
21258 C_word t3;
21259 C_word t4;
21260 C_word t5;
21261 C_word *a;
21262 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21263 C_save_and_reclaim((void *)f_9993,c,av);}
21264 a=C_alloc(10);
21265 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9996,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21266 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12526,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21267 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12528,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp);
21268 /* expand.scm:1348: ##sys#er-transformer */
21269 t5=*((C_word*)lf[185]+1);{
21270 C_word *av2;
21271 if(c >= 3) {
21272   av2=av;
21273 } else {
21274   av2=C_alloc(3);
21275 }
21276 av2[0]=t5;
21277 av2[1]=t3;
21278 av2[2]=t4;
21279 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21280 
21281 /* k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in k9927 in ... */
f_9996(C_word c,C_word * av)21282 static void C_ccall f_9996(C_word c,C_word *av){
21283 C_word tmp;
21284 C_word t0=av[0];
21285 C_word t1=av[1];
21286 C_word t2;
21287 C_word t3;
21288 C_word t4;
21289 C_word t5;
21290 C_word *a;
21291 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21292 C_save_and_reclaim((void *)f_9996,c,av);}
21293 a=C_alloc(10);
21294 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9999,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21295 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12143,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21296 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12145,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp);
21297 /* expand.scm:1364: ##sys#er-transformer */
21298 t5=*((C_word*)lf[185]+1);{
21299 C_word *av2;
21300 if(c >= 3) {
21301   av2=av;
21302 } else {
21303   av2=C_alloc(3);
21304 }
21305 av2[0]=t5;
21306 av2[1]=t3;
21307 av2[2]=t4;
21308 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21309 
21310 /* k9997 in k9994 in k9991 in k9988 in k9985 in k9982 in k9979 in k9976 in k9973 in k9969 in k9965 in k9962 in k9959 in k9956 in k9953 in k9949 in k9945 in k9942 in k9939 in k9936 in k9933 in k9930 in ... */
f_9999(C_word c,C_word * av)21311 static void C_ccall f_9999(C_word c,C_word *av){
21312 C_word tmp;
21313 C_word t0=av[0];
21314 C_word t1=av[1];
21315 C_word t2;
21316 C_word t3;
21317 C_word t4;
21318 C_word t5;
21319 C_word *a;
21320 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
21321 C_save_and_reclaim((void *)f_9999,c,av);}
21322 a=C_alloc(10);
21323 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
21324 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11907,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
21325 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11909,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp);
21326 /* expand.scm:1429: ##sys#er-transformer */
21327 t5=*((C_word*)lf[185]+1);{
21328 C_word *av2;
21329 if(c >= 3) {
21330   av2=av;
21331 } else {
21332   av2=C_alloc(3);
21333 }
21334 av2[0]=t5;
21335 av2[1]=t3;
21336 av2[2]=t4;
21337 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
21338 
21339 /* toplevel */
21340 static C_TLS int toplevel_initialized=0;
21341 
C_expand_toplevel(C_word c,C_word * av)21342 void C_ccall C_expand_toplevel(C_word c,C_word *av){
21343 C_word tmp;
21344 C_word t0=av[0];
21345 C_word t1=av[1];
21346 C_word t2;
21347 C_word t3;
21348 C_word *a;
21349 if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
21350 else C_toplevel_entry(C_text("expand"));
21351 C_check_nursery_minimum(C_calculate_demand(3,c,2));
21352 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
21353 C_save_and_reclaim((void*)C_expand_toplevel,c,av);}
21354 toplevel_initialized=1;
21355 if(C_unlikely(!C_demand_2(3327))){
21356 C_save(t1);
21357 C_rereclaim2(3327*sizeof(C_word),1);
21358 t1=C_restore;}
21359 a=C_alloc(3);
21360 C_initialize_lf(lf,372);
21361 lf[0]=C_h_intern(&lf[0],6, C_text("expand"));
21362 lf[1]=C_h_intern(&lf[1],15, C_text("chicken.syntax#"));
21363 lf[2]=C_h_intern(&lf[2],14, C_text("##sys#features"));
21364 lf[3]=C_h_intern(&lf[3],29, C_text("##sys#current-source-filename"));
21365 lf[4]=C_h_intern(&lf[4],25, C_text("##sys#current-environment"));
21366 lf[5]=C_h_intern(&lf[5],30, C_text("##sys#current-meta-environment"));
21367 lf[7]=C_h_intern(&lf[7],18, C_text("##core#macro-alias"));
21368 lf[9]=C_h_intern(&lf[9],16, C_text("##core#real-name"));
21369 lf[10]=C_h_intern(&lf[10],19, C_text("chicken.base#gensym"));
21370 lf[11]=C_h_intern(&lf[11],24, C_text("chicken.keyword#keyword\077"));
21371 lf[12]=C_h_intern(&lf[12],27, C_text("chicken.syntax#strip-syntax"));
21372 lf[13]=C_h_intern(&lf[13],18, C_text("scheme#make-vector"));
21373 lf[14]=C_h_intern(&lf[14],15, C_text("##sys#extend-se"));
21374 lf[15]=C_h_intern(&lf[15],8, C_text("for-each"));
21375 lf[16]=C_h_intern(&lf[16],13, C_text("scheme#append"));
21376 lf[17]=C_h_intern(&lf[17],3, C_text("map"));
21377 lf[18]=C_h_intern(&lf[18],23, C_text("##sys#macro-environment"));
21378 lf[19]=C_h_intern(&lf[19],30, C_text("##sys#scheme-macro-environment"));
21379 lf[20]=C_h_intern(&lf[20],35, C_text("##sys#chicken-ffi-macro-environment"));
21380 lf[21]=C_h_intern(&lf[21],41, C_text("##sys#chicken.condition-macro-environment"));
21381 lf[22]=C_h_intern(&lf[22],36, C_text("##sys#chicken.time-macro-environment"));
21382 lf[23]=C_h_intern(&lf[23],36, C_text("##sys#chicken.type-macro-environment"));
21383 lf[24]=C_h_intern(&lf[24],38, C_text("##sys#chicken.syntax-macro-environment"));
21384 lf[25]=C_h_intern(&lf[25],36, C_text("##sys#chicken.base-macro-environment"));
21385 lf[26]=C_h_intern(&lf[26],24, C_text("##sys#ensure-transformer"));
21386 lf[27]=C_h_intern(&lf[27],11, C_text("transformer"));
21387 lf[28]=C_h_intern(&lf[28],11, C_text("##sys#error"));
21388 lf[29]=C_decode_literal(C_heaptop,C_text("\376B\000\000$expected syntax-transformer, but got"));
21389 lf[30]=C_h_intern(&lf[30],30, C_text("##sys#extend-macro-environment"));
21390 lf[31]=C_h_intern(&lf[31],12, C_text("##sys#macro\077"));
21391 lf[32]=C_h_intern(&lf[32],21, C_text("##sys#undefine-macro!"));
21392 lf[33]=C_h_intern(&lf[33],14, C_text("##sys#expand-0"));
21393 lf[34]=C_h_intern(&lf[34],9, C_text("condition"));
21394 lf[35]=C_h_intern(&lf[35],3, C_text("exn"));
21395 lf[36]=C_h_intern(&lf[36],23, C_text("chicken.condition#abort"));
21396 lf[37]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message"));
21397 lf[38]=C_h_intern(&lf[38],20, C_text("scheme#string-append"));
21398 lf[39]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025during expansion of ("));
21399 lf[40]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 ...) - "));
21400 lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001exn\376\001\000\000\007\001message"));
21401 lf[42]=C_h_intern(&lf[42],36, C_text("chicken.syntax#expansion-result-hook"));
21402 lf[43]=C_h_intern(&lf[43],23, C_text("##sys#syntax-error-hook"));
21403 lf[44]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030syntax transformer for `"));
21404 lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000@\047 returns original form, which would result in endless expansion"));
21405 lf[46]=C_h_intern(&lf[46],21, C_text("scheme#symbol->string"));
21406 lf[47]=C_h_intern(&lf[47],51, C_text("chicken.internal.syntax-rules#syntax-rules-mismatch"));
21407 lf[48]=C_h_intern(&lf[48],18, C_text("##sys#dynamic-wind"));
21408 lf[49]=C_h_intern(&lf[49],40, C_text("chicken.condition#with-exception-handler"));
21409 lf[50]=C_h_intern(&lf[50],37, C_text("scheme#call-with-current-continuation"));
21410 lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034invalid syntax in macro form"));
21411 lf[52]=C_h_intern(&lf[52],10, C_text("##core#let"));
21412 lf[53]=C_h_intern(&lf[53],18, C_text("##core#loop-lambda"));
21413 lf[54]=C_h_intern(&lf[54],14, C_text("##core#letrec\052"));
21414 lf[55]=C_h_intern(&lf[55],10, C_text("##core#app"));
21415 lf[56]=C_h_intern(&lf[56],18, C_text("##sys#check-syntax"));
21416 lf[57]=C_h_intern(&lf[57],3, C_text("let"));
21417 lf[58]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000"
21418 "\000\001"));
21419 lf[59]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002"));
21420 lf[60]=C_h_intern(&lf[60],26, C_text("##sys#compiler-syntax-hook"));
21421 lf[61]=C_h_intern(&lf[61],26, C_text("##compiler#compiler-syntax"));
21422 lf[62]=C_h_intern(&lf[62],27, C_text("##sys#enable-runtime-macros"));
21423 lf[63]=C_h_intern(&lf[63],21, C_text("chicken.syntax#expand"));
21424 lf[64]=C_h_intern(&lf[64],27, C_text("##sys#extended-lambda-list\077"));
21425 lf[65]=C_h_intern(&lf[65],6, C_text("#!rest"));
21426 lf[66]=C_h_intern(&lf[66],10, C_text("#!optional"));
21427 lf[67]=C_h_intern(&lf[67],5, C_text("#!key"));
21428 lf[68]=C_h_intern(&lf[68],33, C_text("##sys#expand-extended-lambda-list"));
21429 lf[69]=C_h_intern(&lf[69],12, C_text("scheme#cadar"));
21430 lf[70]=C_h_intern(&lf[70],14, C_text("scheme#reverse"));
21431 lf[71]=C_h_intern(&lf[71],12, C_text("##sys#append"));
21432 lf[72]=C_h_intern(&lf[72],12, C_text("##core#quote"));
21433 lf[73]=C_h_intern(&lf[73],13, C_text("##core#lambda"));
21434 lf[74]=C_h_intern(&lf[74],17, C_text("##sys#get-keyword"));
21435 lf[75]=C_h_intern(&lf[75],31, C_text("chicken.keyword#string->keyword"));
21436 lf[76]=C_decode_literal(C_heaptop,C_text("\376B\000\000+rest argument list specified more than once"));
21437 lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid lambda list syntax"));
21438 lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000-`#!optional\047 argument marker in wrong context"));
21439 lf[79]=C_h_intern(&lf[79],4, C_text("rest"));
21440 lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000#invalid syntax of `#!rest\047 argument"));
21441 lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000)`#!rest\047 argument marker in wrong context"));
21442 lf[82]=C_decode_literal(C_heaptop,C_text("\376B\000\000(`#!key\047 argument marker in wrong context"));
21443 lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\0000invalid lambda list syntax after `#!rest\047 marker"));
21444 lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000 invalid required argument syntax"));
21445 lf[85]=C_decode_literal(C_heaptop,C_text("\376B\000\0000invalid lambda list syntax after `#!rest\047 marker"));
21446 lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032invalid lambda list syntax"));
21447 lf[87]=C_h_intern(&lf[87],14, C_text("let-optionals\052"));
21448 lf[88]=C_h_intern(&lf[88],8, C_text("optional"));
21449 lf[89]=C_h_intern(&lf[89],4, C_text("let\052"));
21450 lf[90]=C_h_intern(&lf[90],31, C_text("##sys#default-macro-environment"));
21451 lf[91]=C_h_intern(&lf[91],39, C_text("##sys#expand-multiple-values-assignment"));
21452 lf[92]=C_h_intern(&lf[92],22, C_text("##sys#call-with-values"));
21453 lf[93]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016\376\377\016"));
21454 lf[94]=C_h_intern(&lf[94],11, C_text("##core#set!"));
21455 lf[95]=C_h_intern(&lf[95],27, C_text("##sys#decompose-lambda-list"));
21456 lf[96]=C_h_intern(&lf[96],32, C_text("chicken.syntax#define-definition"));
21457 lf[97]=C_h_intern(&lf[97],39, C_text("chicken.syntax#define-syntax-definition"));
21458 lf[98]=C_h_intern(&lf[98],39, C_text("chicken.syntax#define-values-definition"));
21459 lf[100]=C_h_intern(&lf[100],23, C_text("##sys#canonicalize-body"));
21460 lf[101]=C_h_intern(&lf[101],6, C_text("define"));
21461 lf[102]=C_h_intern(&lf[102],13, C_text("define-syntax"));
21462 lf[103]=C_h_intern(&lf[103],13, C_text("define-values"));
21463 lf[104]=C_h_intern(&lf[104],6, C_text("import"));
21464 lf[105]=C_h_intern(&lf[105],12, C_text("##core#begin"));
21465 lf[106]=C_h_intern(&lf[106],13, C_text("##core#module"));
21466 lf[107]=C_h_intern(&lf[107],14, C_text("##core#include"));
21467 lf[108]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21468 lf[109]=C_h_intern(&lf[109],20, C_text("##core#letrec-syntax"));
21469 lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000,redefinition of currently used defining form"));
21470 lf[111]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21471 lf[112]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000"));
21472 lf[113]=C_h_intern(&lf[113],36, C_text("chicken.syntax#expand-curried-define"));
21473 lf[114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21474 lf[115]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21475 lf[116]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000"));
21476 lf[117]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21477 lf[118]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21478 lf[119]=C_h_intern(&lf[119],31, C_text("chicken.syntax#match-expression"));
21479 lf[120]=C_h_intern(&lf[120],26, C_text("##sys#line-number-database"));
21480 lf[121]=C_h_intern(&lf[121],26, C_text("##sys#syntax-error-culprit"));
21481 lf[122]=C_h_intern(&lf[122],20, C_text("##sys#syntax-context"));
21482 lf[123]=C_h_intern(&lf[123],27, C_text("chicken.syntax#syntax-error"));
21483 lf[124]=C_h_intern(&lf[124],17, C_text("##sys#signal-hook"));
21484 lf[125]=C_h_intern_kw(&lf[125],12, C_text("syntax-error"));
21485 lf[126]=C_h_intern(&lf[126],26, C_text("##sys#syntax-error/context"));
21486 lf[127]=C_h_intern(&lf[127],11, C_text("##sys#print"));
21487 lf[128]=C_h_intern(&lf[128],30, C_text("chicken.base#get-output-string"));
21488 lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 ...)\047"));
21489 lf[130]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\012inside expression `("));
21490 lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: "));
21491 lf[132]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027  Suggesting: `(import "));
21492 lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\047"));
21493 lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025  Suggesting one of:\012"));
21494 lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
21495 lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012      (import "));
21496 lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\047"));
21497 lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000# ...)\047 without importing it first.\012"));
21498 lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000-\012\012  Perhaps you intended to use the syntax `("));
21499 lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002: "));
21500 lf[141]=C_h_intern(&lf[141],6, C_text("syntax"));
21501 lf[142]=C_h_intern(&lf[142],9, C_text("##sys#get"));
21502 lf[143]=C_h_intern(&lf[143],9, C_text("##core#db"));
21503 lf[144]=C_h_intern(&lf[144],31, C_text("chicken.base#open-output-string"));
21504 lf[145]=C_h_intern(&lf[145],30, C_text("chicken.syntax#get-line-number"));
21505 lf[146]=C_h_intern(&lf[146],31, C_text("chicken.internal#hash-table-ref"));
21506 lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001("));
21507 lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006) in `"));
21508 lf[149]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\047 - "));
21509 lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004in `"));
21510 lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\047 - "));
21511 lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not enough arguments"));
21512 lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022too many arguments"));
21513 lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021not a proper list"));
21514 lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021unexpected object"));
21515 lf[156]=C_h_intern(&lf[156],1, C_text("_"));
21516 lf[157]=C_h_intern(&lf[157],4, C_text("pair"));
21517 lf[158]=C_h_intern(&lf[158],12, C_text("scheme#pair\077"));
21518 lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015pair expected"));
21519 lf[160]=C_h_intern(&lf[160],8, C_text("variable"));
21520 lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023identifier expected"));
21521 lf[162]=C_h_intern(&lf[162],6, C_text("symbol"));
21522 lf[163]=C_h_intern(&lf[163],14, C_text("scheme#symbol\077"));
21523 lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017symbol expected"));
21524 lf[165]=C_h_intern(&lf[165],4, C_text("list"));
21525 lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024proper list expected"));
21526 lf[167]=C_h_intern(&lf[167],6, C_text("number"));
21527 lf[168]=C_h_intern(&lf[168],14, C_text("scheme#number\077"));
21528 lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017number expected"));
21529 lf[170]=C_h_intern(&lf[170],6, C_text("string"));
21530 lf[171]=C_h_intern(&lf[171],14, C_text("scheme#string\077"));
21531 lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017string expected"));
21532 lf[173]=C_h_intern(&lf[173],11, C_text("lambda-list"));
21533 lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024lambda-list expected"));
21534 lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017missing keyword"));
21535 lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017incomplete form"));
21536 lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015pair expected"));
21537 lf[179]=C_h_intern(&lf[179],32, C_text("chicken.internal#hash-table-set!"));
21538 lf[180]=C_h_intern(&lf[180],19, C_text("scheme#list->vector"));
21539 lf[181]=C_h_intern(&lf[181],19, C_text("scheme#vector->list"));
21540 lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033(expand.scm:831) not a list"));
21541 lf[183]=C_h_intern(&lf[183],35, C_text("chicken.syntax#er-macro-transformer"));
21542 lf[184]=C_h_intern(&lf[184],35, C_text("chicken.syntax#ir-macro-transformer"));
21543 lf[185]=C_h_intern(&lf[185],20, C_text("##sys#er-transformer"));
21544 lf[186]=C_h_intern(&lf[186],20, C_text("##sys#ir-transformer"));
21545 lf[187]=C_h_intern(&lf[187],31, C_text("##sys#initial-macro-environment"));
21546 lf[188]=C_h_intern(&lf[188],38, C_text("##sys#chicken.module-macro-environment"));
21547 lf[189]=C_h_intern(&lf[189],30, C_text("chicken.internal.syntax-rules#"));
21548 lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024no rule matches form"));
21549 lf[191]=C_h_intern(&lf[191],40, C_text("chicken.internal.syntax-rules#drop-right"));
21550 lf[192]=C_h_intern(&lf[192],40, C_text("chicken.internal.syntax-rules#take-right"));
21551 lf[193]=C_h_intern(&lf[193],28, C_text("##sys#meta-macro-environment"));
21552 lf[194]=C_h_intern(&lf[194],27, C_text("chicken.base#make-parameter"));
21553 lf[195]=C_h_intern(&lf[195],40, C_text("chicken.internal#fixup-macro-environment"));
21554 lf[196]=C_h_intern(&lf[196],29, C_text("chicken.internal#macro-subset"));
21555 lf[197]=C_h_intern(&lf[197],12, C_text("syntax-rules"));
21556 lf[198]=C_h_intern(&lf[198],3, C_text("..."));
21557 lf[199]=C_h_intern(&lf[199],9, C_text("##sys#car"));
21558 lf[200]=C_h_intern(&lf[200],9, C_text("##sys#cdr"));
21559 lf[201]=C_h_intern(&lf[201],12, C_text("##sys#length"));
21560 lf[202]=C_h_intern(&lf[202],13, C_text("##sys#vector\077"));
21561 lf[203]=C_h_intern(&lf[203],18, C_text("##sys#vector->list"));
21562 lf[204]=C_h_intern(&lf[204],18, C_text("##sys#list->vector"));
21563 lf[205]=C_h_intern(&lf[205],8, C_text("##sys#>="));
21564 lf[206]=C_h_intern(&lf[206],7, C_text("##sys#="));
21565 lf[207]=C_h_intern(&lf[207],7, C_text("##sys#+"));
21566 lf[208]=C_h_intern(&lf[208],10, C_text("##sys#cons"));
21567 lf[209]=C_h_intern(&lf[209],9, C_text("##sys#eq\077"));
21568 lf[210]=C_h_intern(&lf[210],12, C_text("##sys#equal\077"));
21569 lf[211]=C_h_intern(&lf[211],11, C_text("##sys#list\077"));
21570 lf[212]=C_h_intern(&lf[212],9, C_text("##sys#map"));
21571 lf[213]=C_h_intern(&lf[213],11, C_text("##sys#map-n"));
21572 lf[214]=C_h_intern(&lf[214],11, C_text("##sys#pair\077"));
21573 lf[215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026ill-formed syntax rule"));
21574 lf[216]=C_h_intern(&lf[216],13, C_text("##core#syntax"));
21575 lf[217]=C_h_intern(&lf[217],5, C_text("quote"));
21576 lf[218]=C_decode_literal(C_heaptop,C_text("\376B\000\000,template dimension error (too few ellipses\077)"));
21577 lf[219]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021too many ellipses"));
21578 lf[220]=C_h_intern(&lf[220],11, C_text("##sys#apply"));
21579 lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000%Only one segment per level is allowed"));
21580 lf[222]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047Cannot combine dotted tail and ellipsis"));
21581 lf[223]=C_h_intern(&lf[223],4, C_text("temp"));
21582 lf[224]=C_h_intern(&lf[224],4, C_text("tail"));
21583 lf[225]=C_h_intern(&lf[225],6, C_text("rename"));
21584 lf[226]=C_h_intern(&lf[226],2, C_text("or"));
21585 lf[227]=C_h_intern(&lf[227],4, C_text("loop"));
21586 lf[228]=C_h_intern(&lf[228],6, C_text("lambda"));
21587 lf[229]=C_h_intern(&lf[229],3, C_text("len"));
21588 lf[230]=C_h_intern(&lf[230],1, C_text("l"));
21589 lf[231]=C_h_intern(&lf[231],5, C_text("input"));
21590 lf[232]=C_h_intern(&lf[232],4, C_text("else"));
21591 lf[233]=C_h_intern(&lf[233],4, C_text("cond"));
21592 lf[234]=C_h_intern(&lf[234],7, C_text("compare"));
21593 lf[235]=C_h_intern(&lf[235],3, C_text("and"));
21594 lf[236]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\004\001list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000"));
21595 lf[237]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\002"));
21596 lf[238]=C_h_intern(&lf[238],5, C_text("delay"));
21597 lf[239]=C_h_intern(&lf[239],10, C_text("##sys#list"));
21598 lf[240]=C_h_intern(&lf[240],18, C_text("##sys#make-promise"));
21599 lf[241]=C_h_intern(&lf[241],11, C_text("delay-force"));
21600 lf[242]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21601 lf[243]=C_h_intern(&lf[243],10, C_text("quasiquote"));
21602 lf[244]=C_h_intern(&lf[244],7, C_text("unquote"));
21603 lf[245]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21604 lf[246]=C_h_intern(&lf[246],16, C_text("unquote-splicing"));
21605 lf[247]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21606 lf[248]=C_h_intern(&lf[248],1, C_text("a"));
21607 lf[249]=C_h_intern(&lf[249],1, C_text("b"));
21608 lf[250]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##sys#append\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001##core#quote\376\003\000\000\002\376\377\016\376\377\016\376\377\016"));
21609 lf[251]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001a\376\377\016"));
21610 lf[252]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#cons\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001##sys#list\376\001\000\000\001\001b\376\377\016"));
21611 lf[253]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\001\000\000\001\001b\376\377\016"));
21612 lf[254]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001##sys#cons\376\003\000\000\002\376\001\000\000\001\001a\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001##core#quote\376\003\000\000\002\376\377\016\376\377\016\376\377\016"));
21613 lf[255]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001a\376\377\016"));
21614 lf[256]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21615 lf[257]=C_h_intern(&lf[257],2, C_text("do"));
21616 lf[258]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21617 lf[259]=C_h_intern(&lf[259],9, C_text("##core#if"));
21618 lf[260]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21619 lf[261]=C_h_intern(&lf[261],6, C_text("doloop"));
21620 lf[262]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\001\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000"
21621 "\000\001\001_\376\377\001\000\000\000\001"));
21622 lf[263]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000"
21623 "\000\001"));
21624 lf[264]=C_h_intern(&lf[264],4, C_text("case"));
21625 lf[265]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001eqv\077\376\001\000\000\013\001scheme#eqv\077\376\377\016"));
21626 lf[266]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21627 lf[267]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##core#begin\376\377\016"));
21628 lf[268]=C_h_intern(&lf[268],10, C_text("##sys#warn"));
21629 lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000(clause following `else\047 clause in `case\047"));
21630 lf[270]=C_h_intern(&lf[270],16, C_text("##core#undefined"));
21631 lf[271]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21632 lf[272]=C_h_intern(&lf[272],4, C_text("eqv\077"));
21633 lf[273]=C_h_intern(&lf[273],2, C_text("=>"));
21634 lf[274]=C_h_intern(&lf[274],3, C_text("tmp"));
21635 lf[275]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000"));
21636 lf[276]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21637 lf[277]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001##core#begin\376\377\016"));
21638 lf[278]=C_h_intern(&lf[278],7, C_text("sprintf"));
21639 lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022\047 clause in `cond\047"));
21640 lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022clause following `"));
21641 lf[281]=C_h_intern(&lf[281],2, C_text("if"));
21642 lf[282]=C_h_intern(&lf[282],20, C_text("##sys#srfi-4-vector\077"));
21643 lf[283]=C_h_intern(&lf[283],18, C_text("chicken.blob#blob\077"));
21644 lf[284]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21645 lf[285]=C_h_intern(&lf[285],4, C_text("set!"));
21646 lf[286]=C_h_intern(&lf[286],12, C_text("##sys#setter"));
21647 lf[287]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21648 lf[288]=C_h_intern(&lf[288],13, C_text("letrec-syntax"));
21649 lf[289]=C_h_intern(&lf[289],44, C_text("chicken.internal#check-for-multiple-bindings"));
21650 lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015letrec-syntax"));
21651 lf[291]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000"
21652 "\000\001"));
21653 lf[292]=C_h_intern(&lf[292],10, C_text("let-syntax"));
21654 lf[293]=C_h_intern(&lf[293],17, C_text("##core#let-syntax"));
21655 lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012let-syntax"));
21656 lf[295]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000"
21657 "\000\001"));
21658 lf[296]=C_h_intern(&lf[296],6, C_text("letrec"));
21659 lf[297]=C_h_intern(&lf[297],13, C_text("##core#letrec"));
21660 lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006letrec"));
21661 lf[299]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000"
21662 "\000\001"));
21663 lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003let"));
21664 lf[301]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000"
21665 "\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21666 lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003let"));
21667 lf[303]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000"
21668 "\000\001"));
21669 lf[304]=C_h_intern(&lf[304],20, C_text("##core#define-syntax"));
21670 lf[305]=C_h_intern(&lf[305],21, C_text("##sys#register-export"));
21671 lf[306]=C_h_intern(&lf[306],20, C_text("##sys#current-module"));
21672 lf[307]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21673 lf[308]=C_h_intern(&lf[308],33, C_text("##core#ensure-toplevel-definition"));
21674 lf[309]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21675 lf[310]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"));
21676 lf[311]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21677 lf[312]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21678 lf[313]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21679 lf[314]=C_h_intern(&lf[314],5, C_text("begin"));
21680 lf[315]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000"));
21681 lf[316]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\001\376\001\000\000\001\001_"));
21682 lf[317]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21683 lf[318]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
21684 lf[319]=C_h_intern(&lf[319],14, C_text("current-module"));
21685 lf[320]=C_h_intern(&lf[320],17, C_text("##sys#module-name"));
21686 lf[321]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21687 lf[322]=C_h_intern(&lf[322],16, C_text("define-interface"));
21688 lf[323]=C_h_intern(&lf[323],16, C_text("##core#interface"));
21689 lf[324]=C_h_intern(&lf[324],18, C_text("##sys#put/restore!"));
21690 lf[325]=C_h_intern(&lf[325],26, C_text("##core#elaborationtimeonly"));
21691 lf[326]=C_h_intern(&lf[326],1, C_text("\052"));
21692 lf[327]=C_h_intern_kw(&lf[327],9, C_text("interface"));
21693 lf[328]=C_h_intern(&lf[328],22, C_text("##sys#validate-exports"));
21694 lf[329]=C_h_intern(&lf[329],17, C_text("syntax-error-hook"));
21695 lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017invalid exports"));
21696 lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000-`\052\047 is not allowed as a name for an interface"));
21697 lf[332]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
21698 lf[333]=C_h_intern(&lf[333],7, C_text("functor"));
21699 lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030invalid functor argument"));
21700 lf[335]=C_h_intern(&lf[335],41, C_text("chicken.internal#valid-library-specifier\077"));
21701 lf[336]=C_h_intern(&lf[336],22, C_text("##sys#register-functor"));
21702 lf[337]=C_h_intern(&lf[337],6, C_text("scheme"));
21703 lf[338]=C_h_intern(&lf[338],14, C_text("chicken.syntax"));
21704 lf[339]=C_h_intern(&lf[339],16, C_text("begin-for-syntax"));
21705 lf[340]=C_h_intern(&lf[340],27, C_text("chicken.internal#library-id"));
21706 lf[341]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001_"
21707 "\376\001\000\000\001\001_"));
21708 lf[342]=C_h_intern(&lf[342],8, C_text("reexport"));
21709 lf[343]=C_h_intern(&lf[343],19, C_text("##sys#expand-import"));
21710 lf[344]=C_h_intern(&lf[344],6, C_text("export"));
21711 lf[345]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21712 lf[346]=C_h_intern(&lf[346],24, C_text("##sys#add-to-export-list"));
21713 lf[347]=C_h_intern(&lf[347],6, C_text("module"));
21714 lf[348]=C_h_intern(&lf[348],1, C_text("="));
21715 lf[349]=C_h_intern(&lf[349],21, C_text("scheme#string->symbol"));
21716 lf[350]=C_h_intern(&lf[350],19, C_text("##sys#string-append"));
21717 lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_"));
21718 lf[352]=C_h_intern(&lf[352],25, C_text("##sys#instantiate-functor"));
21719 lf[353]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\016"));
21720 lf[354]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\001\001_\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\000"));
21721 lf[355]=C_h_intern(&lf[355],11, C_text("cond-expand"));
21722 lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042syntax error in `cond-expand\047 form"));
21723 lf[357]=C_h_intern(&lf[357],25, C_text("chicken.platform#feature\077"));
21724 lf[358]=C_h_intern(&lf[358],3, C_text("not"));
21725 lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000(no matching clause in `cond-expand\047 form"));
21726 lf[360]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21727 lf[361]=C_h_intern(&lf[361],17, C_text("import-for-syntax"));
21728 lf[362]=C_h_intern(&lf[362],30, C_text("##sys#register-meta-expression"));
21729 lf[363]=C_h_intern(&lf[363],22, C_text("##sys#decompose-import"));
21730 lf[364]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
21731 lf[365]=C_h_intern(&lf[365],14, C_text("##core#require"));
21732 lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000#cannot import from undefined module"));
21733 lf[367]=C_h_intern(&lf[367],12, C_text("##sys#import"));
21734 lf[368]=C_decode_literal(C_heaptop,C_text("\376B\000\0001cannot import from module currently being defined"));
21735 lf[369]=C_h_intern(&lf[369],24, C_text("import-syntax-for-syntax"));
21736 lf[370]=C_h_intern(&lf[370],13, C_text("import-syntax"));
21737 lf[371]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\002srfi-0\376\003\000\000\002\376\001\000\000\006\002srfi-2\376\003\000\000\002\376\001\000\000\006\002srfi-6\376\003\000\000\002\376\001\000\000\006\002srfi-9\376\003\000\000\002\376\001\000\000\007\002s"
21738 "rfi-46\376\003\000\000\002\376\001\000\000\007\002srfi-55\376\003\000\000\002\376\001\000\000\007\002srfi-61\376\377\016"));
21739 C_register_lf2(lf,372,create_ptable());{}
21740 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4262,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
21741 C_word *av2=av;
21742 av2[0]=C_SCHEME_UNDEFINED;
21743 av2[1]=t2;
21744 C_internal_toplevel(2,av2);}}
21745 
21746 #ifdef C_ENABLE_PTABLES
21747 static C_PTABLE_ENTRY ptable[667] = {
21748 {C_text("f_10002:expand_2escm"),(void*)f_10002},
21749 {C_text("f_10005:expand_2escm"),(void*)f_10005},
21750 {C_text("f_10008:expand_2escm"),(void*)f_10008},
21751 {C_text("f_10011:expand_2escm"),(void*)f_10011},
21752 {C_text("f_10014:expand_2escm"),(void*)f_10014},
21753 {C_text("f_10017:expand_2escm"),(void*)f_10017},
21754 {C_text("f_10019:expand_2escm"),(void*)f_10019},
21755 {C_text("f_10025:expand_2escm"),(void*)f_10025},
21756 {C_text("f_10035:expand_2escm"),(void*)f_10035},
21757 {C_text("f_10053:expand_2escm"),(void*)f_10053},
21758 {C_text("f_10061:expand_2escm"),(void*)f_10061},
21759 {C_text("f_10071:expand_2escm"),(void*)f_10071},
21760 {C_text("f_10098:expand_2escm"),(void*)f_10098},
21761 {C_text("f_10113:expand_2escm"),(void*)f_10113},
21762 {C_text("f_10117:expand_2escm"),(void*)f_10117},
21763 {C_text("f_10122:expand_2escm"),(void*)f_10122},
21764 {C_text("f_10128:expand_2escm"),(void*)f_10128},
21765 {C_text("f_10132:expand_2escm"),(void*)f_10132},
21766 {C_text("f_10136:expand_2escm"),(void*)f_10136},
21767 {C_text("f_10140:expand_2escm"),(void*)f_10140},
21768 {C_text("f_10144:expand_2escm"),(void*)f_10144},
21769 {C_text("f_10148:expand_2escm"),(void*)f_10148},
21770 {C_text("f_10153:expand_2escm"),(void*)f_10153},
21771 {C_text("f_10160:expand_2escm"),(void*)f_10160},
21772 {C_text("f_10165:expand_2escm"),(void*)f_10165},
21773 {C_text("f_10169:expand_2escm"),(void*)f_10169},
21774 {C_text("f_10173:expand_2escm"),(void*)f_10173},
21775 {C_text("f_10177:expand_2escm"),(void*)f_10177},
21776 {C_text("f_10182:expand_2escm"),(void*)f_10182},
21777 {C_text("f_10186:expand_2escm"),(void*)f_10186},
21778 {C_text("f_10190:expand_2escm"),(void*)f_10190},
21779 {C_text("f_10194:expand_2escm"),(void*)f_10194},
21780 {C_text("f_10196:expand_2escm"),(void*)f_10196},
21781 {C_text("f_10202:expand_2escm"),(void*)f_10202},
21782 {C_text("f_10230:expand_2escm"),(void*)f_10230},
21783 {C_text("f_10240:expand_2escm"),(void*)f_10240},
21784 {C_text("f_10254:expand_2escm"),(void*)f_10254},
21785 {C_text("f_10279:expand_2escm"),(void*)f_10279},
21786 {C_text("f_10296:expand_2escm"),(void*)f_10296},
21787 {C_text("f_10303:expand_2escm"),(void*)f_10303},
21788 {C_text("f_10324:expand_2escm"),(void*)f_10324},
21789 {C_text("f_10328:expand_2escm"),(void*)f_10328},
21790 {C_text("f_10332:expand_2escm"),(void*)f_10332},
21791 {C_text("f_10334:expand_2escm"),(void*)f_10334},
21792 {C_text("f_10339:expand_2escm"),(void*)f_10339},
21793 {C_text("f_10362:expand_2escm"),(void*)f_10362},
21794 {C_text("f_10396:expand_2escm"),(void*)f_10396},
21795 {C_text("f_10432:expand_2escm"),(void*)f_10432},
21796 {C_text("f_10436:expand_2escm"),(void*)f_10436},
21797 {C_text("f_10440:expand_2escm"),(void*)f_10440},
21798 {C_text("f_10489:expand_2escm"),(void*)f_10489},
21799 {C_text("f_10497:expand_2escm"),(void*)f_10497},
21800 {C_text("f_10510:expand_2escm"),(void*)f_10510},
21801 {C_text("f_10543:expand_2escm"),(void*)f_10543},
21802 {C_text("f_10547:expand_2escm"),(void*)f_10547},
21803 {C_text("f_10602:expand_2escm"),(void*)f_10602},
21804 {C_text("f_10626:expand_2escm"),(void*)f_10626},
21805 {C_text("f_10670:expand_2escm"),(void*)f_10670},
21806 {C_text("f_10694:expand_2escm"),(void*)f_10694},
21807 {C_text("f_10700:expand_2escm"),(void*)f_10700},
21808 {C_text("f_10713:expand_2escm"),(void*)f_10713},
21809 {C_text("f_10717:expand_2escm"),(void*)f_10717},
21810 {C_text("f_10729:expand_2escm"),(void*)f_10729},
21811 {C_text("f_10775:expand_2escm"),(void*)f_10775},
21812 {C_text("f_10779:expand_2escm"),(void*)f_10779},
21813 {C_text("f_10804:expand_2escm"),(void*)f_10804},
21814 {C_text("f_10810:expand_2escm"),(void*)f_10810},
21815 {C_text("f_10849:expand_2escm"),(void*)f_10849},
21816 {C_text("f_10852:expand_2escm"),(void*)f_10852},
21817 {C_text("f_10858:expand_2escm"),(void*)f_10858},
21818 {C_text("f_10870:expand_2escm"),(void*)f_10870},
21819 {C_text("f_10873:expand_2escm"),(void*)f_10873},
21820 {C_text("f_10876:expand_2escm"),(void*)f_10876},
21821 {C_text("f_10889:expand_2escm"),(void*)f_10889},
21822 {C_text("f_10893:expand_2escm"),(void*)f_10893},
21823 {C_text("f_10897:expand_2escm"),(void*)f_10897},
21824 {C_text("f_10899:expand_2escm"),(void*)f_10899},
21825 {C_text("f_10920:expand_2escm"),(void*)f_10920},
21826 {C_text("f_10972:expand_2escm"),(void*)f_10972},
21827 {C_text("f_10976:expand_2escm"),(void*)f_10976},
21828 {C_text("f_10993:expand_2escm"),(void*)f_10993},
21829 {C_text("f_10997:expand_2escm"),(void*)f_10997},
21830 {C_text("f_11002:expand_2escm"),(void*)f_11002},
21831 {C_text("f_11028:expand_2escm"),(void*)f_11028},
21832 {C_text("f_11043:expand_2escm"),(void*)f_11043},
21833 {C_text("f_11062:expand_2escm"),(void*)f_11062},
21834 {C_text("f_11077:expand_2escm"),(void*)f_11077},
21835 {C_text("f_11079:expand_2escm"),(void*)f_11079},
21836 {C_text("f_11121:expand_2escm"),(void*)f_11121},
21837 {C_text("f_11132:expand_2escm"),(void*)f_11132},
21838 {C_text("f_11151:expand_2escm"),(void*)f_11151},
21839 {C_text("f_11166:expand_2escm"),(void*)f_11166},
21840 {C_text("f_11168:expand_2escm"),(void*)f_11168},
21841 {C_text("f_11175:expand_2escm"),(void*)f_11175},
21842 {C_text("f_11196:expand_2escm"),(void*)f_11196},
21843 {C_text("f_11220:expand_2escm"),(void*)f_11220},
21844 {C_text("f_11227:expand_2escm"),(void*)f_11227},
21845 {C_text("f_11234:expand_2escm"),(void*)f_11234},
21846 {C_text("f_11240:expand_2escm"),(void*)f_11240},
21847 {C_text("f_11250:expand_2escm"),(void*)f_11250},
21848 {C_text("f_11257:expand_2escm"),(void*)f_11257},
21849 {C_text("f_11278:expand_2escm"),(void*)f_11278},
21850 {C_text("f_11282:expand_2escm"),(void*)f_11282},
21851 {C_text("f_11286:expand_2escm"),(void*)f_11286},
21852 {C_text("f_11290:expand_2escm"),(void*)f_11290},
21853 {C_text("f_11294:expand_2escm"),(void*)f_11294},
21854 {C_text("f_11298:expand_2escm"),(void*)f_11298},
21855 {C_text("f_11300:expand_2escm"),(void*)f_11300},
21856 {C_text("f_11304:expand_2escm"),(void*)f_11304},
21857 {C_text("f_11312:expand_2escm"),(void*)f_11312},
21858 {C_text("f_11321:expand_2escm"),(void*)f_11321},
21859 {C_text("f_11334:expand_2escm"),(void*)f_11334},
21860 {C_text("f_11336:expand_2escm"),(void*)f_11336},
21861 {C_text("f_11340:expand_2escm"),(void*)f_11340},
21862 {C_text("f_11347:expand_2escm"),(void*)f_11347},
21863 {C_text("f_11367:expand_2escm"),(void*)f_11367},
21864 {C_text("f_11369:expand_2escm"),(void*)f_11369},
21865 {C_text("f_11373:expand_2escm"),(void*)f_11373},
21866 {C_text("f_11376:expand_2escm"),(void*)f_11376},
21867 {C_text("f_11379:expand_2escm"),(void*)f_11379},
21868 {C_text("f_11381:expand_2escm"),(void*)f_11381},
21869 {C_text("f_11389:expand_2escm"),(void*)f_11389},
21870 {C_text("f_11391:expand_2escm"),(void*)f_11391},
21871 {C_text("f_11405:expand_2escm"),(void*)f_11405},
21872 {C_text("f_11409:expand_2escm"),(void*)f_11409},
21873 {C_text("f_11428:expand_2escm"),(void*)f_11428},
21874 {C_text("f_11437:expand_2escm"),(void*)f_11437},
21875 {C_text("f_11451:expand_2escm"),(void*)f_11451},
21876 {C_text("f_11461:expand_2escm"),(void*)f_11461},
21877 {C_text("f_11472:expand_2escm"),(void*)f_11472},
21878 {C_text("f_11482:expand_2escm"),(void*)f_11482},
21879 {C_text("f_11491:expand_2escm"),(void*)f_11491},
21880 {C_text("f_11502:expand_2escm"),(void*)f_11502},
21881 {C_text("f_11513:expand_2escm"),(void*)f_11513},
21882 {C_text("f_11521:expand_2escm"),(void*)f_11521},
21883 {C_text("f_11536:expand_2escm"),(void*)f_11536},
21884 {C_text("f_11540:expand_2escm"),(void*)f_11540},
21885 {C_text("f_11554:expand_2escm"),(void*)f_11554},
21886 {C_text("f_11558:expand_2escm"),(void*)f_11558},
21887 {C_text("f_11562:expand_2escm"),(void*)f_11562},
21888 {C_text("f_11584:expand_2escm"),(void*)f_11584},
21889 {C_text("f_11588:expand_2escm"),(void*)f_11588},
21890 {C_text("f_11631:expand_2escm"),(void*)f_11631},
21891 {C_text("f_11649:expand_2escm"),(void*)f_11649},
21892 {C_text("f_11660:expand_2escm"),(void*)f_11660},
21893 {C_text("f_11662:expand_2escm"),(void*)f_11662},
21894 {C_text("f_11666:expand_2escm"),(void*)f_11666},
21895 {C_text("f_11678:expand_2escm"),(void*)f_11678},
21896 {C_text("f_11706:expand_2escm"),(void*)f_11706},
21897 {C_text("f_11727:expand_2escm"),(void*)f_11727},
21898 {C_text("f_11768:expand_2escm"),(void*)f_11768},
21899 {C_text("f_11770:expand_2escm"),(void*)f_11770},
21900 {C_text("f_11780:expand_2escm"),(void*)f_11780},
21901 {C_text("f_11820:expand_2escm"),(void*)f_11820},
21902 {C_text("f_11856:expand_2escm"),(void*)f_11856},
21903 {C_text("f_11858:expand_2escm"),(void*)f_11858},
21904 {C_text("f_11862:expand_2escm"),(void*)f_11862},
21905 {C_text("f_11872:expand_2escm"),(void*)f_11872},
21906 {C_text("f_11897:expand_2escm"),(void*)f_11897},
21907 {C_text("f_11907:expand_2escm"),(void*)f_11907},
21908 {C_text("f_11909:expand_2escm"),(void*)f_11909},
21909 {C_text("f_11913:expand_2escm"),(void*)f_11913},
21910 {C_text("f_11921:expand_2escm"),(void*)f_11921},
21911 {C_text("f_11924:expand_2escm"),(void*)f_11924},
21912 {C_text("f_11927:expand_2escm"),(void*)f_11927},
21913 {C_text("f_11930:expand_2escm"),(void*)f_11930},
21914 {C_text("f_11933:expand_2escm"),(void*)f_11933},
21915 {C_text("f_11944:expand_2escm"),(void*)f_11944},
21916 {C_text("f_11946:expand_2escm"),(void*)f_11946},
21917 {C_text("f_11960:expand_2escm"),(void*)f_11960},
21918 {C_text("f_11966:expand_2escm"),(void*)f_11966},
21919 {C_text("f_11969:expand_2escm"),(void*)f_11969},
21920 {C_text("f_11973:expand_2escm"),(void*)f_11973},
21921 {C_text("f_11979:expand_2escm"),(void*)f_11979},
21922 {C_text("f_11982:expand_2escm"),(void*)f_11982},
21923 {C_text("f_11997:expand_2escm"),(void*)f_11997},
21924 {C_text("f_12038:expand_2escm"),(void*)f_12038},
21925 {C_text("f_12042:expand_2escm"),(void*)f_12042},
21926 {C_text("f_12045:expand_2escm"),(void*)f_12045},
21927 {C_text("f_12078:expand_2escm"),(void*)f_12078},
21928 {C_text("f_12093:expand_2escm"),(void*)f_12093},
21929 {C_text("f_12095:expand_2escm"),(void*)f_12095},
21930 {C_text("f_12143:expand_2escm"),(void*)f_12143},
21931 {C_text("f_12145:expand_2escm"),(void*)f_12145},
21932 {C_text("f_12152:expand_2escm"),(void*)f_12152},
21933 {C_text("f_12155:expand_2escm"),(void*)f_12155},
21934 {C_text("f_12158:expand_2escm"),(void*)f_12158},
21935 {C_text("f_12163:expand_2escm"),(void*)f_12163},
21936 {C_text("f_12177:expand_2escm"),(void*)f_12177},
21937 {C_text("f_12183:expand_2escm"),(void*)f_12183},
21938 {C_text("f_12186:expand_2escm"),(void*)f_12186},
21939 {C_text("f_12190:expand_2escm"),(void*)f_12190},
21940 {C_text("f_12196:expand_2escm"),(void*)f_12196},
21941 {C_text("f_12199:expand_2escm"),(void*)f_12199},
21942 {C_text("f_12202:expand_2escm"),(void*)f_12202},
21943 {C_text("f_12205:expand_2escm"),(void*)f_12205},
21944 {C_text("f_12209:expand_2escm"),(void*)f_12209},
21945 {C_text("f_12215:expand_2escm"),(void*)f_12215},
21946 {C_text("f_12218:expand_2escm"),(void*)f_12218},
21947 {C_text("f_12221:expand_2escm"),(void*)f_12221},
21948 {C_text("f_12227:expand_2escm"),(void*)f_12227},
21949 {C_text("f_12253:expand_2escm"),(void*)f_12253},
21950 {C_text("f_12281:expand_2escm"),(void*)f_12281},
21951 {C_text("f_12298:expand_2escm"),(void*)f_12298},
21952 {C_text("f_12304:expand_2escm"),(void*)f_12304},
21953 {C_text("f_12307:expand_2escm"),(void*)f_12307},
21954 {C_text("f_12326:expand_2escm"),(void*)f_12326},
21955 {C_text("f_12344:expand_2escm"),(void*)f_12344},
21956 {C_text("f_12347:expand_2escm"),(void*)f_12347},
21957 {C_text("f_12374:expand_2escm"),(void*)f_12374},
21958 {C_text("f_12401:expand_2escm"),(void*)f_12401},
21959 {C_text("f_12464:expand_2escm"),(void*)f_12464},
21960 {C_text("f_12476:expand_2escm"),(void*)f_12476},
21961 {C_text("f_12492:expand_2escm"),(void*)f_12492},
21962 {C_text("f_12526:expand_2escm"),(void*)f_12526},
21963 {C_text("f_12528:expand_2escm"),(void*)f_12528},
21964 {C_text("f_12551:expand_2escm"),(void*)f_12551},
21965 {C_text("f_12570:expand_2escm"),(void*)f_12570},
21966 {C_text("f_12578:expand_2escm"),(void*)f_12578},
21967 {C_text("f_12580:expand_2escm"),(void*)f_12580},
21968 {C_text("f_12611:expand_2escm"),(void*)f_12611},
21969 {C_text("f_12615:expand_2escm"),(void*)f_12615},
21970 {C_text("f_12617:expand_2escm"),(void*)f_12617},
21971 {C_text("f_12621:expand_2escm"),(void*)f_12621},
21972 {C_text("f_12644:expand_2escm"),(void*)f_12644},
21973 {C_text("f_12659:expand_2escm"),(void*)f_12659},
21974 {C_text("f_12661:expand_2escm"),(void*)f_12661},
21975 {C_text("f_12665:expand_2escm"),(void*)f_12665},
21976 {C_text("f_12668:expand_2escm"),(void*)f_12668},
21977 {C_text("f_12681:expand_2escm"),(void*)f_12681},
21978 {C_text("f_12683:expand_2escm"),(void*)f_12683},
21979 {C_text("f_12687:expand_2escm"),(void*)f_12687},
21980 {C_text("f_12690:expand_2escm"),(void*)f_12690},
21981 {C_text("f_12703:expand_2escm"),(void*)f_12703},
21982 {C_text("f_12705:expand_2escm"),(void*)f_12705},
21983 {C_text("f_12709:expand_2escm"),(void*)f_12709},
21984 {C_text("f_12712:expand_2escm"),(void*)f_12712},
21985 {C_text("f_12725:expand_2escm"),(void*)f_12725},
21986 {C_text("f_12727:expand_2escm"),(void*)f_12727},
21987 {C_text("f_12731:expand_2escm"),(void*)f_12731},
21988 {C_text("f_12742:expand_2escm"),(void*)f_12742},
21989 {C_text("f_12752:expand_2escm"),(void*)f_12752},
21990 {C_text("f_12777:expand_2escm"),(void*)f_12777},
21991 {C_text("f_12779:expand_2escm"),(void*)f_12779},
21992 {C_text("f_12783:expand_2escm"),(void*)f_12783},
21993 {C_text("f_12800:expand_2escm"),(void*)f_12800},
21994 {C_text("f_12803:expand_2escm"),(void*)f_12803},
21995 {C_text("f_12809:expand_2escm"),(void*)f_12809},
21996 {C_text("f_12816:expand_2escm"),(void*)f_12816},
21997 {C_text("f_12820:expand_2escm"),(void*)f_12820},
21998 {C_text("f_12824:expand_2escm"),(void*)f_12824},
21999 {C_text("f_12826:expand_2escm"),(void*)f_12826},
22000 {C_text("f_12830:expand_2escm"),(void*)f_12830},
22001 {C_text("f_12835:expand_2escm"),(void*)f_12835},
22002 {C_text("f_12850:expand_2escm"),(void*)f_12850},
22003 {C_text("f_12861:expand_2escm"),(void*)f_12861},
22004 {C_text("f_12864:expand_2escm"),(void*)f_12864},
22005 {C_text("f_12886:expand_2escm"),(void*)f_12886},
22006 {C_text("f_12893:expand_2escm"),(void*)f_12893},
22007 {C_text("f_12897:expand_2escm"),(void*)f_12897},
22008 {C_text("f_12906:expand_2escm"),(void*)f_12906},
22009 {C_text("f_12913:expand_2escm"),(void*)f_12913},
22010 {C_text("f_12916:expand_2escm"),(void*)f_12916},
22011 {C_text("f_12951:expand_2escm"),(void*)f_12951},
22012 {C_text("f_12953:expand_2escm"),(void*)f_12953},
22013 {C_text("f_12957:expand_2escm"),(void*)f_12957},
22014 {C_text("f_12968:expand_2escm"),(void*)f_12968},
22015 {C_text("f_12970:expand_2escm"),(void*)f_12970},
22016 {C_text("f_12974:expand_2escm"),(void*)f_12974},
22017 {C_text("f_12985:expand_2escm"),(void*)f_12985},
22018 {C_text("f_12987:expand_2escm"),(void*)f_12987},
22019 {C_text("f_12991:expand_2escm"),(void*)f_12991},
22020 {C_text("f_13002:expand_2escm"),(void*)f_13002},
22021 {C_text("f_13004:expand_2escm"),(void*)f_13004},
22022 {C_text("f_13008:expand_2escm"),(void*)f_13008},
22023 {C_text("f_13019:expand_2escm"),(void*)f_13019},
22024 {C_text("f_13021:expand_2escm"),(void*)f_13021},
22025 {C_text("f_13025:expand_2escm"),(void*)f_13025},
22026 {C_text("f_13028:expand_2escm"),(void*)f_13028},
22027 {C_text("f_13038:expand_2escm"),(void*)f_13038},
22028 {C_text("f_13042:expand_2escm"),(void*)f_13042},
22029 {C_text("f_13044:expand_2escm"),(void*)f_13044},
22030 {C_text("f_13048:expand_2escm"),(void*)f_13048},
22031 {C_text("f_13051:expand_2escm"),(void*)f_13051},
22032 {C_text("f_13054:expand_2escm"),(void*)f_13054},
22033 {C_text("f_13077:expand_2escm"),(void*)f_13077},
22034 {C_text("f_13080:expand_2escm"),(void*)f_13080},
22035 {C_text("f_13126:expand_2escm"),(void*)f_13126},
22036 {C_text("f_13128:expand_2escm"),(void*)f_13128},
22037 {C_text("f_13132:expand_2escm"),(void*)f_13132},
22038 {C_text("f_13135:expand_2escm"),(void*)f_13135},
22039 {C_text("f_13158:expand_2escm"),(void*)f_13158},
22040 {C_text("f_13186:expand_2escm"),(void*)f_13186},
22041 {C_text("f_13191:expand_2escm"),(void*)f_13191},
22042 {C_text("f_13198:expand_2escm"),(void*)f_13198},
22043 {C_text("f_13201:expand_2escm"),(void*)f_13201},
22044 {C_text("f_13210:expand_2escm"),(void*)f_13210},
22045 {C_text("f_13255:expand_2escm"),(void*)f_13255},
22046 {C_text("f_13257:expand_2escm"),(void*)f_13257},
22047 {C_text("f_13282:expand_2escm"),(void*)f_13282},
22048 {C_text("f_13293:expand_2escm"),(void*)f_13293},
22049 {C_text("f_13297:expand_2escm"),(void*)f_13297},
22050 {C_text("f_13299:expand_2escm"),(void*)f_13299},
22051 {C_text("f_13307:expand_2escm"),(void*)f_13307},
22052 {C_text("f_13309:expand_2escm"),(void*)f_13309},
22053 {C_text("f_13313:expand_2escm"),(void*)f_13313},
22054 {C_text("f_13316:expand_2escm"),(void*)f_13316},
22055 {C_text("f_13319:expand_2escm"),(void*)f_13319},
22056 {C_text("f_13326:expand_2escm"),(void*)f_13326},
22057 {C_text("f_13334:expand_2escm"),(void*)f_13334},
22058 {C_text("f_13336:expand_2escm"),(void*)f_13336},
22059 {C_text("f_13340:expand_2escm"),(void*)f_13340},
22060 {C_text("f_13346:expand_2escm"),(void*)f_13346},
22061 {C_text("f_13352:expand_2escm"),(void*)f_13352},
22062 {C_text("f_13355:expand_2escm"),(void*)f_13355},
22063 {C_text("f_13367:expand_2escm"),(void*)f_13367},
22064 {C_text("f_13370:expand_2escm"),(void*)f_13370},
22065 {C_text("f_13401:expand_2escm"),(void*)f_13401},
22066 {C_text("f_13405:expand_2escm"),(void*)f_13405},
22067 {C_text("f_13408:expand_2escm"),(void*)f_13408},
22068 {C_text("f_13415:expand_2escm"),(void*)f_13415},
22069 {C_text("f_13424:expand_2escm"),(void*)f_13424},
22070 {C_text("f_13449:expand_2escm"),(void*)f_13449},
22071 {C_text("f_13483:expand_2escm"),(void*)f_13483},
22072 {C_text("f_13497:expand_2escm"),(void*)f_13497},
22073 {C_text("f_13509:expand_2escm"),(void*)f_13509},
22074 {C_text("f_13511:expand_2escm"),(void*)f_13511},
22075 {C_text("f_13517:expand_2escm"),(void*)f_13517},
22076 {C_text("f_13527:expand_2escm"),(void*)f_13527},
22077 {C_text("f_13541:expand_2escm"),(void*)f_13541},
22078 {C_text("f_13557:expand_2escm"),(void*)f_13557},
22079 {C_text("f_13581:expand_2escm"),(void*)f_13581},
22080 {C_text("f_13616:expand_2escm"),(void*)f_13616},
22081 {C_text("f_13650:expand_2escm"),(void*)f_13650},
22082 {C_text("f_13672:expand_2escm"),(void*)f_13672},
22083 {C_text("f_13697:expand_2escm"),(void*)f_13697},
22084 {C_text("f_13699:expand_2escm"),(void*)f_13699},
22085 {C_text("f_13778:expand_2escm"),(void*)f_13778},
22086 {C_text("f_13790:expand_2escm"),(void*)f_13790},
22087 {C_text("f_13802:expand_2escm"),(void*)f_13802},
22088 {C_text("f_13804:expand_2escm"),(void*)f_13804},
22089 {C_text("f_13808:expand_2escm"),(void*)f_13808},
22090 {C_text("f_13819:expand_2escm"),(void*)f_13819},
22091 {C_text("f_13829:expand_2escm"),(void*)f_13829},
22092 {C_text("f_13837:expand_2escm"),(void*)f_13837},
22093 {C_text("f_13839:expand_2escm"),(void*)f_13839},
22094 {C_text("f_13848:expand_2escm"),(void*)f_13848},
22095 {C_text("f_13854:expand_2escm"),(void*)f_13854},
22096 {C_text("f_13860:expand_2escm"),(void*)f_13860},
22097 {C_text("f_13864:expand_2escm"),(void*)f_13864},
22098 {C_text("f_13867:expand_2escm"),(void*)f_13867},
22099 {C_text("f_13870:expand_2escm"),(void*)f_13870},
22100 {C_text("f_13901:expand_2escm"),(void*)f_13901},
22101 {C_text("f_13910:expand_2escm"),(void*)f_13910},
22102 {C_text("f_13912:expand_2escm"),(void*)f_13912},
22103 {C_text("f_13937:expand_2escm"),(void*)f_13937},
22104 {C_text("f_13948:expand_2escm"),(void*)f_13948},
22105 {C_text("f_13950:expand_2escm"),(void*)f_13950},
22106 {C_text("f_13958:expand_2escm"),(void*)f_13958},
22107 {C_text("f_13960:expand_2escm"),(void*)f_13960},
22108 {C_text("f_4262:expand_2escm"),(void*)f_4262},
22109 {C_text("f_4265:expand_2escm"),(void*)f_4265},
22110 {C_text("f_5547:expand_2escm"),(void*)f_5547},
22111 {C_text("f_5552:expand_2escm"),(void*)f_5552},
22112 {C_text("f_5556:expand_2escm"),(void*)f_5556},
22113 {C_text("f_5558:expand_2escm"),(void*)f_5558},
22114 {C_text("f_5575:expand_2escm"),(void*)f_5575},
22115 {C_text("f_5582:expand_2escm"),(void*)f_5582},
22116 {C_text("f_5588:expand_2escm"),(void*)f_5588},
22117 {C_text("f_5622:expand_2escm"),(void*)f_5622},
22118 {C_text("f_5628:expand_2escm"),(void*)f_5628},
22119 {C_text("f_5644:expand_2escm"),(void*)f_5644},
22120 {C_text("f_5699:expand_2escm"),(void*)f_5699},
22121 {C_text("f_5706:expand_2escm"),(void*)f_5706},
22122 {C_text("f_5724:expand_2escm"),(void*)f_5724},
22123 {C_text("f_5733:expand_2escm"),(void*)f_5733},
22124 {C_text("f_5754:expand_2escm"),(void*)f_5754},
22125 {C_text("f_5764:expand_2escm"),(void*)f_5764},
22126 {C_text("f_5768:expand_2escm"),(void*)f_5768},
22127 {C_text("f_5793:expand_2escm"),(void*)f_5793},
22128 {C_text("f_5808:expand_2escm"),(void*)f_5808},
22129 {C_text("f_5810:expand_2escm"),(void*)f_5810},
22130 {C_text("f_5858:expand_2escm"),(void*)f_5858},
22131 {C_text("f_5907:expand_2escm"),(void*)f_5907},
22132 {C_text("f_5932:expand_2escm"),(void*)f_5932},
22133 {C_text("f_5946:expand_2escm"),(void*)f_5946},
22134 {C_text("f_5955:expand_2escm"),(void*)f_5955},
22135 {C_text("f_5979:expand_2escm"),(void*)f_5979},
22136 {C_text("f_5983:expand_2escm"),(void*)f_5983},
22137 {C_text("f_5986:expand_2escm"),(void*)f_5986},
22138 {C_text("f_5993:expand_2escm"),(void*)f_5993},
22139 {C_text("f_6011:expand_2escm"),(void*)f_6011},
22140 {C_text("f_6021:expand_2escm"),(void*)f_6021},
22141 {C_text("f_6025:expand_2escm"),(void*)f_6025},
22142 {C_text("f_6047:expand_2escm"),(void*)f_6047},
22143 {C_text("f_6058:expand_2escm"),(void*)f_6058},
22144 {C_text("f_6066:expand_2escm"),(void*)f_6066},
22145 {C_text("f_6070:expand_2escm"),(void*)f_6070},
22146 {C_text("f_6072:expand_2escm"),(void*)f_6072},
22147 {C_text("f_6095:expand_2escm"),(void*)f_6095},
22148 {C_text("f_6103:expand_2escm"),(void*)f_6103},
22149 {C_text("f_6106:expand_2escm"),(void*)f_6106},
22150 {C_text("f_6116:expand_2escm"),(void*)f_6116},
22151 {C_text("f_6121:expand_2escm"),(void*)f_6121},
22152 {C_text("f_6127:expand_2escm"),(void*)f_6127},
22153 {C_text("f_6133:expand_2escm"),(void*)f_6133},
22154 {C_text("f_6155:expand_2escm"),(void*)f_6155},
22155 {C_text("f_6161:expand_2escm"),(void*)f_6161},
22156 {C_text("f_6178:expand_2escm"),(void*)f_6178},
22157 {C_text("f_6189:expand_2escm"),(void*)f_6189},
22158 {C_text("f_6228:expand_2escm"),(void*)f_6228},
22159 {C_text("f_6234:expand_2escm"),(void*)f_6234},
22160 {C_text("f_6238:expand_2escm"),(void*)f_6238},
22161 {C_text("f_6241:expand_2escm"),(void*)f_6241},
22162 {C_text("f_6257:expand_2escm"),(void*)f_6257},
22163 {C_text("f_6261:expand_2escm"),(void*)f_6261},
22164 {C_text("f_6268:expand_2escm"),(void*)f_6268},
22165 {C_text("f_6274:expand_2escm"),(void*)f_6274},
22166 {C_text("f_6279:expand_2escm"),(void*)f_6279},
22167 {C_text("f_6285:expand_2escm"),(void*)f_6285},
22168 {C_text("f_6293:expand_2escm"),(void*)f_6293},
22169 {C_text("f_6299:expand_2escm"),(void*)f_6299},
22170 {C_text("f_6305:expand_2escm"),(void*)f_6305},
22171 {C_text("f_6331:expand_2escm"),(void*)f_6331},
22172 {C_text("f_6349:expand_2escm"),(void*)f_6349},
22173 {C_text("f_6373:expand_2escm"),(void*)f_6373},
22174 {C_text("f_6382:expand_2escm"),(void*)f_6382},
22175 {C_text("f_6394:expand_2escm"),(void*)f_6394},
22176 {C_text("f_6419:expand_2escm"),(void*)f_6419},
22177 {C_text("f_6421:expand_2escm"),(void*)f_6421},
22178 {C_text("f_6484:expand_2escm"),(void*)f_6484},
22179 {C_text("f_6490:expand_2escm"),(void*)f_6490},
22180 {C_text("f_6528:expand_2escm"),(void*)f_6528},
22181 {C_text("f_6532:expand_2escm"),(void*)f_6532},
22182 {C_text("f_6536:expand_2escm"),(void*)f_6536},
22183 {C_text("f_6548:expand_2escm"),(void*)f_6548},
22184 {C_text("f_6591:expand_2escm"),(void*)f_6591},
22185 {C_text("f_6601:expand_2escm"),(void*)f_6601},
22186 {C_text("f_6604:expand_2escm"),(void*)f_6604},
22187 {C_text("f_6608:expand_2escm"),(void*)f_6608},
22188 {C_text("f_6622:expand_2escm"),(void*)f_6622},
22189 {C_text("f_6628:expand_2escm"),(void*)f_6628},
22190 {C_text("f_6634:expand_2escm"),(void*)f_6634},
22191 {C_text("f_6670:expand_2escm"),(void*)f_6670},
22192 {C_text("f_6676:expand_2escm"),(void*)f_6676},
22193 {C_text("f_6717:expand_2escm"),(void*)f_6717},
22194 {C_text("f_6720:expand_2escm"),(void*)f_6720},
22195 {C_text("f_6737:expand_2escm"),(void*)f_6737},
22196 {C_text("f_6740:expand_2escm"),(void*)f_6740},
22197 {C_text("f_6743:expand_2escm"),(void*)f_6743},
22198 {C_text("f_6748:expand_2escm"),(void*)f_6748},
22199 {C_text("f_6762:expand_2escm"),(void*)f_6762},
22200 {C_text("f_6766:expand_2escm"),(void*)f_6766},
22201 {C_text("f_6778:expand_2escm"),(void*)f_6778},
22202 {C_text("f_6809:expand_2escm"),(void*)f_6809},
22203 {C_text("f_6834:expand_2escm"),(void*)f_6834},
22204 {C_text("f_6853:expand_2escm"),(void*)f_6853},
22205 {C_text("f_6857:expand_2escm"),(void*)f_6857},
22206 {C_text("f_6906:expand_2escm"),(void*)f_6906},
22207 {C_text("f_6959:expand_2escm"),(void*)f_6959},
22208 {C_text("f_6963:expand_2escm"),(void*)f_6963},
22209 {C_text("f_6966:expand_2escm"),(void*)f_6966},
22210 {C_text("f_6969:expand_2escm"),(void*)f_6969},
22211 {C_text("f_6971:expand_2escm"),(void*)f_6971},
22212 {C_text("f_6996:expand_2escm"),(void*)f_6996},
22213 {C_text("f_7010:expand_2escm"),(void*)f_7010},
22214 {C_text("f_7051:expand_2escm"),(void*)f_7051},
22215 {C_text("f_7064:expand_2escm"),(void*)f_7064},
22216 {C_text("f_7080:expand_2escm"),(void*)f_7080},
22217 {C_text("f_7101:expand_2escm"),(void*)f_7101},
22218 {C_text("f_7140:expand_2escm"),(void*)f_7140},
22219 {C_text("f_7159:expand_2escm"),(void*)f_7159},
22220 {C_text("f_7227:expand_2escm"),(void*)f_7227},
22221 {C_text("f_7326:expand_2escm"),(void*)f_7326},
22222 {C_text("f_7332:expand_2escm"),(void*)f_7332},
22223 {C_text("f_7336:expand_2escm"),(void*)f_7336},
22224 {C_text("f_7339:expand_2escm"),(void*)f_7339},
22225 {C_text("f_7358:expand_2escm"),(void*)f_7358},
22226 {C_text("f_7362:expand_2escm"),(void*)f_7362},
22227 {C_text("f_7380:expand_2escm"),(void*)f_7380},
22228 {C_text("f_7402:expand_2escm"),(void*)f_7402},
22229 {C_text("f_7468:expand_2escm"),(void*)f_7468},
22230 {C_text("f_7493:expand_2escm"),(void*)f_7493},
22231 {C_text("f_7506:expand_2escm"),(void*)f_7506},
22232 {C_text("f_7510:expand_2escm"),(void*)f_7510},
22233 {C_text("f_7521:expand_2escm"),(void*)f_7521},
22234 {C_text("f_7604:expand_2escm"),(void*)f_7604},
22235 {C_text("f_7616:expand_2escm"),(void*)f_7616},
22236 {C_text("f_7630:expand_2escm"),(void*)f_7630},
22237 {C_text("f_7635:expand_2escm"),(void*)f_7635},
22238 {C_text("f_7646:expand_2escm"),(void*)f_7646},
22239 {C_text("f_7666:expand_2escm"),(void*)f_7666},
22240 {C_text("f_7670:expand_2escm"),(void*)f_7670},
22241 {C_text("f_7678:expand_2escm"),(void*)f_7678},
22242 {C_text("f_7685:expand_2escm"),(void*)f_7685},
22243 {C_text("f_7697:expand_2escm"),(void*)f_7697},
22244 {C_text("f_7704:expand_2escm"),(void*)f_7704},
22245 {C_text("f_7708:expand_2escm"),(void*)f_7708},
22246 {C_text("f_7746:expand_2escm"),(void*)f_7746},
22247 {C_text("f_7857:expand_2escm"),(void*)f_7857},
22248 {C_text("f_7860:expand_2escm"),(void*)f_7860},
22249 {C_text("f_7866:expand_2escm"),(void*)f_7866},
22250 {C_text("f_7870:expand_2escm"),(void*)f_7870},
22251 {C_text("f_7892:expand_2escm"),(void*)f_7892},
22252 {C_text("f_7895:expand_2escm"),(void*)f_7895},
22253 {C_text("f_7898:expand_2escm"),(void*)f_7898},
22254 {C_text("f_7901:expand_2escm"),(void*)f_7901},
22255 {C_text("f_7903:expand_2escm"),(void*)f_7903},
22256 {C_text("f_7910:expand_2escm"),(void*)f_7910},
22257 {C_text("f_7936:expand_2escm"),(void*)f_7936},
22258 {C_text("f_7965:expand_2escm"),(void*)f_7965},
22259 {C_text("f_7999:expand_2escm"),(void*)f_7999},
22260 {C_text("f_8023:expand_2escm"),(void*)f_8023},
22261 {C_text("f_8025:expand_2escm"),(void*)f_8025},
22262 {C_text("f_8029:expand_2escm"),(void*)f_8029},
22263 {C_text("f_8041:expand_2escm"),(void*)f_8041},
22264 {C_text("f_8049:expand_2escm"),(void*)f_8049},
22265 {C_text("f_8051:expand_2escm"),(void*)f_8051},
22266 {C_text("f_8073:expand_2escm"),(void*)f_8073},
22267 {C_text("f_8076:expand_2escm"),(void*)f_8076},
22268 {C_text("f_8078:expand_2escm"),(void*)f_8078},
22269 {C_text("f_8125:expand_2escm"),(void*)f_8125},
22270 {C_text("f_8129:expand_2escm"),(void*)f_8129},
22271 {C_text("f_8197:expand_2escm"),(void*)f_8197},
22272 {C_text("f_8203:expand_2escm"),(void*)f_8203},
22273 {C_text("f_8223:expand_2escm"),(void*)f_8223},
22274 {C_text("f_8241:expand_2escm"),(void*)f_8241},
22275 {C_text("f_8246:expand_2escm"),(void*)f_8246},
22276 {C_text("f_8259:expand_2escm"),(void*)f_8259},
22277 {C_text("f_8262:expand_2escm"),(void*)f_8262},
22278 {C_text("f_8312:expand_2escm"),(void*)f_8312},
22279 {C_text("f_8319:expand_2escm"),(void*)f_8319},
22280 {C_text("f_8326:expand_2escm"),(void*)f_8326},
22281 {C_text("f_8378:expand_2escm"),(void*)f_8378},
22282 {C_text("f_8390:expand_2escm"),(void*)f_8390},
22283 {C_text("f_8426:expand_2escm"),(void*)f_8426},
22284 {C_text("f_8442:expand_2escm"),(void*)f_8442},
22285 {C_text("f_8512:expand_2escm"),(void*)f_8512},
22286 {C_text("f_8515:expand_2escm"),(void*)f_8515},
22287 {C_text("f_8529:expand_2escm"),(void*)f_8529},
22288 {C_text("f_8569:expand_2escm"),(void*)f_8569},
22289 {C_text("f_8592:expand_2escm"),(void*)f_8592},
22290 {C_text("f_8594:expand_2escm"),(void*)f_8594},
22291 {C_text("f_8597:expand_2escm"),(void*)f_8597},
22292 {C_text("f_8641:expand_2escm"),(void*)f_8641},
22293 {C_text("f_8649:expand_2escm"),(void*)f_8649},
22294 {C_text("f_8657:expand_2escm"),(void*)f_8657},
22295 {C_text("f_8660:expand_2escm"),(void*)f_8660},
22296 {C_text("f_8671:expand_2escm"),(void*)f_8671},
22297 {C_text("f_8676:expand_2escm"),(void*)f_8676},
22298 {C_text("f_8696:expand_2escm"),(void*)f_8696},
22299 {C_text("f_8700:expand_2escm"),(void*)f_8700},
22300 {C_text("f_8715:expand_2escm"),(void*)f_8715},
22301 {C_text("f_8727:expand_2escm"),(void*)f_8727},
22302 {C_text("f_8729:expand_2escm"),(void*)f_8729},
22303 {C_text("f_8736:expand_2escm"),(void*)f_8736},
22304 {C_text("f_8743:expand_2escm"),(void*)f_8743},
22305 {C_text("f_8745:expand_2escm"),(void*)f_8745},
22306 {C_text("f_8755:expand_2escm"),(void*)f_8755},
22307 {C_text("f_8758:expand_2escm"),(void*)f_8758},
22308 {C_text("f_8761:expand_2escm"),(void*)f_8761},
22309 {C_text("f_8764:expand_2escm"),(void*)f_8764},
22310 {C_text("f_8767:expand_2escm"),(void*)f_8767},
22311 {C_text("f_8774:expand_2escm"),(void*)f_8774},
22312 {C_text("f_8781:expand_2escm"),(void*)f_8781},
22313 {C_text("f_8784:expand_2escm"),(void*)f_8784},
22314 {C_text("f_8793:expand_2escm"),(void*)f_8793},
22315 {C_text("f_8796:expand_2escm"),(void*)f_8796},
22316 {C_text("f_8799:expand_2escm"),(void*)f_8799},
22317 {C_text("f_8802:expand_2escm"),(void*)f_8802},
22318 {C_text("f_8805:expand_2escm"),(void*)f_8805},
22319 {C_text("f_8808:expand_2escm"),(void*)f_8808},
22320 {C_text("f_8821:expand_2escm"),(void*)f_8821},
22321 {C_text("f_8825:expand_2escm"),(void*)f_8825},
22322 {C_text("f_8836:expand_2escm"),(void*)f_8836},
22323 {C_text("f_8840:expand_2escm"),(void*)f_8840},
22324 {C_text("f_8842:expand_2escm"),(void*)f_8842},
22325 {C_text("f_8856:expand_2escm"),(void*)f_8856},
22326 {C_text("f_8860:expand_2escm"),(void*)f_8860},
22327 {C_text("f_8881:expand_2escm"),(void*)f_8881},
22328 {C_text("f_8901:expand_2escm"),(void*)f_8901},
22329 {C_text("f_8905:expand_2escm"),(void*)f_8905},
22330 {C_text("f_8920:expand_2escm"),(void*)f_8920},
22331 {C_text("f_8930:expand_2escm"),(void*)f_8930},
22332 {C_text("f_8935:expand_2escm"),(void*)f_8935},
22333 {C_text("f_8942:expand_2escm"),(void*)f_8942},
22334 {C_text("f_8947:expand_2escm"),(void*)f_8947},
22335 {C_text("f_8951:expand_2escm"),(void*)f_8951},
22336 {C_text("f_8958:expand_2escm"),(void*)f_8958},
22337 {C_text("f_8965:expand_2escm"),(void*)f_8965},
22338 {C_text("f_8972:expand_2escm"),(void*)f_8972},
22339 {C_text("f_8974:expand_2escm"),(void*)f_8974},
22340 {C_text("f_8978:expand_2escm"),(void*)f_8978},
22341 {C_text("f_8986:expand_2escm"),(void*)f_8986},
22342 {C_text("f_9019:expand_2escm"),(void*)f_9019},
22343 {C_text("f_9025:expand_2escm"),(void*)f_9025},
22344 {C_text("f_9031:expand_2escm"),(void*)f_9031},
22345 {C_text("f_9052:expand_2escm"),(void*)f_9052},
22346 {C_text("f_9057:expand_2escm"),(void*)f_9057},
22347 {C_text("f_9076:expand_2escm"),(void*)f_9076},
22348 {C_text("f_9081:expand_2escm"),(void*)f_9081},
22349 {C_text("f_9100:expand_2escm"),(void*)f_9100},
22350 {C_text("f_9254:expand_2escm"),(void*)f_9254},
22351 {C_text("f_9311:expand_2escm"),(void*)f_9311},
22352 {C_text("f_9364:expand_2escm"),(void*)f_9364},
22353 {C_text("f_9370:expand_2escm"),(void*)f_9370},
22354 {C_text("f_9373:expand_2escm"),(void*)f_9373},
22355 {C_text("f_9380:expand_2escm"),(void*)f_9380},
22356 {C_text("f_9389:expand_2escm"),(void*)f_9389},
22357 {C_text("f_9395:expand_2escm"),(void*)f_9395},
22358 {C_text("f_9420:expand_2escm"),(void*)f_9420},
22359 {C_text("f_9422:expand_2escm"),(void*)f_9422},
22360 {C_text("f_9440:expand_2escm"),(void*)f_9440},
22361 {C_text("f_9444:expand_2escm"),(void*)f_9444},
22362 {C_text("f_9461:expand_2escm"),(void*)f_9461},
22363 {C_text("f_9465:expand_2escm"),(void*)f_9465},
22364 {C_text("f_9491:expand_2escm"),(void*)f_9491},
22365 {C_text("f_9508:expand_2escm"),(void*)f_9508},
22366 {C_text("f_9530:expand_2escm"),(void*)f_9530},
22367 {C_text("f_9567:expand_2escm"),(void*)f_9567},
22368 {C_text("f_9588:expand_2escm"),(void*)f_9588},
22369 {C_text("f_9619:expand_2escm"),(void*)f_9619},
22370 {C_text("f_9627:expand_2escm"),(void*)f_9627},
22371 {C_text("f_9649:expand_2escm"),(void*)f_9649},
22372 {C_text("f_9664:expand_2escm"),(void*)f_9664},
22373 {C_text("f_9677:expand_2escm"),(void*)f_9677},
22374 {C_text("f_9692:expand_2escm"),(void*)f_9692},
22375 {C_text("f_9727:expand_2escm"),(void*)f_9727},
22376 {C_text("f_9752:expand_2escm"),(void*)f_9752},
22377 {C_text("f_9770:expand_2escm"),(void*)f_9770},
22378 {C_text("f_9774:expand_2escm"),(void*)f_9774},
22379 {C_text("f_9791:expand_2escm"),(void*)f_9791},
22380 {C_text("f_9795:expand_2escm"),(void*)f_9795},
22381 {C_text("f_9884:expand_2escm"),(void*)f_9884},
22382 {C_text("f_9888:expand_2escm"),(void*)f_9888},
22383 {C_text("f_9893:expand_2escm"),(void*)f_9893},
22384 {C_text("f_9899:expand_2escm"),(void*)f_9899},
22385 {C_text("f_9912:expand_2escm"),(void*)f_9912},
22386 {C_text("f_9915:expand_2escm"),(void*)f_9915},
22387 {C_text("f_9919:expand_2escm"),(void*)f_9919},
22388 {C_text("f_9922:expand_2escm"),(void*)f_9922},
22389 {C_text("f_9925:expand_2escm"),(void*)f_9925},
22390 {C_text("f_9929:expand_2escm"),(void*)f_9929},
22391 {C_text("f_9932:expand_2escm"),(void*)f_9932},
22392 {C_text("f_9935:expand_2escm"),(void*)f_9935},
22393 {C_text("f_9938:expand_2escm"),(void*)f_9938},
22394 {C_text("f_9941:expand_2escm"),(void*)f_9941},
22395 {C_text("f_9944:expand_2escm"),(void*)f_9944},
22396 {C_text("f_9947:expand_2escm"),(void*)f_9947},
22397 {C_text("f_9951:expand_2escm"),(void*)f_9951},
22398 {C_text("f_9955:expand_2escm"),(void*)f_9955},
22399 {C_text("f_9958:expand_2escm"),(void*)f_9958},
22400 {C_text("f_9961:expand_2escm"),(void*)f_9961},
22401 {C_text("f_9964:expand_2escm"),(void*)f_9964},
22402 {C_text("f_9967:expand_2escm"),(void*)f_9967},
22403 {C_text("f_9971:expand_2escm"),(void*)f_9971},
22404 {C_text("f_9975:expand_2escm"),(void*)f_9975},
22405 {C_text("f_9978:expand_2escm"),(void*)f_9978},
22406 {C_text("f_9981:expand_2escm"),(void*)f_9981},
22407 {C_text("f_9984:expand_2escm"),(void*)f_9984},
22408 {C_text("f_9987:expand_2escm"),(void*)f_9987},
22409 {C_text("f_9990:expand_2escm"),(void*)f_9990},
22410 {C_text("f_9993:expand_2escm"),(void*)f_9993},
22411 {C_text("f_9996:expand_2escm"),(void*)f_9996},
22412 {C_text("f_9999:expand_2escm"),(void*)f_9999},
22413 {C_text("toplevel:expand_2escm"),(void*)C_expand_toplevel},
22414 {NULL,NULL}};
22415 #endif
22416 
create_ptable(void)22417 static C_PTABLE_ENTRY *create_ptable(void){
22418 #ifdef C_ENABLE_PTABLES
22419 return ptable;
22420 #else
22421 return NULL;
22422 #endif
22423 }
22424 
22425 /*
22426 o|hiding unexported module binding: chicken.syntax#d
22427 o|hiding unexported module binding: chicken.syntax#define-alias
22428 o|hiding unexported module binding: chicken.syntax#partition
22429 o|hiding unexported module binding: chicken.syntax#span
22430 o|hiding unexported module binding: chicken.syntax#take
22431 o|hiding unexported module binding: chicken.syntax#drop
22432 o|hiding unexported module binding: chicken.syntax#split-at
22433 o|hiding unexported module binding: chicken.syntax#append-map
22434 o|hiding unexported module binding: chicken.syntax#every
22435 o|hiding unexported module binding: chicken.syntax#any
22436 o|hiding unexported module binding: chicken.syntax#cons*
22437 o|hiding unexported module binding: chicken.syntax#concatenate
22438 o|hiding unexported module binding: chicken.syntax#delete
22439 o|hiding unexported module binding: chicken.syntax#first
22440 o|hiding unexported module binding: chicken.syntax#second
22441 o|hiding unexported module binding: chicken.syntax#third
22442 o|hiding unexported module binding: chicken.syntax#fourth
22443 o|hiding unexported module binding: chicken.syntax#fifth
22444 o|hiding unexported module binding: chicken.syntax#delete-duplicates
22445 o|hiding unexported module binding: chicken.syntax#alist-cons
22446 o|hiding unexported module binding: chicken.syntax#filter
22447 o|hiding unexported module binding: chicken.syntax#filter-map
22448 o|hiding unexported module binding: chicken.syntax#remove
22449 o|hiding unexported module binding: chicken.syntax#unzip1
22450 o|hiding unexported module binding: chicken.syntax#last
22451 o|hiding unexported module binding: chicken.syntax#list-index
22452 o|hiding unexported module binding: chicken.syntax#lset-adjoin/eq?
22453 o|hiding unexported module binding: chicken.syntax#lset-difference/eq?
22454 o|hiding unexported module binding: chicken.syntax#lset-union/eq?
22455 o|hiding unexported module binding: chicken.syntax#lset-intersection/eq?
22456 o|hiding unexported module binding: chicken.syntax#list-tabulate
22457 o|hiding unexported module binding: chicken.syntax#lset<=/eq?
22458 o|hiding unexported module binding: chicken.syntax#lset=/eq?
22459 o|hiding unexported module binding: chicken.syntax#length+
22460 o|hiding unexported module binding: chicken.syntax#find
22461 o|hiding unexported module binding: chicken.syntax#find-tail
22462 o|hiding unexported module binding: chicken.syntax#iota
22463 o|hiding unexported module binding: chicken.syntax#make-list
22464 o|hiding unexported module binding: chicken.syntax#posq
22465 o|hiding unexported module binding: chicken.syntax#posv
22466 o|hiding unexported module binding: chicken.syntax#d
22467 o|hiding unexported module binding: chicken.syntax#map-se
22468 o|hiding unexported module binding: chicken.syntax#dd
22469 o|hiding unexported module binding: chicken.syntax#dm
22470 o|hiding unexported module binding: chicken.syntax#dx
22471 o|hiding unexported module binding: chicken.syntax#lookup
22472 o|hiding unexported module binding: chicken.syntax#macro-alias
22473 o|hiding unexported module binding: chicken.syntax#expansion-result-hook
22474 o|hiding unexported module binding: chicken.syntax#defjam-error
22475 o|hiding unexported module binding: chicken.syntax#define-definition
22476 o|hiding unexported module binding: chicken.syntax#define-syntax-definition
22477 o|hiding unexported module binding: chicken.syntax#define-values-definition
22478 o|hiding unexported module binding: chicken.syntax#import-definition
22479 o|hiding unexported module binding: chicken.syntax#make-er/ir-transformer
22480 o|hiding unexported module binding: chicken.internal.syntax-rules#process-syntax-rules
22481 S|applied compiler syntax:
22482 S|  chicken.format#sprintf		1
22483 S|  ##sys#map		5
22484 S|  scheme#for-each		1
22485 S|  chicken.base#foldl		4
22486 S|  scheme#map		15
22487 S|  chicken.base#foldr		3
22488 o|eliminated procedure checks: 573
22489 o|eliminated procedure checks: 1
22490 o|eliminated procedure checks: 1
22491 o|specializations:
22492 o|  1 (scheme#zero? integer)
22493 o|  1 (##sys#check-output-port * * *)
22494 o|  6 (scheme#cddr (pair * pair))
22495 o|  1 (scheme#= fixnum fixnum)
22496 o|  2 (scheme#cdddr (pair * (pair * pair)))
22497 o|  2 (scheme#vector-length vector)
22498 o|  8 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
22499 o|  1 (scheme#caar (pair pair *))
22500 o|  1 (scheme#>= fixnum fixnum)
22501 o|  3 (scheme#length list)
22502 o|  19 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
22503 o|  1 (scheme#set-cdr! pair *)
22504 o|  1 (scheme#set-car! pair *)
22505 o|  1 (scheme#eqv? * *)
22506 o|  13 (##sys#check-list (or pair list) *)
22507 o|  93 (scheme#cdr pair)
22508 o|  66 (scheme#car pair)
22509 (o e)|safe calls: 1421
22510 (o e)|assignments to immediate values: 8
22511 o|safe globals: (chicken.syntax#posv chicken.syntax#posq chicken.syntax#make-list chicken.syntax#iota chicken.syntax#find-tail chicken.syntax#find chicken.syntax#length+ chicken.syntax#lset=/eq? chicken.syntax#lset<=/eq? chicken.syntax#list-tabulate chicken.syntax#lset-intersection/eq? chicken.syntax#lset-union/eq? chicken.syntax#lset-difference/eq? chicken.syntax#lset-adjoin/eq? chicken.syntax#list-index chicken.syntax#last chicken.syntax#unzip1 chicken.syntax#remove chicken.syntax#filter-map chicken.syntax#filter chicken.syntax#alist-cons chicken.syntax#delete-duplicates chicken.syntax#fifth chicken.syntax#fourth chicken.syntax#third chicken.syntax#second chicken.syntax#first chicken.syntax#delete chicken.syntax#concatenate chicken.syntax#cons* chicken.syntax#any chicken.syntax#every chicken.syntax#append-map chicken.syntax#split-at chicken.syntax#drop chicken.syntax#take chicken.syntax#span chicken.syntax#partition)
22512 o|removed side-effect free assignment to unused variable: chicken.syntax#partition
22513 o|removed side-effect free assignment to unused variable: chicken.syntax#span
22514 o|removed side-effect free assignment to unused variable: chicken.syntax#drop
22515 o|removed side-effect free assignment to unused variable: chicken.syntax#split-at
22516 o|removed side-effect free assignment to unused variable: chicken.syntax#append-map
22517 o|inlining procedure: k4647
22518 o|inlining procedure: k4647
22519 o|inlining procedure: k4678
22520 o|inlining procedure: k4678
22521 o|removed side-effect free assignment to unused variable: chicken.syntax#cons*
22522 o|removed side-effect free assignment to unused variable: chicken.syntax#concatenate
22523 o|removed side-effect free assignment to unused variable: chicken.syntax#first
22524 o|removed side-effect free assignment to unused variable: chicken.syntax#second
22525 o|removed side-effect free assignment to unused variable: chicken.syntax#third
22526 o|removed side-effect free assignment to unused variable: chicken.syntax#fourth
22527 o|removed side-effect free assignment to unused variable: chicken.syntax#fifth
22528 o|removed side-effect free assignment to unused variable: chicken.syntax#delete-duplicates
22529 o|inlining procedure: k4895
22530 o|inlining procedure: k4895
22531 o|inlining procedure: k4887
22532 o|inlining procedure: k4887
22533 o|removed side-effect free assignment to unused variable: chicken.syntax#filter-map
22534 o|removed side-effect free assignment to unused variable: chicken.syntax#remove
22535 o|removed side-effect free assignment to unused variable: chicken.syntax#unzip1
22536 o|removed side-effect free assignment to unused variable: chicken.syntax#last
22537 o|removed side-effect free assignment to unused variable: chicken.syntax#list-index
22538 o|removed side-effect free assignment to unused variable: chicken.syntax#lset-adjoin/eq?
22539 o|removed side-effect free assignment to unused variable: chicken.syntax#lset-difference/eq?
22540 o|removed side-effect free assignment to unused variable: chicken.syntax#lset-union/eq?
22541 o|removed side-effect free assignment to unused variable: chicken.syntax#lset-intersection/eq?
22542 o|inlining procedure: k5286
22543 o|inlining procedure: k5286
22544 o|removed side-effect free assignment to unused variable: chicken.syntax#lset<=/eq?
22545 o|removed side-effect free assignment to unused variable: chicken.syntax#lset=/eq?
22546 o|removed side-effect free assignment to unused variable: chicken.syntax#length+
22547 o|removed side-effect free assignment to unused variable: chicken.syntax#find
22548 o|removed side-effect free assignment to unused variable: chicken.syntax#find-tail
22549 o|removed side-effect free assignment to unused variable: chicken.syntax#iota
22550 o|removed side-effect free assignment to unused variable: chicken.syntax#make-list
22551 o|removed side-effect free assignment to unused variable: chicken.syntax#posq
22552 o|removed side-effect free assignment to unused variable: chicken.syntax#posv
22553 o|inlining procedure: k5560
22554 o|inlining procedure: k5560
22555 o|contracted procedure: "(expand.scm:94) g800801"
22556 o|inlining procedure: k5577
22557 o|inlining procedure: k5577
22558 o|contracted procedure: "(expand.scm:104) g833834"
22559 o|contracted procedure: "(expand.scm:103) g828829"
22560 o|contracted procedure: "(expand.scm:102) g822823"
22561 o|contracted procedure: "(expand.scm:98) g810811"
22562 o|inlining procedure: k5633
22563 o|inlining procedure: k5633
22564 o|inlining procedure: k5645
22565 o|inlining procedure: k5664
22566 o|inlining procedure: k5664
22567 o|contracted procedure: "(expand.scm:118) g864865"
22568 o|contracted procedure: "(expand.scm:117) g853854"
22569 o|inlining procedure: k5645
22570 o|inlining procedure: k5713
22571 o|inlining procedure: k5735
22572 o|inlining procedure: k5735
22573 o|inlining procedure: k5713
22574 o|inlining procedure: k5812
22575 o|contracted procedure: "(expand.scm:143) g965975"
22576 o|inlining procedure: k5812
22577 o|inlining procedure: k5860
22578 o|contracted procedure: "(expand.scm:138) g923931"
22579 o|contracted procedure: "(expand.scm:141) g941942"
22580 o|contracted procedure: "(expand.scm:140) g937938"
22581 o|inlining procedure: k5860
22582 o|inlining procedure: k5909
22583 o|inlining procedure: k5909
22584 o|inlining procedure: k5960
22585 o|inlining procedure: k5960
22586 o|inlining procedure: k5990
22587 o|inlining procedure: k5990
22588 o|inlining procedure: k6032
22589 o|inlining procedure: k6032
22590 o|inlining procedure: k6074
22591 o|inlining procedure: k6074
22592 o|inlining procedure: k6139
22593 o|inlining procedure: k6163
22594 o|inlining procedure: k6163
22595 o|inlining procedure: k6206
22596 o|inlining procedure: k6206
22597 o|inlining procedure: k6139
22598 o|inlining procedure: k6310
22599 o|inlining procedure: k6310
22600 o|inlining procedure: k6351
22601 o|inlining procedure: k6374
22602 o|inlining procedure: k6423
22603 o|inlining procedure: k6423
22604 o|inlining procedure: k6492
22605 o|contracted procedure: "(expand.scm:277) g11501159"
22606 o|inlining procedure: k6492
22607 o|inlining procedure: k6374
22608 o|inlining procedure: k6537
22609 o|inlining procedure: k6537
22610 o|inlining procedure: k6567
22611 o|contracted procedure: "(expand.scm:282) g12001201"
22612 o|inlining procedure: k6567
22613 o|inlining procedure: k6585
22614 o|inlining procedure: k6585
22615 o|inlining procedure: k6351
22616 o|inlining procedure: k6636
22617 o|inlining procedure: k6636
22618 o|inlining procedure: k6678
22619 o|inlining procedure: k6704
22620 o|inlining procedure: k6704
22621 o|substituted constant variable: a6711
22622 o|substituted constant variable: a6713
22623 o|substituted constant variable: a6715
22624 o|inlining procedure: k6678
22625 o|inlining procedure: k6750
22626 o|inlining procedure: k6767
22627 o|inlining procedure: k6767
22628 o|substituted constant variable: %let1284
22629 o|inlining procedure: k6810
22630 o|inlining procedure: k6810
22631 o|inlining procedure: k6863
22632 o|inlining procedure: k6863
22633 o|inlining procedure: k6875
22634 o|inlining procedure: k6875
22635 o|inlining procedure: k6935
22636 o|substituted constant variable: %lambda1281
22637 o|inlining procedure: k6935
22638 o|contracted procedure: "(expand.scm:356) ->keyword1275"
22639 o|inlining procedure: k6973
22640 o|inlining procedure: k6973
22641 o|inlining procedure: k6750
22642 o|inlining procedure: k7020
22643 o|inlining procedure: k7020
22644 o|inlining procedure: k7037
22645 o|inlining procedure: k7037
22646 o|inlining procedure: k7065
22647 o|inlining procedure: k7065
22648 o|inlining procedure: k7081
22649 o|inlining procedure: k7093
22650 o|inlining procedure: k7093
22651 o|inlining procedure: k7081
22652 o|inlining procedure: k7141
22653 o|inlining procedure: k7141
22654 o|inlining procedure: k7160
22655 o|inlining procedure: k7179
22656 o|inlining procedure: k7179
22657 o|substituted constant variable: a7217
22658 o|substituted constant variable: a7219
22659 o|substituted constant variable: a7221
22660 o|inlining procedure: k7160
22661 o|inlining procedure: k7228
22662 o|inlining procedure: k7228
22663 o|inlining procedure: k7250
22664 o|inlining procedure: k7250
22665 o|substituted constant variable: a7267
22666 o|substituted constant variable: a7269
22667 o|substituted constant variable: a7271
22668 o|inlining procedure: k7278
22669 o|inlining procedure: k7278
22670 o|substituted constant variable: a7294
22671 o|substituted constant variable: a7296
22672 o|substituted constant variable: a7298
22673 o|inlining procedure: k7302
22674 o|inlining procedure: k7302
22675 o|inlining procedure: k7382
22676 o|inlining procedure: k7382
22677 o|inlining procedure: k7404
22678 o|contracted procedure: "(expand.scm:447) g14441454"
22679 o|inlining procedure: k7404
22680 o|inlining procedure: k7470
22681 o|inlining procedure: k7470
22682 o|inlining procedure: k7529
22683 o|inlining procedure: k7529
22684 o|inlining procedure: k7538
22685 o|inlining procedure: k7538
22686 o|inlining procedure: k7547
22687 o|inlining procedure: k7547
22688 o|inlining procedure: k7568
22689 o|inlining procedure: k7568
22690 o|inlining procedure: k7577
22691 o|inlining procedure: k7577
22692 o|substituted constant variable: a7596
22693 o|substituted constant variable: a7598
22694 o|substituted constant variable: a7600
22695 o|substituted constant variable: a7602
22696 o|inlining procedure: k7606
22697 o|inlining procedure: k7618
22698 o|inlining procedure: k7618
22699 o|inlining procedure: k7641
22700 o|inlining procedure: k7641
22701 o|inlining procedure: k7692
22702 o|inlining procedure: k7710
22703 o|inlining procedure: k7710
22704 o|inlining procedure: k7692
22705 o|inlining procedure: k7767
22706 o|inlining procedure: k7767
22707 o|inlining procedure: k7799
22708 o|inlining procedure: k7814
22709 o|inlining procedure: k7814
22710 o|inlining procedure: k7826
22711 o|inlining procedure: k7826
22712 o|inlining procedure: k7799
22713 o|inlining procedure: k7606
22714 o|inlining procedure: k7905
22715 o|contracted procedure: "(expand.scm:529) g16231634"
22716 o|inlining procedure: k7877
22717 o|inlining procedure: k7877
22718 o|inlining procedure: k7905
22719 o|inlining procedure: k7955
22720 o|inlining procedure: k7955
22721 o|inlining procedure: k7967
22722 o|contracted procedure: "(expand.scm:521) g15751584"
22723 o|inlining procedure: k7967
22724 o|inlining procedure: k8001
22725 o|contracted procedure: "(expand.scm:524) g15991600"
22726 o|inlining procedure: k8001
22727 o|substituted constant variable: g15911594
22728 o|inlining procedure: k8053
22729 o|inlining procedure: k8080
22730 o|inlining procedure: k8080
22731 o|inlining procedure: k8053
22732 o|inlining procedure: k8120
22733 o|inlining procedure: "(expand.scm:557) chicken.syntax#defjam-error"
22734 o|inlining procedure: k8120
22735 o|inlining procedure: k8159
22736 o|inlining procedure: k8159
22737 o|substituted constant variable: a8181
22738 o|inlining procedure: k8205
22739 o|inlining procedure: k8205
22740 o|inlining procedure: k8233
22741 o|inlining procedure: k8251
22742 o|inlining procedure: k8279
22743 o|inlining procedure: k8279
22744 o|inlining procedure: "(expand.scm:582) chicken.syntax#defjam-error"
22745 o|inlining procedure: k8251
22746 o|inlining procedure: k8233
22747 o|inlining procedure: k8382
22748 o|inlining procedure: k8382
22749 o|inlining procedure: k8431
22750 o|inlining procedure: k8431
22751 o|inlining procedure: k8467
22752 o|inlining procedure: k8467
22753 o|inlining procedure: k8517
22754 o|inlining procedure: k8541
22755 o|inlining procedure: k8541
22756 o|inlining procedure: k8517
22757 o|inlining procedure: k8564
22758 o|inlining procedure: k8564
22759 o|inlining procedure: k8587
22760 o|inlining procedure: k8587
22761 o|inlining procedure: k8599
22762 o|inlining procedure: k8599
22763 o|inlining procedure: k8716
22764 o|inlining procedure: k8716
22765 o|inlining procedure: k8747
22766 o|inlining procedure: k8747
22767 o|inlining procedure: k8809
22768 o|inlining procedure: k8809
22769 o|inlining procedure: k8844
22770 o|inlining procedure: k8844
22771 o|contracted procedure: "(expand.scm:693) syntax-imports1799"
22772 o|inlining procedure: k8678
22773 o|inlining procedure: k8678
22774 o|inlining procedure: k8883
22775 o|inlining procedure: k8893
22776 o|inlining procedure: k8910
22777 o|inlining procedure: k8910
22778 o|inlining procedure: k8893
22779 o|inlining procedure: k8883
22780 o|inlining procedure: k8937
22781 o|inlining procedure: k8937
22782 o|inlining procedure: k8956
22783 o|inlining procedure: k8956
22784 o|propagated global variable: sexp1889 ##sys#syntax-error-culprit
22785 o|inlining procedure: k8979
22786 o|inlining procedure: k8979
22787 o|inlining procedure: k8991
22788 o|inlining procedure: k8991
22789 o|inlining procedure: k9000
22790 o|inlining procedure: k9000
22791 o|inlining procedure: k9036
22792 o|inlining procedure: k9036
22793 o|inlining procedure: k9059
22794 o|inlining procedure: k9083
22795 o|inlining procedure: k9083
22796 o|inlining procedure: k9118
22797 o|inlining procedure: k9118
22798 o|inlining procedure: k9141
22799 o|inlining procedure: k9141
22800 o|inlining procedure: k9059
22801 o|inlining procedure: k9162
22802 o|inlining procedure: k9162
22803 o|inlining procedure: k9175
22804 o|inlining procedure: k9187
22805 o|inlining procedure: k9187
22806 o|inlining procedure: k9205
22807 o|inlining procedure: k9205
22808 o|inlining procedure: k9223
22809 o|inlining procedure: k9223
22810 o|inlining procedure: k9241
22811 o|inlining procedure: k9241
22812 o|inlining procedure: k9263
22813 o|inlining procedure: k9263
22814 o|substituted constant variable: a9276
22815 o|substituted constant variable: a9278
22816 o|substituted constant variable: a9280
22817 o|substituted constant variable: a9282
22818 o|substituted constant variable: a9284
22819 o|substituted constant variable: a9286
22820 o|substituted constant variable: a9288
22821 o|substituted constant variable: a9290
22822 o|inlining procedure: k9175
22823 o|inlining procedure: k9300
22824 o|inlining procedure: k9300
22825 o|inlining procedure: k9378
22826 o|inlining procedure: k9390
22827 o|inlining procedure: k9402
22828 o|inlining procedure: k9402
22829 o|contracted procedure: "(expand.scm:829) chicken.syntax#alist-cons"
22830 o|inlining procedure: k9390
22831 o|inlining procedure: k9378
22832 o|inlining procedure: k9424
22833 o|inlining procedure: k9424
22834 o|inlining procedure: k9466
22835 o|inlining procedure: k9466
22836 o|contracted procedure: "(expand.scm:833) g19992000"
22837 o|inlining procedure: k9510
22838 o|inlining procedure: k9525
22839 o|inlining procedure: k9525
22840 o|inlining procedure: k9510
22841 o|inlining procedure: k9548
22842 o|inlining procedure: k9569
22843 o|inlining procedure: k9569
22844 o|inlining procedure: k9548
22845 o|inlining procedure: k9606
22846 o|inlining procedure: k9634
22847 o|inlining procedure: k9634
22848 o|inlining procedure: k9665
22849 o|inlining procedure: k9665
22850 o|inlining procedure: k9699
22851 o|inlining procedure: k9699
22852 o|removed unused parameter to known procedure: n2078 "(expand.scm:866) lookup21989"
22853 o|contracted procedure: "(expand.scm:865) g20462047"
22854 o|inlining procedure: k9705
22855 o|inlining procedure: k9705
22856 o|removed unused parameter to known procedure: n2078 "(expand.scm:863) lookup21989"
22857 o|contracted procedure: "(expand.scm:862) g20362037"
22858 o|inlining procedure: k9606
22859 o|removed unused formal parameters: (n2078)
22860 o|inlining procedure: k9729
22861 o|inlining procedure: k9729
22862 o|inlining procedure: k9754
22863 o|inlining procedure: k9754
22864 o|inlining procedure: k9796
22865 o|inlining procedure: k9796
22866 o|contracted procedure: "(expand.scm:903) g21032104"
22867 o|inlining procedure: k9822
22868 o|inlining procedure: k9822
22869 o|inlining procedure: k9851
22870 o|contracted procedure: "(expand.scm:903) g21202121"
22871 o|inlining procedure: k9851
22872 o|contracted procedure: "(expand.scm:910) g21162117"
22873 o|inlining procedure: k9872
22874 o|inlining procedure: k9872
22875 o|inlining procedure: k10037
22876 o|inlining procedure: k10037
22877 o|inlining procedure: k10073
22878 o|inlining procedure: k10073
22879 o|contracted procedure: "(synrules.scm:57) chicken.internal.syntax-rules#process-syntax-rules"
22880 o|removed side-effect free assignment to unused variable: %vector-length3102
22881 o|removed side-effect free assignment to unused variable: %vector-ref3103
22882 o|removed side-effect free assignment to unused variable: %null?3125
22883 o|removed side-effect free assignment to unused variable: %or3126
22884 o|removed side-effect free assignment to unused variable: %syntax-error3132
22885 o|inlining procedure: k10256
22886 o|inlining procedure: k10256
22887 o|inlining procedure: k10298
22888 o|inlining procedure: k10298
22889 o|inlining procedure: k10346
22890 o|inlining procedure: k10346
22891 o|inlining procedure: k10364
22892 o|inlining procedure: k10364
22893 o|inlining procedure: k10400
22894 o|inlining procedure: k10400
22895 o|inlining procedure: k10502
22896 o|inlining procedure: k10502
22897 o|inlining procedure: k10536
22898 o|inlining procedure: k10536
22899 o|inlining procedure: k10672
22900 o|inlining procedure: k10672
22901 o|inlining procedure: k10735
22902 o|inlining procedure: k10735
22903 o|inlining procedure: k10763
22904 o|inlining procedure: k10763
22905 o|inlining procedure: k10812
22906 o|inlining procedure: k10824
22907 o|inlining procedure: k10824
22908 o|inlining procedure: k10812
22909 o|inlining procedure: k10859
22910 o|inlining procedure: k10859
22911 o|substituted constant variable: %append3095
22912 o|inlining procedure: k10901
22913 o|inlining procedure: k10901
22914 o|substituted constant variable: %apply3096
22915 o|substituted constant variable: %append3095
22916 o|inlining procedure: k10935
22917 o|inlining procedure: k10935
22918 o|inlining procedure: k10960
22919 o|inlining procedure: k10960
22920 o|inlining procedure: k11004
22921 o|inlining procedure: k11004
22922 o|inlining procedure: k11048
22923 o|inlining procedure: k11048
22924 o|inlining procedure: k11081
22925 o|inlining procedure: k11102
22926 o|inlining procedure: k11102
22927 o|inlining procedure: k11081
22928 o|inlining procedure: k11137
22929 o|inlining procedure: k11137
22930 o|inlining procedure: k11170
22931 o|inlining procedure: k11182
22932 o|inlining procedure: k11182
22933 o|inlining procedure: k11170
22934 o|inlining procedure: k11198
22935 o|inlining procedure: k11198
22936 o|inlining procedure: k11222
22937 o|inlining procedure: k11222
22938 o|inlining procedure: k11252
22939 o|inlining procedure: k11252
22940 o|inlining procedure: k11393
22941 o|inlining procedure: k11393
22942 o|inlining procedure: k11423
22943 o|inlining procedure: k11423
22944 o|inlining procedure: k11477
22945 o|inlining procedure: k11477
22946 o|inlining procedure: k11559
22947 o|inlining procedure: k11559
22948 o|inlining procedure: k11593
22949 o|inlining procedure: k11593
22950 o|inlining procedure: k11632
22951 o|contracted procedure: "(expand.scm:1550) g30363037"
22952 o|inlining procedure: k11632
22953 o|inlining procedure: k11772
22954 o|contracted procedure: "(expand.scm:1507) g29392948"
22955 o|inlining procedure: k11742
22956 o|inlining procedure: k11742
22957 o|inlining procedure: k11772
22958 o|inlining procedure: k11822
22959 o|contracted procedure: "(expand.scm:1496) g29052914"
22960 o|inlining procedure: k11822
22961 o|inlining procedure: k11874
22962 o|inlining procedure: k11874
22963 o|inlining procedure: k11948
22964 o|inlining procedure: k11948
22965 o|inlining procedure: k11974
22966 o|inlining procedure: k11992
22967 o|inlining procedure: k11992
22968 o|inlining procedure: k11974
22969 o|inlining procedure: k12097
22970 o|inlining procedure: k12097
22971 o|inlining procedure: k12165
22972 o|inlining procedure: k12165
22973 o|substituted constant variable: a12192
22974 o|substituted constant variable: a12193
22975 o|inlining procedure: k12210
22976 o|inlining procedure: k12237
22977 o|inlining procedure: k12237
22978 o|inlining procedure: k12210
22979 o|inlining procedure: k12299
22980 o|inlining procedure: k12299
22981 o|inlining procedure: k12435
22982 o|inlining procedure: k12435
22983 o|inlining procedure: k12447
22984 o|inlining procedure: k12447
22985 o|inlining procedure: k12459
22986 o|inlining procedure: k12459
22987 o|inlining procedure: k12471
22988 o|inlining procedure: k12471
22989 o|inlining procedure: k12480
22990 o|inlining procedure: k12480
22991 o|inlining procedure: k12533
22992 o|inlining procedure: k12533
22993 o|inlining procedure: k12585
22994 o|inlining procedure: k12585
22995 o|inlining procedure: k12628
22996 o|inlining procedure: k12628
22997 o|inlining procedure: "(expand.scm:1276) chicken.syntax#defjam-error"
22998 o|contracted procedure: "(expand.scm:1273) g26192620"
22999 o|inlining procedure: k12842
23000 o|inlining procedure: k12877
23001 o|inlining procedure: k12877
23002 o|inlining procedure: "(expand.scm:1251) chicken.syntax#defjam-error"
23003 o|contracted procedure: "(expand.scm:1248) g25902591"
23004 o|inlining procedure: k12842
23005 o|inlining procedure: k13029
23006 o|inlining procedure: k13029
23007 o|inlining procedure: k13078
23008 o|inlining procedure: k13078
23009 o|inlining procedure: k13093
23010 o|inlining procedure: k13093
23011 o|inlining procedure: k13199
23012 o|inlining procedure: k13199
23013 o|inlining procedure: k13214
23014 o|inlining procedure: k13226
23015 o|inlining procedure: k13226
23016 o|substituted constant variable: a13243
23017 o|inlining procedure: k13214
23018 o|inlining procedure: k13259
23019 o|inlining procedure: k13259
23020 o|propagated global variable: g24642465 ##sys#expand-import
23021 o|inlining procedure: k13317
23022 o|inlining procedure: k13317
23023 o|inlining procedure: k13347
23024 o|inlining procedure: k13347
23025 o|inlining procedure: k13444
23026 o|inlining procedure: k13444
23027 o|inlining procedure: k13464
23028 o|inlining procedure: k13464
23029 o|inlining procedure: k13529
23030 o|inlining procedure: k13529
23031 o|inlining procedure: k13558
23032 o|inlining procedure: k13570
23033 o|inlining procedure: k13570
23034 o|inlining procedure: k13558
23035 o|inlining procedure: k13602
23036 o|inlining procedure: k13617
23037 o|inlining procedure: k13617
23038 o|inlining procedure: k13602
23039 o|inlining procedure: k13638
23040 o|inlining procedure: k13638
23041 o|substituted constant variable: a13659
23042 o|substituted constant variable: a13661
23043 o|substituted constant variable: a13663
23044 o|inlining procedure: k13674
23045 o|inlining procedure: k13701
23046 o|contracted procedure: "(expand.scm:1031) g23762385"
23047 o|inlining procedure: k13701
23048 o|inlining procedure: k13674
23049 o|inlining procedure: k13745
23050 o|inlining procedure: k13745
23051 o|inlining procedure: k13764
23052 o|inlining procedure: k13764
23053 o|inlining procedure: k13773
23054 o|inlining procedure: k13773
23055 o|inlining procedure: k13871
23056 o|inlining procedure: k13871
23057 o|inlining procedure: k13914
23058 o|inlining procedure: k13914
23059 o|propagated global variable: g22492250 ##sys#expand-import
23060 o|propagated global variable: g22352236 ##sys#expand-import
23061 o|replaced variables: 2446
23062 o|removed binding forms: 515
23063 o|removed side-effect free assignment to unused variable: chicken.syntax#every
23064 o|removed side-effect free assignment to unused variable: chicken.syntax#any
23065 o|removed side-effect free assignment to unused variable: chicken.syntax#filter
23066 o|removed side-effect free assignment to unused variable: chicken.syntax#list-tabulate
23067 o|substituted constant variable: prop803
23068 o|removed call to pure procedure with unused result: "(expand.scm:105) chicken.base#void"
23069 o|substituted constant variable: prop836
23070 o|substituted constant variable: prop831
23071 o|substituted constant variable: prop825
23072 o|substituted constant variable: prop867
23073 o|substituted constant variable: prop856
23074 o|substituted constant variable: prop944
23075 o|inlining procedure: k5782
23076 o|inlining procedure: k5782
23077 o|substituted constant variable: prop940
23078 o|substituted constant variable: r607514001
23079 o|substituted constant variable: r616414005
23080 o|substituted constant variable: r620714008
23081 o|removed call to pure procedure with unused result: "(expand.scm:238) chicken.base#void"
23082 o|removed call to pure procedure with unused result: "(expand.scm:197) chicken.base#void"
23083 o|removed call to pure procedure with unused result: "(expand.scm:196) chicken.base#void"
23084 o|removed call to pure procedure with unused result: "(expand.scm:241) chicken.base#void"
23085 o|inlining procedure: k6546
23086 o|substituted constant variable: prop1203
23087 o|substituted constant variable: r656814023
23088 o|substituted constant variable: r667914034
23089 o|substituted constant variable: r687614047
23090 o|substituted constant variable: r693614050
23091 o|substituted constant variable: r693614050
23092 o|substituted constant variable: r727914076
23093 o|substituted constant variable: r730314078
23094 o|converted assignments to bindings: (err1274)
23095 o|removed side-effect free assignment to unused variable: chicken.syntax#defjam-error
23096 o|substituted constant variable: r738314079
23097 o|substituted constant variable: r738314079
23098 o|inlining procedure: k7382
23099 o|substituted constant variable: r776814109
23100 o|substituted constant variable: r780014115
23101 o|removed call to pure procedure with unused result: "(expand.scm:540) chicken.base#void"
23102 o|substituted constant variable: r795614122
23103 o|substituted constant variable: r816014139
23104 o|substituted constant variable: r828014146
23105 o|substituted constant variable: r828014146
23106 o|substituted constant variable: r846814160
23107 o|substituted constant variable: r854214162
23108 o|substituted constant variable: r856514166
23109 o|substituted constant variable: r858814168
23110 o|substituted constant variable: r884514177
23111 o|substituted constant variable: r867914179
23112 o|converted assignments to bindings: (outstr1812)
23113 o|substituted constant variable: r891114184
23114 o|substituted constant variable: r889414185
23115 o|substituted constant variable: r888414186
23116 o|substituted constant variable: r900114198
23117 o|substituted constant variable: r914214207
23118 o|inlining procedure: k9378
23119 o|inlining procedure: k9378
23120 o|inlining procedure: k9378
23121 o|substituted constant variable: r939114232
23122 o|inlining procedure: k9378
23123 o|removed call to pure procedure with unused result: "(expand.scm:840) chicken.base#void"
23124 o|removed call to pure procedure with unused result: "(expand.scm:844) chicken.base#void"
23125 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23126 o|inlining procedure: k9510
23127 o|substituted constant variable: r952614246
23128 o|inlining procedure: k9510
23129 o|inlining procedure: k9510
23130 o|inlining procedure: k9510
23131 o|substituted constant variable: r954914256
23132 o|inlining procedure: k9510
23133 o|inlining procedure: k9510
23134 o|substituted constant variable: prop2049
23135 o|substituted constant variable: prop2039
23136 o|removed call to pure procedure with unused result: "(expand.scm:883) chicken.base#void"
23137 o|substituted constant variable: r973014267
23138 o|removed call to pure procedure with unused result: "(expand.scm:905) chicken.base#void"
23139 o|removed call to pure procedure with unused result: "(expand.scm:907) chicken.base#void"
23140 o|removed call to pure procedure with unused result: "(expand.scm:909) chicken.base#void"
23141 o|removed call to pure procedure with unused result: "(expand.scm:912) chicken.base#void"
23142 o|removed call to pure procedure with unused result: "(expand.scm:917) chicken.base#void"
23143 o|substituted constant variable: prop2119
23144 o|converted assignments to bindings: (inherit-pair-line-numbers1972)
23145 o|substituted constant variable: r1003814280
23146 o|removed side-effect free assignment to unused variable: %append3095
23147 o|removed side-effect free assignment to unused variable: %apply3096
23148 o|substituted constant variable: r1034714288
23149 o|substituted constant variable: r1093614314
23150 o|substituted constant variable: r1110314323
23151 o|substituted constant variable: r1118314329
23152 o|substituted constant variable: r1117114330
23153 o|substituted constant variable: r1119914332
23154 o|substituted constant variable: r1122314334
23155 o|substituted constant variable: r1194914357
23156 o|substituted constant variable: r1216614365
23157 o|substituted constant variable: r1248114382
23158 o|substituted constant variable: r1253414383
23159 o|substituted constant variable: r1258614385
23160 o|inlining procedure: k12801
23161 o|substituted constant variable: prop2622
23162 o|substituted constant variable: r1287814397
23163 o|substituted constant variable: r1287814397
23164 o|substituted constant variable: prop2593
23165 o|substituted constant variable: r1303014406
23166 o|substituted constant variable: r1307914407
23167 o|substituted constant variable: r1307914407
23168 o|substituted constant variable: r1322714425
23169 o|substituted constant variable: r1321514426
23170 o|substituted constant variable: r1346514440
23171 o|substituted constant variable: r1360314450
23172 o|substituted constant variable: r1376514459
23173 o|substituted constant variable: r1387214463
23174 o|simplifications: ((let . 3))
23175 o|replaced variables: 176
23176 o|removed binding forms: 1971
23177 o|inlining procedure: k5568
23178 o|contracted procedure: k5613
23179 o|substituted constant variable: prop94414481
23180 o|substituted constant variable: prop94414487
23181 o|contracted procedure: k6108
23182 o|contracted procedure: k6111
23183 o|contracted procedure: k6242
23184 o|contracted procedure: k6307
23185 o|inlining procedure: k6693
23186 o|inlining procedure: k6693
23187 o|inlining procedure: k7029
23188 o|inlining procedure: k7029
23189 o|contracted procedure: k7839
23190 o|contracted procedure: k9480
23191 o|contracted procedure: k9492
23192 o|contracted procedure: k9513
23193 o|substituted constant variable: r951114604
23194 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23195 o|substituted constant variable: r951114609
23196 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23197 o|substituted constant variable: r951114618
23198 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23199 o|substituted constant variable: r951114623
23200 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23201 o|substituted constant variable: r951114628
23202 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23203 o|substituted constant variable: r951114633
23204 o|removed call to pure procedure with unused result: "(expand.scm:879) chicken.base#void"
23205 o|contracted procedure: k9723
23206 o|contracted procedure: k9813
23207 o|contracted procedure: k9828
23208 o|contracted procedure: k9840
23209 o|contracted procedure: k9856
23210 o|contracted procedure: k9865
23211 o|inlining procedure: k11090
23212 o|inlining procedure: k11090
23213 o|inlining procedure: k11793
23214 o|inlining procedure: k13889
23215 o|replaced variables: 8
23216 o|removed binding forms: 257
23217 o|contracted procedure: k5597
23218 o|contracted procedure: k5605
23219 o|contracted procedure: k5610
23220 o|contracted procedure: k5653
23221 o|contracted procedure: k5658
23222 o|contracted procedure: k5773
23223 o|inlining procedure: k6239
23224 o|substituted constant variable: r738314535
23225 o|contracted procedure: k951314608
23226 o|contracted procedure: k951314613
23227 o|contracted procedure: k951314622
23228 o|contracted procedure: k951314627
23229 o|contracted procedure: k9614
23230 o|contracted procedure: k9622
23231 o|contracted procedure: k951314632
23232 o|contracted procedure: k951314637
23233 o|inlining procedure: "(expand.scm:866) lookup21989"
23234 o|inlining procedure: "(expand.scm:863) lookup21989"
23235 o|contracted procedure: k9848
23236 o|substituted constant variable: r1109114778
23237 o|substituted constant variable: r1109114779
23238 o|contracted procedure: k12792
23239 o|contracted procedure: k12853
23240 o|substituted constant variable: r1389014803
23241 o|replaced variables: 3
23242 o|removed binding forms: 53
23243 o|removed conditional forms: 3
23244 o|inlining procedure: k5600
23245 o|inlining procedure: k5600
23246 o|removed side-effect free assignment to unused variable: lookup21989
23247 o|replaced variables: 15
23248 o|removed binding forms: 17
23249 o|inlining procedure: k9696
23250 o|inlining procedure: k9702
23251 o|replaced variables: 4
23252 o|removed binding forms: 12
23253 o|removed binding forms: 4
23254 o|simplifications: ((let . 78) (if . 57) (##core#call . 1087))
23255 o|  call simplifications:
23256 o|    scheme#cdddr
23257 o|    scheme#cddddr
23258 o|    scheme#number?
23259 o|    scheme#eof-object?
23260 o|    scheme#cadddr	2
23261 o|    chicken.fixnum#fx-	2
23262 o|    scheme#>=
23263 o|    scheme#+	3
23264 o|    scheme#=
23265 o|    scheme#<=
23266 o|    scheme#boolean?
23267 o|    scheme#char?	2
23268 o|    scheme#>	2
23269 o|    scheme#-	3
23270 o|    scheme#cdar	2
23271 o|    ##sys#immediate?
23272 o|    scheme#vector-ref	5
23273 o|    chicken.fixnum#fx<	2
23274 o|    chicken.fixnum#fx=	7
23275 o|    scheme#apply
23276 o|    scheme#memq	5
23277 o|    scheme#member
23278 o|    scheme#caddr	16
23279 o|    scheme#length	13
23280 o|    chicken.fixnum#fx<=	2
23281 o|    chicken.fixnum#fx>	4
23282 o|    scheme#cddr	10
23283 o|    ##sys#list	179
23284 o|    ##sys#cons	86
23285 o|    scheme#list?	7
23286 o|    scheme#cadr	35
23287 o|    scheme#values	8
23288 o|    ##sys#call-with-values	3
23289 o|    ##sys#apply	2
23290 o|    scheme#memv
23291 o|    scheme#equal?	2
23292 o|    scheme#string?	3
23293 o|    ##sys#make-structure	2
23294 o|    scheme#caar	5
23295 o|    scheme#eq?	83
23296 o|    scheme#list	16
23297 o|    scheme#set-car!	2
23298 o|    ##sys#structure?	2
23299 o|    scheme#null?	46
23300 o|    scheme#car	69
23301 o|    ##sys#check-list	14
23302 o|    scheme#assq	13
23303 o|    scheme#symbol?	43
23304 o|    scheme#vector?	13
23305 o|    ##sys#size	4
23306 o|    chicken.fixnum#fx>=	5
23307 o|    ##sys#slot	73
23308 o|    chicken.fixnum#fx+	4
23309 o|    scheme#cons	84
23310 o|    ##sys#setslot	20
23311 o|    scheme#not	37
23312 o|    scheme#pair?	87
23313 o|    scheme#cdr	48
23314 o|contracted procedure: k5583
23315 o|contracted procedure: k5592
23316 o|contracted procedure: k5630
23317 o|contracted procedure: k5648
23318 o|contracted procedure: k5667
23319 o|contracted procedure: k5673
23320 o|contracted procedure: k5679
23321 o|contracted procedure: k5682
23322 o|contracted procedure: k5710
23323 o|contracted procedure: k5686
23324 o|contracted procedure: k5689
23325 o|contracted procedure: k5692
23326 o|contracted procedure: k5716
23327 o|contracted procedure: k5719
23328 o|contracted procedure: k5760
23329 o|contracted procedure: k5726
23330 o|contracted procedure: k5738
23331 o|contracted procedure: k5741
23332 o|contracted procedure: k5748
23333 o|contracted procedure: k5756
23334 o|contracted procedure: k5785
23335 o|contracted procedure: k5788
23336 o|contracted procedure: k5798
23337 o|contracted procedure: k5851
23338 o|contracted procedure: k5815
23339 o|contracted procedure: k5841
23340 o|contracted procedure: k5845
23341 o|contracted procedure: k5837
23342 o|contracted procedure: k5818
23343 o|contracted procedure: k5821
23344 o|contracted procedure: k5829
23345 o|contracted procedure: k5833
23346 o|contracted procedure: k5888
23347 o|contracted procedure: k5863
23348 o|contracted procedure: k5881
23349 o|contracted procedure: k5885
23350 o|contracted procedure: k5866
23351 o|contracted procedure: k5873
23352 o|contracted procedure: k5877
23353 o|contracted procedure: k5894
23354 o|contracted procedure: k5897
23355 o|contracted procedure: k5900
23356 o|contracted procedure: k5912
23357 o|contracted procedure: k5915
23358 o|contracted procedure: k5918
23359 o|contracted procedure: k5926
23360 o|contracted procedure: k5934
23361 o|contracted procedure: k5972
23362 o|contracted procedure: k5957
23363 o|contracted procedure: k5963
23364 o|contracted procedure: k5995
23365 o|contracted procedure: k5998
23366 o|contracted procedure: k6006
23367 o|contracted procedure: k6017
23368 o|contracted procedure: k6013
23369 o|contracted procedure: k6029
23370 o|contracted procedure: k6048
23371 o|contracted procedure: k6077
23372 o|contracted procedure: k6099
23373 o|contracted procedure: k6083
23374 o|contracted procedure: k6149
23375 o|contracted procedure: k6139
23376 o|contracted procedure: k6157
23377 o|contracted procedure: k6166
23378 o|contracted procedure: k6169
23379 o|contracted procedure: k6183
23380 o|contracted procedure: k6193
23381 o|contracted procedure: k6197
23382 o|contracted procedure: k6203
23383 o|contracted procedure: k6209
23384 o|contracted procedure: k6217
23385 o|contracted procedure: k6224
23386 o|contracted procedure: k6262
23387 o|contracted procedure: k6248
23388 o|contracted procedure: k6342
23389 o|contracted procedure: k6313
23390 o|contracted procedure: k6322
23391 o|contracted procedure: k6333
23392 o|contracted procedure: k6354
23393 o|contracted procedure: k6362
23394 o|contracted procedure: k6368
23395 o|contracted procedure: k6377
23396 o|contracted procedure: k6383
23397 o|contracted procedure: k6389
23398 o|contracted procedure: k6395
23399 o|contracted procedure: k6471
23400 o|contracted procedure: k6479
23401 o|contracted procedure: k6486
23402 o|contracted procedure: k6467
23403 o|contracted procedure: k6463
23404 o|contracted procedure: k6459
23405 o|contracted procedure: k6455
23406 o|contracted procedure: k6410
23407 o|contracted procedure: k6414
23408 o|contracted procedure: k6406
23409 o|contracted procedure: k6402
23410 o|contracted procedure: k6426
23411 o|contracted procedure: k6448
23412 o|contracted procedure: k6444
23413 o|contracted procedure: k6429
23414 o|contracted procedure: k6432
23415 o|contracted procedure: k6440
23416 o|contracted procedure: k6495
23417 o|contracted procedure: k6517
23418 o|contracted procedure: k6513
23419 o|contracted procedure: k6498
23420 o|contracted procedure: k6501
23421 o|contracted procedure: k6509
23422 o|contracted procedure: k6540
23423 o|contracted procedure: k6556
23424 o|contracted procedure: k6570
23425 o|contracted procedure: k6578
23426 o|contracted procedure: k6654
23427 o|contracted procedure: k6609
23428 o|contracted procedure: k6648
23429 o|contracted procedure: k6612
23430 o|contracted procedure: k6642
23431 o|contracted procedure: k6615
23432 o|contracted procedure: k6660
23433 o|contracted procedure: k6681
23434 o|contracted procedure: k6684
23435 o|contracted procedure: k6690
23436 o|contracted procedure: k6701
23437 o|contracted procedure: k6693
23438 o|contracted procedure: k6753
23439 o|contracted procedure: k6770
23440 o|contracted procedure: k6799
23441 o|contracted procedure: k6803
23442 o|contracted procedure: k6795
23443 o|contracted procedure: k6791
23444 o|contracted procedure: k6787
23445 o|contracted procedure: k6783
23446 o|inlining procedure: k6767
23447 o|contracted procedure: k6866
23448 o|contracted procedure: k6813
23449 o|contracted procedure: k6828
23450 o|contracted procedure: k6824
23451 o|contracted procedure: k6820
23452 o|inlining procedure: k6767
23453 o|contracted procedure: k6847
23454 o|contracted procedure: k6843
23455 o|contracted procedure: k6839
23456 o|inlining procedure: k6767
23457 o|inlining procedure: k6859
23458 o|inlining procedure: k6859
23459 o|contracted procedure: k6872
23460 o|contracted procedure: k6878
23461 o|contracted procedure: k6885
23462 o|contracted procedure: k6888
23463 o|contracted procedure: k6903
23464 o|contracted procedure: k6908
23465 o|contracted procedure: k6923
23466 o|contracted procedure: k6919
23467 o|contracted procedure: k6915
23468 o|contracted procedure: k6931
23469 o|contracted procedure: k6938
23470 o|contracted procedure: k6949
23471 o|contracted procedure: k6945
23472 o|contracted procedure: k6935
23473 o|contracted procedure: k6732
23474 o|contracted procedure: k6899
23475 o|contracted procedure: k6895
23476 o|contracted procedure: k6976
23477 o|contracted procedure: k6979
23478 o|contracted procedure: k6982
23479 o|contracted procedure: k6990
23480 o|contracted procedure: k6998
23481 o|contracted procedure: k7017
23482 o|contracted procedure: k7023
23483 o|contracted procedure: k7316
23484 o|contracted procedure: k7040
23485 o|contracted procedure: k7046
23486 o|contracted procedure: k7052
23487 o|contracted procedure: k7059
23488 o|contracted procedure: k7068
23489 o|contracted procedure: k7084
23490 o|contracted procedure: k7090
23491 o|contracted procedure: k7121
23492 o|contracted procedure: k7096
23493 o|contracted procedure: k7103
23494 o|contracted procedure: k7111
23495 o|contracted procedure: k7115
23496 o|contracted procedure: k7135
23497 o|contracted procedure: k7144
23498 o|contracted procedure: k7153
23499 o|contracted procedure: k7163
23500 o|contracted procedure: k7169
23501 o|contracted procedure: k7176
23502 o|contracted procedure: k7182
23503 o|contracted procedure: k7193
23504 o|contracted procedure: k7189
23505 o|contracted procedure: k7199
23506 o|contracted procedure: k7213
23507 o|contracted procedure: k7209
23508 o|contracted procedure: k7231
23509 o|contracted procedure: k7240
23510 o|contracted procedure: k7247
23511 o|contracted procedure: k7253
23512 o|contracted procedure: k7263
23513 o|contracted procedure: k7275
23514 o|contracted procedure: k7281
23515 o|contracted procedure: k7288
23516 o|contracted procedure: k7299
23517 o|contracted procedure: k7312
23518 o|contracted procedure: k7305
23519 o|contracted procedure: k7344
23520 o|contracted procedure: k7352
23521 o|contracted procedure: k7348
23522 o|contracted procedure: k7364
23523 o|contracted procedure: k7372
23524 o|contracted procedure: k7375
23525 o|contracted procedure: k7385
23526 o|contracted procedure: k7391
23527 o|contracted procedure: k7398
23528 o|contracted procedure: k7382
23529 o|contracted procedure: k7443
23530 o|contracted procedure: k7407
23531 o|contracted procedure: k7433
23532 o|contracted procedure: k7437
23533 o|contracted procedure: k7429
23534 o|contracted procedure: k7410
23535 o|contracted procedure: k7413
23536 o|contracted procedure: k7421
23537 o|contracted procedure: k7425
23538 o|contracted procedure: k7449
23539 o|contracted procedure: k7455
23540 o|contracted procedure: k7458
23541 o|contracted procedure: k7461
23542 o|contracted procedure: k7473
23543 o|contracted procedure: k7476
23544 o|contracted procedure: k7479
23545 o|contracted procedure: k7487
23546 o|contracted procedure: k7495
23547 o|contracted procedure: k8496
23548 o|contracted procedure: k7511
23549 o|contracted procedure: k8490
23550 o|contracted procedure: k7514
23551 o|contracted procedure: k8484
23552 o|contracted procedure: k7517
23553 o|contracted procedure: k7526
23554 o|contracted procedure: k7535
23555 o|contracted procedure: k7550
23556 o|contracted procedure: k7565
23557 o|contracted procedure: k7580
23558 o|contracted procedure: k8034
23559 o|contracted procedure: k7609
23560 o|contracted procedure: k7833
23561 o|contracted procedure: k7621
23562 o|contracted procedure: k7637
23563 o|contracted procedure: k7657
23564 o|contracted procedure: k7672
23565 o|contracted procedure: k7680
23566 o|contracted procedure: k7689
23567 o|contracted procedure: k7719
23568 o|inlining procedure: k7710
23569 o|contracted procedure: k7733
23570 o|contracted procedure: k7729
23571 o|inlining procedure: k7710
23572 o|contracted procedure: k7740
23573 o|inlining procedure: k7710
23574 o|contracted procedure: k7750
23575 o|contracted procedure: k7754
23576 o|contracted procedure: k7761
23577 o|contracted procedure: k7764
23578 o|contracted procedure: k7770
23579 o|contracted procedure: k7792
23580 o|contracted procedure: k7795
23581 o|contracted procedure: k7802
23582 o|contracted procedure: k7847
23583 o|contracted procedure: k7861
23584 o|contracted procedure: k7843
23585 o|contracted procedure: k7872
23586 o|contracted procedure: k7911
23587 o|contracted procedure: k7914
23588 o|contracted procedure: k7922
23589 o|contracted procedure: k7926
23590 o|contracted procedure: k7930
23591 o|contracted procedure: k7938
23592 o|contracted procedure: k7942
23593 o|contracted procedure: k7946
23594 o|contracted procedure: k7887
23595 o|contracted procedure: k7952
23596 o|contracted procedure: k7958
23597 o|contracted procedure: k7970
23598 o|contracted procedure: k7992
23599 o|contracted procedure: k7988
23600 o|contracted procedure: k7973
23601 o|contracted procedure: k7976
23602 o|contracted procedure: k7984
23603 o|contracted procedure: k8004
23604 o|contracted procedure: k8011
23605 o|contracted procedure: k8031
23606 o|contracted procedure: k8068
23607 o|contracted procedure: k8064
23608 o|contracted procedure: k8060
23609 o|contracted procedure: k8083
23610 o|contracted procedure: k8105
23611 o|contracted procedure: k8101
23612 o|contracted procedure: k8086
23613 o|contracted procedure: k8089
23614 o|contracted procedure: k8097
23615 o|contracted procedure: k8193
23616 o|contracted procedure: k8114
23617 o|contracted procedure: k8136
23618 o|contracted procedure: k8146
23619 o|contracted procedure: k8150
23620 o|contracted procedure: k8139
23621 o|contracted procedure: k8189
23622 o|contracted procedure: k8156
23623 o|contracted procedure: k8183
23624 o|contracted procedure: k8162
23625 o|contracted procedure: k8178
23626 o|contracted procedure: k8168
23627 o|contracted procedure: k8478
23628 o|contracted procedure: k8208
23629 o|contracted procedure: k8214
23630 o|contracted procedure: k8473
23631 o|contracted procedure: k8218
23632 o|contracted procedure: k8464
23633 o|contracted procedure: k8227
23634 o|contracted procedure: k8248
23635 o|contracted procedure: k8367
23636 o|contracted procedure: k8254
23637 o|contracted procedure: k8293
23638 o|contracted procedure: k8267
23639 o|contracted procedure: k8275
23640 o|contracted procedure: k8289
23641 o|contracted procedure: k8282
23642 o|contracted procedure: k8279
23643 o|contracted procedure: k8296
23644 o|contracted procedure: k8363
23645 o|contracted procedure: k8307
23646 o|contracted procedure: k8321
23647 o|contracted procedure: k8357
23648 o|contracted procedure: k8331
23649 o|contracted procedure: k8353
23650 o|contracted procedure: k8347
23651 o|contracted procedure: k8343
23652 o|contracted procedure: k8335
23653 o|contracted procedure: k8339
23654 o|contracted procedure: k8411
23655 o|contracted procedure: k8395
23656 o|contracted procedure: k8407
23657 o|contracted procedure: k8399
23658 o|contracted procedure: k8403
23659 o|contracted procedure: k8428
23660 o|contracted procedure: k8460
23661 o|contracted procedure: k8434
23662 o|contracted procedure: k8446
23663 o|contracted procedure: k8456
23664 o|contracted procedure: k8470
23665 o|contracted procedure: k8502
23666 o|contracted procedure: k8584
23667 o|contracted procedure: k8520
23668 o|contracted procedure: k8523
23669 o|contracted procedure: k8535
23670 o|contracted procedure: k8544
23671 o|contracted procedure: k8552
23672 o|contracted procedure: k8548
23673 o|contracted procedure: k8561
23674 o|contracted procedure: k8580
23675 o|contracted procedure: k8636
23676 o|contracted procedure: k8602
23677 o|contracted procedure: k8611
23678 o|contracted procedure: k8630
23679 o|contracted procedure: k8626
23680 o|contracted procedure: k8622
23681 o|contracted procedure: k8719
23682 o|contracted procedure: k8750
23683 o|contracted procedure: k8776
23684 o|contracted procedure: k8788
23685 o|contracted procedure: k8868
23686 o|contracted procedure: k8812
23687 o|contracted procedure: k8827
23688 o|contracted procedure: k8847
23689 o|contracted procedure: k8864
23690 o|contracted procedure: k8672
23691 o|contracted procedure: k8681
23692 o|contracted procedure: k8709
23693 o|contracted procedure: k8687
23694 o|contracted procedure: k8877
23695 o|contracted procedure: k8889
23696 o|contracted procedure: k8896
23697 o|contracted procedure: k8907
23698 o|contracted procedure: k9357
23699 o|contracted procedure: k8922
23700 o|contracted procedure: k9351
23701 o|contracted procedure: k8925
23702 o|contracted procedure: k9336
23703 o|contracted procedure: k8931
23704 o|contracted procedure: k8988
23705 o|contracted procedure: k8994
23706 o|contracted procedure: k9003
23707 o|contracted procedure: k9010
23708 o|contracted procedure: k9033
23709 o|contracted procedure: k9042
23710 o|contracted procedure: k9062
23711 o|contracted procedure: k9065
23712 o|contracted procedure: k9068
23713 o|contracted procedure: k9150
23714 o|contracted procedure: k9071
23715 o|contracted procedure: k9086
23716 o|contracted procedure: k9092
23717 o|contracted procedure: k9105
23718 o|contracted procedure: k9109
23719 o|contracted procedure: k9112
23720 o|contracted procedure: k9135
23721 o|contracted procedure: k9121
23722 o|contracted procedure: k9131
23723 o|contracted procedure: k9138
23724 o|contracted procedure: k9144
23725 o|contracted procedure: k9159
23726 o|contracted procedure: k9172
23727 o|contracted procedure: k9165
23728 o|contracted procedure: k9178
23729 o|contracted procedure: k9184
23730 o|contracted procedure: k9190
23731 o|contracted procedure: k9199
23732 o|contracted procedure: k9208
23733 o|contracted procedure: k9217
23734 o|contracted procedure: k9226
23735 o|contracted procedure: k9235
23736 o|contracted procedure: k9244
23737 o|contracted procedure: k9266
23738 o|contracted procedure: k9269
23739 o|contracted procedure: k9332
23740 o|contracted procedure: k9294
23741 o|contracted procedure: k9328
23742 o|contracted procedure: k9303
23743 o|contracted procedure: k9320
23744 o|contracted procedure: k9324
23745 o|contracted procedure: k9342
23746 o|contracted procedure: k9375
23747 o|contracted procedure: k9381
23748 o|contracted procedure: k9396
23749 o|contracted procedure: k9405
23750 o|contracted procedure: k4872
23751 o|contracted procedure: k9412
23752 o|contracted procedure: k9415
23753 o|contracted procedure: k9427
23754 o|contracted procedure: k9434
23755 o|contracted procedure: k9452
23756 o|contracted procedure: k9504
23757 o|contracted procedure: k9469
23758 o|contracted procedure: k9472
23759 o|contracted procedure: k9500
23760 o|contracted procedure: k9496
23761 o|contracted procedure: k9516
23762 o|contracted procedure: k9522
23763 o|contracted procedure: k9545
23764 o|contracted procedure: k9551
23765 o|contracted procedure: k9554
23766 o|contracted procedure: k9601
23767 o|contracted procedure: k9560
23768 o|contracted procedure: k9572
23769 o|contracted procedure: k9575
23770 o|contracted procedure: k9582
23771 o|contracted procedure: k9590
23772 o|contracted procedure: k9594
23773 o|contracted procedure: k9711
23774 o|contracted procedure: k9609
23775 o|contracted procedure: k9631
23776 o|contracted procedure: k9637
23777 o|contracted procedure: k9643
23778 o|contracted procedure: k9655
23779 o|contracted procedure: k9668
23780 o|contracted procedure: k9671
23781 o|contracted procedure: k9683
23782 o|contracted procedure: k9732
23783 o|contracted procedure: k9748
23784 o|contracted procedure: k9738
23785 o|contracted procedure: k9757
23786 o|contracted procedure: k9764
23787 o|contracted procedure: k9782
23788 o|contracted procedure: k9869
23789 o|contracted procedure: k9799
23790 o|contracted procedure: k9825
23791 o|contracted procedure: k9837
23792 o|contracted procedure: k10031
23793 o|contracted procedure: k10040
23794 o|contracted procedure: k10047
23795 o|contracted procedure: k10055
23796 o|contracted procedure: k10067
23797 o|contracted procedure: k10076
23798 o|contracted procedure: k10083
23799 o|contracted procedure: k10087
23800 o|contracted procedure: k11305
23801 o|contracted procedure: k10212
23802 o|contracted procedure: k10292
23803 o|contracted procedure: k10288
23804 o|contracted procedure: k10220
23805 o|contracted procedure: k10224
23806 o|contracted procedure: k10216
23807 o|contracted procedure: k10208
23808 o|contracted procedure: k10232
23809 o|contracted procedure: k10235
23810 o|contracted procedure: k10250
23811 o|contracted procedure: k10246
23812 o|contracted procedure: k10242
23813 o|contracted procedure: k10259
23814 o|contracted procedure: k10262
23815 o|contracted procedure: k10265
23816 o|contracted procedure: k10273
23817 o|contracted procedure: k10281
23818 o|contracted procedure: k10304
23819 o|contracted procedure: k10307
23820 o|contracted procedure: k10314
23821 o|contracted procedure: k10318
23822 o|contracted procedure: k10343
23823 o|contracted procedure: k10349
23824 o|contracted procedure: k10356
23825 o|contracted procedure: k10367
23826 o|contracted procedure: k10373
23827 o|contracted procedure: k10388
23828 o|contracted procedure: k10384
23829 o|contracted procedure: k10380
23830 o|contracted procedure: k10403
23831 o|contracted procedure: k10454
23832 o|contracted procedure: k10414
23833 o|contracted procedure: k10426
23834 o|contracted procedure: k10422
23835 o|contracted procedure: k10418
23836 o|contracted procedure: k10410
23837 o|contracted procedure: k10442
23838 o|contracted procedure: k10448
23839 o|contracted procedure: k10460
23840 o|contracted procedure: k10499
23841 o|contracted procedure: k10471
23842 o|contracted procedure: k10483
23843 o|contracted procedure: k10479
23844 o|contracted procedure: k10475
23845 o|contracted procedure: k10467
23846 o|contracted procedure: k10491
23847 o|contracted procedure: k10505
23848 o|contracted procedure: k10519
23849 o|contracted procedure: k10515
23850 o|contracted procedure: k10530
23851 o|contracted procedure: k10526
23852 o|contracted procedure: k10533
23853 o|contracted procedure: k10556
23854 o|contracted procedure: k10658
23855 o|contracted procedure: k10654
23856 o|contracted procedure: k10564
23857 o|contracted procedure: k10650
23858 o|contracted procedure: k10646
23859 o|contracted procedure: k10572
23860 o|contracted procedure: k10638
23861 o|contracted procedure: k10642
23862 o|contracted procedure: k10580
23863 o|contracted procedure: k10631
23864 o|contracted procedure: k10620
23865 o|contracted procedure: k10588
23866 o|contracted procedure: k10596
23867 o|contracted procedure: k10592
23868 o|contracted procedure: k10584
23869 o|contracted procedure: k10576
23870 o|contracted procedure: k10568
23871 o|contracted procedure: k10560
23872 o|contracted procedure: k10552
23873 o|contracted procedure: k10612
23874 o|contracted procedure: k10616
23875 o|contracted procedure: k10608
23876 o|contracted procedure: k10604
23877 o|contracted procedure: k10662
23878 o|contracted procedure: k10666
23879 o|contracted procedure: k10675
23880 o|contracted procedure: k10681
23881 o|contracted procedure: k10688
23882 o|contracted procedure: k10760
23883 o|contracted procedure: k10701
23884 o|contracted procedure: k10752
23885 o|contracted procedure: k10704
23886 o|contracted procedure: k10719
23887 o|contracted procedure: k10723
23888 o|contracted procedure: k10738
23889 o|contracted procedure: k10749
23890 o|contracted procedure: k10745
23891 o|contracted procedure: k10735
23892 o|contracted procedure: k10766
23893 o|contracted procedure: k10783
23894 o|contracted procedure: k10789
23895 o|contracted procedure: k10795
23896 o|contracted procedure: k10806
23897 o|contracted procedure: k10815
23898 o|contracted procedure: k10818
23899 o|contracted procedure: k10834
23900 o|contracted procedure: k10827
23901 o|contracted procedure: k10841
23902 o|contracted procedure: k10853
23903 o|contracted procedure: k10862
23904 o|contracted procedure: k10880
23905 o|contracted procedure: k10904
23906 o|substituted constant variable: g15423
23907 o|contracted procedure: k10911
23908 o|contracted procedure: k10915
23909 o|contracted procedure: k10929
23910 o|contracted procedure: k10925
23911 o|contracted procedure: k10932
23912 o|contracted procedure: k10938
23913 o|contracted procedure: k10944
23914 o|contracted procedure: k10957
23915 o|contracted procedure: k10963
23916 o|contracted procedure: k10984
23917 o|contracted procedure: k11007
23918 o|contracted procedure: k11013
23919 o|contracted procedure: k11020
23920 o|contracted procedure: k11033
23921 o|contracted procedure: k11037
23922 o|contracted procedure: k11045
23923 o|contracted procedure: k11051
23924 o|contracted procedure: k11068
23925 o|contracted procedure: k11084
23926 o|contracted procedure: k11113
23927 o|contracted procedure: k11096
23928 o|contracted procedure: k11099
23929 o|contracted procedure: k11109
23930 o|contracted procedure: k11090
23931 o|contracted procedure: k11126
23932 o|contracted procedure: k11134
23933 o|contracted procedure: k11140
23934 o|contracted procedure: k11157
23935 o|contracted procedure: k11192
23936 o|contracted procedure: k11185
23937 o|contracted procedure: k11201
23938 o|contracted procedure: k11207
23939 o|contracted procedure: k11214
23940 o|contracted procedure: k11236
23941 o|contracted procedure: k11246
23942 o|contracted procedure: k11262
23943 o|contracted procedure: k11265
23944 o|contracted procedure: k11316
23945 o|contracted procedure: k11324
23946 o|contracted procedure: k11328
23947 o|contracted procedure: k11361
23948 o|contracted procedure: k11357
23949 o|contracted procedure: k11353
23950 o|contracted procedure: k11349
23951 o|contracted procedure: k11396
23952 o|contracted procedure: k11550
23953 o|contracted procedure: k11413
23954 o|contracted procedure: k11419
23955 o|contracted procedure: k11432
23956 o|contracted procedure: k11445
23957 o|contracted procedure: k11453
23958 o|contracted procedure: k11466
23959 o|contracted procedure: k11474
23960 o|contracted procedure: k11486
23961 o|contracted procedure: k11496
23962 o|contracted procedure: k11515
23963 o|contracted procedure: k11507
23964 o|contracted procedure: k11523
23965 o|contracted procedure: k11527
23966 o|contracted procedure: k11541
23967 o|contracted procedure: k11576
23968 o|contracted procedure: k11572
23969 o|contracted procedure: k11568
23970 o|contracted procedure: k11590
23971 o|contracted procedure: k11623
23972 o|contracted procedure: k11596
23973 o|contracted procedure: k11619
23974 o|contracted procedure: k11611
23975 o|contracted procedure: k11615
23976 o|contracted procedure: k11607
23977 o|contracted procedure: k11603
23978 o|contracted procedure: k11641
23979 o|contracted procedure: k11654
23980 o|contracted procedure: k11667
23981 o|contracted procedure: k11670
23982 o|contracted procedure: k11683
23983 o|contracted procedure: k11701
23984 o|contracted procedure: k11712
23985 o|contracted procedure: k11813
23986 o|contracted procedure: k11717
23987 o|contracted procedure: k11737
23988 o|contracted procedure: k11733
23989 o|contracted procedure: k11729
23990 o|contracted procedure: k11721
23991 o|contracted procedure: k11708
23992 o|contracted procedure: k11775
23993 o|contracted procedure: k11781
23994 o|contracted procedure: k11789
23995 o|contracted procedure: k11797
23996 o|contracted procedure: k11763
23997 o|contracted procedure: k11759
23998 o|contracted procedure: k11745
23999 o|contracted procedure: k11753
24000 o|contracted procedure: k11793
24001 o|contracted procedure: k11803
24002 o|contracted procedure: k11810
24003 o|contracted procedure: k11825
24004 o|contracted procedure: k11847
24005 o|contracted procedure: k11692
24006 o|contracted procedure: k11696
24007 o|contracted procedure: k11843
24008 o|contracted procedure: k11828
24009 o|contracted procedure: k11831
24010 o|contracted procedure: k11839
24011 o|contracted procedure: k11863
24012 o|contracted procedure: k11877
24013 o|contracted procedure: k11884
24014 o|contracted procedure: k11901
24015 o|contracted procedure: k11891
24016 o|contracted procedure: k11914
24017 o|contracted procedure: k12137
24018 o|contracted procedure: k11938
24019 o|contracted procedure: k12133
24020 o|contracted procedure: k11951
24021 o|contracted procedure: k11954
24022 o|contracted procedure: k11986
24023 o|contracted procedure: k12002
24024 o|contracted procedure: k12009
24025 o|contracted procedure: k12023
24026 o|contracted procedure: k12012
24027 o|contracted procedure: k12019
24028 o|contracted procedure: k12075
24029 o|contracted procedure: k12084
24030 o|contracted procedure: k12088
24031 o|contracted procedure: k12032
24032 o|contracted procedure: k12050
24033 o|contracted procedure: k12057
24034 o|contracted procedure: k12071
24035 o|contracted procedure: k12060
24036 o|contracted procedure: k12067
24037 o|contracted procedure: k12100
24038 o|contracted procedure: k12103
24039 o|contracted procedure: k12106
24040 o|contracted procedure: k12114
24041 o|contracted procedure: k12122
24042 o|contracted procedure: k12129
24043 o|contracted procedure: k12147
24044 o|contracted procedure: k12520
24045 o|contracted procedure: k12168
24046 o|contracted procedure: k12171
24047 o|contracted procedure: k12232
24048 o|contracted procedure: k12261
24049 o|contracted procedure: k12240
24050 o|contracted procedure: k12275
24051 o|contracted procedure: k12264
24052 o|contracted procedure: k12271
24053 o|contracted procedure: k12287
24054 o|contracted procedure: k12336
24055 o|contracted procedure: k12332
24056 o|contracted procedure: k12312
24057 o|contracted procedure: k12328
24058 o|contracted procedure: k12320
24059 o|contracted procedure: k12316
24060 o|contracted procedure: k12384
24061 o|contracted procedure: k12352
24062 o|contracted procedure: k12380
24063 o|contracted procedure: k12364
24064 o|contracted procedure: k12376
24065 o|contracted procedure: k12368
24066 o|contracted procedure: k12360
24067 o|contracted procedure: k12356
24068 o|contracted procedure: k12391
24069 o|contracted procedure: k12395
24070 o|contracted procedure: k12404
24071 o|contracted procedure: k12411
24072 o|contracted procedure: k12427
24073 o|contracted procedure: k12416
24074 o|contracted procedure: k12423
24075 o|contracted procedure: k12432
24076 o|contracted procedure: k12438
24077 o|contracted procedure: k12444
24078 o|contracted procedure: k12450
24079 o|contracted procedure: k12456
24080 o|contracted procedure: k12468
24081 o|contracted procedure: k12483
24082 o|contracted procedure: k12494
24083 o|contracted procedure: k12516
24084 o|contracted procedure: k12530
24085 o|contracted procedure: k12536
24086 o|contracted procedure: k12539
24087 o|contracted procedure: k12546
24088 o|contracted procedure: k12572
24089 o|contracted procedure: k12556
24090 o|contracted procedure: k12564
24091 o|contracted procedure: k12560
24092 o|contracted procedure: k12582
24093 o|contracted procedure: k12588
24094 o|contracted procedure: k12591
24095 o|contracted procedure: k12598
24096 o|contracted procedure: k12605
24097 o|contracted procedure: k12622
24098 o|contracted procedure: k12625
24099 o|contracted procedure: k12631
24100 o|contracted procedure: k12638
24101 o|contracted procedure: k12648
24102 o|contracted procedure: k12675
24103 o|contracted procedure: k12697
24104 o|contracted procedure: k12719
24105 o|contracted procedure: k12747
24106 o|contracted procedure: k12757
24107 o|contracted procedure: k12771
24108 o|contracted procedure: k12760
24109 o|contracted procedure: k12767
24110 o|contracted procedure: k12784
24111 o|contracted procedure: k12787
24112 o|contracted procedure: k12795
24113 o|contracted procedure: k12837
24114 o|contracted procedure: k12945
24115 o|contracted procedure: k12845
24116 o|contracted procedure: k12856
24117 o|contracted procedure: k12869
24118 o|contracted procedure: k12880
24119 o|inlining procedure: k12873
24120 o|inlining procedure: k12873
24121 o|contracted procedure: k12941
24122 o|contracted procedure: k12901
24123 o|contracted procedure: k12925
24124 o|contracted procedure: k12935
24125 o|contracted procedure: k12931
24126 o|contracted procedure: k12921
24127 o|contracted procedure: k12962
24128 o|contracted procedure: k12979
24129 o|contracted procedure: k12996
24130 o|contracted procedure: k13013
24131 o|contracted procedure: k13063
24132 o|contracted procedure: k13067
24133 o|contracted procedure: k13059
24134 o|contracted procedure: k13081
24135 o|contracted procedure: k13087
24136 o|inlining procedure: k13078
24137 o|contracted procedure: k13096
24138 o|contracted procedure: k13106
24139 o|contracted procedure: k13110
24140 o|contracted procedure: k13113
24141 o|contracted procedure: k13120
24142 o|contracted procedure: k13136
24143 o|contracted procedure: k13139
24144 o|contracted procedure: k13143
24145 o|contracted procedure: k13168
24146 o|contracted procedure: k13188
24147 o|contracted procedure: k13193
24148 o|contracted procedure: k13205
24149 o|contracted procedure: k13217
24150 o|contracted procedure: k13223
24151 o|contracted procedure: k13240
24152 o|contracted procedure: k13229
24153 o|contracted procedure: k13236
24154 o|contracted procedure: k13247
24155 o|contracted procedure: k13250
24156 o|contracted procedure: k13172
24157 o|contracted procedure: k13176
24158 o|contracted procedure: k13180
24159 o|contracted procedure: k13149
24160 o|contracted procedure: k13160
24161 o|contracted procedure: k13164
24162 o|contracted procedure: k13262
24163 o|contracted procedure: k13265
24164 o|contracted procedure: k13268
24165 o|contracted procedure: k13276
24166 o|contracted procedure: k13284
24167 o|contracted procedure: k13328
24168 o|contracted procedure: k13341
24169 o|contracted procedure: k13356
24170 o|contracted procedure: k13362
24171 o|contracted procedure: k13395
24172 o|contracted procedure: k13391
24173 o|contracted procedure: k13387
24174 o|contracted procedure: k13375
24175 o|contracted procedure: k13383
24176 o|contracted procedure: k13379
24177 o|contracted procedure: k13419
24178 o|contracted procedure: k13429
24179 o|contracted procedure: k13477
24180 o|contracted procedure: k13437
24181 o|contracted procedure: k13441
24182 o|contracted procedure: k13458
24183 o|contracted procedure: k13454
24184 o|contracted procedure: k13444
24185 o|contracted procedure: k13461
24186 o|contracted procedure: k13467
24187 o|contracted procedure: k13485
24188 o|contracted procedure: k13488
24189 o|contracted procedure: k13499
24190 o|contracted procedure: k13503
24191 o|contracted procedure: k13513
24192 o|contracted procedure: k13523
24193 o|contracted procedure: k13532
24194 o|contracted procedure: k13665
24195 o|contracted procedure: k13545
24196 o|contracted procedure: k13551
24197 o|contracted procedure: k13561
24198 o|contracted procedure: k13564
24199 o|contracted procedure: k13573
24200 o|contracted procedure: k13586
24201 o|contracted procedure: k13599
24202 o|contracted procedure: k13635
24203 o|contracted procedure: k13605
24204 o|contracted procedure: k13611
24205 o|contracted procedure: k13624
24206 o|contracted procedure: k13641
24207 o|contracted procedure: k13652
24208 o|contracted procedure: k13677
24209 o|contracted procedure: k13684
24210 o|contracted procedure: k13692
24211 o|contracted procedure: k13704
24212 o|contracted procedure: k13726
24213 o|contracted procedure: k13722
24214 o|contracted procedure: k13707
24215 o|contracted procedure: k13710
24216 o|contracted procedure: k13718
24217 o|contracted procedure: k13796
24218 o|contracted procedure: k13735
24219 o|contracted procedure: k13741
24220 o|contracted procedure: k13792
24221 o|contracted procedure: k13748
24222 o|contracted procedure: k13754
24223 o|contracted procedure: k13760
24224 o|contracted procedure: k13767
24225 o|contracted procedure: k13813
24226 o|contracted procedure: k13831
24227 o|contracted procedure: k13823
24228 o|contracted procedure: k13845
24229 o|contracted procedure: k13874
24230 o|contracted procedure: k13880
24231 o|contracted procedure: k13889
24232 o|contracted procedure: k13902
24233 o|contracted procedure: k13905
24234 o|contracted procedure: k13917
24235 o|contracted procedure: k13920
24236 o|contracted procedure: k13923
24237 o|contracted procedure: k13931
24238 o|contracted procedure: k13939
24239 o|simplifications: ((if . 6) (let . 288))
24240 o|replaced variables: 9
24241 o|removed binding forms: 913
24242 (o x)|known list op on rest arg sublist: ##core#rest-null? rest885888 0
24243 (o x)|known list op on rest arg sublist: ##core#rest-car rest885888 0
24244 (o x)|known list op on rest arg sublist: ##core#rest-null? rest10031005 0
24245 (o x)|known list op on rest arg sublist: ##core#rest-car rest10031005 0
24246 (o x)|known list op on rest arg sublist: ##core#rest-null? rest10341036 0
24247 (o x)|known list op on rest arg sublist: ##core#rest-car rest10341036 0
24248 o|contracted procedure: k6142
24249 o|inlining procedure: k6927
24250 o|inlining procedure: k6927
24251 o|inlining procedure: k8127
24252 o|inlining procedure: k8271
24253 o|inlining procedure: k8271
24254 (o x)|known list op on rest arg sublist: ##core#rest-null? rest18651869 0
24255 (o x)|known list op on rest arg sublist: ##core#rest-car rest18651869 0
24256 (o x)|known list op on rest arg sublist: ##core#rest-null? rest18651869 0
24257 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest18651869 0
24258 o|inlining procedure: k9256
24259 o|inlining procedure: k11255
24260 o|contracted procedure: k12737
24261 o|inlining procedure: k13071
24262 o|inlining procedure: k13071
24263 o|inlining procedure: k13071
24264 o|inlining procedure: k13433
24265 o|inlining procedure: k13433
24266 o|removed binding forms: 16
24267 o|substituted constant variable: r925715644
24268 o|substituted constant variable: r925715644
24269 o|substituted constant variable: r1125615658
24270 o|removed binding forms: 5
24271 o|removed conditional forms: 1
24272 o|removed binding forms: 2
24273 o|direct leaf routine/allocation: chicken.syntax#lookup 0
24274 o|direct leaf routine/allocation: g10231024 0
24275 o|direct leaf routine/allocation: loop1252 0
24276 o|direct leaf routine/allocation: g17671768 0
24277 o|direct leaf routine/allocation: g18561857 0
24278 o|direct leaf routine/allocation: loop1895 0
24279 o|direct leaf routine/allocation: loop1912 0
24280 o|direct leaf routine/allocation: g20632064 0
24281 o|direct leaf routine/allocation: g20722073 0
24282 o|direct leaf routine/allocation: assq-reverse1990 0
24283 o|direct leaf routine/allocation: loop3081 0
24284 o|direct leaf routine/allocation: g28402849 15
24285 o|contracted procedure: "(expand.scm:101) k5589"
24286 o|contracted procedure: "(expand.scm:167) k5987"
24287 o|contracted procedure: "(expand.scm:179) k6026"
24288 o|contracted procedure: "(expand.scm:181) k6035"
24289 o|contracted procedure: "(expand.scm:263) k6365"
24290 o|contracted procedure: "(expand.scm:265) k6582"
24291 o|converted assignments to bindings: (loop1252)
24292 o|contracted procedure: "(expand.scm:465) k7523"
24293 o|converted assignments to bindings: (loop1895)
24294 o|converted assignments to bindings: (loop1912)
24295 o|contracted procedure: "(expand.scm:804) k9256"
24296 o|contracted procedure: "(expand.scm:882) k9696"
24297 o|contracted procedure: "(expand.scm:882) k9702"
24298 o|contracted procedure: "(expand.scm:902) k9802"
24299 o|contracted procedure: "(expand.scm:903) k9805"
24300 o|converted assignments to bindings: (loop3081)
24301 o|contracted procedure: "(expand.scm:1462) k12118"
24302 o|simplifications: ((if . 1) (let . 4))
24303 o|removed binding forms: 13
24304 o|direct leaf routine/allocation: comp1500 0
24305 o|contracted procedure: "(expand.scm:493) k7650"
24306 o|contracted procedure: "(expand.scm:509) k7713"
24307 o|contracted procedure: "(expand.scm:505) k7773"
24308 o|contracted procedure: "(expand.scm:487) k7805"
24309 o|contracted procedure: "(expand.scm:488) k7811"
24310 o|contracted procedure: "(expand.scm:489) k7817"
24311 o|contracted procedure: "(expand.scm:490) k7823"
24312 o|contracted procedure: "(expand.scm:575) k8236"
24313 o|contracted procedure: "(expand.scm:602) k8373"
24314 o|contracted procedure: "(expand.scm:605) k8385"
24315 o|contracted procedure: "(expand.scm:609) k8417"
24316 o|simplifications: ((if . 2))
24317 o|removed binding forms: 11
24318 o|customizable procedures: (g22652274 map-loop22592311 expand2362 map-loop23702388 test2333 err2332 k13350 k13447 g24872496 map-loop24812508 loop2578 expand2706 map-loop28342855 k12036 expand2803 expand2877 map-loop28992917 k11725 k11778 map-loop29332951 g30283029 g30213022 walk2965 walk12966 simplify2967 k11310 loop3342 k10918 k10871 doloop32913292 k10508 k10301 map-loop31573174 loop3070 chicken.syntax#make-er/ir-transformer mirror-rename1991 k9617 k9625 doloop20222023 inherit-pair-line-numbers1972 k9050 test1880 k9074 walk1922 doloop19371938 err1881 loop1801 loop1814 loop1831 outstr1812 loop1778 mwalk1754 k8221 fini/syntax1502 loop21724 loop1708 k8123 loop1664 map-loop16771694 fini1501 foldl15921596 map-loop15691608 k7908 map-loop16171644 k7644 loop21524 k7695 expand1503 loop1521 map-loop14091426 map-loop14381462 k7049 k7225 k7138 k7099 chicken.syntax#macro-alias k7062 loop1285 err1274 g13071316 map-loop13011329 k6764 k6776 loop1239 k6371 k6526 g12041205 loop1117 expand1062 map-loop11441162 map-loop11711188 call-handler1061 k6176 copy1080 loop1050 map-loop896913 for-each-loop922949 map-loop959980 doloop874875 walk844)
24319 o|calls to known targets: 331
24320 o|identified direct recursive calls: f_5810 1
24321 o|identified direct recursive calls: f_5858 1
24322 o|unused rest argument: rest885888 f_5764
24323 o|unused rest argument: rest10031005 f_5955
24324 o|unused rest argument: rest10341036 f_6021
24325 o|identified direct recursive calls: f_6072 1
24326 o|identified direct recursive calls: f_6421 1
24327 o|identified direct recursive calls: f_6490 1
24328 o|identified direct recursive calls: f_6676 3
24329 o|identified direct recursive calls: f_6748 2
24330 o|identified direct recursive calls: f_7402 1
24331 o|identified direct recursive calls: f_7965 1
24332 o|identified direct recursive calls: f_8078 1
24333 o|identified direct recursive calls: f_8051 1
24334 o|identified direct recursive calls: f_8515 1
24335 o|identified direct recursive calls: f_8597 1
24336 o|identified direct recursive calls: f_8676 1
24337 o|identified direct recursive calls: f_8986 1
24338 o|identified direct recursive calls: f_9031 1
24339 o|identified direct recursive calls: f_9057 1
24340 o|identified direct recursive calls: f_9422 1
24341 o|identified direct recursive calls: f_9508 1
24342 o|identified direct recursive calls: f_9727 1
24343 o|identified direct recursive calls: f_9752 1
24344 o|identified direct recursive calls: f_10035 1
24345 o|identified direct recursive calls: f_10071 1
24346 o|identified direct recursive calls: f_10899 1
24347 o|identified direct recursive calls: f_11820 1
24348 o|identified direct recursive calls: f_11872 1
24349 o|identified direct recursive calls: f_12095 1
24350 o|identified direct recursive calls: f_13699 1
24351 o|fast box initializations: 67
24352 o|fast global references: 21
24353 o|fast global assignments: 5
24354 o|dropping unused closure argument: f_5558
24355 o|dropping unused closure argument: f_5575
24356 o|dropping unused closure argument: f_6676
24357 o|dropping unused closure argument: f_8986
24358 o|dropping unused closure argument: f_9031
24359 o|dropping unused closure argument: f_9364
24360 o|dropping unused closure argument: f_9373
24361 o|dropping unused closure argument: f_9727
24362 */
24363 /* end of file */
24364