1 /* Generated from irregex.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: irregex.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 irregex.c -emit-import-library chicken.irregex
6    unit: irregex
7    uses: expand library
8 */
9 #include "chicken.h"
10 
11 static C_PTABLE_ENTRY *create_ptable(void);
12 C_noret_decl(C_expand_toplevel)
13 C_externimport void C_ccall C_expand_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[502];
18 static double C_possibly_force_alignment;
19 static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,118,101,99,116,111,114,45,99,111,112,121,32,118,41,0};
20 static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,63,32,120,41,0,0,0,0};
21 static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,120,41,0,0,0,0,0,0};
22 static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,97,109,101,115,32,120,41,0,0,0,0,0,0,0};
23 static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,101,119,45,109,97,116,99,104,101,115,32,105,114,120,41,0,0,0,0,0,0,0};
24 static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,115,101,116,45,109,97,116,99,104,101,115,33,32,109,41,0,0,0,0,0,0};
25 static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,99,111,112,121,45,109,97,116,99,104,101,115,32,109,41};
26 static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,100,97,116,97,63,32,111,98,106,41,0,0,0,0,0,0,0};
27 static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,109,41};
28 static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,97,109,101,115,32,109,41,0};
29 static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,116,97,114,116,45,99,104,117,110,107,32,109,32,46,32,111,112,116,41,0,0,0,0,0};
30 static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,116,97,114,116,45,105,110,100,101,120,32,109,32,46,32,111,112,116,41,0,0,0,0,0};
31 static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,101,110,100,45,99,104,117,110,107,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0};
32 static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,101,110,100,45,105,110,100,101,120,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0};
33 static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,115,32,117,110,107,110,111,119,110,63,41};
34 static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,60),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,117,109,101,114,105,99,45,105,110,100,101,120,32,108,111,99,97,116,105,111,110,32,109,32,111,112,116,41,0,0,0,0};
35 static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,118,97,108,105,100,45,105,110,100,101,120,63,32,109,32,110,41};
36 static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,115,116,114,105,110,103,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0};
37 static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,99,104,117,110,107,32,109,32,46,32,111,112,116,41};
38 static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,12),40,102,95,56,53,54,52,32,99,110,107,41,0,0,0,0};
39 static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,12),40,102,95,56,53,52,55,32,99,110,107,41,0,0,0,0};
40 static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,99,110,107,32,114,101,115,41,0,0};
41 static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,28),40,102,95,56,52,52,54,32,99,110,107,49,32,115,116,97,114,116,32,99,110,107,50,32,101,110,100,41,0,0,0,0};
42 static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,107,101,45,105,114,114,101,103,101,120,45,99,104,117,110,107,101,114,32,103,101,116,45,110,101,120,116,32,103,101,116,45,115,116,114,32,46,32,111,41,0,0,0,0,0};
43 static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,10),40,108,112,32,115,116,97,114,116,41,0,0,0,0,0,0};
44 static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,117,110,107,101,114,45,112,114,101,118,45,99,104,97,114,32,99,110,107,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0,0};
45 static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,117,110,107,101,114,45,110,101,120,116,45,99,104,97,114,32,99,110,107,32,115,114,99,41,0,0,0,0,0};
46 static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41};
47 static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,32,99,32,46,32,111,41,0,0,0,0};
48 static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0};
49 static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,11),40,97,57,49,49,55,32,115,32,97,41,0,0,0,0,0};
50 static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,99,97,116,45,114,101,118,101,114,115,101,32,115,116,114,105,110,103,45,108,105,115,116,41};
51 static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,114,101,115,41,0,0,0,0,0,0};
52 static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,122,101,114,111,45,116,111,32,110,41,0,0,0,0,0};
53 static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0};
54 static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,105,110,100,32,112,114,101,100,32,108,115,41,0,0};
55 static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0};
56 static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,108,97,115,116,32,108,115,41,0,0,0,0,0,0,0};
57 static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,14),40,108,112,32,104,101,97,100,32,116,97,105,108,41,0,0};
58 static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,97,110,121,32,112,114,101,100,32,108,115,41,0,0,0};
59 static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,14),40,108,112,32,104,101,97,100,32,116,97,105,108,41,0,0};
60 static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,101,118,101,114,121,32,112,114,101,100,32,108,115,41,0};
61 static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0};
62 static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,111,108,100,32,107,111,110,115,32,107,110,105,108,32,108,115,41,0,0,0,0,0};
63 static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,108,97,103,45,106,111,105,110,32,97,32,98,41,0};
64 static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,108,97,103,45,99,108,101,97,114,32,97,32,98,41};
65 static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,12),40,97,57,56,49,56,32,122,32,106,51,41,0,0,0,0};
66 static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,12),40,97,57,56,49,50,32,121,32,106,50,41,0,0,0,0};
67 static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,11),40,97,57,55,55,56,32,120,32,106,41,0,0,0,0,0};
68 static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,32,108,115,41,0,0,0,0,0,0,0};
69 static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,8),40,115,107,105,112,32,105,41};
70 static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,14),40,97,57,57,51,53,32,115,101,120,112,32,106,41,0,0};
71 static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,14),40,97,57,57,55,52,32,115,101,120,112,32,106,41,0,0};
72 static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,9),40,99,111,108,108,101,99,116,41,0,0,0,0,0,0,0};
73 static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,17),40,115,99,97,110,32,102,114,111,109,32,105,32,114,101,115,41,0,0,0,0,0,0,0};
74 static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,15),40,97,49,48,49,50,49,32,115,101,120,112,32,106,41,0};
75 static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,15),40,97,49,48,49,51,57,32,115,101,120,112,32,106,41,0};
76 static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41};
77 static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,12),40,102,95,57,55,52,54,32,105,32,107,41,0,0,0,0};
78 static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,14),40,97,49,48,51,49,48,32,114,101,115,32,106,41,0,0};
79 static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,119,105,116,104,45,114,101,97,100,45,102,114,111,109,45,115,116,114,105,110,103,32,115,116,114,32,105,32,112,114,111,99,41,0,0,0,0,0,0};
80 static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0};
81 static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,121,109,98,111,108,45,108,105,115,116,45,62,102,108,97,103,115,32,108,115,41,0};
82 static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,121,98,101,45,115,116,114,105,110,103,45,62,115,114,101,32,111,98,106,41,0};
83 static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,12),40,99,97,115,101,100,45,99,104,97,114,41,0,0,0,0};
84 static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,55,49,32,103,49,52,56,51,41,0,0,0,0};
85 static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,18),40,99,97,115,101,100,45,115,116,114,105,110,103,32,115,116,114,41,0,0,0,0,0,0};
86 static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,9),40,99,111,108,108,101,99,116,41,0,0,0,0,0,0,0};
87 static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0};
88 static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,16),40,99,111,108,108,101,99,116,47,115,105,110,103,108,101,41};
89 static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,115,32,116,101,114,109,32,114,101,115,41};
90 static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,15),40,99,111,108,108,101,99,116,47,116,101,114,109,115,41,0};
91 static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,6),40,115,97,118,101,41,0,0};
92 static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,14),40,97,49,49,50,52,49,32,115,114,101,32,106,41,0,0};
93 static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,6),40,106,111,105,110,41,0,0};
94 static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,9),40,110,101,119,45,114,101,115,41,0,0,0,0,0,0,0};
95 static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,21),40,108,112,50,32,106,32,102,108,97,103,115,32,105,110,118,101,114,116,63,41,0,0,0};
96 static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,14),40,97,49,50,48,48,49,32,115,114,101,32,106,41,0,0};
97 static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,14),40,97,50,54,57,51,56,32,120,32,114,101,115,41,0,0};
98 static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,12),40,97,49,51,53,48,51,32,99,32,106,41,0,0,0,0};
99 static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,7),40,103,49,56,56,52,41,0};
100 static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,13),40,97,49,51,56,51,51,32,99,104,32,106,41,0,0,0};
101 static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,21),40,103,111,32,105,32,112,114,101,118,45,99,104,97,114,32,99,115,101,116,41,0,0,0};
102 static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,9),40,99,111,108,108,101,99,116,41,0,0,0,0,0,0,0};
103 static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,15),40,108,112,32,105,32,102,114,111,109,32,114,101,115,41,0};
104 static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,13),40,97,49,50,54,52,54,32,99,104,32,106,41,0,0,0};
105 static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,7),40,108,112,50,32,106,41,0};
106 static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,14),40,97,49,50,56,55,55,32,115,114,101,32,106,41,0,0};
107 static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41};
108 static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,24),40,108,112,32,105,32,102,114,111,109,32,102,108,97,103,115,32,114,101,115,32,115,116,41};
109 static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,115,114,101,32,115,116,114,32,46,32,111,41,0,0,0};
110 static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41};
111 static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,112,97,114,115,101,45,104,101,120,45,101,115,99,97,112,101,32,115,116,114,32,105,32,101,110,100,41,0,0,0,0,0};
112 static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,104,105,103,104,45,99,104,97,114,63,32,99,41,0,0};
113 static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,6),40,98,121,116,101,41,0,0};
114 static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,116,102,56,45,115,116,114,105,110,103,45,114,101,102,32,115,116,114,32,105,32,108,101,110,41,0,0,0,0,0};
115 static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,116,102,56,45,108,111,119,101,115,116,45,100,105,103,105,116,45,111,102,45,108,101,110,103,116,104,32,108,101,110,41,0,0,0,0,0,0,0};
116 static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,97,114,45,62,117,116,102,56,45,108,105,115,116,32,99,41,0,0,0,0,0};
117 static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,55,55,32,103,50,48,56,57,41,0,0,0,0};
118 static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,53,49,32,103,50,48,54,51,41,0,0,0,0};
119 static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,104,101,108,112,101,114,32,111,110,101,32,108,115,32,112,114,101,102,105,120,32,114,101,115,41};
120 static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,10),40,97,49,52,55,55,51,32,99,41,0,0,0,0,0,0};
121 static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,49,51,32,103,50,49,50,53,41,0,0,0,0};
122 static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,117,112,45,102,114,111,109,32,108,111,45,108,115,41,0,0,0};
123 static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,10),40,97,49,52,57,49,50,32,99,41,0,0,0,0,0,0};
124 static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,52,56,32,103,50,49,54,48,41,0,0,0,0};
125 static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,117,112,45,116,111,32,104,105,45,108,115,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,50,50,51,55,32,103,50,50,52,57,41,0,0,0,0};
127 static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,9),40,103,50,50,50,48,32,105,41,0,0,0,0,0,0,0};
128 static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,55,55,32,103,50,50,56,57,41,0,0,0,0};
129 static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,49,52,32,103,50,50,50,54,41,0,0,0,0};
130 static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,56,52,32,103,50,49,57,54,41,0,0,0,0};
131 static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,49,53,32,103,50,51,50,55,41,0,0,0,0};
132 static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,111,45,108,115,32,104,105,45,108,115,41};
133 static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,97,108,116,115,32,108,111,45,99,115,101,116,41,0,0,0,0};
134 static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,117,116,102,56,45,112,97,116,116,101,114,110,32,99,115,101,116,41,0,0,0,0,0,0,0};
135 static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,32,120,32,46,32,111,41,0};
136 static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,105,114,114,101,103,101,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0};
137 static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,44),40,97,50,51,52,48,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
138 static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0};
139 static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,53,49,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
140 static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,8),40,97,50,51,53,52,52,41};
141 static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,53,51,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
142 static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,51,55,41};
143 static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,51,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
144 static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,54,51,41};
145 static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,53,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
146 static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,57,56,41};
147 static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,57,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
148 static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,8),40,97,50,51,56,52,52,41};
149 static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,56,51,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
150 static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,8),40,97,50,51,56,54,48,41};
151 static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,44),40,97,50,51,56,53,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
152 static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,8),40,97,50,51,57,48,51,41};
153 static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,44),40,97,50,51,56,57,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
154 static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,57,57,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
155 static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,50,55,41};
156 static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,44),40,97,50,52,48,48,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
157 static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,52,53,56,55,32,99,111,117,110,116,41};
158 static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,54,55,41};
159 static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,48,53,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
160 static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,49,52,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
161 static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,8),40,97,50,52,49,56,51,41};
162 static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,44),40,97,50,52,49,54,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
163 static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,52,54,52,53,32,99,111,117,110,116,41};
164 static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,8),40,97,50,52,50,50,55,41};
165 static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,50,49,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
166 static C_char C_TLS li147[] C_aligned={C_lihdr(0,0,8),40,97,50,52,51,56,56,41};
167 static C_char C_TLS li148[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,51,55,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
168 static C_char C_TLS li149[] C_aligned={C_lihdr(0,0,44),40,97,50,52,51,57,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
169 static C_char C_TLS li150[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,50,51,41};
170 static C_char C_TLS li151[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,52,48,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
171 static C_char C_TLS li152[] C_aligned={C_lihdr(0,0,44),40,97,50,52,52,51,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
172 static C_char C_TLS li153[] C_aligned={C_lihdr(0,0,11),40,102,95,50,52,52,57,50,32,120,41,0,0,0,0,0};
173 static C_char C_TLS li154[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,56,54,41};
174 static C_char C_TLS li155[] C_aligned={C_lihdr(0,0,9),40,97,56,55,51,53,32,120,41,0,0,0,0,0,0,0};
175 static C_char C_TLS li156[] C_aligned={C_lihdr(0,0,9),40,97,56,55,54,50,32,120,41,0,0,0,0,0,0,0};
176 static C_char C_TLS li157[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,52,52,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
177 static C_char C_TLS li158[] C_aligned={C_lihdr(0,0,44),40,97,50,52,53,48,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
178 static C_char C_TLS li159[] C_aligned={C_lihdr(0,0,8),40,97,50,52,53,52,52,41};
179 static C_char C_TLS li160[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,53,51,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
180 static C_char C_TLS li161[] C_aligned={C_lihdr(0,0,44),40,97,50,52,53,53,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
181 static C_char C_TLS li162[] C_aligned={C_lihdr(0,0,46),40,102,95,50,52,53,56,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,50,41,0,0};
182 static C_char C_TLS li163[] C_aligned={C_lihdr(0,0,8),40,97,50,52,54,52,54,41};
183 static C_char C_TLS li164[] C_aligned={C_lihdr(0,0,46),40,102,95,50,52,54,52,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,50,41,0,0};
184 static C_char C_TLS li165[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,54,56,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
185 static C_char C_TLS li166[] C_aligned={C_lihdr(0,0,24),40,108,112,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,106,32,108,101,110,41};
186 static C_char C_TLS li167[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,55,50,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
187 static C_char C_TLS li168[] C_aligned={C_lihdr(0,0,8),40,97,50,52,57,56,53,41};
188 static C_char C_TLS li169[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,57,51,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
189 static C_char C_TLS li170[] C_aligned={C_lihdr(0,0,8),40,97,50,53,48,56,48,41};
190 static C_char C_TLS li171[] C_aligned={C_lihdr(0,0,44),40,97,50,53,48,52,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0};
191 static C_char C_TLS li172[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,50,56,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
192 static C_char C_TLS li173[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,51,51,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
193 static C_char C_TLS li174[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,52,51,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
194 static C_char C_TLS li175[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,52,54,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
195 static C_char C_TLS li176[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,53,49,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
196 static C_char C_TLS li177[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,54,49,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
197 static C_char C_TLS li178[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,54,53,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
198 static C_char C_TLS li179[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,55,49,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
199 static C_char C_TLS li180[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,56,48,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
200 static C_char C_TLS li181[] C_aligned={C_lihdr(0,0,9),40,108,112,32,115,114,99,50,41,0,0,0,0,0,0,0};
201 static C_char C_TLS li182[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,57,50,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
202 static C_char C_TLS li183[] C_aligned={C_lihdr(0,0,9),40,108,112,32,115,114,99,50,41,0,0,0,0,0,0,0};
203 static C_char C_TLS li184[] C_aligned={C_lihdr(0,0,45),40,102,95,50,54,48,50,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
204 static C_char C_TLS li185[] C_aligned={C_lihdr(0,0,21),40,108,112,32,115,114,101,32,110,32,102,108,97,103,115,32,110,101,120,116,41,0,0,0};
205 static C_char C_TLS li186[] C_aligned={C_lihdr(0,0,8),40,103,114,111,119,32,105,41};
206 static C_char C_TLS li187[] C_aligned={C_lihdr(0,0,16),40,97,49,55,50,48,53,32,108,111,51,32,104,105,51,41};
207 static C_char C_TLS li188[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,108,115,32,110,32,108,111,50,32,104,105,50,41,0,0,0,0,0,0};
208 static C_char C_TLS li189[] C_aligned={C_lihdr(0,0,16),40,97,49,55,50,56,55,32,108,111,51,32,104,105,51,41};
209 static C_char C_TLS li190[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,108,115,32,110,32,108,111,50,32,104,105,50,41,0,0,0,0,0,0};
210 static C_char C_TLS li191[] C_aligned={C_lihdr(0,0,16),40,97,49,55,51,56,51,32,108,111,52,32,104,105,52,41};
211 static C_char C_TLS li192[] C_aligned={C_lihdr(0,0,16),40,97,49,55,51,54,57,32,108,111,51,32,104,105,51,41};
212 static C_char C_TLS li193[] C_aligned={C_lihdr(0,0,16),40,97,49,55,51,53,53,32,108,111,50,32,104,105,50,41};
213 static C_char C_TLS li194[] C_aligned={C_lihdr(0,0,16),40,97,49,55,53,48,50,32,108,111,50,32,104,105,50,41};
214 static C_char C_TLS li195[] C_aligned={C_lihdr(0,0,14),40,97,49,55,54,53,54,32,108,111,32,104,105,41,0,0};
215 static C_char C_TLS li196[] C_aligned={C_lihdr(0,0,16),40,97,49,55,54,57,53,32,108,111,50,32,104,105,50,41};
216 static C_char C_TLS li197[] C_aligned={C_lihdr(0,0,16),40,97,49,55,55,52,50,32,108,111,50,32,104,105,50,41};
217 static C_char C_TLS li198[] C_aligned={C_lihdr(0,0,16),40,97,49,55,56,49,54,32,108,111,50,32,104,105,50,41};
218 static C_char C_TLS li199[] C_aligned={C_lihdr(0,0,16),40,97,49,55,56,52,52,32,108,111,50,32,104,105,50,41};
219 static C_char C_TLS li200[] C_aligned={C_lihdr(0,0,12),40,103,51,48,50,55,32,99,101,108,108,41,0,0,0,0};
220 static C_char C_TLS li201[] C_aligned={C_lihdr(0,0,23),40,108,112,32,115,114,101,32,110,32,108,111,32,104,105,32,114,101,116,117,114,110,41,0};
221 static C_char C_TLS li202[] C_aligned={C_lihdr(0,0,11),40,103,50,54,50,53,32,110,102,97,41,0,0,0,0,0};
222 static C_char C_TLS li203[] C_aligned={C_lihdr(0,0,11),40,103,50,54,49,52,32,110,102,97,41,0,0,0,0,0};
223 static C_char C_TLS li204[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0};
224 static C_char C_TLS li205[] C_aligned={C_lihdr(0,0,9),40,103,50,51,56,48,32,115,41,0,0,0,0,0,0,0};
225 static C_char C_TLS li206[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,55,52,32,103,50,51,56,54,41,0,0,0,0};
226 static C_char C_TLS li207[] C_aligned={C_lihdr(0,0,9),40,103,50,52,48,55,32,115,41,0,0,0,0,0,0,0};
227 static C_char C_TLS li208[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,48,49,32,103,50,52,49,51,41,0,0,0,0};
228 static C_char C_TLS li209[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,52,52,32,103,50,52,53,54,41,0,0,0,0};
229 static C_char C_TLS li210[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,55,48,32,103,50,52,56,50,41,0,0,0,0};
230 static C_char C_TLS li211[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,48,52,32,103,50,53,49,54,41,0,0,0,0};
231 static C_char C_TLS li212[] C_aligned={C_lihdr(0,0,22),40,97,100,106,117,115,116,32,115,114,101,32,117,116,102,56,63,32,99,105,63,41,0,0};
232 static C_char C_TLS li213[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,105,114,114,101,103,101,120,32,115,114,101,32,46,32,111,41,0,0};
233 static C_char C_TLS li214[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,101,109,112,116,121,63,32,115,114,101,41};
234 static C_char C_TLS li215[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,97,110,121,63,32,115,114,101,41,0,0};
235 static C_char C_TLS li216[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,114,101,112,101,97,116,101,114,63,41,0};
236 static C_char C_TLS li217[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,98,111,115,63,32,115,114,101,41,0,0};
237 static C_char C_TLS li218[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,97,114,99,104,101,114,63,32,115,114,101,41,0,0,0,0,0};
238 static C_char C_TLS li219[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,111,110,115,117,109,101,114,63,32,115,114,101,41,0,0,0,0,0};
239 static C_char C_TLS li220[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,104,97,115,45,115,117,98,109,97,116,99,104,101,115,63,32,115,114,101,41,0,0,0,0,0,0,0};
240 static C_char C_TLS li221[] C_aligned={C_lihdr(0,0,15),40,99,111,117,110,116,32,115,114,101,32,115,117,109,41,0};
241 static C_char C_TLS li222[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,111,117,110,116,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,41,0,0,0,0,0,0};
242 static C_char C_TLS li223[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,113,117,101,110,99,101,41,0,0};
243 static C_char C_TLS li224[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,97,108,116,101,114,110,97,116,101,41,0};
244 static C_char C_TLS li225[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,54,52,32,103,51,48,55,54,41,0,0,0,0};
245 static C_char C_TLS li226[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,116,114,105,112,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,41,0,0,0,0,0,0};
246 static C_char C_TLS li227[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,110,97,109,101,115,32,115,114,101,32,110,32,110,97,109,101,115,41,0};
247 static C_char C_TLS li228[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,113,117,101,110,99,101,45,110,97,109,101,115,32,108,115,32,110,32,110,97,109,101,115,41,0};
248 static C_char C_TLS li229[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,50,48,53,32,103,51,50,49,55,41,0,0,0,0};
249 static C_char C_TLS li230[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,114,101,109,111,118,101,45,105,110,105,116,105,97,108,45,98,111,115,32,115,114,101,41,0,0,0,0};
250 static C_char C_TLS li231[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,32,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0};
251 static C_char C_TLS li232[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,99,104,117,110,107,101,100,32,120,32,99,110,107,32,115,114,99,32,46,32,111,41,0,0};
252 static C_char C_TLS li233[] C_aligned={C_lihdr(0,0,7),40,108,112,50,32,105,41,0};
253 static C_char C_TLS li234[] C_aligned={C_lihdr(0,0,11),40,108,112,49,32,115,114,99,32,105,41,0,0,0,0,0};
254 static C_char C_TLS li235[] C_aligned={C_lihdr(0,0,10),40,97,49,57,55,53,57,32,120,41,0,0,0,0,0,0};
255 static C_char C_TLS li236[] C_aligned={C_lihdr(0,0,13),40,108,112,50,32,105,32,115,116,97,116,101,41,0,0,0};
256 static C_char C_TLS li237[] C_aligned={C_lihdr(0,0,21),40,108,112,49,32,115,114,99,32,115,116,97,114,116,32,115,116,97,116,101,41,0,0,0};
257 static C_char C_TLS li238[] C_aligned={C_lihdr(0,0,8),40,97,49,57,50,50,49,41};
258 static C_char C_TLS li239[] C_aligned={C_lihdr(0,0,8),40,97,49,57,50,57,51,41};
259 static C_char C_TLS li240[] C_aligned={C_lihdr(0,0,19),40,108,112,32,115,114,99,50,32,115,116,114,32,105,32,101,110,100,41,0,0,0,0,0};
260 static C_char C_TLS li241[] C_aligned={C_lihdr(0,0,67),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,109,97,116,99,104,101,115,32,105,114,120,32,99,110,107,32,105,110,105,116,32,115,114,99,32,105,32,109,97,116,99,104,101,115,41,0,0,0,0,0};
261 static C_char C_TLS li242[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0};
262 static C_char C_TLS li243[] C_aligned={C_lihdr(0,0,6),40,108,112,32,109,41,0,0};
263 static C_char C_TLS li244[] C_aligned={C_lihdr(0,0,8),40,97,49,57,54,49,52,41};
264 static C_char C_TLS li245[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,47,99,104,117,110,107,101,100,32,105,114,120,32,99,110,107,32,115,114,99,41,0,0,0,0,0};
265 static C_char C_TLS li246[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,63,32,46,32,97,114,103,115,41,0};
266 static C_char C_TLS li247[] C_aligned={C_lihdr(0,0,7),40,103,51,53,49,52,41,0};
267 static C_char C_TLS li248[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,53,49,51,32,103,51,53,50,48,41,0,0,0,0,0,0,0};
268 static C_char C_TLS li249[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,105,110,97,108,105,122,101,33,32,102,105,110,97,108,105,122,101,114,32,109,101,109,111,114,121,32,109,97,116,99,104,101,115,41,0,0,0,0};
269 static C_char C_TLS li250[] C_aligned={C_lihdr(0,0,7),40,103,51,54,54,57,41,0};
270 static C_char C_TLS li251[] C_aligned={C_lihdr(0,0,9),40,102,95,50,48,49,57,57,41,0,0,0,0,0,0,0};
271 static C_char C_TLS li252[] C_aligned={C_lihdr(0,0,9),40,103,51,55,48,56,32,99,41,0,0,0,0,0,0,0};
272 static C_char C_TLS li253[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,55,56,32,103,51,54,56,53,41,0,0,0,0,0,0,0};
273 static C_char C_TLS li254[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,55,48,50,32,103,51,55,49,52,41,0,0,0,0};
274 static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,54,56,32,103,51,54,55,53,41,0,0,0,0,0,0,0};
275 static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,10),40,97,50,48,51,56,56,32,120,41,0,0,0,0,0,0};
276 static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,41),40,108,112,50,32,105,32,115,116,97,116,101,32,114,101,115,45,115,114,99,32,114,101,115,45,105,110,100,101,120,32,102,105,110,97,108,105,122,101,114,41,0,0,0,0,0,0,0};
277 static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,49),40,108,112,49,32,115,114,99,32,115,116,97,114,116,32,115,116,97,116,101,32,114,101,115,45,115,114,99,32,114,101,115,45,105,110,100,101,120,32,102,105,110,97,108,105,122,101,114,41,0,0,0,0,0,0,0};
278 static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,7),40,103,51,53,56,53,41,0};
279 static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,53,56,52,32,103,51,53,57,49,41,0,0,0,0,0,0,0};
280 static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,53,52,52,32,105,41,0,0};
281 static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,79),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,100,102,97,45,109,97,116,99,104,47,108,111,110,103,101,115,116,32,100,102,97,32,99,110,107,32,115,114,99,32,115,116,97,114,116,32,101,110,100,45,115,114,99,32,101,110,100,32,109,97,116,99,104,101,115,32,105,110,100,101,120,41,0};
282 static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,16),40,97,51,48,55,55,51,32,101,115,99,32,46,32,111,41};
283 static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,103,101,116,45,101,112,115,105,108,111,110,115,32,105,41,0,0,0,0};
284 static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,97,100,100,45,101,112,115,105,108,111,110,33,32,105,32,120,32,116,41};
285 static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,24),40,110,101,119,45,115,116,97,116,101,45,110,117,109,98,101,114,32,115,116,97,116,101,41};
286 static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,56,56,51,32,105,41,0,0};
287 static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,24),40,97,100,100,45,115,116,97,116,101,33,32,110,50,32,116,114,97,110,115,45,108,115,41};
288 static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,29),40,101,120,116,101,110,100,45,115,116,97,116,101,33,32,110,101,120,116,32,116,114,97,110,115,45,99,115,41,0,0,0};
289 static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,25),40,97,100,100,45,99,104,97,114,45,115,116,97,116,101,33,32,110,101,120,116,32,99,104,41,0,0,0,0,0,0,0};
290 static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,12),40,108,112,50,32,105,32,110,101,120,116,41,0,0,0,0};
291 static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,12),40,103,52,48,49,57,32,99,101,108,108,41,0,0,0,0};
292 static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,110,32,102,108,97,103,115,32,110,101,120,116,41,0,0,0,0};
293 static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,52,48,50,57,32,105,41,0,0};
294 static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,114,101,32,109,97,120,32,114,101,115,41};
295 static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,110,102,97,32,115,114,101,32,105,110,105,116,45,102,108,97,103,115,41,0,0,0,0,0,0,0};
296 static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,107,101,45,109,115,116,32,110,102,97,41,0,0};
297 static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,99,111,112,121,32,109,115,116,41,0,0};
298 static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,115,116,97,116,101,45,62,109,115,116,32,110,102,97,32,115,116,97,116,101,32,109,97,112,112,105,110,103,115,41,0,0,0,0,0};
299 static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,7),40,103,52,48,56,55,41,0};
300 static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,48,56,54,32,103,52,48,57,51,41,0,0,0,0,0,0,0};
301 static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,97,100,100,33,32,110,102,97,32,109,115,116,32,115,116,97,116,101,32,109,97,112,112,105,110,103,115,41,0,0,0,0,0,0,0};
302 static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,97,99,99,41,0,0,0,0,0,0};
303 static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,102,111,108,100,32,109,115,116,32,107,111,110,115,32,107,110,105,108,41};
304 static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,10),40,103,52,50,53,56,32,116,114,41,0,0,0,0,0,0};
305 static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,50,53,50,32,103,52,50,54,52,41,0,0,0,0};
306 static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,52,50,52,52,32,105,32,115,116,97,116,101,115,41,0,0,0};
307 static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,21),40,108,112,32,105,32,115,116,97,116,101,115,32,105,110,100,101,120,101,115,41,0,0,0};
308 static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,36),40,108,112,51,32,99,108,111,115,117,114,101,45,115,108,111,116,115,32,115,116,97,116,101,45,115,108,111,116,115,32,99,109,100,115,41,0,0,0,0};
309 static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,26),40,108,112,50,32,115,116,97,116,101,45,115,117,109,109,97,114,121,32,116,32,99,109,100,115,41,0,0,0,0,0,0};
310 static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0};
311 static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,15),40,108,112,32,100,102,97,45,115,116,97,116,101,115,41,0};
312 static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,37),40,108,112,50,32,116,114,97,110,115,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,32,100,102,97,45,116,114,97,110,115,41,0,0,0};
313 static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,20),40,103,52,51,48,55,32,105,110,116,101,114,115,101,99,116,105,111,110,41,0,0,0,0};
314 static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,99,115,32,115,116,97,116,101,32,114,101,115,41,0,0,0,0};
315 static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,24),40,97,50,50,55,53,53,32,115,116,32,109,97,112,112,105,110,103,115,32,114,101,115,41};
316 static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,43),40,108,112,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,32,109,97,114,107,101,100,45,115,116,97,116,101,115,32,100,102,97,45,115,105,122,101,41,0,0,0,0,0};
317 static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,62,100,102,97,32,110,102,97,32,111,41};
318 static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,10),40,108,112,32,109,32,114,101,115,41,0,0,0,0,0,0};
319 static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,49,56,55,41,0,0,0,0};
320 static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,11),40,103,52,51,52,50,32,116,97,103,41,0,0,0,0,0};
321 static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,17),40,108,112,50,32,116,114,97,110,115,32,115,116,97,99,107,41,0,0,0,0,0,0,0};
322 static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,29),40,108,112,32,115,116,97,99,107,32,112,114,105,111,114,105,116,105,101,115,32,99,108,111,115,117,114,101,41,0,0,0};
323 static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,17),40,97,50,51,48,52,51,32,115,116,32,109,32,114,101,115,41,0,0,0,0,0,0,0};
324 static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,101,112,115,105,108,111,110,45,99,108,111,115,117,114,101,32,110,102,97,32,115,116,97,116,101,115,41};
325 static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,10),40,97,50,51,49,54,55,32,99,41,0,0,0,0,0,0};
326 static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,10),40,97,50,51,49,57,49,32,99,41,0,0,0,0,0,0};
327 static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,16),40,108,112,50,32,115,49,32,115,50,32,99,109,100,115,41};
328 static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,11),40,108,112,32,116,32,99,109,100,115,41,0,0,0,0,0};
329 static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,79),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,116,97,103,45,115,101,116,45,99,111,109,109,97,110,100,115,45,102,111,114,45,99,108,111,115,117,114,101,32,110,102,97,32,111,114,105,103,45,115,116,97,116,101,32,99,108,111,115,117,114,101,32,99,111,112,121,45,99,109,100,115,41,0};
330 static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,45),40,102,95,50,54,49,55,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0};
331 static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,115,101,116,45,62,112,114,111,99,101,100,117,114,101,32,99,115,101,116,32,110,101,120,116,41,0};
332 static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,114,101,115,41,0,0,0,0,0,0};
333 static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,112,108,105,115,116,32,99,115,41};
334 static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,14),40,97,50,54,52,55,55,32,99,104,32,99,115,41,0,0};
335 static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,99,115,101,116,32,115,41};
336 static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0};
337 static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,53,48,32,103,53,50,54,50,41,0,0,0,0};
338 static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,55,54,32,103,53,50,56,56,41,0,0,0,0};
339 static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,14),40,97,50,54,54,56,49,32,120,32,114,101,115,41,0,0};
340 static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,51,48,52,32,103,53,51,49,54,41,0,0,0,0};
341 static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0};
342 static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0};
343 static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,51,51,49,32,103,53,51,52,51,41,0,0,0,0};
344 static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,12),40,108,112,32,115,114,101,32,99,105,63,41,0,0,0,0};
345 static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,99,115,101,116,32,115,114,101,32,111,41,0,0,0,0,0,0,0};
346 static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,111,119,101,114,32,117,112,112,101,114,41};
347 static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,111,110,116,97,105,110,115,63,32,99,115,101,116,32,99,104,41};
348 static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,97,114,45,114,97,110,103,101,115,45,117,110,105,111,110,32,98,41,0,0,0};
349 static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,21),40,117,110,105,111,110,45,114,97,110,103,101,32,97,32,98,32,114,101,115,41,0,0,0};
350 static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,117,110,105,111,110,32,97,32,98,41};
351 static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,14),40,100,105,102,102,32,97,32,98,32,114,101,115,41,0,0};
352 static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,100,105,102,102,101,114,101,110,99,101,32,97,32,98,41,0,0,0};
353 static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,19),40,105,110,116,101,114,115,101,99,116,32,97,32,98,32,114,101,115,41,0,0,0,0,0};
354 static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,32,97,32,98,41,0};
355 static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,111,109,112,108,101,109,101,110,116,32,97,41,0,0,0,0,0};
356 static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0};
357 static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,97,115,101,45,105,110,115,101,110,115,105,116,105,118,101,32,97,41,0,0,0,0,0,0,0};
358 static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,15),40,102,95,50,55,57,51,57,32,105,32,97,99,99,41,0};
359 static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,19),40,108,112,32,115,114,99,32,102,114,111,109,32,105,32,97,99,99,41,0,0,0,0,0};
360 static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,102,97,115,116,32,105,114,120,32,107,111,110,115,32,107,110,105,108,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0};
361 static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,15),40,107,111,110,115,50,32,105,32,109,32,97,99,99,41,0};
362 static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,32,105,114,120,32,107,111,110,115,32,46,32,97,114,103,115,41,0,0};
363 static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,19),40,102,95,50,56,49,53,57,32,115,114,99,32,105,32,97,99,99,41,0,0,0,0,0};
364 static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,116,97,114,116,32,105,32,97,99,99,41};
365 static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,71),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,47,102,97,115,116,32,105,114,120,32,107,111,110,115,32,107,110,105,108,32,99,110,107,32,115,116,97,114,116,32,46,32,111,41,0};
366 static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,17),40,107,111,110,115,50,32,115,32,105,32,109,32,97,99,99,41,0,0,0,0,0,0,0};
367 static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,32,105,114,120,32,107,111,110,115,32,46,32,97,114,103,115,41,0,0};
368 static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0};
369 static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,16),40,97,50,56,50,56,49,32,105,32,109,32,97,99,99,41};
370 static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,14),40,97,50,56,51,51,50,32,105,32,97,99,99,41,0,0};
371 static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,47,97,108,108,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0};
372 static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,9),40,103,53,54,53,56,32,120,41,0,0,0,0,0,0,0};
373 static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0};
374 static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,97,112,112,108,121,45,109,97,116,99,104,32,109,32,108,115,41,0,0,0,0,0,0};
375 static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,14),40,97,50,56,54,48,53,32,105,32,109,32,97,41,0,0};
376 static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,12),40,97,50,56,54,49,53,32,105,32,97,41,0,0,0,0};
377 static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,101,120,116,114,97,99,116,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0};
378 static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,14),40,97,50,56,54,52,54,32,105,32,109,32,97,41,0,0};
379 static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,21),40,108,112,32,108,115,32,114,101,115,32,119,97,115,45,99,104,97,114,63,41,0,0,0};
380 static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,12),40,97,50,56,55,48,52,32,105,32,97,41,0,0,0,0};
381 static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,112,108,105,116,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0};
382 static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41};
383 static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,32,99,32,46,32,111,41,0,0,0,0};
384 static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,32,114,101,115,41,0,0,0};
385 static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,113,117,111,116,101,32,115,116,114,41,0,0,0,0,0};
386 static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,57,53,55,32,103,53,57,54,57,41,0,0,0,0};
387 static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,10),40,97,50,57,48,51,54,32,120,41,0,0,0,0,0,0};
388 static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,105,32,114,101,115,41,0,0,0,0,0};
389 static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,15),40,108,112,49,32,108,115,32,101,109,112,116,121,63,41,0};
390 static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,111,112,116,32,108,115,41};
391 static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0};
392 static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,115,116,114,105,110,103,32,108,115,41,0,0,0,0,0,0,0};
393 static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,53,55,32,103,54,48,54,52,41,0,0,0,0,0,0,0};
394 static C_char C_TLS li375[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,55,54,32,103,54,48,56,51,41,0,0,0,0,0,0,0};
395 static C_char C_TLS li376[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,57,51,32,103,54,49,48,48,41,0,0,0,0,0,0,0};
396 static C_char C_TLS li377[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,49,50,32,103,54,49,49,57,41,0,0,0,0,0,0,0};
397 static C_char C_TLS li378[] C_aligned={C_lihdr(0,0,9),40,103,54,49,51,52,32,120,41,0,0,0,0,0,0,0};
398 static C_char C_TLS li379[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,51,51,32,103,54,49,52,48,41,0,0,0,0,0,0,0};
399 static C_char C_TLS li380[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,55,49,32,103,54,49,55,56,41,0,0,0,0,0,0,0};
400 static C_char C_TLS li381[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,50,50,54,32,103,54,50,51,51,41,0,0,0,0,0,0,0};
401 static C_char C_TLS li382[] C_aligned={C_lihdr(0,0,6),40,108,112,32,120,41,0,0};
402 static C_char C_TLS li383[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,115,116,114,105,110,103,32,111,98,106,41,0,0,0,0,0,0,0};
403 static C_char C_TLS li384[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,50,32,114,101,115,116,32,115,41,0,0};
404 static C_char C_TLS li385[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,115,32,100,105,114,41,0,0,0};
405 static C_char C_TLS li386[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,103,108,111,98,45,62,115,114,101,32,115,41,0,0,0};
406 static C_char C_TLS li387[] C_aligned={C_lihdr(0,0,10),40,97,51,48,57,51,53,32,120,41,0,0,0,0,0,0};
407 static C_char C_TLS li388[] C_aligned={C_lihdr(0,0,22),40,97,51,48,57,51,56,32,115,114,99,49,32,105,32,115,114,99,50,32,106,41,0,0};
408 static C_char C_TLS li389[] C_aligned={C_lihdr(0,0,14),40,97,51,48,57,55,50,32,109,32,111,117,116,41,0,0};
409 static C_char C_TLS li390[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
410 
411 
412 C_noret_decl(f33619)
413 static void C_ccall f33619(C_word c,C_word *av) C_noret;
414 C_noret_decl(f33623)
415 static void C_ccall f33623(C_word c,C_word *av) C_noret;
416 C_noret_decl(f_10021)
417 static void C_fcall f_10021(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
418 C_noret_decl(f_10024)
419 static void C_fcall f_10024(C_word t0,C_word t1) C_noret;
420 C_noret_decl(f_10038)
421 static void C_ccall f_10038(C_word c,C_word *av) C_noret;
422 C_noret_decl(f_10063)
423 static void C_ccall f_10063(C_word c,C_word *av) C_noret;
424 C_noret_decl(f_10070)
425 static void C_ccall f_10070(C_word c,C_word *av) C_noret;
426 C_noret_decl(f_10089)
427 static void C_ccall f_10089(C_word c,C_word *av) C_noret;
428 C_noret_decl(f_10122)
429 static void C_ccall f_10122(C_word c,C_word *av) C_noret;
430 C_noret_decl(f_10140)
431 static void C_ccall f_10140(C_word c,C_word *av) C_noret;
432 C_noret_decl(f_10160)
433 static void C_ccall f_10160(C_word c,C_word *av) C_noret;
434 C_noret_decl(f_10240)
435 static void C_fcall f_10240(C_word t0,C_word t1,C_word t2) C_noret;
436 C_noret_decl(f_10250)
437 static void C_fcall f_10250(C_word t0,C_word t1) C_noret;
438 C_noret_decl(f_10253)
439 static void C_ccall f_10253(C_word c,C_word *av) C_noret;
440 C_noret_decl(f_10260)
441 static void C_ccall f_10260(C_word c,C_word *av) C_noret;
442 C_noret_decl(f_10263)
443 static void C_ccall f_10263(C_word c,C_word *av) C_noret;
444 C_noret_decl(f_10311)
445 static void C_ccall f_10311(C_word c,C_word *av) C_noret;
446 C_noret_decl(f_10332)
447 static void C_fcall f_10332(C_word t0,C_word t1) C_noret;
448 C_noret_decl(f_10338)
449 static void C_fcall f_10338(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
450 C_noret_decl(f_10356)
451 static void C_fcall f_10356(C_word t0,C_word t1) C_noret;
452 C_noret_decl(f_10367)
453 static void C_fcall f_10367(C_word t0,C_word t1) C_noret;
454 C_noret_decl(f_10455)
455 static void C_ccall f_10455(C_word c,C_word *av) C_noret;
456 C_noret_decl(f_10467)
457 static void C_ccall f_10467(C_word c,C_word *av) C_noret;
458 C_noret_decl(f_10471)
459 static void C_ccall f_10471(C_word c,C_word *av) C_noret;
460 C_noret_decl(f_10477)
461 static void C_ccall f_10477(C_word c,C_word *av) C_noret;
462 C_noret_decl(f_10482)
463 static void C_fcall f_10482(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
464 C_noret_decl(f_10485)
465 static C_word C_fcall f_10485(C_word *a,C_word t0,C_word t1);
466 C_noret_decl(f_10507)
467 static void C_fcall f_10507(C_word t0,C_word t1,C_word t2) C_noret;
468 C_noret_decl(f_10524)
469 static void C_ccall f_10524(C_word c,C_word *av) C_noret;
470 C_noret_decl(f_10527)
471 static void C_ccall f_10527(C_word c,C_word *av) C_noret;
472 C_noret_decl(f_10529)
473 static void C_fcall f_10529(C_word t0,C_word t1,C_word t2) C_noret;
474 C_noret_decl(f_10563)
475 static void C_fcall f_10563(C_word t0,C_word t1) C_noret;
476 C_noret_decl(f_10577)
477 static void C_ccall f_10577(C_word c,C_word *av) C_noret;
478 C_noret_decl(f_10581)
479 static void C_ccall f_10581(C_word c,C_word *av) C_noret;
480 C_noret_decl(f_10583)
481 static void C_fcall f_10583(C_word t0,C_word t1) C_noret;
482 C_noret_decl(f_10590)
483 static void C_ccall f_10590(C_word c,C_word *av) C_noret;
484 C_noret_decl(f_10599)
485 static void C_fcall f_10599(C_word t0,C_word t1) C_noret;
486 C_noret_decl(f_10619)
487 static void C_ccall f_10619(C_word c,C_word *av) C_noret;
488 C_noret_decl(f_10623)
489 static void C_ccall f_10623(C_word c,C_word *av) C_noret;
490 C_noret_decl(f_10627)
491 static void C_ccall f_10627(C_word c,C_word *av) C_noret;
492 C_noret_decl(f_10655)
493 static void C_fcall f_10655(C_word t0,C_word t1) C_noret;
494 C_noret_decl(f_10659)
495 static void C_ccall f_10659(C_word c,C_word *av) C_noret;
496 C_noret_decl(f_10662)
497 static void C_fcall f_10662(C_word t0,C_word t1) C_noret;
498 C_noret_decl(f_10665)
499 static void C_fcall f_10665(C_word t0,C_word t1) C_noret;
500 C_noret_decl(f_10668)
501 static void C_ccall f_10668(C_word c,C_word *av) C_noret;
502 C_noret_decl(f_10673)
503 static void C_fcall f_10673(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
504 C_noret_decl(f_10676)
505 static C_word C_fcall f_10676(C_word *a,C_word t0);
506 C_noret_decl(f_10746)
507 static void C_ccall f_10746(C_word c,C_word *av) C_noret;
508 C_noret_decl(f_10762)
509 static void C_ccall f_10762(C_word c,C_word *av) C_noret;
510 C_noret_decl(f_10838)
511 static void C_ccall f_10838(C_word c,C_word *av) C_noret;
512 C_noret_decl(f_10849)
513 static void C_ccall f_10849(C_word c,C_word *av) C_noret;
514 C_noret_decl(f_10863)
515 static void C_ccall f_10863(C_word c,C_word *av) C_noret;
516 C_noret_decl(f_10885)
517 static void C_ccall f_10885(C_word c,C_word *av) C_noret;
518 C_noret_decl(f_10888)
519 static void C_fcall f_10888(C_word t0,C_word t1) C_noret;
520 C_noret_decl(f_10900)
521 static void C_ccall f_10900(C_word c,C_word *av) C_noret;
522 C_noret_decl(f_10960)
523 static void C_ccall f_10960(C_word c,C_word *av) C_noret;
524 C_noret_decl(f_10989)
525 static void C_fcall f_10989(C_word t0,C_word t1) C_noret;
526 C_noret_decl(f_11120)
527 static void C_ccall f_11120(C_word c,C_word *av) C_noret;
528 C_noret_decl(f_11126)
529 static void C_ccall f_11126(C_word c,C_word *av) C_noret;
530 C_noret_decl(f_11141)
531 static void C_ccall f_11141(C_word c,C_word *av) C_noret;
532 C_noret_decl(f_11212)
533 static void C_ccall f_11212(C_word c,C_word *av) C_noret;
534 C_noret_decl(f_11242)
535 static void C_ccall f_11242(C_word c,C_word *av) C_noret;
536 C_noret_decl(f_11252)
537 static void C_fcall f_11252(C_word t0,C_word t1) C_noret;
538 C_noret_decl(f_11274)
539 static void C_ccall f_11274(C_word c,C_word *av) C_noret;
540 C_noret_decl(f_11309)
541 static void C_ccall f_11309(C_word c,C_word *av) C_noret;
542 C_noret_decl(f_11324)
543 static void C_ccall f_11324(C_word c,C_word *av) C_noret;
544 C_noret_decl(f_11350)
545 static void C_ccall f_11350(C_word c,C_word *av) C_noret;
546 C_noret_decl(f_11373)
547 static void C_ccall f_11373(C_word c,C_word *av) C_noret;
548 C_noret_decl(f_11396)
549 static void C_ccall f_11396(C_word c,C_word *av) C_noret;
550 C_noret_decl(f_11438)
551 static void C_ccall f_11438(C_word c,C_word *av) C_noret;
552 C_noret_decl(f_11461)
553 static void C_ccall f_11461(C_word c,C_word *av) C_noret;
554 C_noret_decl(f_11464)
555 static void C_ccall f_11464(C_word c,C_word *av) C_noret;
556 C_noret_decl(f_11490)
557 static void C_ccall f_11490(C_word c,C_word *av) C_noret;
558 C_noret_decl(f_11494)
559 static void C_ccall f_11494(C_word c,C_word *av) C_noret;
560 C_noret_decl(f_11498)
561 static void C_ccall f_11498(C_word c,C_word *av) C_noret;
562 C_noret_decl(f_11550)
563 static void C_ccall f_11550(C_word c,C_word *av) C_noret;
564 C_noret_decl(f_11575)
565 static void C_ccall f_11575(C_word c,C_word *av) C_noret;
566 C_noret_decl(f_11578)
567 static void C_ccall f_11578(C_word c,C_word *av) C_noret;
568 C_noret_decl(f_11608)
569 static void C_ccall f_11608(C_word c,C_word *av) C_noret;
570 C_noret_decl(f_11612)
571 static void C_ccall f_11612(C_word c,C_word *av) C_noret;
572 C_noret_decl(f_11627)
573 static void C_ccall f_11627(C_word c,C_word *av) C_noret;
574 C_noret_decl(f_11630)
575 static void C_ccall f_11630(C_word c,C_word *av) C_noret;
576 C_noret_decl(f_11651)
577 static void C_ccall f_11651(C_word c,C_word *av) C_noret;
578 C_noret_decl(f_11655)
579 static void C_ccall f_11655(C_word c,C_word *av) C_noret;
580 C_noret_decl(f_11678)
581 static void C_ccall f_11678(C_word c,C_word *av) C_noret;
582 C_noret_decl(f_11709)
583 static void C_fcall f_11709(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
584 C_noret_decl(f_11712)
585 static C_word C_fcall f_11712(C_word t0,C_word t1);
586 C_noret_decl(f_11721)
587 static C_word C_fcall f_11721(C_word *a,C_word t0,C_word t1);
588 C_noret_decl(f_11865)
589 static void C_ccall f_11865(C_word c,C_word *av) C_noret;
590 C_noret_decl(f_11896)
591 static void C_ccall f_11896(C_word c,C_word *av) C_noret;
592 C_noret_decl(f_11987)
593 static void C_ccall f_11987(C_word c,C_word *av) C_noret;
594 C_noret_decl(f_12002)
595 static void C_ccall f_12002(C_word c,C_word *av) C_noret;
596 C_noret_decl(f_12022)
597 static void C_ccall f_12022(C_word c,C_word *av) C_noret;
598 C_noret_decl(f_12026)
599 static void C_ccall f_12026(C_word c,C_word *av) C_noret;
600 C_noret_decl(f_12045)
601 static void C_fcall f_12045(C_word t0,C_word t1) C_noret;
602 C_noret_decl(f_12054)
603 static void C_ccall f_12054(C_word c,C_word *av) C_noret;
604 C_noret_decl(f_12070)
605 static void C_ccall f_12070(C_word c,C_word *av) C_noret;
606 C_noret_decl(f_12073)
607 static void C_ccall f_12073(C_word c,C_word *av) C_noret;
608 C_noret_decl(f_12076)
609 static void C_ccall f_12076(C_word c,C_word *av) C_noret;
610 C_noret_decl(f_12079)
611 static void C_ccall f_12079(C_word c,C_word *av) C_noret;
612 C_noret_decl(f_12088)
613 static void C_fcall f_12088(C_word t0,C_word t1) C_noret;
614 C_noret_decl(f_12198)
615 static void C_ccall f_12198(C_word c,C_word *av) C_noret;
616 C_noret_decl(f_12274)
617 static void C_ccall f_12274(C_word c,C_word *av) C_noret;
618 C_noret_decl(f_12301)
619 static void C_ccall f_12301(C_word c,C_word *av) C_noret;
620 C_noret_decl(f_12324)
621 static void C_ccall f_12324(C_word c,C_word *av) C_noret;
622 C_noret_decl(f_12351)
623 static void C_ccall f_12351(C_word c,C_word *av) C_noret;
624 C_noret_decl(f_12378)
625 static void C_ccall f_12378(C_word c,C_word *av) C_noret;
626 C_noret_decl(f_12409)
627 static void C_ccall f_12409(C_word c,C_word *av) C_noret;
628 C_noret_decl(f_12444)
629 static void C_ccall f_12444(C_word c,C_word *av) C_noret;
630 C_noret_decl(f_12467)
631 static void C_ccall f_12467(C_word c,C_word *av) C_noret;
632 C_noret_decl(f_12490)
633 static void C_ccall f_12490(C_word c,C_word *av) C_noret;
634 C_noret_decl(f_12521)
635 static void C_ccall f_12521(C_word c,C_word *av) C_noret;
636 C_noret_decl(f_12544)
637 static void C_ccall f_12544(C_word c,C_word *av) C_noret;
638 C_noret_decl(f_12567)
639 static void C_ccall f_12567(C_word c,C_word *av) C_noret;
640 C_noret_decl(f_12590)
641 static void C_ccall f_12590(C_word c,C_word *av) C_noret;
642 C_noret_decl(f_12613)
643 static void C_ccall f_12613(C_word c,C_word *av) C_noret;
644 C_noret_decl(f_12636)
645 static void C_ccall f_12636(C_word c,C_word *av) C_noret;
646 C_noret_decl(f_12647)
647 static void C_ccall f_12647(C_word c,C_word *av) C_noret;
648 C_noret_decl(f_12667)
649 static void C_ccall f_12667(C_word c,C_word *av) C_noret;
650 C_noret_decl(f_12671)
651 static void C_ccall f_12671(C_word c,C_word *av) C_noret;
652 C_noret_decl(f_12695)
653 static void C_fcall f_12695(C_word t0,C_word t1) C_noret;
654 C_noret_decl(f_12698)
655 static void C_ccall f_12698(C_word c,C_word *av) C_noret;
656 C_noret_decl(f_12701)
657 static void C_ccall f_12701(C_word c,C_word *av) C_noret;
658 C_noret_decl(f_12736)
659 static void C_ccall f_12736(C_word c,C_word *av) C_noret;
660 C_noret_decl(f_12740)
661 static void C_ccall f_12740(C_word c,C_word *av) C_noret;
662 C_noret_decl(f_12767)
663 static void C_ccall f_12767(C_word c,C_word *av) C_noret;
664 C_noret_decl(f_12775)
665 static void C_fcall f_12775(C_word t0,C_word t1,C_word t2) C_noret;
666 C_noret_decl(f_12835)
667 static void C_ccall f_12835(C_word c,C_word *av) C_noret;
668 C_noret_decl(f_12878)
669 static void C_ccall f_12878(C_word c,C_word *av) C_noret;
670 C_noret_decl(f_12890)
671 static void C_ccall f_12890(C_word c,C_word *av) C_noret;
672 C_noret_decl(f_12899)
673 static void C_ccall f_12899(C_word c,C_word *av) C_noret;
674 C_noret_decl(f_12919)
675 static void C_ccall f_12919(C_word c,C_word *av) C_noret;
676 C_noret_decl(f_12923)
677 static void C_ccall f_12923(C_word c,C_word *av) C_noret;
678 C_noret_decl(f_12927)
679 static void C_ccall f_12927(C_word c,C_word *av) C_noret;
680 C_noret_decl(f_12979)
681 static void C_ccall f_12979(C_word c,C_word *av) C_noret;
682 C_noret_decl(f_12995)
683 static void C_ccall f_12995(C_word c,C_word *av) C_noret;
684 C_noret_decl(f_13059)
685 static void C_ccall f_13059(C_word c,C_word *av) C_noret;
686 C_noret_decl(f_13085)
687 static void C_ccall f_13085(C_word c,C_word *av) C_noret;
688 C_noret_decl(f_13114)
689 static void C_ccall f_13114(C_word c,C_word *av) C_noret;
690 C_noret_decl(f_13142)
691 static void C_ccall f_13142(C_word c,C_word *av) C_noret;
692 C_noret_decl(f_13163)
693 static void C_ccall f_13163(C_word c,C_word *av) C_noret;
694 C_noret_decl(f_13181)
695 static void C_ccall f_13181(C_word c,C_word *av) C_noret;
696 C_noret_decl(f_13295)
697 static void C_fcall f_13295(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
698 C_noret_decl(f_13314)
699 static void C_ccall f_13314(C_word c,C_word *av) C_noret;
700 C_noret_decl(f_13326)
701 static void C_ccall f_13326(C_word c,C_word *av) C_noret;
702 C_noret_decl(f_13329)
703 static void C_ccall f_13329(C_word c,C_word *av) C_noret;
704 C_noret_decl(f_13360)
705 static void C_ccall f_13360(C_word c,C_word *av) C_noret;
706 C_noret_decl(f_13363)
707 static void C_ccall f_13363(C_word c,C_word *av) C_noret;
708 C_noret_decl(f_13404)
709 static void C_fcall f_13404(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
710 C_noret_decl(f_13439)
711 static void C_ccall f_13439(C_word c,C_word *av) C_noret;
712 C_noret_decl(f_13449)
713 static void C_ccall f_13449(C_word c,C_word *av) C_noret;
714 C_noret_decl(f_13456)
715 static void C_ccall f_13456(C_word c,C_word *av) C_noret;
716 C_noret_decl(f_13477)
717 static void C_fcall f_13477(C_word t0,C_word t1) C_noret;
718 C_noret_decl(f_13487)
719 static void C_ccall f_13487(C_word c,C_word *av) C_noret;
720 C_noret_decl(f_13504)
721 static void C_ccall f_13504(C_word c,C_word *av) C_noret;
722 C_noret_decl(f_13521)
723 static void C_ccall f_13521(C_word c,C_word *av) C_noret;
724 C_noret_decl(f_13532)
725 static void C_ccall f_13532(C_word c,C_word *av) C_noret;
726 C_noret_decl(f_13533)
727 static C_word C_fcall f_13533(C_word *a,C_word t0,C_word t1);
728 C_noret_decl(f_13554)
729 static void C_fcall f_13554(C_word t0,C_word t1) C_noret;
730 C_noret_decl(f_13566)
731 static void C_fcall f_13566(C_word t0,C_word t1) C_noret;
732 C_noret_decl(f_13576)
733 static void C_ccall f_13576(C_word c,C_word *av) C_noret;
734 C_noret_decl(f_13679)
735 static void C_ccall f_13679(C_word c,C_word *av) C_noret;
736 C_noret_decl(f_13688)
737 static void C_fcall f_13688(C_word t0,C_word t1) C_noret;
738 C_noret_decl(f_13694)
739 static void C_ccall f_13694(C_word c,C_word *av) C_noret;
740 C_noret_decl(f_13697)
741 static void C_ccall f_13697(C_word c,C_word *av) C_noret;
742 C_noret_decl(f_13707)
743 static void C_ccall f_13707(C_word c,C_word *av) C_noret;
744 C_noret_decl(f_13714)
745 static void C_ccall f_13714(C_word c,C_word *av) C_noret;
746 C_noret_decl(f_13718)
747 static void C_ccall f_13718(C_word c,C_word *av) C_noret;
748 C_noret_decl(f_13762)
749 static void C_ccall f_13762(C_word c,C_word *av) C_noret;
750 C_noret_decl(f_13801)
751 static void C_fcall f_13801(C_word t0,C_word t1) C_noret;
752 C_noret_decl(f_13811)
753 static void C_ccall f_13811(C_word c,C_word *av) C_noret;
754 C_noret_decl(f_13815)
755 static void C_ccall f_13815(C_word c,C_word *av) C_noret;
756 C_noret_decl(f_13819)
757 static void C_ccall f_13819(C_word c,C_word *av) C_noret;
758 C_noret_decl(f_13834)
759 static void C_ccall f_13834(C_word c,C_word *av) C_noret;
760 C_noret_decl(f_13842)
761 static void C_ccall f_13842(C_word c,C_word *av) C_noret;
762 C_noret_decl(f_13846)
763 static void C_ccall f_13846(C_word c,C_word *av) C_noret;
764 C_noret_decl(f_13865)
765 static void C_ccall f_13865(C_word c,C_word *av) C_noret;
766 C_noret_decl(f_13918)
767 static void C_fcall f_13918(C_word t0,C_word t1) C_noret;
768 C_noret_decl(f_13932)
769 static void C_ccall f_13932(C_word c,C_word *av) C_noret;
770 C_noret_decl(f_13936)
771 static void C_ccall f_13936(C_word c,C_word *av) C_noret;
772 C_noret_decl(f_13940)
773 static void C_ccall f_13940(C_word c,C_word *av) C_noret;
774 C_noret_decl(f_13950)
775 static void C_ccall f_13950(C_word c,C_word *av) C_noret;
776 C_noret_decl(f_14008)
777 static void C_ccall f_14008(C_word c,C_word *av) C_noret;
778 C_noret_decl(f_14029)
779 static void C_fcall f_14029(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
780 C_noret_decl(f_14032)
781 static C_word C_fcall f_14032(C_word t0,C_word t1);
782 C_noret_decl(f_14224)
783 static void C_fcall f_14224(C_word t0,C_word t1,C_word t2) C_noret;
784 C_noret_decl(f_14262)
785 static void C_fcall f_14262(C_word t0,C_word t1) C_noret;
786 C_noret_decl(f_14338)
787 static void C_fcall f_14338(C_word t0,C_word t1) C_noret;
788 C_noret_decl(f_14479)
789 static void C_ccall f_14479(C_word c,C_word *av) C_noret;
790 C_noret_decl(f_14482)
791 static void C_ccall f_14482(C_word c,C_word *av) C_noret;
792 C_noret_decl(f_14503)
793 static void C_ccall f_14503(C_word c,C_word *av) C_noret;
794 C_noret_decl(f_14508)
795 static void C_fcall f_14508(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
796 C_noret_decl(f_14540)
797 static void C_ccall f_14540(C_word c,C_word *av) C_noret;
798 C_noret_decl(f_14565)
799 static void C_ccall f_14565(C_word c,C_word *av) C_noret;
800 C_noret_decl(f_14569)
801 static void C_ccall f_14569(C_word c,C_word *av) C_noret;
802 C_noret_decl(f_14580)
803 static void C_ccall f_14580(C_word c,C_word *av) C_noret;
804 C_noret_decl(f_14588)
805 static void C_ccall f_14588(C_word c,C_word *av) C_noret;
806 C_noret_decl(f_14614)
807 static void C_fcall f_14614(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
808 C_noret_decl(f_14644)
809 static void C_ccall f_14644(C_word c,C_word *av) C_noret;
810 C_noret_decl(f_14654)
811 static void C_ccall f_14654(C_word c,C_word *av) C_noret;
812 C_noret_decl(f_14662)
813 static void C_ccall f_14662(C_word c,C_word *av) C_noret;
814 C_noret_decl(f_14678)
815 static void C_ccall f_14678(C_word c,C_word *av) C_noret;
816 C_noret_decl(f_14680)
817 static void C_fcall f_14680(C_word t0,C_word t1,C_word t2) C_noret;
818 C_noret_decl(f_14716)
819 static void C_fcall f_14716(C_word t0,C_word t1,C_word t2) C_noret;
820 C_noret_decl(f_14752)
821 static void C_fcall f_14752(C_word t0,C_word t1) C_noret;
822 C_noret_decl(f_14772)
823 static void C_ccall f_14772(C_word c,C_word *av) C_noret;
824 C_noret_decl(f_14774)
825 static void C_ccall f_14774(C_word c,C_word *av) C_noret;
826 C_noret_decl(f_14806)
827 static void C_ccall f_14806(C_word c,C_word *av) C_noret;
828 C_noret_decl(f_14813)
829 static void C_ccall f_14813(C_word c,C_word *av) C_noret;
830 C_noret_decl(f_14819)
831 static void C_ccall f_14819(C_word c,C_word *av) C_noret;
832 C_noret_decl(f_14835)
833 static void C_ccall f_14835(C_word c,C_word *av) C_noret;
834 C_noret_decl(f_14837)
835 static void C_fcall f_14837(C_word t0,C_word t1,C_word t2) C_noret;
836 C_noret_decl(f_14877)
837 static void C_ccall f_14877(C_word c,C_word *av) C_noret;
838 C_noret_decl(f_14883)
839 static void C_ccall f_14883(C_word c,C_word *av) C_noret;
840 C_noret_decl(f_14891)
841 static void C_fcall f_14891(C_word t0,C_word t1) C_noret;
842 C_noret_decl(f_14911)
843 static void C_ccall f_14911(C_word c,C_word *av) C_noret;
844 C_noret_decl(f_14913)
845 static void C_ccall f_14913(C_word c,C_word *av) C_noret;
846 C_noret_decl(f_14945)
847 static void C_ccall f_14945(C_word c,C_word *av) C_noret;
848 C_noret_decl(f_14952)
849 static void C_ccall f_14952(C_word c,C_word *av) C_noret;
850 C_noret_decl(f_14958)
851 static void C_ccall f_14958(C_word c,C_word *av) C_noret;
852 C_noret_decl(f_14974)
853 static void C_ccall f_14974(C_word c,C_word *av) C_noret;
854 C_noret_decl(f_14976)
855 static void C_fcall f_14976(C_word t0,C_word t1,C_word t2) C_noret;
856 C_noret_decl(f_15016)
857 static void C_ccall f_15016(C_word c,C_word *av) C_noret;
858 C_noret_decl(f_15022)
859 static void C_ccall f_15022(C_word c,C_word *av) C_noret;
860 C_noret_decl(f_15041)
861 static void C_ccall f_15041(C_word c,C_word *av) C_noret;
862 C_noret_decl(f_15050)
863 static void C_fcall f_15050(C_word t0,C_word t1,C_word t2) C_noret;
864 C_noret_decl(f_15062)
865 static void C_fcall f_15062(C_word t0,C_word t1) C_noret;
866 C_noret_decl(f_15074)
867 static void C_ccall f_15074(C_word c,C_word *av) C_noret;
868 C_noret_decl(f_15080)
869 static void C_ccall f_15080(C_word c,C_word *av) C_noret;
870 C_noret_decl(f_15082)
871 static void C_fcall f_15082(C_word t0,C_word t1,C_word t2) C_noret;
872 C_noret_decl(f_15130)
873 static void C_ccall f_15130(C_word c,C_word *av) C_noret;
874 C_noret_decl(f_15138)
875 static void C_ccall f_15138(C_word c,C_word *av) C_noret;
876 C_noret_decl(f_15145)
877 static void C_ccall f_15145(C_word c,C_word *av) C_noret;
878 C_noret_decl(f_15151)
879 static void C_ccall f_15151(C_word c,C_word *av) C_noret;
880 C_noret_decl(f_15183)
881 static void C_ccall f_15183(C_word c,C_word *av) C_noret;
882 C_noret_decl(f_15185)
883 static void C_fcall f_15185(C_word t0,C_word t1,C_word t2) C_noret;
884 C_noret_decl(f_15235)
885 static void C_ccall f_15235(C_word c,C_word *av) C_noret;
886 C_noret_decl(f_15253)
887 static void C_fcall f_15253(C_word t0,C_word t1,C_word t2) C_noret;
888 C_noret_decl(f_15278)
889 static void C_ccall f_15278(C_word c,C_word *av) C_noret;
890 C_noret_decl(f_15321)
891 static void C_ccall f_15321(C_word c,C_word *av) C_noret;
892 C_noret_decl(f_15323)
893 static void C_fcall f_15323(C_word t0,C_word t1,C_word t2) C_noret;
894 C_noret_decl(f_15412)
895 static void C_ccall f_15412(C_word c,C_word *av) C_noret;
896 C_noret_decl(f_15414)
897 static void C_fcall f_15414(C_word t0,C_word t1,C_word t2) C_noret;
898 C_noret_decl(f_15469)
899 static void C_fcall f_15469(C_word t0,C_word t1) C_noret;
900 C_noret_decl(f_15477)
901 static void C_ccall f_15477(C_word c,C_word *av) C_noret;
902 C_noret_decl(f_15479)
903 static void C_fcall f_15479(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
904 C_noret_decl(f_15493)
905 static void C_ccall f_15493(C_word c,C_word *av) C_noret;
906 C_noret_decl(f_15497)
907 static void C_ccall f_15497(C_word c,C_word *av) C_noret;
908 C_noret_decl(f_15515)
909 static void C_ccall f_15515(C_word c,C_word *av) C_noret;
910 C_noret_decl(f_15524)
911 static void C_fcall f_15524(C_word t0,C_word t1) C_noret;
912 C_noret_decl(f_15539)
913 static void C_ccall f_15539(C_word c,C_word *av) C_noret;
914 C_noret_decl(f_15591)
915 static void C_fcall f_15591(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
916 C_noret_decl(f_15594)
917 static void C_fcall f_15594(C_word t0,C_word t1,C_word t2) C_noret;
918 C_noret_decl(f_15651)
919 static void C_fcall f_15651(C_word t0,C_word t1,C_word t2) C_noret;
920 C_noret_decl(f_15662)
921 static void C_ccall f_15662(C_word c,C_word *av) C_noret;
922 C_noret_decl(f_15664)
923 static void C_fcall f_15664(C_word t0,C_word t1,C_word t2) C_noret;
924 C_noret_decl(f_15689)
925 static void C_ccall f_15689(C_word c,C_word *av) C_noret;
926 C_noret_decl(f_15712)
927 static void C_fcall f_15712(C_word t0,C_word t1,C_word t2) C_noret;
928 C_noret_decl(f_15723)
929 static void C_ccall f_15723(C_word c,C_word *av) C_noret;
930 C_noret_decl(f_15725)
931 static void C_fcall f_15725(C_word t0,C_word t1,C_word t2) C_noret;
932 C_noret_decl(f_15750)
933 static void C_ccall f_15750(C_word c,C_word *av) C_noret;
934 C_noret_decl(f_15766)
935 static void C_fcall f_15766(C_word t0,C_word t1) C_noret;
936 C_noret_decl(f_15775)
937 static void C_ccall f_15775(C_word c,C_word *av) C_noret;
938 C_noret_decl(f_15781)
939 static void C_ccall f_15781(C_word c,C_word *av) C_noret;
940 C_noret_decl(f_15791)
941 static void C_ccall f_15791(C_word c,C_word *av) C_noret;
942 C_noret_decl(f_15798)
943 static void C_ccall f_15798(C_word c,C_word *av) C_noret;
944 C_noret_decl(f_15833)
945 static void C_ccall f_15833(C_word c,C_word *av) C_noret;
946 C_noret_decl(f_15835)
947 static void C_fcall f_15835(C_word t0,C_word t1,C_word t2) C_noret;
948 C_noret_decl(f_15860)
949 static void C_ccall f_15860(C_word c,C_word *av) C_noret;
950 C_noret_decl(f_15889)
951 static void C_ccall f_15889(C_word c,C_word *av) C_noret;
952 C_noret_decl(f_15891)
953 static void C_fcall f_15891(C_word t0,C_word t1,C_word t2) C_noret;
954 C_noret_decl(f_15916)
955 static void C_ccall f_15916(C_word c,C_word *av) C_noret;
956 C_noret_decl(f_15974)
957 static void C_fcall f_15974(C_word t0,C_word t1) C_noret;
958 C_noret_decl(f_15984)
959 static void C_ccall f_15984(C_word c,C_word *av) C_noret;
960 C_noret_decl(f_15987)
961 static void C_ccall f_15987(C_word c,C_word *av) C_noret;
962 C_noret_decl(f_15989)
963 static void C_fcall f_15989(C_word t0,C_word t1,C_word t2) C_noret;
964 C_noret_decl(f_16036)
965 static void C_ccall f_16036(C_word c,C_word *av) C_noret;
966 C_noret_decl(f_16043)
967 static void C_ccall f_16043(C_word c,C_word *av) C_noret;
968 C_noret_decl(f_16097)
969 static void C_ccall f_16097(C_word c,C_word *av) C_noret;
970 C_noret_decl(f_16164)
971 static void C_ccall f_16164(C_word c,C_word *av) C_noret;
972 C_noret_decl(f_16172)
973 static void C_ccall f_16172(C_word c,C_word *av) C_noret;
974 C_noret_decl(f_16174)
975 static void C_ccall f_16174(C_word c,C_word *av) C_noret;
976 C_noret_decl(f_16178)
977 static void C_ccall f_16178(C_word c,C_word *av) C_noret;
978 C_noret_decl(f_16181)
979 static void C_ccall f_16181(C_word c,C_word *av) C_noret;
980 C_noret_decl(f_16184)
981 static void C_ccall f_16184(C_word c,C_word *av) C_noret;
982 C_noret_decl(f_16187)
983 static void C_ccall f_16187(C_word c,C_word *av) C_noret;
984 C_noret_decl(f_16193)
985 static void C_ccall f_16193(C_word c,C_word *av) C_noret;
986 C_noret_decl(f_16196)
987 static void C_ccall f_16196(C_word c,C_word *av) C_noret;
988 C_noret_decl(f_16199)
989 static void C_ccall f_16199(C_word c,C_word *av) C_noret;
990 C_noret_decl(f_16202)
991 static void C_ccall f_16202(C_word c,C_word *av) C_noret;
992 C_noret_decl(f_16205)
993 static void C_ccall f_16205(C_word c,C_word *av) C_noret;
994 C_noret_decl(f_16220)
995 static void C_ccall f_16220(C_word c,C_word *av) C_noret;
996 C_noret_decl(f_16234)
997 static void C_ccall f_16234(C_word c,C_word *av) C_noret;
998 C_noret_decl(f_16239)
999 static void C_fcall f_16239(C_word t0,C_word t1,C_word t2) C_noret;
1000 C_noret_decl(f_16265)
1001 static void C_ccall f_16265(C_word c,C_word *av) C_noret;
1002 C_noret_decl(f_16269)
1003 static void C_fcall f_16269(C_word t0,C_word t1,C_word t2) C_noret;
1004 C_noret_decl(f_16307)
1005 static void C_ccall f_16307(C_word c,C_word *av) C_noret;
1006 C_noret_decl(f_16324)
1007 static void C_fcall f_16324(C_word t0,C_word t1) C_noret;
1008 C_noret_decl(f_16367)
1009 static void C_fcall f_16367(C_word t0,C_word t1) C_noret;
1010 C_noret_decl(f_16474)
1011 static void C_ccall f_16474(C_word c,C_word *av) C_noret;
1012 C_noret_decl(f_16497)
1013 static void C_fcall f_16497(C_word t0,C_word t1) C_noret;
1014 C_noret_decl(f_16575)
1015 static C_word C_fcall f_16575(C_word t0);
1016 C_noret_decl(f_16620)
1017 static void C_ccall f_16620(C_word c,C_word *av) C_noret;
1018 C_noret_decl(f_16637)
1019 static void C_fcall f_16637(C_word t0,C_word t1) C_noret;
1020 C_noret_decl(f_16709)
1021 static void C_ccall f_16709(C_word c,C_word *av) C_noret;
1022 C_noret_decl(f_16713)
1023 static void C_ccall f_16713(C_word c,C_word *av) C_noret;
1024 C_noret_decl(f_16750)
1025 static void C_fcall f_16750(C_word t0,C_word t1) C_noret;
1026 C_noret_decl(f_16826)
1027 static void C_ccall f_16826(C_word c,C_word *av) C_noret;
1028 C_noret_decl(f_16830)
1029 static void C_ccall f_16830(C_word c,C_word *av) C_noret;
1030 C_noret_decl(f_16867)
1031 static void C_fcall f_16867(C_word t0,C_word t1) C_noret;
1032 C_noret_decl(f_16880)
1033 static void C_ccall f_16880(C_word c,C_word *av) C_noret;
1034 C_noret_decl(f_16943)
1035 static void C_ccall f_16943(C_word c,C_word *av) C_noret;
1036 C_noret_decl(f_16969)
1037 static void C_ccall f_16969(C_word c,C_word *av) C_noret;
1038 C_noret_decl(f_16982)
1039 static void C_fcall f_16982(C_word t0,C_word t1) C_noret;
1040 C_noret_decl(f_16988)
1041 static void C_ccall f_16988(C_word c,C_word *av) C_noret;
1042 C_noret_decl(f_17009)
1043 static void C_ccall f_17009(C_word c,C_word *av) C_noret;
1044 C_noret_decl(f_17015)
1045 static void C_fcall f_17015(C_word t0,C_word t1) C_noret;
1046 C_noret_decl(f_17045)
1047 static void C_ccall f_17045(C_word c,C_word *av) C_noret;
1048 C_noret_decl(f_17082)
1049 static void C_ccall f_17082(C_word c,C_word *av) C_noret;
1050 C_noret_decl(f_17085)
1051 static void C_ccall f_17085(C_word c,C_word *av) C_noret;
1052 C_noret_decl(f_17092)
1053 static void C_ccall f_17092(C_word c,C_word *av) C_noret;
1054 C_noret_decl(f_17094)
1055 static void C_fcall f_17094(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
1056 C_noret_decl(f_17097)
1057 static void C_fcall f_17097(C_word t0,C_word t1,C_word t2) C_noret;
1058 C_noret_decl(f_17137)
1059 static void C_fcall f_17137(C_word t0,C_word t1) C_noret;
1060 C_noret_decl(f_17153)
1061 static void C_ccall f_17153(C_word c,C_word *av) C_noret;
1062 C_noret_decl(f_17166)
1063 static void C_fcall f_17166(C_word t0,C_word t1) C_noret;
1064 C_noret_decl(f_17173)
1065 static void C_fcall f_17173(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1066 C_noret_decl(f_17206)
1067 static void C_ccall f_17206(C_word c,C_word *av) C_noret;
1068 C_noret_decl(f_17236)
1069 static void C_ccall f_17236(C_word c,C_word *av) C_noret;
1070 C_noret_decl(f_17251)
1071 static void C_fcall f_17251(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1072 C_noret_decl(f_17288)
1073 static void C_ccall f_17288(C_word c,C_word *av) C_noret;
1074 C_noret_decl(f_17304)
1075 static void C_ccall f_17304(C_word c,C_word *av) C_noret;
1076 C_noret_decl(f_17308)
1077 static void C_ccall f_17308(C_word c,C_word *av) C_noret;
1078 C_noret_decl(f_17321)
1079 static void C_ccall f_17321(C_word c,C_word *av) C_noret;
1080 C_noret_decl(f_17344)
1081 static void C_ccall f_17344(C_word c,C_word *av) C_noret;
1082 C_noret_decl(f_17347)
1083 static void C_ccall f_17347(C_word c,C_word *av) C_noret;
1084 C_noret_decl(f_17354)
1085 static void C_fcall f_17354(C_word t0,C_word t1) C_noret;
1086 C_noret_decl(f_17356)
1087 static void C_ccall f_17356(C_word c,C_word *av) C_noret;
1088 C_noret_decl(f_17370)
1089 static void C_ccall f_17370(C_word c,C_word *av) C_noret;
1090 C_noret_decl(f_17384)
1091 static void C_ccall f_17384(C_word c,C_word *av) C_noret;
1092 C_noret_decl(f_17409)
1093 static void C_ccall f_17409(C_word c,C_word *av) C_noret;
1094 C_noret_decl(f_17413)
1095 static void C_ccall f_17413(C_word c,C_word *av) C_noret;
1096 C_noret_decl(f_17490)
1097 static void C_fcall f_17490(C_word t0,C_word t1) C_noret;
1098 C_noret_decl(f_17503)
1099 static void C_ccall f_17503(C_word c,C_word *av) C_noret;
1100 C_noret_decl(f_17539)
1101 static void C_ccall f_17539(C_word c,C_word *av) C_noret;
1102 C_noret_decl(f_17548)
1103 static void C_fcall f_17548(C_word t0,C_word t1) C_noret;
1104 C_noret_decl(f_17648)
1105 static void C_ccall f_17648(C_word c,C_word *av) C_noret;
1106 C_noret_decl(f_17657)
1107 static void C_ccall f_17657(C_word c,C_word *av) C_noret;
1108 C_noret_decl(f_17675)
1109 static void C_fcall f_17675(C_word t0,C_word t1) C_noret;
1110 C_noret_decl(f_17678)
1111 static void C_fcall f_17678(C_word t0,C_word t1) C_noret;
1112 C_noret_decl(f_17696)
1113 static void C_ccall f_17696(C_word c,C_word *av) C_noret;
1114 C_noret_decl(f_17743)
1115 static void C_ccall f_17743(C_word c,C_word *av) C_noret;
1116 C_noret_decl(f_17817)
1117 static void C_ccall f_17817(C_word c,C_word *av) C_noret;
1118 C_noret_decl(f_17845)
1119 static void C_ccall f_17845(C_word c,C_word *av) C_noret;
1120 C_noret_decl(f_17870)
1121 static void C_fcall f_17870(C_word t0,C_word t1) C_noret;
1122 C_noret_decl(f_17889)
1123 static void C_fcall f_17889(C_word t0,C_word t1) C_noret;
1124 C_noret_decl(f_17910)
1125 static void C_fcall f_17910(C_word t0,C_word t1) C_noret;
1126 C_noret_decl(f_17920)
1127 static void C_fcall f_17920(C_word t0,C_word t1,C_word t2) C_noret;
1128 C_noret_decl(f_17928)
1129 static void C_ccall f_17928(C_word c,C_word *av) C_noret;
1130 C_noret_decl(f_18159)
1131 static void C_ccall f_18159(C_word c,C_word *av) C_noret;
1132 C_noret_decl(f_18182)
1133 static void C_ccall f_18182(C_word c,C_word *av) C_noret;
1134 C_noret_decl(f_18191)
1135 static C_word C_fcall f_18191(C_word *a,C_word t0);
1136 C_noret_decl(f_18214)
1137 static C_word C_fcall f_18214(C_word *a,C_word t0);
1138 C_noret_decl(f_18237)
1139 static void C_ccall f_18237(C_word c,C_word *av) C_noret;
1140 C_noret_decl(f_18310)
1141 static void C_fcall f_18310(C_word t0,C_word t1,C_word t2) C_noret;
1142 C_noret_decl(f_18335)
1143 static void C_ccall f_18335(C_word c,C_word *av) C_noret;
1144 C_noret_decl(f_18370)
1145 static void C_fcall f_18370(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1146 C_noret_decl(f_18393)
1147 static void C_ccall f_18393(C_word c,C_word *av) C_noret;
1148 C_noret_decl(f_18397)
1149 static void C_ccall f_18397(C_word c,C_word *av) C_noret;
1150 C_noret_decl(f_18418)
1151 static void C_fcall f_18418(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1152 C_noret_decl(f_18520)
1153 static void C_fcall f_18520(C_word t0,C_word t1) C_noret;
1154 C_noret_decl(f_18704)
1155 static void C_fcall f_18704(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1156 C_noret_decl(f_18726)
1157 static void C_ccall f_18726(C_word c,C_word *av) C_noret;
1158 C_noret_decl(f_18732)
1159 static void C_ccall f_18732(C_word c,C_word *av) C_noret;
1160 C_noret_decl(f_18736)
1161 static void C_ccall f_18736(C_word c,C_word *av) C_noret;
1162 C_noret_decl(f_18753)
1163 static void C_fcall f_18753(C_word t0,C_word t1) C_noret;
1164 C_noret_decl(f_18786)
1165 static void C_ccall f_18786(C_word c,C_word *av) C_noret;
1166 C_noret_decl(f_18823)
1167 static void C_ccall f_18823(C_word c,C_word *av) C_noret;
1168 C_noret_decl(f_18825)
1169 static void C_fcall f_18825(C_word t0,C_word t1,C_word t2) C_noret;
1170 C_noret_decl(f_18850)
1171 static void C_ccall f_18850(C_word c,C_word *av) C_noret;
1172 C_noret_decl(f_18918)
1173 static void C_ccall f_18918(C_word c,C_word *av) C_noret;
1174 C_noret_decl(f_18920)
1175 static void C_ccall f_18920(C_word c,C_word *av) C_noret;
1176 C_noret_decl(f_18924)
1177 static void C_ccall f_18924(C_word c,C_word *av) C_noret;
1178 C_noret_decl(f_18933)
1179 static void C_fcall f_18933(C_word t0,C_word t1) C_noret;
1180 C_noret_decl(f_18939)
1181 static void C_ccall f_18939(C_word c,C_word *av) C_noret;
1182 C_noret_decl(f_18942)
1183 static void C_ccall f_18942(C_word c,C_word *av) C_noret;
1184 C_noret_decl(f_19010)
1185 static void C_ccall f_19010(C_word c,C_word *av) C_noret;
1186 C_noret_decl(f_19014)
1187 static void C_ccall f_19014(C_word c,C_word *av) C_noret;
1188 C_noret_decl(f_19017)
1189 static void C_ccall f_19017(C_word c,C_word *av) C_noret;
1190 C_noret_decl(f_19020)
1191 static void C_ccall f_19020(C_word c,C_word *av) C_noret;
1192 C_noret_decl(f_19023)
1193 static void C_ccall f_19023(C_word c,C_word *av) C_noret;
1194 C_noret_decl(f_19053)
1195 static void C_fcall f_19053(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
1196 C_noret_decl(f_19072)
1197 static void C_ccall f_19072(C_word c,C_word *av) C_noret;
1198 C_noret_decl(f_19097)
1199 static void C_ccall f_19097(C_word c,C_word *av) C_noret;
1200 C_noret_decl(f_19114)
1201 static void C_fcall f_19114(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1202 C_noret_decl(f_19118)
1203 static void C_ccall f_19118(C_word c,C_word *av) C_noret;
1204 C_noret_decl(f_19123)
1205 static void C_fcall f_19123(C_word t0,C_word t1,C_word t2) C_noret;
1206 C_noret_decl(f_19130)
1207 static void C_ccall f_19130(C_word c,C_word *av) C_noret;
1208 C_noret_decl(f_19153)
1209 static void C_ccall f_19153(C_word c,C_word *av) C_noret;
1210 C_noret_decl(f_19163)
1211 static void C_ccall f_19163(C_word c,C_word *av) C_noret;
1212 C_noret_decl(f_19184)
1213 static void C_ccall f_19184(C_word c,C_word *av) C_noret;
1214 C_noret_decl(f_19202)
1215 static void C_ccall f_19202(C_word c,C_word *av) C_noret;
1216 C_noret_decl(f_19208)
1217 static void C_ccall f_19208(C_word c,C_word *av) C_noret;
1218 C_noret_decl(f_19222)
1219 static void C_ccall f_19222(C_word c,C_word *av) C_noret;
1220 C_noret_decl(f_19228)
1221 static void C_fcall f_19228(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1222 C_noret_decl(f_19235)
1223 static void C_ccall f_19235(C_word c,C_word *av) C_noret;
1224 C_noret_decl(f_19265)
1225 static void C_ccall f_19265(C_word c,C_word *av) C_noret;
1226 C_noret_decl(f_19278)
1227 static void C_ccall f_19278(C_word c,C_word *av) C_noret;
1228 C_noret_decl(f_19285)
1229 static void C_ccall f_19285(C_word c,C_word *av) C_noret;
1230 C_noret_decl(f_19292)
1231 static void C_ccall f_19292(C_word c,C_word *av) C_noret;
1232 C_noret_decl(f_19294)
1233 static void C_ccall f_19294(C_word c,C_word *av) C_noret;
1234 C_noret_decl(f_19302)
1235 static void C_ccall f_19302(C_word c,C_word *av) C_noret;
1236 C_noret_decl(f_19306)
1237 static void C_ccall f_19306(C_word c,C_word *av) C_noret;
1238 C_noret_decl(f_19315)
1239 static void C_fcall f_19315(C_word t0,C_word t1) C_noret;
1240 C_noret_decl(f_19321)
1241 static void C_ccall f_19321(C_word c,C_word *av) C_noret;
1242 C_noret_decl(f_19324)
1243 static void C_ccall f_19324(C_word c,C_word *av) C_noret;
1244 C_noret_decl(f_19392)
1245 static void C_ccall f_19392(C_word c,C_word *av) C_noret;
1246 C_noret_decl(f_19396)
1247 static void C_ccall f_19396(C_word c,C_word *av) C_noret;
1248 C_noret_decl(f_19399)
1249 static void C_ccall f_19399(C_word c,C_word *av) C_noret;
1250 C_noret_decl(f_19414)
1251 static void C_ccall f_19414(C_word c,C_word *av) C_noret;
1252 C_noret_decl(f_19437)
1253 static void C_ccall f_19437(C_word c,C_word *av) C_noret;
1254 C_noret_decl(f_19448)
1255 static void C_ccall f_19448(C_word c,C_word *av) C_noret;
1256 C_noret_decl(f_19484)
1257 static void C_ccall f_19484(C_word c,C_word *av) C_noret;
1258 C_noret_decl(f_19494)
1259 static void C_ccall f_19494(C_word c,C_word *av) C_noret;
1260 C_noret_decl(f_19500)
1261 static void C_ccall f_19500(C_word c,C_word *av) C_noret;
1262 C_noret_decl(f_19506)
1263 static void C_ccall f_19506(C_word c,C_word *av) C_noret;
1264 C_noret_decl(f_19516)
1265 static void C_ccall f_19516(C_word c,C_word *av) C_noret;
1266 C_noret_decl(f_19518)
1267 static void C_fcall f_19518(C_word t0,C_word t1,C_word t2) C_noret;
1268 C_noret_decl(f_19528)
1269 static void C_fcall f_19528(C_word t0,C_word t1) C_noret;
1270 C_noret_decl(f_19547)
1271 static void C_ccall f_19547(C_word c,C_word *av) C_noret;
1272 C_noret_decl(f_19560)
1273 static void C_ccall f_19560(C_word c,C_word *av) C_noret;
1274 C_noret_decl(f_19592)
1275 static void C_ccall f_19592(C_word c,C_word *av) C_noret;
1276 C_noret_decl(f_19615)
1277 static void C_ccall f_19615(C_word c,C_word *av) C_noret;
1278 C_noret_decl(f_19620)
1279 static void C_ccall f_19620(C_word c,C_word *av) C_noret;
1280 C_noret_decl(f_19627)
1281 static void C_ccall f_19627(C_word c,C_word *av) C_noret;
1282 C_noret_decl(f_19678)
1283 static void C_fcall f_19678(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1284 C_noret_decl(f_19685)
1285 static void C_ccall f_19685(C_word c,C_word *av) C_noret;
1286 C_noret_decl(f_19688)
1287 static void C_ccall f_19688(C_word c,C_word *av) C_noret;
1288 C_noret_decl(f_19693)
1289 static void C_fcall f_19693(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1290 C_noret_decl(f_19745)
1291 static void C_ccall f_19745(C_word c,C_word *av) C_noret;
1292 C_noret_decl(f_19760)
1293 static void C_ccall f_19760(C_word c,C_word *av) C_noret;
1294 C_noret_decl(f_19796)
1295 static void C_ccall f_19796(C_word c,C_word *av) C_noret;
1296 C_noret_decl(f_19806)
1297 static void C_ccall f_19806(C_word c,C_word *av) C_noret;
1298 C_noret_decl(f_19816)
1299 static void C_fcall f_19816(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1300 C_noret_decl(f_19818)
1301 static C_word C_fcall f_19818(C_word *a,C_word t0,C_word t1);
1302 C_noret_decl(f_19876)
1303 static void C_fcall f_19876(C_word t0,C_word t1,C_word t2) C_noret;
1304 C_noret_decl(f_19904)
1305 static void C_ccall f_19904(C_word c,C_word *av) C_noret;
1306 C_noret_decl(f_19908)
1307 static void C_ccall f_19908(C_word c,C_word *av) C_noret;
1308 C_noret_decl(f_19913)
1309 static void C_fcall f_19913(C_word t0,C_word t1,C_word t2) C_noret;
1310 C_noret_decl(f_19933)
1311 static void C_ccall f_19933(C_word c,C_word *av) C_noret;
1312 C_noret_decl(f_19935)
1313 static void C_fcall f_19935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret;
1314 C_noret_decl(f_19960)
1315 static void C_ccall f_19960(C_word c,C_word *av) C_noret;
1316 C_noret_decl(f_19972)
1317 static void C_fcall f_19972(C_word t0,C_word t1) C_noret;
1318 C_noret_decl(f_19975)
1319 static void C_ccall f_19975(C_word c,C_word *av) C_noret;
1320 C_noret_decl(f_19988)
1321 static void C_fcall f_19988(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret;
1322 C_noret_decl(f_19992)
1323 static void C_ccall f_19992(C_word c,C_word *av) C_noret;
1324 C_noret_decl(f_19995)
1325 static void C_ccall f_19995(C_word c,C_word *av) C_noret;
1326 C_noret_decl(f_20000)
1327 static void C_fcall f_20000(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
1328 C_noret_decl(f_20010)
1329 static void C_fcall f_20010(C_word t0,C_word t1) C_noret;
1330 C_noret_decl(f_20013)
1331 static void C_ccall f_20013(C_word c,C_word *av) C_noret;
1332 C_noret_decl(f_20023)
1333 static void C_ccall f_20023(C_word c,C_word *av) C_noret;
1334 C_noret_decl(f_20058)
1335 static void C_ccall f_20058(C_word c,C_word *av) C_noret;
1336 C_noret_decl(f_20110)
1337 static void C_ccall f_20110(C_word c,C_word *av) C_noret;
1338 C_noret_decl(f_20122)
1339 static void C_ccall f_20122(C_word c,C_word *av) C_noret;
1340 C_noret_decl(f_20146)
1341 static void C_ccall f_20146(C_word c,C_word *av) C_noret;
1342 C_noret_decl(f_20147)
1343 static C_word C_fcall f_20147(C_word *a,C_word t0,C_word t1);
1344 C_noret_decl(f_20176)
1345 static void C_ccall f_20176(C_word c,C_word *av) C_noret;
1346 C_noret_decl(f_20185)
1347 static void C_fcall f_20185(C_word t0,C_word t1,C_word t2) C_noret;
1348 C_noret_decl(f_20199)
1349 static void C_ccall f_20199(C_word c,C_word *av) C_noret;
1350 C_noret_decl(f_20218)
1351 static void C_ccall f_20218(C_word c,C_word *av) C_noret;
1352 C_noret_decl(f_20226)
1353 static void C_fcall f_20226(C_word t0,C_word t1,C_word t2) C_noret;
1354 C_noret_decl(f_20236)
1355 static void C_ccall f_20236(C_word c,C_word *av) C_noret;
1356 C_noret_decl(f_20249)
1357 static void C_fcall f_20249(C_word t0,C_word t1,C_word t2) C_noret;
1358 C_noret_decl(f_20274)
1359 static void C_ccall f_20274(C_word c,C_word *av) C_noret;
1360 C_noret_decl(f_20283)
1361 static void C_fcall f_20283(C_word t0,C_word t1,C_word t2) C_noret;
1362 C_noret_decl(f_20319)
1363 static void C_fcall f_20319(C_word t0,C_word t1) C_noret;
1364 C_noret_decl(f_20322)
1365 static void C_ccall f_20322(C_word c,C_word *av) C_noret;
1366 C_noret_decl(f_20361)
1367 static void C_fcall f_20361(C_word t0,C_word t1) C_noret;
1368 C_noret_decl(f_20364)
1369 static void C_ccall f_20364(C_word c,C_word *av) C_noret;
1370 C_noret_decl(f_20389)
1371 static void C_ccall f_20389(C_word c,C_word *av) C_noret;
1372 C_noret_decl(f_20429)
1373 static C_word C_fcall f_20429(C_word *a,C_word t0,C_word t1);
1374 C_noret_decl(f_20457)
1375 static void C_fcall f_20457(C_word t0,C_word t1,C_word t2) C_noret;
1376 C_noret_decl(f_20582)
1377 static C_word C_fcall f_20582(C_word t0,C_word t1);
1378 C_noret_decl(f_20616)
1379 static C_word C_fcall f_20616(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3);
1380 C_noret_decl(f_20757)
1381 static void C_fcall f_20757(C_word t0,C_word t1,C_word t2) C_noret;
1382 C_noret_decl(f_20761)
1383 static void C_ccall f_20761(C_word c,C_word *av) C_noret;
1384 C_noret_decl(f_20764)
1385 static void C_ccall f_20764(C_word c,C_word *av) C_noret;
1386 C_noret_decl(f_20766)
1387 static void C_fcall f_20766(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1388 C_noret_decl(f_20769)
1389 static void C_fcall f_20769(C_word t0,C_word t1,C_word t2) C_noret;
1390 C_noret_decl(f_20779)
1391 static void C_fcall f_20779(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1392 C_noret_decl(f_20783)
1393 static void C_fcall f_20783(C_word t0,C_word t1) C_noret;
1394 C_noret_decl(f_20792)
1395 static void C_ccall f_20792(C_word c,C_word *av) C_noret;
1396 C_noret_decl(f_20795)
1397 static void C_ccall f_20795(C_word c,C_word *av) C_noret;
1398 C_noret_decl(f_20804)
1399 static void C_fcall f_20804(C_word t0,C_word t1,C_word t2) C_noret;
1400 C_noret_decl(f_20840)
1401 static void C_fcall f_20840(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1402 C_noret_decl(f_20851)
1403 static void C_ccall f_20851(C_word c,C_word *av) C_noret;
1404 C_noret_decl(f_20857)
1405 static void C_fcall f_20857(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1406 C_noret_decl(f_20874)
1407 static void C_ccall f_20874(C_word c,C_word *av) C_noret;
1408 C_noret_decl(f_20907)
1409 static void C_ccall f_20907(C_word c,C_word *av) C_noret;
1410 C_noret_decl(f_20913)
1411 static void C_ccall f_20913(C_word c,C_word *av) C_noret;
1412 C_noret_decl(f_20920)
1413 static void C_ccall f_20920(C_word c,C_word *av) C_noret;
1414 C_noret_decl(f_20931)
1415 static void C_ccall f_20931(C_word c,C_word *av) C_noret;
1416 C_noret_decl(f_20945)
1417 static void C_fcall f_20945(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1418 C_noret_decl(f_20963)
1419 static void C_ccall f_20963(C_word c,C_word *av) C_noret;
1420 C_noret_decl(f_20988)
1421 static void C_ccall f_20988(C_word c,C_word *av) C_noret;
1422 C_noret_decl(f_21015)
1423 static void C_ccall f_21015(C_word c,C_word *av) C_noret;
1424 C_noret_decl(f_21046)
1425 static void C_ccall f_21046(C_word c,C_word *av) C_noret;
1426 C_noret_decl(f_21053)
1427 static void C_ccall f_21053(C_word c,C_word *av) C_noret;
1428 C_noret_decl(f_21065)
1429 static void C_ccall f_21065(C_word c,C_word *av) C_noret;
1430 C_noret_decl(f_21095)
1431 static void C_ccall f_21095(C_word c,C_word *av) C_noret;
1432 C_noret_decl(f_21109)
1433 static void C_fcall f_21109(C_word t0,C_word t1) C_noret;
1434 C_noret_decl(f_21112)
1435 static void C_ccall f_21112(C_word c,C_word *av) C_noret;
1436 C_noret_decl(f_21118)
1437 static void C_ccall f_21118(C_word c,C_word *av) C_noret;
1438 C_noret_decl(f_21132)
1439 static void C_ccall f_21132(C_word c,C_word *av) C_noret;
1440 C_noret_decl(f_21156)
1441 static void C_fcall f_21156(C_word t0,C_word t1) C_noret;
1442 C_noret_decl(f_21159)
1443 static void C_ccall f_21159(C_word c,C_word *av) C_noret;
1444 C_noret_decl(f_21166)
1445 static void C_ccall f_21166(C_word c,C_word *av) C_noret;
1446 C_noret_decl(f_21183)
1447 static void C_ccall f_21183(C_word c,C_word *av) C_noret;
1448 C_noret_decl(f_21199)
1449 static void C_ccall f_21199(C_word c,C_word *av) C_noret;
1450 C_noret_decl(f_21202)
1451 static void C_ccall f_21202(C_word c,C_word *av) C_noret;
1452 C_noret_decl(f_21205)
1453 static void C_ccall f_21205(C_word c,C_word *av) C_noret;
1454 C_noret_decl(f_21211)
1455 static void C_ccall f_21211(C_word c,C_word *av) C_noret;
1456 C_noret_decl(f_21221)
1457 static void C_ccall f_21221(C_word c,C_word *av) C_noret;
1458 C_noret_decl(f_21225)
1459 static void C_ccall f_21225(C_word c,C_word *av) C_noret;
1460 C_noret_decl(f_21236)
1461 static void C_ccall f_21236(C_word c,C_word *av) C_noret;
1462 C_noret_decl(f_21240)
1463 static void C_ccall f_21240(C_word c,C_word *av) C_noret;
1464 C_noret_decl(f_21244)
1465 static void C_ccall f_21244(C_word c,C_word *av) C_noret;
1466 C_noret_decl(f_21252)
1467 static void C_ccall f_21252(C_word c,C_word *av) C_noret;
1468 C_noret_decl(f_21260)
1469 static void C_ccall f_21260(C_word c,C_word *av) C_noret;
1470 C_noret_decl(f_21275)
1471 static void C_ccall f_21275(C_word c,C_word *av) C_noret;
1472 C_noret_decl(f_21281)
1473 static void C_ccall f_21281(C_word c,C_word *av) C_noret;
1474 C_noret_decl(f_21295)
1475 static void C_ccall f_21295(C_word c,C_word *av) C_noret;
1476 C_noret_decl(f_21309)
1477 static void C_ccall f_21309(C_word c,C_word *av) C_noret;
1478 C_noret_decl(f_21315)
1479 static void C_ccall f_21315(C_word c,C_word *av) C_noret;
1480 C_noret_decl(f_21318)
1481 static void C_ccall f_21318(C_word c,C_word *av) C_noret;
1482 C_noret_decl(f_21345)
1483 static void C_ccall f_21345(C_word c,C_word *av) C_noret;
1484 C_noret_decl(f_21349)
1485 static void C_ccall f_21349(C_word c,C_word *av) C_noret;
1486 C_noret_decl(f_21369)
1487 static void C_ccall f_21369(C_word c,C_word *av) C_noret;
1488 C_noret_decl(f_21375)
1489 static void C_ccall f_21375(C_word c,C_word *av) C_noret;
1490 C_noret_decl(f_21378)
1491 static void C_ccall f_21378(C_word c,C_word *av) C_noret;
1492 C_noret_decl(f_21381)
1493 static void C_ccall f_21381(C_word c,C_word *av) C_noret;
1494 C_noret_decl(f_21397)
1495 static void C_ccall f_21397(C_word c,C_word *av) C_noret;
1496 C_noret_decl(f_21405)
1497 static void C_ccall f_21405(C_word c,C_word *av) C_noret;
1498 C_noret_decl(f_21417)
1499 static void C_ccall f_21417(C_word c,C_word *av) C_noret;
1500 C_noret_decl(f_21447)
1501 static void C_ccall f_21447(C_word c,C_word *av) C_noret;
1502 C_noret_decl(f_21453)
1503 static void C_ccall f_21453(C_word c,C_word *av) C_noret;
1504 C_noret_decl(f_21456)
1505 static void C_ccall f_21456(C_word c,C_word *av) C_noret;
1506 C_noret_decl(f_21459)
1507 static void C_ccall f_21459(C_word c,C_word *av) C_noret;
1508 C_noret_decl(f_21475)
1509 static void C_ccall f_21475(C_word c,C_word *av) C_noret;
1510 C_noret_decl(f_21483)
1511 static void C_ccall f_21483(C_word c,C_word *av) C_noret;
1512 C_noret_decl(f_21491)
1513 static void C_ccall f_21491(C_word c,C_word *av) C_noret;
1514 C_noret_decl(f_21495)
1515 static void C_ccall f_21495(C_word c,C_word *av) C_noret;
1516 C_noret_decl(f_21514)
1517 static void C_fcall f_21514(C_word t0,C_word t1,C_word t2) C_noret;
1518 C_noret_decl(f_21532)
1519 static void C_ccall f_21532(C_word c,C_word *av) C_noret;
1520 C_noret_decl(f_21660)
1521 static void C_ccall f_21660(C_word c,C_word *av) C_noret;
1522 C_noret_decl(f_21666)
1523 static void C_ccall f_21666(C_word c,C_word *av) C_noret;
1524 C_noret_decl(f_21669)
1525 static void C_ccall f_21669(C_word c,C_word *av) C_noret;
1526 C_noret_decl(f_21677)
1527 static void C_fcall f_21677(C_word t0,C_word t1,C_word t2) C_noret;
1528 C_noret_decl(f_21716)
1529 static void C_fcall f_21716(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1530 C_noret_decl(f_21751)
1531 static void C_fcall f_21751(C_word t0,C_word t1) C_noret;
1532 C_noret_decl(f_21758)
1533 static void C_ccall f_21758(C_word c,C_word *av) C_noret;
1534 C_noret_decl(f_21784)
1535 static void C_ccall f_21784(C_word c,C_word *av) C_noret;
1536 C_noret_decl(f_21880)
1537 static void C_fcall f_21880(C_word t0,C_word t1) C_noret;
1538 C_noret_decl(f_21884)
1539 static void C_ccall f_21884(C_word c,C_word *av) C_noret;
1540 C_noret_decl(f_21897)
1541 static void C_ccall f_21897(C_word c,C_word *av) C_noret;
1542 C_noret_decl(f_21909)
1543 static void C_fcall f_21909(C_word t0,C_word t1) C_noret;
1544 C_noret_decl(f_21913)
1545 static void C_ccall f_21913(C_word c,C_word *av) C_noret;
1546 C_noret_decl(f_21920)
1547 static void C_ccall f_21920(C_word c,C_word *av) C_noret;
1548 C_noret_decl(f_21926)
1549 static void C_fcall f_21926(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1550 C_noret_decl(f_21930)
1551 static void C_ccall f_21930(C_word c,C_word *av) C_noret;
1552 C_noret_decl(f_21933)
1553 static void C_ccall f_21933(C_word c,C_word *av) C_noret;
1554 C_noret_decl(f_21935)
1555 static void C_fcall f_21935(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1556 C_noret_decl(f_21942)
1557 static void C_fcall f_21942(C_word t0,C_word t1) C_noret;
1558 C_noret_decl(f_21949)
1559 static C_word C_fcall f_21949(C_word *a,C_word t0,C_word t1);
1560 C_noret_decl(f_21984)
1561 static void C_ccall f_21984(C_word c,C_word *av) C_noret;
1562 C_noret_decl(f_21997)
1563 static void C_fcall f_21997(C_word t0,C_word t1,C_word t2) C_noret;
1564 C_noret_decl(f_22098)
1565 static void C_ccall f_22098(C_word c,C_word *av) C_noret;
1566 C_noret_decl(f_22104)
1567 static void C_fcall f_22104(C_word t0,C_word t1) C_noret;
1568 C_noret_decl(f_22110)
1569 static void C_fcall f_22110(C_word t0,C_word t1) C_noret;
1570 C_noret_decl(f_22163)
1571 static void C_fcall f_22163(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1572 C_noret_decl(f_22234)
1573 static void C_fcall f_22234(C_word t0,C_word t1,C_word t2) C_noret;
1574 C_noret_decl(f_22287)
1575 static void C_fcall f_22287(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1576 C_noret_decl(f_22296)
1577 static void C_fcall f_22296(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1578 C_noret_decl(f_22316)
1579 static void C_ccall f_22316(C_word c,C_word *av) C_noret;
1580 C_noret_decl(f_22345)
1581 static C_word C_fcall f_22345(C_word t0,C_word t1);
1582 C_noret_decl(f_22369)
1583 static void C_fcall f_22369(C_word t0,C_word t1,C_word t2) C_noret;
1584 C_noret_decl(f_22376)
1585 static void C_ccall f_22376(C_word c,C_word *av) C_noret;
1586 C_noret_decl(f_22379)
1587 static void C_ccall f_22379(C_word c,C_word *av) C_noret;
1588 C_noret_decl(f_22382)
1589 static void C_ccall f_22382(C_word c,C_word *av) C_noret;
1590 C_noret_decl(f_22385)
1591 static void C_ccall f_22385(C_word c,C_word *av) C_noret;
1592 C_noret_decl(f_22401)
1593 static void C_fcall f_22401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1594 C_noret_decl(f_22418)
1595 static void C_ccall f_22418(C_word c,C_word *av) C_noret;
1596 C_noret_decl(f_22453)
1597 static void C_ccall f_22453(C_word c,C_word *av) C_noret;
1598 C_noret_decl(f_22457)
1599 static void C_fcall f_22457(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1600 C_noret_decl(f_22485)
1601 static void C_ccall f_22485(C_word c,C_word *av) C_noret;
1602 C_noret_decl(f_22488)
1603 static void C_fcall f_22488(C_word t0,C_word t1) C_noret;
1604 C_noret_decl(f_22494)
1605 static void C_ccall f_22494(C_word c,C_word *av) C_noret;
1606 C_noret_decl(f_22580)
1607 static void C_ccall f_22580(C_word c,C_word *av) C_noret;
1608 C_noret_decl(f_22583)
1609 static void C_ccall f_22583(C_word c,C_word *av) C_noret;
1610 C_noret_decl(f_22588)
1611 static void C_fcall f_22588(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1612 C_noret_decl(f_22598)
1613 static void C_ccall f_22598(C_word c,C_word *av) C_noret;
1614 C_noret_decl(f_22601)
1615 static void C_ccall f_22601(C_word c,C_word *av) C_noret;
1616 C_noret_decl(f_22621)
1617 static void C_fcall f_22621(C_word t0,C_word t1,C_word t2) C_noret;
1618 C_noret_decl(f_22629)
1619 static void C_fcall f_22629(C_word t0,C_word t1) C_noret;
1620 C_noret_decl(f_22662)
1621 static void C_ccall f_22662(C_word c,C_word *av) C_noret;
1622 C_noret_decl(f_22664)
1623 static void C_fcall f_22664(C_word t0,C_word t1,C_word t2) C_noret;
1624 C_noret_decl(f_22689)
1625 static void C_ccall f_22689(C_word c,C_word *av) C_noret;
1626 C_noret_decl(f_22702)
1627 static void C_fcall f_22702(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1628 C_noret_decl(f_22741)
1629 static void C_ccall f_22741(C_word c,C_word *av) C_noret;
1630 C_noret_decl(f_22756)
1631 static void C_ccall f_22756(C_word c,C_word *av) C_noret;
1632 C_noret_decl(f_22777)
1633 static void C_fcall f_22777(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1634 C_noret_decl(f_22795)
1635 static void C_ccall f_22795(C_word c,C_word *av) C_noret;
1636 C_noret_decl(f_22804)
1637 static void C_ccall f_22804(C_word c,C_word *av) C_noret;
1638 C_noret_decl(f_22818)
1639 static void C_fcall f_22818(C_word t0,C_word t1,C_word t2) C_noret;
1640 C_noret_decl(f_22822)
1641 static void C_ccall f_22822(C_word c,C_word *av) C_noret;
1642 C_noret_decl(f_22825)
1643 static void C_ccall f_22825(C_word c,C_word *av) C_noret;
1644 C_noret_decl(f_22831)
1645 static void C_ccall f_22831(C_word c,C_word *av) C_noret;
1646 C_noret_decl(f_22834)
1647 static void C_fcall f_22834(C_word t0,C_word t1) C_noret;
1648 C_noret_decl(f_22837)
1649 static void C_ccall f_22837(C_word c,C_word *av) C_noret;
1650 C_noret_decl(f_22854)
1651 static void C_ccall f_22854(C_word c,C_word *av) C_noret;
1652 C_noret_decl(f_22926)
1653 static void C_ccall f_22926(C_word c,C_word *av) C_noret;
1654 C_noret_decl(f_22930)
1655 static void C_ccall f_22930(C_word c,C_word *av) C_noret;
1656 C_noret_decl(f_22934)
1657 static void C_ccall f_22934(C_word c,C_word *av) C_noret;
1658 C_noret_decl(f_22936)
1659 static void C_fcall f_22936(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1660 C_noret_decl(f_22959)
1661 static void C_fcall f_22959(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1662 C_noret_decl(f_22988)
1663 static void C_fcall f_22988(C_word t0,C_word t1,C_word t2) C_noret;
1664 C_noret_decl(f_22992)
1665 static void C_fcall f_22992(C_word t0,C_word t1) C_noret;
1666 C_noret_decl(f_23016)
1667 static void C_fcall f_23016(C_word t0,C_word t1) C_noret;
1668 C_noret_decl(f_23044)
1669 static void C_ccall f_23044(C_word c,C_word *av) C_noret;
1670 C_noret_decl(f_23054)
1671 static void C_fcall f_23054(C_word t0,C_word t1,C_word t2) C_noret;
1672 C_noret_decl(f_23064)
1673 static void C_ccall f_23064(C_word c,C_word *av) C_noret;
1674 C_noret_decl(f_23069)
1675 static void C_fcall f_23069(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1676 C_noret_decl(f_23084)
1677 static void C_fcall f_23084(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
1678 C_noret_decl(f_23104)
1679 static void C_fcall f_23104(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1680 C_noret_decl(f_23127)
1681 static void C_fcall f_23127(C_word t0,C_word t1) C_noret;
1682 C_noret_decl(f_23159)
1683 static void C_ccall f_23159(C_word c,C_word *av) C_noret;
1684 C_noret_decl(f_23166)
1685 static void C_ccall f_23166(C_word c,C_word *av) C_noret;
1686 C_noret_decl(f_23168)
1687 static void C_ccall f_23168(C_word c,C_word *av) C_noret;
1688 C_noret_decl(f_23192)
1689 static void C_ccall f_23192(C_word c,C_word *av) C_noret;
1690 C_noret_decl(f_23236)
1691 static void C_fcall f_23236(C_word t0,C_word t1,C_word t2) C_noret;
1692 C_noret_decl(f_23249)
1693 static void C_fcall f_23249(C_word t0,C_word t1) C_noret;
1694 C_noret_decl(f_23263)
1695 static void C_fcall f_23263(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1696 C_noret_decl(f_23290)
1697 static void C_fcall f_23290(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
1698 C_noret_decl(f_23371)
1699 static void C_ccall f_23371(C_word c,C_word *av) C_noret;
1700 C_noret_decl(f_23387)
1701 static void C_ccall f_23387(C_word c,C_word *av) C_noret;
1702 C_noret_decl(f_23397)
1703 static void C_ccall f_23397(C_word c,C_word *av) C_noret;
1704 C_noret_decl(f_23406)
1705 static void C_ccall f_23406(C_word c,C_word *av) C_noret;
1706 C_noret_decl(f_23446)
1707 static void C_fcall f_23446(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
1708 C_noret_decl(f_23449)
1709 static void C_fcall f_23449(C_word t0,C_word t1,C_word t2) C_noret;
1710 C_noret_decl(f_23472)
1711 static void C_ccall f_23472(C_word c,C_word *av) C_noret;
1712 C_noret_decl(f_23488)
1713 static void C_fcall f_23488(C_word t0,C_word t1) C_noret;
1714 C_noret_decl(f_23495)
1715 static void C_ccall f_23495(C_word c,C_word *av) C_noret;
1716 C_noret_decl(f_23515)
1717 static void C_ccall f_23515(C_word c,C_word *av) C_noret;
1718 C_noret_decl(f_23535)
1719 static void C_ccall f_23535(C_word c,C_word *av) C_noret;
1720 C_noret_decl(f_23538)
1721 static void C_ccall f_23538(C_word c,C_word *av) C_noret;
1722 C_noret_decl(f_23539)
1723 static void C_ccall f_23539(C_word c,C_word *av) C_noret;
1724 C_noret_decl(f_23545)
1725 static void C_ccall f_23545(C_word c,C_word *av) C_noret;
1726 C_noret_decl(f_23561)
1727 static void C_ccall f_23561(C_word c,C_word *av) C_noret;
1728 C_noret_decl(f_23689)
1729 static void C_ccall f_23689(C_word c,C_word *av) C_noret;
1730 C_noret_decl(f_23708)
1731 static void C_ccall f_23708(C_word c,C_word *av) C_noret;
1732 C_noret_decl(f_23731)
1733 static void C_ccall f_23731(C_word c,C_word *av) C_noret;
1734 C_noret_decl(f_23732)
1735 static void C_ccall f_23732(C_word c,C_word *av) C_noret;
1736 C_noret_decl(f_23738)
1737 static void C_ccall f_23738(C_word c,C_word *av) C_noret;
1738 C_noret_decl(f_23757)
1739 static void C_ccall f_23757(C_word c,C_word *av) C_noret;
1740 C_noret_decl(f_23758)
1741 static void C_ccall f_23758(C_word c,C_word *av) C_noret;
1742 C_noret_decl(f_23764)
1743 static void C_ccall f_23764(C_word c,C_word *av) C_noret;
1744 C_noret_decl(f_23786)
1745 static void C_ccall f_23786(C_word c,C_word *av) C_noret;
1746 C_noret_decl(f_23792)
1747 static void C_ccall f_23792(C_word c,C_word *av) C_noret;
1748 C_noret_decl(f_23793)
1749 static void C_ccall f_23793(C_word c,C_word *av) C_noret;
1750 C_noret_decl(f_23799)
1751 static void C_ccall f_23799(C_word c,C_word *av) C_noret;
1752 C_noret_decl(f_23831)
1753 static void C_ccall f_23831(C_word c,C_word *av) C_noret;
1754 C_noret_decl(f_23837)
1755 static void C_ccall f_23837(C_word c,C_word *av) C_noret;
1756 C_noret_decl(f_23839)
1757 static void C_ccall f_23839(C_word c,C_word *av) C_noret;
1758 C_noret_decl(f_23845)
1759 static void C_ccall f_23845(C_word c,C_word *av) C_noret;
1760 C_noret_decl(f_23855)
1761 static void C_ccall f_23855(C_word c,C_word *av) C_noret;
1762 C_noret_decl(f_23861)
1763 static void C_ccall f_23861(C_word c,C_word *av) C_noret;
1764 C_noret_decl(f_23885)
1765 static void C_ccall f_23885(C_word c,C_word *av) C_noret;
1766 C_noret_decl(f_23891)
1767 static void C_ccall f_23891(C_word c,C_word *av) C_noret;
1768 C_noret_decl(f_23898)
1769 static void C_ccall f_23898(C_word c,C_word *av) C_noret;
1770 C_noret_decl(f_23904)
1771 static void C_ccall f_23904(C_word c,C_word *av) C_noret;
1772 C_noret_decl(f_23987)
1773 static void C_fcall f_23987(C_word t0,C_word t1) C_noret;
1774 C_noret_decl(f_23990)
1775 static void C_fcall f_23990(C_word t0,C_word t1) C_noret;
1776 C_noret_decl(f_23991)
1777 static void C_ccall f_23991(C_word c,C_word *av) C_noret;
1778 C_noret_decl(f_24004)
1779 static void C_ccall f_24004(C_word c,C_word *av) C_noret;
1780 C_noret_decl(f_24010)
1781 static void C_ccall f_24010(C_word c,C_word *av) C_noret;
1782 C_noret_decl(f_24023)
1783 static void C_ccall f_24023(C_word c,C_word *av) C_noret;
1784 C_noret_decl(f_24028)
1785 static void C_ccall f_24028(C_word c,C_word *av) C_noret;
1786 C_noret_decl(f_24059)
1787 static void C_ccall f_24059(C_word c,C_word *av) C_noret;
1788 C_noret_decl(f_24063)
1789 static void C_ccall f_24063(C_word c,C_word *av) C_noret;
1790 C_noret_decl(f_24068)
1791 static void C_ccall f_24068(C_word c,C_word *av) C_noret;
1792 C_noret_decl(f_24139)
1793 static void C_fcall f_24139(C_word t0,C_word t1) C_noret;
1794 C_noret_decl(f_24142)
1795 static void C_fcall f_24142(C_word t0,C_word t1) C_noret;
1796 C_noret_decl(f_24143)
1797 static void C_ccall f_24143(C_word c,C_word *av) C_noret;
1798 C_noret_decl(f_24156)
1799 static void C_ccall f_24156(C_word c,C_word *av) C_noret;
1800 C_noret_decl(f_24162)
1801 static void C_ccall f_24162(C_word c,C_word *av) C_noret;
1802 C_noret_decl(f_24172)
1803 static void C_ccall f_24172(C_word c,C_word *av) C_noret;
1804 C_noret_decl(f_24184)
1805 static void C_ccall f_24184(C_word c,C_word *av) C_noret;
1806 C_noret_decl(f_24197)
1807 static void C_ccall f_24197(C_word c,C_word *av) C_noret;
1808 C_noret_decl(f_24218)
1809 static void C_ccall f_24218(C_word c,C_word *av) C_noret;
1810 C_noret_decl(f_24228)
1811 static void C_ccall f_24228(C_word c,C_word *av) C_noret;
1812 C_noret_decl(f_24232)
1813 static void C_ccall f_24232(C_word c,C_word *av) C_noret;
1814 C_noret_decl(f_24238)
1815 static void C_ccall f_24238(C_word c,C_word *av) C_noret;
1816 C_noret_decl(f_24310)
1817 static void C_ccall f_24310(C_word c,C_word *av) C_noret;
1818 C_noret_decl(f_24360)
1819 static void C_ccall f_24360(C_word c,C_word *av) C_noret;
1820 C_noret_decl(f_24373)
1821 static void C_ccall f_24373(C_word c,C_word *av) C_noret;
1822 C_noret_decl(f_24374)
1823 static void C_ccall f_24374(C_word c,C_word *av) C_noret;
1824 C_noret_decl(f_24381)
1825 static void C_ccall f_24381(C_word c,C_word *av) C_noret;
1826 C_noret_decl(f_24389)
1827 static void C_ccall f_24389(C_word c,C_word *av) C_noret;
1828 C_noret_decl(f_24396)
1829 static void C_ccall f_24396(C_word c,C_word *av) C_noret;
1830 C_noret_decl(f_24408)
1831 static void C_ccall f_24408(C_word c,C_word *av) C_noret;
1832 C_noret_decl(f_24409)
1833 static void C_ccall f_24409(C_word c,C_word *av) C_noret;
1834 C_noret_decl(f_24416)
1835 static void C_ccall f_24416(C_word c,C_word *av) C_noret;
1836 C_noret_decl(f_24424)
1837 static void C_ccall f_24424(C_word c,C_word *av) C_noret;
1838 C_noret_decl(f_24431)
1839 static void C_ccall f_24431(C_word c,C_word *av) C_noret;
1840 C_noret_decl(f_24446)
1841 static void C_ccall f_24446(C_word c,C_word *av) C_noret;
1842 C_noret_decl(f_24447)
1843 static void C_ccall f_24447(C_word c,C_word *av) C_noret;
1844 C_noret_decl(f_24451)
1845 static void C_ccall f_24451(C_word c,C_word *av) C_noret;
1846 C_noret_decl(f_24457)
1847 static void C_ccall f_24457(C_word c,C_word *av) C_noret;
1848 C_noret_decl(f_24464)
1849 static void C_ccall f_24464(C_word c,C_word *av) C_noret;
1850 C_noret_decl(f_24473)
1851 static void C_ccall f_24473(C_word c,C_word *av) C_noret;
1852 C_noret_decl(f_24483)
1853 static void C_ccall f_24483(C_word c,C_word *av) C_noret;
1854 C_noret_decl(f_24487)
1855 static void C_ccall f_24487(C_word c,C_word *av) C_noret;
1856 C_noret_decl(f_24492)
1857 static void C_ccall f_24492(C_word c,C_word *av) C_noret;
1858 C_noret_decl(f_24509)
1859 static void C_ccall f_24509(C_word c,C_word *av) C_noret;
1860 C_noret_decl(f_24518)
1861 static void C_ccall f_24518(C_word c,C_word *av) C_noret;
1862 C_noret_decl(f_24529)
1863 static void C_ccall f_24529(C_word c,C_word *av) C_noret;
1864 C_noret_decl(f_24530)
1865 static void C_ccall f_24530(C_word c,C_word *av) C_noret;
1866 C_noret_decl(f_24534)
1867 static void C_ccall f_24534(C_word c,C_word *av) C_noret;
1868 C_noret_decl(f_24545)
1869 static void C_ccall f_24545(C_word c,C_word *av) C_noret;
1870 C_noret_decl(f_24552)
1871 static void C_ccall f_24552(C_word c,C_word *av) C_noret;
1872 C_noret_decl(f_24564)
1873 static void C_ccall f_24564(C_word c,C_word *av) C_noret;
1874 C_noret_decl(f_24567)
1875 static void C_ccall f_24567(C_word c,C_word *av) C_noret;
1876 C_noret_decl(f_24570)
1877 static void C_ccall f_24570(C_word c,C_word *av) C_noret;
1878 C_noret_decl(f_24579)
1879 static void C_fcall f_24579(C_word t0,C_word t1) C_noret;
1880 C_noret_decl(f_24582)
1881 static void C_ccall f_24582(C_word c,C_word *av) C_noret;
1882 C_noret_decl(f_24583)
1883 static void C_ccall f_24583(C_word c,C_word *av) C_noret;
1884 C_noret_decl(f_24640)
1885 static void C_ccall f_24640(C_word c,C_word *av) C_noret;
1886 C_noret_decl(f_24641)
1887 static void C_ccall f_24641(C_word c,C_word *av) C_noret;
1888 C_noret_decl(f_24647)
1889 static void C_ccall f_24647(C_word c,C_word *av) C_noret;
1890 C_noret_decl(f_24683)
1891 static void C_ccall f_24683(C_word c,C_word *av) C_noret;
1892 C_noret_decl(f_24688)
1893 static void C_ccall f_24688(C_word c,C_word *av) C_noret;
1894 C_noret_decl(f_24720)
1895 static void C_ccall f_24720(C_word c,C_word *av) C_noret;
1896 C_noret_decl(f_24723)
1897 static void C_fcall f_24723(C_word t0,C_word t1) C_noret;
1898 C_noret_decl(f_24724)
1899 static void C_ccall f_24724(C_word c,C_word *av) C_noret;
1900 C_noret_decl(f_24728)
1901 static void C_ccall f_24728(C_word c,C_word *av) C_noret;
1902 C_noret_decl(f_24746)
1903 static void C_fcall f_24746(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret;
1904 C_noret_decl(f_24759)
1905 static void C_ccall f_24759(C_word c,C_word *av) C_noret;
1906 C_noret_decl(f_24773)
1907 static void C_ccall f_24773(C_word c,C_word *av) C_noret;
1908 C_noret_decl(f_24777)
1909 static void C_ccall f_24777(C_word c,C_word *av) C_noret;
1910 C_noret_decl(f_24791)
1911 static void C_ccall f_24791(C_word c,C_word *av) C_noret;
1912 C_noret_decl(f_24797)
1913 static void C_ccall f_24797(C_word c,C_word *av) C_noret;
1914 C_noret_decl(f_24810)
1915 static void C_ccall f_24810(C_word c,C_word *av) C_noret;
1916 C_noret_decl(f_24817)
1917 static void C_ccall f_24817(C_word c,C_word *av) C_noret;
1918 C_noret_decl(f_24824)
1919 static void C_ccall f_24824(C_word c,C_word *av) C_noret;
1920 C_noret_decl(f_24846)
1921 static void C_ccall f_24846(C_word c,C_word *av) C_noret;
1922 C_noret_decl(f_24850)
1923 static void C_ccall f_24850(C_word c,C_word *av) C_noret;
1924 C_noret_decl(f_24937)
1925 static void C_ccall f_24937(C_word c,C_word *av) C_noret;
1926 C_noret_decl(f_24938)
1927 static void C_ccall f_24938(C_word c,C_word *av) C_noret;
1928 C_noret_decl(f_24986)
1929 static void C_ccall f_24986(C_word c,C_word *av) C_noret;
1930 C_noret_decl(f_25046)
1931 static void C_ccall f_25046(C_word c,C_word *av) C_noret;
1932 C_noret_decl(f_25081)
1933 static void C_ccall f_25081(C_word c,C_word *av) C_noret;
1934 C_noret_decl(f_25281)
1935 static void C_ccall f_25281(C_word c,C_word *av) C_noret;
1936 C_noret_decl(f_25301)
1937 static void C_ccall f_25301(C_word c,C_word *av) C_noret;
1938 C_noret_decl(f_25310)
1939 static void C_ccall f_25310(C_word c,C_word *av) C_noret;
1940 C_noret_decl(f_25316)
1941 static void C_ccall f_25316(C_word c,C_word *av) C_noret;
1942 C_noret_decl(f_25322)
1943 static void C_ccall f_25322(C_word c,C_word *av) C_noret;
1944 C_noret_decl(f_25339)
1945 static void C_ccall f_25339(C_word c,C_word *av) C_noret;
1946 C_noret_decl(f_25376)
1947 static void C_ccall f_25376(C_word c,C_word *av) C_noret;
1948 C_noret_decl(f_25385)
1949 static void C_ccall f_25385(C_word c,C_word *av) C_noret;
1950 C_noret_decl(f_25391)
1951 static void C_ccall f_25391(C_word c,C_word *av) C_noret;
1952 C_noret_decl(f_25397)
1953 static void C_ccall f_25397(C_word c,C_word *av) C_noret;
1954 C_noret_decl(f_25431)
1955 static void C_ccall f_25431(C_word c,C_word *av) C_noret;
1956 C_noret_decl(f_25461)
1957 static void C_ccall f_25461(C_word c,C_word *av) C_noret;
1958 C_noret_decl(f_25468)
1959 static void C_ccall f_25468(C_word c,C_word *av) C_noret;
1960 C_noret_decl(f_25505)
1961 static void C_ccall f_25505(C_word c,C_word *av) C_noret;
1962 C_noret_decl(f_25512)
1963 static void C_ccall f_25512(C_word c,C_word *av) C_noret;
1964 C_noret_decl(f_25519)
1965 static void C_fcall f_25519(C_word t0,C_word t1) C_noret;
1966 C_noret_decl(f_25528)
1967 static void C_fcall f_25528(C_word t0,C_word t1) C_noret;
1968 C_noret_decl(f_25547)
1969 static void C_ccall f_25547(C_word c,C_word *av) C_noret;
1970 C_noret_decl(f_25564)
1971 static void C_ccall f_25564(C_word c,C_word *av) C_noret;
1972 C_noret_decl(f_25571)
1973 static void C_ccall f_25571(C_word c,C_word *av) C_noret;
1974 C_noret_decl(f_25592)
1975 static void C_ccall f_25592(C_word c,C_word *av) C_noret;
1976 C_noret_decl(f_25612)
1977 static void C_ccall f_25612(C_word c,C_word *av) C_noret;
1978 C_noret_decl(f_25619)
1979 static void C_ccall f_25619(C_word c,C_word *av) C_noret;
1980 C_noret_decl(f_25626)
1981 static void C_fcall f_25626(C_word t0,C_word t1) C_noret;
1982 C_noret_decl(f_25645)
1983 static void C_ccall f_25645(C_word c,C_word *av) C_noret;
1984 C_noret_decl(f_25652)
1985 static void C_ccall f_25652(C_word c,C_word *av) C_noret;
1986 C_noret_decl(f_25659)
1987 static void C_fcall f_25659(C_word t0,C_word t1) C_noret;
1988 C_noret_decl(f_25682)
1989 static void C_ccall f_25682(C_word c,C_word *av) C_noret;
1990 C_noret_decl(f_25703)
1991 static void C_ccall f_25703(C_word c,C_word *av) C_noret;
1992 C_noret_decl(f_25710)
1993 static void C_ccall f_25710(C_word c,C_word *av) C_noret;
1994 C_noret_decl(f_25717)
1995 static void C_ccall f_25717(C_word c,C_word *av) C_noret;
1996 C_noret_decl(f_25724)
1997 static void C_fcall f_25724(C_word t0,C_word t1) C_noret;
1998 C_noret_decl(f_25733)
1999 static void C_fcall f_25733(C_word t0,C_word t1) C_noret;
2000 C_noret_decl(f_25753)
2001 static void C_ccall f_25753(C_word c,C_word *av) C_noret;
2002 C_noret_decl(f_25769)
2003 static void C_ccall f_25769(C_word c,C_word *av) C_noret;
2004 C_noret_decl(f_25786)
2005 static void C_ccall f_25786(C_word c,C_word *av) C_noret;
2006 C_noret_decl(f_25806)
2007 static void C_ccall f_25806(C_word c,C_word *av) C_noret;
2008 C_noret_decl(f_25810)
2009 static void C_ccall f_25810(C_word c,C_word *av) C_noret;
2010 C_noret_decl(f_25813)
2011 static void C_ccall f_25813(C_word c,C_word *av) C_noret;
2012 C_noret_decl(f_25819)
2013 static void C_fcall f_25819(C_word t0,C_word t1) C_noret;
2014 C_noret_decl(f_25864)
2015 static void C_ccall f_25864(C_word c,C_word *av) C_noret;
2016 C_noret_decl(f_25928)
2017 static void C_ccall f_25928(C_word c,C_word *av) C_noret;
2018 C_noret_decl(f_25945)
2019 static void C_ccall f_25945(C_word c,C_word *av) C_noret;
2020 C_noret_decl(f_25947)
2021 static void C_fcall f_25947(C_word t0,C_word t1,C_word t2) C_noret;
2022 C_noret_decl(f_25957)
2023 static void C_ccall f_25957(C_word c,C_word *av) C_noret;
2024 C_noret_decl(f_25963)
2025 static void C_ccall f_25963(C_word c,C_word *av) C_noret;
2026 C_noret_decl(f_25969)
2027 static void C_ccall f_25969(C_word c,C_word *av) C_noret;
2028 C_noret_decl(f_25985)
2029 static void C_ccall f_25985(C_word c,C_word *av) C_noret;
2030 C_noret_decl(f_25991)
2031 static void C_ccall f_25991(C_word c,C_word *av) C_noret;
2032 C_noret_decl(f_26013)
2033 static void C_ccall f_26013(C_word c,C_word *av) C_noret;
2034 C_noret_decl(f_26027)
2035 static void C_ccall f_26027(C_word c,C_word *av) C_noret;
2036 C_noret_decl(f_26044)
2037 static void C_ccall f_26044(C_word c,C_word *av) C_noret;
2038 C_noret_decl(f_26046)
2039 static void C_fcall f_26046(C_word t0,C_word t1,C_word t2) C_noret;
2040 C_noret_decl(f_26056)
2041 static void C_ccall f_26056(C_word c,C_word *av) C_noret;
2042 C_noret_decl(f_26062)
2043 static void C_ccall f_26062(C_word c,C_word *av) C_noret;
2044 C_noret_decl(f_26068)
2045 static void C_ccall f_26068(C_word c,C_word *av) C_noret;
2046 C_noret_decl(f_26084)
2047 static void C_ccall f_26084(C_word c,C_word *av) C_noret;
2048 C_noret_decl(f_26142)
2049 static void C_ccall f_26142(C_word c,C_word *av) C_noret;
2050 C_noret_decl(f_26168)
2051 static void C_fcall f_26168(C_word t0,C_word t1,C_word t2) C_noret;
2052 C_noret_decl(f_26170)
2053 static void C_ccall f_26170(C_word c,C_word *av) C_noret;
2054 C_noret_decl(f_26183)
2055 static void C_ccall f_26183(C_word c,C_word *av) C_noret;
2056 C_noret_decl(f_26202)
2057 static void C_ccall f_26202(C_word c,C_word *av) C_noret;
2058 C_noret_decl(f_26211)
2059 static void C_ccall f_26211(C_word c,C_word *av) C_noret;
2060 C_noret_decl(f_26217)
2061 static void C_ccall f_26217(C_word c,C_word *av) C_noret;
2062 C_noret_decl(f_26223)
2063 static void C_ccall f_26223(C_word c,C_word *av) C_noret;
2064 C_noret_decl(f_26229)
2065 static void C_ccall f_26229(C_word c,C_word *av) C_noret;
2066 C_noret_decl(f_26381)
2067 static void C_fcall f_26381(C_word t0,C_word t1) C_noret;
2068 C_noret_decl(f_26393)
2069 static void C_fcall f_26393(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2070 C_noret_decl(f_26443)
2071 static void C_fcall f_26443(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2072 C_noret_decl(f_26461)
2073 static void C_ccall f_26461(C_word c,C_word *av) C_noret;
2074 C_noret_decl(f_26472)
2075 static void C_fcall f_26472(C_word t0,C_word t1) C_noret;
2076 C_noret_decl(f_26478)
2077 static void C_ccall f_26478(C_word c,C_word *av) C_noret;
2078 C_noret_decl(f_26490)
2079 static void C_ccall f_26490(C_word c,C_word *av) C_noret;
2080 C_noret_decl(f_26492)
2081 static void C_fcall f_26492(C_word t0,C_word t1,C_word t2) C_noret;
2082 C_noret_decl(f_26502)
2083 static void C_fcall f_26502(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2084 C_noret_decl(f_26505)
2085 static void C_fcall f_26505(C_word t0,C_word t1,C_word t2) C_noret;
2086 C_noret_decl(f_26531)
2087 static void C_ccall f_26531(C_word c,C_word *av) C_noret;
2088 C_noret_decl(f_26552)
2089 static void C_ccall f_26552(C_word c,C_word *av) C_noret;
2090 C_noret_decl(f_26556)
2091 static void C_ccall f_26556(C_word c,C_word *av) C_noret;
2092 C_noret_decl(f_26569)
2093 static void C_ccall f_26569(C_word c,C_word *av) C_noret;
2094 C_noret_decl(f_26571)
2095 static void C_fcall f_26571(C_word t0,C_word t1,C_word t2) C_noret;
2096 C_noret_decl(f_26596)
2097 static void C_ccall f_26596(C_word c,C_word *av) C_noret;
2098 C_noret_decl(f_26620)
2099 static void C_ccall f_26620(C_word c,C_word *av) C_noret;
2100 C_noret_decl(f_26633)
2101 static void C_ccall f_26633(C_word c,C_word *av) C_noret;
2102 C_noret_decl(f_26635)
2103 static void C_fcall f_26635(C_word t0,C_word t1,C_word t2) C_noret;
2104 C_noret_decl(f_26660)
2105 static void C_ccall f_26660(C_word c,C_word *av) C_noret;
2106 C_noret_decl(f_26682)
2107 static void C_ccall f_26682(C_word c,C_word *av) C_noret;
2108 C_noret_decl(f_26690)
2109 static void C_ccall f_26690(C_word c,C_word *av) C_noret;
2110 C_noret_decl(f_26703)
2111 static void C_ccall f_26703(C_word c,C_word *av) C_noret;
2112 C_noret_decl(f_26705)
2113 static void C_fcall f_26705(C_word t0,C_word t1,C_word t2) C_noret;
2114 C_noret_decl(f_26730)
2115 static void C_ccall f_26730(C_word c,C_word *av) C_noret;
2116 C_noret_decl(f_26750)
2117 static void C_ccall f_26750(C_word c,C_word *av) C_noret;
2118 C_noret_decl(f_26760)
2119 static void C_ccall f_26760(C_word c,C_word *av) C_noret;
2120 C_noret_decl(f_26775)
2121 static void C_ccall f_26775(C_word c,C_word *av) C_noret;
2122 C_noret_decl(f_26788)
2123 static void C_ccall f_26788(C_word c,C_word *av) C_noret;
2124 C_noret_decl(f_26790)
2125 static void C_fcall f_26790(C_word t0,C_word t1,C_word t2) C_noret;
2126 C_noret_decl(f_26815)
2127 static void C_ccall f_26815(C_word c,C_word *av) C_noret;
2128 C_noret_decl(f_26937)
2129 static void C_ccall f_26937(C_word c,C_word *av) C_noret;
2130 C_noret_decl(f_26939)
2131 static void C_ccall f_26939(C_word c,C_word *av) C_noret;
2132 C_noret_decl(f_26957)
2133 static void C_ccall f_26957(C_word c,C_word *av) C_noret;
2134 C_noret_decl(f_26959)
2135 static void C_fcall f_26959(C_word t0,C_word t1,C_word t2) C_noret;
2136 C_noret_decl(f_26992)
2137 static void C_fcall f_26992(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2138 C_noret_decl(f_27044)
2139 static C_word C_fcall f_27044(C_word *a,C_word t0,C_word t1);
2140 C_noret_decl(f_27080)
2141 static void C_ccall f_27080(C_word c,C_word *av) C_noret;
2142 C_noret_decl(f_27088)
2143 static void C_ccall f_27088(C_word c,C_word *av) C_noret;
2144 C_noret_decl(f_27092)
2145 static void C_ccall f_27092(C_word c,C_word *av) C_noret;
2146 C_noret_decl(f_27094)
2147 static void C_fcall f_27094(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
2148 C_noret_decl(f_27108)
2149 static void C_ccall f_27108(C_word c,C_word *av) C_noret;
2150 C_noret_decl(f_27112)
2151 static void C_ccall f_27112(C_word c,C_word *av) C_noret;
2152 C_noret_decl(f_27116)
2153 static void C_ccall f_27116(C_word c,C_word *av) C_noret;
2154 C_noret_decl(f_27129)
2155 static void C_ccall f_27129(C_word c,C_word *av) C_noret;
2156 C_noret_decl(f_27133)
2157 static void C_ccall f_27133(C_word c,C_word *av) C_noret;
2158 C_noret_decl(f_27137)
2159 static void C_ccall f_27137(C_word c,C_word *av) C_noret;
2160 C_noret_decl(f_27275)
2161 static void C_fcall f_27275(C_word t0,C_word t1,C_word t2) C_noret;
2162 C_noret_decl(f_27283)
2163 static void C_ccall f_27283(C_word c,C_word *av) C_noret;
2164 C_noret_decl(f_27287)
2165 static void C_ccall f_27287(C_word c,C_word *av) C_noret;
2166 C_noret_decl(f_27289)
2167 static void C_fcall f_27289(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
2168 C_noret_decl(f_27303)
2169 static void C_ccall f_27303(C_word c,C_word *av) C_noret;
2170 C_noret_decl(f_27316)
2171 static void C_ccall f_27316(C_word c,C_word *av) C_noret;
2172 C_noret_decl(f_27320)
2173 static void C_ccall f_27320(C_word c,C_word *av) C_noret;
2174 C_noret_decl(f_27366)
2175 static void C_fcall f_27366(C_word t0,C_word t1) C_noret;
2176 C_noret_decl(f_27369)
2177 static void C_fcall f_27369(C_word t0,C_word t1) C_noret;
2178 C_noret_decl(f_27376)
2179 static void C_fcall f_27376(C_word t0,C_word t1) C_noret;
2180 C_noret_decl(f_27471)
2181 static void C_ccall f_27471(C_word c,C_word *av) C_noret;
2182 C_noret_decl(f_27479)
2183 static void C_ccall f_27479(C_word c,C_word *av) C_noret;
2184 C_noret_decl(f_27483)
2185 static void C_ccall f_27483(C_word c,C_word *av) C_noret;
2186 C_noret_decl(f_27485)
2187 static void C_fcall f_27485(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
2188 C_noret_decl(f_27502)
2189 static void C_ccall f_27502(C_word c,C_word *av) C_noret;
2190 C_noret_decl(f_27597)
2191 static void C_fcall f_27597(C_word t0,C_word t1) C_noret;
2192 C_noret_decl(f_27605)
2193 static void C_ccall f_27605(C_word c,C_word *av) C_noret;
2194 C_noret_decl(f_27607)
2195 static void C_fcall f_27607(C_word t0,C_word t1) C_noret;
2196 C_noret_decl(f_27615)
2197 static void C_ccall f_27615(C_word c,C_word *av) C_noret;
2198 C_noret_decl(f_27617)
2199 static void C_fcall f_27617(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2200 C_noret_decl(f_27631)
2201 static void C_ccall f_27631(C_word c,C_word *av) C_noret;
2202 C_noret_decl(f_27637)
2203 static void C_fcall f_27637(C_word t0,C_word t1) C_noret;
2204 C_noret_decl(f_27646)
2205 static void C_ccall f_27646(C_word c,C_word *av) C_noret;
2206 C_noret_decl(f_27650)
2207 static void C_ccall f_27650(C_word c,C_word *av) C_noret;
2208 C_noret_decl(f_27654)
2209 static void C_ccall f_27654(C_word c,C_word *av) C_noret;
2210 C_noret_decl(f_27658)
2211 static void C_ccall f_27658(C_word c,C_word *av) C_noret;
2212 C_noret_decl(f_27682)
2213 static void C_ccall f_27682(C_word c,C_word *av) C_noret;
2214 C_noret_decl(f_27692)
2215 static void C_ccall f_27692(C_word c,C_word *av) C_noret;
2216 C_noret_decl(f_27701)
2217 static void C_ccall f_27701(C_word c,C_word *av) C_noret;
2218 C_noret_decl(f_27705)
2219 static void C_ccall f_27705(C_word c,C_word *av) C_noret;
2220 C_noret_decl(f_27709)
2221 static void C_ccall f_27709(C_word c,C_word *av) C_noret;
2222 C_noret_decl(f_27713)
2223 static void C_ccall f_27713(C_word c,C_word *av) C_noret;
2224 C_noret_decl(f_27723)
2225 static void C_ccall f_27723(C_word c,C_word *av) C_noret;
2226 C_noret_decl(f_27738)
2227 static void C_ccall f_27738(C_word c,C_word *av) C_noret;
2228 C_noret_decl(f_27742)
2229 static void C_ccall f_27742(C_word c,C_word *av) C_noret;
2230 C_noret_decl(f_27745)
2231 static void C_ccall f_27745(C_word c,C_word *av) C_noret;
2232 C_noret_decl(f_27748)
2233 static void C_ccall f_27748(C_word c,C_word *av) C_noret;
2234 C_noret_decl(f_27757)
2235 static void C_fcall f_27757(C_word t0,C_word t1) C_noret;
2236 C_noret_decl(f_27760)
2237 static void C_fcall f_27760(C_word t0,C_word t1) C_noret;
2238 C_noret_decl(f_27769)
2239 static void C_ccall f_27769(C_word c,C_word *av) C_noret;
2240 C_noret_decl(f_27772)
2241 static void C_ccall f_27772(C_word c,C_word *av) C_noret;
2242 C_noret_decl(f_27780)
2243 static void C_fcall f_27780(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
2244 C_noret_decl(f_27793)
2245 static void C_ccall f_27793(C_word c,C_word *av) C_noret;
2246 C_noret_decl(f_27828)
2247 static void C_ccall f_27828(C_word c,C_word *av) C_noret;
2248 C_noret_decl(f_27831)
2249 static void C_ccall f_27831(C_word c,C_word *av) C_noret;
2250 C_noret_decl(f_27939)
2251 static void C_ccall f_27939(C_word c,C_word *av) C_noret;
2252 C_noret_decl(f_27956)
2253 static void C_ccall f_27956(C_word c,C_word *av) C_noret;
2254 C_noret_decl(f_27960)
2255 static void C_ccall f_27960(C_word c,C_word *av) C_noret;
2256 C_noret_decl(f_27961)
2257 static void C_ccall f_27961(C_word c,C_word *av) C_noret;
2258 C_noret_decl(f_27969)
2259 static void C_ccall f_27969(C_word c,C_word *av) C_noret;
2260 C_noret_decl(f_27984)
2261 static void C_ccall f_27984(C_word c,C_word *av) C_noret;
2262 C_noret_decl(f_27988)
2263 static void C_ccall f_27988(C_word c,C_word *av) C_noret;
2264 C_noret_decl(f_27991)
2265 static void C_ccall f_27991(C_word c,C_word *av) C_noret;
2266 C_noret_decl(f_28000)
2267 static void C_ccall f_28000(C_word c,C_word *av) C_noret;
2268 C_noret_decl(f_28006)
2269 static void C_ccall f_28006(C_word c,C_word *av) C_noret;
2270 C_noret_decl(f_28014)
2271 static void C_fcall f_28014(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
2272 C_noret_decl(f_28027)
2273 static void C_ccall f_28027(C_word c,C_word *av) C_noret;
2274 C_noret_decl(f_28077)
2275 static void C_ccall f_28077(C_word c,C_word *av) C_noret;
2276 C_noret_decl(f_28087)
2277 static void C_ccall f_28087(C_word c,C_word *av) C_noret;
2278 C_noret_decl(f_28101)
2279 static void C_ccall f_28101(C_word c,C_word *av) C_noret;
2280 C_noret_decl(f_28104)
2281 static void C_ccall f_28104(C_word c,C_word *av) C_noret;
2282 C_noret_decl(f_28107)
2283 static void C_ccall f_28107(C_word c,C_word *av) C_noret;
2284 C_noret_decl(f_28159)
2285 static void C_ccall f_28159(C_word c,C_word *av) C_noret;
2286 C_noret_decl(f_28166)
2287 static void C_ccall f_28166(C_word c,C_word *av) C_noret;
2288 C_noret_decl(f_28170)
2289 static void C_ccall f_28170(C_word c,C_word *av) C_noret;
2290 C_noret_decl(f_28171)
2291 static void C_ccall f_28171(C_word c,C_word *av) C_noret;
2292 C_noret_decl(f_28179)
2293 static void C_ccall f_28179(C_word c,C_word *av) C_noret;
2294 C_noret_decl(f_28194)
2295 static void C_ccall f_28194(C_word c,C_word *av) C_noret;
2296 C_noret_decl(f_28198)
2297 static void C_ccall f_28198(C_word c,C_word *av) C_noret;
2298 C_noret_decl(f_28201)
2299 static void C_ccall f_28201(C_word c,C_word *av) C_noret;
2300 C_noret_decl(f_28215)
2301 static void C_ccall f_28215(C_word c,C_word *av) C_noret;
2302 C_noret_decl(f_28219)
2303 static void C_ccall f_28219(C_word c,C_word *av) C_noret;
2304 C_noret_decl(f_28223)
2305 static void C_ccall f_28223(C_word c,C_word *av) C_noret;
2306 C_noret_decl(f_28231)
2307 static void C_ccall f_28231(C_word c,C_word *av) C_noret;
2308 C_noret_decl(f_28273)
2309 static void C_ccall f_28273(C_word c,C_word *av) C_noret;
2310 C_noret_decl(f_28277)
2311 static void C_ccall f_28277(C_word c,C_word *av) C_noret;
2312 C_noret_decl(f_28282)
2313 static void C_ccall f_28282(C_word c,C_word *av) C_noret;
2314 C_noret_decl(f_28316)
2315 static void C_ccall f_28316(C_word c,C_word *av) C_noret;
2316 C_noret_decl(f_28323)
2317 static void C_ccall f_28323(C_word c,C_word *av) C_noret;
2318 C_noret_decl(f_28331)
2319 static void C_ccall f_28331(C_word c,C_word *av) C_noret;
2320 C_noret_decl(f_28333)
2321 static void C_ccall f_28333(C_word c,C_word *av) C_noret;
2322 C_noret_decl(f_28354)
2323 static void C_ccall f_28354(C_word c,C_word *av) C_noret;
2324 C_noret_decl(f_28366)
2325 static void C_fcall f_28366(C_word t0,C_word t1,C_word t2) C_noret;
2326 C_noret_decl(f_28372)
2327 static void C_fcall f_28372(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2328 C_noret_decl(f_28399)
2329 static void C_ccall f_28399(C_word c,C_word *av) C_noret;
2330 C_noret_decl(f_28424)
2331 static void C_ccall f_28424(C_word c,C_word *av) C_noret;
2332 C_noret_decl(f_28450)
2333 static void C_ccall f_28450(C_word c,C_word *av) C_noret;
2334 C_noret_decl(f_28514)
2335 static void C_ccall f_28514(C_word c,C_word *av) C_noret;
2336 C_noret_decl(f_28546)
2337 static void C_fcall f_28546(C_word t0,C_word t1,C_word t2) C_noret;
2338 C_noret_decl(f_28576)
2339 static void C_ccall f_28576(C_word c,C_word *av) C_noret;
2340 C_noret_decl(f_28597)
2341 static void C_ccall f_28597(C_word c,C_word *av) C_noret;
2342 C_noret_decl(f_28601)
2343 static void C_ccall f_28601(C_word c,C_word *av) C_noret;
2344 C_noret_decl(f_28606)
2345 static void C_ccall f_28606(C_word c,C_word *av) C_noret;
2346 C_noret_decl(f_28614)
2347 static void C_ccall f_28614(C_word c,C_word *av) C_noret;
2348 C_noret_decl(f_28616)
2349 static void C_ccall f_28616(C_word c,C_word *av) C_noret;
2350 C_noret_decl(f_28632)
2351 static void C_ccall f_28632(C_word c,C_word *av) C_noret;
2352 C_noret_decl(f_28636)
2353 static void C_ccall f_28636(C_word c,C_word *av) C_noret;
2354 C_noret_decl(f_28642)
2355 static void C_fcall f_28642(C_word t0,C_word t1) C_noret;
2356 C_noret_decl(f_28647)
2357 static void C_ccall f_28647(C_word c,C_word *av) C_noret;
2358 C_noret_decl(f_28661)
2359 static void C_ccall f_28661(C_word c,C_word *av) C_noret;
2360 C_noret_decl(f_28705)
2361 static void C_ccall f_28705(C_word c,C_word *av) C_noret;
2362 C_noret_decl(f_28713)
2363 static void C_fcall f_28713(C_word t0,C_word t1) C_noret;
2364 C_noret_decl(f_28715)
2365 static void C_fcall f_28715(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
2366 C_noret_decl(f_28756)
2367 static void C_ccall f_28756(C_word c,C_word *av) C_noret;
2368 C_noret_decl(f_28796)
2369 static void C_ccall f_28796(C_word c,C_word *av) C_noret;
2370 C_noret_decl(f_28830)
2371 static void C_ccall f_28830(C_word c,C_word *av) C_noret;
2372 C_noret_decl(f_28843)
2373 static void C_fcall f_28843(C_word t0,C_word t1,C_word t2) C_noret;
2374 C_noret_decl(f_28873)
2375 static void C_ccall f_28873(C_word c,C_word *av) C_noret;
2376 C_noret_decl(f_28881)
2377 static void C_ccall f_28881(C_word c,C_word *av) C_noret;
2378 C_noret_decl(f_28885)
2379 static void C_ccall f_28885(C_word c,C_word *av) C_noret;
2380 C_noret_decl(f_28887)
2381 static void C_fcall f_28887(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2382 C_noret_decl(f_28906)
2383 static void C_ccall f_28906(C_word c,C_word *av) C_noret;
2384 C_noret_decl(f_28930)
2385 static void C_ccall f_28930(C_word c,C_word *av) C_noret;
2386 C_noret_decl(f_28947)
2387 static void C_ccall f_28947(C_word c,C_word *av) C_noret;
2388 C_noret_decl(f_28954)
2389 static void C_ccall f_28954(C_word c,C_word *av) C_noret;
2390 C_noret_decl(f_28977)
2391 static void C_ccall f_28977(C_word c,C_word *av) C_noret;
2392 C_noret_decl(f_28998)
2393 static void C_ccall f_28998(C_word c,C_word *av) C_noret;
2394 C_noret_decl(f_29000)
2395 static void C_fcall f_29000(C_word t0,C_word t1,C_word t2) C_noret;
2396 C_noret_decl(f_29010)
2397 static void C_fcall f_29010(C_word t0,C_word t1) C_noret;
2398 C_noret_decl(f_29037)
2399 static void C_ccall f_29037(C_word c,C_word *av) C_noret;
2400 C_noret_decl(f_29067)
2401 static void C_ccall f_29067(C_word c,C_word *av) C_noret;
2402 C_noret_decl(f_29072)
2403 static void C_fcall f_29072(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2404 C_noret_decl(f_29084)
2405 static void C_fcall f_29084(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2406 C_noret_decl(f_29104)
2407 static void C_ccall f_29104(C_word c,C_word *av) C_noret;
2408 C_noret_decl(f_29139)
2409 static void C_ccall f_29139(C_word c,C_word *av) C_noret;
2410 C_noret_decl(f_29147)
2411 static void C_ccall f_29147(C_word c,C_word *av) C_noret;
2412 C_noret_decl(f_29183)
2413 static void C_ccall f_29183(C_word c,C_word *av) C_noret;
2414 C_noret_decl(f_29197)
2415 static void C_fcall f_29197(C_word t0,C_word t1) C_noret;
2416 C_noret_decl(f_29201)
2417 static void C_ccall f_29201(C_word c,C_word *av) C_noret;
2418 C_noret_decl(f_29204)
2419 static void C_ccall f_29204(C_word c,C_word *av) C_noret;
2420 C_noret_decl(f_29209)
2421 static void C_fcall f_29209(C_word t0,C_word t1,C_word t2) C_noret;
2422 C_noret_decl(f_29219)
2423 static void C_ccall f_29219(C_word c,C_word *av) C_noret;
2424 C_noret_decl(f_29230)
2425 static void C_ccall f_29230(C_word c,C_word *av) C_noret;
2426 C_noret_decl(f_29233)
2427 static void C_ccall f_29233(C_word c,C_word *av) C_noret;
2428 C_noret_decl(f_29240)
2429 static void C_ccall f_29240(C_word c,C_word *av) C_noret;
2430 C_noret_decl(f_29252)
2431 static void C_ccall f_29252(C_word c,C_word *av) C_noret;
2432 C_noret_decl(f_29267)
2433 static void C_ccall f_29267(C_word c,C_word *av) C_noret;
2434 C_noret_decl(f_29277)
2435 static void C_ccall f_29277(C_word c,C_word *av) C_noret;
2436 C_noret_decl(f_29281)
2437 static void C_ccall f_29281(C_word c,C_word *av) C_noret;
2438 C_noret_decl(f_29284)
2439 static void C_ccall f_29284(C_word c,C_word *av) C_noret;
2440 C_noret_decl(f_29289)
2441 static void C_fcall f_29289(C_word t0,C_word t1,C_word t2) C_noret;
2442 C_noret_decl(f_29312)
2443 static void C_fcall f_29312(C_word t0,C_word t1) C_noret;
2444 C_noret_decl(f_29315)
2445 static void C_ccall f_29315(C_word c,C_word *av) C_noret;
2446 C_noret_decl(f_29322)
2447 static void C_ccall f_29322(C_word c,C_word *av) C_noret;
2448 C_noret_decl(f_29327)
2449 static void C_fcall f_29327(C_word t0,C_word t1,C_word t2) C_noret;
2450 C_noret_decl(f_29337)
2451 static void C_ccall f_29337(C_word c,C_word *av) C_noret;
2452 C_noret_decl(f_29357)
2453 static void C_fcall f_29357(C_word t0,C_word t1,C_word t2) C_noret;
2454 C_noret_decl(f_29367)
2455 static void C_ccall f_29367(C_word c,C_word *av) C_noret;
2456 C_noret_decl(f_29409)
2457 static void C_ccall f_29409(C_word c,C_word *av) C_noret;
2458 C_noret_decl(f_29416)
2459 static void C_ccall f_29416(C_word c,C_word *av) C_noret;
2460 C_noret_decl(f_29421)
2461 static void C_fcall f_29421(C_word t0,C_word t1,C_word t2) C_noret;
2462 C_noret_decl(f_29431)
2463 static void C_ccall f_29431(C_word c,C_word *av) C_noret;
2464 C_noret_decl(f_29451)
2465 static void C_ccall f_29451(C_word c,C_word *av) C_noret;
2466 C_noret_decl(f_29454)
2467 static void C_ccall f_29454(C_word c,C_word *av) C_noret;
2468 C_noret_decl(f_29457)
2469 static void C_ccall f_29457(C_word c,C_word *av) C_noret;
2470 C_noret_decl(f_29466)
2471 static void C_ccall f_29466(C_word c,C_word *av) C_noret;
2472 C_noret_decl(f_29471)
2473 static void C_fcall f_29471(C_word t0,C_word t1,C_word t2) C_noret;
2474 C_noret_decl(f_29481)
2475 static void C_ccall f_29481(C_word c,C_word *av) C_noret;
2476 C_noret_decl(f_29505)
2477 static void C_ccall f_29505(C_word c,C_word *av) C_noret;
2478 C_noret_decl(f_29508)
2479 static void C_ccall f_29508(C_word c,C_word *av) C_noret;
2480 C_noret_decl(f_29509)
2481 static void C_fcall f_29509(C_word t0,C_word t1,C_word t2) C_noret;
2482 C_noret_decl(f_29513)
2483 static void C_ccall f_29513(C_word c,C_word *av) C_noret;
2484 C_noret_decl(f_29525)
2485 static void C_ccall f_29525(C_word c,C_word *av) C_noret;
2486 C_noret_decl(f_29530)
2487 static void C_fcall f_29530(C_word t0,C_word t1,C_word t2) C_noret;
2488 C_noret_decl(f_29540)
2489 static void C_ccall f_29540(C_word c,C_word *av) C_noret;
2490 C_noret_decl(f_29564)
2491 static void C_fcall f_29564(C_word t0,C_word t1) C_noret;
2492 C_noret_decl(f_29567)
2493 static void C_ccall f_29567(C_word c,C_word *av) C_noret;
2494 C_noret_decl(f_29578)
2495 static void C_ccall f_29578(C_word c,C_word *av) C_noret;
2496 C_noret_decl(f_29585)
2497 static void C_ccall f_29585(C_word c,C_word *av) C_noret;
2498 C_noret_decl(f_29590)
2499 static void C_fcall f_29590(C_word t0,C_word t1,C_word t2) C_noret;
2500 C_noret_decl(f_29600)
2501 static void C_ccall f_29600(C_word c,C_word *av) C_noret;
2502 C_noret_decl(f_29634)
2503 static void C_fcall f_29634(C_word t0,C_word t1) C_noret;
2504 C_noret_decl(f_29637)
2505 static void C_ccall f_29637(C_word c,C_word *av) C_noret;
2506 C_noret_decl(f_29640)
2507 static void C_ccall f_29640(C_word c,C_word *av) C_noret;
2508 C_noret_decl(f_29647)
2509 static void C_ccall f_29647(C_word c,C_word *av) C_noret;
2510 C_noret_decl(f_29651)
2511 static void C_ccall f_29651(C_word c,C_word *av) C_noret;
2512 C_noret_decl(f_29664)
2513 static void C_ccall f_29664(C_word c,C_word *av) C_noret;
2514 C_noret_decl(f_29677)
2515 static void C_ccall f_29677(C_word c,C_word *av) C_noret;
2516 C_noret_decl(f_29680)
2517 static void C_ccall f_29680(C_word c,C_word *av) C_noret;
2518 C_noret_decl(f_29687)
2519 static void C_ccall f_29687(C_word c,C_word *av) C_noret;
2520 C_noret_decl(f_29698)
2521 static void C_fcall f_29698(C_word t0,C_word t1) C_noret;
2522 C_noret_decl(f_29707)
2523 static void C_fcall f_29707(C_word t0,C_word t1) C_noret;
2524 C_noret_decl(f_29710)
2525 static void C_ccall f_29710(C_word c,C_word *av) C_noret;
2526 C_noret_decl(f_29713)
2527 static void C_ccall f_29713(C_word c,C_word *av) C_noret;
2528 C_noret_decl(f_29720)
2529 static void C_ccall f_29720(C_word c,C_word *av) C_noret;
2530 C_noret_decl(f_29745)
2531 static void C_ccall f_29745(C_word c,C_word *av) C_noret;
2532 C_noret_decl(f_29783)
2533 static void C_ccall f_29783(C_word c,C_word *av) C_noret;
2534 C_noret_decl(f_29786)
2535 static void C_ccall f_29786(C_word c,C_word *av) C_noret;
2536 C_noret_decl(f_29789)
2537 static void C_ccall f_29789(C_word c,C_word *av) C_noret;
2538 C_noret_decl(f_29796)
2539 static void C_ccall f_29796(C_word c,C_word *av) C_noret;
2540 C_noret_decl(f_29801)
2541 static void C_fcall f_29801(C_word t0,C_word t1,C_word t2) C_noret;
2542 C_noret_decl(f_29811)
2543 static void C_ccall f_29811(C_word c,C_word *av) C_noret;
2544 C_noret_decl(f_29847)
2545 static void C_ccall f_29847(C_word c,C_word *av) C_noret;
2546 C_noret_decl(f_30011)
2547 static void C_ccall f_30011(C_word c,C_word *av) C_noret;
2548 C_noret_decl(f_30024)
2549 static void C_ccall f_30024(C_word c,C_word *av) C_noret;
2550 C_noret_decl(f_30033)
2551 static void C_ccall f_30033(C_word c,C_word *av) C_noret;
2552 C_noret_decl(f_30044)
2553 static void C_ccall f_30044(C_word c,C_word *av) C_noret;
2554 C_noret_decl(f_30048)
2555 static void C_ccall f_30048(C_word c,C_word *av) C_noret;
2556 C_noret_decl(f_30050)
2557 static void C_fcall f_30050(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2558 C_noret_decl(f_30081)
2559 static void C_ccall f_30081(C_word c,C_word *av) C_noret;
2560 C_noret_decl(f_30128)
2561 static void C_ccall f_30128(C_word c,C_word *av) C_noret;
2562 C_noret_decl(f_30148)
2563 static void C_ccall f_30148(C_word c,C_word *av) C_noret;
2564 C_noret_decl(f_30158)
2565 static void C_fcall f_30158(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2566 C_noret_decl(f_30185)
2567 static void C_ccall f_30185(C_word c,C_word *av) C_noret;
2568 C_noret_decl(f_30207)
2569 static void C_fcall f_30207(C_word t0,C_word t1) C_noret;
2570 C_noret_decl(f_30309)
2571 static void C_ccall f_30309(C_word c,C_word *av) C_noret;
2572 C_noret_decl(f_30774)
2573 static void C_ccall f_30774(C_word c,C_word *av) C_noret;
2574 C_noret_decl(f_30936)
2575 static void C_ccall f_30936(C_word c,C_word *av) C_noret;
2576 C_noret_decl(f_30939)
2577 static void C_ccall f_30939(C_word c,C_word *av) C_noret;
2578 C_noret_decl(f_30973)
2579 static void C_ccall f_30973(C_word c,C_word *av) C_noret;
2580 C_noret_decl(f_30977)
2581 static void C_ccall f_30977(C_word c,C_word *av) C_noret;
2582 C_noret_decl(f_30980)
2583 static void C_ccall f_30980(C_word c,C_word *av) C_noret;
2584 C_noret_decl(f_30983)
2585 static void C_ccall f_30983(C_word c,C_word *av) C_noret;
2586 C_noret_decl(f_30986)
2587 static void C_ccall f_30986(C_word c,C_word *av) C_noret;
2588 C_noret_decl(f_30989)
2589 static void C_ccall f_30989(C_word c,C_word *av) C_noret;
2590 C_noret_decl(f_7535)
2591 static void C_ccall f_7535(C_word c,C_word *av) C_noret;
2592 C_noret_decl(f_7538)
2593 static void C_ccall f_7538(C_word c,C_word *av) C_noret;
2594 C_noret_decl(f_7540)
2595 static void C_fcall f_7540(C_word t0,C_word t1) C_noret;
2596 C_noret_decl(f_7544)
2597 static void C_ccall f_7544(C_word c,C_word *av) C_noret;
2598 C_noret_decl(f_7547)
2599 static void C_ccall f_7547(C_word c,C_word *av) C_noret;
2600 C_noret_decl(f_7553)
2601 static void C_ccall f_7553(C_word c,C_word *av) C_noret;
2602 C_noret_decl(f_7595)
2603 static void C_ccall f_7595(C_word c,C_word *av) C_noret;
2604 C_noret_decl(f_7613)
2605 static void C_ccall f_7613(C_word c,C_word *av) C_noret;
2606 C_noret_decl(f_7622)
2607 static void C_fcall f_7622(C_word t0,C_word t1) C_noret;
2608 C_noret_decl(f_7630)
2609 static void C_ccall f_7630(C_word c,C_word *av) C_noret;
2610 C_noret_decl(f_7643)
2611 static void C_ccall f_7643(C_word c,C_word *av) C_noret;
2612 C_noret_decl(f_7645)
2613 static void C_fcall f_7645(C_word t0,C_word t1) C_noret;
2614 C_noret_decl(f_7652)
2615 static void C_ccall f_7652(C_word c,C_word *av) C_noret;
2616 C_noret_decl(f_7654)
2617 static void C_fcall f_7654(C_word t0,C_word t1) C_noret;
2618 C_noret_decl(f_7668)
2619 static void C_ccall f_7668(C_word c,C_word *av) C_noret;
2620 C_noret_decl(f_7686)
2621 static void C_ccall f_7686(C_word c,C_word *av) C_noret;
2622 C_noret_decl(f_7692)
2623 static void C_ccall f_7692(C_word c,C_word *av) C_noret;
2624 C_noret_decl(f_7717)
2625 static void C_ccall f_7717(C_word c,C_word *av) C_noret;
2626 C_noret_decl(f_7763)
2627 static void C_ccall f_7763(C_word c,C_word *av) C_noret;
2628 C_noret_decl(f_7776)
2629 static void C_ccall f_7776(C_word c,C_word *av) C_noret;
2630 C_noret_decl(f_7778)
2631 static void C_ccall f_7778(C_word c,C_word *av) C_noret;
2632 C_noret_decl(f_7782)
2633 static void C_ccall f_7782(C_word c,C_word *av) C_noret;
2634 C_noret_decl(f_7803)
2635 static void C_ccall f_7803(C_word c,C_word *av) C_noret;
2636 C_noret_decl(f_7807)
2637 static void C_ccall f_7807(C_word c,C_word *av) C_noret;
2638 C_noret_decl(f_7832)
2639 static void C_ccall f_7832(C_word c,C_word *av) C_noret;
2640 C_noret_decl(f_7836)
2641 static void C_ccall f_7836(C_word c,C_word *av) C_noret;
2642 C_noret_decl(f_7861)
2643 static void C_ccall f_7861(C_word c,C_word *av) C_noret;
2644 C_noret_decl(f_7865)
2645 static void C_ccall f_7865(C_word c,C_word *av) C_noret;
2646 C_noret_decl(f_7954)
2647 static void C_fcall f_7954(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2648 C_noret_decl(f_8022)
2649 static void C_fcall f_8022(C_word t0,C_word t1) C_noret;
2650 C_noret_decl(f_8064)
2651 static void C_ccall f_8064(C_word c,C_word *av) C_noret;
2652 C_noret_decl(f_8066)
2653 static void C_fcall f_8066(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2654 C_noret_decl(f_8136)
2655 static void C_ccall f_8136(C_word c,C_word *av) C_noret;
2656 C_noret_decl(f_8138)
2657 static void C_ccall f_8138(C_word c,C_word *av) C_noret;
2658 C_noret_decl(f_8142)
2659 static void C_ccall f_8142(C_word c,C_word *av) C_noret;
2660 C_noret_decl(f_8199)
2661 static void C_ccall f_8199(C_word c,C_word *av) C_noret;
2662 C_noret_decl(f_8201)
2663 static void C_ccall f_8201(C_word c,C_word *av) C_noret;
2664 C_noret_decl(f_8205)
2665 static void C_ccall f_8205(C_word c,C_word *av) C_noret;
2666 C_noret_decl(f_8282)
2667 static void C_ccall f_8282(C_word c,C_word *av) C_noret;
2668 C_noret_decl(f_8286)
2669 static void C_ccall f_8286(C_word c,C_word *av) C_noret;
2670 C_noret_decl(f_8372)
2671 static void C_ccall f_8372(C_word c,C_word *av) C_noret;
2672 C_noret_decl(f_8406)
2673 static void C_ccall f_8406(C_word c,C_word *av) C_noret;
2674 C_noret_decl(f_8412)
2675 static void C_fcall f_8412(C_word t0,C_word t1) C_noret;
2676 C_noret_decl(f_8446)
2677 static void C_ccall f_8446(C_word c,C_word *av) C_noret;
2678 C_noret_decl(f_8460)
2679 static void C_ccall f_8460(C_word c,C_word *av) C_noret;
2680 C_noret_decl(f_8467)
2681 static void C_ccall f_8467(C_word c,C_word *av) C_noret;
2682 C_noret_decl(f_8473)
2683 static void C_fcall f_8473(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2684 C_noret_decl(f_8491)
2685 static void C_ccall f_8491(C_word c,C_word *av) C_noret;
2686 C_noret_decl(f_8495)
2687 static void C_ccall f_8495(C_word c,C_word *av) C_noret;
2688 C_noret_decl(f_8499)
2689 static void C_ccall f_8499(C_word c,C_word *av) C_noret;
2690 C_noret_decl(f_8506)
2691 static void C_ccall f_8506(C_word c,C_word *av) C_noret;
2692 C_noret_decl(f_8514)
2693 static void C_ccall f_8514(C_word c,C_word *av) C_noret;
2694 C_noret_decl(f_8518)
2695 static void C_ccall f_8518(C_word c,C_word *av) C_noret;
2696 C_noret_decl(f_8522)
2697 static void C_ccall f_8522(C_word c,C_word *av) C_noret;
2698 C_noret_decl(f_8526)
2699 static void C_ccall f_8526(C_word c,C_word *av) C_noret;
2700 C_noret_decl(f_8530)
2701 static void C_ccall f_8530(C_word c,C_word *av) C_noret;
2702 C_noret_decl(f_8534)
2703 static void C_ccall f_8534(C_word c,C_word *av) C_noret;
2704 C_noret_decl(f_8538)
2705 static void C_ccall f_8538(C_word c,C_word *av) C_noret;
2706 C_noret_decl(f_8547)
2707 static void C_ccall f_8547(C_word c,C_word *av) C_noret;
2708 C_noret_decl(f_8555)
2709 static void C_ccall f_8555(C_word c,C_word *av) C_noret;
2710 C_noret_decl(f_8564)
2711 static void C_ccall f_8564(C_word c,C_word *av) C_noret;
2712 C_noret_decl(f_8622)
2713 static void C_fcall f_8622(C_word t0,C_word t1,C_word t2) C_noret;
2714 C_noret_decl(f_8626)
2715 static void C_ccall f_8626(C_word c,C_word *av) C_noret;
2716 C_noret_decl(f_8640)
2717 static void C_fcall f_8640(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2718 C_noret_decl(f_8644)
2719 static void C_ccall f_8644(C_word c,C_word *av) C_noret;
2720 C_noret_decl(f_8657)
2721 static void C_ccall f_8657(C_word c,C_word *av) C_noret;
2722 C_noret_decl(f_8668)
2723 static void C_ccall f_8668(C_word c,C_word *av) C_noret;
2724 C_noret_decl(f_8670)
2725 static void C_fcall f_8670(C_word t0,C_word t1,C_word t2) C_noret;
2726 C_noret_decl(f_8677)
2727 static void C_ccall f_8677(C_word c,C_word *av) C_noret;
2728 C_noret_decl(f_8690)
2729 static void C_ccall f_8690(C_word c,C_word *av) C_noret;
2730 C_noret_decl(f_8697)
2731 static void C_ccall f_8697(C_word c,C_word *av) C_noret;
2732 C_noret_decl(f_8736)
2733 static void C_ccall f_8736(C_word c,C_word *av) C_noret;
2734 C_noret_decl(f_8763)
2735 static void C_ccall f_8763(C_word c,C_word *av) C_noret;
2736 C_noret_decl(f_8795)
2737 static void C_ccall f_8795(C_word c,C_word *av) C_noret;
2738 C_noret_decl(f_8802)
2739 static void C_ccall f_8802(C_word c,C_word *av) C_noret;
2740 C_noret_decl(f_8817)
2741 static void C_ccall f_8817(C_word c,C_word *av) C_noret;
2742 C_noret_decl(f_8830)
2743 static void C_fcall f_8830(C_word t0,C_word t1,C_word t2) C_noret;
2744 C_noret_decl(f_8873)
2745 static void C_fcall f_8873(C_word t0,C_word t1,C_word t2) C_noret;
2746 C_noret_decl(f_8930)
2747 static void C_fcall f_8930(C_word t0,C_word t1,C_word t2) C_noret;
2748 C_noret_decl(f_8968)
2749 static void C_fcall f_8968(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
2750 C_noret_decl(f_8971)
2751 static void C_fcall f_8971(C_word t0,C_word t1) C_noret;
2752 C_noret_decl(f_8979)
2753 static void C_ccall f_8979(C_word c,C_word *av) C_noret;
2754 C_noret_decl(f_8992)
2755 static void C_ccall f_8992(C_word c,C_word *av) C_noret;
2756 C_noret_decl(f_9011)
2757 static void C_ccall f_9011(C_word c,C_word *av) C_noret;
2758 C_noret_decl(f_9108)
2759 static void C_fcall f_9108(C_word t0,C_word t1) C_noret;
2760 C_noret_decl(f_9116)
2761 static void C_ccall f_9116(C_word c,C_word *av) C_noret;
2762 C_noret_decl(f_9118)
2763 static void C_ccall f_9118(C_word c,C_word *av) C_noret;
2764 C_noret_decl(f_9132)
2765 static void C_ccall f_9132(C_word c,C_word *av) C_noret;
2766 C_noret_decl(f_9137)
2767 static C_word C_fcall f_9137(C_word t0,C_word t1,C_word t2);
2768 C_noret_decl(f_9158)
2769 static void C_fcall f_9158(C_word t0,C_word t1) C_noret;
2770 C_noret_decl(f_9174)
2771 static void C_fcall f_9174(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2772 C_noret_decl(f_9195)
2773 static void C_fcall f_9195(C_word t0,C_word t1,C_word t2) C_noret;
2774 C_noret_decl(f_9201)
2775 static void C_fcall f_9201(C_word t0,C_word t1,C_word t2) C_noret;
2776 C_noret_decl(f_9214)
2777 static void C_ccall f_9214(C_word c,C_word *av) C_noret;
2778 C_noret_decl(f_9256)
2779 static void C_fcall f_9256(C_word t0,C_word t1) C_noret;
2780 C_noret_decl(f_9271)
2781 static C_word C_fcall f_9271(C_word t0);
2782 C_noret_decl(f_9294)
2783 static void C_fcall f_9294(C_word t0,C_word t1,C_word t2) C_noret;
2784 C_noret_decl(f_9310)
2785 static void C_fcall f_9310(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2786 C_noret_decl(f_9323)
2787 static void C_ccall f_9323(C_word c,C_word *av) C_noret;
2788 C_noret_decl(f_9337)
2789 static void C_fcall f_9337(C_word t0,C_word t1,C_word t2) C_noret;
2790 C_noret_decl(f_9355)
2791 static void C_fcall f_9355(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2792 C_noret_decl(f_9371)
2793 static void C_ccall f_9371(C_word c,C_word *av) C_noret;
2794 C_noret_decl(f_9382)
2795 static void C_fcall f_9382(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2796 C_noret_decl(f_9388)
2797 static void C_fcall f_9388(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2798 C_noret_decl(f_9406)
2799 static void C_ccall f_9406(C_word c,C_word *av) C_noret;
2800 C_noret_decl(f_9712)
2801 static void C_ccall f_9712(C_word c,C_word *av) C_noret;
2802 C_noret_decl(f_9721)
2803 static void C_ccall f_9721(C_word c,C_word *av) C_noret;
2804 C_noret_decl(f_9739)
2805 static void C_fcall f_9739(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2806 C_noret_decl(f_9746)
2807 static void C_fcall f_9746(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2808 C_noret_decl(f_9773)
2809 static void C_fcall f_9773(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
2810 C_noret_decl(f_9779)
2811 static void C_ccall f_9779(C_word c,C_word *av) C_noret;
2812 C_noret_decl(f_9793)
2813 static void C_ccall f_9793(C_word c,C_word *av) C_noret;
2814 C_noret_decl(f_9813)
2815 static void C_ccall f_9813(C_word c,C_word *av) C_noret;
2816 C_noret_decl(f_9819)
2817 static void C_ccall f_9819(C_word c,C_word *av) C_noret;
2818 C_noret_decl(f_9836)
2819 static void C_ccall f_9836(C_word c,C_word *av) C_noret;
2820 C_noret_decl(f_9840)
2821 static void C_ccall f_9840(C_word c,C_word *av) C_noret;
2822 C_noret_decl(f_9887)
2823 static void C_fcall f_9887(C_word t0,C_word t1,C_word t2) C_noret;
2824 C_noret_decl(f_9936)
2825 static void C_ccall f_9936(C_word c,C_word *av) C_noret;
2826 C_noret_decl(f_9964)
2827 static void C_fcall f_9964(C_word t0,C_word t1) C_noret;
2828 C_noret_decl(f_9975)
2829 static void C_ccall f_9975(C_word c,C_word *av) C_noret;
2830 C_noret_decl(C_irregex_toplevel)
2831 C_externexport void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret;
2832 
2833 C_noret_decl(trf_10021)
2834 static void C_ccall trf_10021(C_word c,C_word *av) C_noret;
trf_10021(C_word c,C_word * av)2835 static void C_ccall trf_10021(C_word c,C_word *av){
2836 C_word t0=av[4];
2837 C_word t1=av[3];
2838 C_word t2=av[2];
2839 C_word t3=av[1];
2840 C_word t4=av[0];
2841 f_10021(t0,t1,t2,t3,t4);}
2842 
2843 C_noret_decl(trf_10024)
2844 static void C_ccall trf_10024(C_word c,C_word *av) C_noret;
trf_10024(C_word c,C_word * av)2845 static void C_ccall trf_10024(C_word c,C_word *av){
2846 C_word t0=av[1];
2847 C_word t1=av[0];
2848 f_10024(t0,t1);}
2849 
2850 C_noret_decl(trf_10240)
2851 static void C_ccall trf_10240(C_word c,C_word *av) C_noret;
trf_10240(C_word c,C_word * av)2852 static void C_ccall trf_10240(C_word c,C_word *av){
2853 C_word t0=av[2];
2854 C_word t1=av[1];
2855 C_word t2=av[0];
2856 f_10240(t0,t1,t2);}
2857 
2858 C_noret_decl(trf_10250)
2859 static void C_ccall trf_10250(C_word c,C_word *av) C_noret;
trf_10250(C_word c,C_word * av)2860 static void C_ccall trf_10250(C_word c,C_word *av){
2861 C_word t0=av[1];
2862 C_word t1=av[0];
2863 f_10250(t0,t1);}
2864 
2865 C_noret_decl(trf_10332)
2866 static void C_ccall trf_10332(C_word c,C_word *av) C_noret;
trf_10332(C_word c,C_word * av)2867 static void C_ccall trf_10332(C_word c,C_word *av){
2868 C_word t0=av[1];
2869 C_word t1=av[0];
2870 f_10332(t0,t1);}
2871 
2872 C_noret_decl(trf_10338)
2873 static void C_ccall trf_10338(C_word c,C_word *av) C_noret;
trf_10338(C_word c,C_word * av)2874 static void C_ccall trf_10338(C_word c,C_word *av){
2875 C_word t0=av[3];
2876 C_word t1=av[2];
2877 C_word t2=av[1];
2878 C_word t3=av[0];
2879 f_10338(t0,t1,t2,t3);}
2880 
2881 C_noret_decl(trf_10356)
2882 static void C_ccall trf_10356(C_word c,C_word *av) C_noret;
trf_10356(C_word c,C_word * av)2883 static void C_ccall trf_10356(C_word c,C_word *av){
2884 C_word t0=av[1];
2885 C_word t1=av[0];
2886 f_10356(t0,t1);}
2887 
2888 C_noret_decl(trf_10367)
2889 static void C_ccall trf_10367(C_word c,C_word *av) C_noret;
trf_10367(C_word c,C_word * av)2890 static void C_ccall trf_10367(C_word c,C_word *av){
2891 C_word t0=av[1];
2892 C_word t1=av[0];
2893 f_10367(t0,t1);}
2894 
2895 C_noret_decl(trf_10482)
2896 static void C_ccall trf_10482(C_word c,C_word *av) C_noret;
trf_10482(C_word c,C_word * av)2897 static void C_ccall trf_10482(C_word c,C_word *av){
2898 C_word t0=av[6];
2899 C_word t1=av[5];
2900 C_word t2=av[4];
2901 C_word t3=av[3];
2902 C_word t4=av[2];
2903 C_word t5=av[1];
2904 C_word t6=av[0];
2905 f_10482(t0,t1,t2,t3,t4,t5,t6);}
2906 
2907 C_noret_decl(trf_10507)
2908 static void C_ccall trf_10507(C_word c,C_word *av) C_noret;
trf_10507(C_word c,C_word * av)2909 static void C_ccall trf_10507(C_word c,C_word *av){
2910 C_word t0=av[2];
2911 C_word t1=av[1];
2912 C_word t2=av[0];
2913 f_10507(t0,t1,t2);}
2914 
2915 C_noret_decl(trf_10529)
2916 static void C_ccall trf_10529(C_word c,C_word *av) C_noret;
trf_10529(C_word c,C_word * av)2917 static void C_ccall trf_10529(C_word c,C_word *av){
2918 C_word t0=av[2];
2919 C_word t1=av[1];
2920 C_word t2=av[0];
2921 f_10529(t0,t1,t2);}
2922 
2923 C_noret_decl(trf_10563)
2924 static void C_ccall trf_10563(C_word c,C_word *av) C_noret;
trf_10563(C_word c,C_word * av)2925 static void C_ccall trf_10563(C_word c,C_word *av){
2926 C_word t0=av[1];
2927 C_word t1=av[0];
2928 f_10563(t0,t1);}
2929 
2930 C_noret_decl(trf_10583)
2931 static void C_ccall trf_10583(C_word c,C_word *av) C_noret;
trf_10583(C_word c,C_word * av)2932 static void C_ccall trf_10583(C_word c,C_word *av){
2933 C_word t0=av[1];
2934 C_word t1=av[0];
2935 f_10583(t0,t1);}
2936 
2937 C_noret_decl(trf_10599)
2938 static void C_ccall trf_10599(C_word c,C_word *av) C_noret;
trf_10599(C_word c,C_word * av)2939 static void C_ccall trf_10599(C_word c,C_word *av){
2940 C_word t0=av[1];
2941 C_word t1=av[0];
2942 f_10599(t0,t1);}
2943 
2944 C_noret_decl(trf_10655)
2945 static void C_ccall trf_10655(C_word c,C_word *av) C_noret;
trf_10655(C_word c,C_word * av)2946 static void C_ccall trf_10655(C_word c,C_word *av){
2947 C_word t0=av[1];
2948 C_word t1=av[0];
2949 f_10655(t0,t1);}
2950 
2951 C_noret_decl(trf_10662)
2952 static void C_ccall trf_10662(C_word c,C_word *av) C_noret;
trf_10662(C_word c,C_word * av)2953 static void C_ccall trf_10662(C_word c,C_word *av){
2954 C_word t0=av[1];
2955 C_word t1=av[0];
2956 f_10662(t0,t1);}
2957 
2958 C_noret_decl(trf_10665)
2959 static void C_ccall trf_10665(C_word c,C_word *av) C_noret;
trf_10665(C_word c,C_word * av)2960 static void C_ccall trf_10665(C_word c,C_word *av){
2961 C_word t0=av[1];
2962 C_word t1=av[0];
2963 f_10665(t0,t1);}
2964 
2965 C_noret_decl(trf_10673)
2966 static void C_ccall trf_10673(C_word c,C_word *av) C_noret;
trf_10673(C_word c,C_word * av)2967 static void C_ccall trf_10673(C_word c,C_word *av){
2968 C_word t0=av[4];
2969 C_word t1=av[3];
2970 C_word t2=av[2];
2971 C_word t3=av[1];
2972 C_word t4=av[0];
2973 f_10673(t0,t1,t2,t3,t4);}
2974 
2975 C_noret_decl(trf_10888)
2976 static void C_ccall trf_10888(C_word c,C_word *av) C_noret;
trf_10888(C_word c,C_word * av)2977 static void C_ccall trf_10888(C_word c,C_word *av){
2978 C_word t0=av[1];
2979 C_word t1=av[0];
2980 f_10888(t0,t1);}
2981 
2982 C_noret_decl(trf_10989)
2983 static void C_ccall trf_10989(C_word c,C_word *av) C_noret;
trf_10989(C_word c,C_word * av)2984 static void C_ccall trf_10989(C_word c,C_word *av){
2985 C_word t0=av[1];
2986 C_word t1=av[0];
2987 f_10989(t0,t1);}
2988 
2989 C_noret_decl(trf_11252)
2990 static void C_ccall trf_11252(C_word c,C_word *av) C_noret;
trf_11252(C_word c,C_word * av)2991 static void C_ccall trf_11252(C_word c,C_word *av){
2992 C_word t0=av[1];
2993 C_word t1=av[0];
2994 f_11252(t0,t1);}
2995 
2996 C_noret_decl(trf_11709)
2997 static void C_ccall trf_11709(C_word c,C_word *av) C_noret;
trf_11709(C_word c,C_word * av)2998 static void C_ccall trf_11709(C_word c,C_word *av){
2999 C_word t0=av[4];
3000 C_word t1=av[3];
3001 C_word t2=av[2];
3002 C_word t3=av[1];
3003 C_word t4=av[0];
3004 f_11709(t0,t1,t2,t3,t4);}
3005 
3006 C_noret_decl(trf_12045)
3007 static void C_ccall trf_12045(C_word c,C_word *av) C_noret;
trf_12045(C_word c,C_word * av)3008 static void C_ccall trf_12045(C_word c,C_word *av){
3009 C_word t0=av[1];
3010 C_word t1=av[0];
3011 f_12045(t0,t1);}
3012 
3013 C_noret_decl(trf_12088)
3014 static void C_ccall trf_12088(C_word c,C_word *av) C_noret;
trf_12088(C_word c,C_word * av)3015 static void C_ccall trf_12088(C_word c,C_word *av){
3016 C_word t0=av[1];
3017 C_word t1=av[0];
3018 f_12088(t0,t1);}
3019 
3020 C_noret_decl(trf_12695)
3021 static void C_ccall trf_12695(C_word c,C_word *av) C_noret;
trf_12695(C_word c,C_word * av)3022 static void C_ccall trf_12695(C_word c,C_word *av){
3023 C_word t0=av[1];
3024 C_word t1=av[0];
3025 f_12695(t0,t1);}
3026 
3027 C_noret_decl(trf_12775)
3028 static void C_ccall trf_12775(C_word c,C_word *av) C_noret;
trf_12775(C_word c,C_word * av)3029 static void C_ccall trf_12775(C_word c,C_word *av){
3030 C_word t0=av[2];
3031 C_word t1=av[1];
3032 C_word t2=av[0];
3033 f_12775(t0,t1,t2);}
3034 
3035 C_noret_decl(trf_13295)
3036 static void C_ccall trf_13295(C_word c,C_word *av) C_noret;
trf_13295(C_word c,C_word * av)3037 static void C_ccall trf_13295(C_word c,C_word *av){
3038 C_word t0=av[3];
3039 C_word t1=av[2];
3040 C_word t2=av[1];
3041 C_word t3=av[0];
3042 f_13295(t0,t1,t2,t3);}
3043 
3044 C_noret_decl(trf_13404)
3045 static void C_ccall trf_13404(C_word c,C_word *av) C_noret;
trf_13404(C_word c,C_word * av)3046 static void C_ccall trf_13404(C_word c,C_word *av){
3047 C_word t0=av[4];
3048 C_word t1=av[3];
3049 C_word t2=av[2];
3050 C_word t3=av[1];
3051 C_word t4=av[0];
3052 f_13404(t0,t1,t2,t3,t4);}
3053 
3054 C_noret_decl(trf_13477)
3055 static void C_ccall trf_13477(C_word c,C_word *av) C_noret;
trf_13477(C_word c,C_word * av)3056 static void C_ccall trf_13477(C_word c,C_word *av){
3057 C_word t0=av[1];
3058 C_word t1=av[0];
3059 f_13477(t0,t1);}
3060 
3061 C_noret_decl(trf_13554)
3062 static void C_ccall trf_13554(C_word c,C_word *av) C_noret;
trf_13554(C_word c,C_word * av)3063 static void C_ccall trf_13554(C_word c,C_word *av){
3064 C_word t0=av[1];
3065 C_word t1=av[0];
3066 f_13554(t0,t1);}
3067 
3068 C_noret_decl(trf_13566)
3069 static void C_ccall trf_13566(C_word c,C_word *av) C_noret;
trf_13566(C_word c,C_word * av)3070 static void C_ccall trf_13566(C_word c,C_word *av){
3071 C_word t0=av[1];
3072 C_word t1=av[0];
3073 f_13566(t0,t1);}
3074 
3075 C_noret_decl(trf_13688)
3076 static void C_ccall trf_13688(C_word c,C_word *av) C_noret;
trf_13688(C_word c,C_word * av)3077 static void C_ccall trf_13688(C_word c,C_word *av){
3078 C_word t0=av[1];
3079 C_word t1=av[0];
3080 f_13688(t0,t1);}
3081 
3082 C_noret_decl(trf_13801)
3083 static void C_ccall trf_13801(C_word c,C_word *av) C_noret;
trf_13801(C_word c,C_word * av)3084 static void C_ccall trf_13801(C_word c,C_word *av){
3085 C_word t0=av[1];
3086 C_word t1=av[0];
3087 f_13801(t0,t1);}
3088 
3089 C_noret_decl(trf_13918)
3090 static void C_ccall trf_13918(C_word c,C_word *av) C_noret;
trf_13918(C_word c,C_word * av)3091 static void C_ccall trf_13918(C_word c,C_word *av){
3092 C_word t0=av[1];
3093 C_word t1=av[0];
3094 f_13918(t0,t1);}
3095 
3096 C_noret_decl(trf_14029)
3097 static void C_ccall trf_14029(C_word c,C_word *av) C_noret;
trf_14029(C_word c,C_word * av)3098 static void C_ccall trf_14029(C_word c,C_word *av){
3099 C_word t0=av[3];
3100 C_word t1=av[2];
3101 C_word t2=av[1];
3102 C_word t3=av[0];
3103 f_14029(t0,t1,t2,t3);}
3104 
3105 C_noret_decl(trf_14224)
3106 static void C_ccall trf_14224(C_word c,C_word *av) C_noret;
trf_14224(C_word c,C_word * av)3107 static void C_ccall trf_14224(C_word c,C_word *av){
3108 C_word t0=av[2];
3109 C_word t1=av[1];
3110 C_word t2=av[0];
3111 f_14224(t0,t1,t2);}
3112 
3113 C_noret_decl(trf_14262)
3114 static void C_ccall trf_14262(C_word c,C_word *av) C_noret;
trf_14262(C_word c,C_word * av)3115 static void C_ccall trf_14262(C_word c,C_word *av){
3116 C_word t0=av[1];
3117 C_word t1=av[0];
3118 f_14262(t0,t1);}
3119 
3120 C_noret_decl(trf_14338)
3121 static void C_ccall trf_14338(C_word c,C_word *av) C_noret;
trf_14338(C_word c,C_word * av)3122 static void C_ccall trf_14338(C_word c,C_word *av){
3123 C_word t0=av[1];
3124 C_word t1=av[0];
3125 f_14338(t0,t1);}
3126 
3127 C_noret_decl(trf_14508)
3128 static void C_ccall trf_14508(C_word c,C_word *av) C_noret;
trf_14508(C_word c,C_word * av)3129 static void C_ccall trf_14508(C_word c,C_word *av){
3130 C_word t0=av[3];
3131 C_word t1=av[2];
3132 C_word t2=av[1];
3133 C_word t3=av[0];
3134 f_14508(t0,t1,t2,t3);}
3135 
3136 C_noret_decl(trf_14614)
3137 static void C_ccall trf_14614(C_word c,C_word *av) C_noret;
trf_14614(C_word c,C_word * av)3138 static void C_ccall trf_14614(C_word c,C_word *av){
3139 C_word t0=av[4];
3140 C_word t1=av[3];
3141 C_word t2=av[2];
3142 C_word t3=av[1];
3143 C_word t4=av[0];
3144 f_14614(t0,t1,t2,t3,t4);}
3145 
3146 C_noret_decl(trf_14680)
3147 static void C_ccall trf_14680(C_word c,C_word *av) C_noret;
trf_14680(C_word c,C_word * av)3148 static void C_ccall trf_14680(C_word c,C_word *av){
3149 C_word t0=av[2];
3150 C_word t1=av[1];
3151 C_word t2=av[0];
3152 f_14680(t0,t1,t2);}
3153 
3154 C_noret_decl(trf_14716)
3155 static void C_ccall trf_14716(C_word c,C_word *av) C_noret;
trf_14716(C_word c,C_word * av)3156 static void C_ccall trf_14716(C_word c,C_word *av){
3157 C_word t0=av[2];
3158 C_word t1=av[1];
3159 C_word t2=av[0];
3160 f_14716(t0,t1,t2);}
3161 
3162 C_noret_decl(trf_14752)
3163 static void C_ccall trf_14752(C_word c,C_word *av) C_noret;
trf_14752(C_word c,C_word * av)3164 static void C_ccall trf_14752(C_word c,C_word *av){
3165 C_word t0=av[1];
3166 C_word t1=av[0];
3167 f_14752(t0,t1);}
3168 
3169 C_noret_decl(trf_14837)
3170 static void C_ccall trf_14837(C_word c,C_word *av) C_noret;
trf_14837(C_word c,C_word * av)3171 static void C_ccall trf_14837(C_word c,C_word *av){
3172 C_word t0=av[2];
3173 C_word t1=av[1];
3174 C_word t2=av[0];
3175 f_14837(t0,t1,t2);}
3176 
3177 C_noret_decl(trf_14891)
3178 static void C_ccall trf_14891(C_word c,C_word *av) C_noret;
trf_14891(C_word c,C_word * av)3179 static void C_ccall trf_14891(C_word c,C_word *av){
3180 C_word t0=av[1];
3181 C_word t1=av[0];
3182 f_14891(t0,t1);}
3183 
3184 C_noret_decl(trf_14976)
3185 static void C_ccall trf_14976(C_word c,C_word *av) C_noret;
trf_14976(C_word c,C_word * av)3186 static void C_ccall trf_14976(C_word c,C_word *av){
3187 C_word t0=av[2];
3188 C_word t1=av[1];
3189 C_word t2=av[0];
3190 f_14976(t0,t1,t2);}
3191 
3192 C_noret_decl(trf_15050)
3193 static void C_ccall trf_15050(C_word c,C_word *av) C_noret;
trf_15050(C_word c,C_word * av)3194 static void C_ccall trf_15050(C_word c,C_word *av){
3195 C_word t0=av[2];
3196 C_word t1=av[1];
3197 C_word t2=av[0];
3198 f_15050(t0,t1,t2);}
3199 
3200 C_noret_decl(trf_15062)
3201 static void C_ccall trf_15062(C_word c,C_word *av) C_noret;
trf_15062(C_word c,C_word * av)3202 static void C_ccall trf_15062(C_word c,C_word *av){
3203 C_word t0=av[1];
3204 C_word t1=av[0];
3205 f_15062(t0,t1);}
3206 
3207 C_noret_decl(trf_15082)
3208 static void C_ccall trf_15082(C_word c,C_word *av) C_noret;
trf_15082(C_word c,C_word * av)3209 static void C_ccall trf_15082(C_word c,C_word *av){
3210 C_word t0=av[2];
3211 C_word t1=av[1];
3212 C_word t2=av[0];
3213 f_15082(t0,t1,t2);}
3214 
3215 C_noret_decl(trf_15185)
3216 static void C_ccall trf_15185(C_word c,C_word *av) C_noret;
trf_15185(C_word c,C_word * av)3217 static void C_ccall trf_15185(C_word c,C_word *av){
3218 C_word t0=av[2];
3219 C_word t1=av[1];
3220 C_word t2=av[0];
3221 f_15185(t0,t1,t2);}
3222 
3223 C_noret_decl(trf_15253)
3224 static void C_ccall trf_15253(C_word c,C_word *av) C_noret;
trf_15253(C_word c,C_word * av)3225 static void C_ccall trf_15253(C_word c,C_word *av){
3226 C_word t0=av[2];
3227 C_word t1=av[1];
3228 C_word t2=av[0];
3229 f_15253(t0,t1,t2);}
3230 
3231 C_noret_decl(trf_15323)
3232 static void C_ccall trf_15323(C_word c,C_word *av) C_noret;
trf_15323(C_word c,C_word * av)3233 static void C_ccall trf_15323(C_word c,C_word *av){
3234 C_word t0=av[2];
3235 C_word t1=av[1];
3236 C_word t2=av[0];
3237 f_15323(t0,t1,t2);}
3238 
3239 C_noret_decl(trf_15414)
3240 static void C_ccall trf_15414(C_word c,C_word *av) C_noret;
trf_15414(C_word c,C_word * av)3241 static void C_ccall trf_15414(C_word c,C_word *av){
3242 C_word t0=av[2];
3243 C_word t1=av[1];
3244 C_word t2=av[0];
3245 f_15414(t0,t1,t2);}
3246 
3247 C_noret_decl(trf_15469)
3248 static void C_ccall trf_15469(C_word c,C_word *av) C_noret;
trf_15469(C_word c,C_word * av)3249 static void C_ccall trf_15469(C_word c,C_word *av){
3250 C_word t0=av[1];
3251 C_word t1=av[0];
3252 f_15469(t0,t1);}
3253 
3254 C_noret_decl(trf_15479)
3255 static void C_ccall trf_15479(C_word c,C_word *av) C_noret;
trf_15479(C_word c,C_word * av)3256 static void C_ccall trf_15479(C_word c,C_word *av){
3257 C_word t0=av[4];
3258 C_word t1=av[3];
3259 C_word t2=av[2];
3260 C_word t3=av[1];
3261 C_word t4=av[0];
3262 f_15479(t0,t1,t2,t3,t4);}
3263 
3264 C_noret_decl(trf_15524)
3265 static void C_ccall trf_15524(C_word c,C_word *av) C_noret;
trf_15524(C_word c,C_word * av)3266 static void C_ccall trf_15524(C_word c,C_word *av){
3267 C_word t0=av[1];
3268 C_word t1=av[0];
3269 f_15524(t0,t1);}
3270 
3271 C_noret_decl(trf_15591)
3272 static void C_ccall trf_15591(C_word c,C_word *av) C_noret;
trf_15591(C_word c,C_word * av)3273 static void C_ccall trf_15591(C_word c,C_word *av){
3274 C_word t0=av[4];
3275 C_word t1=av[3];
3276 C_word t2=av[2];
3277 C_word t3=av[1];
3278 C_word t4=av[0];
3279 f_15591(t0,t1,t2,t3,t4);}
3280 
3281 C_noret_decl(trf_15594)
3282 static void C_ccall trf_15594(C_word c,C_word *av) C_noret;
trf_15594(C_word c,C_word * av)3283 static void C_ccall trf_15594(C_word c,C_word *av){
3284 C_word t0=av[2];
3285 C_word t1=av[1];
3286 C_word t2=av[0];
3287 f_15594(t0,t1,t2);}
3288 
3289 C_noret_decl(trf_15651)
3290 static void C_ccall trf_15651(C_word c,C_word *av) C_noret;
trf_15651(C_word c,C_word * av)3291 static void C_ccall trf_15651(C_word c,C_word *av){
3292 C_word t0=av[2];
3293 C_word t1=av[1];
3294 C_word t2=av[0];
3295 f_15651(t0,t1,t2);}
3296 
3297 C_noret_decl(trf_15664)
3298 static void C_ccall trf_15664(C_word c,C_word *av) C_noret;
trf_15664(C_word c,C_word * av)3299 static void C_ccall trf_15664(C_word c,C_word *av){
3300 C_word t0=av[2];
3301 C_word t1=av[1];
3302 C_word t2=av[0];
3303 f_15664(t0,t1,t2);}
3304 
3305 C_noret_decl(trf_15712)
3306 static void C_ccall trf_15712(C_word c,C_word *av) C_noret;
trf_15712(C_word c,C_word * av)3307 static void C_ccall trf_15712(C_word c,C_word *av){
3308 C_word t0=av[2];
3309 C_word t1=av[1];
3310 C_word t2=av[0];
3311 f_15712(t0,t1,t2);}
3312 
3313 C_noret_decl(trf_15725)
3314 static void C_ccall trf_15725(C_word c,C_word *av) C_noret;
trf_15725(C_word c,C_word * av)3315 static void C_ccall trf_15725(C_word c,C_word *av){
3316 C_word t0=av[2];
3317 C_word t1=av[1];
3318 C_word t2=av[0];
3319 f_15725(t0,t1,t2);}
3320 
3321 C_noret_decl(trf_15766)
3322 static void C_ccall trf_15766(C_word c,C_word *av) C_noret;
trf_15766(C_word c,C_word * av)3323 static void C_ccall trf_15766(C_word c,C_word *av){
3324 C_word t0=av[1];
3325 C_word t1=av[0];
3326 f_15766(t0,t1);}
3327 
3328 C_noret_decl(trf_15835)
3329 static void C_ccall trf_15835(C_word c,C_word *av) C_noret;
trf_15835(C_word c,C_word * av)3330 static void C_ccall trf_15835(C_word c,C_word *av){
3331 C_word t0=av[2];
3332 C_word t1=av[1];
3333 C_word t2=av[0];
3334 f_15835(t0,t1,t2);}
3335 
3336 C_noret_decl(trf_15891)
3337 static void C_ccall trf_15891(C_word c,C_word *av) C_noret;
trf_15891(C_word c,C_word * av)3338 static void C_ccall trf_15891(C_word c,C_word *av){
3339 C_word t0=av[2];
3340 C_word t1=av[1];
3341 C_word t2=av[0];
3342 f_15891(t0,t1,t2);}
3343 
3344 C_noret_decl(trf_15974)
3345 static void C_ccall trf_15974(C_word c,C_word *av) C_noret;
trf_15974(C_word c,C_word * av)3346 static void C_ccall trf_15974(C_word c,C_word *av){
3347 C_word t0=av[1];
3348 C_word t1=av[0];
3349 f_15974(t0,t1);}
3350 
3351 C_noret_decl(trf_15989)
3352 static void C_ccall trf_15989(C_word c,C_word *av) C_noret;
trf_15989(C_word c,C_word * av)3353 static void C_ccall trf_15989(C_word c,C_word *av){
3354 C_word t0=av[2];
3355 C_word t1=av[1];
3356 C_word t2=av[0];
3357 f_15989(t0,t1,t2);}
3358 
3359 C_noret_decl(trf_16239)
3360 static void C_ccall trf_16239(C_word c,C_word *av) C_noret;
trf_16239(C_word c,C_word * av)3361 static void C_ccall trf_16239(C_word c,C_word *av){
3362 C_word t0=av[2];
3363 C_word t1=av[1];
3364 C_word t2=av[0];
3365 f_16239(t0,t1,t2);}
3366 
3367 C_noret_decl(trf_16269)
3368 static void C_ccall trf_16269(C_word c,C_word *av) C_noret;
trf_16269(C_word c,C_word * av)3369 static void C_ccall trf_16269(C_word c,C_word *av){
3370 C_word t0=av[2];
3371 C_word t1=av[1];
3372 C_word t2=av[0];
3373 f_16269(t0,t1,t2);}
3374 
3375 C_noret_decl(trf_16324)
3376 static void C_ccall trf_16324(C_word c,C_word *av) C_noret;
trf_16324(C_word c,C_word * av)3377 static void C_ccall trf_16324(C_word c,C_word *av){
3378 C_word t0=av[1];
3379 C_word t1=av[0];
3380 f_16324(t0,t1);}
3381 
3382 C_noret_decl(trf_16367)
3383 static void C_ccall trf_16367(C_word c,C_word *av) C_noret;
trf_16367(C_word c,C_word * av)3384 static void C_ccall trf_16367(C_word c,C_word *av){
3385 C_word t0=av[1];
3386 C_word t1=av[0];
3387 f_16367(t0,t1);}
3388 
3389 C_noret_decl(trf_16497)
3390 static void C_ccall trf_16497(C_word c,C_word *av) C_noret;
trf_16497(C_word c,C_word * av)3391 static void C_ccall trf_16497(C_word c,C_word *av){
3392 C_word t0=av[1];
3393 C_word t1=av[0];
3394 f_16497(t0,t1);}
3395 
3396 C_noret_decl(trf_16637)
3397 static void C_ccall trf_16637(C_word c,C_word *av) C_noret;
trf_16637(C_word c,C_word * av)3398 static void C_ccall trf_16637(C_word c,C_word *av){
3399 C_word t0=av[1];
3400 C_word t1=av[0];
3401 f_16637(t0,t1);}
3402 
3403 C_noret_decl(trf_16750)
3404 static void C_ccall trf_16750(C_word c,C_word *av) C_noret;
trf_16750(C_word c,C_word * av)3405 static void C_ccall trf_16750(C_word c,C_word *av){
3406 C_word t0=av[1];
3407 C_word t1=av[0];
3408 f_16750(t0,t1);}
3409 
3410 C_noret_decl(trf_16867)
3411 static void C_ccall trf_16867(C_word c,C_word *av) C_noret;
trf_16867(C_word c,C_word * av)3412 static void C_ccall trf_16867(C_word c,C_word *av){
3413 C_word t0=av[1];
3414 C_word t1=av[0];
3415 f_16867(t0,t1);}
3416 
3417 C_noret_decl(trf_16982)
3418 static void C_ccall trf_16982(C_word c,C_word *av) C_noret;
trf_16982(C_word c,C_word * av)3419 static void C_ccall trf_16982(C_word c,C_word *av){
3420 C_word t0=av[1];
3421 C_word t1=av[0];
3422 f_16982(t0,t1);}
3423 
3424 C_noret_decl(trf_17015)
3425 static void C_ccall trf_17015(C_word c,C_word *av) C_noret;
trf_17015(C_word c,C_word * av)3426 static void C_ccall trf_17015(C_word c,C_word *av){
3427 C_word t0=av[1];
3428 C_word t1=av[0];
3429 f_17015(t0,t1);}
3430 
3431 C_noret_decl(trf_17094)
3432 static void C_ccall trf_17094(C_word c,C_word *av) C_noret;
trf_17094(C_word c,C_word * av)3433 static void C_ccall trf_17094(C_word c,C_word *av){
3434 C_word t0=av[6];
3435 C_word t1=av[5];
3436 C_word t2=av[4];
3437 C_word t3=av[3];
3438 C_word t4=av[2];
3439 C_word t5=av[1];
3440 C_word t6=av[0];
3441 f_17094(t0,t1,t2,t3,t4,t5,t6);}
3442 
3443 C_noret_decl(trf_17097)
3444 static void C_ccall trf_17097(C_word c,C_word *av) C_noret;
trf_17097(C_word c,C_word * av)3445 static void C_ccall trf_17097(C_word c,C_word *av){
3446 C_word t0=av[2];
3447 C_word t1=av[1];
3448 C_word t2=av[0];
3449 f_17097(t0,t1,t2);}
3450 
3451 C_noret_decl(trf_17137)
3452 static void C_ccall trf_17137(C_word c,C_word *av) C_noret;
trf_17137(C_word c,C_word * av)3453 static void C_ccall trf_17137(C_word c,C_word *av){
3454 C_word t0=av[1];
3455 C_word t1=av[0];
3456 f_17137(t0,t1);}
3457 
3458 C_noret_decl(trf_17166)
3459 static void C_ccall trf_17166(C_word c,C_word *av) C_noret;
trf_17166(C_word c,C_word * av)3460 static void C_ccall trf_17166(C_word c,C_word *av){
3461 C_word t0=av[1];
3462 C_word t1=av[0];
3463 f_17166(t0,t1);}
3464 
3465 C_noret_decl(trf_17173)
3466 static void C_ccall trf_17173(C_word c,C_word *av) C_noret;
trf_17173(C_word c,C_word * av)3467 static void C_ccall trf_17173(C_word c,C_word *av){
3468 C_word t0=av[5];
3469 C_word t1=av[4];
3470 C_word t2=av[3];
3471 C_word t3=av[2];
3472 C_word t4=av[1];
3473 C_word t5=av[0];
3474 f_17173(t0,t1,t2,t3,t4,t5);}
3475 
3476 C_noret_decl(trf_17251)
3477 static void C_ccall trf_17251(C_word c,C_word *av) C_noret;
trf_17251(C_word c,C_word * av)3478 static void C_ccall trf_17251(C_word c,C_word *av){
3479 C_word t0=av[5];
3480 C_word t1=av[4];
3481 C_word t2=av[3];
3482 C_word t3=av[2];
3483 C_word t4=av[1];
3484 C_word t5=av[0];
3485 f_17251(t0,t1,t2,t3,t4,t5);}
3486 
3487 C_noret_decl(trf_17354)
3488 static void C_ccall trf_17354(C_word c,C_word *av) C_noret;
trf_17354(C_word c,C_word * av)3489 static void C_ccall trf_17354(C_word c,C_word *av){
3490 C_word t0=av[1];
3491 C_word t1=av[0];
3492 f_17354(t0,t1);}
3493 
3494 C_noret_decl(trf_17490)
3495 static void C_ccall trf_17490(C_word c,C_word *av) C_noret;
trf_17490(C_word c,C_word * av)3496 static void C_ccall trf_17490(C_word c,C_word *av){
3497 C_word t0=av[1];
3498 C_word t1=av[0];
3499 f_17490(t0,t1);}
3500 
3501 C_noret_decl(trf_17548)
3502 static void C_ccall trf_17548(C_word c,C_word *av) C_noret;
trf_17548(C_word c,C_word * av)3503 static void C_ccall trf_17548(C_word c,C_word *av){
3504 C_word t0=av[1];
3505 C_word t1=av[0];
3506 f_17548(t0,t1);}
3507 
3508 C_noret_decl(trf_17675)
3509 static void C_ccall trf_17675(C_word c,C_word *av) C_noret;
trf_17675(C_word c,C_word * av)3510 static void C_ccall trf_17675(C_word c,C_word *av){
3511 C_word t0=av[1];
3512 C_word t1=av[0];
3513 f_17675(t0,t1);}
3514 
3515 C_noret_decl(trf_17678)
3516 static void C_ccall trf_17678(C_word c,C_word *av) C_noret;
trf_17678(C_word c,C_word * av)3517 static void C_ccall trf_17678(C_word c,C_word *av){
3518 C_word t0=av[1];
3519 C_word t1=av[0];
3520 f_17678(t0,t1);}
3521 
3522 C_noret_decl(trf_17870)
3523 static void C_ccall trf_17870(C_word c,C_word *av) C_noret;
trf_17870(C_word c,C_word * av)3524 static void C_ccall trf_17870(C_word c,C_word *av){
3525 C_word t0=av[1];
3526 C_word t1=av[0];
3527 f_17870(t0,t1);}
3528 
3529 C_noret_decl(trf_17889)
3530 static void C_ccall trf_17889(C_word c,C_word *av) C_noret;
trf_17889(C_word c,C_word * av)3531 static void C_ccall trf_17889(C_word c,C_word *av){
3532 C_word t0=av[1];
3533 C_word t1=av[0];
3534 f_17889(t0,t1);}
3535 
3536 C_noret_decl(trf_17910)
3537 static void C_ccall trf_17910(C_word c,C_word *av) C_noret;
trf_17910(C_word c,C_word * av)3538 static void C_ccall trf_17910(C_word c,C_word *av){
3539 C_word t0=av[1];
3540 C_word t1=av[0];
3541 f_17910(t0,t1);}
3542 
3543 C_noret_decl(trf_17920)
3544 static void C_ccall trf_17920(C_word c,C_word *av) C_noret;
trf_17920(C_word c,C_word * av)3545 static void C_ccall trf_17920(C_word c,C_word *av){
3546 C_word t0=av[2];
3547 C_word t1=av[1];
3548 C_word t2=av[0];
3549 f_17920(t0,t1,t2);}
3550 
3551 C_noret_decl(trf_18310)
3552 static void C_ccall trf_18310(C_word c,C_word *av) C_noret;
trf_18310(C_word c,C_word * av)3553 static void C_ccall trf_18310(C_word c,C_word *av){
3554 C_word t0=av[2];
3555 C_word t1=av[1];
3556 C_word t2=av[0];
3557 f_18310(t0,t1,t2);}
3558 
3559 C_noret_decl(trf_18370)
3560 static void C_ccall trf_18370(C_word c,C_word *av) C_noret;
trf_18370(C_word c,C_word * av)3561 static void C_ccall trf_18370(C_word c,C_word *av){
3562 C_word t0=av[3];
3563 C_word t1=av[2];
3564 C_word t2=av[1];
3565 C_word t3=av[0];
3566 f_18370(t0,t1,t2,t3);}
3567 
3568 C_noret_decl(trf_18418)
3569 static void C_ccall trf_18418(C_word c,C_word *av) C_noret;
trf_18418(C_word c,C_word * av)3570 static void C_ccall trf_18418(C_word c,C_word *av){
3571 C_word t0=av[3];
3572 C_word t1=av[2];
3573 C_word t2=av[1];
3574 C_word t3=av[0];
3575 f_18418(t0,t1,t2,t3);}
3576 
3577 C_noret_decl(trf_18520)
3578 static void C_ccall trf_18520(C_word c,C_word *av) C_noret;
trf_18520(C_word c,C_word * av)3579 static void C_ccall trf_18520(C_word c,C_word *av){
3580 C_word t0=av[1];
3581 C_word t1=av[0];
3582 f_18520(t0,t1);}
3583 
3584 C_noret_decl(trf_18704)
3585 static void C_ccall trf_18704(C_word c,C_word *av) C_noret;
trf_18704(C_word c,C_word * av)3586 static void C_ccall trf_18704(C_word c,C_word *av){
3587 C_word t0=av[3];
3588 C_word t1=av[2];
3589 C_word t2=av[1];
3590 C_word t3=av[0];
3591 f_18704(t0,t1,t2,t3);}
3592 
3593 C_noret_decl(trf_18753)
3594 static void C_ccall trf_18753(C_word c,C_word *av) C_noret;
trf_18753(C_word c,C_word * av)3595 static void C_ccall trf_18753(C_word c,C_word *av){
3596 C_word t0=av[1];
3597 C_word t1=av[0];
3598 f_18753(t0,t1);}
3599 
3600 C_noret_decl(trf_18825)
3601 static void C_ccall trf_18825(C_word c,C_word *av) C_noret;
trf_18825(C_word c,C_word * av)3602 static void C_ccall trf_18825(C_word c,C_word *av){
3603 C_word t0=av[2];
3604 C_word t1=av[1];
3605 C_word t2=av[0];
3606 f_18825(t0,t1,t2);}
3607 
3608 C_noret_decl(trf_18933)
3609 static void C_ccall trf_18933(C_word c,C_word *av) C_noret;
trf_18933(C_word c,C_word * av)3610 static void C_ccall trf_18933(C_word c,C_word *av){
3611 C_word t0=av[1];
3612 C_word t1=av[0];
3613 f_18933(t0,t1);}
3614 
3615 C_noret_decl(trf_19053)
3616 static void C_ccall trf_19053(C_word c,C_word *av) C_noret;
trf_19053(C_word c,C_word * av)3617 static void C_ccall trf_19053(C_word c,C_word *av){
3618 C_word t0=av[6];
3619 C_word t1=av[5];
3620 C_word t2=av[4];
3621 C_word t3=av[3];
3622 C_word t4=av[2];
3623 C_word t5=av[1];
3624 C_word t6=av[0];
3625 f_19053(t0,t1,t2,t3,t4,t5,t6);}
3626 
3627 C_noret_decl(trf_19114)
3628 static void C_ccall trf_19114(C_word c,C_word *av) C_noret;
trf_19114(C_word c,C_word * av)3629 static void C_ccall trf_19114(C_word c,C_word *av){
3630 C_word t0=av[3];
3631 C_word t1=av[2];
3632 C_word t2=av[1];
3633 C_word t3=av[0];
3634 f_19114(t0,t1,t2,t3);}
3635 
3636 C_noret_decl(trf_19123)
3637 static void C_ccall trf_19123(C_word c,C_word *av) C_noret;
trf_19123(C_word c,C_word * av)3638 static void C_ccall trf_19123(C_word c,C_word *av){
3639 C_word t0=av[2];
3640 C_word t1=av[1];
3641 C_word t2=av[0];
3642 f_19123(t0,t1,t2);}
3643 
3644 C_noret_decl(trf_19228)
3645 static void C_ccall trf_19228(C_word c,C_word *av) C_noret;
trf_19228(C_word c,C_word * av)3646 static void C_ccall trf_19228(C_word c,C_word *av){
3647 C_word t0=av[5];
3648 C_word t1=av[4];
3649 C_word t2=av[3];
3650 C_word t3=av[2];
3651 C_word t4=av[1];
3652 C_word t5=av[0];
3653 f_19228(t0,t1,t2,t3,t4,t5);}
3654 
3655 C_noret_decl(trf_19315)
3656 static void C_ccall trf_19315(C_word c,C_word *av) C_noret;
trf_19315(C_word c,C_word * av)3657 static void C_ccall trf_19315(C_word c,C_word *av){
3658 C_word t0=av[1];
3659 C_word t1=av[0];
3660 f_19315(t0,t1);}
3661 
3662 C_noret_decl(trf_19518)
3663 static void C_ccall trf_19518(C_word c,C_word *av) C_noret;
trf_19518(C_word c,C_word * av)3664 static void C_ccall trf_19518(C_word c,C_word *av){
3665 C_word t0=av[2];
3666 C_word t1=av[1];
3667 C_word t2=av[0];
3668 f_19518(t0,t1,t2);}
3669 
3670 C_noret_decl(trf_19528)
3671 static void C_ccall trf_19528(C_word c,C_word *av) C_noret;
trf_19528(C_word c,C_word * av)3672 static void C_ccall trf_19528(C_word c,C_word *av){
3673 C_word t0=av[1];
3674 C_word t1=av[0];
3675 f_19528(t0,t1);}
3676 
3677 C_noret_decl(trf_19678)
3678 static void C_ccall trf_19678(C_word c,C_word *av) C_noret;
trf_19678(C_word c,C_word * av)3679 static void C_ccall trf_19678(C_word c,C_word *av){
3680 C_word t0=av[4];
3681 C_word t1=av[3];
3682 C_word t2=av[2];
3683 C_word t3=av[1];
3684 C_word t4=av[0];
3685 f_19678(t0,t1,t2,t3,t4);}
3686 
3687 C_noret_decl(trf_19693)
3688 static void C_ccall trf_19693(C_word c,C_word *av) C_noret;
trf_19693(C_word c,C_word * av)3689 static void C_ccall trf_19693(C_word c,C_word *av){
3690 C_word t0=av[3];
3691 C_word t1=av[2];
3692 C_word t2=av[1];
3693 C_word t3=av[0];
3694 f_19693(t0,t1,t2,t3);}
3695 
3696 C_noret_decl(trf_19816)
3697 static void C_ccall trf_19816(C_word c,C_word *av) C_noret;
trf_19816(C_word c,C_word * av)3698 static void C_ccall trf_19816(C_word c,C_word *av){
3699 C_word t0=av[3];
3700 C_word t1=av[2];
3701 C_word t2=av[1];
3702 C_word t3=av[0];
3703 f_19816(t0,t1,t2,t3);}
3704 
3705 C_noret_decl(trf_19876)
3706 static void C_ccall trf_19876(C_word c,C_word *av) C_noret;
trf_19876(C_word c,C_word * av)3707 static void C_ccall trf_19876(C_word c,C_word *av){
3708 C_word t0=av[2];
3709 C_word t1=av[1];
3710 C_word t2=av[0];
3711 f_19876(t0,t1,t2);}
3712 
3713 C_noret_decl(trf_19913)
3714 static void C_ccall trf_19913(C_word c,C_word *av) C_noret;
trf_19913(C_word c,C_word * av)3715 static void C_ccall trf_19913(C_word c,C_word *av){
3716 C_word t0=av[2];
3717 C_word t1=av[1];
3718 C_word t2=av[0];
3719 f_19913(t0,t1,t2);}
3720 
3721 C_noret_decl(trf_19935)
3722 static void C_ccall trf_19935(C_word c,C_word *av) C_noret;
trf_19935(C_word c,C_word * av)3723 static void C_ccall trf_19935(C_word c,C_word *av){
3724 C_word t0=av[8];
3725 C_word t1=av[7];
3726 C_word t2=av[6];
3727 C_word t3=av[5];
3728 C_word t4=av[4];
3729 C_word t5=av[3];
3730 C_word t6=av[2];
3731 C_word t7=av[1];
3732 C_word t8=av[0];
3733 f_19935(t0,t1,t2,t3,t4,t5,t6,t7,t8);}
3734 
3735 C_noret_decl(trf_19972)
3736 static void C_ccall trf_19972(C_word c,C_word *av) C_noret;
trf_19972(C_word c,C_word * av)3737 static void C_ccall trf_19972(C_word c,C_word *av){
3738 C_word t0=av[1];
3739 C_word t1=av[0];
3740 f_19972(t0,t1);}
3741 
3742 C_noret_decl(trf_19988)
3743 static void C_ccall trf_19988(C_word c,C_word *av) C_noret;
trf_19988(C_word c,C_word * av)3744 static void C_ccall trf_19988(C_word c,C_word *av){
3745 C_word t0=av[7];
3746 C_word t1=av[6];
3747 C_word t2=av[5];
3748 C_word t3=av[4];
3749 C_word t4=av[3];
3750 C_word t5=av[2];
3751 C_word t6=av[1];
3752 C_word t7=av[0];
3753 f_19988(t0,t1,t2,t3,t4,t5,t6,t7);}
3754 
3755 C_noret_decl(trf_20000)
3756 static void C_ccall trf_20000(C_word c,C_word *av) C_noret;
trf_20000(C_word c,C_word * av)3757 static void C_ccall trf_20000(C_word c,C_word *av){
3758 C_word t0=av[6];
3759 C_word t1=av[5];
3760 C_word t2=av[4];
3761 C_word t3=av[3];
3762 C_word t4=av[2];
3763 C_word t5=av[1];
3764 C_word t6=av[0];
3765 f_20000(t0,t1,t2,t3,t4,t5,t6);}
3766 
3767 C_noret_decl(trf_20010)
3768 static void C_ccall trf_20010(C_word c,C_word *av) C_noret;
trf_20010(C_word c,C_word * av)3769 static void C_ccall trf_20010(C_word c,C_word *av){
3770 C_word t0=av[1];
3771 C_word t1=av[0];
3772 f_20010(t0,t1);}
3773 
3774 C_noret_decl(trf_20185)
3775 static void C_ccall trf_20185(C_word c,C_word *av) C_noret;
trf_20185(C_word c,C_word * av)3776 static void C_ccall trf_20185(C_word c,C_word *av){
3777 C_word t0=av[2];
3778 C_word t1=av[1];
3779 C_word t2=av[0];
3780 f_20185(t0,t1,t2);}
3781 
3782 C_noret_decl(trf_20226)
3783 static void C_ccall trf_20226(C_word c,C_word *av) C_noret;
trf_20226(C_word c,C_word * av)3784 static void C_ccall trf_20226(C_word c,C_word *av){
3785 C_word t0=av[2];
3786 C_word t1=av[1];
3787 C_word t2=av[0];
3788 f_20226(t0,t1,t2);}
3789 
3790 C_noret_decl(trf_20249)
3791 static void C_ccall trf_20249(C_word c,C_word *av) C_noret;
trf_20249(C_word c,C_word * av)3792 static void C_ccall trf_20249(C_word c,C_word *av){
3793 C_word t0=av[2];
3794 C_word t1=av[1];
3795 C_word t2=av[0];
3796 f_20249(t0,t1,t2);}
3797 
3798 C_noret_decl(trf_20283)
3799 static void C_ccall trf_20283(C_word c,C_word *av) C_noret;
trf_20283(C_word c,C_word * av)3800 static void C_ccall trf_20283(C_word c,C_word *av){
3801 C_word t0=av[2];
3802 C_word t1=av[1];
3803 C_word t2=av[0];
3804 f_20283(t0,t1,t2);}
3805 
3806 C_noret_decl(trf_20319)
3807 static void C_ccall trf_20319(C_word c,C_word *av) C_noret;
trf_20319(C_word c,C_word * av)3808 static void C_ccall trf_20319(C_word c,C_word *av){
3809 C_word t0=av[1];
3810 C_word t1=av[0];
3811 f_20319(t0,t1);}
3812 
3813 C_noret_decl(trf_20361)
3814 static void C_ccall trf_20361(C_word c,C_word *av) C_noret;
trf_20361(C_word c,C_word * av)3815 static void C_ccall trf_20361(C_word c,C_word *av){
3816 C_word t0=av[1];
3817 C_word t1=av[0];
3818 f_20361(t0,t1);}
3819 
3820 C_noret_decl(trf_20457)
3821 static void C_ccall trf_20457(C_word c,C_word *av) C_noret;
trf_20457(C_word c,C_word * av)3822 static void C_ccall trf_20457(C_word c,C_word *av){
3823 C_word t0=av[2];
3824 C_word t1=av[1];
3825 C_word t2=av[0];
3826 f_20457(t0,t1,t2);}
3827 
3828 C_noret_decl(trf_20757)
3829 static void C_ccall trf_20757(C_word c,C_word *av) C_noret;
trf_20757(C_word c,C_word * av)3830 static void C_ccall trf_20757(C_word c,C_word *av){
3831 C_word t0=av[2];
3832 C_word t1=av[1];
3833 C_word t2=av[0];
3834 f_20757(t0,t1,t2);}
3835 
3836 C_noret_decl(trf_20766)
3837 static void C_ccall trf_20766(C_word c,C_word *av) C_noret;
trf_20766(C_word c,C_word * av)3838 static void C_ccall trf_20766(C_word c,C_word *av){
3839 C_word t0=av[5];
3840 C_word t1=av[4];
3841 C_word t2=av[3];
3842 C_word t3=av[2];
3843 C_word t4=av[1];
3844 C_word t5=av[0];
3845 f_20766(t0,t1,t2,t3,t4,t5);}
3846 
3847 C_noret_decl(trf_20769)
3848 static void C_ccall trf_20769(C_word c,C_word *av) C_noret;
trf_20769(C_word c,C_word * av)3849 static void C_ccall trf_20769(C_word c,C_word *av){
3850 C_word t0=av[2];
3851 C_word t1=av[1];
3852 C_word t2=av[0];
3853 f_20769(t0,t1,t2);}
3854 
3855 C_noret_decl(trf_20779)
3856 static void C_ccall trf_20779(C_word c,C_word *av) C_noret;
trf_20779(C_word c,C_word * av)3857 static void C_ccall trf_20779(C_word c,C_word *av){
3858 C_word t0=av[3];
3859 C_word t1=av[2];
3860 C_word t2=av[1];
3861 C_word t3=av[0];
3862 f_20779(t0,t1,t2,t3);}
3863 
3864 C_noret_decl(trf_20783)
3865 static void C_ccall trf_20783(C_word c,C_word *av) C_noret;
trf_20783(C_word c,C_word * av)3866 static void C_ccall trf_20783(C_word c,C_word *av){
3867 C_word t0=av[1];
3868 C_word t1=av[0];
3869 f_20783(t0,t1);}
3870 
3871 C_noret_decl(trf_20804)
3872 static void C_ccall trf_20804(C_word c,C_word *av) C_noret;
trf_20804(C_word c,C_word * av)3873 static void C_ccall trf_20804(C_word c,C_word *av){
3874 C_word t0=av[2];
3875 C_word t1=av[1];
3876 C_word t2=av[0];
3877 f_20804(t0,t1,t2);}
3878 
3879 C_noret_decl(trf_20840)
3880 static void C_ccall trf_20840(C_word c,C_word *av) C_noret;
trf_20840(C_word c,C_word * av)3881 static void C_ccall trf_20840(C_word c,C_word *av){
3882 C_word t0=av[3];
3883 C_word t1=av[2];
3884 C_word t2=av[1];
3885 C_word t3=av[0];
3886 f_20840(t0,t1,t2,t3);}
3887 
3888 C_noret_decl(trf_20857)
3889 static void C_ccall trf_20857(C_word c,C_word *av) C_noret;
trf_20857(C_word c,C_word * av)3890 static void C_ccall trf_20857(C_word c,C_word *av){
3891 C_word t0=av[3];
3892 C_word t1=av[2];
3893 C_word t2=av[1];
3894 C_word t3=av[0];
3895 f_20857(t0,t1,t2,t3);}
3896 
3897 C_noret_decl(trf_20945)
3898 static void C_ccall trf_20945(C_word c,C_word *av) C_noret;
trf_20945(C_word c,C_word * av)3899 static void C_ccall trf_20945(C_word c,C_word *av){
3900 C_word t0=av[3];
3901 C_word t1=av[2];
3902 C_word t2=av[1];
3903 C_word t3=av[0];
3904 f_20945(t0,t1,t2,t3);}
3905 
3906 C_noret_decl(trf_21109)
3907 static void C_ccall trf_21109(C_word c,C_word *av) C_noret;
trf_21109(C_word c,C_word * av)3908 static void C_ccall trf_21109(C_word c,C_word *av){
3909 C_word t0=av[1];
3910 C_word t1=av[0];
3911 f_21109(t0,t1);}
3912 
3913 C_noret_decl(trf_21156)
3914 static void C_ccall trf_21156(C_word c,C_word *av) C_noret;
trf_21156(C_word c,C_word * av)3915 static void C_ccall trf_21156(C_word c,C_word *av){
3916 C_word t0=av[1];
3917 C_word t1=av[0];
3918 f_21156(t0,t1);}
3919 
3920 C_noret_decl(trf_21514)
3921 static void C_ccall trf_21514(C_word c,C_word *av) C_noret;
trf_21514(C_word c,C_word * av)3922 static void C_ccall trf_21514(C_word c,C_word *av){
3923 C_word t0=av[2];
3924 C_word t1=av[1];
3925 C_word t2=av[0];
3926 f_21514(t0,t1,t2);}
3927 
3928 C_noret_decl(trf_21677)
3929 static void C_ccall trf_21677(C_word c,C_word *av) C_noret;
trf_21677(C_word c,C_word * av)3930 static void C_ccall trf_21677(C_word c,C_word *av){
3931 C_word t0=av[2];
3932 C_word t1=av[1];
3933 C_word t2=av[0];
3934 f_21677(t0,t1,t2);}
3935 
3936 C_noret_decl(trf_21716)
3937 static void C_ccall trf_21716(C_word c,C_word *av) C_noret;
trf_21716(C_word c,C_word * av)3938 static void C_ccall trf_21716(C_word c,C_word *av){
3939 C_word t0=av[4];
3940 C_word t1=av[3];
3941 C_word t2=av[2];
3942 C_word t3=av[1];
3943 C_word t4=av[0];
3944 f_21716(t0,t1,t2,t3,t4);}
3945 
3946 C_noret_decl(trf_21751)
3947 static void C_ccall trf_21751(C_word c,C_word *av) C_noret;
trf_21751(C_word c,C_word * av)3948 static void C_ccall trf_21751(C_word c,C_word *av){
3949 C_word t0=av[1];
3950 C_word t1=av[0];
3951 f_21751(t0,t1);}
3952 
3953 C_noret_decl(trf_21880)
3954 static void C_ccall trf_21880(C_word c,C_word *av) C_noret;
trf_21880(C_word c,C_word * av)3955 static void C_ccall trf_21880(C_word c,C_word *av){
3956 C_word t0=av[1];
3957 C_word t1=av[0];
3958 f_21880(t0,t1);}
3959 
3960 C_noret_decl(trf_21909)
3961 static void C_ccall trf_21909(C_word c,C_word *av) C_noret;
trf_21909(C_word c,C_word * av)3962 static void C_ccall trf_21909(C_word c,C_word *av){
3963 C_word t0=av[1];
3964 C_word t1=av[0];
3965 f_21909(t0,t1);}
3966 
3967 C_noret_decl(trf_21926)
3968 static void C_ccall trf_21926(C_word c,C_word *av) C_noret;
trf_21926(C_word c,C_word * av)3969 static void C_ccall trf_21926(C_word c,C_word *av){
3970 C_word t0=av[3];
3971 C_word t1=av[2];
3972 C_word t2=av[1];
3973 C_word t3=av[0];
3974 f_21926(t0,t1,t2,t3);}
3975 
3976 C_noret_decl(trf_21935)
3977 static void C_ccall trf_21935(C_word c,C_word *av) C_noret;
trf_21935(C_word c,C_word * av)3978 static void C_ccall trf_21935(C_word c,C_word *av){
3979 C_word t0=av[4];
3980 C_word t1=av[3];
3981 C_word t2=av[2];
3982 C_word t3=av[1];
3983 C_word t4=av[0];
3984 f_21935(t0,t1,t2,t3,t4);}
3985 
3986 C_noret_decl(trf_21942)
3987 static void C_ccall trf_21942(C_word c,C_word *av) C_noret;
trf_21942(C_word c,C_word * av)3988 static void C_ccall trf_21942(C_word c,C_word *av){
3989 C_word t0=av[1];
3990 C_word t1=av[0];
3991 f_21942(t0,t1);}
3992 
3993 C_noret_decl(trf_21997)
3994 static void C_ccall trf_21997(C_word c,C_word *av) C_noret;
trf_21997(C_word c,C_word * av)3995 static void C_ccall trf_21997(C_word c,C_word *av){
3996 C_word t0=av[2];
3997 C_word t1=av[1];
3998 C_word t2=av[0];
3999 f_21997(t0,t1,t2);}
4000 
4001 C_noret_decl(trf_22104)
4002 static void C_ccall trf_22104(C_word c,C_word *av) C_noret;
trf_22104(C_word c,C_word * av)4003 static void C_ccall trf_22104(C_word c,C_word *av){
4004 C_word t0=av[1];
4005 C_word t1=av[0];
4006 f_22104(t0,t1);}
4007 
4008 C_noret_decl(trf_22110)
4009 static void C_ccall trf_22110(C_word c,C_word *av) C_noret;
trf_22110(C_word c,C_word * av)4010 static void C_ccall trf_22110(C_word c,C_word *av){
4011 C_word t0=av[1];
4012 C_word t1=av[0];
4013 f_22110(t0,t1);}
4014 
4015 C_noret_decl(trf_22163)
4016 static void C_ccall trf_22163(C_word c,C_word *av) C_noret;
trf_22163(C_word c,C_word * av)4017 static void C_ccall trf_22163(C_word c,C_word *av){
4018 C_word t0=av[3];
4019 C_word t1=av[2];
4020 C_word t2=av[1];
4021 C_word t3=av[0];
4022 f_22163(t0,t1,t2,t3);}
4023 
4024 C_noret_decl(trf_22234)
4025 static void C_ccall trf_22234(C_word c,C_word *av) C_noret;
trf_22234(C_word c,C_word * av)4026 static void C_ccall trf_22234(C_word c,C_word *av){
4027 C_word t0=av[2];
4028 C_word t1=av[1];
4029 C_word t2=av[0];
4030 f_22234(t0,t1,t2);}
4031 
4032 C_noret_decl(trf_22287)
4033 static void C_ccall trf_22287(C_word c,C_word *av) C_noret;
trf_22287(C_word c,C_word * av)4034 static void C_ccall trf_22287(C_word c,C_word *av){
4035 C_word t0=av[3];
4036 C_word t1=av[2];
4037 C_word t2=av[1];
4038 C_word t3=av[0];
4039 f_22287(t0,t1,t2,t3);}
4040 
4041 C_noret_decl(trf_22296)
4042 static void C_ccall trf_22296(C_word c,C_word *av) C_noret;
trf_22296(C_word c,C_word * av)4043 static void C_ccall trf_22296(C_word c,C_word *av){
4044 C_word t0=av[3];
4045 C_word t1=av[2];
4046 C_word t2=av[1];
4047 C_word t3=av[0];
4048 f_22296(t0,t1,t2,t3);}
4049 
4050 C_noret_decl(trf_22369)
4051 static void C_ccall trf_22369(C_word c,C_word *av) C_noret;
trf_22369(C_word c,C_word * av)4052 static void C_ccall trf_22369(C_word c,C_word *av){
4053 C_word t0=av[2];
4054 C_word t1=av[1];
4055 C_word t2=av[0];
4056 f_22369(t0,t1,t2);}
4057 
4058 C_noret_decl(trf_22401)
4059 static void C_ccall trf_22401(C_word c,C_word *av) C_noret;
trf_22401(C_word c,C_word * av)4060 static void C_ccall trf_22401(C_word c,C_word *av){
4061 C_word t0=av[4];
4062 C_word t1=av[3];
4063 C_word t2=av[2];
4064 C_word t3=av[1];
4065 C_word t4=av[0];
4066 f_22401(t0,t1,t2,t3,t4);}
4067 
4068 C_noret_decl(trf_22457)
4069 static void C_ccall trf_22457(C_word c,C_word *av) C_noret;
trf_22457(C_word c,C_word * av)4070 static void C_ccall trf_22457(C_word c,C_word *av){
4071 C_word t0=av[4];
4072 C_word t1=av[3];
4073 C_word t2=av[2];
4074 C_word t3=av[1];
4075 C_word t4=av[0];
4076 f_22457(t0,t1,t2,t3,t4);}
4077 
4078 C_noret_decl(trf_22488)
4079 static void C_ccall trf_22488(C_word c,C_word *av) C_noret;
trf_22488(C_word c,C_word * av)4080 static void C_ccall trf_22488(C_word c,C_word *av){
4081 C_word t0=av[1];
4082 C_word t1=av[0];
4083 f_22488(t0,t1);}
4084 
4085 C_noret_decl(trf_22588)
4086 static void C_ccall trf_22588(C_word c,C_word *av) C_noret;
trf_22588(C_word c,C_word * av)4087 static void C_ccall trf_22588(C_word c,C_word *av){
4088 C_word t0=av[3];
4089 C_word t1=av[2];
4090 C_word t2=av[1];
4091 C_word t3=av[0];
4092 f_22588(t0,t1,t2,t3);}
4093 
4094 C_noret_decl(trf_22621)
4095 static void C_ccall trf_22621(C_word c,C_word *av) C_noret;
trf_22621(C_word c,C_word * av)4096 static void C_ccall trf_22621(C_word c,C_word *av){
4097 C_word t0=av[2];
4098 C_word t1=av[1];
4099 C_word t2=av[0];
4100 f_22621(t0,t1,t2);}
4101 
4102 C_noret_decl(trf_22629)
4103 static void C_ccall trf_22629(C_word c,C_word *av) C_noret;
trf_22629(C_word c,C_word * av)4104 static void C_ccall trf_22629(C_word c,C_word *av){
4105 C_word t0=av[1];
4106 C_word t1=av[0];
4107 f_22629(t0,t1);}
4108 
4109 C_noret_decl(trf_22664)
4110 static void C_ccall trf_22664(C_word c,C_word *av) C_noret;
trf_22664(C_word c,C_word * av)4111 static void C_ccall trf_22664(C_word c,C_word *av){
4112 C_word t0=av[2];
4113 C_word t1=av[1];
4114 C_word t2=av[0];
4115 f_22664(t0,t1,t2);}
4116 
4117 C_noret_decl(trf_22702)
4118 static void C_ccall trf_22702(C_word c,C_word *av) C_noret;
trf_22702(C_word c,C_word * av)4119 static void C_ccall trf_22702(C_word c,C_word *av){
4120 C_word t0=av[4];
4121 C_word t1=av[3];
4122 C_word t2=av[2];
4123 C_word t3=av[1];
4124 C_word t4=av[0];
4125 f_22702(t0,t1,t2,t3,t4);}
4126 
4127 C_noret_decl(trf_22777)
4128 static void C_ccall trf_22777(C_word c,C_word *av) C_noret;
trf_22777(C_word c,C_word * av)4129 static void C_ccall trf_22777(C_word c,C_word *av){
4130 C_word t0=av[5];
4131 C_word t1=av[4];
4132 C_word t2=av[3];
4133 C_word t3=av[2];
4134 C_word t4=av[1];
4135 C_word t5=av[0];
4136 f_22777(t0,t1,t2,t3,t4,t5);}
4137 
4138 C_noret_decl(trf_22818)
4139 static void C_ccall trf_22818(C_word c,C_word *av) C_noret;
trf_22818(C_word c,C_word * av)4140 static void C_ccall trf_22818(C_word c,C_word *av){
4141 C_word t0=av[2];
4142 C_word t1=av[1];
4143 C_word t2=av[0];
4144 f_22818(t0,t1,t2);}
4145 
4146 C_noret_decl(trf_22834)
4147 static void C_ccall trf_22834(C_word c,C_word *av) C_noret;
trf_22834(C_word c,C_word * av)4148 static void C_ccall trf_22834(C_word c,C_word *av){
4149 C_word t0=av[1];
4150 C_word t1=av[0];
4151 f_22834(t0,t1);}
4152 
4153 C_noret_decl(trf_22936)
4154 static void C_ccall trf_22936(C_word c,C_word *av) C_noret;
trf_22936(C_word c,C_word * av)4155 static void C_ccall trf_22936(C_word c,C_word *av){
4156 C_word t0=av[4];
4157 C_word t1=av[3];
4158 C_word t2=av[2];
4159 C_word t3=av[1];
4160 C_word t4=av[0];
4161 f_22936(t0,t1,t2,t3,t4);}
4162 
4163 C_noret_decl(trf_22959)
4164 static void C_ccall trf_22959(C_word c,C_word *av) C_noret;
trf_22959(C_word c,C_word * av)4165 static void C_ccall trf_22959(C_word c,C_word *av){
4166 C_word t0=av[3];
4167 C_word t1=av[2];
4168 C_word t2=av[1];
4169 C_word t3=av[0];
4170 f_22959(t0,t1,t2,t3);}
4171 
4172 C_noret_decl(trf_22988)
4173 static void C_ccall trf_22988(C_word c,C_word *av) C_noret;
trf_22988(C_word c,C_word * av)4174 static void C_ccall trf_22988(C_word c,C_word *av){
4175 C_word t0=av[2];
4176 C_word t1=av[1];
4177 C_word t2=av[0];
4178 f_22988(t0,t1,t2);}
4179 
4180 C_noret_decl(trf_22992)
4181 static void C_ccall trf_22992(C_word c,C_word *av) C_noret;
trf_22992(C_word c,C_word * av)4182 static void C_ccall trf_22992(C_word c,C_word *av){
4183 C_word t0=av[1];
4184 C_word t1=av[0];
4185 f_22992(t0,t1);}
4186 
4187 C_noret_decl(trf_23016)
4188 static void C_ccall trf_23016(C_word c,C_word *av) C_noret;
trf_23016(C_word c,C_word * av)4189 static void C_ccall trf_23016(C_word c,C_word *av){
4190 C_word t0=av[1];
4191 C_word t1=av[0];
4192 f_23016(t0,t1);}
4193 
4194 C_noret_decl(trf_23054)
4195 static void C_ccall trf_23054(C_word c,C_word *av) C_noret;
trf_23054(C_word c,C_word * av)4196 static void C_ccall trf_23054(C_word c,C_word *av){
4197 C_word t0=av[2];
4198 C_word t1=av[1];
4199 C_word t2=av[0];
4200 f_23054(t0,t1,t2);}
4201 
4202 C_noret_decl(trf_23069)
4203 static void C_ccall trf_23069(C_word c,C_word *av) C_noret;
trf_23069(C_word c,C_word * av)4204 static void C_ccall trf_23069(C_word c,C_word *av){
4205 C_word t0=av[4];
4206 C_word t1=av[3];
4207 C_word t2=av[2];
4208 C_word t3=av[1];
4209 C_word t4=av[0];
4210 f_23069(t0,t1,t2,t3,t4);}
4211 
4212 C_noret_decl(trf_23084)
4213 static void C_ccall trf_23084(C_word c,C_word *av) C_noret;
trf_23084(C_word c,C_word * av)4214 static void C_ccall trf_23084(C_word c,C_word *av){
4215 C_word t0=av[3];
4216 C_word t1=av[2];
4217 C_word t2=av[1];
4218 C_word t3=av[0];
4219 f_23084(t0,t1,t2,t3);}
4220 
4221 C_noret_decl(trf_23104)
4222 static void C_ccall trf_23104(C_word c,C_word *av) C_noret;
trf_23104(C_word c,C_word * av)4223 static void C_ccall trf_23104(C_word c,C_word *av){
4224 C_word t0=av[4];
4225 C_word t1=av[3];
4226 C_word t2=av[2];
4227 C_word t3=av[1];
4228 C_word t4=av[0];
4229 f_23104(t0,t1,t2,t3,t4);}
4230 
4231 C_noret_decl(trf_23127)
4232 static void C_ccall trf_23127(C_word c,C_word *av) C_noret;
trf_23127(C_word c,C_word * av)4233 static void C_ccall trf_23127(C_word c,C_word *av){
4234 C_word t0=av[1];
4235 C_word t1=av[0];
4236 f_23127(t0,t1);}
4237 
4238 C_noret_decl(trf_23236)
4239 static void C_ccall trf_23236(C_word c,C_word *av) C_noret;
trf_23236(C_word c,C_word * av)4240 static void C_ccall trf_23236(C_word c,C_word *av){
4241 C_word t0=av[2];
4242 C_word t1=av[1];
4243 C_word t2=av[0];
4244 f_23236(t0,t1,t2);}
4245 
4246 C_noret_decl(trf_23249)
4247 static void C_ccall trf_23249(C_word c,C_word *av) C_noret;
trf_23249(C_word c,C_word * av)4248 static void C_ccall trf_23249(C_word c,C_word *av){
4249 C_word t0=av[1];
4250 C_word t1=av[0];
4251 f_23249(t0,t1);}
4252 
4253 C_noret_decl(trf_23263)
4254 static void C_ccall trf_23263(C_word c,C_word *av) C_noret;
trf_23263(C_word c,C_word * av)4255 static void C_ccall trf_23263(C_word c,C_word *av){
4256 C_word t0=av[4];
4257 C_word t1=av[3];
4258 C_word t2=av[2];
4259 C_word t3=av[1];
4260 C_word t4=av[0];
4261 f_23263(t0,t1,t2,t3,t4);}
4262 
4263 C_noret_decl(trf_23290)
4264 static void C_ccall trf_23290(C_word c,C_word *av) C_noret;
trf_23290(C_word c,C_word * av)4265 static void C_ccall trf_23290(C_word c,C_word *av){
4266 C_word t0=av[4];
4267 C_word t1=av[3];
4268 C_word t2=av[2];
4269 C_word t3=av[1];
4270 C_word t4=av[0];
4271 f_23290(t0,t1,t2,t3,t4);}
4272 
4273 C_noret_decl(trf_23446)
4274 static void C_ccall trf_23446(C_word c,C_word *av) C_noret;
trf_23446(C_word c,C_word * av)4275 static void C_ccall trf_23446(C_word c,C_word *av){
4276 C_word t0=av[5];
4277 C_word t1=av[4];
4278 C_word t2=av[3];
4279 C_word t3=av[2];
4280 C_word t4=av[1];
4281 C_word t5=av[0];
4282 f_23446(t0,t1,t2,t3,t4,t5);}
4283 
4284 C_noret_decl(trf_23449)
4285 static void C_ccall trf_23449(C_word c,C_word *av) C_noret;
trf_23449(C_word c,C_word * av)4286 static void C_ccall trf_23449(C_word c,C_word *av){
4287 C_word t0=av[2];
4288 C_word t1=av[1];
4289 C_word t2=av[0];
4290 f_23449(t0,t1,t2);}
4291 
4292 C_noret_decl(trf_23488)
4293 static void C_ccall trf_23488(C_word c,C_word *av) C_noret;
trf_23488(C_word c,C_word * av)4294 static void C_ccall trf_23488(C_word c,C_word *av){
4295 C_word t0=av[1];
4296 C_word t1=av[0];
4297 f_23488(t0,t1);}
4298 
4299 C_noret_decl(trf_23987)
4300 static void C_ccall trf_23987(C_word c,C_word *av) C_noret;
trf_23987(C_word c,C_word * av)4301 static void C_ccall trf_23987(C_word c,C_word *av){
4302 C_word t0=av[1];
4303 C_word t1=av[0];
4304 f_23987(t0,t1);}
4305 
4306 C_noret_decl(trf_23990)
4307 static void C_ccall trf_23990(C_word c,C_word *av) C_noret;
trf_23990(C_word c,C_word * av)4308 static void C_ccall trf_23990(C_word c,C_word *av){
4309 C_word t0=av[1];
4310 C_word t1=av[0];
4311 f_23990(t0,t1);}
4312 
4313 C_noret_decl(trf_24139)
4314 static void C_ccall trf_24139(C_word c,C_word *av) C_noret;
trf_24139(C_word c,C_word * av)4315 static void C_ccall trf_24139(C_word c,C_word *av){
4316 C_word t0=av[1];
4317 C_word t1=av[0];
4318 f_24139(t0,t1);}
4319 
4320 C_noret_decl(trf_24142)
4321 static void C_ccall trf_24142(C_word c,C_word *av) C_noret;
trf_24142(C_word c,C_word * av)4322 static void C_ccall trf_24142(C_word c,C_word *av){
4323 C_word t0=av[1];
4324 C_word t1=av[0];
4325 f_24142(t0,t1);}
4326 
4327 C_noret_decl(trf_24579)
4328 static void C_ccall trf_24579(C_word c,C_word *av) C_noret;
trf_24579(C_word c,C_word * av)4329 static void C_ccall trf_24579(C_word c,C_word *av){
4330 C_word t0=av[1];
4331 C_word t1=av[0];
4332 f_24579(t0,t1);}
4333 
4334 C_noret_decl(trf_24723)
4335 static void C_ccall trf_24723(C_word c,C_word *av) C_noret;
trf_24723(C_word c,C_word * av)4336 static void C_ccall trf_24723(C_word c,C_word *av){
4337 C_word t0=av[1];
4338 C_word t1=av[0];
4339 f_24723(t0,t1);}
4340 
4341 C_noret_decl(trf_24746)
4342 static void C_ccall trf_24746(C_word c,C_word *av) C_noret;
trf_24746(C_word c,C_word * av)4343 static void C_ccall trf_24746(C_word c,C_word *av){
4344 C_word t0=av[7];
4345 C_word t1=av[6];
4346 C_word t2=av[5];
4347 C_word t3=av[4];
4348 C_word t4=av[3];
4349 C_word t5=av[2];
4350 C_word t6=av[1];
4351 C_word t7=av[0];
4352 f_24746(t0,t1,t2,t3,t4,t5,t6,t7);}
4353 
4354 C_noret_decl(trf_25519)
4355 static void C_ccall trf_25519(C_word c,C_word *av) C_noret;
trf_25519(C_word c,C_word * av)4356 static void C_ccall trf_25519(C_word c,C_word *av){
4357 C_word t0=av[1];
4358 C_word t1=av[0];
4359 f_25519(t0,t1);}
4360 
4361 C_noret_decl(trf_25528)
4362 static void C_ccall trf_25528(C_word c,C_word *av) C_noret;
trf_25528(C_word c,C_word * av)4363 static void C_ccall trf_25528(C_word c,C_word *av){
4364 C_word t0=av[1];
4365 C_word t1=av[0];
4366 f_25528(t0,t1);}
4367 
4368 C_noret_decl(trf_25626)
4369 static void C_ccall trf_25626(C_word c,C_word *av) C_noret;
trf_25626(C_word c,C_word * av)4370 static void C_ccall trf_25626(C_word c,C_word *av){
4371 C_word t0=av[1];
4372 C_word t1=av[0];
4373 f_25626(t0,t1);}
4374 
4375 C_noret_decl(trf_25659)
4376 static void C_ccall trf_25659(C_word c,C_word *av) C_noret;
trf_25659(C_word c,C_word * av)4377 static void C_ccall trf_25659(C_word c,C_word *av){
4378 C_word t0=av[1];
4379 C_word t1=av[0];
4380 f_25659(t0,t1);}
4381 
4382 C_noret_decl(trf_25724)
4383 static void C_ccall trf_25724(C_word c,C_word *av) C_noret;
trf_25724(C_word c,C_word * av)4384 static void C_ccall trf_25724(C_word c,C_word *av){
4385 C_word t0=av[1];
4386 C_word t1=av[0];
4387 f_25724(t0,t1);}
4388 
4389 C_noret_decl(trf_25733)
4390 static void C_ccall trf_25733(C_word c,C_word *av) C_noret;
trf_25733(C_word c,C_word * av)4391 static void C_ccall trf_25733(C_word c,C_word *av){
4392 C_word t0=av[1];
4393 C_word t1=av[0];
4394 f_25733(t0,t1);}
4395 
4396 C_noret_decl(trf_25819)
4397 static void C_ccall trf_25819(C_word c,C_word *av) C_noret;
trf_25819(C_word c,C_word * av)4398 static void C_ccall trf_25819(C_word c,C_word *av){
4399 C_word t0=av[1];
4400 C_word t1=av[0];
4401 f_25819(t0,t1);}
4402 
4403 C_noret_decl(trf_25947)
4404 static void C_ccall trf_25947(C_word c,C_word *av) C_noret;
trf_25947(C_word c,C_word * av)4405 static void C_ccall trf_25947(C_word c,C_word *av){
4406 C_word t0=av[2];
4407 C_word t1=av[1];
4408 C_word t2=av[0];
4409 f_25947(t0,t1,t2);}
4410 
4411 C_noret_decl(trf_26046)
4412 static void C_ccall trf_26046(C_word c,C_word *av) C_noret;
trf_26046(C_word c,C_word * av)4413 static void C_ccall trf_26046(C_word c,C_word *av){
4414 C_word t0=av[2];
4415 C_word t1=av[1];
4416 C_word t2=av[0];
4417 f_26046(t0,t1,t2);}
4418 
4419 C_noret_decl(trf_26168)
4420 static void C_ccall trf_26168(C_word c,C_word *av) C_noret;
trf_26168(C_word c,C_word * av)4421 static void C_ccall trf_26168(C_word c,C_word *av){
4422 C_word t0=av[2];
4423 C_word t1=av[1];
4424 C_word t2=av[0];
4425 f_26168(t0,t1,t2);}
4426 
4427 C_noret_decl(trf_26381)
4428 static void C_ccall trf_26381(C_word c,C_word *av) C_noret;
trf_26381(C_word c,C_word * av)4429 static void C_ccall trf_26381(C_word c,C_word *av){
4430 C_word t0=av[1];
4431 C_word t1=av[0];
4432 f_26381(t0,t1);}
4433 
4434 C_noret_decl(trf_26393)
4435 static void C_ccall trf_26393(C_word c,C_word *av) C_noret;
trf_26393(C_word c,C_word * av)4436 static void C_ccall trf_26393(C_word c,C_word *av){
4437 C_word t0=av[3];
4438 C_word t1=av[2];
4439 C_word t2=av[1];
4440 C_word t3=av[0];
4441 f_26393(t0,t1,t2,t3);}
4442 
4443 C_noret_decl(trf_26443)
4444 static void C_ccall trf_26443(C_word c,C_word *av) C_noret;
trf_26443(C_word c,C_word * av)4445 static void C_ccall trf_26443(C_word c,C_word *av){
4446 C_word t0=av[3];
4447 C_word t1=av[2];
4448 C_word t2=av[1];
4449 C_word t3=av[0];
4450 f_26443(t0,t1,t2,t3);}
4451 
4452 C_noret_decl(trf_26472)
4453 static void C_ccall trf_26472(C_word c,C_word *av) C_noret;
trf_26472(C_word c,C_word * av)4454 static void C_ccall trf_26472(C_word c,C_word *av){
4455 C_word t0=av[1];
4456 C_word t1=av[0];
4457 f_26472(t0,t1);}
4458 
4459 C_noret_decl(trf_26492)
4460 static void C_ccall trf_26492(C_word c,C_word *av) C_noret;
trf_26492(C_word c,C_word * av)4461 static void C_ccall trf_26492(C_word c,C_word *av){
4462 C_word t0=av[2];
4463 C_word t1=av[1];
4464 C_word t2=av[0];
4465 f_26492(t0,t1,t2);}
4466 
4467 C_noret_decl(trf_26502)
4468 static void C_ccall trf_26502(C_word c,C_word *av) C_noret;
trf_26502(C_word c,C_word * av)4469 static void C_ccall trf_26502(C_word c,C_word *av){
4470 C_word t0=av[3];
4471 C_word t1=av[2];
4472 C_word t2=av[1];
4473 C_word t3=av[0];
4474 f_26502(t0,t1,t2,t3);}
4475 
4476 C_noret_decl(trf_26505)
4477 static void C_ccall trf_26505(C_word c,C_word *av) C_noret;
trf_26505(C_word c,C_word * av)4478 static void C_ccall trf_26505(C_word c,C_word *av){
4479 C_word t0=av[2];
4480 C_word t1=av[1];
4481 C_word t2=av[0];
4482 f_26505(t0,t1,t2);}
4483 
4484 C_noret_decl(trf_26571)
4485 static void C_ccall trf_26571(C_word c,C_word *av) C_noret;
trf_26571(C_word c,C_word * av)4486 static void C_ccall trf_26571(C_word c,C_word *av){
4487 C_word t0=av[2];
4488 C_word t1=av[1];
4489 C_word t2=av[0];
4490 f_26571(t0,t1,t2);}
4491 
4492 C_noret_decl(trf_26635)
4493 static void C_ccall trf_26635(C_word c,C_word *av) C_noret;
trf_26635(C_word c,C_word * av)4494 static void C_ccall trf_26635(C_word c,C_word *av){
4495 C_word t0=av[2];
4496 C_word t1=av[1];
4497 C_word t2=av[0];
4498 f_26635(t0,t1,t2);}
4499 
4500 C_noret_decl(trf_26705)
4501 static void C_ccall trf_26705(C_word c,C_word *av) C_noret;
trf_26705(C_word c,C_word * av)4502 static void C_ccall trf_26705(C_word c,C_word *av){
4503 C_word t0=av[2];
4504 C_word t1=av[1];
4505 C_word t2=av[0];
4506 f_26705(t0,t1,t2);}
4507 
4508 C_noret_decl(trf_26790)
4509 static void C_ccall trf_26790(C_word c,C_word *av) C_noret;
trf_26790(C_word c,C_word * av)4510 static void C_ccall trf_26790(C_word c,C_word *av){
4511 C_word t0=av[2];
4512 C_word t1=av[1];
4513 C_word t2=av[0];
4514 f_26790(t0,t1,t2);}
4515 
4516 C_noret_decl(trf_26959)
4517 static void C_ccall trf_26959(C_word c,C_word *av) C_noret;
trf_26959(C_word c,C_word * av)4518 static void C_ccall trf_26959(C_word c,C_word *av){
4519 C_word t0=av[2];
4520 C_word t1=av[1];
4521 C_word t2=av[0];
4522 f_26959(t0,t1,t2);}
4523 
4524 C_noret_decl(trf_26992)
4525 static void C_ccall trf_26992(C_word c,C_word *av) C_noret;
trf_26992(C_word c,C_word * av)4526 static void C_ccall trf_26992(C_word c,C_word *av){
4527 C_word t0=av[3];
4528 C_word t1=av[2];
4529 C_word t2=av[1];
4530 C_word t3=av[0];
4531 f_26992(t0,t1,t2,t3);}
4532 
4533 C_noret_decl(trf_27094)
4534 static void C_ccall trf_27094(C_word c,C_word *av) C_noret;
trf_27094(C_word c,C_word * av)4535 static void C_ccall trf_27094(C_word c,C_word *av){
4536 C_word t0=av[4];
4537 C_word t1=av[3];
4538 C_word t2=av[2];
4539 C_word t3=av[1];
4540 C_word t4=av[0];
4541 f_27094(t0,t1,t2,t3,t4);}
4542 
4543 C_noret_decl(trf_27275)
4544 static void C_ccall trf_27275(C_word c,C_word *av) C_noret;
trf_27275(C_word c,C_word * av)4545 static void C_ccall trf_27275(C_word c,C_word *av){
4546 C_word t0=av[2];
4547 C_word t1=av[1];
4548 C_word t2=av[0];
4549 f_27275(t0,t1,t2);}
4550 
4551 C_noret_decl(trf_27289)
4552 static void C_ccall trf_27289(C_word c,C_word *av) C_noret;
trf_27289(C_word c,C_word * av)4553 static void C_ccall trf_27289(C_word c,C_word *av){
4554 C_word t0=av[4];
4555 C_word t1=av[3];
4556 C_word t2=av[2];
4557 C_word t3=av[1];
4558 C_word t4=av[0];
4559 f_27289(t0,t1,t2,t3,t4);}
4560 
4561 C_noret_decl(trf_27366)
4562 static void C_ccall trf_27366(C_word c,C_word *av) C_noret;
trf_27366(C_word c,C_word * av)4563 static void C_ccall trf_27366(C_word c,C_word *av){
4564 C_word t0=av[1];
4565 C_word t1=av[0];
4566 f_27366(t0,t1);}
4567 
4568 C_noret_decl(trf_27369)
4569 static void C_ccall trf_27369(C_word c,C_word *av) C_noret;
trf_27369(C_word c,C_word * av)4570 static void C_ccall trf_27369(C_word c,C_word *av){
4571 C_word t0=av[1];
4572 C_word t1=av[0];
4573 f_27369(t0,t1);}
4574 
4575 C_noret_decl(trf_27376)
4576 static void C_ccall trf_27376(C_word c,C_word *av) C_noret;
trf_27376(C_word c,C_word * av)4577 static void C_ccall trf_27376(C_word c,C_word *av){
4578 C_word t0=av[1];
4579 C_word t1=av[0];
4580 f_27376(t0,t1);}
4581 
4582 C_noret_decl(trf_27485)
4583 static void C_ccall trf_27485(C_word c,C_word *av) C_noret;
trf_27485(C_word c,C_word * av)4584 static void C_ccall trf_27485(C_word c,C_word *av){
4585 C_word t0=av[4];
4586 C_word t1=av[3];
4587 C_word t2=av[2];
4588 C_word t3=av[1];
4589 C_word t4=av[0];
4590 f_27485(t0,t1,t2,t3,t4);}
4591 
4592 C_noret_decl(trf_27597)
4593 static void C_ccall trf_27597(C_word c,C_word *av) C_noret;
trf_27597(C_word c,C_word * av)4594 static void C_ccall trf_27597(C_word c,C_word *av){
4595 C_word t0=av[1];
4596 C_word t1=av[0];
4597 f_27597(t0,t1);}
4598 
4599 C_noret_decl(trf_27607)
4600 static void C_ccall trf_27607(C_word c,C_word *av) C_noret;
trf_27607(C_word c,C_word * av)4601 static void C_ccall trf_27607(C_word c,C_word *av){
4602 C_word t0=av[1];
4603 C_word t1=av[0];
4604 f_27607(t0,t1);}
4605 
4606 C_noret_decl(trf_27617)
4607 static void C_ccall trf_27617(C_word c,C_word *av) C_noret;
trf_27617(C_word c,C_word * av)4608 static void C_ccall trf_27617(C_word c,C_word *av){
4609 C_word t0=av[3];
4610 C_word t1=av[2];
4611 C_word t2=av[1];
4612 C_word t3=av[0];
4613 f_27617(t0,t1,t2,t3);}
4614 
4615 C_noret_decl(trf_27637)
4616 static void C_ccall trf_27637(C_word c,C_word *av) C_noret;
trf_27637(C_word c,C_word * av)4617 static void C_ccall trf_27637(C_word c,C_word *av){
4618 C_word t0=av[1];
4619 C_word t1=av[0];
4620 f_27637(t0,t1);}
4621 
4622 C_noret_decl(trf_27757)
4623 static void C_ccall trf_27757(C_word c,C_word *av) C_noret;
trf_27757(C_word c,C_word * av)4624 static void C_ccall trf_27757(C_word c,C_word *av){
4625 C_word t0=av[1];
4626 C_word t1=av[0];
4627 f_27757(t0,t1);}
4628 
4629 C_noret_decl(trf_27760)
4630 static void C_ccall trf_27760(C_word c,C_word *av) C_noret;
trf_27760(C_word c,C_word * av)4631 static void C_ccall trf_27760(C_word c,C_word *av){
4632 C_word t0=av[1];
4633 C_word t1=av[0];
4634 f_27760(t0,t1);}
4635 
4636 C_noret_decl(trf_27780)
4637 static void C_ccall trf_27780(C_word c,C_word *av) C_noret;
trf_27780(C_word c,C_word * av)4638 static void C_ccall trf_27780(C_word c,C_word *av){
4639 C_word t0=av[5];
4640 C_word t1=av[4];
4641 C_word t2=av[3];
4642 C_word t3=av[2];
4643 C_word t4=av[1];
4644 C_word t5=av[0];
4645 f_27780(t0,t1,t2,t3,t4,t5);}
4646 
4647 C_noret_decl(trf_28014)
4648 static void C_ccall trf_28014(C_word c,C_word *av) C_noret;
trf_28014(C_word c,C_word * av)4649 static void C_ccall trf_28014(C_word c,C_word *av){
4650 C_word t0=av[4];
4651 C_word t1=av[3];
4652 C_word t2=av[2];
4653 C_word t3=av[1];
4654 C_word t4=av[0];
4655 f_28014(t0,t1,t2,t3,t4);}
4656 
4657 C_noret_decl(trf_28366)
4658 static void C_ccall trf_28366(C_word c,C_word *av) C_noret;
trf_28366(C_word c,C_word * av)4659 static void C_ccall trf_28366(C_word c,C_word *av){
4660 C_word t0=av[2];
4661 C_word t1=av[1];
4662 C_word t2=av[0];
4663 f_28366(t0,t1,t2);}
4664 
4665 C_noret_decl(trf_28372)
4666 static void C_ccall trf_28372(C_word c,C_word *av) C_noret;
trf_28372(C_word c,C_word * av)4667 static void C_ccall trf_28372(C_word c,C_word *av){
4668 C_word t0=av[3];
4669 C_word t1=av[2];
4670 C_word t2=av[1];
4671 C_word t3=av[0];
4672 f_28372(t0,t1,t2,t3);}
4673 
4674 C_noret_decl(trf_28546)
4675 static void C_ccall trf_28546(C_word c,C_word *av) C_noret;
trf_28546(C_word c,C_word * av)4676 static void C_ccall trf_28546(C_word c,C_word *av){
4677 C_word t0=av[2];
4678 C_word t1=av[1];
4679 C_word t2=av[0];
4680 f_28546(t0,t1,t2);}
4681 
4682 C_noret_decl(trf_28642)
4683 static void C_ccall trf_28642(C_word c,C_word *av) C_noret;
trf_28642(C_word c,C_word * av)4684 static void C_ccall trf_28642(C_word c,C_word *av){
4685 C_word t0=av[1];
4686 C_word t1=av[0];
4687 f_28642(t0,t1);}
4688 
4689 C_noret_decl(trf_28713)
4690 static void C_ccall trf_28713(C_word c,C_word *av) C_noret;
trf_28713(C_word c,C_word * av)4691 static void C_ccall trf_28713(C_word c,C_word *av){
4692 C_word t0=av[1];
4693 C_word t1=av[0];
4694 f_28713(t0,t1);}
4695 
4696 C_noret_decl(trf_28715)
4697 static void C_ccall trf_28715(C_word c,C_word *av) C_noret;
trf_28715(C_word c,C_word * av)4698 static void C_ccall trf_28715(C_word c,C_word *av){
4699 C_word t0=av[4];
4700 C_word t1=av[3];
4701 C_word t2=av[2];
4702 C_word t3=av[1];
4703 C_word t4=av[0];
4704 f_28715(t0,t1,t2,t3,t4);}
4705 
4706 C_noret_decl(trf_28843)
4707 static void C_ccall trf_28843(C_word c,C_word *av) C_noret;
trf_28843(C_word c,C_word * av)4708 static void C_ccall trf_28843(C_word c,C_word *av){
4709 C_word t0=av[2];
4710 C_word t1=av[1];
4711 C_word t2=av[0];
4712 f_28843(t0,t1,t2);}
4713 
4714 C_noret_decl(trf_28887)
4715 static void C_ccall trf_28887(C_word c,C_word *av) C_noret;
trf_28887(C_word c,C_word * av)4716 static void C_ccall trf_28887(C_word c,C_word *av){
4717 C_word t0=av[3];
4718 C_word t1=av[2];
4719 C_word t2=av[1];
4720 C_word t3=av[0];
4721 f_28887(t0,t1,t2,t3);}
4722 
4723 C_noret_decl(trf_29000)
4724 static void C_ccall trf_29000(C_word c,C_word *av) C_noret;
trf_29000(C_word c,C_word * av)4725 static void C_ccall trf_29000(C_word c,C_word *av){
4726 C_word t0=av[2];
4727 C_word t1=av[1];
4728 C_word t2=av[0];
4729 f_29000(t0,t1,t2);}
4730 
4731 C_noret_decl(trf_29010)
4732 static void C_ccall trf_29010(C_word c,C_word *av) C_noret;
trf_29010(C_word c,C_word * av)4733 static void C_ccall trf_29010(C_word c,C_word *av){
4734 C_word t0=av[1];
4735 C_word t1=av[0];
4736 f_29010(t0,t1);}
4737 
4738 C_noret_decl(trf_29072)
4739 static void C_ccall trf_29072(C_word c,C_word *av) C_noret;
trf_29072(C_word c,C_word * av)4740 static void C_ccall trf_29072(C_word c,C_word *av){
4741 C_word t0=av[3];
4742 C_word t1=av[2];
4743 C_word t2=av[1];
4744 C_word t3=av[0];
4745 f_29072(t0,t1,t2,t3);}
4746 
4747 C_noret_decl(trf_29084)
4748 static void C_ccall trf_29084(C_word c,C_word *av) C_noret;
trf_29084(C_word c,C_word * av)4749 static void C_ccall trf_29084(C_word c,C_word *av){
4750 C_word t0=av[3];
4751 C_word t1=av[2];
4752 C_word t2=av[1];
4753 C_word t3=av[0];
4754 f_29084(t0,t1,t2,t3);}
4755 
4756 C_noret_decl(trf_29197)
4757 static void C_ccall trf_29197(C_word c,C_word *av) C_noret;
trf_29197(C_word c,C_word * av)4758 static void C_ccall trf_29197(C_word c,C_word *av){
4759 C_word t0=av[1];
4760 C_word t1=av[0];
4761 f_29197(t0,t1);}
4762 
4763 C_noret_decl(trf_29209)
4764 static void C_ccall trf_29209(C_word c,C_word *av) C_noret;
trf_29209(C_word c,C_word * av)4765 static void C_ccall trf_29209(C_word c,C_word *av){
4766 C_word t0=av[2];
4767 C_word t1=av[1];
4768 C_word t2=av[0];
4769 f_29209(t0,t1,t2);}
4770 
4771 C_noret_decl(trf_29289)
4772 static void C_ccall trf_29289(C_word c,C_word *av) C_noret;
trf_29289(C_word c,C_word * av)4773 static void C_ccall trf_29289(C_word c,C_word *av){
4774 C_word t0=av[2];
4775 C_word t1=av[1];
4776 C_word t2=av[0];
4777 f_29289(t0,t1,t2);}
4778 
4779 C_noret_decl(trf_29312)
4780 static void C_ccall trf_29312(C_word c,C_word *av) C_noret;
trf_29312(C_word c,C_word * av)4781 static void C_ccall trf_29312(C_word c,C_word *av){
4782 C_word t0=av[1];
4783 C_word t1=av[0];
4784 f_29312(t0,t1);}
4785 
4786 C_noret_decl(trf_29327)
4787 static void C_ccall trf_29327(C_word c,C_word *av) C_noret;
trf_29327(C_word c,C_word * av)4788 static void C_ccall trf_29327(C_word c,C_word *av){
4789 C_word t0=av[2];
4790 C_word t1=av[1];
4791 C_word t2=av[0];
4792 f_29327(t0,t1,t2);}
4793 
4794 C_noret_decl(trf_29357)
4795 static void C_ccall trf_29357(C_word c,C_word *av) C_noret;
trf_29357(C_word c,C_word * av)4796 static void C_ccall trf_29357(C_word c,C_word *av){
4797 C_word t0=av[2];
4798 C_word t1=av[1];
4799 C_word t2=av[0];
4800 f_29357(t0,t1,t2);}
4801 
4802 C_noret_decl(trf_29421)
4803 static void C_ccall trf_29421(C_word c,C_word *av) C_noret;
trf_29421(C_word c,C_word * av)4804 static void C_ccall trf_29421(C_word c,C_word *av){
4805 C_word t0=av[2];
4806 C_word t1=av[1];
4807 C_word t2=av[0];
4808 f_29421(t0,t1,t2);}
4809 
4810 C_noret_decl(trf_29471)
4811 static void C_ccall trf_29471(C_word c,C_word *av) C_noret;
trf_29471(C_word c,C_word * av)4812 static void C_ccall trf_29471(C_word c,C_word *av){
4813 C_word t0=av[2];
4814 C_word t1=av[1];
4815 C_word t2=av[0];
4816 f_29471(t0,t1,t2);}
4817 
4818 C_noret_decl(trf_29509)
4819 static void C_ccall trf_29509(C_word c,C_word *av) C_noret;
trf_29509(C_word c,C_word * av)4820 static void C_ccall trf_29509(C_word c,C_word *av){
4821 C_word t0=av[2];
4822 C_word t1=av[1];
4823 C_word t2=av[0];
4824 f_29509(t0,t1,t2);}
4825 
4826 C_noret_decl(trf_29530)
4827 static void C_ccall trf_29530(C_word c,C_word *av) C_noret;
trf_29530(C_word c,C_word * av)4828 static void C_ccall trf_29530(C_word c,C_word *av){
4829 C_word t0=av[2];
4830 C_word t1=av[1];
4831 C_word t2=av[0];
4832 f_29530(t0,t1,t2);}
4833 
4834 C_noret_decl(trf_29564)
4835 static void C_ccall trf_29564(C_word c,C_word *av) C_noret;
trf_29564(C_word c,C_word * av)4836 static void C_ccall trf_29564(C_word c,C_word *av){
4837 C_word t0=av[1];
4838 C_word t1=av[0];
4839 f_29564(t0,t1);}
4840 
4841 C_noret_decl(trf_29590)
4842 static void C_ccall trf_29590(C_word c,C_word *av) C_noret;
trf_29590(C_word c,C_word * av)4843 static void C_ccall trf_29590(C_word c,C_word *av){
4844 C_word t0=av[2];
4845 C_word t1=av[1];
4846 C_word t2=av[0];
4847 f_29590(t0,t1,t2);}
4848 
4849 C_noret_decl(trf_29634)
4850 static void C_ccall trf_29634(C_word c,C_word *av) C_noret;
trf_29634(C_word c,C_word * av)4851 static void C_ccall trf_29634(C_word c,C_word *av){
4852 C_word t0=av[1];
4853 C_word t1=av[0];
4854 f_29634(t0,t1);}
4855 
4856 C_noret_decl(trf_29698)
4857 static void C_ccall trf_29698(C_word c,C_word *av) C_noret;
trf_29698(C_word c,C_word * av)4858 static void C_ccall trf_29698(C_word c,C_word *av){
4859 C_word t0=av[1];
4860 C_word t1=av[0];
4861 f_29698(t0,t1);}
4862 
4863 C_noret_decl(trf_29707)
4864 static void C_ccall trf_29707(C_word c,C_word *av) C_noret;
trf_29707(C_word c,C_word * av)4865 static void C_ccall trf_29707(C_word c,C_word *av){
4866 C_word t0=av[1];
4867 C_word t1=av[0];
4868 f_29707(t0,t1);}
4869 
4870 C_noret_decl(trf_29801)
4871 static void C_ccall trf_29801(C_word c,C_word *av) C_noret;
trf_29801(C_word c,C_word * av)4872 static void C_ccall trf_29801(C_word c,C_word *av){
4873 C_word t0=av[2];
4874 C_word t1=av[1];
4875 C_word t2=av[0];
4876 f_29801(t0,t1,t2);}
4877 
4878 C_noret_decl(trf_30050)
4879 static void C_ccall trf_30050(C_word c,C_word *av) C_noret;
trf_30050(C_word c,C_word * av)4880 static void C_ccall trf_30050(C_word c,C_word *av){
4881 C_word t0=av[3];
4882 C_word t1=av[2];
4883 C_word t2=av[1];
4884 C_word t3=av[0];
4885 f_30050(t0,t1,t2,t3);}
4886 
4887 C_noret_decl(trf_30158)
4888 static void C_ccall trf_30158(C_word c,C_word *av) C_noret;
trf_30158(C_word c,C_word * av)4889 static void C_ccall trf_30158(C_word c,C_word *av){
4890 C_word t0=av[3];
4891 C_word t1=av[2];
4892 C_word t2=av[1];
4893 C_word t3=av[0];
4894 f_30158(t0,t1,t2,t3);}
4895 
4896 C_noret_decl(trf_30207)
4897 static void C_ccall trf_30207(C_word c,C_word *av) C_noret;
trf_30207(C_word c,C_word * av)4898 static void C_ccall trf_30207(C_word c,C_word *av){
4899 C_word t0=av[1];
4900 C_word t1=av[0];
4901 f_30207(t0,t1);}
4902 
4903 C_noret_decl(trf_7540)
4904 static void C_ccall trf_7540(C_word c,C_word *av) C_noret;
trf_7540(C_word c,C_word * av)4905 static void C_ccall trf_7540(C_word c,C_word *av){
4906 C_word t0=av[1];
4907 C_word t1=av[0];
4908 f_7540(t0,t1);}
4909 
4910 C_noret_decl(trf_7622)
4911 static void C_ccall trf_7622(C_word c,C_word *av) C_noret;
trf_7622(C_word c,C_word * av)4912 static void C_ccall trf_7622(C_word c,C_word *av){
4913 C_word t0=av[1];
4914 C_word t1=av[0];
4915 f_7622(t0,t1);}
4916 
4917 C_noret_decl(trf_7645)
4918 static void C_ccall trf_7645(C_word c,C_word *av) C_noret;
trf_7645(C_word c,C_word * av)4919 static void C_ccall trf_7645(C_word c,C_word *av){
4920 C_word t0=av[1];
4921 C_word t1=av[0];
4922 f_7645(t0,t1);}
4923 
4924 C_noret_decl(trf_7654)
4925 static void C_ccall trf_7654(C_word c,C_word *av) C_noret;
trf_7654(C_word c,C_word * av)4926 static void C_ccall trf_7654(C_word c,C_word *av){
4927 C_word t0=av[1];
4928 C_word t1=av[0];
4929 f_7654(t0,t1);}
4930 
4931 C_noret_decl(trf_7954)
4932 static void C_ccall trf_7954(C_word c,C_word *av) C_noret;
trf_7954(C_word c,C_word * av)4933 static void C_ccall trf_7954(C_word c,C_word *av){
4934 C_word t0=av[3];
4935 C_word t1=av[2];
4936 C_word t2=av[1];
4937 C_word t3=av[0];
4938 f_7954(t0,t1,t2,t3);}
4939 
4940 C_noret_decl(trf_8022)
4941 static void C_ccall trf_8022(C_word c,C_word *av) C_noret;
trf_8022(C_word c,C_word * av)4942 static void C_ccall trf_8022(C_word c,C_word *av){
4943 C_word t0=av[1];
4944 C_word t1=av[0];
4945 f_8022(t0,t1);}
4946 
4947 C_noret_decl(trf_8066)
4948 static void C_ccall trf_8066(C_word c,C_word *av) C_noret;
trf_8066(C_word c,C_word * av)4949 static void C_ccall trf_8066(C_word c,C_word *av){
4950 C_word t0=av[3];
4951 C_word t1=av[2];
4952 C_word t2=av[1];
4953 C_word t3=av[0];
4954 f_8066(t0,t1,t2,t3);}
4955 
4956 C_noret_decl(trf_8412)
4957 static void C_ccall trf_8412(C_word c,C_word *av) C_noret;
trf_8412(C_word c,C_word * av)4958 static void C_ccall trf_8412(C_word c,C_word *av){
4959 C_word t0=av[1];
4960 C_word t1=av[0];
4961 f_8412(t0,t1);}
4962 
4963 C_noret_decl(trf_8473)
4964 static void C_ccall trf_8473(C_word c,C_word *av) C_noret;
trf_8473(C_word c,C_word * av)4965 static void C_ccall trf_8473(C_word c,C_word *av){
4966 C_word t0=av[3];
4967 C_word t1=av[2];
4968 C_word t2=av[1];
4969 C_word t3=av[0];
4970 f_8473(t0,t1,t2,t3);}
4971 
4972 C_noret_decl(trf_8622)
4973 static void C_ccall trf_8622(C_word c,C_word *av) C_noret;
trf_8622(C_word c,C_word * av)4974 static void C_ccall trf_8622(C_word c,C_word *av){
4975 C_word t0=av[2];
4976 C_word t1=av[1];
4977 C_word t2=av[0];
4978 f_8622(t0,t1,t2);}
4979 
4980 C_noret_decl(trf_8640)
4981 static void C_ccall trf_8640(C_word c,C_word *av) C_noret;
trf_8640(C_word c,C_word * av)4982 static void C_ccall trf_8640(C_word c,C_word *av){
4983 C_word t0=av[3];
4984 C_word t1=av[2];
4985 C_word t2=av[1];
4986 C_word t3=av[0];
4987 f_8640(t0,t1,t2,t3);}
4988 
4989 C_noret_decl(trf_8670)
4990 static void C_ccall trf_8670(C_word c,C_word *av) C_noret;
trf_8670(C_word c,C_word * av)4991 static void C_ccall trf_8670(C_word c,C_word *av){
4992 C_word t0=av[2];
4993 C_word t1=av[1];
4994 C_word t2=av[0];
4995 f_8670(t0,t1,t2);}
4996 
4997 C_noret_decl(trf_8830)
4998 static void C_ccall trf_8830(C_word c,C_word *av) C_noret;
trf_8830(C_word c,C_word * av)4999 static void C_ccall trf_8830(C_word c,C_word *av){
5000 C_word t0=av[2];
5001 C_word t1=av[1];
5002 C_word t2=av[0];
5003 f_8830(t0,t1,t2);}
5004 
5005 C_noret_decl(trf_8873)
5006 static void C_ccall trf_8873(C_word c,C_word *av) C_noret;
trf_8873(C_word c,C_word * av)5007 static void C_ccall trf_8873(C_word c,C_word *av){
5008 C_word t0=av[2];
5009 C_word t1=av[1];
5010 C_word t2=av[0];
5011 f_8873(t0,t1,t2);}
5012 
5013 C_noret_decl(trf_8930)
5014 static void C_ccall trf_8930(C_word c,C_word *av) C_noret;
trf_8930(C_word c,C_word * av)5015 static void C_ccall trf_8930(C_word c,C_word *av){
5016 C_word t0=av[2];
5017 C_word t1=av[1];
5018 C_word t2=av[0];
5019 f_8930(t0,t1,t2);}
5020 
5021 C_noret_decl(trf_8968)
5022 static void C_ccall trf_8968(C_word c,C_word *av) C_noret;
trf_8968(C_word c,C_word * av)5023 static void C_ccall trf_8968(C_word c,C_word *av){
5024 C_word t0=av[4];
5025 C_word t1=av[3];
5026 C_word t2=av[2];
5027 C_word t3=av[1];
5028 C_word t4=av[0];
5029 f_8968(t0,t1,t2,t3,t4);}
5030 
5031 C_noret_decl(trf_8971)
5032 static void C_ccall trf_8971(C_word c,C_word *av) C_noret;
trf_8971(C_word c,C_word * av)5033 static void C_ccall trf_8971(C_word c,C_word *av){
5034 C_word t0=av[1];
5035 C_word t1=av[0];
5036 f_8971(t0,t1);}
5037 
5038 C_noret_decl(trf_9108)
5039 static void C_ccall trf_9108(C_word c,C_word *av) C_noret;
trf_9108(C_word c,C_word * av)5040 static void C_ccall trf_9108(C_word c,C_word *av){
5041 C_word t0=av[1];
5042 C_word t1=av[0];
5043 f_9108(t0,t1);}
5044 
5045 C_noret_decl(trf_9158)
5046 static void C_ccall trf_9158(C_word c,C_word *av) C_noret;
trf_9158(C_word c,C_word * av)5047 static void C_ccall trf_9158(C_word c,C_word *av){
5048 C_word t0=av[1];
5049 C_word t1=av[0];
5050 f_9158(t0,t1);}
5051 
5052 C_noret_decl(trf_9174)
5053 static void C_ccall trf_9174(C_word c,C_word *av) C_noret;
trf_9174(C_word c,C_word * av)5054 static void C_ccall trf_9174(C_word c,C_word *av){
5055 C_word t0=av[3];
5056 C_word t1=av[2];
5057 C_word t2=av[1];
5058 C_word t3=av[0];
5059 f_9174(t0,t1,t2,t3);}
5060 
5061 C_noret_decl(trf_9195)
5062 static void C_ccall trf_9195(C_word c,C_word *av) C_noret;
trf_9195(C_word c,C_word * av)5063 static void C_ccall trf_9195(C_word c,C_word *av){
5064 C_word t0=av[2];
5065 C_word t1=av[1];
5066 C_word t2=av[0];
5067 f_9195(t0,t1,t2);}
5068 
5069 C_noret_decl(trf_9201)
5070 static void C_ccall trf_9201(C_word c,C_word *av) C_noret;
trf_9201(C_word c,C_word * av)5071 static void C_ccall trf_9201(C_word c,C_word *av){
5072 C_word t0=av[2];
5073 C_word t1=av[1];
5074 C_word t2=av[0];
5075 f_9201(t0,t1,t2);}
5076 
5077 C_noret_decl(trf_9256)
5078 static void C_ccall trf_9256(C_word c,C_word *av) C_noret;
trf_9256(C_word c,C_word * av)5079 static void C_ccall trf_9256(C_word c,C_word *av){
5080 C_word t0=av[1];
5081 C_word t1=av[0];
5082 f_9256(t0,t1);}
5083 
5084 C_noret_decl(trf_9294)
5085 static void C_ccall trf_9294(C_word c,C_word *av) C_noret;
trf_9294(C_word c,C_word * av)5086 static void C_ccall trf_9294(C_word c,C_word *av){
5087 C_word t0=av[2];
5088 C_word t1=av[1];
5089 C_word t2=av[0];
5090 f_9294(t0,t1,t2);}
5091 
5092 C_noret_decl(trf_9310)
5093 static void C_ccall trf_9310(C_word c,C_word *av) C_noret;
trf_9310(C_word c,C_word * av)5094 static void C_ccall trf_9310(C_word c,C_word *av){
5095 C_word t0=av[3];
5096 C_word t1=av[2];
5097 C_word t2=av[1];
5098 C_word t3=av[0];
5099 f_9310(t0,t1,t2,t3);}
5100 
5101 C_noret_decl(trf_9337)
5102 static void C_ccall trf_9337(C_word c,C_word *av) C_noret;
trf_9337(C_word c,C_word * av)5103 static void C_ccall trf_9337(C_word c,C_word *av){
5104 C_word t0=av[2];
5105 C_word t1=av[1];
5106 C_word t2=av[0];
5107 f_9337(t0,t1,t2);}
5108 
5109 C_noret_decl(trf_9355)
5110 static void C_ccall trf_9355(C_word c,C_word *av) C_noret;
trf_9355(C_word c,C_word * av)5111 static void C_ccall trf_9355(C_word c,C_word *av){
5112 C_word t0=av[3];
5113 C_word t1=av[2];
5114 C_word t2=av[1];
5115 C_word t3=av[0];
5116 f_9355(t0,t1,t2,t3);}
5117 
5118 C_noret_decl(trf_9382)
5119 static void C_ccall trf_9382(C_word c,C_word *av) C_noret;
trf_9382(C_word c,C_word * av)5120 static void C_ccall trf_9382(C_word c,C_word *av){
5121 C_word t0=av[3];
5122 C_word t1=av[2];
5123 C_word t2=av[1];
5124 C_word t3=av[0];
5125 f_9382(t0,t1,t2,t3);}
5126 
5127 C_noret_decl(trf_9388)
5128 static void C_ccall trf_9388(C_word c,C_word *av) C_noret;
trf_9388(C_word c,C_word * av)5129 static void C_ccall trf_9388(C_word c,C_word *av){
5130 C_word t0=av[3];
5131 C_word t1=av[2];
5132 C_word t2=av[1];
5133 C_word t3=av[0];
5134 f_9388(t0,t1,t2,t3);}
5135 
5136 C_noret_decl(trf_9739)
5137 static void C_ccall trf_9739(C_word c,C_word *av) C_noret;
trf_9739(C_word c,C_word * av)5138 static void C_ccall trf_9739(C_word c,C_word *av){
5139 C_word t0=av[3];
5140 C_word t1=av[2];
5141 C_word t2=av[1];
5142 C_word t3=av[0];
5143 f_9739(t0,t1,t2,t3);}
5144 
5145 C_noret_decl(trf_9746)
5146 static void C_ccall trf_9746(C_word c,C_word *av) C_noret;
trf_9746(C_word c,C_word * av)5147 static void C_ccall trf_9746(C_word c,C_word *av){
5148 C_word t0=av[3];
5149 C_word t1=av[2];
5150 C_word t2=av[1];
5151 C_word t3=av[0];
5152 f_9746(t0,t1,t2,t3);}
5153 
5154 C_noret_decl(trf_9773)
5155 static void C_ccall trf_9773(C_word c,C_word *av) C_noret;
trf_9773(C_word c,C_word * av)5156 static void C_ccall trf_9773(C_word c,C_word *av){
5157 C_word t0=av[3];
5158 C_word t1=av[2];
5159 C_word t2=av[1];
5160 C_word t3=av[0];
5161 f_9773(t0,t1,t2,t3);}
5162 
5163 C_noret_decl(trf_9887)
5164 static void C_ccall trf_9887(C_word c,C_word *av) C_noret;
trf_9887(C_word c,C_word * av)5165 static void C_ccall trf_9887(C_word c,C_word *av){
5166 C_word t0=av[2];
5167 C_word t1=av[1];
5168 C_word t2=av[0];
5169 f_9887(t0,t1,t2);}
5170 
5171 C_noret_decl(trf_9964)
5172 static void C_ccall trf_9964(C_word c,C_word *av) C_noret;
trf_9964(C_word c,C_word * av)5173 static void C_ccall trf_9964(C_word c,C_word *av){
5174 C_word t0=av[1];
5175 C_word t1=av[0];
5176 f_9964(t0,t1);}
5177 
5178 /* f33619 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f33619(C_word c,C_word * av)5179 static void C_ccall f33619(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 t3;
5185 C_word *a;
5186 C_check_for_interrupt;
5187 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
5188 C_save_and_reclaim((void *)f33619,c,av);}
5189 a=C_alloc(3);
5190 t2=C_a_i_cons(&a,2,lf[124],t1);
5191 /* irregex-core.scm:848: lp */
5192 t3=((C_word*)((C_word*)t0)[2])[1];
5193 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
5194 
5195 /* f33623 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f33623(C_word c,C_word * av)5196 static void C_ccall f33623(C_word c,C_word *av){
5197 C_word tmp;
5198 C_word t0=av[0];
5199 C_word t1=av[1];
5200 C_word t2;
5201 C_word t3;
5202 C_word *a;
5203 C_check_for_interrupt;
5204 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
5205 C_save_and_reclaim((void *)f33623,c,av);}
5206 a=C_alloc(3);
5207 t2=C_a_i_cons(&a,2,lf[125],t1);
5208 /* irregex-core.scm:848: lp */
5209 t3=((C_word*)((C_word*)t0)[2])[1];
5210 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
5211 
5212 /* scan */
f_10021(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)5213 static void C_fcall f_10021(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
5214 C_word tmp;
5215 C_word t5;
5216 C_word t6;
5217 C_word t7;
5218 C_word t8;
5219 C_word t9;
5220 C_word t10;
5221 C_word t11;
5222 C_word t12;
5223 C_word t13;
5224 C_word t14;
5225 C_word t15;
5226 C_word t16;
5227 C_word t17;
5228 C_word *a;
5229 loop:
5230 C_check_for_interrupt;
5231 if(C_unlikely(!C_demand(C_calculate_demand(23,0,4)))){
5232 C_save_and_reclaim_args((void *)trf_10021,5,t0,t1,t2,t3,t4);}
5233 a=C_alloc(23);
5234 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10024,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li53),tmp=(C_word)a,a+=7,tmp);
5235 if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)((C_word*)t0)[3])[1]))){
5236 /* irregex-core.scm:676: chicken.base#error */
5237 t6=*((C_word*)lf[30]+1);{
5238 C_word av2[4];
5239 av2[0]=t6;
5240 av2[1]=t1;
5241 av2[2]=lf[78];
5242 av2[3]=((C_word*)t0)[2];
5243 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
5244 else{
5245 t6=C_i_string_ref(((C_word*)t0)[2],t3);
5246 switch(t6){
5247 case C_make_character(34):
5248 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10063,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
5249 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10070,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
5250 /* irregex-core.scm:678: collect */
5251 t9=t5;
5252 f_10024(t9,t8);
5253 case C_make_character(92):
5254 t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1));
5255 t8=C_a_i_fixnum_plus(&a,2,t3,C_fix(2));
5256 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10089,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp);
5257 /* irregex-core.scm:679: collect */
5258 t10=t5;
5259 f_10024(t10,t9);
5260 default:
5261 t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1));
5262 /* irregex-core.scm:680: scan */
5263 t14=t1;
5264 t15=t2;
5265 t16=t7;
5266 t17=t4;
5267 t1=t14;
5268 t2=t15;
5269 t3=t16;
5270 t4=t17;
5271 goto loop;}}}
5272 
5273 /* collect in scan */
f_10024(C_word t0,C_word t1)5274 static void C_fcall f_10024(C_word t0,C_word t1){
5275 C_word tmp;
5276 C_word t2;
5277 C_word t3;
5278 C_word t4;
5279 C_word *a;
5280 C_check_for_interrupt;
5281 if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
5282 C_save_and_reclaim_args((void *)trf_10024,2,t0,t1);}
5283 a=C_alloc(4);
5284 t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
5285 if(C_truep(t2)){
5286 t3=t1;{
5287 C_word av2[2];
5288 av2[0]=t3;
5289 av2[1]=((C_word*)t0)[4];
5290 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5291 else{
5292 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10038,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
5293 /* irregex-core.scm:674: scheme#substring */
5294 t4=*((C_word*)lf[46]+1);{
5295 C_word av2[5];
5296 av2[0]=t4;
5297 av2[1]=t3;
5298 av2[2]=((C_word*)t0)[5];
5299 av2[3]=((C_word*)t0)[2];
5300 av2[4]=((C_word*)t0)[3];
5301 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
5302 
5303 /* k10036 in collect in scan */
f_10038(C_word c,C_word * av)5304 static void C_ccall f_10038(C_word c,C_word *av){
5305 C_word tmp;
5306 C_word t0=av[0];
5307 C_word t1=av[1];
5308 C_word t2;
5309 C_word *a;
5310 C_check_for_interrupt;
5311 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
5312 C_save_and_reclaim((void *)f_10038,c,av);}
5313 a=C_alloc(3);
5314 t2=((C_word*)t0)[2];{
5315 C_word *av2=av;
5316 av2[0]=t2;
5317 av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
5318 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5319 
5320 /* k10061 in scan */
f_10063(C_word c,C_word * av)5321 static void C_ccall f_10063(C_word c,C_word *av){
5322 C_word tmp;
5323 C_word t0=av[0];
5324 C_word t1=av[1];
5325 C_word t2;
5326 C_word t3;
5327 C_word *a;
5328 C_check_for_interrupt;
5329 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
5330 C_save_and_reclaim((void *)f_10063,c,av);}
5331 a=C_alloc(5);
5332 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
5333 /* irregex-core.scm:678: k */
5334 t3=((C_word*)t0)[3];{
5335 C_word *av2;
5336 if(c >= 4) {
5337   av2=av;
5338 } else {
5339   av2=C_alloc(4);
5340 }
5341 av2[0]=t3;
5342 av2[1]=((C_word*)t0)[4];
5343 av2[2]=t1;
5344 av2[3]=t2;
5345 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
5346 
5347 /* k10068 in scan */
f_10070(C_word c,C_word * av)5348 static void C_ccall f_10070(C_word c,C_word *av){
5349 C_word tmp;
5350 C_word t0=av[0];
5351 C_word t1=av[1];
5352 C_word t2;
5353 C_word *a;
5354 C_check_for_interrupt;
5355 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5356 C_save_and_reclaim((void *)f_10070,c,av);}
5357 /* irregex-core.scm:678: string-cat-reverse */
5358 f_9108(((C_word*)t0)[2],t1);}
5359 
5360 /* k10087 in scan */
f_10089(C_word c,C_word * av)5361 static void C_ccall f_10089(C_word c,C_word *av){
5362 C_word tmp;
5363 C_word t0=av[0];
5364 C_word t1=av[1];
5365 C_word t2;
5366 C_word *a;
5367 C_check_for_interrupt;
5368 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
5369 C_save_and_reclaim((void *)f_10089,c,av);}
5370 /* irregex-core.scm:679: scan */
5371 t2=((C_word*)((C_word*)t0)[2])[1];
5372 f_10021(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
5373 
5374 /* a10121 */
f_10122(C_word c,C_word * av)5375 static void C_ccall f_10122(C_word c,C_word *av){
5376 C_word tmp;
5377 C_word t0=av[0];
5378 C_word t1=av[1];
5379 C_word t2=av[2];
5380 C_word t3=av[3];
5381 C_word t4;
5382 C_word *a;
5383 if(c!=4) C_bad_argc_2(c,4,t0);
5384 C_check_for_interrupt;
5385 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5386 C_save_and_reclaim((void *)f_10122,c,av);}
5387 /* irregex-core.scm:684: read */
5388 t4=((C_word*)((C_word*)t0)[2])[1];
5389 f_9746(t4,t1,t3,((C_word*)t0)[3]);}
5390 
5391 /* a10139 */
f_10140(C_word c,C_word * av)5392 static void C_ccall f_10140(C_word c,C_word *av){
5393 C_word tmp;
5394 C_word t0=av[0];
5395 C_word t1=av[1];
5396 C_word t2=av[2];
5397 C_word t3=av[3];
5398 C_word t4;
5399 C_word t5;
5400 C_word t6;
5401 C_word t7;
5402 C_word *a;
5403 if(c!=4) C_bad_argc_2(c,4,t0);
5404 C_check_for_interrupt;
5405 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
5406 C_save_and_reclaim((void *)f_10140,c,av);}
5407 a=C_alloc(5);
5408 t4=C_eqp(t2,lf[79]);
5409 if(C_truep(t4)){
5410 /* irregex-core.scm:688: k */
5411 t5=((C_word*)t0)[2];{
5412 C_word *av2=av;
5413 av2[0]=t5;
5414 av2[1]=t1;
5415 av2[2]=C_make_character(32);
5416 av2[3]=t3;
5417 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
5418 else{
5419 t5=C_eqp(t2,lf[80]);
5420 if(C_truep(t5)){
5421 /* irregex-core.scm:688: k */
5422 t6=((C_word*)t0)[2];{
5423 C_word *av2=av;
5424 av2[0]=t6;
5425 av2[1]=t1;
5426 av2[2]=C_make_character(10);
5427 av2[3]=t3;
5428 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
5429 else{
5430 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10160,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
5431 if(C_truep(C_i_numberp(t2))){
5432 /* ##sys#number->string */
5433 t7=*((C_word*)lf[81]+1);{
5434 C_word *av2=av;
5435 av2[0]=t7;
5436 av2[1]=t6;
5437 av2[2]=t2;
5438 av2[3]=C_fix(10);
5439 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
5440 else{
5441 /* irregex-core.scm:693: scheme#symbol->string */
5442 t7=*((C_word*)lf[82]+1);{
5443 C_word *av2=av;
5444 av2[0]=t7;
5445 av2[1]=t6;
5446 av2[2]=t2;
5447 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}
5448 
5449 /* k10158 in a10139 */
f_10160(C_word c,C_word * av)5450 static void C_ccall f_10160(C_word c,C_word *av){
5451 C_word tmp;
5452 C_word t0=av[0];
5453 C_word t1=av[1];
5454 C_word t2;
5455 C_word *a;
5456 C_check_for_interrupt;
5457 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5458 C_save_and_reclaim((void *)f_10160,c,av);}
5459 /* irregex-core.scm:688: k */
5460 t2=((C_word*)t0)[2];{
5461 C_word *av2;
5462 if(c >= 4) {
5463   av2=av;
5464 } else {
5465   av2=C_alloc(4);
5466 }
5467 av2[0]=t2;
5468 av2[1]=((C_word*)t0)[3];
5469 av2[2]=C_i_string_ref(t1,C_fix(0));
5470 av2[3]=((C_word*)t0)[4];
5471 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
5472 
5473 /* scan */
f_10240(C_word t0,C_word t1,C_word t2)5474 static void C_fcall f_10240(C_word t0,C_word t1,C_word t2){
5475 C_word tmp;
5476 C_word t3;
5477 C_word t4;
5478 C_word t5;
5479 C_word t6;
5480 C_word t7;
5481 C_word *a;
5482 C_check_for_interrupt;
5483 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
5484 C_save_and_reclaim_args((void *)trf_10240,3,t0,t1,t2);}
5485 a=C_alloc(8);
5486 t3=C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]);
5487 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10250,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,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);
5488 if(C_truep(t3)){
5489 t5=t4;
5490 f_10250(t5,t3);}
5491 else{
5492 t5=C_i_string_ref(((C_word*)t0)[4],t2);
5493 t6=C_u_i_char_whitespacep(t5);
5494 t7=t4;
5495 f_10250(t7,(C_truep(t6)?t6:C_u_i_memq(t5,lf[86])));}}
5496 
5497 /* k10248 in scan */
f_10250(C_word t0,C_word t1)5498 static void C_fcall f_10250(C_word t0,C_word t1){
5499 C_word tmp;
5500 C_word t2;
5501 C_word t3;
5502 C_word *a;
5503 C_check_for_interrupt;
5504 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
5505 C_save_and_reclaim_args((void *)trf_10250,2,t0,t1);}
5506 a=C_alloc(5);
5507 if(C_truep(t1)){
5508 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10253,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);
5509 /* irregex-core.scm:711: scheme#substring */
5510 t3=*((C_word*)lf[46]+1);{
5511 C_word av2[5];
5512 av2[0]=t3;
5513 av2[1]=t2;
5514 av2[2]=((C_word*)t0)[5];
5515 av2[3]=((C_word*)t0)[6];
5516 av2[4]=((C_word*)t0)[4];
5517 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
5518 else{
5519 /* irregex-core.scm:713: scan */
5520 t2=((C_word*)((C_word*)t0)[7])[1];
5521 f_10240(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}}
5522 
5523 /* k10251 in k10248 in scan */
f_10253(C_word c,C_word * av)5524 static void C_ccall f_10253(C_word c,C_word *av){
5525 C_word tmp;
5526 C_word t0=av[0];
5527 C_word t1=av[1];
5528 C_word t2;
5529 C_word t3;
5530 C_word *a;
5531 C_check_for_interrupt;
5532 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
5533 C_save_and_reclaim((void *)f_10253,c,av);}
5534 a=C_alloc(6);
5535 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10260,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
5536 /* irregex-core.scm:712: scheme#string->number */
5537 t3=*((C_word*)lf[85]+1);{
5538 C_word *av2;
5539 if(c >= 3) {
5540   av2=av;
5541 } else {
5542   av2=C_alloc(3);
5543 }
5544 av2[0]=t3;
5545 av2[1]=t2;
5546 av2[2]=t1;
5547 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5548 
5549 /* k10258 in k10251 in k10248 in scan */
f_10260(C_word c,C_word * av)5550 static void C_ccall f_10260(C_word c,C_word *av){
5551 C_word tmp;
5552 C_word t0=av[0];
5553 C_word t1=av[1];
5554 C_word t2;
5555 C_word t3;
5556 C_word *a;
5557 C_check_for_interrupt;
5558 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
5559 C_save_and_reclaim((void *)f_10260,c,av);}
5560 a=C_alloc(5);
5561 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10263,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);
5562 if(C_truep(t1)){
5563 /* irregex-core.scm:712: k */
5564 t3=((C_word*)t0)[2];{
5565 C_word *av2;
5566 if(c >= 4) {
5567   av2=av;
5568 } else {
5569   av2=C_alloc(4);
5570 }
5571 av2[0]=t3;
5572 av2[1]=((C_word*)t0)[3];
5573 av2[2]=t1;
5574 av2[3]=((C_word*)t0)[4];
5575 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
5576 else{
5577 /* irregex-core.scm:712: scheme#string->symbol */
5578 t3=*((C_word*)lf[84]+1);{
5579 C_word *av2;
5580 if(c >= 3) {
5581   av2=av;
5582 } else {
5583   av2=C_alloc(3);
5584 }
5585 av2[0]=t3;
5586 av2[1]=t2;
5587 av2[2]=((C_word*)t0)[5];
5588 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
5589 
5590 /* k10261 in k10258 in k10251 in k10248 in scan */
f_10263(C_word c,C_word * av)5591 static void C_ccall f_10263(C_word c,C_word *av){
5592 C_word tmp;
5593 C_word t0=av[0];
5594 C_word t1=av[1];
5595 C_word t2;
5596 C_word *a;
5597 C_check_for_interrupt;
5598 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5599 C_save_and_reclaim((void *)f_10263,c,av);}
5600 /* irregex-core.scm:712: k */
5601 t2=((C_word*)t0)[2];{
5602 C_word *av2;
5603 if(c >= 4) {
5604   av2=av;
5605 } else {
5606   av2=C_alloc(4);
5607 }
5608 av2[0]=t2;
5609 av2[1]=((C_word*)t0)[3];
5610 av2[2]=t1;
5611 av2[3]=((C_word*)t0)[4];
5612 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
5613 
5614 /* a10310 in chicken.irregex#with-read-from-string in k7761 in k7536 in k7533 */
f_10311(C_word c,C_word * av)5615 static void C_ccall f_10311(C_word c,C_word *av){
5616 C_word tmp;
5617 C_word t0=av[0];
5618 C_word t1=av[1];
5619 C_word t2=av[2];
5620 C_word t3=av[3];
5621 C_word t4;
5622 C_word t5;
5623 C_word *a;
5624 if(c!=4) C_bad_argc_2(c,4,t0);
5625 C_check_for_interrupt;
5626 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
5627 C_save_and_reclaim((void *)f_10311,c,av);}
5628 t4=C_eqp(t2,lf[87]);
5629 if(C_truep(t4)){
5630 /* irregex-core.scm:716: chicken.base#error */
5631 t5=*((C_word*)lf[30]+1);{
5632 C_word *av2;
5633 if(c >= 5) {
5634   av2=av;
5635 } else {
5636   av2=C_alloc(5);
5637 }
5638 av2[0]=t5;
5639 av2[1]=t1;
5640 av2[2]=lf[88];
5641 av2[3]=((C_word*)t0)[2];
5642 av2[4]=t3;
5643 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
5644 else{
5645 /* irregex-core.scm:717: proc */
5646 t5=((C_word*)t0)[3];{
5647 C_word *av2=av;
5648 av2[0]=t5;
5649 av2[1]=t1;
5650 av2[2]=t2;
5651 av2[3]=t3;
5652 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
5653 
5654 /* chicken.irregex#symbol-list->flags in k7761 in k7536 in k7533 */
f_10332(C_word t1,C_word t2)5655 static void C_fcall f_10332(C_word t1,C_word t2){
5656 C_word tmp;
5657 C_word t3;
5658 C_word t4;
5659 C_word t5;
5660 C_word t6;
5661 C_word *a;
5662 C_check_for_interrupt;
5663 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
5664 C_save_and_reclaim_args((void *)trf_10332,2,t1,t2);}
5665 a=C_alloc(6);
5666 t3=C_SCHEME_UNDEFINED;
5667 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
5668 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10338,a[2]=t4,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp));
5669 t6=((C_word*)t4)[1];
5670 f_10338(t6,t1,t2,C_fix(0));}
5671 
5672 /* lp in chicken.irregex#symbol-list->flags in k7761 in k7536 in k7533 */
f_10338(C_word t0,C_word t1,C_word t2,C_word t3)5673 static void C_fcall f_10338(C_word t0,C_word t1,C_word t2,C_word t3){
5674 C_word tmp;
5675 C_word t4;
5676 C_word t5;
5677 C_word t6;
5678 C_word t7;
5679 C_word t8;
5680 C_word t9;
5681 C_word t10;
5682 C_word t11;
5683 C_word *a;
5684 C_check_for_interrupt;
5685 if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
5686 C_save_and_reclaim_args((void *)trf_10338,4,t0,t1,t2,t3);}
5687 a=C_alloc(13);
5688 t4=C_i_pairp(t2);
5689 if(C_truep(C_i_not(t4))){
5690 t5=t1;{
5691 C_word av2[2];
5692 av2[0]=t5;
5693 av2[1]=t3;
5694 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
5695 else{
5696 t5=C_i_cdr(t2);
5697 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10356,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
5698 t7=C_u_i_car(t2);
5699 t8=C_eqp(t7,lf[90]);
5700 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10367,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=t3,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
5701 if(C_truep(t8)){
5702 t10=t9;
5703 f_10367(t10,t8);}
5704 else{
5705 t10=C_eqp(t7,lf[99]);
5706 t11=t9;
5707 f_10367(t11,(C_truep(t10)?t10:C_eqp(t7,lf[100])));}}}
5708 
5709 /* k10354 in lp in chicken.irregex#symbol-list->flags in k7761 in k7536 in k7533 */
f_10356(C_word t0,C_word t1)5710 static void C_fcall f_10356(C_word t0,C_word t1){
5711 C_word tmp;
5712 C_word t2;
5713 C_word *a;
5714 C_check_for_interrupt;
5715 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
5716 C_save_and_reclaim_args((void *)trf_10356,2,t0,t1);}
5717 /* irregex-core.scm:733: lp */
5718 t2=((C_word*)((C_word*)t0)[2])[1];
5719 f_10338(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
5720 
5721 /* k10365 in lp in chicken.irregex#symbol-list->flags in k7761 in k7536 in k7533 */
f_10367(C_word t0,C_word t1)5722 static void C_fcall f_10367(C_word t0,C_word t1){
5723 C_word tmp;
5724 C_word t2;
5725 C_word t3;
5726 C_word t4;
5727 C_word t5;
5728 C_word t6;
5729 C_word t7;
5730 C_word t8;
5731 C_word t9;
5732 C_word t10;
5733 C_word *a;
5734 C_check_for_interrupt;
5735 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
5736 C_save_and_reclaim_args((void *)trf_10367,2,t0,t1);}
5737 if(C_truep(t1)){
5738 /* irregex-core.scm:733: lp */
5739 t2=((C_word*)((C_word*)t0)[2])[1];
5740 f_10338(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_or(((C_word*)t0)[5],C_fix(2)));}
5741 else{
5742 t2=C_eqp(((C_word*)t0)[6],lf[91]);
5743 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[92]));
5744 if(C_truep(t3)){
5745 /* irregex-core.scm:733: lp */
5746 t4=((C_word*)((C_word*)t0)[2])[1];
5747 f_10338(t4,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_or(((C_word*)t0)[5],C_fix(4)));}
5748 else{
5749 t4=C_eqp(((C_word*)t0)[6],lf[93]);
5750 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[94]));
5751 if(C_truep(t5)){
5752 t6=((C_word*)t0)[7];
5753 f_10356(t6,C_fixnum_or(((C_word*)t0)[5],C_fix(8)));}
5754 else{
5755 t6=C_eqp(((C_word*)t0)[6],lf[95]);
5756 t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[6],lf[96]));
5757 if(C_truep(t7)){
5758 t8=((C_word*)t0)[7];
5759 f_10356(t8,C_fixnum_or(((C_word*)t0)[5],C_fix(16)));}
5760 else{
5761 t8=C_eqp(((C_word*)t0)[6],lf[97]);
5762 t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[6],lf[98]));
5763 if(C_truep(t9)){
5764 t10=((C_word*)t0)[7];
5765 f_10356(t10,C_fixnum_or(((C_word*)t0)[5],C_fix(32)));}
5766 else{
5767 /* irregex-core.scm:733: lp */
5768 t10=((C_word*)((C_word*)t0)[2])[1];
5769 f_10338(t10,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}}}}}}
5770 
5771 /* chicken.irregex#maybe-string->sre in k7761 in k7536 in k7533 */
f_10455(C_word c,C_word * av)5772 static void C_ccall f_10455(C_word c,C_word *av){
5773 C_word tmp;
5774 C_word t0=av[0];
5775 C_word t1=av[1];
5776 C_word t2=av[2];
5777 C_word t3;
5778 C_word *a;
5779 if(c!=3) C_bad_argc_2(c,3,t0);
5780 C_check_for_interrupt;
5781 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
5782 C_save_and_reclaim((void *)f_10455,c,av);}
5783 if(C_truep(C_i_stringp(t2))){
5784 /* irregex-core.scm:745: string->sre */
5785 t3=*((C_word*)lf[102]+1);{
5786 C_word *av2=av;
5787 av2[0]=t3;
5788 av2[1]=t1;
5789 av2[2]=t2;
5790 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5791 else{
5792 t3=t1;{
5793 C_word *av2=av;
5794 av2[0]=t3;
5795 av2[1]=t2;
5796 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
5797 
5798 /* chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10467(C_word c,C_word * av)5799 static void C_ccall f_10467(C_word c,C_word *av){
5800 C_word tmp;
5801 C_word t0=av[0];
5802 C_word t1=av[1];
5803 C_word t2=av[2];
5804 C_word t3;
5805 C_word *a;
5806 if(c<3) C_bad_min_argc_2(c,3,t0);
5807 C_check_for_interrupt;
5808 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){
5809 C_save_and_reclaim((void*)f_10467,c,av);}
5810 a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
5811 t3=C_build_rest(&a,c,3,av);
5812 C_word t4;
5813 C_word t5;
5814 C_word t6;
5815 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10471,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
5816 t5=C_i_stringp(t2);
5817 if(C_truep(C_i_not(t5))){
5818 /* irregex-core.scm:748: chicken.base#error */
5819 t6=*((C_word*)lf[30]+1);{
5820 C_word *av2;
5821 if(c >= 5) {
5822   av2=av;
5823 } else {
5824   av2=C_alloc(5);
5825 }
5826 av2[0]=t6;
5827 av2[1]=t4;
5828 av2[2]=lf[197];
5829 av2[3]=lf[198];
5830 av2[4]=t2;
5831 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
5832 else{
5833 t6=t4;{
5834 C_word *av2=av;
5835 av2[0]=t6;
5836 av2[1]=C_SCHEME_UNDEFINED;
5837 f_10471(2,av2);}}}
5838 
5839 /* k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10471(C_word c,C_word * av)5840 static void C_ccall f_10471(C_word c,C_word *av){
5841 C_word tmp;
5842 C_word t0=av[0];
5843 C_word t1=av[1];
5844 C_word t2;
5845 C_word t3;
5846 C_word t4;
5847 C_word *a;
5848 C_check_for_interrupt;
5849 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
5850 C_save_and_reclaim((void *)f_10471,c,av);}
5851 a=C_alloc(5);
5852 t2=C_i_string_length(((C_word*)t0)[2]);
5853 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10477,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
5854 /* irregex-core.scm:750: symbol-list->flags */
5855 f_10332(t3,((C_word*)t0)[4]);}
5856 
5857 /* k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10477(C_word c,C_word * av)5858 static void C_ccall f_10477(C_word c,C_word *av){
5859 C_word tmp;
5860 C_word t0=av[0];
5861 C_word t1=av[1];
5862 C_word t2;
5863 C_word t3;
5864 C_word t4;
5865 C_word t5;
5866 C_word *a;
5867 C_check_for_interrupt;
5868 if(C_unlikely(!C_demand(C_calculate_demand(8,c,7)))){
5869 C_save_and_reclaim((void *)f_10477,c,av);}
5870 a=C_alloc(8);
5871 t2=C_SCHEME_UNDEFINED;
5872 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
5873 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10482,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp));
5874 t5=((C_word*)t3)[1];
5875 f_10482(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}
5876 
5877 /* lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10482(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6)5878 static void C_fcall f_10482(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
5879 C_word tmp;
5880 C_word t7;
5881 C_word t8;
5882 C_word t9;
5883 C_word t10;
5884 C_word t11;
5885 C_word t12;
5886 C_word t13;
5887 C_word t14;
5888 C_word t15;
5889 C_word t16;
5890 C_word t17;
5891 C_word t18;
5892 C_word t19;
5893 C_word t20;
5894 C_word t21;
5895 C_word t22;
5896 C_word t23;
5897 C_word t24;
5898 C_word t25;
5899 C_word t26;
5900 C_word t27;
5901 C_word t28;
5902 C_word t29;
5903 C_word t30;
5904 C_word t31;
5905 C_word t32;
5906 C_word t33;
5907 C_word t34;
5908 C_word t35;
5909 C_word t36;
5910 C_word t37;
5911 C_word t38;
5912 C_word t39;
5913 C_word t40;
5914 C_word t41;
5915 C_word t42;
5916 C_word t43;
5917 C_word t44;
5918 C_word t45;
5919 C_word t46;
5920 C_word t47;
5921 C_word t48;
5922 C_word t49;
5923 C_word t50;
5924 C_word t51;
5925 C_word t52;
5926 C_word t53;
5927 C_word t54;
5928 C_word t55;
5929 C_word t56;
5930 C_word t57;
5931 C_word t58;
5932 C_word t59;
5933 C_word t60;
5934 C_word t61;
5935 C_word t62;
5936 C_word t63;
5937 C_word t64;
5938 C_word t65;
5939 C_word t66;
5940 C_word t67;
5941 C_word t68;
5942 C_word t69;
5943 C_word t70;
5944 C_word t71;
5945 C_word t72;
5946 C_word t73;
5947 C_word t74;
5948 C_word t75;
5949 C_word t76;
5950 C_word t77;
5951 C_word t78;
5952 C_word t79;
5953 C_word t80;
5954 C_word t81;
5955 C_word t82;
5956 C_word t83;
5957 C_word t84;
5958 C_word t85;
5959 C_word t86;
5960 C_word t87;
5961 C_word t88;
5962 C_word t89;
5963 C_word t90;
5964 C_word t91;
5965 C_word t92;
5966 C_word t93;
5967 C_word t94;
5968 C_word t95;
5969 C_word t96;
5970 C_word t97;
5971 C_word t98;
5972 C_word t99;
5973 C_word t100;
5974 C_word t101;
5975 C_word t102;
5976 C_word t103;
5977 C_word t104;
5978 C_word t105;
5979 C_word t106;
5980 C_word t107;
5981 C_word t108;
5982 C_word t109;
5983 C_word t110;
5984 C_word t111;
5985 C_word t112;
5986 C_word t113;
5987 C_word t114;
5988 C_word t115;
5989 C_word t116;
5990 C_word t117;
5991 C_word t118;
5992 C_word t119;
5993 C_word t120;
5994 C_word t121;
5995 C_word t122;
5996 C_word t123;
5997 C_word t124;
5998 C_word t125;
5999 C_word t126;
6000 C_word t127;
6001 C_word t128;
6002 C_word t129;
6003 C_word t130;
6004 C_word t131;
6005 C_word t132;
6006 C_word t133;
6007 C_word t134;
6008 C_word t135;
6009 C_word t136;
6010 C_word t137;
6011 C_word t138;
6012 C_word t139;
6013 C_word t140;
6014 C_word t141;
6015 C_word t142;
6016 C_word t143;
6017 C_word t144;
6018 C_word t145;
6019 C_word t146;
6020 C_word t147;
6021 C_word t148;
6022 C_word t149;
6023 C_word t150;
6024 C_word t151;
6025 C_word t152;
6026 C_word t153;
6027 C_word t154;
6028 C_word t155;
6029 C_word t156;
6030 C_word t157;
6031 C_word t158;
6032 C_word t159;
6033 C_word t160;
6034 C_word t161;
6035 C_word t162;
6036 C_word t163;
6037 C_word t164;
6038 C_word t165;
6039 C_word t166;
6040 C_word t167;
6041 C_word t168;
6042 C_word t169;
6043 C_word t170;
6044 C_word t171;
6045 C_word t172;
6046 C_word t173;
6047 C_word t174;
6048 C_word t175;
6049 C_word t176;
6050 C_word t177;
6051 C_word t178;
6052 C_word t179;
6053 C_word t180;
6054 C_word t181;
6055 C_word t182;
6056 C_word t183;
6057 C_word t184;
6058 C_word t185;
6059 C_word t186;
6060 C_word t187;
6061 C_word t188;
6062 C_word t189;
6063 C_word t190;
6064 C_word t191;
6065 C_word t192;
6066 C_word t193;
6067 C_word t194;
6068 C_word t195;
6069 C_word t196;
6070 C_word t197;
6071 C_word t198;
6072 C_word t199;
6073 C_word t200;
6074 C_word t201;
6075 C_word t202;
6076 C_word t203;
6077 C_word t204;
6078 C_word t205;
6079 C_word t206;
6080 C_word t207;
6081 C_word t208;
6082 C_word t209;
6083 C_word t210;
6084 C_word t211;
6085 C_word t212;
6086 C_word t213;
6087 C_word t214;
6088 C_word t215;
6089 C_word t216;
6090 C_word t217;
6091 C_word t218;
6092 C_word t219;
6093 C_word t220;
6094 C_word t221;
6095 C_word t222;
6096 C_word t223;
6097 C_word t224;
6098 C_word t225;
6099 C_word t226;
6100 C_word t227;
6101 C_word t228;
6102 C_word t229;
6103 C_word t230;
6104 C_word *a;
6105 loop:
6106 C_check_for_interrupt;
6107 if(C_unlikely(!C_demand(C_calculate_demand(105,0,6)))){
6108 C_save_and_reclaim_args((void *)trf_10482,7,t0,t1,t2,t3,t4,t5,t6);}
6109 a=C_alloc(105);
6110 t7=C_SCHEME_UNDEFINED;
6111 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
6112 t9=C_SCHEME_UNDEFINED;
6113 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
6114 t11=C_SCHEME_UNDEFINED;
6115 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
6116 t13=C_SCHEME_UNDEFINED;
6117 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
6118 t15=C_SCHEME_UNDEFINED;
6119 t16=C_SCHEME_UNDEFINED;
6120 t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
6121 t18=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10485,a[2]=t4,a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp));
6122 t19=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10507,a[2]=t4,a[3]=t8,a[4]=((C_word)li66),tmp=(C_word)a,a+=5,tmp));
6123 t20=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10563,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=((C_word)li67),tmp=(C_word)a,a+=8,tmp));
6124 t21=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10583,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=t8,a[8]=t2,a[9]=((C_word)li69),tmp=(C_word)a,a+=10,tmp));
6125 t22=t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10655,a[2]=t4,a[3]=t12,a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp);
6126 t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10888,a[2]=t4,a[3]=t6,a[4]=t12,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp));
6127 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[3]))){
6128 if(C_truep(C_i_pairp(t6))){
6129 /* irregex-core.scm:843: chicken.base#error */
6130 t24=*((C_word*)lf[30]+1);{
6131 C_word av2[4];
6132 av2[0]=t24;
6133 av2[1]=t1;
6134 av2[2]=lf[123];
6135 av2[3]=((C_word*)t0)[2];
6136 ((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}}
6137 else{
6138 /* irregex-core.scm:844: collect/terms */
6139 t24=t15;
6140 f_10655(t24,t1);}}
6141 else{
6142 t24=C_i_string_ref(((C_word*)t0)[2],t2);
6143 switch(t24){
6144 case C_make_character(46):
6145 t25=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6146 t26=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6147 t27=C_fixnum_and(t4,C_fix(8));
6148 t28=C_eqp(C_fix(8),t27);
6149 if(C_truep(t28)){
6150 t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f33619,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t25,a[5]=t26,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6151 /* irregex-core.scm:850: collect */
6152 t30=((C_word*)t12)[1];
6153 f_10563(t30,t29);}
6154 else{
6155 t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f33623,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t25,a[5]=t26,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6156 /* irregex-core.scm:850: collect */
6157 t30=((C_word*)t12)[1];
6158 f_10563(t30,t29);}
6159 case C_make_character(63):
6160 t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10960,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6161 /* irregex-core.scm:853: collect/single */
6162 t26=((C_word*)t14)[1];
6163 f_10583(t26,t25);
6164 default:
6165 t25=C_eqp(t24,C_make_character(43));
6166 t26=(C_truep(t25)?t25:C_eqp(t24,C_make_character(42)));
6167 if(C_truep(t26)){
6168 t27=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11120,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=t6,a[8]=t24,tmp=(C_word)a,a+=9,tmp);
6169 /* irregex-core.scm:874: collect/single */
6170 t28=((C_word*)t14)[1];
6171 f_10583(t28,t27);}
6172 else{
6173 switch(t24){
6174 case C_make_character(40):
6175 t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6176 if(C_truep(C_i_integer_greater_or_equalp(t27,((C_word*)t0)[3]))){
6177 /* irregex-core.scm:889: chicken.base#error */
6178 t28=*((C_word*)lf[30]+1);{
6179 C_word av2[4];
6180 av2[0]=t28;
6181 av2[1]=t1;
6182 av2[2]=lf[140];
6183 av2[3]=((C_word*)t0)[2];
6184 ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}}
6185 else{
6186 t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6187 t29=C_i_string_ref(((C_word*)t0)[2],t28);
6188 if(C_truep(C_i_not(C_u_i_memq(t29,lf[141])))){
6189 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6190 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6191 t32=C_fixnum_or(t4,C_fix(1));
6192 t33=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11212,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t32,tmp=(C_word)a,a+=7,tmp);
6193 /* irregex-core.scm:891: save */
6194 t34=((C_word*)t17)[1];
6195 f_10888(t34,t33);}
6196 else{
6197 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6198 if(C_truep(C_i_integer_greater_or_equalp(t30,((C_word*)t0)[3]))){
6199 /* irregex-core.scm:893: chicken.base#error */
6200 t31=*((C_word*)lf[30]+1);{
6201 C_word av2[4];
6202 av2[0]=t31;
6203 av2[1]=t1;
6204 av2[2]=lf[142];
6205 av2[3]=((C_word*)t0)[2];
6206 ((C_proc)(void*)(*((C_word*)t31+1)))(4,av2);}}
6207 else{
6208 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6209 t32=C_i_string_ref(((C_word*)t0)[2],t31);
6210 t33=C_eqp(t32,C_make_character(42));
6211 if(C_truep(t33)){
6212 t34=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6213 t35=C_i_string_ref(((C_word*)t0)[2],t34);
6214 t36=C_eqp(C_make_character(39),t35);
6215 if(C_truep(t36)){
6216 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6217 t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11242,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t6,a[7]=t12,a[8]=((C_word)li73),tmp=(C_word)a,a+=9,tmp);
6218 /* irregex-core.scm:896: with-read-from-string */
6219 f_9739(t1,((C_word*)t0)[2],t37,t38);}
6220 else{
6221 /* irregex-core.scm:901: chicken.base#error */
6222 t37=*((C_word*)lf[30]+1);{
6223 C_word av2[4];
6224 av2[0]=t37;
6225 av2[1]=t1;
6226 av2[2]=lf[144];
6227 av2[3]=((C_word*)t0)[2];
6228 ((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}}}
6229 else{
6230 t34=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6231 t35=C_i_string_ref(((C_word*)t0)[2],t34);
6232 switch(t35){
6233 case C_make_character(35):
6234 t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11309,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t6,a[7]=t12,tmp=(C_word)a,a+=8,tmp);
6235 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6236 /* irregex-core.scm:905: string-scan-char */
6237 t38=lf[54];{
6238 C_word av2[5];
6239 av2[0]=t38;
6240 av2[1]=t36;
6241 av2[2]=((C_word*)t0)[2];
6242 av2[3]=C_make_character(41);
6243 av2[4]=t37;
6244 ((C_proc)(void*)(*((C_word*)t38+1)))(5,av2);}
6245 case C_make_character(58):
6246 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6247 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6248 t38=C_fixnum_not(C_fix(1));
6249 t39=C_fixnum_and(t4,t38);
6250 t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11350,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp);
6251 /* irregex-core.scm:908: save */
6252 t41=((C_word*)t17)[1];
6253 f_10888(t41,t40);
6254 case C_make_character(61):
6255 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6256 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6257 t38=C_fixnum_not(C_fix(1));
6258 t39=C_fixnum_and(t4,t38);
6259 t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11373,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp);
6260 /* irregex-core.scm:911: save */
6261 t41=((C_word*)t17)[1];
6262 f_10888(t41,t40);
6263 case C_make_character(33):
6264 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6265 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6266 t38=C_fixnum_not(C_fix(1));
6267 t39=C_fixnum_and(t4,t38);
6268 t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11396,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp);
6269 /* irregex-core.scm:914: save */
6270 t41=((C_word*)t17)[1];
6271 f_10888(t41,t40);
6272 case C_make_character(60):
6273 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6274 if(C_truep(C_i_integer_greater_or_equalp(t36,((C_word*)t0)[3]))){
6275 /* irregex-core.scm:918: chicken.base#error */
6276 t37=*((C_word*)lf[30]+1);{
6277 C_word av2[4];
6278 av2[0]=t37;
6279 av2[1]=t1;
6280 av2[2]=lf[147];
6281 av2[3]=((C_word*)t0)[2];
6282 ((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}}
6283 else{
6284 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6285 t38=C_i_string_ref(((C_word*)t0)[2],t37);
6286 switch(t38){
6287 case C_make_character(61):
6288 t39=C_a_i_fixnum_plus(&a,2,t2,C_fix(4));
6289 t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(4));
6290 t41=C_fixnum_not(C_fix(1));
6291 t42=C_fixnum_and(t4,t41);
6292 t43=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11438,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t40,a[6]=t42,tmp=(C_word)a,a+=7,tmp);
6293 /* irregex-core.scm:923: save */
6294 t44=((C_word*)t17)[1];
6295 f_10888(t44,t43);
6296 case C_make_character(33):
6297 t39=C_a_i_fixnum_plus(&a,2,t2,C_fix(4));
6298 t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(4));
6299 t41=C_fixnum_not(C_fix(1));
6300 t42=C_fixnum_and(t4,t41);
6301 t43=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11461,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t40,a[6]=t42,tmp=(C_word)a,a+=7,tmp);
6302 /* irregex-core.scm:926: save */
6303 t44=((C_word*)t17)[1];
6304 f_10888(t44,t43);
6305 default:
6306 t39=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11464,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t17,a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
6307 t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6308 t41=C_i_string_ref(((C_word*)t0)[2],t40);
6309 if(C_truep(C_u_i_char_alphabeticp(t41))){
6310 t42=C_a_i_fixnum_plus(&a,2,t2,C_fix(4));
6311 /* irregex-core.scm:930: string-scan-char */
6312 t43=lf[54];{
6313 C_word av2[5];
6314 av2[0]=t43;
6315 av2[1]=t39;
6316 av2[2]=((C_word*)t0)[2];
6317 av2[3]=C_make_character(62);
6318 av2[4]=t42;
6319 ((C_proc)(void*)(*((C_word*)t43+1)))(5,av2);}}
6320 else{
6321 t42=t39;{
6322 C_word av2[2];
6323 av2[0]=t42;
6324 av2[1]=C_SCHEME_FALSE;
6325 f_11464(2,av2);}}}}
6326 case C_make_character(62):
6327 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6328 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6329 t38=C_fixnum_not(C_fix(1));
6330 t39=C_fixnum_and(t4,t38);
6331 t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11550,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp);
6332 /* irregex-core.scm:939: save */
6333 t41=((C_word*)t17)[1];
6334 f_10888(t41,t40);
6335 case C_make_character(40):
6336 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6337 if(C_truep(C_i_integer_greater_or_equalp(t36,((C_word*)t0)[3]))){
6338 /* irregex-core.scm:947: chicken.base#error */
6339 t37=*((C_word*)lf[30]+1);{
6340 C_word av2[4];
6341 av2[0]=t37;
6342 av2[1]=t1;
6343 av2[2]=lf[152];
6344 av2[3]=((C_word*)t0)[2];
6345 ((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}}
6346 else{
6347 t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6348 t38=C_i_string_ref(((C_word*)t0)[2],t37);
6349 if(C_truep(C_u_i_char_numericp(t38))){
6350 t39=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11575,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t17,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
6351 t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6352 /* irregex-core.scm:949: string-scan-char */
6353 t41=lf[54];{
6354 C_word av2[5];
6355 av2[0]=t41;
6356 av2[1]=t39;
6357 av2[2]=((C_word*)t0)[2];
6358 av2[3]=C_make_character(41);
6359 av2[4]=t40;
6360 ((C_proc)(void*)(*((C_word*)t41+1)))(5,av2);}}
6361 else{
6362 t39=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6363 t40=C_i_string_ref(((C_word*)t0)[2],t39);
6364 if(C_truep(C_u_i_char_alphabeticp(t40))){
6365 t41=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11627,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t17,a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
6366 t42=C_a_i_fixnum_plus(&a,2,t2,C_fix(3));
6367 /* irregex-core.scm:956: string-scan-char */
6368 t43=lf[54];{
6369 C_word av2[5];
6370 av2[0]=t43;
6371 av2[1]=t41;
6372 av2[2]=((C_word*)t0)[2];
6373 av2[3]=C_make_character(41);
6374 av2[4]=t42;
6375 ((C_proc)(void*)(*((C_word*)t43+1)))(5,av2);}}
6376 else{
6377 t41=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6378 t42=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6379 t43=C_fixnum_not(C_fix(1));
6380 t44=C_fixnum_and(t4,t43);
6381 t45=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11678,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t41,a[5]=t42,a[6]=t44,tmp=(C_word)a,a+=7,tmp);
6382 /* irregex-core.scm:962: save */
6383 t46=((C_word*)t17)[1];
6384 f_10888(t46,t45);}}}
6385 case C_make_character(123):
6386 /* irregex-core.scm:964: chicken.base#error */
6387 t36=*((C_word*)lf[30]+1);{
6388 C_word av2[4];
6389 av2[0]=t36;
6390 av2[1]=t1;
6391 av2[2]=lf[155];
6392 av2[3]=((C_word*)t0)[2];
6393 ((C_proc)(void*)(*((C_word*)t36+1)))(4,av2);}
6394 default:
6395 t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6396 t37=C_SCHEME_UNDEFINED;
6397 t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp);
6398 t39=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11709,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t38,a[7]=((C_word*)t0)[4],a[8]=t6,a[9]=t12,a[10]=((C_word)li76),tmp=(C_word)a,a+=11,tmp));
6399 t40=((C_word*)t38)[1];
6400 f_11709(t40,t1,t36,t4,C_SCHEME_FALSE);}}}}}
6401 case C_make_character(41):
6402 if(C_truep(C_i_nullp(t6))){
6403 /* irregex-core.scm:1004: chicken.base#error */
6404 t27=*((C_word*)lf[30]+1);{
6405 C_word av2[4];
6406 av2[0]=t27;
6407 av2[1]=t1;
6408 av2[2]=lf[160];
6409 av2[3]=((C_word*)t0)[2];
6410 ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}}
6411 else{
6412 t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6413 t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6414 t29=C_i_caar(t6);
6415 t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11987,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t27,a[6]=t28,a[7]=t29,tmp=(C_word)a,a+=8,tmp);
6416 /* irregex-core.scm:1008: collect/terms */
6417 t31=t15;
6418 f_10655(t31,t30);}
6419 case C_make_character(91):
6420 t27=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12002,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li77),tmp=(C_word)a,a+=7,tmp);
6421 t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12026,a[2]=t1,a[3]=t27,tmp=(C_word)a,a+=4,tmp);
6422 t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6423 t30=C_i_string_length(((C_word*)t0)[2]);
6424 t31=C_fixnum_lessp(t29,t30);
6425 t32=(C_truep(t31)?C_eqp(C_make_character(94),C_i_string_ref(((C_word*)t0)[2],t29)):C_SCHEME_FALSE);
6426 t33=C_fixnum_and(t4,C_fix(32));
6427 t34=C_eqp(C_fix(32),t33);
6428 t35=C_SCHEME_UNDEFINED;
6429 t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp);
6430 t37=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13404,a[2]=t30,a[3]=((C_word*)t0)[2],a[4]=t36,a[5]=t4,a[6]=t32,a[7]=t29,a[8]=t34,a[9]=((C_word)li82),tmp=(C_word)a,a+=10,tmp));
6431 if(C_truep(t32)){
6432 t38=C_fixnum_plus(t29,C_fix(1));
6433 t39=C_fixnum_and(t4,C_fix(4));
6434 t40=C_eqp(C_fix(4),t39);
6435 if(C_truep(t40)){
6436 t41=C_a_i_cons(&a,2,C_make_character(10),C_make_character(10));
6437 t42=C_a_i_vector1(&a,1,t41);
6438 /* irregex-core.scm:1303: go */
6439 t43=((C_word*)t36)[1];
6440 f_13404(t43,t28,t38,C_SCHEME_FALSE,t42);}
6441 else{
6442 t41=C_a_i_vector(&a,0);
6443 /* irregex-core.scm:1303: go */
6444 t42=((C_word*)t36)[1];
6445 f_13404(t42,t28,t38,C_SCHEME_FALSE,t41);}}
6446 else{
6447 t38=C_a_i_vector(&a,0);
6448 /* irregex-core.scm:1308: go */
6449 t39=((C_word*)t36)[1];
6450 f_13404(t39,t28,t29,C_SCHEME_FALSE,t38);}
6451 case C_make_character(123):
6452 t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6453 t28=C_i_integer_greater_or_equalp(t27,((C_word*)t0)[3]);
6454 t29=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12045,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=((C_word*)t0)[2],a[10]=t14,tmp=(C_word)a,a+=11,tmp);
6455 if(C_truep(t28)){
6456 t30=t29;
6457 f_12045(t30,t28);}
6458 else{
6459 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6460 t31=C_i_string_ref(((C_word*)t0)[2],t30);
6461 t32=C_u_i_char_numericp(t31);
6462 if(C_truep(t32)){
6463 t33=t29;
6464 f_12045(t33,C_i_not(t32));}
6465 else{
6466 t33=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6467 t34=C_i_string_ref(((C_word*)t0)[2],t33);
6468 t35=t29;
6469 f_12045(t35,C_i_not(C_eqp(C_make_character(44),t34)));}}
6470 case C_make_character(92):
6471 t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6472 if(C_truep(C_i_integer_greater_or_equalp(t27,((C_word*)t0)[3]))){
6473 /* irregex-core.scm:1051: chicken.base#error */
6474 t28=*((C_word*)lf[30]+1);{
6475 C_word av2[4];
6476 av2[0]=t28;
6477 av2[1]=t1;
6478 av2[2]=lf[177];
6479 av2[3]=((C_word*)t0)[2];
6480 ((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}}
6481 else{
6482 t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6483 t29=C_i_string_ref(((C_word*)t0)[2],t28);
6484 switch(t29){
6485 case C_make_character(100):
6486 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6487 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6488 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12274,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6489 /* irregex-core.scm:1056: collect */
6490 t33=((C_word*)t12)[1];
6491 f_10563(t33,t32);
6492 case C_make_character(68):
6493 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6494 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6495 t32=C_a_i_list(&a,2,lf[179],lf[178]);
6496 t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12301,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6497 /* irregex-core.scm:1058: collect */
6498 t34=((C_word*)t12)[1];
6499 f_10563(t34,t33);
6500 case C_make_character(115):
6501 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6502 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6503 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12324,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6504 /* irregex-core.scm:1060: collect */
6505 t33=((C_word*)t12)[1];
6506 f_10563(t33,t32);
6507 case C_make_character(83):
6508 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6509 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6510 t32=C_a_i_list(&a,2,lf[179],lf[79]);
6511 t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12351,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6512 /* irregex-core.scm:1062: collect */
6513 t34=((C_word*)t12)[1];
6514 f_10563(t34,t33);
6515 case C_make_character(119):
6516 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6517 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6518 t32=C_a_i_list(&a,1,lf[180]);
6519 t33=C_a_i_list(&a,3,lf[103],lf[181],t32);
6520 t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12378,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6521 /* irregex-core.scm:1065: collect */
6522 t35=((C_word*)t12)[1];
6523 f_10563(t35,t34);
6524 case C_make_character(87):
6525 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6526 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6527 t32=C_a_i_list(&a,1,lf[182]);
6528 t33=C_a_i_list(&a,3,lf[103],lf[181],t32);
6529 t34=C_a_i_list(&a,2,lf[179],t33);
6530 t35=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12409,a[2]=t34,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6531 /* irregex-core.scm:1068: collect */
6532 t36=((C_word*)t12)[1];
6533 f_10563(t36,t35);
6534 case C_make_character(98):
6535 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6536 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6537 t32=C_a_i_list(&a,3,lf[103],lf[183],lf[184]);
6538 t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12444,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6539 /* irregex-core.scm:1071: collect */
6540 t34=((C_word*)t12)[1];
6541 f_10563(t34,t33);
6542 case C_make_character(66):
6543 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6544 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6545 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12467,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6546 /* irregex-core.scm:1073: collect */
6547 t33=((C_word*)t12)[1];
6548 f_10563(t33,t32);
6549 case C_make_character(65):
6550 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6551 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6552 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12490,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6553 /* irregex-core.scm:1075: collect */
6554 t33=((C_word*)t12)[1];
6555 f_10563(t33,t32);
6556 case C_make_character(90):
6557 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6558 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6559 t32=C_a_i_list(&a,2,lf[131],C_make_character(10));
6560 t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12521,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6561 /* irregex-core.scm:1078: collect */
6562 t34=((C_word*)t12)[1];
6563 f_10563(t34,t33);
6564 case C_make_character(122):
6565 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6566 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6567 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12544,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6568 /* irregex-core.scm:1080: collect */
6569 t33=((C_word*)t12)[1];
6570 f_10563(t33,t32);
6571 case C_make_character(82):
6572 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6573 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6574 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12567,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6575 /* irregex-core.scm:1082: collect */
6576 t33=((C_word*)t12)[1];
6577 f_10563(t33,t32);
6578 case C_make_character(75):
6579 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6580 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6581 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12590,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6582 /* irregex-core.scm:1084: collect */
6583 t33=((C_word*)t12)[1];
6584 f_10563(t33,t32);
6585 case C_make_character(60):
6586 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6587 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6588 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12613,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6589 /* irregex-core.scm:1087: collect */
6590 t33=((C_word*)t12)[1];
6591 f_10563(t33,t32);
6592 case C_make_character(62):
6593 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6594 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6595 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12636,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6596 /* irregex-core.scm:1089: collect */
6597 t33=((C_word*)t12)[1];
6598 f_10563(t33,t32);
6599 case C_make_character(120):
6600 t30=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12647,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li85),tmp=(C_word)a,a+=7,tmp);
6601 t31=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12671,a[2]=t1,a[3]=t30,tmp=(C_word)a,a+=4,tmp);
6602 t32=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6603 /* irregex-core.scm:1094: string-parse-hex-escape */
6604 f_13295(t31,((C_word*)t0)[2],t32,((C_word*)t0)[3]);
6605 case C_make_character(107):
6606 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6607 t31=C_i_string_ref(((C_word*)t0)[2],t30);
6608 if(C_truep(C_i_not(C_u_i_memq(t31,lf[189])))){
6609 /* irregex-core.scm:1098: chicken.base#error */
6610 t32=*((C_word*)lf[30]+1);{
6611 C_word av2[4];
6612 av2[0]=t32;
6613 av2[1]=t1;
6614 av2[2]=lf[190];
6615 av2[3]=((C_word*)t0)[2];
6616 ((C_proc)(void*)(*((C_word*)t32+1)))(4,av2);}}
6617 else{
6618 t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12695,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=t12,a[8]=t2,tmp=(C_word)a,a+=9,tmp);
6619 switch(t31){
6620 case C_make_character(60):
6621 t33=t32;
6622 f_12695(t33,C_make_character(62));
6623 case C_make_character(123):
6624 t33=t32;
6625 f_12695(t33,C_make_character(125));
6626 case C_make_character(40):
6627 t33=t32;
6628 f_12695(t33,C_make_character(41));
6629 default:
6630 t33=C_eqp(t31,C_make_character(91));
6631 t34=t32;
6632 f_12695(t34,(C_truep(t33)?C_make_character(93):t31));}}
6633 case C_make_character(81):
6634 t30=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12767,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t6,a[7]=((C_word*)t0)[2],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
6635 /* irregex-core.scm:1113: collect */
6636 t31=((C_word*)t12)[1];
6637 f_10563(t31,t30);
6638 case C_make_character(39):
6639 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6640 t31=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12878,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li87),tmp=(C_word)a,a+=7,tmp);
6641 /* irregex-core.scm:1130: with-read-from-string */
6642 f_9739(t1,((C_word*)t0)[2],t30,t31);
6643 default:
6644 if(C_truep(C_u_i_char_numericp(t29))){
6645 t30=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12899,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t6,a[7]=t12,a[8]=t2,a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp);
6646 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6647 t32=C_a_i_list(&a,1,t31);
6648 t33=C_i_string_length(((C_word*)t0)[2]);
6649 t34=C_i_pairp(t32);
6650 t35=(C_truep(t34)?C_u_i_car(t32):C_fix(0));
6651 t36=C_SCHEME_UNDEFINED;
6652 t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
6653 t38=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8930,a[2]=t33,a[3]=((C_word*)t0)[2],a[4]=t37,a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp));
6654 t39=((C_word*)t37)[1];
6655 f_8930(t39,t30,t35);}
6656 else{
6657 if(C_truep(C_u_i_char_alphabeticp(t29))){
6658 t30=C_i_assq(t29,lf[168]);
6659 if(C_truep(t30)){
6660 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6661 t32=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6662 t33=C_i_cdr(t30);
6663 t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12979,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t31,a[6]=t32,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6664 /* irregex-core.scm:1157: collect */
6665 t35=((C_word*)t12)[1];
6666 f_10563(t35,t34);}
6667 else{
6668 /* irregex-core.scm:1158: chicken.base#error */
6669 t31=*((C_word*)lf[30]+1);{
6670 C_word av2[5];
6671 av2[0]=t31;
6672 av2[1]=t1;
6673 av2[2]=lf[194];
6674 av2[3]=((C_word*)t0)[2];
6675 av2[4]=t29;
6676 ((C_proc)(void*)(*((C_word*)t31+1)))(5,av2);}}}
6677 else{
6678 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
6679 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6680 t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12995,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6681 /* irregex-core.scm:1160: collect */
6682 t33=((C_word*)t12)[1];
6683 f_10563(t33,t32);}}}}
6684 case C_make_character(124):
6685 t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6686 t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6687 t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13059,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t27,a[5]=t28,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6688 /* irregex-core.scm:1162: collect */
6689 t30=((C_word*)t12)[1];
6690 f_10563(t30,t29);
6691 case C_make_character(94):
6692 t27=C_fixnum_and(t4,C_fix(4));
6693 t28=C_eqp(C_fix(4),t27);
6694 t29=(C_truep(t28)?lf[195]:lf[186]);
6695 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6696 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6697 t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13085,a[2]=t29,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6698 /* irregex-core.scm:1165: collect */
6699 t33=((C_word*)t12)[1];
6700 f_10563(t33,t32);
6701 case C_make_character(36):
6702 t27=C_fixnum_and(t4,C_fix(4));
6703 t28=C_eqp(C_fix(4),t27);
6704 t29=(C_truep(t28)?lf[196]:lf[187]);
6705 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6706 t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6707 t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13114,a[2]=t29,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
6708 /* irregex-core.scm:1168: collect */
6709 t33=((C_word*)t12)[1];
6710 f_10563(t33,t32);
6711 case C_make_character(32):
6712 t27=C_fixnum_and(t4,C_fix(16));
6713 t28=C_eqp(C_fix(16),t27);
6714 if(C_truep(t28)){
6715 t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6716 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6717 t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13142,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t29,a[5]=t30,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
6718 /* irregex-core.scm:1171: collect */
6719 t32=((C_word*)t12)[1];
6720 f_10563(t32,t31);}
6721 else{
6722 t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6723 /* irregex-core.scm:1172: lp */
6724 t225=t1;
6725 t226=t29;
6726 t227=t3;
6727 t228=t4;
6728 t229=t5;
6729 t230=t6;
6730 t1=t225;
6731 t2=t226;
6732 t3=t227;
6733 t4=t228;
6734 t5=t229;
6735 t6=t230;
6736 goto loop;}
6737 case C_make_character(35):
6738 t27=C_fixnum_and(t4,C_fix(16));
6739 t28=C_eqp(C_fix(16),t27);
6740 if(C_truep(t28)){
6741 t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13163,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t6,a[7]=t12,tmp=(C_word)a,a+=8,tmp);
6742 t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6743 /* irregex-core.scm:1175: string-scan-char */
6744 t31=lf[54];{
6745 C_word av2[5];
6746 av2[0]=t31;
6747 av2[1]=t29;
6748 av2[2]=((C_word*)t0)[2];
6749 av2[3]=C_make_character(10);
6750 av2[4]=t30;
6751 ((C_proc)(void*)(*((C_word*)t31+1)))(5,av2);}}
6752 else{
6753 t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6754 /* irregex-core.scm:1178: lp */
6755 t225=t1;
6756 t226=t29;
6757 t227=t3;
6758 t228=t4;
6759 t229=t5;
6760 t230=t6;
6761 t1=t225;
6762 t2=t226;
6763 t3=t227;
6764 t4=t228;
6765 t5=t229;
6766 t6=t230;
6767 goto loop;}
6768 default:
6769 t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
6770 /* irregex-core.scm:1180: lp */
6771 t225=t1;
6772 t226=t27;
6773 t227=t3;
6774 t228=t4;
6775 t229=t5;
6776 t230=t6;
6777 t1=t225;
6778 t2=t226;
6779 t3=t227;
6780 t4=t228;
6781 t5=t229;
6782 t6=t230;
6783 goto loop;}}}}}
6784 
6785 /* cased-char in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10485(C_word * a,C_word t0,C_word t1)6786 static C_word C_fcall f_10485(C_word *a,C_word t0,C_word t1){
6787 C_word tmp;
6788 C_word t2;
6789 C_word t3;
6790 C_word t4;
6791 C_word t5;
6792 C_word t6;
6793 C_word t7;
6794 C_stack_overflow_check;{}
6795 t2=C_fixnum_and(((C_word*)t0)[2],C_fix(2));
6796 t3=C_eqp(C_fix(2),t2);
6797 t4=(C_truep(t3)?C_u_i_char_alphabeticp(t1):C_SCHEME_FALSE);
6798 if(C_truep(t4)){
6799 t5=C_u_i_char_upper_casep(t1);
6800 t6=(C_truep(t5)?C_u_i_char_downcase(t1):C_u_i_char_upcase(t1));
6801 return(C_a_i_list(&a,3,lf[103],t1,t6));}
6802 else{
6803 return(t1);}}
6804 
6805 /* cased-string in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10507(C_word t0,C_word t1,C_word t2)6806 static void C_fcall f_10507(C_word t0,C_word t1,C_word t2){
6807 C_word tmp;
6808 C_word t3;
6809 C_word t4;
6810 C_word t5;
6811 C_word t6;
6812 C_word t7;
6813 C_word t8;
6814 C_word t9;
6815 C_word t10;
6816 C_word *a;
6817 C_check_for_interrupt;
6818 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
6819 C_save_and_reclaim_args((void *)trf_10507,3,t0,t1,t2);}
6820 a=C_alloc(11);
6821 t3=C_fixnum_and(((C_word*)t0)[2],C_fix(2));
6822 t4=C_eqp(C_fix(2),t3);
6823 if(C_truep(t4)){
6824 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
6825 t6=t5;
6826 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
6827 t8=((C_word*)t7)[1];
6828 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10524,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp);
6829 /* ##sys#string->list */
6830 t10=*((C_word*)lf[105]+1);{
6831 C_word av2[3];
6832 av2[0]=t10;
6833 av2[1]=t9;
6834 av2[2]=t2;
6835 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
6836 else{
6837 t5=t1;{
6838 C_word av2[2];
6839 av2[0]=t5;
6840 av2[1]=t2;
6841 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
6842 
6843 /* k10522 in cased-string in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10524(C_word c,C_word * av)6844 static void C_ccall f_10524(C_word c,C_word *av){
6845 C_word tmp;
6846 C_word t0=av[0];
6847 C_word t1=av[1];
6848 C_word t2;
6849 C_word t3;
6850 C_word t4;
6851 C_word t5;
6852 C_word t6;
6853 C_word *a;
6854 C_check_for_interrupt;
6855 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
6856 C_save_and_reclaim((void *)f_10524,c,av);}
6857 a=C_alloc(12);
6858 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10527,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6859 t3=C_SCHEME_UNDEFINED;
6860 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
6861 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10529,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word)li65),tmp=(C_word)a,a+=7,tmp));
6862 t6=((C_word*)t4)[1];
6863 f_10529(t6,t2,t1);}
6864 
6865 /* k10525 in k10522 in cased-string in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10527(C_word c,C_word * av)6866 static void C_ccall f_10527(C_word c,C_word *av){
6867 C_word tmp;
6868 C_word t0=av[0];
6869 C_word t1=av[1];
6870 C_word t2;
6871 C_word *a;
6872 C_check_for_interrupt;
6873 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
6874 C_save_and_reclaim((void *)f_10527,c,av);}
6875 a=C_alloc(3);
6876 /* irregex-core.scm:762: sre-sequence */
6877 t2=((C_word*)t0)[2];{
6878 C_word *av2=av;
6879 av2[0]=t2;
6880 av2[1]=(
6881 /* irregex-core.scm:762: sre-sequence */
6882   f_18191(C_a_i(&a,3),t1)
6883 );
6884 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6885 
6886 /* map-loop1471 in k10522 in cased-string in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10529(C_word t0,C_word t1,C_word t2)6887 static void C_fcall f_10529(C_word t0,C_word t1,C_word t2){
6888 C_word tmp;
6889 C_word t3;
6890 C_word t4;
6891 C_word t5;
6892 C_word t6;
6893 C_word t7;
6894 C_word t8;
6895 C_word t9;
6896 C_word *a;
6897 loop:
6898 C_check_for_interrupt;
6899 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
6900 C_save_and_reclaim_args((void *)trf_10529,3,t0,t1,t2);}
6901 a=C_alloc(12);
6902 if(C_truep(C_i_pairp(t2))){
6903 t3=(
6904 /* irregex-core.scm:762: g1477 */
6905   f_10485(C_a_i(&a,9),((C_word*)((C_word*)t0)[2])[1],C_slot(t2,C_fix(0)))
6906 );
6907 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
6908 t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
6909 t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
6910 t8=t1;
6911 t9=C_slot(t2,C_fix(1));
6912 t1=t8;
6913 t2=t9;
6914 goto loop;}
6915 else{
6916 t3=t1;{
6917 C_word av2[2];
6918 av2[0]=t3;
6919 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
6920 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
6921 
6922 /* collect in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10563(C_word t0,C_word t1)6923 static void C_fcall f_10563(C_word t0,C_word t1){
6924 C_word tmp;
6925 C_word t2;
6926 C_word t3;
6927 C_word t4;
6928 C_word t5;
6929 C_word *a;
6930 C_check_for_interrupt;
6931 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
6932 C_save_and_reclaim_args((void *)trf_10563,2,t0,t1);}
6933 a=C_alloc(8);
6934 t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
6935 if(C_truep(t2)){
6936 t3=t1;{
6937 C_word av2[2];
6938 av2[0]=t3;
6939 av2[1]=((C_word*)t0)[4];
6940 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6941 else{
6942 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10577,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
6943 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10581,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
6944 /* irregex-core.scm:766: scheme#substring */
6945 t5=*((C_word*)lf[46]+1);{
6946 C_word av2[5];
6947 av2[0]=t5;
6948 av2[1]=t4;
6949 av2[2]=((C_word*)t0)[6];
6950 av2[3]=((C_word*)t0)[3];
6951 av2[4]=((C_word*)t0)[2];
6952 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
6953 
6954 /* k10575 in collect in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10577(C_word c,C_word * av)6955 static void C_ccall f_10577(C_word c,C_word *av){
6956 C_word tmp;
6957 C_word t0=av[0];
6958 C_word t1=av[1];
6959 C_word t2;
6960 C_word *a;
6961 C_check_for_interrupt;
6962 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
6963 C_save_and_reclaim((void *)f_10577,c,av);}
6964 a=C_alloc(3);
6965 t2=((C_word*)t0)[2];{
6966 C_word *av2=av;
6967 av2[0]=t2;
6968 av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
6969 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6970 
6971 /* k10579 in collect in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10581(C_word c,C_word * av)6972 static void C_ccall f_10581(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 C_check_for_interrupt;
6979 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
6980 C_save_and_reclaim((void *)f_10581,c,av);}
6981 /* irregex-core.scm:766: cased-string */
6982 t2=((C_word*)((C_word*)t0)[2])[1];
6983 f_10507(t2,((C_word*)t0)[3],t1);}
6984 
6985 /* collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10583(C_word t0,C_word t1)6986 static void C_fcall f_10583(C_word t0,C_word t1){
6987 C_word tmp;
6988 C_word t2;
6989 C_word t3;
6990 C_word t4;
6991 C_word t5;
6992 C_word t6;
6993 C_word t7;
6994 C_word t8;
6995 C_word t9;
6996 C_word t10;
6997 C_word *a;
6998 C_check_for_interrupt;
6999 if(C_unlikely(!C_demand(C_calculate_demand(17,0,3)))){
7000 C_save_and_reclaim_args((void *)trf_10583,2,t0,t1);}
7001 a=C_alloc(17);
7002 t2=C_fixnum_and(((C_word*)t0)[2],C_fix(32));
7003 t3=C_eqp(C_fix(32),t2);
7004 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10590,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
7005 t5=(C_truep(t3)?C_fixnum_greaterp(((C_word*)t0)[8],C_fix(1)):C_SCHEME_FALSE);
7006 if(C_truep(t5)){
7007 t6=C_fixnum_difference(((C_word*)t0)[8],C_fix(1));
7008 t7=C_SCHEME_UNDEFINED;
7009 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
7010 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14224,a[2]=((C_word*)t0)[6],a[3]=t8,a[4]=((C_word)li68),tmp=(C_word)a,a+=5,tmp));
7011 t10=((C_word*)t8)[1];
7012 f_14224(t10,t4,t6);}
7013 else{
7014 t6=t4;{
7015 C_word av2[2];
7016 av2[0]=t6;
7017 av2[1]=C_fixnum_difference(((C_word*)t0)[8],C_fix(1));
7018 f_10590(2,av2);}}}
7019 
7020 /* k10588 in collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10590(C_word c,C_word * av)7021 static void C_ccall f_10590(C_word c,C_word *av){
7022 C_word tmp;
7023 C_word t0=av[0];
7024 C_word t1=av[1];
7025 C_word t2;
7026 C_word t3;
7027 C_word t4;
7028 C_word *a;
7029 C_check_for_interrupt;
7030 if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
7031 C_save_and_reclaim((void *)f_10590,c,av);}
7032 a=C_alloc(21);
7033 if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){
7034 t2=((C_word*)t0)[3];{
7035 C_word *av2=av;
7036 av2[0]=t2;
7037 av2[1]=((C_word*)t0)[4];
7038 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
7039 else{
7040 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10599,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);
7041 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10627,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
7042 if(C_truep(((C_word*)t0)[8])){
7043 /* irregex-core.scm:779: utf8-string-ref */
7044 f_14029(t3,((C_word*)t0)[6],t1,C_fixnum_difference(((C_word*)t0)[9],t1));}
7045 else{
7046 /* irregex-core.scm:778: cased-char */
7047 t4=t2;
7048 f_10599(t4,(
7049 /* irregex-core.scm:778: cased-char */
7050   f_10485(C_a_i(&a,9),((C_word*)((C_word*)t0)[7])[1],C_i_string_ref(((C_word*)t0)[6],t1))
7051 ));}}}
7052 
7053 /* k10597 in k10588 in collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10599(C_word t0,C_word t1)7054 static void C_fcall f_10599(C_word t0,C_word t1){
7055 C_word tmp;
7056 C_word t2;
7057 C_word t3;
7058 C_word t4;
7059 C_word t5;
7060 C_word *a;
7061 C_check_for_interrupt;
7062 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
7063 C_save_and_reclaim_args((void *)trf_10599,2,t0,t1);}
7064 a=C_alloc(9);
7065 t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
7066 if(C_truep(t2)){
7067 t3=((C_word*)t0)[4];{
7068 C_word av2[2];
7069 av2[0]=t3;
7070 av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[5]);
7071 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
7072 else{
7073 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10619,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
7074 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10623,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
7075 /* irregex-core.scm:786: scheme#substring */
7076 t5=*((C_word*)lf[46]+1);{
7077 C_word av2[5];
7078 av2[0]=t5;
7079 av2[1]=t4;
7080 av2[2]=((C_word*)t0)[7];
7081 av2[3]=((C_word*)t0)[3];
7082 av2[4]=((C_word*)t0)[2];
7083 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
7084 
7085 /* k10617 in k10597 in k10588 in collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10619(C_word c,C_word * av)7086 static void C_ccall f_10619(C_word c,C_word *av){
7087 C_word tmp;
7088 C_word t0=av[0];
7089 C_word t1=av[1];
7090 C_word t2;
7091 C_word t3;
7092 C_word *a;
7093 C_check_for_interrupt;
7094 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
7095 C_save_and_reclaim((void *)f_10619,c,av);}
7096 a=C_alloc(6);
7097 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
7098 t3=((C_word*)t0)[3];{
7099 C_word *av2=av;
7100 av2[0]=t3;
7101 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
7102 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
7103 
7104 /* k10621 in k10597 in k10588 in collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10623(C_word c,C_word * av)7105 static void C_ccall f_10623(C_word c,C_word *av){
7106 C_word tmp;
7107 C_word t0=av[0];
7108 C_word t1=av[1];
7109 C_word t2;
7110 C_word *a;
7111 C_check_for_interrupt;
7112 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
7113 C_save_and_reclaim((void *)f_10623,c,av);}
7114 /* irregex-core.scm:786: cased-string */
7115 t2=((C_word*)((C_word*)t0)[2])[1];
7116 f_10507(t2,((C_word*)t0)[3],t1);}
7117 
7118 /* k10625 in k10588 in collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10627(C_word c,C_word * av)7119 static void C_ccall f_10627(C_word c,C_word *av){
7120 C_word tmp;
7121 C_word t0=av[0];
7122 C_word t1=av[1];
7123 C_word t2;
7124 C_word *a;
7125 C_check_for_interrupt;
7126 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
7127 C_save_and_reclaim((void *)f_10627,c,av);}
7128 a=C_alloc(9);
7129 /* irregex-core.scm:778: cased-char */
7130 t2=((C_word*)t0)[2];
7131 f_10599(t2,(
7132 /* irregex-core.scm:778: cased-char */
7133   f_10485(C_a_i(&a,9),((C_word*)((C_word*)t0)[3])[1],t1)
7134 ));}
7135 
7136 /* collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10655(C_word t0,C_word t1)7137 static void C_fcall f_10655(C_word t0,C_word t1){
7138 C_word tmp;
7139 C_word t2;
7140 C_word t3;
7141 C_word *a;
7142 C_check_for_interrupt;
7143 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
7144 C_save_and_reclaim_args((void *)trf_10655,2,t0,t1);}
7145 a=C_alloc(4);
7146 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10659,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
7147 /* irregex-core.scm:792: collect */
7148 t3=((C_word*)((C_word*)t0)[3])[1];
7149 f_10563(t3,t2);}
7150 
7151 /* k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10659(C_word c,C_word * av)7152 static void C_ccall f_10659(C_word c,C_word *av){
7153 C_word tmp;
7154 C_word t0=av[0];
7155 C_word t1=av[1];
7156 C_word t2;
7157 C_word t3;
7158 C_word t4;
7159 C_word *a;
7160 C_check_for_interrupt;
7161 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
7162 C_save_and_reclaim((void *)f_10659,c,av);}
7163 a=C_alloc(8);
7164 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
7165 if(C_truep(C_i_pairp(t1))){
7166 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10885,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
7167 /* irregex-core.scm:795: last */
7168 f_9256(t3,t1);}
7169 else{
7170 t3=t2;
7171 f_10662(t3,C_SCHEME_FALSE);}}
7172 
7173 /* k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10662(C_word t0,C_word t1)7174 static void C_fcall f_10662(C_word t0,C_word t1){
7175 C_word tmp;
7176 C_word t2;
7177 C_word t3;
7178 C_word t4;
7179 C_word t5;
7180 C_word *a;
7181 C_check_for_interrupt;
7182 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
7183 C_save_and_reclaim_args((void *)trf_10662,2,t0,t1);}
7184 a=C_alloc(9);
7185 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10665,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);
7186 t3=(C_truep(t1)?C_u_i_memq(C_i_car(t1),lf[121]):C_SCHEME_FALSE);
7187 if(C_truep(t3)){
7188 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10863,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
7189 /* irregex-core.scm:801: ##sys#fast-reverse */
7190 t5=*((C_word*)lf[69]+1);{
7191 C_word av2[3];
7192 av2[0]=t5;
7193 av2[1]=t4;
7194 av2[2]=((C_word*)t0)[4];
7195 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
7196 else{
7197 if(C_truep(t1)){
7198 t4=C_i_car(t1);
7199 t5=t2;
7200 f_10665(t5,C_a_i_list1(&a,1,t4));}
7201 else{
7202 t4=t2;
7203 f_10665(t4,C_SCHEME_FALSE);}}}
7204 
7205 /* k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10665(C_word t0,C_word t1)7206 static void C_fcall f_10665(C_word t0,C_word t1){
7207 C_word tmp;
7208 C_word t2;
7209 C_word t3;
7210 C_word t4;
7211 C_word t5;
7212 C_word *a;
7213 C_check_for_interrupt;
7214 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
7215 C_save_and_reclaim_args((void *)trf_10665,2,t0,t1);}
7216 a=C_alloc(8);
7217 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10668,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
7218 if(C_truep(((C_word*)t0)[4])){
7219 t3=C_i_car(((C_word*)t0)[4]);
7220 if(C_truep((C_truep(C_eqp(t3,lf[119]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[120]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
7221 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10838,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
7222 /* irregex-core.scm:805: ##sys#fast-reverse */
7223 t5=*((C_word*)lf[69]+1);{
7224 C_word av2[3];
7225 av2[0]=t5;
7226 av2[1]=t4;
7227 av2[2]=((C_word*)t0)[5];
7228 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
7229 else{
7230 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10849,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
7231 /* irregex-core.scm:806: ##sys#fast-reverse */
7232 t5=*((C_word*)lf[69]+1);{
7233 C_word av2[3];
7234 av2[0]=t5;
7235 av2[1]=t4;
7236 av2[2]=((C_word*)t0)[5];
7237 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
7238 else{
7239 t3=t2;{
7240 C_word av2[2];
7241 av2[0]=t3;
7242 av2[1]=((C_word*)t0)[5];
7243 f_10668(2,av2);}}}
7244 
7245 /* k10666 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10668(C_word c,C_word * av)7246 static void C_ccall f_10668(C_word c,C_word *av){
7247 C_word tmp;
7248 C_word t0=av[0];
7249 C_word t1=av[1];
7250 C_word t2;
7251 C_word t3;
7252 C_word t4;
7253 C_word t5;
7254 C_word *a;
7255 C_check_for_interrupt;
7256 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
7257 C_save_and_reclaim((void *)f_10668,c,av);}
7258 a=C_alloc(8);
7259 t2=C_SCHEME_UNDEFINED;
7260 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
7261 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp));
7262 t5=((C_word*)t3)[1];
7263 f_10673(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}
7264 
7265 /* lp in k10666 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10673(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)7266 static void C_fcall f_10673(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
7267 C_word tmp;
7268 C_word t5;
7269 C_word t6;
7270 C_word t7;
7271 C_word t8;
7272 C_word t9;
7273 C_word t10;
7274 C_word t11;
7275 C_word t12;
7276 C_word t13;
7277 C_word t14;
7278 C_word t15;
7279 C_word t16;
7280 C_word t17;
7281 C_word t18;
7282 C_word t19;
7283 C_word t20;
7284 C_word t21;
7285 C_word t22;
7286 C_word t23;
7287 C_word *a;
7288 loop:
7289 C_check_for_interrupt;
7290 if(C_unlikely(!C_demand(C_calculate_demand(31,0,4)))){
7291 C_save_and_reclaim_args((void *)trf_10673,5,t0,t1,t2,t3,t4);}
7292 a=C_alloc(31);
7293 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10676,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
7294 if(C_truep(C_i_nullp(t2))){
7295 t6=(
7296 /* irregex-core.scm:813: shift */
7297   f_10676(C_a_i(&a,6),t5)
7298 );
7299 t7=(
7300 /* irregex-core.scm:813: sre-alternate */
7301   f_18214(C_a_i(&a,3),t6)
7302 );
7303 t8=C_fixnum_and(((C_word*)t0)[2],C_fix(1));
7304 t9=C_eqp(C_fix(1),t8);
7305 t10=(C_truep(t9)?C_a_i_list2(&a,2,lf[108],t7):t7);
7306 if(C_truep(((C_word*)t0)[3])){
7307 t11=C_i_car(((C_word*)t0)[3]);
7308 t12=C_eqp(lf[109],t11);
7309 if(C_truep(t12)){
7310 t13=C_i_pairp(t10);
7311 if(C_truep(C_i_not(t13))){
7312 t14=t1;{
7313 C_word av2[2];
7314 av2[0]=t14;
7315 av2[1]=lf[110];
7316 ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
7317 else{
7318 t14=C_i_car(t10);
7319 if(C_truep((C_truep(C_eqp(t14,lf[111]))?C_SCHEME_TRUE:(C_truep(C_eqp(t14,lf[112]))?C_SCHEME_TRUE:(C_truep(C_eqp(t14,lf[113]))?C_SCHEME_TRUE:(C_truep(C_eqp(t14,lf[114]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){
7320 t15=t1;{
7321 C_word av2[2];
7322 av2[0]=t15;
7323 av2[1]=t10;
7324 ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
7325 else{
7326 t15=C_eqp(lf[115],C_u_i_car(t10));
7327 if(C_truep(t15)){
7328 t16=C_i_cadr(t10);
7329 t17=C_u_i_cdr(t10);
7330 t18=(
7331 /* irregex-core.scm:828: sre-sequence */
7332   f_18191(C_a_i(&a,3),C_u_i_cdr(t17))
7333 );
7334 t19=t1;{
7335 C_word av2[2];
7336 av2[0]=t19;
7337 av2[1]=C_a_i_list(&a,3,lf[109],t16,t18);
7338 ((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
7339 else{
7340 t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10746,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
7341 /* irregex-core.scm:830: scheme#cadadr */
7342 t17=*((C_word*)lf[117]+1);{
7343 C_word av2[3];
7344 av2[0]=t17;
7345 av2[1]=t16;
7346 av2[2]=t10;
7347 ((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}}}}}
7348 else{
7349 t13=C_a_i_list(&a,1,t10);
7350 /* irregex-core.scm:833: ##sys#append */
7351 t14=*((C_word*)lf[118]+1);{
7352 C_word av2[4];
7353 av2[0]=t14;
7354 av2[1]=t1;
7355 av2[2]=((C_word*)t0)[3];
7356 av2[3]=t13;
7357 ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}}
7358 else{
7359 t11=t1;{
7360 C_word av2[2];
7361 av2[0]=t11;
7362 av2[1]=t10;
7363 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}
7364 else{
7365 t6=C_i_car(t2);
7366 t7=C_eqp(lf[103],t6);
7367 if(C_truep(t7)){
7368 t8=C_u_i_cdr(t2);
7369 t9=(
7370 /* irregex-core.scm:835: shift */
7371   f_10676(C_a_i(&a,6),t5)
7372 );
7373 /* irregex-core.scm:835: lp */
7374 t20=t1;
7375 t21=t8;
7376 t22=C_SCHEME_END_OF_LIST;
7377 t23=t9;
7378 t1=t20;
7379 t2=t21;
7380 t3=t22;
7381 t4=t23;
7382 goto loop;}
7383 else{
7384 t8=C_u_i_cdr(t2);
7385 t9=C_u_i_car(t2);
7386 t10=C_a_i_cons(&a,2,t9,t3);
7387 /* irregex-core.scm:836: lp */
7388 t20=t1;
7389 t21=t8;
7390 t22=t10;
7391 t23=t4;
7392 t1=t20;
7393 t2=t21;
7394 t3=t22;
7395 t4=t23;
7396 goto loop;}}}
7397 
7398 /* shift in lp in k10666 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10676(C_word * a,C_word t0)7399 static C_word C_fcall f_10676(C_word *a,C_word t0){
7400 C_word tmp;
7401 C_word t1;
7402 C_word t2;
7403 C_stack_overflow_check;{}
7404 t1=(
7405 /* irregex-core.scm:810: sre-sequence */
7406   f_18191(C_a_i(&a,3),((C_word*)t0)[2])
7407 );
7408 return(C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));}
7409 
7410 /* k10744 in lp in k10666 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10746(C_word c,C_word * av)7411 static void C_ccall f_10746(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 t3;
7417 C_word *a;
7418 C_check_for_interrupt;
7419 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
7420 C_save_and_reclaim((void *)f_10746,c,av);}
7421 a=C_alloc(5);
7422 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
7423 /* irregex-core.scm:831: scheme#cddadr */
7424 t3=*((C_word*)lf[116]+1);{
7425 C_word *av2;
7426 if(c >= 3) {
7427   av2=av;
7428 } else {
7429   av2=C_alloc(3);
7430 }
7431 av2[0]=t3;
7432 av2[1]=t2;
7433 av2[2]=((C_word*)t0)[2];
7434 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
7435 
7436 /* k10760 in k10744 in lp in k10666 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10762(C_word c,C_word * av)7437 static void C_ccall f_10762(C_word c,C_word *av){
7438 C_word tmp;
7439 C_word t0=av[0];
7440 C_word t1=av[1];
7441 C_word t2;
7442 C_word t3;
7443 C_word t4;
7444 C_word *a;
7445 C_check_for_interrupt;
7446 if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
7447 C_save_and_reclaim((void *)f_10762,c,av);}
7448 a=C_alloc(18);
7449 t2=(
7450 /* irregex-core.scm:831: sre-sequence */
7451   f_18191(C_a_i(&a,3),t1)
7452 );
7453 t3=(
7454 /* irregex-core.scm:832: sre-alternate */
7455   f_18214(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[2]))
7456 );
7457 t4=((C_word*)t0)[3];{
7458 C_word *av2=av;
7459 av2[0]=t4;
7460 av2[1]=C_a_i_list(&a,4,lf[109],((C_word*)t0)[4],t2,t3);
7461 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
7462 
7463 /* k10836 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10838(C_word c,C_word * av)7464 static void C_ccall f_10838(C_word c,C_word *av){
7465 C_word tmp;
7466 C_word t0=av[0];
7467 C_word t1=av[1];
7468 C_word t2;
7469 C_word *a;
7470 C_check_for_interrupt;
7471 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
7472 C_save_and_reclaim((void *)f_10838,c,av);}
7473 /* irregex-core.scm:805: ##sys#fast-reverse */
7474 t2=*((C_word*)lf[69]+1);{
7475 C_word *av2;
7476 if(c >= 3) {
7477   av2=av;
7478 } else {
7479   av2=C_alloc(3);
7480 }
7481 av2[0]=t2;
7482 av2[1]=((C_word*)t0)[2];
7483 av2[2]=C_i_cddr(t1);
7484 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
7485 
7486 /* k10847 in k10663 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10849(C_word c,C_word * av)7487 static void C_ccall f_10849(C_word c,C_word *av){
7488 C_word tmp;
7489 C_word t0=av[0];
7490 C_word t1=av[1];
7491 C_word t2;
7492 C_word *a;
7493 C_check_for_interrupt;
7494 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
7495 C_save_and_reclaim((void *)f_10849,c,av);}
7496 /* irregex-core.scm:806: ##sys#fast-reverse */
7497 t2=*((C_word*)lf[69]+1);{
7498 C_word *av2;
7499 if(c >= 3) {
7500   av2=av;
7501 } else {
7502   av2=C_alloc(3);
7503 }
7504 av2[0]=t2;
7505 av2[1]=((C_word*)t0)[2];
7506 av2[2]=C_i_cdr(t1);
7507 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
7508 
7509 /* k10861 in k10660 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10863(C_word c,C_word * av)7510 static void C_ccall f_10863(C_word c,C_word *av){
7511 C_word tmp;
7512 C_word t0=av[0];
7513 C_word t1=av[1];
7514 C_word t2;
7515 C_word t3;
7516 C_word *a;
7517 C_check_for_interrupt;
7518 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
7519 C_save_and_reclaim((void *)f_10863,c,av);}
7520 a=C_alloc(6);
7521 t2=C_i_cadr(t1);
7522 t3=((C_word*)t0)[2];
7523 f_10665(t3,C_a_i_list2(&a,2,lf[120],t2));}
7524 
7525 /* k10883 in k10657 in collect/terms in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10885(C_word c,C_word * av)7526 static void C_ccall f_10885(C_word c,C_word *av){
7527 C_word tmp;
7528 C_word t0=av[0];
7529 C_word t1=av[1];
7530 C_word t2;
7531 C_word *a;
7532 C_check_for_interrupt;
7533 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
7534 C_save_and_reclaim((void *)f_10885,c,av);}
7535 t2=((C_word*)t0)[2];
7536 f_10662(t2,C_u_i_memq(t1,lf[122]));}
7537 
7538 /* save in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10888(C_word t0,C_word t1)7539 static void C_fcall f_10888(C_word t0,C_word t1){
7540 C_word tmp;
7541 C_word t2;
7542 C_word t3;
7543 C_word *a;
7544 C_check_for_interrupt;
7545 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
7546 C_save_and_reclaim_args((void *)trf_10888,2,t0,t1);}
7547 a=C_alloc(5);
7548 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10900,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
7549 /* irregex-core.scm:838: collect */
7550 t3=((C_word*)((C_word*)t0)[4])[1];
7551 f_10563(t3,t2);}
7552 
7553 /* k10898 in save in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10900(C_word c,C_word * av)7554 static void C_ccall f_10900(C_word c,C_word *av){
7555 C_word tmp;
7556 C_word t0=av[0];
7557 C_word t1=av[1];
7558 C_word t2;
7559 C_word t3;
7560 C_word *a;
7561 C_check_for_interrupt;
7562 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
7563 C_save_and_reclaim((void *)f_10900,c,av);}
7564 a=C_alloc(6);
7565 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
7566 t3=((C_word*)t0)[3];{
7567 C_word *av2=av;
7568 av2[0]=t3;
7569 av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
7570 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
7571 
7572 /* k10958 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10960(C_word c,C_word * av)7573 static void C_ccall f_10960(C_word c,C_word *av){
7574 C_word tmp;
7575 C_word t0=av[0];
7576 C_word t1=av[1];
7577 C_word t2;
7578 C_word t3;
7579 C_word t4;
7580 C_word t5;
7581 C_word t6;
7582 C_word t7;
7583 C_word t8;
7584 C_word t9;
7585 C_word t10;
7586 C_word t11;
7587 C_word t12;
7588 C_word t13;
7589 C_word t14;
7590 C_word t15;
7591 C_word t16;
7592 C_word t17;
7593 C_word t18;
7594 C_word *a;
7595 C_check_for_interrupt;
7596 if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
7597 C_save_and_reclaim((void *)f_10960,c,av);}
7598 a=C_alloc(28);
7599 if(C_truep(C_i_nullp(t1))){
7600 /* irregex-core.scm:855: chicken.base#error */
7601 t2=*((C_word*)lf[30]+1);{
7602 C_word *av2;
7603 if(c >= 5) {
7604   av2=av;
7605 } else {
7606   av2=C_alloc(5);
7607 }
7608 av2[0]=t2;
7609 av2[1]=((C_word*)t0)[2];
7610 av2[2]=lf[126];
7611 av2[3]=((C_word*)t0)[3];
7612 av2[4]=t1;
7613 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
7614 else{
7615 t2=C_i_car(t1);
7616 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
7617 t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
7618 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10989,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
7619 if(C_truep(C_i_pairp(t2))){
7620 t6=C_u_i_car(t2);
7621 t7=C_eqp(t6,lf[127]);
7622 if(C_truep(t7)){
7623 t8=C_u_i_cdr(t2);
7624 t9=t5;
7625 f_10989(t9,C_a_i_cons(&a,2,lf[128],t8));}
7626 else{
7627 t8=C_eqp(t6,lf[129]);
7628 if(C_truep(t8)){
7629 t9=C_u_i_cdr(t2);
7630 t10=C_a_i_cons(&a,2,C_SCHEME_FALSE,t9);
7631 t11=C_a_i_cons(&a,2,C_fix(1),t10);
7632 t12=t5;
7633 f_10989(t12,C_a_i_cons(&a,2,lf[130],t11));}
7634 else{
7635 t9=C_eqp(t6,lf[131]);
7636 if(C_truep(t9)){
7637 t10=C_u_i_cdr(t2);
7638 t11=t5;
7639 f_10989(t11,C_a_i_cons(&a,2,lf[132],t10));}
7640 else{
7641 t10=C_eqp(t6,lf[133]);
7642 if(C_truep(t10)){
7643 t11=C_u_i_cdr(t2);
7644 t12=t5;
7645 f_10989(t12,C_a_i_cons(&a,2,lf[130],t11));}
7646 else{
7647 t11=C_eqp(t6,lf[134]);
7648 if(C_truep(t11)){
7649 t12=C_i_cadr(t2);
7650 t13=C_u_i_cdr(t2);
7651 t14=C_a_i_cons(&a,2,t12,t13);
7652 t15=t5;
7653 f_10989(t15,C_a_i_cons(&a,2,lf[130],t14));}
7654 else{
7655 t12=C_eqp(t6,lf[135]);
7656 if(C_truep(t12)){
7657 t13=C_i_cadr(t2);
7658 t14=C_u_i_cdr(t2);
7659 t15=C_u_i_cdr(t14);
7660 t16=C_a_i_cons(&a,2,C_SCHEME_FALSE,t15);
7661 t17=C_a_i_cons(&a,2,t13,t16);
7662 t18=t5;
7663 f_10989(t18,C_a_i_cons(&a,2,lf[130],t17));}
7664 else{
7665 t13=t5;
7666 f_10989(t13,C_a_i_list(&a,2,lf[131],t2));}}}}}}}
7667 else{
7668 t6=t5;
7669 f_10989(t6,C_a_i_list(&a,2,lf[131],t2));}}}
7670 
7671 /* k10987 in k10958 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_10989(C_word t0,C_word t1)7672 static void C_fcall f_10989(C_word t0,C_word t1){
7673 C_word tmp;
7674 C_word t2;
7675 C_word t3;
7676 C_word t4;
7677 C_word *a;
7678 C_check_for_interrupt;
7679 if(C_unlikely(!C_demand(C_calculate_demand(3,0,6)))){
7680 C_save_and_reclaim_args((void *)trf_10989,2,t0,t1);}
7681 a=C_alloc(3);
7682 t2=C_u_i_cdr(((C_word*)t0)[2]);
7683 t3=C_a_i_cons(&a,2,t1,t2);
7684 /* irregex-core.scm:857: lp */
7685 t4=((C_word*)((C_word*)t0)[3])[1];
7686 f_10482(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);}
7687 
7688 /* k11118 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11120(C_word c,C_word * av)7689 static void C_ccall f_11120(C_word c,C_word *av){
7690 C_word tmp;
7691 C_word t0=av[0];
7692 C_word t1=av[1];
7693 C_word t2;
7694 C_word t3;
7695 C_word t4;
7696 C_word t5;
7697 C_word t6;
7698 C_word *a;
7699 C_check_for_interrupt;
7700 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
7701 C_save_and_reclaim((void *)f_11120,c,av);}
7702 a=C_alloc(12);
7703 t2=C_i_pairp(t1);
7704 t3=(C_truep(t2)?C_u_i_car(t1):lf[110]);
7705 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11126,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*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
7706 t5=C_a_i_string(&a,1,((C_word*)t0)[8]);
7707 /* irregex-core.scm:876: scheme#string->symbol */
7708 t6=*((C_word*)lf[84]+1);{
7709 C_word *av2;
7710 if(c >= 3) {
7711   av2=av;
7712 } else {
7713   av2=C_alloc(3);
7714 }
7715 av2[0]=t6;
7716 av2[1]=t4;
7717 av2[2]=t5;
7718 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
7719 
7720 /* k11124 in k11118 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11126(C_word c,C_word * av)7721 static void C_ccall f_11126(C_word c,C_word *av){
7722 C_word tmp;
7723 C_word t0=av[0];
7724 C_word t1=av[1];
7725 C_word t2;
7726 C_word t3;
7727 C_word t4;
7728 C_word *a;
7729 C_check_for_interrupt;
7730 if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
7731 C_save_and_reclaim((void *)f_11126,c,av);}
7732 a=C_alloc(11);
7733 t2=(
7734 /* irregex-core.scm:878: sre-repeater? */
7735   f_16575(((C_word*)t0)[2])
7736 );
7737 if(C_truep(t2)){
7738 /* irregex-core.scm:879: chicken.base#error */
7739 t3=*((C_word*)lf[30]+1);{
7740 C_word *av2;
7741 if(c >= 5) {
7742   av2=av;
7743 } else {
7744   av2=C_alloc(5);
7745 }
7746 av2[0]=t3;
7747 av2[1]=((C_word*)t0)[3];
7748 av2[2]=lf[137];
7749 av2[3]=((C_word*)t0)[4];
7750 av2[4]=((C_word*)t0)[5];
7751 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
7752 else{
7753 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11141,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]=t1,a[7]=((C_word*)t0)[2],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);
7754 /* irregex-core.scm:880: sre-empty? */
7755 t4=lf[139];{
7756 C_word *av2;
7757 if(c >= 3) {
7758   av2=av;
7759 } else {
7760   av2=C_alloc(3);
7761 }
7762 av2[0]=t4;
7763 av2[1]=t3;
7764 av2[2]=((C_word*)t0)[2];
7765 f_16307(3,av2);}}}
7766 
7767 /* k11139 in k11124 in k11118 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11141(C_word c,C_word * av)7768 static void C_ccall f_11141(C_word c,C_word *av){
7769 C_word tmp;
7770 C_word t0=av[0];
7771 C_word t1=av[1];
7772 C_word t2;
7773 C_word t3;
7774 C_word t4;
7775 C_word t5;
7776 C_word t6;
7777 C_word t7;
7778 C_word *a;
7779 C_check_for_interrupt;
7780 if(C_unlikely(!C_demand(C_calculate_demand(19,c,6)))){
7781 C_save_and_reclaim((void *)f_11141,c,av);}
7782 a=C_alloc(19);
7783 if(C_truep(t1)){
7784 /* irregex-core.scm:881: chicken.base#error */
7785 t2=*((C_word*)lf[30]+1);{
7786 C_word *av2;
7787 if(c >= 5) {
7788   av2=av;
7789 } else {
7790   av2=C_alloc(5);
7791 }
7792 av2[0]=t2;
7793 av2[1]=((C_word*)t0)[2];
7794 av2[2]=lf[138];
7795 av2[3]=((C_word*)t0)[3];
7796 av2[4]=((C_word*)t0)[4];
7797 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
7798 else{
7799 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[5],C_fix(1));
7800 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[5],C_fix(1));
7801 t4=C_a_i_list2(&a,2,((C_word*)t0)[6],((C_word*)t0)[7]);
7802 t5=C_i_cdr(((C_word*)t0)[4]);
7803 t6=C_a_i_cons(&a,2,t4,t5);
7804 /* irregex-core.scm:883: lp */
7805 t7=((C_word*)((C_word*)t0)[8])[1];
7806 f_10482(t7,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t6,((C_word*)t0)[10]);}}
7807 
7808 /* k11210 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11212(C_word c,C_word * av)7809 static void C_ccall f_11212(C_word c,C_word *av){
7810 C_word tmp;
7811 C_word t0=av[0];
7812 C_word t1=av[1];
7813 C_word t2;
7814 C_word *a;
7815 C_check_for_interrupt;
7816 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7817 C_save_and_reclaim((void *)f_11212,c,av);}
7818 /* irregex-core.scm:891: lp */
7819 t2=((C_word*)((C_word*)t0)[2])[1];
7820 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);}
7821 
7822 /* a11241 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11242(C_word c,C_word * av)7823 static void C_ccall f_11242(C_word c,C_word *av){
7824 C_word tmp;
7825 C_word t0=av[0];
7826 C_word t1=av[1];
7827 C_word t2=av[2];
7828 C_word t3=av[3];
7829 C_word t4;
7830 C_word t5;
7831 C_word t6;
7832 C_word t7;
7833 C_word *a;
7834 if(c!=4) C_bad_argc_2(c,4,t0);
7835 C_check_for_interrupt;
7836 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
7837 C_save_and_reclaim((void *)f_11242,c,av);}
7838 a=C_alloc(10);
7839 t4=C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]);
7840 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11252,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
7841 if(C_truep(t4)){
7842 t6=t5;
7843 f_11252(t6,t4);}
7844 else{
7845 t6=C_i_string_ref(((C_word*)t0)[3],t3);
7846 t7=t5;
7847 f_11252(t7,C_i_not(C_eqp(C_make_character(41),t6)));}}
7848 
7849 /* k11250 in a11241 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11252(C_word t0,C_word t1)7850 static void C_fcall f_11252(C_word t0,C_word t1){
7851 C_word tmp;
7852 C_word t2;
7853 C_word t3;
7854 C_word t4;
7855 C_word t5;
7856 C_word *a;
7857 C_check_for_interrupt;
7858 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
7859 C_save_and_reclaim_args((void *)trf_11252,2,t0,t1);}
7860 a=C_alloc(9);
7861 if(C_truep(t1)){
7862 /* irregex-core.scm:899: chicken.base#error */
7863 t2=*((C_word*)lf[30]+1);{
7864 C_word av2[4];
7865 av2[0]=t2;
7866 av2[1]=((C_word*)t0)[2];
7867 av2[2]=lf[143];
7868 av2[3]=((C_word*)t0)[3];
7869 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
7870 else{
7871 t2=C_fixnum_plus(((C_word*)t0)[4],C_fix(1));
7872 t3=C_fixnum_plus(((C_word*)t0)[4],C_fix(1));
7873 t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11274,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
7874 /* irregex-core.scm:900: collect */
7875 t5=((C_word*)((C_word*)t0)[9])[1];
7876 f_10563(t5,t4);}}
7877 
7878 /* k11272 in k11250 in a11241 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11274(C_word c,C_word * av)7879 static void C_ccall f_11274(C_word c,C_word *av){
7880 C_word tmp;
7881 C_word t0=av[0];
7882 C_word t1=av[1];
7883 C_word t2;
7884 C_word t3;
7885 C_word *a;
7886 C_check_for_interrupt;
7887 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
7888 C_save_and_reclaim((void *)f_11274,c,av);}
7889 a=C_alloc(3);
7890 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
7891 /* irregex-core.scm:900: lp */
7892 t3=((C_word*)((C_word*)t0)[3])[1];
7893 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
7894 
7895 /* k11307 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11309(C_word c,C_word * av)7896 static void C_ccall f_11309(C_word c,C_word *av){
7897 C_word tmp;
7898 C_word t0=av[0];
7899 C_word t1=av[1];
7900 C_word t2;
7901 C_word t3;
7902 C_word t4;
7903 C_word t5;
7904 C_word *a;
7905 C_check_for_interrupt;
7906 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
7907 C_save_and_reclaim((void *)f_11309,c,av);}
7908 a=C_alloc(8);
7909 t2=C_fixnum_plus(t1,((C_word*)t0)[2]);
7910 t3=C_fixnum_plus(t1,C_fix(1));
7911 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11324,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
7912 /* irregex-core.scm:906: collect */
7913 t5=((C_word*)((C_word*)t0)[7])[1];
7914 f_10563(t5,t4);}
7915 
7916 /* k11322 in k11307 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11324(C_word c,C_word * av)7917 static void C_ccall f_11324(C_word c,C_word *av){
7918 C_word tmp;
7919 C_word t0=av[0];
7920 C_word t1=av[1];
7921 C_word t2;
7922 C_word *a;
7923 C_check_for_interrupt;
7924 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7925 C_save_and_reclaim((void *)f_11324,c,av);}
7926 /* irregex-core.scm:906: lp */
7927 t2=((C_word*)((C_word*)t0)[2])[1];
7928 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);}
7929 
7930 /* k11348 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11350(C_word c,C_word * av)7931 static void C_ccall f_11350(C_word c,C_word *av){
7932 C_word tmp;
7933 C_word t0=av[0];
7934 C_word t1=av[1];
7935 C_word t2;
7936 C_word *a;
7937 C_check_for_interrupt;
7938 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7939 C_save_and_reclaim((void *)f_11350,c,av);}
7940 /* irregex-core.scm:908: lp */
7941 t2=((C_word*)((C_word*)t0)[2])[1];
7942 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);}
7943 
7944 /* k11371 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11373(C_word c,C_word * av)7945 static void C_ccall f_11373(C_word c,C_word *av){
7946 C_word tmp;
7947 C_word t0=av[0];
7948 C_word t1=av[1];
7949 C_word t2;
7950 C_word *a;
7951 C_check_for_interrupt;
7952 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7953 C_save_and_reclaim((void *)f_11373,c,av);}
7954 /* irregex-core.scm:910: lp */
7955 t2=((C_word*)((C_word*)t0)[2])[1];
7956 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[145],t1);}
7957 
7958 /* k11394 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11396(C_word c,C_word * av)7959 static void C_ccall f_11396(C_word c,C_word *av){
7960 C_word tmp;
7961 C_word t0=av[0];
7962 C_word t1=av[1];
7963 C_word t2;
7964 C_word *a;
7965 C_check_for_interrupt;
7966 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7967 C_save_and_reclaim((void *)f_11396,c,av);}
7968 /* irregex-core.scm:913: lp */
7969 t2=((C_word*)((C_word*)t0)[2])[1];
7970 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[146],t1);}
7971 
7972 /* k11436 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11438(C_word c,C_word * av)7973 static void C_ccall f_11438(C_word c,C_word *av){
7974 C_word tmp;
7975 C_word t0=av[0];
7976 C_word t1=av[1];
7977 C_word t2;
7978 C_word *a;
7979 C_check_for_interrupt;
7980 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7981 C_save_and_reclaim((void *)f_11438,c,av);}
7982 /* irregex-core.scm:922: lp */
7983 t2=((C_word*)((C_word*)t0)[2])[1];
7984 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[148],t1);}
7985 
7986 /* k11459 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11461(C_word c,C_word * av)7987 static void C_ccall f_11461(C_word c,C_word *av){
7988 C_word tmp;
7989 C_word t0=av[0];
7990 C_word t1=av[1];
7991 C_word t2;
7992 C_word *a;
7993 C_check_for_interrupt;
7994 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7995 C_save_and_reclaim((void *)f_11461,c,av);}
7996 /* irregex-core.scm:925: lp */
7997 t2=((C_word*)((C_word*)t0)[2])[1];
7998 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[149],t1);}
7999 
8000 /* k11462 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11464(C_word c,C_word * av)8001 static void C_ccall f_11464(C_word c,C_word *av){
8002 C_word tmp;
8003 C_word t0=av[0];
8004 C_word t1=av[1];
8005 C_word t2;
8006 C_word t3;
8007 C_word t4;
8008 C_word t5;
8009 C_word t6;
8010 C_word t7;
8011 C_word t8;
8012 C_word t9;
8013 C_word *a;
8014 C_check_for_interrupt;
8015 if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
8016 C_save_and_reclaim((void *)f_11464,c,av);}
8017 a=C_alloc(16);
8018 if(C_truep(t1)){
8019 t2=C_fixnum_plus(t1,C_fix(1));
8020 t3=C_fixnum_plus(t1,C_fix(1));
8021 t4=C_fixnum_not(C_fix(1));
8022 t5=C_fixnum_and(((C_word*)t0)[2],t4);
8023 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11494,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
8024 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11498,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
8025 t8=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(3));
8026 /* irregex-core.scm:933: scheme#substring */
8027 t9=*((C_word*)lf[46]+1);{
8028 C_word *av2;
8029 if(c >= 5) {
8030   av2=av;
8031 } else {
8032   av2=C_alloc(5);
8033 }
8034 av2[0]=t9;
8035 av2[1]=t7;
8036 av2[2]=((C_word*)t0)[7];
8037 av2[3]=t8;
8038 av2[4]=t1;
8039 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
8040 else{
8041 /* irregex-core.scm:936: chicken.base#error */
8042 t2=*((C_word*)lf[30]+1);{
8043 C_word *av2;
8044 if(c >= 4) {
8045   av2=av;
8046 } else {
8047   av2=C_alloc(4);
8048 }
8049 av2[0]=t2;
8050 av2[1]=((C_word*)t0)[4];
8051 av2[2]=lf[150];
8052 av2[3]=((C_word*)t0)[7];
8053 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
8054 
8055 /* k11488 in k11492 in k11462 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11490(C_word c,C_word * av)8056 static void C_ccall f_11490(C_word c,C_word *av){
8057 C_word tmp;
8058 C_word t0=av[0];
8059 C_word t1=av[1];
8060 C_word t2;
8061 C_word *a;
8062 C_check_for_interrupt;
8063 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
8064 C_save_and_reclaim((void *)f_11490,c,av);}
8065 /* irregex-core.scm:932: lp */
8066 t2=((C_word*)((C_word*)t0)[2])[1];
8067 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);}
8068 
8069 /* k11492 in k11462 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11494(C_word c,C_word * av)8070 static void C_ccall f_11494(C_word c,C_word *av){
8071 C_word tmp;
8072 C_word t0=av[0];
8073 C_word t1=av[1];
8074 C_word t2;
8075 C_word t3;
8076 C_word t4;
8077 C_word *a;
8078 C_check_for_interrupt;
8079 if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
8080 C_save_and_reclaim((void *)f_11494,c,av);}
8081 a=C_alloc(14);
8082 t2=C_a_i_list(&a,2,t1,lf[120]);
8083 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11490,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]=t2,tmp=(C_word)a,a+=8,tmp);
8084 /* irregex-core.scm:935: save */
8085 t4=((C_word*)((C_word*)t0)[7])[1];
8086 f_10888(t4,t3);}
8087 
8088 /* k11496 in k11462 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11498(C_word c,C_word * av)8089 static void C_ccall f_11498(C_word c,C_word *av){
8090 C_word tmp;
8091 C_word t0=av[0];
8092 C_word t1=av[1];
8093 C_word t2;
8094 C_word *a;
8095 C_check_for_interrupt;
8096 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
8097 C_save_and_reclaim((void *)f_11498,c,av);}
8098 /* irregex-core.scm:933: scheme#string->symbol */
8099 t2=*((C_word*)lf[84]+1);{
8100 C_word *av2;
8101 if(c >= 3) {
8102   av2=av;
8103 } else {
8104   av2=C_alloc(3);
8105 }
8106 av2[0]=t2;
8107 av2[1]=((C_word*)t0)[2];
8108 av2[2]=t1;
8109 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
8110 
8111 /* k11548 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11550(C_word c,C_word * av)8112 static void C_ccall f_11550(C_word c,C_word *av){
8113 C_word tmp;
8114 C_word t0=av[0];
8115 C_word t1=av[1];
8116 C_word t2;
8117 C_word *a;
8118 C_check_for_interrupt;
8119 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
8120 C_save_and_reclaim((void *)f_11550,c,av);}
8121 /* irregex-core.scm:938: lp */
8122 t2=((C_word*)((C_word*)t0)[2])[1];
8123 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[151],t1);}
8124 
8125 /* k11573 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11575(C_word c,C_word * av)8126 static void C_ccall f_11575(C_word c,C_word *av){
8127 C_word tmp;
8128 C_word t0=av[0];
8129 C_word t1=av[1];
8130 C_word t2;
8131 C_word t3;
8132 C_word t4;
8133 C_word t5;
8134 C_word *a;
8135 C_check_for_interrupt;
8136 if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
8137 C_save_and_reclaim((void *)f_11575,c,av);}
8138 a=C_alloc(16);
8139 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11578,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);
8140 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11612,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
8141 t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[7],C_fix(3));
8142 /* irregex-core.scm:950: scheme#substring */
8143 t5=*((C_word*)lf[46]+1);{
8144 C_word *av2;
8145 if(c >= 5) {
8146   av2=av;
8147 } else {
8148   av2=C_alloc(5);
8149 }
8150 av2[0]=t5;
8151 av2[1]=t3;
8152 av2[2]=((C_word*)t0)[3];
8153 av2[3]=t4;
8154 av2[4]=t1;
8155 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
8156 
8157 /* k11576 in k11573 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11578(C_word c,C_word * av)8158 static void C_ccall f_11578(C_word c,C_word *av){
8159 C_word tmp;
8160 C_word t0=av[0];
8161 C_word t1=av[1];
8162 C_word t2;
8163 C_word t3;
8164 C_word t4;
8165 C_word t5;
8166 C_word t6;
8167 C_word t7;
8168 C_word t8;
8169 C_word *a;
8170 C_check_for_interrupt;
8171 if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
8172 C_save_and_reclaim((void *)f_11578,c,av);}
8173 a=C_alloc(24);
8174 if(C_truep(C_i_not(t1))){
8175 /* irregex-core.scm:952: chicken.base#error */
8176 t2=*((C_word*)lf[30]+1);{
8177 C_word *av2;
8178 if(c >= 4) {
8179   av2=av;
8180 } else {
8181   av2=C_alloc(4);
8182 }
8183 av2[0]=t2;
8184 av2[1]=((C_word*)t0)[2];
8185 av2[2]=lf[153];
8186 av2[3]=((C_word*)t0)[3];
8187 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
8188 else{
8189 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8190 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8191 t4=C_fixnum_not(C_fix(1));
8192 t5=C_fixnum_and(((C_word*)t0)[5],t4);
8193 t6=C_a_i_list(&a,2,t1,lf[109]);
8194 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11608,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
8195 /* irregex-core.scm:954: save */
8196 t8=((C_word*)((C_word*)t0)[7])[1];
8197 f_10888(t8,t7);}}
8198 
8199 /* k11606 in k11576 in k11573 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11608(C_word c,C_word * av)8200 static void C_ccall f_11608(C_word c,C_word *av){
8201 C_word tmp;
8202 C_word t0=av[0];
8203 C_word t1=av[1];
8204 C_word t2;
8205 C_word *a;
8206 C_check_for_interrupt;
8207 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
8208 C_save_and_reclaim((void *)f_11608,c,av);}
8209 /* irregex-core.scm:953: lp */
8210 t2=((C_word*)((C_word*)t0)[2])[1];
8211 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);}
8212 
8213 /* k11610 in k11573 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11612(C_word c,C_word * av)8214 static void C_ccall f_11612(C_word c,C_word *av){
8215 C_word tmp;
8216 C_word t0=av[0];
8217 C_word t1=av[1];
8218 C_word t2;
8219 C_word *a;
8220 C_check_for_interrupt;
8221 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
8222 C_save_and_reclaim((void *)f_11612,c,av);}
8223 /* irregex-core.scm:950: scheme#string->number */
8224 t2=*((C_word*)lf[85]+1);{
8225 C_word *av2;
8226 if(c >= 3) {
8227   av2=av;
8228 } else {
8229   av2=C_alloc(3);
8230 }
8231 av2[0]=t2;
8232 av2[1]=((C_word*)t0)[2];
8233 av2[2]=t1;
8234 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
8235 
8236 /* k11625 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11627(C_word c,C_word * av)8237 static void C_ccall f_11627(C_word c,C_word *av){
8238 C_word tmp;
8239 C_word t0=av[0];
8240 C_word t1=av[1];
8241 C_word t2;
8242 C_word t3;
8243 C_word t4;
8244 C_word t5;
8245 C_word *a;
8246 C_check_for_interrupt;
8247 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
8248 C_save_and_reclaim((void *)f_11627,c,av);}
8249 a=C_alloc(15);
8250 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11630,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);
8251 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11655,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
8252 t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(3));
8253 /* irregex-core.scm:957: scheme#substring */
8254 t5=*((C_word*)lf[46]+1);{
8255 C_word *av2;
8256 if(c >= 5) {
8257   av2=av;
8258 } else {
8259   av2=C_alloc(5);
8260 }
8261 av2[0]=t5;
8262 av2[1]=t3;
8263 av2[2]=((C_word*)t0)[7];
8264 av2[3]=t4;
8265 av2[4]=t1;
8266 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
8267 
8268 /* k11628 in k11625 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11630(C_word c,C_word * av)8269 static void C_ccall f_11630(C_word c,C_word *av){
8270 C_word tmp;
8271 C_word t0=av[0];
8272 C_word t1=av[1];
8273 C_word t2;
8274 C_word t3;
8275 C_word t4;
8276 C_word t5;
8277 C_word t6;
8278 C_word t7;
8279 C_word t8;
8280 C_word *a;
8281 C_check_for_interrupt;
8282 if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){
8283 C_save_and_reclaim((void *)f_11630,c,av);}
8284 a=C_alloc(24);
8285 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
8286 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
8287 t4=C_fixnum_not(C_fix(1));
8288 t5=C_fixnum_and(((C_word*)t0)[3],t4);
8289 t6=C_a_i_list(&a,2,t1,lf[109]);
8290 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11651,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
8291 /* irregex-core.scm:959: save */
8292 t8=((C_word*)((C_word*)t0)[6])[1];
8293 f_10888(t8,t7);}
8294 
8295 /* k11649 in k11628 in k11625 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11651(C_word c,C_word * av)8296 static void C_ccall f_11651(C_word c,C_word *av){
8297 C_word tmp;
8298 C_word t0=av[0];
8299 C_word t1=av[1];
8300 C_word t2;
8301 C_word *a;
8302 C_check_for_interrupt;
8303 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
8304 C_save_and_reclaim((void *)f_11651,c,av);}
8305 /* irregex-core.scm:958: lp */
8306 t2=((C_word*)((C_word*)t0)[2])[1];
8307 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);}
8308 
8309 /* k11653 in k11625 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11655(C_word c,C_word * av)8310 static void C_ccall f_11655(C_word c,C_word *av){
8311 C_word tmp;
8312 C_word t0=av[0];
8313 C_word t1=av[1];
8314 C_word t2;
8315 C_word *a;
8316 C_check_for_interrupt;
8317 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
8318 C_save_and_reclaim((void *)f_11655,c,av);}
8319 /* irregex-core.scm:957: scheme#string->symbol */
8320 t2=*((C_word*)lf[84]+1);{
8321 C_word *av2;
8322 if(c >= 3) {
8323   av2=av;
8324 } else {
8325   av2=C_alloc(3);
8326 }
8327 av2[0]=t2;
8328 av2[1]=((C_word*)t0)[2];
8329 av2[2]=t1;
8330 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
8331 
8332 /* k11676 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11678(C_word c,C_word * av)8333 static void C_ccall f_11678(C_word c,C_word *av){
8334 C_word tmp;
8335 C_word t0=av[0];
8336 C_word t1=av[1];
8337 C_word t2;
8338 C_word *a;
8339 C_check_for_interrupt;
8340 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
8341 C_save_and_reclaim((void *)f_11678,c,av);}
8342 /* irregex-core.scm:961: lp */
8343 t2=((C_word*)((C_word*)t0)[2])[1];
8344 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[154],t1);}
8345 
8346 /* lp2 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11709(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)8347 static void C_fcall f_11709(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
8348 C_word tmp;
8349 C_word t5;
8350 C_word t6;
8351 C_word t7;
8352 C_word t8;
8353 C_word t9;
8354 C_word t10;
8355 C_word t11;
8356 C_word t12;
8357 C_word t13;
8358 C_word t14;
8359 C_word t15;
8360 C_word t16;
8361 C_word t17;
8362 C_word t18;
8363 C_word t19;
8364 C_word t20;
8365 C_word t21;
8366 C_word t22;
8367 C_word t23;
8368 C_word t24;
8369 C_word t25;
8370 C_word t26;
8371 C_word t27;
8372 C_word t28;
8373 C_word t29;
8374 C_word t30;
8375 C_word t31;
8376 C_word *a;
8377 loop:
8378 C_check_for_interrupt;
8379 if(C_unlikely(!C_demand(C_calculate_demand(38,0,4)))){
8380 C_save_and_reclaim_args((void *)trf_11709,5,t0,t1,t2,t3,t4);}
8381 a=C_alloc(38);
8382 t5=C_SCHEME_UNDEFINED;
8383 t6=C_SCHEME_UNDEFINED;
8384 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
8385 t8=t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11712,a[2]=t4,a[3]=t3,a[4]=((C_word)li74),tmp=(C_word)a,a+=5,tmp);
8386 t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11721,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp));
8387 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[3]))){
8388 /* irregex-core.scm:978: chicken.base#error */
8389 t10=*((C_word*)lf[30]+1);{
8390 C_word av2[5];
8391 av2[0]=t10;
8392 av2[1]=t1;
8393 av2[2]=lf[158];
8394 av2[3]=((C_word*)t0)[4];
8395 av2[4]=((C_word*)t0)[5];
8396 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
8397 else{
8398 t10=C_i_string_ref(((C_word*)t0)[4],t2);
8399 switch(t10){
8400 case C_make_character(105):
8401 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8402 t12=(
8403 /* irregex-core.scm:982: join */
8404   f_11712(t5,C_fix(2))
8405 );
8406 /* irregex-core.scm:982: lp2 */
8407 t28=t1;
8408 t29=t11;
8409 t30=t12;
8410 t31=t4;
8411 t1=t28;
8412 t2=t29;
8413 t3=t30;
8414 t4=t31;
8415 goto loop;
8416 case C_make_character(109):
8417 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8418 t12=(
8419 /* irregex-core.scm:984: join */
8420   f_11712(t5,C_fix(4))
8421 );
8422 /* irregex-core.scm:984: lp2 */
8423 t28=t1;
8424 t29=t11;
8425 t30=t12;
8426 t31=t4;
8427 t1=t28;
8428 t2=t29;
8429 t3=t30;
8430 t4=t31;
8431 goto loop;
8432 case C_make_character(120):
8433 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8434 t12=(
8435 /* irregex-core.scm:986: join */
8436   f_11712(t5,C_fix(16))
8437 );
8438 /* irregex-core.scm:986: lp2 */
8439 t28=t1;
8440 t29=t11;
8441 t30=t12;
8442 t31=t4;
8443 t1=t28;
8444 t2=t29;
8445 t3=t30;
8446 t4=t31;
8447 goto loop;
8448 case C_make_character(117):
8449 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8450 t12=(
8451 /* irregex-core.scm:989: join */
8452   f_11712(t5,C_fix(32))
8453 );
8454 /* irregex-core.scm:989: lp2 */
8455 t28=t1;
8456 t29=t11;
8457 t30=t12;
8458 t31=t4;
8459 t1=t28;
8460 t2=t29;
8461 t3=t30;
8462 t4=t31;
8463 goto loop;
8464 case C_make_character(45):
8465 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8466 /* irregex-core.scm:992: lp2 */
8467 t28=t1;
8468 t29=t11;
8469 t30=t3;
8470 t31=C_i_not(t4);
8471 t1=t28;
8472 t2=t29;
8473 t3=t30;
8474 t4=t31;
8475 goto loop;
8476 case C_make_character(41):
8477 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8478 t12=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8479 t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11865,a[2]=t7,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t11,a[6]=t12,a[7]=t3,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
8480 /* irregex-core.scm:994: collect */
8481 t14=((C_word*)((C_word*)t0)[9])[1];
8482 f_10563(t14,t13);
8483 case C_make_character(58):
8484 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8485 t12=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
8486 t13=(
8487 /* irregex-core.scm:997: new-res */
8488   f_11721(C_a_i(&a,6),((C_word*)t7)[1],C_SCHEME_END_OF_LIST)
8489 );
8490 t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11896,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[7],a[5]=t1,a[6]=t11,a[7]=t12,a[8]=t3,a[9]=t13,tmp=(C_word)a,a+=10,tmp);
8491 /* irregex-core.scm:998: collect */
8492 t15=((C_word*)((C_word*)t0)[9])[1];
8493 f_10563(t15,t14);
8494 default:
8495 /* irregex-core.scm:1000: chicken.base#error */
8496 t11=*((C_word*)lf[30]+1);{
8497 C_word av2[4];
8498 av2[0]=t11;
8499 av2[1]=t1;
8500 av2[2]=lf[159];
8501 av2[3]=((C_word*)t0)[4];
8502 ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}}
8503 
8504 /* join in lp2 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11712(C_word t0,C_word t1)8505 static C_word C_fcall f_11712(C_word t0,C_word t1){
8506 C_word tmp;
8507 C_word t2;
8508 C_word t3;
8509 C_word t4;
8510 C_stack_overflow_check;{}
8511 if(C_truep(((C_word*)t0)[2])){
8512 t2=lf[64];
8513 t3=lf[64];
8514 return(C_fixnum_and(((C_word*)t0)[3],C_fixnum_not(t1)));}
8515 else{
8516 t2=lf[63];
8517 t3=lf[63];
8518 return((C_truep(t1)?C_fixnum_or(((C_word*)t0)[3],t1):((C_word*)t0)[3]));}}
8519 
8520 /* new-res in lp2 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11721(C_word * a,C_word t0,C_word t1)8521 static C_word C_fcall f_11721(C_word *a,C_word t0,C_word t1){
8522 C_word tmp;
8523 C_word t2;
8524 C_word t3;
8525 C_word t4;
8526 C_word t5;
8527 C_word t6;
8528 C_word t7;
8529 C_stack_overflow_check;{}
8530 t2=C_fixnum_and(((C_word*)t0)[2],C_fix(32));
8531 t3=C_eqp(C_fix(32),t2);
8532 t4=C_fixnum_and(((C_word*)t0)[3],C_fix(32));
8533 t5=C_eqp(C_fix(32),t4);
8534 t6=C_eqp(t3,t5);
8535 return((C_truep(t6)?t1:(C_truep(t5)?C_a_i_cons(&a,2,lf[156],t1):C_a_i_cons(&a,2,lf[157],t1))));}
8536 
8537 /* k11863 in lp2 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11865(C_word c,C_word * av)8538 static void C_ccall f_11865(C_word c,C_word *av){
8539 C_word tmp;
8540 C_word t0=av[0];
8541 C_word t1=av[1];
8542 C_word t2;
8543 C_word t3;
8544 C_word *a;
8545 C_check_for_interrupt;
8546 if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
8547 C_save_and_reclaim((void *)f_11865,c,av);}
8548 a=C_alloc(6);
8549 t2=(
8550 /* irregex-core.scm:994: new-res */
8551   f_11721(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1)
8552 );
8553 /* irregex-core.scm:994: lp */
8554 t3=((C_word*)((C_word*)t0)[3])[1];
8555 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
8556 
8557 /* k11894 in lp2 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11896(C_word c,C_word * av)8558 static void C_ccall f_11896(C_word c,C_word *av){
8559 C_word tmp;
8560 C_word t0=av[0];
8561 C_word t1=av[1];
8562 C_word t2;
8563 C_word t3;
8564 C_word t4;
8565 C_word *a;
8566 C_check_for_interrupt;
8567 if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
8568 C_save_and_reclaim((void *)f_11896,c,av);}
8569 a=C_alloc(6);
8570 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
8571 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
8572 /* irregex-core.scm:997: lp */
8573 t4=((C_word*)((C_word*)t0)[4])[1];
8574 f_10482(t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t3);}
8575 
8576 /* k11985 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_11987(C_word c,C_word * av)8577 static void C_ccall f_11987(C_word c,C_word *av){
8578 C_word tmp;
8579 C_word t0=av[0];
8580 C_word t1=av[1];
8581 C_word t2;
8582 C_word t3;
8583 C_word t4;
8584 C_word *a;
8585 C_check_for_interrupt;
8586 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8587 C_save_and_reclaim((void *)f_11987,c,av);}
8588 a=C_alloc(3);
8589 t2=C_i_cdar(((C_word*)t0)[2]);
8590 t3=C_a_i_cons(&a,2,t1,t2);
8591 /* irregex-core.scm:1005: lp */
8592 t4=((C_word*)((C_word*)t0)[3])[1];
8593 f_10482(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,C_u_i_cdr(((C_word*)t0)[2]));}
8594 
8595 /* a12001 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12002(C_word c,C_word * av)8596 static void C_ccall f_12002(C_word c,C_word *av){
8597 C_word tmp;
8598 C_word t0=av[0];
8599 C_word t1=av[1];
8600 C_word t2=av[2];
8601 C_word t3=av[3];
8602 C_word t4;
8603 C_word t5;
8604 C_word t6;
8605 C_word t7;
8606 C_word *a;
8607 if(c!=4) C_bad_argc_2(c,4,t0);
8608 C_check_for_interrupt;
8609 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
8610 C_save_and_reclaim((void *)f_12002,c,av);}
8611 a=C_alloc(9);
8612 t4=C_fixnum_plus(t3,C_fix(1));
8613 t5=C_fixnum_plus(t3,C_fix(1));
8614 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12022,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
8615 /* irregex-core.scm:1013: collect */
8616 t7=((C_word*)((C_word*)t0)[5])[1];
8617 f_10563(t7,t6);}
8618 
8619 /* k12020 in a12001 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12022(C_word c,C_word * av)8620 static void C_ccall f_12022(C_word c,C_word *av){
8621 C_word tmp;
8622 C_word t0=av[0];
8623 C_word t1=av[1];
8624 C_word t2;
8625 C_word t3;
8626 C_word *a;
8627 C_check_for_interrupt;
8628 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8629 C_save_and_reclaim((void *)f_12022,c,av);}
8630 a=C_alloc(3);
8631 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
8632 /* irregex-core.scm:1013: lp */
8633 t3=((C_word*)((C_word*)t0)[3])[1];
8634 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
8635 
8636 /* k12024 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12026(C_word c,C_word * av)8637 static void C_ccall f_12026(C_word c,C_word *av){
8638 C_word tmp;
8639 C_word t0=av[0];
8640 C_word t1=av[1];
8641 C_word t2;
8642 C_word *a;
8643 C_check_for_interrupt;
8644 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
8645 C_save_and_reclaim((void *)f_12026,c,av);}{
8646 C_word *av2;
8647 if(c >= 4) {
8648   av2=av;
8649 } else {
8650   av2=C_alloc(4);
8651 }
8652 av2[0]=0;
8653 av2[1]=((C_word*)t0)[2];
8654 av2[2]=((C_word*)t0)[3];
8655 av2[3]=t1;
8656 C_apply(4,av2);}}
8657 
8658 /* k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12045(C_word t0,C_word t1)8659 static void C_fcall f_12045(C_word t0,C_word t1){
8660 C_word tmp;
8661 C_word t2;
8662 C_word t3;
8663 C_word *a;
8664 C_check_for_interrupt;
8665 if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){
8666 C_save_and_reclaim_args((void *)trf_12045,2,t0,t1);}
8667 a=C_alloc(8);
8668 if(C_truep(t1)){
8669 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
8670 /* irregex-core.scm:1020: lp */
8671 t3=((C_word*)((C_word*)t0)[3])[1];
8672 f_10482(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
8673 else{
8674 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12054,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
8675 /* irregex-core.scm:1022: collect/single */
8676 t3=((C_word*)((C_word*)t0)[10])[1];
8677 f_10583(t3,t2);}}
8678 
8679 /* k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12054(C_word c,C_word * av)8680 static void C_ccall f_12054(C_word c,C_word *av){
8681 C_word tmp;
8682 C_word t0=av[0];
8683 C_word t1=av[1];
8684 C_word t2;
8685 C_word t3;
8686 C_word t4;
8687 C_word t5;
8688 C_word t6;
8689 C_word *a;
8690 C_check_for_interrupt;
8691 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
8692 C_save_and_reclaim((void *)f_12054,c,av);}
8693 a=C_alloc(15);
8694 if(C_truep(C_i_nullp(t1))){
8695 /* irregex-core.scm:1025: chicken.base#error */
8696 t2=*((C_word*)lf[30]+1);{
8697 C_word *av2;
8698 if(c >= 3) {
8699   av2=av;
8700 } else {
8701   av2=C_alloc(3);
8702 }
8703 av2[0]=t2;
8704 av2[1]=((C_word*)t0)[2];
8705 av2[2]=lf[174];
8706 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
8707 else{
8708 t2=C_i_car(t1);
8709 t3=C_u_i_cdr(t1);
8710 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12070,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
8711 t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(1));
8712 /* irregex-core.scm:1029: string-scan-char */
8713 t6=lf[54];{
8714 C_word *av2;
8715 if(c >= 5) {
8716   av2=av;
8717 } else {
8718   av2=C_alloc(5);
8719 }
8720 av2[0]=t6;
8721 av2[1]=t4;
8722 av2[2]=((C_word*)t0)[7];
8723 av2[3]=C_make_character(125);
8724 av2[4]=t5;
8725 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
8726 
8727 /* k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12070(C_word c,C_word * av)8728 static void C_ccall f_12070(C_word c,C_word *av){
8729 C_word tmp;
8730 C_word t0=av[0];
8731 C_word t1=av[1];
8732 C_word t2;
8733 C_word t3;
8734 C_word t4;
8735 C_word t5;
8736 C_word *a;
8737 C_check_for_interrupt;
8738 if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
8739 C_save_and_reclaim((void *)f_12070,c,av);}
8740 a=C_alloc(17);
8741 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12073,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);
8742 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12198,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
8743 t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1));
8744 /* irregex-core.scm:1030: scheme#substring */
8745 t5=*((C_word*)lf[46]+1);{
8746 C_word *av2;
8747 if(c >= 5) {
8748   av2=av;
8749 } else {
8750   av2=C_alloc(5);
8751 }
8752 av2[0]=t5;
8753 av2[1]=t3;
8754 av2[2]=((C_word*)t0)[9];
8755 av2[3]=t4;
8756 av2[4]=t1;
8757 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
8758 
8759 /* k12071 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12073(C_word c,C_word * av)8760 static void C_ccall f_12073(C_word c,C_word *av){
8761 C_word tmp;
8762 C_word t0=av[0];
8763 C_word t1=av[1];
8764 C_word t2;
8765 C_word t3;
8766 C_word *a;
8767 C_check_for_interrupt;
8768 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
8769 C_save_and_reclaim((void *)f_12073,c,av);}
8770 a=C_alloc(10);
8771 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12076,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
8772 /* irregex-core.scm:1032: scheme#string->number */
8773 t3=*((C_word*)lf[85]+1);{
8774 C_word *av2;
8775 if(c >= 3) {
8776   av2=av;
8777 } else {
8778   av2=C_alloc(3);
8779 }
8780 av2[0]=t3;
8781 av2[1]=t2;
8782 av2[2]=C_i_car(t1);
8783 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
8784 
8785 /* k12074 in k12071 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12076(C_word c,C_word * av)8786 static void C_ccall f_12076(C_word c,C_word *av){
8787 C_word tmp;
8788 C_word t0=av[0];
8789 C_word t1=av[1];
8790 C_word t2;
8791 C_word t3;
8792 C_word *a;
8793 C_check_for_interrupt;
8794 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
8795 C_save_and_reclaim((void *)f_12076,c,av);}
8796 a=C_alloc(11);
8797 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12079,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);
8798 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[3])))){
8799 /* irregex-core.scm:1034: scheme#string->number */
8800 t3=*((C_word*)lf[85]+1);{
8801 C_word *av2;
8802 if(c >= 3) {
8803   av2=av;
8804 } else {
8805   av2=C_alloc(3);
8806 }
8807 av2[0]=t3;
8808 av2[1]=t2;
8809 av2[2]=C_i_cadr(((C_word*)t0)[3]);
8810 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
8811 else{
8812 t3=t2;{
8813 C_word *av2=av;
8814 av2[0]=t3;
8815 av2[1]=C_SCHEME_FALSE;
8816 f_12079(2,av2);}}}
8817 
8818 /* k12077 in k12074 in k12071 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12079(C_word c,C_word * av)8819 static void C_ccall f_12079(C_word c,C_word *av){
8820 C_word tmp;
8821 C_word t0=av[0];
8822 C_word t1=av[1];
8823 C_word t2;
8824 C_word t3;
8825 C_word t4;
8826 C_word t5;
8827 C_word t6;
8828 C_word t7;
8829 C_word *a;
8830 C_check_for_interrupt;
8831 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
8832 C_save_and_reclaim((void *)f_12079,c,av);}
8833 a=C_alloc(12);
8834 t2=C_i_not(((C_word*)t0)[2]);
8835 t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12088,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]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
8836 if(C_truep(t2)){
8837 t4=t3;
8838 f_12088(t4,t2);}
8839 else{
8840 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){
8841 t4=C_i_cadr(((C_word*)t0)[4]);
8842 t5=C_i_equalp(lf[176],t4);
8843 t6=C_i_not(t5);
8844 t7=t3;
8845 f_12088(t7,(C_truep(t6)?C_i_not(t1):C_SCHEME_FALSE));}
8846 else{
8847 t4=t3;
8848 f_12088(t4,C_SCHEME_FALSE);}}}
8849 
8850 /* k12086 in k12077 in k12074 in k12071 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12088(C_word t0,C_word t1)8851 static void C_fcall f_12088(C_word t0,C_word t1){
8852 C_word tmp;
8853 C_word t2;
8854 C_word t3;
8855 C_word t4;
8856 C_word t5;
8857 C_word t6;
8858 C_word *a;
8859 C_check_for_interrupt;
8860 if(C_unlikely(!C_demand(C_calculate_demand(25,0,6)))){
8861 C_save_and_reclaim_args((void *)trf_12088,2,t0,t1);}
8862 a=C_alloc(25);
8863 if(C_truep(t1)){
8864 /* irregex-core.scm:1040: chicken.base#error */
8865 t2=*((C_word*)lf[30]+1);{
8866 C_word av2[4];
8867 av2[0]=t2;
8868 av2[1]=((C_word*)t0)[2];
8869 av2[2]=lf[175];
8870 av2[3]=((C_word*)t0)[3];
8871 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
8872 else{
8873 if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[3])))){
8874 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8875 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8876 t4=C_a_i_list(&a,3,lf[134],((C_word*)t0)[5],((C_word*)t0)[6]);
8877 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[7]);
8878 /* irregex-core.scm:1042: lp */
8879 t6=((C_word*)((C_word*)t0)[8])[1];
8880 f_10482(t6,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t5,((C_word*)t0)[10]);}
8881 else{
8882 if(C_truep(((C_word*)t0)[11])){
8883 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8884 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8885 t4=C_a_i_list(&a,4,lf[133],((C_word*)t0)[5],((C_word*)t0)[11],((C_word*)t0)[6]);
8886 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[7]);
8887 /* irregex-core.scm:1044: lp */
8888 t6=((C_word*)((C_word*)t0)[8])[1];
8889 f_10482(t6,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t5,((C_word*)t0)[10]);}
8890 else{
8891 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8892 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
8893 t4=C_a_i_list(&a,3,lf[135],((C_word*)t0)[5],((C_word*)t0)[6]);
8894 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[7]);
8895 /* irregex-core.scm:1046: lp */
8896 t6=((C_word*)((C_word*)t0)[8])[1];
8897 f_10482(t6,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t5,((C_word*)t0)[10]);}}}}
8898 
8899 /* k12196 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12198(C_word c,C_word * av)8900 static void C_ccall f_12198(C_word c,C_word *av){
8901 C_word tmp;
8902 C_word t0=av[0];
8903 C_word t1=av[1];
8904 C_word t2;
8905 C_word t3;
8906 C_word t4;
8907 C_word t5;
8908 C_word t6;
8909 C_word *a;
8910 C_check_for_interrupt;
8911 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
8912 C_save_and_reclaim((void *)f_12198,c,av);}
8913 a=C_alloc(8);
8914 t2=C_i_string_length(t1);
8915 t3=C_SCHEME_UNDEFINED;
8916 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
8917 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8968,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp));
8918 t6=((C_word*)t4)[1];
8919 f_8968(t6,((C_word*)t0)[2],C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);}
8920 
8921 /* k12272 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12274(C_word c,C_word * av)8922 static void C_ccall f_12274(C_word c,C_word *av){
8923 C_word tmp;
8924 C_word t0=av[0];
8925 C_word t1=av[1];
8926 C_word t2;
8927 C_word t3;
8928 C_word *a;
8929 C_check_for_interrupt;
8930 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8931 C_save_and_reclaim((void *)f_12274,c,av);}
8932 a=C_alloc(3);
8933 t2=C_a_i_cons(&a,2,lf[178],t1);
8934 /* irregex-core.scm:1056: lp */
8935 t3=((C_word*)((C_word*)t0)[2])[1];
8936 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
8937 
8938 /* k12299 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12301(C_word c,C_word * av)8939 static void C_ccall f_12301(C_word c,C_word *av){
8940 C_word tmp;
8941 C_word t0=av[0];
8942 C_word t1=av[1];
8943 C_word t2;
8944 C_word t3;
8945 C_word *a;
8946 C_check_for_interrupt;
8947 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8948 C_save_and_reclaim((void *)f_12301,c,av);}
8949 a=C_alloc(3);
8950 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
8951 /* irregex-core.scm:1058: lp */
8952 t3=((C_word*)((C_word*)t0)[3])[1];
8953 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
8954 
8955 /* k12322 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12324(C_word c,C_word * av)8956 static void C_ccall f_12324(C_word c,C_word *av){
8957 C_word tmp;
8958 C_word t0=av[0];
8959 C_word t1=av[1];
8960 C_word t2;
8961 C_word t3;
8962 C_word *a;
8963 C_check_for_interrupt;
8964 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8965 C_save_and_reclaim((void *)f_12324,c,av);}
8966 a=C_alloc(3);
8967 t2=C_a_i_cons(&a,2,lf[79],t1);
8968 /* irregex-core.scm:1060: lp */
8969 t3=((C_word*)((C_word*)t0)[2])[1];
8970 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
8971 
8972 /* k12349 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12351(C_word c,C_word * av)8973 static void C_ccall f_12351(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;
8978 C_word t3;
8979 C_word *a;
8980 C_check_for_interrupt;
8981 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8982 C_save_and_reclaim((void *)f_12351,c,av);}
8983 a=C_alloc(3);
8984 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
8985 /* irregex-core.scm:1062: lp */
8986 t3=((C_word*)((C_word*)t0)[3])[1];
8987 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
8988 
8989 /* k12376 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12378(C_word c,C_word * av)8990 static void C_ccall f_12378(C_word c,C_word *av){
8991 C_word tmp;
8992 C_word t0=av[0];
8993 C_word t1=av[1];
8994 C_word t2;
8995 C_word t3;
8996 C_word *a;
8997 C_check_for_interrupt;
8998 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
8999 C_save_and_reclaim((void *)f_12378,c,av);}
9000 a=C_alloc(3);
9001 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9002 /* irregex-core.scm:1064: lp */
9003 t3=((C_word*)((C_word*)t0)[3])[1];
9004 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9005 
9006 /* k12407 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12409(C_word c,C_word * av)9007 static void C_ccall f_12409(C_word c,C_word *av){
9008 C_word tmp;
9009 C_word t0=av[0];
9010 C_word t1=av[1];
9011 C_word t2;
9012 C_word t3;
9013 C_word *a;
9014 C_check_for_interrupt;
9015 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9016 C_save_and_reclaim((void *)f_12409,c,av);}
9017 a=C_alloc(3);
9018 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9019 /* irregex-core.scm:1067: lp */
9020 t3=((C_word*)((C_word*)t0)[3])[1];
9021 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9022 
9023 /* k12442 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12444(C_word c,C_word * av)9024 static void C_ccall f_12444(C_word c,C_word *av){
9025 C_word tmp;
9026 C_word t0=av[0];
9027 C_word t1=av[1];
9028 C_word t2;
9029 C_word t3;
9030 C_word *a;
9031 C_check_for_interrupt;
9032 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9033 C_save_and_reclaim((void *)f_12444,c,av);}
9034 a=C_alloc(3);
9035 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9036 /* irregex-core.scm:1070: lp */
9037 t3=((C_word*)((C_word*)t0)[3])[1];
9038 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9039 
9040 /* k12465 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12467(C_word c,C_word * av)9041 static void C_ccall f_12467(C_word c,C_word *av){
9042 C_word tmp;
9043 C_word t0=av[0];
9044 C_word t1=av[1];
9045 C_word t2;
9046 C_word t3;
9047 C_word *a;
9048 C_check_for_interrupt;
9049 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9050 C_save_and_reclaim((void *)f_12467,c,av);}
9051 a=C_alloc(3);
9052 t2=C_a_i_cons(&a,2,lf[185],t1);
9053 /* irregex-core.scm:1073: lp */
9054 t3=((C_word*)((C_word*)t0)[2])[1];
9055 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9056 
9057 /* k12488 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12490(C_word c,C_word * av)9058 static void C_ccall f_12490(C_word c,C_word *av){
9059 C_word tmp;
9060 C_word t0=av[0];
9061 C_word t1=av[1];
9062 C_word t2;
9063 C_word t3;
9064 C_word *a;
9065 C_check_for_interrupt;
9066 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9067 C_save_and_reclaim((void *)f_12490,c,av);}
9068 a=C_alloc(3);
9069 t2=C_a_i_cons(&a,2,lf[186],t1);
9070 /* irregex-core.scm:1075: lp */
9071 t3=((C_word*)((C_word*)t0)[2])[1];
9072 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9073 
9074 /* k12519 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12521(C_word c,C_word * av)9075 static void C_ccall f_12521(C_word c,C_word *av){
9076 C_word tmp;
9077 C_word t0=av[0];
9078 C_word t1=av[1];
9079 C_word t2;
9080 C_word t3;
9081 C_word t4;
9082 C_word *a;
9083 C_check_for_interrupt;
9084 if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
9085 C_save_and_reclaim((void *)f_12521,c,av);}
9086 a=C_alloc(6);
9087 t2=C_a_i_cons(&a,2,lf[187],t1);
9088 t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
9089 /* irregex-core.scm:1077: lp */
9090 t4=((C_word*)((C_word*)t0)[3])[1];
9091 f_10482(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);}
9092 
9093 /* k12542 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12544(C_word c,C_word * av)9094 static void C_ccall f_12544(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 C_check_for_interrupt;
9102 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9103 C_save_and_reclaim((void *)f_12544,c,av);}
9104 a=C_alloc(3);
9105 t2=C_a_i_cons(&a,2,lf[187],t1);
9106 /* irregex-core.scm:1080: lp */
9107 t3=((C_word*)((C_word*)t0)[2])[1];
9108 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9109 
9110 /* k12565 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12567(C_word c,C_word * av)9111 static void C_ccall f_12567(C_word c,C_word *av){
9112 C_word tmp;
9113 C_word t0=av[0];
9114 C_word t1=av[1];
9115 C_word t2;
9116 C_word t3;
9117 C_word *a;
9118 C_check_for_interrupt;
9119 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9120 C_save_and_reclaim((void *)f_12567,c,av);}
9121 a=C_alloc(3);
9122 t2=C_a_i_cons(&a,2,lf[80],t1);
9123 /* irregex-core.scm:1082: lp */
9124 t3=((C_word*)((C_word*)t0)[2])[1];
9125 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9126 
9127 /* k12588 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12590(C_word c,C_word * av)9128 static void C_ccall f_12590(C_word c,C_word *av){
9129 C_word tmp;
9130 C_word t0=av[0];
9131 C_word t1=av[1];
9132 C_word t2;
9133 C_word t3;
9134 C_word *a;
9135 C_check_for_interrupt;
9136 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9137 C_save_and_reclaim((void *)f_12590,c,av);}
9138 a=C_alloc(3);
9139 t2=C_a_i_cons(&a,2,lf[188],t1);
9140 /* irregex-core.scm:1084: lp */
9141 t3=((C_word*)((C_word*)t0)[2])[1];
9142 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9143 
9144 /* k12611 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12613(C_word c,C_word * av)9145 static void C_ccall f_12613(C_word c,C_word *av){
9146 C_word tmp;
9147 C_word t0=av[0];
9148 C_word t1=av[1];
9149 C_word t2;
9150 C_word t3;
9151 C_word *a;
9152 C_check_for_interrupt;
9153 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9154 C_save_and_reclaim((void *)f_12613,c,av);}
9155 a=C_alloc(3);
9156 t2=C_a_i_cons(&a,2,lf[183],t1);
9157 /* irregex-core.scm:1087: lp */
9158 t3=((C_word*)((C_word*)t0)[2])[1];
9159 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9160 
9161 /* k12634 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12636(C_word c,C_word * av)9162 static void C_ccall f_12636(C_word c,C_word *av){
9163 C_word tmp;
9164 C_word t0=av[0];
9165 C_word t1=av[1];
9166 C_word t2;
9167 C_word t3;
9168 C_word *a;
9169 C_check_for_interrupt;
9170 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9171 C_save_and_reclaim((void *)f_12636,c,av);}
9172 a=C_alloc(3);
9173 t2=C_a_i_cons(&a,2,lf[184],t1);
9174 /* irregex-core.scm:1089: lp */
9175 t3=((C_word*)((C_word*)t0)[2])[1];
9176 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9177 
9178 /* a12646 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12647(C_word c,C_word * av)9179 static void C_ccall f_12647(C_word c,C_word *av){
9180 C_word tmp;
9181 C_word t0=av[0];
9182 C_word t1=av[1];
9183 C_word t2=av[2];
9184 C_word t3=av[3];
9185 C_word t4;
9186 C_word t5;
9187 C_word t6;
9188 C_word t7;
9189 C_word *a;
9190 if(c!=4) C_bad_argc_2(c,4,t0);
9191 C_check_for_interrupt;
9192 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
9193 C_save_and_reclaim((void *)f_12647,c,av);}
9194 a=C_alloc(9);
9195 t4=C_fixnum_plus(t3,C_fix(1));
9196 t5=C_fixnum_plus(t3,C_fix(1));
9197 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12667,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
9198 /* irregex-core.scm:1093: collect */
9199 t7=((C_word*)((C_word*)t0)[5])[1];
9200 f_10563(t7,t6);}
9201 
9202 /* k12665 in a12646 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12667(C_word c,C_word * av)9203 static void C_ccall f_12667(C_word c,C_word *av){
9204 C_word tmp;
9205 C_word t0=av[0];
9206 C_word t1=av[1];
9207 C_word t2;
9208 C_word t3;
9209 C_word *a;
9210 C_check_for_interrupt;
9211 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9212 C_save_and_reclaim((void *)f_12667,c,av);}
9213 a=C_alloc(3);
9214 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9215 /* irregex-core.scm:1093: lp */
9216 t3=((C_word*)((C_word*)t0)[3])[1];
9217 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9218 
9219 /* k12669 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12671(C_word c,C_word * av)9220 static void C_ccall f_12671(C_word c,C_word *av){
9221 C_word tmp;
9222 C_word t0=av[0];
9223 C_word t1=av[1];
9224 C_word t2;
9225 C_word *a;
9226 C_check_for_interrupt;
9227 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
9228 C_save_and_reclaim((void *)f_12671,c,av);}{
9229 C_word *av2;
9230 if(c >= 4) {
9231   av2=av;
9232 } else {
9233   av2=C_alloc(4);
9234 }
9235 av2[0]=0;
9236 av2[1]=((C_word*)t0)[2];
9237 av2[2]=((C_word*)t0)[3];
9238 av2[3]=t1;
9239 C_apply(4,av2);}}
9240 
9241 /* k12693 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12695(C_word t0,C_word t1)9242 static void C_fcall f_12695(C_word t0,C_word t1){
9243 C_word tmp;
9244 C_word t2;
9245 C_word t3;
9246 C_word t4;
9247 C_word *a;
9248 C_check_for_interrupt;
9249 if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
9250 C_save_and_reclaim_args((void *)trf_12695,2,t0,t1);}
9251 a=C_alloc(14);
9252 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12698,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);
9253 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(2));
9254 /* irregex-core.scm:1100: string-scan-char */
9255 t4=lf[54];{
9256 C_word av2[5];
9257 av2[0]=t4;
9258 av2[1]=t2;
9259 av2[2]=((C_word*)t0)[4];
9260 av2[3]=t1;
9261 av2[4]=t3;
9262 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
9263 
9264 /* k12696 in k12693 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12698(C_word c,C_word * av)9265 static void C_ccall f_12698(C_word c,C_word *av){
9266 C_word tmp;
9267 C_word t0=av[0];
9268 C_word t1=av[1];
9269 C_word t2;
9270 C_word t3;
9271 C_word t4;
9272 C_word *a;
9273 C_check_for_interrupt;
9274 if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
9275 C_save_and_reclaim((void *)f_12698,c,av);}
9276 a=C_alloc(14);
9277 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12701,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);
9278 if(C_truep(t1)){
9279 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(3));
9280 /* irregex-core.scm:1101: scheme#substring */
9281 t4=*((C_word*)lf[46]+1);{
9282 C_word *av2;
9283 if(c >= 5) {
9284   av2=av;
9285 } else {
9286   av2=C_alloc(5);
9287 }
9288 av2[0]=t4;
9289 av2[1]=t2;
9290 av2[2]=((C_word*)t0)[4];
9291 av2[3]=t3;
9292 av2[4]=t1;
9293 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
9294 else{
9295 t3=t2;{
9296 C_word *av2=av;
9297 av2[0]=t3;
9298 av2[1]=C_SCHEME_FALSE;
9299 f_12701(2,av2);}}}
9300 
9301 /* k12699 in k12696 in k12693 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12701(C_word c,C_word * av)9302 static void C_ccall f_12701(C_word c,C_word *av){
9303 C_word tmp;
9304 C_word t0=av[0];
9305 C_word t1=av[1];
9306 C_word t2;
9307 C_word t3;
9308 C_word t4;
9309 C_word t5;
9310 C_word t6;
9311 C_word t7;
9312 C_word t8;
9313 C_word *a;
9314 C_check_for_interrupt;
9315 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
9316 C_save_and_reclaim((void *)f_12701,c,av);}
9317 a=C_alloc(10);
9318 t2=C_fixnum_and(((C_word*)t0)[2],C_fix(2));
9319 t3=C_eqp(C_fix(2),t2);
9320 t4=(C_truep(t3)?lf[191]:lf[192]);
9321 if(C_truep(C_i_not(((C_word*)t0)[3]))){
9322 /* irregex-core.scm:1107: chicken.base#error */
9323 t5=*((C_word*)lf[30]+1);{
9324 C_word *av2;
9325 if(c >= 4) {
9326   av2=av;
9327 } else {
9328   av2=C_alloc(4);
9329 }
9330 av2[0]=t5;
9331 av2[1]=((C_word*)t0)[4];
9332 av2[2]=lf[193];
9333 av2[3]=((C_word*)t0)[5];
9334 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
9335 else{
9336 t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
9337 t6=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
9338 t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12740,a[2]=t4,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=t6,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
9339 /* irregex-core.scm:1109: scheme#string->symbol */
9340 t8=*((C_word*)lf[84]+1);{
9341 C_word *av2;
9342 if(c >= 3) {
9343   av2=av;
9344 } else {
9345   av2=C_alloc(3);
9346 }
9347 av2[0]=t8;
9348 av2[1]=t7;
9349 av2[2]=t1;
9350 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
9351 
9352 /* k12734 in k12738 in k12699 in k12696 in k12693 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12736(C_word c,C_word * av)9353 static void C_ccall f_12736(C_word c,C_word *av){
9354 C_word tmp;
9355 C_word t0=av[0];
9356 C_word t1=av[1];
9357 C_word t2;
9358 C_word t3;
9359 C_word *a;
9360 C_check_for_interrupt;
9361 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9362 C_save_and_reclaim((void *)f_12736,c,av);}
9363 a=C_alloc(3);
9364 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9365 /* irregex-core.scm:1108: lp */
9366 t3=((C_word*)((C_word*)t0)[3])[1];
9367 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9368 
9369 /* k12738 in k12699 in k12696 in k12693 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12740(C_word c,C_word * av)9370 static void C_ccall f_12740(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 t3;
9376 C_word t4;
9377 C_word *a;
9378 C_check_for_interrupt;
9379 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
9380 C_save_and_reclaim((void *)f_12740,c,av);}
9381 a=C_alloc(15);
9382 t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
9383 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12736,a[2]=t2,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);
9384 /* irregex-core.scm:1110: collect */
9385 t4=((C_word*)((C_word*)t0)[9])[1];
9386 f_10563(t4,t3);}
9387 
9388 /* k12765 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12767(C_word c,C_word * av)9389 static void C_ccall f_12767(C_word c,C_word *av){
9390 C_word tmp;
9391 C_word t0=av[0];
9392 C_word t1=av[1];
9393 C_word t2;
9394 C_word t3;
9395 C_word t4;
9396 C_word t5;
9397 C_word t6;
9398 C_word *a;
9399 C_check_for_interrupt;
9400 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
9401 C_save_and_reclaim((void *)f_12767,c,av);}
9402 a=C_alloc(18);
9403 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
9404 t3=C_SCHEME_UNDEFINED;
9405 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
9406 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12775,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]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t4,a[10]=((C_word)li86),tmp=(C_word)a,a+=11,tmp));
9407 t6=((C_word*)t4)[1];
9408 f_12775(t6,((C_word*)t0)[8],t2);}
9409 
9410 /* lp2 in k12765 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12775(C_word t0,C_word t1,C_word t2)9411 static void C_fcall f_12775(C_word t0,C_word t1,C_word t2){
9412 C_word tmp;
9413 C_word t3;
9414 C_word t4;
9415 C_word t5;
9416 C_word t6;
9417 C_word t7;
9418 C_word t8;
9419 C_word t9;
9420 C_word t10;
9421 C_word t11;
9422 C_word t12;
9423 C_word t13;
9424 C_word t14;
9425 C_word *a;
9426 loop:
9427 C_check_for_interrupt;
9428 if(C_unlikely(!C_demand(C_calculate_demand(29,0,6)))){
9429 C_save_and_reclaim_args((void *)trf_12775,3,t0,t1,t2);}
9430 a=C_alloc(29);
9431 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
9432 /* irregex-core.scm:1117: lp */
9433 t3=((C_word*)((C_word*)t0)[3])[1];
9434 f_10482(t3,t1,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(2)),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
9435 else{
9436 t3=C_i_string_ref(((C_word*)t0)[8],t2);
9437 t4=C_eqp(C_make_character(92),t3);
9438 if(C_truep(t4)){
9439 t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
9440 if(C_truep(C_i_integer_greater_or_equalp(t5,((C_word*)t0)[2]))){
9441 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
9442 /* irregex-core.scm:1121: lp */
9443 t7=((C_word*)((C_word*)t0)[3])[1];
9444 f_10482(t7,t1,t6,C_fixnum_plus(((C_word*)t0)[4],C_fix(2)),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
9445 else{
9446 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
9447 t7=C_i_string_ref(((C_word*)t0)[8],t6);
9448 t8=C_eqp(C_make_character(69),t7);
9449 if(C_truep(t8)){
9450 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
9451 t10=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
9452 t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12835,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t9,a[6]=t10,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
9453 /* irregex-core.scm:1124: scheme#substring */
9454 t12=*((C_word*)lf[46]+1);{
9455 C_word av2[5];
9456 av2[0]=t12;
9457 av2[1]=t11;
9458 av2[2]=((C_word*)t0)[8];
9459 av2[3]=C_fixnum_plus(((C_word*)t0)[4],C_fix(2));
9460 av2[4]=t2;
9461 ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}
9462 else{
9463 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
9464 /* irregex-core.scm:1126: lp2 */
9465 t13=t1;
9466 t14=t9;
9467 t1=t13;
9468 t2=t14;
9469 goto loop;}}}
9470 else{
9471 t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
9472 /* irregex-core.scm:1128: lp2 */
9473 t13=t1;
9474 t14=t5;
9475 t1=t13;
9476 t2=t14;
9477 goto loop;}}}
9478 
9479 /* k12833 in lp2 in k12765 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12835(C_word c,C_word * av)9480 static void C_ccall f_12835(C_word c,C_word *av){
9481 C_word tmp;
9482 C_word t0=av[0];
9483 C_word t1=av[1];
9484 C_word t2;
9485 C_word t3;
9486 C_word *a;
9487 C_check_for_interrupt;
9488 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9489 C_save_and_reclaim((void *)f_12835,c,av);}
9490 a=C_alloc(3);
9491 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
9492 /* irregex-core.scm:1123: lp */
9493 t3=((C_word*)((C_word*)t0)[3])[1];
9494 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9495 
9496 /* a12877 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12878(C_word c,C_word * av)9497 static void C_ccall f_12878(C_word c,C_word *av){
9498 C_word tmp;
9499 C_word t0=av[0];
9500 C_word t1=av[1];
9501 C_word t2=av[2];
9502 C_word t3=av[3];
9503 C_word t4;
9504 C_word t5;
9505 C_word *a;
9506 if(c!=4) C_bad_argc_2(c,4,t0);
9507 C_check_for_interrupt;
9508 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
9509 C_save_and_reclaim((void *)f_12878,c,av);}
9510 a=C_alloc(8);
9511 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12890,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
9512 /* irregex-core.scm:1132: collect */
9513 t5=((C_word*)((C_word*)t0)[5])[1];
9514 f_10563(t5,t4);}
9515 
9516 /* k12888 in a12877 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12890(C_word c,C_word * av)9517 static void C_ccall f_12890(C_word c,C_word *av){
9518 C_word tmp;
9519 C_word t0=av[0];
9520 C_word t1=av[1];
9521 C_word t2;
9522 C_word t3;
9523 C_word *a;
9524 C_check_for_interrupt;
9525 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9526 C_save_and_reclaim((void *)f_12890,c,av);}
9527 a=C_alloc(3);
9528 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9529 /* irregex-core.scm:1132: lp */
9530 t3=((C_word*)((C_word*)t0)[3])[1];
9531 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9532 
9533 /* k12897 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12899(C_word c,C_word * av)9534 static void C_ccall f_12899(C_word c,C_word *av){
9535 C_word tmp;
9536 C_word t0=av[0];
9537 C_word t1=av[1];
9538 C_word t2;
9539 C_word t3;
9540 C_word t4;
9541 C_word t5;
9542 C_word t6;
9543 C_word t7;
9544 C_word t8;
9545 C_word t9;
9546 C_word *a;
9547 C_check_for_interrupt;
9548 if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
9549 C_save_and_reclaim((void *)f_12899,c,av);}
9550 a=C_alloc(17);
9551 t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
9552 t3=C_fixnum_and(((C_word*)t0)[3],C_fix(2));
9553 t4=C_eqp(C_fix(2),t3);
9554 t5=(C_truep(t4)?lf[191]:lf[192]);
9555 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12923,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
9556 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12927,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
9557 t8=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1));
9558 /* irregex-core.scm:1150: scheme#substring */
9559 t9=*((C_word*)lf[46]+1);{
9560 C_word *av2;
9561 if(c >= 5) {
9562   av2=av;
9563 } else {
9564   av2=C_alloc(5);
9565 }
9566 av2[0]=t9;
9567 av2[1]=t7;
9568 av2[2]=((C_word*)t0)[9];
9569 av2[3]=t8;
9570 av2[4]=t2;
9571 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
9572 
9573 /* k12917 in k12921 in k12897 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12919(C_word c,C_word * av)9574 static void C_ccall f_12919(C_word c,C_word *av){
9575 C_word tmp;
9576 C_word t0=av[0];
9577 C_word t1=av[1];
9578 C_word t2;
9579 C_word t3;
9580 C_word *a;
9581 C_check_for_interrupt;
9582 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9583 C_save_and_reclaim((void *)f_12919,c,av);}
9584 a=C_alloc(3);
9585 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9586 /* irregex-core.scm:1152: lp */
9587 t3=((C_word*)((C_word*)t0)[3])[1];
9588 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9589 
9590 /* k12921 in k12897 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12923(C_word c,C_word * av)9591 static void C_ccall f_12923(C_word c,C_word *av){
9592 C_word tmp;
9593 C_word t0=av[0];
9594 C_word t1=av[1];
9595 C_word t2;
9596 C_word t3;
9597 C_word t4;
9598 C_word *a;
9599 C_check_for_interrupt;
9600 if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
9601 C_save_and_reclaim((void *)f_12923,c,av);}
9602 a=C_alloc(14);
9603 t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
9604 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12919,a[2]=t2,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);
9605 /* irregex-core.scm:1151: collect */
9606 t4=((C_word*)((C_word*)t0)[8])[1];
9607 f_10563(t4,t3);}
9608 
9609 /* k12925 in k12897 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12927(C_word c,C_word * av)9610 static void C_ccall f_12927(C_word c,C_word *av){
9611 C_word tmp;
9612 C_word t0=av[0];
9613 C_word t1=av[1];
9614 C_word t2;
9615 C_word *a;
9616 C_check_for_interrupt;
9617 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
9618 C_save_and_reclaim((void *)f_12927,c,av);}
9619 /* irregex-core.scm:1149: scheme#string->number */
9620 t2=*((C_word*)lf[85]+1);{
9621 C_word *av2;
9622 if(c >= 3) {
9623   av2=av;
9624 } else {
9625   av2=C_alloc(3);
9626 }
9627 av2[0]=t2;
9628 av2[1]=((C_word*)t0)[2];
9629 av2[2]=t1;
9630 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
9631 
9632 /* k12977 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12979(C_word c,C_word * av)9633 static void C_ccall f_12979(C_word c,C_word *av){
9634 C_word tmp;
9635 C_word t0=av[0];
9636 C_word t1=av[1];
9637 C_word t2;
9638 C_word t3;
9639 C_word *a;
9640 C_check_for_interrupt;
9641 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9642 C_save_and_reclaim((void *)f_12979,c,av);}
9643 a=C_alloc(3);
9644 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9645 /* irregex-core.scm:1156: lp */
9646 t3=((C_word*)((C_word*)t0)[3])[1];
9647 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9648 
9649 /* k12993 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_12995(C_word c,C_word * av)9650 static void C_ccall f_12995(C_word c,C_word *av){
9651 C_word tmp;
9652 C_word t0=av[0];
9653 C_word t1=av[1];
9654 C_word t2;
9655 C_word *a;
9656 C_check_for_interrupt;
9657 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
9658 C_save_and_reclaim((void *)f_12995,c,av);}
9659 /* irregex-core.scm:1160: lp */
9660 t2=((C_word*)((C_word*)t0)[2])[1];
9661 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);}
9662 
9663 /* k13057 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13059(C_word c,C_word * av)9664 static void C_ccall f_13059(C_word c,C_word *av){
9665 C_word tmp;
9666 C_word t0=av[0];
9667 C_word t1=av[1];
9668 C_word t2;
9669 C_word t3;
9670 C_word *a;
9671 C_check_for_interrupt;
9672 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9673 C_save_and_reclaim((void *)f_13059,c,av);}
9674 a=C_alloc(3);
9675 t2=C_a_i_cons(&a,2,lf[103],t1);
9676 /* irregex-core.scm:1162: lp */
9677 t3=((C_word*)((C_word*)t0)[2])[1];
9678 f_10482(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);}
9679 
9680 /* k13083 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13085(C_word c,C_word * av)9681 static void C_ccall f_13085(C_word c,C_word *av){
9682 C_word tmp;
9683 C_word t0=av[0];
9684 C_word t1=av[1];
9685 C_word t2;
9686 C_word t3;
9687 C_word *a;
9688 C_check_for_interrupt;
9689 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9690 C_save_and_reclaim((void *)f_13085,c,av);}
9691 a=C_alloc(3);
9692 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9693 /* irregex-core.scm:1165: lp */
9694 t3=((C_word*)((C_word*)t0)[3])[1];
9695 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9696 
9697 /* k13112 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13114(C_word c,C_word * av)9698 static void C_ccall f_13114(C_word c,C_word *av){
9699 C_word tmp;
9700 C_word t0=av[0];
9701 C_word t1=av[1];
9702 C_word t2;
9703 C_word t3;
9704 C_word *a;
9705 C_check_for_interrupt;
9706 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
9707 C_save_and_reclaim((void *)f_13114,c,av);}
9708 a=C_alloc(3);
9709 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
9710 /* irregex-core.scm:1168: lp */
9711 t3=((C_word*)((C_word*)t0)[3])[1];
9712 f_10482(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);}
9713 
9714 /* k13140 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13142(C_word c,C_word * av)9715 static void C_ccall f_13142(C_word c,C_word *av){
9716 C_word tmp;
9717 C_word t0=av[0];
9718 C_word t1=av[1];
9719 C_word t2;
9720 C_word *a;
9721 C_check_for_interrupt;
9722 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
9723 C_save_and_reclaim((void *)f_13142,c,av);}
9724 /* irregex-core.scm:1171: lp */
9725 t2=((C_word*)((C_word*)t0)[2])[1];
9726 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);}
9727 
9728 /* k13161 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13163(C_word c,C_word * av)9729 static void C_ccall f_13163(C_word c,C_word *av){
9730 C_word tmp;
9731 C_word t0=av[0];
9732 C_word t1=av[1];
9733 C_word t2;
9734 C_word t3;
9735 C_word t4;
9736 C_word t5;
9737 C_word t6;
9738 C_word *a;
9739 C_check_for_interrupt;
9740 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
9741 C_save_and_reclaim((void *)f_13163,c,av);}
9742 a=C_alloc(13);
9743 t2=(C_truep(t1)?t1:C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1)));
9744 t3=C_fixnum_plus(t2,C_fix(1));
9745 t4=C_fixnum_plus(t2,C_fix(1));
9746 t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13181,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
9747 /* irregex-core.scm:1177: collect */
9748 t6=((C_word*)((C_word*)t0)[7])[1];
9749 f_10563(t6,t5);}
9750 
9751 /* k13179 in k13161 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13181(C_word c,C_word * av)9752 static void C_ccall f_13181(C_word c,C_word *av){
9753 C_word tmp;
9754 C_word t0=av[0];
9755 C_word t1=av[1];
9756 C_word t2;
9757 C_word *a;
9758 C_check_for_interrupt;
9759 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
9760 C_save_and_reclaim((void *)f_13181,c,av);}
9761 /* irregex-core.scm:1177: lp */
9762 t2=((C_word*)((C_word*)t0)[2])[1];
9763 f_10482(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);}
9764 
9765 /* chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_13295(C_word t1,C_word t2,C_word t3,C_word t4)9766 static void C_fcall f_13295(C_word t1,C_word t2,C_word t3,C_word t4){
9767 C_word tmp;
9768 C_word t5;
9769 C_word t6;
9770 C_word t7;
9771 C_word t8;
9772 C_word t9;
9773 C_word t10;
9774 C_word t11;
9775 C_word t12;
9776 C_word t13;
9777 C_word t14;
9778 C_word t15;
9779 C_word t16;
9780 C_word *a;
9781 C_check_for_interrupt;
9782 if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){
9783 C_save_and_reclaim_args((void *)trf_13295,4,t1,t2,t3,t4);}
9784 a=C_alloc(21);
9785 if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){
9786 /* irregex-core.scm:1200: chicken.base#error */
9787 t5=*((C_word*)lf[30]+1);{
9788 C_word av2[5];
9789 av2[0]=t5;
9790 av2[1]=t1;
9791 av2[2]=lf[199];
9792 av2[3]=t2;
9793 av2[4]=t3;
9794 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
9795 else{
9796 t5=C_i_string_ref(t2,t3);
9797 t6=C_eqp(C_make_character(123),t5);
9798 if(C_truep(t6)){
9799 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13314,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
9800 t8=C_a_i_fixnum_plus(&a,2,t3,C_fix(1));
9801 t9=C_a_i_list(&a,1,t8);
9802 t10=C_i_string_length(t2);
9803 t11=C_i_pairp(t9);
9804 t12=(C_truep(t11)?C_u_i_car(t9):C_fix(0));
9805 t13=C_SCHEME_UNDEFINED;
9806 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
9807 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8873,a[2]=t10,a[3]=t2,a[4]=t14,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp));
9808 t16=((C_word*)t14)[1];
9809 f_8873(t16,t7,t12);}
9810 else{
9811 t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1));
9812 if(C_truep(C_fixnum_greater_or_equal_p(t7,t4))){
9813 /* irregex-core.scm:1211: chicken.base#error */
9814 t8=*((C_word*)lf[30]+1);{
9815 C_word av2[5];
9816 av2[0]=t8;
9817 av2[1]=t1;
9818 av2[2]=lf[202];
9819 av2[3]=t2;
9820 av2[4]=t3;
9821 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}
9822 else{
9823 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13360,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9824 t9=C_a_i_fixnum_plus(&a,2,t3,C_fix(2));
9825 /* irregex-core.scm:1213: scheme#substring */
9826 t10=*((C_word*)lf[46]+1);{
9827 C_word av2[5];
9828 av2[0]=t10;
9829 av2[1]=t8;
9830 av2[2]=t2;
9831 av2[3]=t3;
9832 av2[4]=t9;
9833 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}}
9834 
9835 /* k13312 in chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_13314(C_word c,C_word * av)9836 static void C_ccall f_13314(C_word c,C_word *av){
9837 C_word tmp;
9838 C_word t0=av[0];
9839 C_word t1=av[1];
9840 C_word t2;
9841 C_word t3;
9842 C_word t4;
9843 C_word *a;
9844 C_check_for_interrupt;
9845 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
9846 C_save_and_reclaim((void *)f_13314,c,av);}
9847 a=C_alloc(9);
9848 if(C_truep(C_i_not(t1))){
9849 /* irregex-core.scm:1204: chicken.base#error */
9850 t2=*((C_word*)lf[30]+1);{
9851 C_word *av2;
9852 if(c >= 5) {
9853   av2=av;
9854 } else {
9855   av2=C_alloc(5);
9856 }
9857 av2[0]=t2;
9858 av2[1]=((C_word*)t0)[2];
9859 av2[2]=lf[200];
9860 av2[3]=((C_word*)t0)[3];
9861 av2[4]=((C_word*)t0)[4];
9862 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
9863 else{
9864 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13326,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
9865 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
9866 /* irregex-core.scm:1205: scheme#substring */
9867 t4=*((C_word*)lf[46]+1);{
9868 C_word *av2;
9869 if(c >= 5) {
9870   av2=av;
9871 } else {
9872   av2=C_alloc(5);
9873 }
9874 av2[0]=t4;
9875 av2[1]=t2;
9876 av2[2]=((C_word*)t0)[3];
9877 av2[3]=t3;
9878 av2[4]=t1;
9879 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
9880 
9881 /* k13324 in k13312 in chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_13326(C_word c,C_word * av)9882 static void C_ccall f_13326(C_word c,C_word *av){
9883 C_word tmp;
9884 C_word t0=av[0];
9885 C_word t1=av[1];
9886 C_word t2;
9887 C_word t3;
9888 C_word *a;
9889 C_check_for_interrupt;
9890 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
9891 C_save_and_reclaim((void *)f_13326,c,av);}
9892 a=C_alloc(5);
9893 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
9894 /* irregex-core.scm:1206: scheme#string->number */
9895 t3=*((C_word*)lf[85]+1);{
9896 C_word *av2;
9897 if(c >= 4) {
9898   av2=av;
9899 } else {
9900   av2=C_alloc(4);
9901 }
9902 av2[0]=t3;
9903 av2[1]=t2;
9904 av2[2]=t1;
9905 av2[3]=C_fix(16);
9906 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
9907 
9908 /* k13327 in k13324 in k13312 in chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_13329(C_word c,C_word * av)9909 static void C_ccall f_13329(C_word c,C_word *av){
9910 C_word tmp;
9911 C_word t0=av[0];
9912 C_word t1=av[1];
9913 C_word t2;
9914 C_word t3;
9915 C_word *a;
9916 C_check_for_interrupt;
9917 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
9918 C_save_and_reclaim((void *)f_13329,c,av);}
9919 a=C_alloc(6);
9920 if(C_truep(t1)){
9921 t2=C_make_character(C_unfix(t1));
9922 t3=((C_word*)t0)[2];{
9923 C_word *av2=av;
9924 av2[0]=t3;
9925 av2[1]=C_a_i_list2(&a,2,t2,((C_word*)t0)[3]);
9926 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
9927 else{
9928 /* irregex-core.scm:1209: chicken.base#error */
9929 t2=*((C_word*)lf[30]+1);{
9930 C_word *av2;
9931 if(c >= 4) {
9932   av2=av;
9933 } else {
9934   av2=C_alloc(4);
9935 }
9936 av2[0]=t2;
9937 av2[1]=((C_word*)t0)[2];
9938 av2[2]=lf[201];
9939 av2[3]=((C_word*)t0)[4];
9940 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
9941 
9942 /* k13358 in chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_13360(C_word c,C_word * av)9943 static void C_ccall f_13360(C_word c,C_word *av){
9944 C_word tmp;
9945 C_word t0=av[0];
9946 C_word t1=av[1];
9947 C_word t2;
9948 C_word t3;
9949 C_word *a;
9950 C_check_for_interrupt;
9951 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
9952 C_save_and_reclaim((void *)f_13360,c,av);}
9953 a=C_alloc(5);
9954 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
9955 /* irregex-core.scm:1214: scheme#string->number */
9956 t3=*((C_word*)lf[85]+1);{
9957 C_word *av2;
9958 if(c >= 4) {
9959   av2=av;
9960 } else {
9961   av2=C_alloc(4);
9962 }
9963 av2[0]=t3;
9964 av2[1]=t2;
9965 av2[2]=t1;
9966 av2[3]=C_fix(16);
9967 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
9968 
9969 /* k13361 in k13358 in chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_13363(C_word c,C_word * av)9970 static void C_ccall f_13363(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 t4;
9977 C_word *a;
9978 C_check_for_interrupt;
9979 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
9980 C_save_and_reclaim((void *)f_13363,c,av);}
9981 a=C_alloc(11);
9982 if(C_truep(t1)){
9983 t2=C_make_character(C_unfix(t1));
9984 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
9985 t4=((C_word*)t0)[3];{
9986 C_word *av2=av;
9987 av2[0]=t4;
9988 av2[1]=C_a_i_list2(&a,2,t2,t3);
9989 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
9990 else{
9991 /* irregex-core.scm:1217: chicken.base#error */
9992 t2=*((C_word*)lf[30]+1);{
9993 C_word *av2;
9994 if(c >= 4) {
9995   av2=av;
9996 } else {
9997   av2=C_alloc(4);
9998 }
9999 av2[0]=t2;
10000 av2[1]=((C_word*)t0)[3];
10001 av2[2]=lf[203];
10002 av2[3]=((C_word*)t0)[4];
10003 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
10004 
10005 /* go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13404(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)10006 static void C_fcall f_13404(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
10007 C_word tmp;
10008 C_word t5;
10009 C_word t6;
10010 C_word t7;
10011 C_word t8;
10012 C_word t9;
10013 C_word t10;
10014 C_word t11;
10015 C_word t12;
10016 C_word t13;
10017 C_word t14;
10018 C_word t15;
10019 C_word t16;
10020 C_word t17;
10021 C_word t18;
10022 C_word t19;
10023 C_word t20;
10024 C_word t21;
10025 C_word t22;
10026 C_word t23;
10027 C_word t24;
10028 C_word t25;
10029 C_word t26;
10030 C_word t27;
10031 C_word t28;
10032 C_word t29;
10033 C_word t30;
10034 C_word t31;
10035 C_word t32;
10036 C_word t33;
10037 C_word t34;
10038 C_word t35;
10039 C_word t36;
10040 C_word t37;
10041 C_word t38;
10042 C_word t39;
10043 C_word t40;
10044 C_word *a;
10045 C_check_for_interrupt;
10046 if(C_unlikely(!C_demand(C_calculate_demand(25,0,5)))){
10047 C_save_and_reclaim_args((void *)trf_13404,5,t0,t1,t2,t3,t4);}
10048 a=C_alloc(25);
10049 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
10050 /* irregex-core.scm:1225: chicken.base#error */
10051 t5=*((C_word*)lf[30]+1);{
10052 C_word av2[6];
10053 av2[0]=t5;
10054 av2[1]=t1;
10055 av2[2]=lf[161];
10056 av2[3]=((C_word*)t0)[3];
10057 av2[4]=t2;
10058 av2[5]=((C_word*)t0)[2];
10059 ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
10060 else{
10061 t5=C_i_string_ref(((C_word*)t0)[3],t2);
10062 switch(t5){
10063 case C_make_character(93):
10064 t6=C_i_vector_length(t4);
10065 t7=C_eqp(t6,C_fix(0));
10066 if(C_truep(t7)){
10067 t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
10068 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13439,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp);
10069 t10=C_a_i_cons(&a,2,C_make_character(93),C_make_character(93));
10070 t11=C_a_i_vector1(&a,1,t10);
10071 /* irregex-core.scm:3802: cset-union */
10072 t12=lf[162];{
10073 C_word av2[4];
10074 av2[0]=t12;
10075 av2[1]=t9;
10076 av2[2]=t4;
10077 av2[3]=t11;
10078 f_27080(4,av2);}}
10079 else{
10080 t8=C_fixnum_and(((C_word*)t0)[5],C_fix(2));
10081 t9=C_eqp(C_fix(2),t8);
10082 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13449,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
10083 if(C_truep(t9)){
10084 /* irregex-core.scm:1233: cset-case-insensitive */
10085 f_27607(t10,t4);}
10086 else{
10087 t11=t10;{
10088 C_word av2[2];
10089 av2[0]=t11;
10090 av2[1]=t4;
10091 f_13449(2,av2);}}}
10092 case C_make_character(45):
10093 t6=C_eqp(t2,((C_word*)t0)[7]);
10094 t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13477,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t5,a[6]=t4,a[7]=t3,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
10095 if(C_truep(t6)){
10096 t8=t7;
10097 f_13477(t8,t6);}
10098 else{
10099 t8=C_fixnum_plus(((C_word*)t0)[7],C_fix(1));
10100 t9=C_eqp(t2,t8);
10101 t10=(C_truep(t9)?C_eqp(C_make_character(94),C_i_string_ref(((C_word*)t0)[3],((C_word*)t0)[7])):C_SCHEME_FALSE);
10102 if(C_truep(t10)){
10103 t11=t7;
10104 f_13477(t11,t10);}
10105 else{
10106 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
10107 t12=t7;
10108 f_13477(t12,C_eqp(C_make_character(93),C_i_string_ref(((C_word*)t0)[3],t11)));}}
10109 case C_make_character(91):
10110 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
10111 t7=C_i_string_ref(((C_word*)t0)[3],t6);
10112 t8=C_eqp(C_make_character(94),t7);
10113 t9=(C_truep(t8)?C_a_i_fixnum_plus(&a,2,t2,C_fix(2)):C_a_i_fixnum_plus(&a,2,t2,C_fix(1)));
10114 t10=C_i_string_ref(((C_word*)t0)[3],t9);
10115 t11=C_eqp(t10,C_make_character(58));
10116 if(C_truep(t11)){
10117 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13679,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp);
10118 t13=C_a_i_fixnum_plus(&a,2,t9,C_fix(1));
10119 /* irregex-core.scm:1267: string-scan-char */
10120 t14=lf[54];{
10121 C_word av2[5];
10122 av2[0]=t14;
10123 av2[1]=t12;
10124 av2[2]=((C_word*)t0)[3];
10125 av2[3]=C_make_character(58);
10126 av2[4]=t13;
10127 ((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}
10128 else{
10129 t12=C_eqp(t10,C_make_character(61));
10130 t13=(C_truep(t12)?t12:C_eqp(t10,C_make_character(46)));
10131 if(C_truep(t13)){
10132 /* irregex-core.scm:1276: chicken.base#error */
10133 t14=*((C_word*)lf[30]+1);{
10134 C_word av2[4];
10135 av2[0]=t14;
10136 av2[1]=t1;
10137 av2[2]=lf[173];
10138 av2[3]=((C_word*)t0)[3];
10139 ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}
10140 else{
10141 t14=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
10142 t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13762,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t14,tmp=(C_word)a,a+=5,tmp);
10143 t16=C_a_i_cons(&a,2,C_make_character(91),C_make_character(91));
10144 t17=C_a_i_vector1(&a,1,t16);
10145 /* irregex-core.scm:3802: cset-union */
10146 t18=lf[162];{
10147 C_word av2[4];
10148 av2[0]=t18;
10149 av2[1]=t15;
10150 av2[2]=t4;
10151 av2[3]=t17;
10152 f_27080(4,av2);}}}
10153 case C_make_character(92):
10154 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
10155 t7=C_i_string_ref(((C_word*)t0)[3],t6);
10156 t8=C_eqp(t7,C_make_character(100));
10157 t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13801,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t7,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp);
10158 if(C_truep(t8)){
10159 t10=t9;
10160 f_13801(t10,t8);}
10161 else{
10162 t10=C_eqp(t7,C_make_character(68));
10163 if(C_truep(t10)){
10164 t11=t9;
10165 f_13801(t11,t10);}
10166 else{
10167 t11=C_eqp(t7,C_make_character(115));
10168 if(C_truep(t11)){
10169 t12=t9;
10170 f_13801(t12,t11);}
10171 else{
10172 t12=C_eqp(t7,C_make_character(83));
10173 if(C_truep(t12)){
10174 t13=t9;
10175 f_13801(t13,t12);}
10176 else{
10177 t13=C_eqp(t7,C_make_character(119));
10178 t14=t9;
10179 f_13801(t14,(C_truep(t13)?t13:C_eqp(t7,C_make_character(87))));}}}}
10180 default:
10181 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13918,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
10182 if(C_truep(((C_word*)t0)[8])){
10183 t7=C_fix(C_character_code(t5));
10184 t8=t6;
10185 f_13918(t8,C_and(C_fixnum_less_or_equal_p(C_fix(128),t7),C_fixnum_less_or_equal_p(t7,C_fix(255))));}
10186 else{
10187 t7=t6;
10188 f_13918(t7,C_SCHEME_FALSE);}}}}
10189 
10190 /* k13437 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13439(C_word c,C_word * av)10191 static void C_ccall f_13439(C_word c,C_word *av){
10192 C_word tmp;
10193 C_word t0=av[0];
10194 C_word t1=av[1];
10195 C_word t2;
10196 C_word *a;
10197 C_check_for_interrupt;
10198 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10199 C_save_and_reclaim((void *)f_13439,c,av);}
10200 /* irregex-core.scm:1230: go */
10201 t2=((C_word*)((C_word*)t0)[2])[1];
10202 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(93),t1);}
10203 
10204 /* k13447 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13449(C_word c,C_word * av)10205 static void C_ccall f_13449(C_word c,C_word *av){
10206 C_word tmp;
10207 C_word t0=av[0];
10208 C_word t1=av[1];
10209 C_word t2;
10210 C_word t3;
10211 C_word *a;
10212 C_check_for_interrupt;
10213 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
10214 C_save_and_reclaim((void *)f_13449,c,av);}
10215 a=C_alloc(4);
10216 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
10217 if(C_truep(((C_word*)t0)[4])){
10218 /* irregex-core.scm:1234: cset-complement */
10219 f_27597(t2,t1);}
10220 else{
10221 t3=t2;{
10222 C_word *av2=av;
10223 av2[0]=t3;
10224 av2[1]=t1;
10225 f_13456(2,av2);}}}
10226 
10227 /* k13454 in k13447 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13456(C_word c,C_word * av)10228 static void C_ccall f_13456(C_word c,C_word *av){
10229 C_word tmp;
10230 C_word t0=av[0];
10231 C_word t1=av[1];
10232 C_word t2;
10233 C_word t3;
10234 C_word t4;
10235 C_word t5;
10236 C_word *a;
10237 C_check_for_interrupt;
10238 if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
10239 C_save_and_reclaim((void *)f_13456,c,av);}
10240 a=C_alloc(11);
10241 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
10242 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26939,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp);
10243 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26957,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
10244 /* irregex-core.scm:3751: scheme#vector->list */
10245 t5=*((C_word*)lf[163]+1);{
10246 C_word *av2;
10247 if(c >= 3) {
10248   av2=av;
10249 } else {
10250   av2=C_alloc(3);
10251 }
10252 av2[0]=t5;
10253 av2[1]=t4;
10254 av2[2]=t1;
10255 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
10256 
10257 /* k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13477(C_word t0,C_word t1)10258 static void C_fcall f_13477(C_word t0,C_word t1){
10259 C_word tmp;
10260 C_word t2;
10261 C_word t3;
10262 C_word t4;
10263 C_word t5;
10264 C_word t6;
10265 C_word t7;
10266 C_word t8;
10267 C_word t9;
10268 C_word t10;
10269 C_word t11;
10270 C_word *a;
10271 C_check_for_interrupt;
10272 if(C_unlikely(!C_demand(C_calculate_demand(30,0,4)))){
10273 C_save_and_reclaim_args((void *)trf_13477,2,t0,t1);}
10274 a=C_alloc(30);
10275 if(C_truep(t1)){
10276 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
10277 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13487,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10278 t4=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[5]);
10279 t5=C_a_i_vector1(&a,1,t4);
10280 /* irregex-core.scm:3802: cset-union */
10281 t6=lf[162];{
10282 C_word av2[4];
10283 av2[0]=t6;
10284 av2[1]=t3;
10285 av2[2]=((C_word*)t0)[6];
10286 av2[3]=t5;
10287 f_27080(4,av2);}}
10288 else{
10289 if(C_truep(C_i_not(((C_word*)t0)[7]))){
10290 /* irregex-core.scm:1243: chicken.base#error */
10291 t2=*((C_word*)lf[30]+1);{
10292 C_word av2[3];
10293 av2[0]=t2;
10294 av2[1]=((C_word*)t0)[4];
10295 av2[2]=lf[166];
10296 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10297 else{
10298 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
10299 t3=C_i_string_ref(((C_word*)t0)[8],t2);
10300 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13504,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp);
10301 t5=C_eqp(C_make_character(92),t3);
10302 t6=(C_truep(t5)?C_i_assq(t3,lf[168]):C_SCHEME_FALSE);
10303 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13532,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
10304 if(C_truep(t6)){
10305 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13533,a[2]=((C_word*)t0)[2],a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp);
10306 t9=(
10307 /* irregex-core.scm:1251: g1884 */
10308   f_13533(C_a_i(&a,6),t8,t6)
10309 );{
10310 C_word av2[4];
10311 av2[0]=0;
10312 av2[1]=((C_word*)t0)[4];
10313 av2[2]=t4;
10314 av2[3]=t9;
10315 C_apply(4,av2);}}
10316 else{
10317 t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13554,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
10318 t9=C_eqp(C_make_character(92),t3);
10319 if(C_truep(t9)){
10320 t10=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
10321 t11=t8;
10322 f_13554(t11,C_eqp(C_i_string_ref(((C_word*)t0)[8],t10),C_make_character(120)));}
10323 else{
10324 t10=t8;
10325 f_13554(t10,C_SCHEME_FALSE);}}}}}
10326 
10327 /* k13485 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13487(C_word c,C_word * av)10328 static void C_ccall f_13487(C_word c,C_word *av){
10329 C_word tmp;
10330 C_word t0=av[0];
10331 C_word t1=av[1];
10332 C_word t2;
10333 C_word *a;
10334 C_check_for_interrupt;
10335 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10336 C_save_and_reclaim((void *)f_13487,c,av);}
10337 /* irregex-core.scm:1241: go */
10338 t2=((C_word*)((C_word*)t0)[2])[1];
10339 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
10340 
10341 /* a13503 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13504(C_word c,C_word * av)10342 static void C_ccall f_13504(C_word c,C_word *av){
10343 C_word tmp;
10344 C_word t0=av[0];
10345 C_word t1=av[1];
10346 C_word t2=av[2];
10347 C_word t3=av[3];
10348 C_word t4;
10349 C_word t5;
10350 C_word t6;
10351 C_word t7;
10352 C_word *a;
10353 if(c!=4) C_bad_argc_2(c,4,t0);
10354 C_check_for_interrupt;
10355 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
10356 C_save_and_reclaim((void *)f_13504,c,av);}
10357 a=C_alloc(10);
10358 if(C_truep(C_i_char_lessp(t2,((C_word*)t0)[2]))){
10359 /* irregex-core.scm:1249: chicken.base#error */
10360 t4=*((C_word*)lf[30]+1);{
10361 C_word *av2;
10362 if(c >= 5) {
10363   av2=av;
10364 } else {
10365   av2=C_alloc(5);
10366 }
10367 av2[0]=t4;
10368 av2[1]=t1;
10369 av2[2]=lf[167];
10370 av2[3]=((C_word*)t0)[2];
10371 av2[4]=t2;
10372 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
10373 else{
10374 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13521,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
10375 t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
10376 t6=C_a_i_vector1(&a,1,t5);
10377 /* irregex-core.scm:1250: cset-union */
10378 t7=lf[162];{
10379 C_word *av2=av;
10380 av2[0]=t7;
10381 av2[1]=t4;
10382 av2[2]=((C_word*)t0)[4];
10383 av2[3]=t6;
10384 f_27080(4,av2);}}}
10385 
10386 /* k13519 in a13503 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13521(C_word c,C_word * av)10387 static void C_ccall f_13521(C_word c,C_word *av){
10388 C_word tmp;
10389 C_word t0=av[0];
10390 C_word t1=av[1];
10391 C_word t2;
10392 C_word *a;
10393 C_check_for_interrupt;
10394 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10395 C_save_and_reclaim((void *)f_13521,c,av);}
10396 /* irregex-core.scm:1250: go */
10397 t2=((C_word*)((C_word*)t0)[2])[1];
10398 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);}
10399 
10400 /* k13530 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13532(C_word c,C_word * av)10401 static void C_ccall f_13532(C_word c,C_word *av){
10402 C_word tmp;
10403 C_word t0=av[0];
10404 C_word t1=av[1];
10405 C_word t2;
10406 C_word *a;
10407 C_check_for_interrupt;
10408 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10409 C_save_and_reclaim((void *)f_13532,c,av);}{
10410 C_word *av2;
10411 if(c >= 4) {
10412   av2=av;
10413 } else {
10414   av2=C_alloc(4);
10415 }
10416 av2[0]=0;
10417 av2[1]=((C_word*)t0)[2];
10418 av2[2]=((C_word*)t0)[3];
10419 av2[3]=t1;
10420 C_apply(4,av2);}}
10421 
10422 /* g1884 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13533(C_word * a,C_word t0,C_word t1)10423 static C_word C_fcall f_13533(C_word *a,C_word t0,C_word t1){
10424 C_word tmp;
10425 C_word t2;
10426 C_word t3;
10427 C_word t4;
10428 C_stack_overflow_check;{}
10429 t2=C_i_cdr(t1);
10430 t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(3));
10431 return(C_a_i_list2(&a,2,t2,t3));}
10432 
10433 /* k13552 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13554(C_word t0,C_word t1)10434 static void C_fcall f_13554(C_word t0,C_word t1){
10435 C_word tmp;
10436 C_word t2;
10437 C_word t3;
10438 C_word t4;
10439 C_word *a;
10440 C_check_for_interrupt;
10441 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
10442 C_save_and_reclaim_args((void *)trf_13554,2,t0,t1);}
10443 a=C_alloc(7);
10444 if(C_truep(t1)){
10445 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(3));
10446 /* irregex-core.scm:1256: string-parse-hex-escape */
10447 f_13295(((C_word*)t0)[3],((C_word*)t0)[4],t2,((C_word*)t0)[5]);}
10448 else{
10449 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13566,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
10450 if(C_truep(((C_word*)t0)[9])){
10451 t3=C_fix(C_character_code(((C_word*)t0)[6]));
10452 t4=t2;
10453 f_13566(t4,C_and(C_fixnum_less_or_equal_p(C_fix(128),t3),C_fixnum_less_or_equal_p(t3,C_fix(255))));}
10454 else{
10455 t3=t2;
10456 f_13566(t3,C_SCHEME_FALSE);}}}
10457 
10458 /* k13564 in k13552 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13566(C_word t0,C_word t1)10459 static void C_fcall f_13566(C_word t0,C_word t1){
10460 C_word tmp;
10461 C_word t2;
10462 C_word t3;
10463 C_word t4;
10464 C_word t5;
10465 C_word t6;
10466 C_word *a;
10467 C_check_for_interrupt;
10468 if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
10469 C_save_and_reclaim_args((void *)trf_13566,2,t0,t1);}
10470 a=C_alloc(11);
10471 if(C_truep(t1)){
10472 t2=C_fix(C_character_code(((C_word*)t0)[2]));
10473 t3=C_i_vector_ref(lf[170],t2);
10474 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13576,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
10475 t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
10476 /* irregex-core.scm:1259: utf8-string-ref */
10477 f_14029(t4,((C_word*)t0)[6],t5,t3);}
10478 else{
10479 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(2));
10480 t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2);{
10481 C_word av2[4];
10482 av2[0]=0;
10483 av2[1]=((C_word*)t0)[4];
10484 av2[2]=((C_word*)t0)[5];
10485 av2[3]=t3;
10486 C_apply(4,av2);}}}
10487 
10488 /* k13574 in k13564 in k13552 in k13475 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13576(C_word c,C_word * av)10489 static void C_ccall f_13576(C_word c,C_word *av){
10490 C_word tmp;
10491 C_word t0=av[0];
10492 C_word t1=av[1];
10493 C_word t2;
10494 C_word t3;
10495 C_word t4;
10496 C_word *a;
10497 C_check_for_interrupt;
10498 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
10499 C_save_and_reclaim((void *)f_13576,c,av);}
10500 a=C_alloc(6);
10501 t2=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[3]);
10502 t3=C_a_i_list2(&a,2,t1,t2);{
10503 C_word *av2;
10504 if(c >= 4) {
10505   av2=av;
10506 } else {
10507   av2=C_alloc(4);
10508 }
10509 av2[0]=0;
10510 av2[1]=((C_word*)t0)[4];
10511 av2[2]=((C_word*)t0)[5];
10512 av2[3]=t3;
10513 C_apply(4,av2);}}
10514 
10515 /* k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13679(C_word c,C_word * av)10516 static void C_ccall f_13679(C_word c,C_word *av){
10517 C_word tmp;
10518 C_word t0=av[0];
10519 C_word t1=av[1];
10520 C_word t2;
10521 C_word t3;
10522 C_word t4;
10523 C_word t5;
10524 C_word t6;
10525 C_word *a;
10526 C_check_for_interrupt;
10527 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
10528 C_save_and_reclaim((void *)f_13679,c,av);}
10529 a=C_alloc(9);
10530 t2=C_i_not(t1);
10531 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13688,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
10532 if(C_truep(t2)){
10533 t4=t3;
10534 f_13688(t4,t2);}
10535 else{
10536 t4=C_fixnum_plus(t1,C_fix(1));
10537 t5=C_i_string_ref(((C_word*)t0)[3],t4);
10538 t6=t3;
10539 f_13688(t6,C_i_not(C_eqp(C_make_character(93),t5)));}}
10540 
10541 /* k13686 in k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13688(C_word t0,C_word t1)10542 static void C_fcall f_13688(C_word t0,C_word t1){
10543 C_word tmp;
10544 C_word t2;
10545 C_word t3;
10546 C_word t4;
10547 C_word t5;
10548 C_word t6;
10549 C_word *a;
10550 C_check_for_interrupt;
10551 if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){
10552 C_save_and_reclaim_args((void *)trf_13688,2,t0,t1);}
10553 a=C_alloc(18);
10554 if(C_truep(t1)){
10555 /* irregex-core.scm:1269: chicken.base#error */
10556 t2=*((C_word*)lf[30]+1);{
10557 C_word av2[4];
10558 av2[0]=t2;
10559 av2[1]=((C_word*)t0)[2];
10560 av2[2]=lf[171];
10561 av2[3]=((C_word*)t0)[3];
10562 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
10563 else{
10564 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13694,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
10565 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13714,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
10566 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13718,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
10567 t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1));
10568 /* irregex-core.scm:1272: scheme#substring */
10569 t6=*((C_word*)lf[46]+1);{
10570 C_word av2[5];
10571 av2[0]=t6;
10572 av2[1]=t4;
10573 av2[2]=((C_word*)t0)[3];
10574 av2[3]=t5;
10575 av2[4]=((C_word*)t0)[4];
10576 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
10577 
10578 /* k13692 in k13686 in k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13694(C_word c,C_word * av)10579 static void C_ccall f_13694(C_word c,C_word *av){
10580 C_word tmp;
10581 C_word t0=av[0];
10582 C_word t1=av[1];
10583 C_word t2;
10584 C_word t3;
10585 C_word *a;
10586 C_check_for_interrupt;
10587 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
10588 C_save_and_reclaim((void *)f_13694,c,av);}
10589 a=C_alloc(6);
10590 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13697,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);
10591 if(C_truep(((C_word*)t0)[6])){
10592 /* irregex-core.scm:1273: cset-complement */
10593 f_27597(t2,t1);}
10594 else{
10595 t3=t2;{
10596 C_word *av2=av;
10597 av2[0]=t3;
10598 av2[1]=t1;
10599 f_13697(2,av2);}}}
10600 
10601 /* k13695 in k13692 in k13686 in k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13697(C_word c,C_word * av)10602 static void C_ccall f_13697(C_word c,C_word *av){
10603 C_word tmp;
10604 C_word t0=av[0];
10605 C_word t1=av[1];
10606 C_word t2;
10607 C_word t3;
10608 C_word t4;
10609 C_word *a;
10610 C_check_for_interrupt;
10611 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
10612 C_save_and_reclaim((void *)f_13697,c,av);}
10613 a=C_alloc(10);
10614 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
10615 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13707,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
10616 /* irregex-core.scm:1274: cset-union */
10617 t4=lf[162];{
10618 C_word *av2;
10619 if(c >= 4) {
10620   av2=av;
10621 } else {
10622   av2=C_alloc(4);
10623 }
10624 av2[0]=t4;
10625 av2[1]=t3;
10626 av2[2]=((C_word*)t0)[5];
10627 av2[3]=t1;
10628 f_27080(4,av2);}}
10629 
10630 /* k13705 in k13695 in k13692 in k13686 in k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13707(C_word c,C_word * av)10631 static void C_ccall f_13707(C_word c,C_word *av){
10632 C_word tmp;
10633 C_word t0=av[0];
10634 C_word t1=av[1];
10635 C_word t2;
10636 C_word *a;
10637 C_check_for_interrupt;
10638 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10639 C_save_and_reclaim((void *)f_13707,c,av);}
10640 /* irregex-core.scm:1274: go */
10641 t2=((C_word*)((C_word*)t0)[2])[1];
10642 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);}
10643 
10644 /* k13712 in k13686 in k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13714(C_word c,C_word * av)10645 static void C_ccall f_13714(C_word c,C_word *av){
10646 C_word tmp;
10647 C_word t0=av[0];
10648 C_word t1=av[1];
10649 C_word t2;
10650 C_word *a;
10651 C_check_for_interrupt;
10652 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10653 C_save_and_reclaim((void *)f_13714,c,av);}
10654 /* irregex-core.scm:1270: sre->cset */
10655 f_26492(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}
10656 
10657 /* k13716 in k13686 in k13677 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13718(C_word c,C_word * av)10658 static void C_ccall f_13718(C_word c,C_word *av){
10659 C_word tmp;
10660 C_word t0=av[0];
10661 C_word t1=av[1];
10662 C_word t2;
10663 C_word *a;
10664 C_check_for_interrupt;
10665 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
10666 C_save_and_reclaim((void *)f_13718,c,av);}
10667 /* irregex-core.scm:1271: scheme#string->symbol */
10668 t2=*((C_word*)lf[84]+1);{
10669 C_word *av2;
10670 if(c >= 3) {
10671   av2=av;
10672 } else {
10673   av2=C_alloc(3);
10674 }
10675 av2[0]=t2;
10676 av2[1]=((C_word*)t0)[2];
10677 av2[2]=t1;
10678 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
10679 
10680 /* k13760 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13762(C_word c,C_word * av)10681 static void C_ccall f_13762(C_word c,C_word *av){
10682 C_word tmp;
10683 C_word t0=av[0];
10684 C_word t1=av[1];
10685 C_word t2;
10686 C_word *a;
10687 C_check_for_interrupt;
10688 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10689 C_save_and_reclaim((void *)f_13762,c,av);}
10690 /* irregex-core.scm:1278: go */
10691 t2=((C_word*)((C_word*)t0)[2])[1];
10692 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(91),t1);}
10693 
10694 /* k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13801(C_word t0,C_word t1)10695 static void C_fcall f_13801(C_word t0,C_word t1){
10696 C_word tmp;
10697 C_word t2;
10698 C_word t3;
10699 C_word t4;
10700 C_word t5;
10701 C_word t6;
10702 C_word t7;
10703 C_word t8;
10704 C_word t9;
10705 C_word *a;
10706 C_check_for_interrupt;
10707 if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){
10708 C_save_and_reclaim_args((void *)trf_13801,2,t0,t1);}
10709 a=C_alloc(20);
10710 if(C_truep(t1)){
10711 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
10712 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13811,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
10713 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13815,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
10714 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13819,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
10715 t6=C_a_i_string(&a,2,C_make_character(92),((C_word*)t0)[6]);
10716 /* irregex-core.scm:1285: string->sre */
10717 t7=*((C_word*)lf[102]+1);{
10718 C_word av2[3];
10719 av2[0]=t7;
10720 av2[1]=t5;
10721 av2[2]=t6;
10722 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
10723 else{
10724 t2=C_eqp(((C_word*)t0)[6],C_make_character(120));
10725 if(C_truep(t2)){
10726 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13834,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp);
10727 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13846,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
10728 t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
10729 /* irregex-core.scm:1290: string-parse-hex-escape */
10730 f_13295(t4,((C_word*)t0)[7],t5,((C_word*)t0)[8]);}
10731 else{
10732 t3=C_i_assq(((C_word*)t0)[6],lf[168]);
10733 t4=(C_truep(t3)?C_i_cdr(t3):((C_word*)t0)[6]);
10734 t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2));
10735 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13865,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
10736 t7=C_a_i_cons(&a,2,t4,t4);
10737 t8=C_a_i_vector1(&a,1,t7);
10738 /* irregex-core.scm:3802: cset-union */
10739 t9=lf[162];{
10740 C_word av2[4];
10741 av2[0]=t9;
10742 av2[1]=t6;
10743 av2[2]=((C_word*)t0)[5];
10744 av2[3]=t8;
10745 f_27080(4,av2);}}}}
10746 
10747 /* k13809 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13811(C_word c,C_word * av)10748 static void C_ccall f_13811(C_word c,C_word *av){
10749 C_word tmp;
10750 C_word t0=av[0];
10751 C_word t1=av[1];
10752 C_word t2;
10753 C_word *a;
10754 C_check_for_interrupt;
10755 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10756 C_save_and_reclaim((void *)f_13811,c,av);}
10757 /* irregex-core.scm:1283: go */
10758 t2=((C_word*)((C_word*)t0)[2])[1];
10759 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);}
10760 
10761 /* k13813 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13815(C_word c,C_word * av)10762 static void C_ccall f_13815(C_word c,C_word *av){
10763 C_word tmp;
10764 C_word t0=av[0];
10765 C_word t1=av[1];
10766 C_word t2;
10767 C_word *a;
10768 C_check_for_interrupt;
10769 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10770 C_save_and_reclaim((void *)f_13815,c,av);}
10771 /* irregex-core.scm:1284: cset-union */
10772 t2=lf[162];{
10773 C_word *av2;
10774 if(c >= 4) {
10775   av2=av;
10776 } else {
10777   av2=C_alloc(4);
10778 }
10779 av2[0]=t2;
10780 av2[1]=((C_word*)t0)[2];
10781 av2[2]=((C_word*)t0)[3];
10782 av2[3]=t1;
10783 f_27080(4,av2);}}
10784 
10785 /* k13817 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13819(C_word c,C_word * av)10786 static void C_ccall f_13819(C_word c,C_word *av){
10787 C_word tmp;
10788 C_word t0=av[0];
10789 C_word t1=av[1];
10790 C_word t2;
10791 C_word *a;
10792 C_check_for_interrupt;
10793 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10794 C_save_and_reclaim((void *)f_13819,c,av);}
10795 /* irregex-core.scm:1285: sre->cset */
10796 f_26492(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}
10797 
10798 /* a13833 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13834(C_word c,C_word * av)10799 static void C_ccall f_13834(C_word c,C_word *av){
10800 C_word tmp;
10801 C_word t0=av[0];
10802 C_word t1=av[1];
10803 C_word t2=av[2];
10804 C_word t3=av[3];
10805 C_word t4;
10806 C_word t5;
10807 C_word t6;
10808 C_word t7;
10809 C_word *a;
10810 if(c!=4) C_bad_argc_2(c,4,t0);
10811 C_check_for_interrupt;
10812 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
10813 C_save_and_reclaim((void *)f_13834,c,av);}
10814 a=C_alloc(11);
10815 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13842,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
10816 t5=C_a_i_cons(&a,2,t2,t2);
10817 t6=C_a_i_vector1(&a,1,t5);
10818 /* irregex-core.scm:3802: cset-union */
10819 t7=lf[162];{
10820 C_word *av2=av;
10821 av2[0]=t7;
10822 av2[1]=t4;
10823 av2[2]=((C_word*)t0)[3];
10824 av2[3]=t6;
10825 f_27080(4,av2);}}
10826 
10827 /* k13840 in a13833 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13842(C_word c,C_word * av)10828 static void C_ccall f_13842(C_word c,C_word *av){
10829 C_word tmp;
10830 C_word t0=av[0];
10831 C_word t1=av[1];
10832 C_word t2;
10833 C_word *a;
10834 C_check_for_interrupt;
10835 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10836 C_save_and_reclaim((void *)f_13842,c,av);}
10837 /* irregex-core.scm:1289: go */
10838 t2=((C_word*)((C_word*)t0)[2])[1];
10839 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
10840 
10841 /* k13844 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13846(C_word c,C_word * av)10842 static void C_ccall f_13846(C_word c,C_word *av){
10843 C_word tmp;
10844 C_word t0=av[0];
10845 C_word t1=av[1];
10846 C_word t2;
10847 C_word *a;
10848 C_check_for_interrupt;
10849 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
10850 C_save_and_reclaim((void *)f_13846,c,av);}{
10851 C_word *av2;
10852 if(c >= 4) {
10853   av2=av;
10854 } else {
10855   av2=C_alloc(4);
10856 }
10857 av2[0]=0;
10858 av2[1]=((C_word*)t0)[2];
10859 av2[2]=((C_word*)t0)[3];
10860 av2[3]=t1;
10861 C_apply(4,av2);}}
10862 
10863 /* k13863 in k13799 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13865(C_word c,C_word * av)10864 static void C_ccall f_13865(C_word c,C_word *av){
10865 C_word tmp;
10866 C_word t0=av[0];
10867 C_word t1=av[1];
10868 C_word t2;
10869 C_word *a;
10870 C_check_for_interrupt;
10871 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10872 C_save_and_reclaim((void *)f_13865,c,av);}
10873 /* irregex-core.scm:1294: go */
10874 t2=((C_word*)((C_word*)t0)[2])[1];
10875 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
10876 
10877 /* k13916 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13918(C_word t0,C_word t1)10878 static void C_fcall f_13918(C_word t0,C_word t1){
10879 C_word tmp;
10880 C_word t2;
10881 C_word t3;
10882 C_word t4;
10883 C_word t5;
10884 C_word t6;
10885 C_word *a;
10886 C_check_for_interrupt;
10887 if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){
10888 C_save_and_reclaim_args((void *)trf_13918,2,t0,t1);}
10889 a=C_alloc(16);
10890 if(C_truep(t1)){
10891 t2=C_fix(C_character_code(((C_word*)t0)[2]));
10892 t3=C_i_vector_ref(lf[170],t2);
10893 t4=C_fixnum_plus(((C_word*)t0)[3],t3);
10894 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13932,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=t3,tmp=(C_word)a,a+=9,tmp);
10895 /* irregex-core.scm:1299: utf8-string-ref */
10896 f_14029(t5,((C_word*)t0)[7],((C_word*)t0)[3],t3);}
10897 else{
10898 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
10899 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13950,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
10900 t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]);
10901 t5=C_a_i_vector1(&a,1,t4);
10902 /* irregex-core.scm:3802: cset-union */
10903 t6=lf[162];{
10904 C_word av2[4];
10905 av2[0]=t6;
10906 av2[1]=t3;
10907 av2[2]=((C_word*)t0)[6];
10908 av2[3]=t5;
10909 f_27080(4,av2);}}}
10910 
10911 /* k13930 in k13916 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13932(C_word c,C_word * av)10912 static void C_ccall f_13932(C_word c,C_word *av){
10913 C_word tmp;
10914 C_word t0=av[0];
10915 C_word t1=av[1];
10916 C_word t2;
10917 C_word t3;
10918 C_word t4;
10919 C_word *a;
10920 C_check_for_interrupt;
10921 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
10922 C_save_and_reclaim((void *)f_13932,c,av);}
10923 a=C_alloc(10);
10924 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13936,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
10925 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13940,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
10926 /* irregex-core.scm:1300: utf8-string-ref */
10927 f_14029(t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
10928 
10929 /* k13934 in k13930 in k13916 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13936(C_word c,C_word * av)10930 static void C_ccall f_13936(C_word c,C_word *av){
10931 C_word tmp;
10932 C_word t0=av[0];
10933 C_word t1=av[1];
10934 C_word t2;
10935 C_word *a;
10936 C_check_for_interrupt;
10937 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10938 C_save_and_reclaim((void *)f_13936,c,av);}
10939 /* irregex-core.scm:1298: go */
10940 t2=((C_word*)((C_word*)t0)[2])[1];
10941 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
10942 
10943 /* k13938 in k13930 in k13916 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13940(C_word c,C_word * av)10944 static void C_ccall f_13940(C_word c,C_word *av){
10945 C_word tmp;
10946 C_word t0=av[0];
10947 C_word t1=av[1];
10948 C_word t2;
10949 C_word t3;
10950 C_word t4;
10951 C_word *a;
10952 C_check_for_interrupt;
10953 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
10954 C_save_and_reclaim((void *)f_13940,c,av);}
10955 a=C_alloc(5);
10956 t2=C_a_i_cons(&a,2,t1,t1);
10957 t3=C_a_i_vector1(&a,1,t2);
10958 /* irregex-core.scm:3802: cset-union */
10959 t4=lf[162];{
10960 C_word *av2;
10961 if(c >= 4) {
10962   av2=av;
10963 } else {
10964   av2=C_alloc(4);
10965 }
10966 av2[0]=t4;
10967 av2[1]=((C_word*)t0)[2];
10968 av2[2]=((C_word*)t0)[3];
10969 av2[3]=t3;
10970 f_27080(4,av2);}}
10971 
10972 /* k13948 in k13916 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_13950(C_word c,C_word * av)10973 static void C_ccall f_13950(C_word c,C_word *av){
10974 C_word tmp;
10975 C_word t0=av[0];
10976 C_word t1=av[1];
10977 C_word t2;
10978 C_word *a;
10979 C_check_for_interrupt;
10980 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
10981 C_save_and_reclaim((void *)f_13950,c,av);}
10982 /* irregex-core.scm:1301: go */
10983 t2=((C_word*)((C_word*)t0)[2])[1];
10984 f_13404(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
10985 
10986 /* chicken.irregex#high-char? in k7761 in k7536 in k7533 */
f_14008(C_word c,C_word * av)10987 static void C_ccall f_14008(C_word c,C_word *av){
10988 C_word tmp;
10989 C_word t0=av[0];
10990 C_word t1=av[1];
10991 C_word t2=av[2];
10992 C_word t3;
10993 C_word *a;
10994 if(c!=3) C_bad_argc_2(c,3,t0);
10995 C_check_for_interrupt;
10996 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
10997 C_save_and_reclaim((void *)f_14008,c,av);}
10998 t3=t1;{
10999 C_word *av2=av;
11000 av2[0]=t3;
11001 av2[1]=C_fixnum_less_or_equal_p(C_fix(128),C_fix(C_character_code(t2)));
11002 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11003 
11004 /* chicken.irregex#utf8-string-ref in k7761 in k7536 in k7533 */
f_14029(C_word t1,C_word t2,C_word t3,C_word t4)11005 static void C_fcall f_14029(C_word t1,C_word t2,C_word t3,C_word t4){
11006 C_word tmp;
11007 C_word t5;
11008 C_word t6;
11009 C_word t7;
11010 C_word t8;
11011 C_word t9;
11012 C_word t10;
11013 C_word t11;
11014 C_word t12;
11015 C_word t13;
11016 C_word t14;
11017 C_word t15;
11018 C_word t16;
11019 C_word t17;
11020 C_word t18;
11021 C_word t19;
11022 C_word t20;
11023 C_word t21;
11024 C_word t22;
11025 C_word t23;
11026 C_word t24;
11027 C_word t25;
11028 C_word t26;
11029 C_word t27;
11030 C_word t28;
11031 C_word t29;
11032 C_word t30;
11033 C_word t31;
11034 C_word t32;
11035 C_word t33;
11036 C_word *a;
11037 C_check_for_interrupt;
11038 if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
11039 C_save_and_reclaim_args((void *)trf_14029,4,t1,t2,t3,t4);}
11040 a=C_alloc(9);
11041 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14032,a[2]=t2,a[3]=((C_word)li94),tmp=(C_word)a,a+=4,tmp);
11042 switch(t4){
11043 case C_fix(1):
11044 t6=t1;{
11045 C_word av2[2];
11046 av2[0]=t6;
11047 av2[1]=C_i_string_ref(t2,t3);
11048 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}
11049 case C_fix(2):
11050 t6=(
11051 /* irregex-core.scm:1362: byte */
11052   f_14032(t5,t3)
11053 );
11054 t7=C_fixnum_and(t6,C_fix(31));
11055 t8=C_fixnum_shift_left(t7,C_fix(6));
11056 t9=(
11057 /* irregex-core.scm:1363: byte */
11058   f_14032(t5,C_fixnum_plus(t3,C_fix(1)))
11059 );
11060 t10=C_fixnum_and(t9,C_fix(63));
11061 t11=C_a_i_fixnum_plus(&a,2,t8,t10);
11062 t12=t1;{
11063 C_word av2[2];
11064 av2[0]=t12;
11065 av2[1]=C_make_character(C_unfix(t11));
11066 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}
11067 case C_fix(3):
11068 t6=(
11069 /* irregex-core.scm:1366: byte */
11070   f_14032(t5,t3)
11071 );
11072 t7=C_fixnum_and(t6,C_fix(15));
11073 t8=C_fixnum_shift_left(t7,C_fix(12));
11074 t9=(
11075 /* irregex-core.scm:1367: byte */
11076   f_14032(t5,C_fixnum_plus(t3,C_fix(1)))
11077 );
11078 t10=C_fixnum_and(t9,C_fix(63));
11079 t11=C_fixnum_shift_left(t10,C_fix(6));
11080 t12=(
11081 /* irregex-core.scm:1368: byte */
11082   f_14032(t5,C_fixnum_plus(t3,C_fix(2)))
11083 );
11084 t13=C_fixnum_and(t12,C_fix(63));
11085 t14=C_fixnum_plus(C_fixnum_plus(t8,t11),t13);
11086 t15=t1;{
11087 C_word av2[2];
11088 av2[0]=t15;
11089 av2[1]=C_make_character(C_unfix(t14));
11090 ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}
11091 case C_fix(4):
11092 t6=(
11093 /* irregex-core.scm:1371: byte */
11094   f_14032(t5,t3)
11095 );
11096 t7=C_fixnum_and(t6,C_fix(7));
11097 t8=C_fixnum_shift_left(t7,C_fix(18));
11098 t9=(
11099 /* irregex-core.scm:1372: byte */
11100   f_14032(t5,C_fixnum_plus(t3,C_fix(1)))
11101 );
11102 t10=C_fixnum_and(t9,C_fix(63));
11103 t11=C_fixnum_shift_left(t10,C_fix(12));
11104 t12=(
11105 /* irregex-core.scm:1373: byte */
11106   f_14032(t5,C_fixnum_plus(t3,C_fix(2)))
11107 );
11108 t13=C_fixnum_and(t12,C_fix(63));
11109 t14=C_fixnum_shift_left(t13,C_fix(6));
11110 t15=(
11111 /* irregex-core.scm:1374: byte */
11112   f_14032(t5,C_fixnum_plus(t3,C_fix(3)))
11113 );
11114 t16=C_fixnum_and(t15,C_fix(63));
11115 t17=C_fixnum_plus(C_fixnum_plus(C_fixnum_plus(t8,t11),t14),t16);
11116 t18=t1;{
11117 C_word av2[2];
11118 av2[0]=t18;
11119 av2[1]=C_make_character(C_unfix(t17));
11120 ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}
11121 default:
11122 /* irregex-core.scm:1376: chicken.base#error */
11123 t6=*((C_word*)lf[30]+1);{
11124 C_word av2[6];
11125 av2[0]=t6;
11126 av2[1]=t1;
11127 av2[2]=lf[205];
11128 av2[3]=t2;
11129 av2[4]=t4;
11130 av2[5]=t3;
11131 ((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}}
11132 
11133 /* byte in chicken.irregex#utf8-string-ref in k7761 in k7536 in k7533 */
f_14032(C_word t0,C_word t1)11134 static C_word C_fcall f_14032(C_word t0,C_word t1){
11135 C_word tmp;
11136 C_word t2;
11137 C_word t3;
11138 C_stack_overflow_check;{}
11139 t2=C_i_string_ref(((C_word*)t0)[2],t1);
11140 return(C_fix(C_character_code(t2)));}
11141 
11142 /* lp in collect/single in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_14224(C_word t0,C_word t1,C_word t2)11143 static void C_fcall f_14224(C_word t0,C_word t1,C_word t2){
11144 C_word tmp;
11145 C_word t3;
11146 C_word t4;
11147 C_word t5;
11148 C_word t6;
11149 C_word t7;
11150 C_word t8;
11151 C_word t9;
11152 C_word t10;
11153 C_word t11;
11154 C_word *a;
11155 loop:
11156 C_check_for_interrupt;
11157 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
11158 C_save_and_reclaim_args((void *)trf_14224,3,t0,t1,t2);}
11159 a=C_alloc(5);
11160 t3=C_eqp(t2,C_fix(0));
11161 if(C_truep(t3)){
11162 t4=t1;{
11163 C_word av2[2];
11164 av2[0]=t4;
11165 av2[1]=C_fix(0);
11166 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11167 else{
11168 t4=C_i_string_ref(((C_word*)t0)[2],t2);
11169 t5=C_fix(C_character_code(t4));
11170 t6=C_fixnum_lessp(t5,C_fix(128));
11171 t7=(C_truep(t6)?t6:C_fixnum_greater_or_equal_p(t5,C_fix(192)));
11172 if(C_truep(t7)){
11173 t8=t1;{
11174 C_word av2[2];
11175 av2[0]=t8;
11176 av2[1]=t2;
11177 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11178 else{
11179 t8=C_a_i_fixnum_difference(&a,2,t2,C_fix(1));
11180 /* irregex-core.scm:1385: lp */
11181 t10=t1;
11182 t11=t8;
11183 t1=t10;
11184 t2=t11;
11185 goto loop;}}}
11186 
11187 /* chicken.irregex#utf8-lowest-digit-of-length in k7761 in k7536 in k7533 */
f_14262(C_word t1,C_word t2)11188 static void C_fcall f_14262(C_word t1,C_word t2){
11189 C_word tmp;
11190 C_word t3;
11191 C_word *a;
11192 C_check_for_interrupt;
11193 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
11194 C_save_and_reclaim_args((void *)trf_14262,2,t1,t2);}
11195 switch(t2){
11196 case C_fix(1):
11197 t3=t1;{
11198 C_word av2[2];
11199 av2[0]=t3;
11200 av2[1]=C_fix(0);
11201 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
11202 case C_fix(2):
11203 t3=t1;{
11204 C_word av2[2];
11205 av2[0]=t3;
11206 av2[1]=C_fix(192);
11207 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
11208 case C_fix(3):
11209 t3=t1;{
11210 C_word av2[2];
11211 av2[0]=t3;
11212 av2[1]=C_fix(224);
11213 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
11214 case C_fix(4):
11215 t3=t1;{
11216 C_word av2[2];
11217 av2[0]=t3;
11218 av2[1]=C_fix(240);
11219 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}
11220 default:
11221 /* irregex-core.scm:1390: chicken.base#error */
11222 t3=*((C_word*)lf[30]+1);{
11223 C_word av2[4];
11224 av2[0]=t3;
11225 av2[1]=t1;
11226 av2[2]=lf[207];
11227 av2[3]=t2;
11228 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
11229 
11230 /* chicken.irregex#char->utf8-list in k7761 in k7536 in k7533 */
f_14338(C_word t1,C_word t2)11231 static void C_fcall f_14338(C_word t1,C_word t2){
11232 C_word tmp;
11233 C_word t3;
11234 C_word t4;
11235 C_word t5;
11236 C_word t6;
11237 C_word t7;
11238 C_word t8;
11239 C_word t9;
11240 C_word t10;
11241 C_word t11;
11242 C_word t12;
11243 C_word t13;
11244 C_word t14;
11245 C_word *a;
11246 C_check_for_interrupt;
11247 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
11248 C_save_and_reclaim_args((void *)trf_14338,2,t1,t2);}
11249 a=C_alloc(12);
11250 t3=C_fix(C_character_code(t2));
11251 if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(127)))){
11252 t4=t1;{
11253 C_word av2[2];
11254 av2[0]=t4;
11255 av2[1]=C_a_i_list1(&a,1,t3);
11256 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11257 else{
11258 if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(2047)))){
11259 t4=C_fixnum_shift_right(t3,C_fix(6));
11260 t5=C_fixnum_or(C_fix(192),t4);
11261 t6=C_fixnum_and(t3,C_fix(63));
11262 t7=C_fixnum_or(C_fix(128),t6);
11263 t8=t1;{
11264 C_word av2[2];
11265 av2[0]=t8;
11266 av2[1]=C_a_i_list2(&a,2,t5,t7);
11267 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
11268 else{
11269 if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(65535)))){
11270 t4=C_fixnum_shift_right(t3,C_fix(12));
11271 t5=C_fixnum_or(C_fix(224),t4);
11272 t6=C_fixnum_shift_right(t3,C_fix(6));
11273 t7=C_fixnum_and(t6,C_fix(63));
11274 t8=C_fixnum_or(C_fix(128),t7);
11275 t9=C_fixnum_and(t3,C_fix(63));
11276 t10=C_fixnum_or(C_fix(128),t9);
11277 t11=t1;{
11278 C_word av2[2];
11279 av2[0]=t11;
11280 av2[1]=C_a_i_list3(&a,3,t5,t8,t10);
11281 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
11282 else{
11283 if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(2097151)))){
11284 t4=C_fixnum_shift_right(t3,C_fix(18));
11285 t5=C_fixnum_or(C_fix(240),t4);
11286 t6=C_fixnum_shift_right(t3,C_fix(12));
11287 t7=C_fixnum_and(t6,C_fix(63));
11288 t8=C_fixnum_or(C_fix(128),t7);
11289 t9=C_fixnum_shift_right(t3,C_fix(6));
11290 t10=C_fixnum_and(t9,C_fix(63));
11291 t11=C_fixnum_or(C_fix(128),t10);
11292 t12=C_fixnum_and(t3,C_fix(63));
11293 t13=C_fixnum_or(C_fix(128),t12);
11294 t14=t1;{
11295 C_word av2[2];
11296 av2[0]=t14;
11297 av2[1]=C_a_i_list4(&a,4,t5,t8,t11,t13);
11298 ((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
11299 else{
11300 /* irregex-core.scm:1413: chicken.base#error */
11301 t4=*((C_word*)lf[30]+1);{
11302 C_word av2[4];
11303 av2[0]=t4;
11304 av2[1]=t1;
11305 av2[2]=lf[209];
11306 av2[3]=t3;
11307 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}}
11308 
11309 /* k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14479(C_word c,C_word * av)11310 static void C_ccall f_14479(C_word c,C_word *av){
11311 C_word tmp;
11312 C_word t0=av[0];
11313 C_word t1=av[1];
11314 C_word t2;
11315 C_word t3;
11316 C_word *a;
11317 C_check_for_interrupt;
11318 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
11319 C_save_and_reclaim((void *)f_14479,c,av);}
11320 a=C_alloc(9);
11321 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14482,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],tmp=(C_word)a,a+=9,tmp);
11322 /* irregex-core.scm:1417: char->utf8-list */
11323 f_14338(t2,((C_word*)t0)[8]);}
11324 
11325 /* k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14482(C_word c,C_word * av)11326 static void C_ccall f_14482(C_word c,C_word *av){
11327 C_word tmp;
11328 C_word t0=av[0];
11329 C_word t1=av[1];
11330 C_word t2;
11331 C_word t3;
11332 C_word t4;
11333 C_word t5;
11334 C_word t6;
11335 C_word t7;
11336 C_word t8;
11337 C_word t9;
11338 C_word t10;
11339 C_word t11;
11340 C_word t12;
11341 C_word t13;
11342 C_word t14;
11343 C_word t15;
11344 C_word t16;
11345 C_word t17;
11346 C_word t18;
11347 C_word t19;
11348 C_word t20;
11349 C_word *a;
11350 C_check_for_interrupt;
11351 if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){
11352 C_save_and_reclaim((void *)f_14482,c,av);}
11353 a=C_alloc(36);
11354 t2=C_eqp(C_u_i_length(((C_word*)t0)[2]),C_u_i_length(t1));
11355 if(C_truep(C_i_not(t2))){
11356 t3=C_i_length(((C_word*)t0)[2]);
11357 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15041,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]=t1,tmp=(C_word)a,a+=8,tmp);
11358 t5=C_i_car(((C_word*)t0)[2]);
11359 t6=C_make_character(C_unfix(t5));
11360 t7=C_u_i_car(((C_word*)t0)[2]);
11361 t8=C_fixnum_less_or_equal_p(t7,C_fix(127));
11362 t9=(C_truep(t8)?C_a_i_list(&a,3,lf[52],t6,C_make_character(127)):C_a_i_list(&a,3,lf[52],t6,C_make_character(255)));
11363 t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
11364 t11=t10;
11365 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
11366 t13=((C_word*)t12)[1];
11367 t14=C_u_i_cdr(((C_word*)t0)[2]);
11368 t15=C_i_check_list_2(t14,lf[211]);
11369 t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15321,a[2]=t9,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
11370 t17=C_SCHEME_UNDEFINED;
11371 t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
11372 t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15323,a[2]=t12,a[3]=t18,a[4]=t13,a[5]=((C_word)li111),tmp=(C_word)a,a+=6,tmp));
11373 t20=((C_word*)t18)[1];
11374 f_15323(t20,t16,t14);}
11375 else{
11376 t3=C_SCHEME_UNDEFINED;
11377 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
11378 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14508,a[2]=t4,a[3]=((C_word)li113),tmp=(C_word)a,a+=4,tmp));
11379 t6=((C_word*)t4)[1];
11380 f_14508(t6,((C_word*)t0)[8],((C_word*)t0)[2],t1);}}
11381 
11382 /* k14501 in k15039 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14503(C_word c,C_word * av)11383 static void C_ccall f_14503(C_word c,C_word *av){
11384 C_word tmp;
11385 C_word t0=av[0];
11386 C_word t1=av[1];
11387 C_word t2;
11388 C_word t3;
11389 C_word t4;
11390 C_word t5;
11391 C_word *a;
11392 C_check_for_interrupt;
11393 if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
11394 C_save_and_reclaim((void *)f_14503,c,av);}
11395 a=C_alloc(12);
11396 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
11397 t3=(
11398 /* irregex-core.scm:1419: sre-alternate */
11399   f_18214(C_a_i(&a,3),t2)
11400 );
11401 t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
11402 /* irregex-core.scm:1533: lp */
11403 t5=((C_word*)((C_word*)t0)[4])[1];
11404 f_15479(t5,((C_word*)t0)[5],((C_word*)t0)[6],t4,((C_word*)t0)[7]);}
11405 
11406 /* lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14508(C_word t0,C_word t1,C_word t2,C_word t3)11407 static void C_fcall f_14508(C_word t0,C_word t1,C_word t2,C_word t3){
11408 C_word tmp;
11409 C_word t4;
11410 C_word t5;
11411 C_word t6;
11412 C_word t7;
11413 C_word t8;
11414 C_word t9;
11415 C_word t10;
11416 C_word t11;
11417 C_word t12;
11418 C_word t13;
11419 C_word t14;
11420 C_word *a;
11421 loop:
11422 C_check_for_interrupt;
11423 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
11424 C_save_and_reclaim_args((void *)trf_14508,4,t0,t1,t2,t3);}
11425 a=C_alloc(6);
11426 t4=C_i_car(t2);
11427 t5=C_i_car(t3);
11428 t6=C_eqp(t4,t5);
11429 if(C_truep(t6)){
11430 t7=C_u_i_car(t2);
11431 t8=C_make_character(C_unfix(t7));
11432 if(C_truep(C_i_nullp(C_u_i_cdr(t2)))){
11433 t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
11434 /* irregex-core.scm:1424: sre-sequence */
11435 t10=t1;{
11436 C_word av2[2];
11437 av2[0]=t10;
11438 av2[1]=(
11439 /* irregex-core.scm:1424: sre-sequence */
11440   f_18191(C_a_i(&a,3),t9)
11441 );
11442 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
11443 else{
11444 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14540,a[2]=t8,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
11445 /* irregex-core.scm:1427: lp */
11446 t12=t9;
11447 t13=C_u_i_cdr(t2);
11448 t14=C_u_i_cdr(t3);
11449 t1=t12;
11450 t2=t13;
11451 t3=t14;
11452 goto loop;}}
11453 else{
11454 t7=C_fixnum_plus(C_u_i_car(t2),C_fix(1));
11455 t8=C_u_i_car(t3);
11456 t9=C_eqp(t7,t8);
11457 if(C_truep(t9)){
11458 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14565,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
11459 /* irregex-core.scm:1429: unicode-range-up-from */
11460 f_14752(t10,t2);}
11461 else{
11462 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14580,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
11463 /* irregex-core.scm:1432: unicode-range-up-from */
11464 f_14752(t10,t2);}}}
11465 
11466 /* k14538 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14540(C_word c,C_word * av)11467 static void C_ccall f_14540(C_word c,C_word *av){
11468 C_word tmp;
11469 C_word t0=av[0];
11470 C_word t1=av[1];
11471 C_word t2;
11472 C_word t3;
11473 C_word t4;
11474 C_word *a;
11475 C_check_for_interrupt;
11476 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
11477 C_save_and_reclaim((void *)f_14540,c,av);}
11478 a=C_alloc(9);
11479 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
11480 t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
11481 /* irregex-core.scm:1424: sre-sequence */
11482 t4=((C_word*)t0)[3];{
11483 C_word *av2=av;
11484 av2[0]=t4;
11485 av2[1]=(
11486 /* irregex-core.scm:1424: sre-sequence */
11487   f_18191(C_a_i(&a,3),t3)
11488 );
11489 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11490 
11491 /* k14563 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14565(C_word c,C_word * av)11492 static void C_ccall f_14565(C_word c,C_word *av){
11493 C_word tmp;
11494 C_word t0=av[0];
11495 C_word t1=av[1];
11496 C_word t2;
11497 C_word t3;
11498 C_word *a;
11499 C_check_for_interrupt;
11500 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
11501 C_save_and_reclaim((void *)f_14565,c,av);}
11502 a=C_alloc(4);
11503 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14569,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
11504 /* irregex-core.scm:1430: unicode-range-up-to */
11505 f_14891(t2,((C_word*)t0)[3]);}
11506 
11507 /* k14567 in k14563 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14569(C_word c,C_word * av)11508 static void C_ccall f_14569(C_word c,C_word *av){
11509 C_word tmp;
11510 C_word t0=av[0];
11511 C_word t1=av[1];
11512 C_word t2;
11513 C_word t3;
11514 C_word *a;
11515 C_check_for_interrupt;
11516 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
11517 C_save_and_reclaim((void *)f_14569,c,av);}
11518 a=C_alloc(9);
11519 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
11520 /* irregex-core.scm:1429: sre-alternate */
11521 t3=((C_word*)t0)[3];{
11522 C_word *av2=av;
11523 av2[0]=t3;
11524 av2[1]=(
11525 /* irregex-core.scm:1429: sre-alternate */
11526   f_18214(C_a_i(&a,3),t2)
11527 );
11528 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11529 
11530 /* k14578 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14580(C_word c,C_word * av)11531 static void C_ccall f_14580(C_word c,C_word *av){
11532 C_word tmp;
11533 C_word t0=av[0];
11534 C_word t1=av[1];
11535 C_word t2;
11536 C_word t3;
11537 C_word t4;
11538 C_word t5;
11539 C_word t6;
11540 C_word t7;
11541 C_word t8;
11542 C_word t9;
11543 C_word t10;
11544 C_word t11;
11545 C_word t12;
11546 C_word t13;
11547 C_word t14;
11548 C_word t15;
11549 C_word t16;
11550 C_word t17;
11551 C_word t18;
11552 C_word t19;
11553 C_word *a;
11554 C_check_for_interrupt;
11555 if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){
11556 C_save_and_reclaim((void *)f_14580,c,av);}
11557 a=C_alloc(28);
11558 t2=C_i_car(((C_word*)t0)[2]);
11559 t3=C_fixnum_plus(t2,C_fix(1));
11560 t4=C_make_character(C_unfix(t3));
11561 t5=C_i_car(((C_word*)t0)[3]);
11562 t6=C_fixnum_difference(t5,C_fix(1));
11563 t7=C_make_character(C_unfix(t6));
11564 t8=(C_truep(C_u_i_char_equalp(t4,t7))?t4:C_a_i_list(&a,3,lf[52],t4,t7));
11565 t9=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
11566 t10=t9;
11567 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
11568 t12=((C_word*)t11)[1];
11569 t13=C_u_i_cdr(((C_word*)t0)[2]);
11570 t14=C_i_check_list_2(t13,lf[211]);
11571 t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15412,a[2]=t8,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
11572 t16=C_SCHEME_UNDEFINED;
11573 t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
11574 t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15414,a[2]=t11,a[3]=t17,a[4]=t12,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp));
11575 t19=((C_word*)t17)[1];
11576 f_15414(t19,t15,t13);}
11577 
11578 /* k14586 in k15410 in k14578 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_14588(C_word c,C_word * av)11579 static void C_ccall f_14588(C_word c,C_word *av){
11580 C_word tmp;
11581 C_word t0=av[0];
11582 C_word t1=av[1];
11583 C_word t2;
11584 C_word t3;
11585 C_word *a;
11586 C_check_for_interrupt;
11587 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
11588 C_save_and_reclaim((void *)f_14588,c,av);}
11589 a=C_alloc(12);
11590 t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
11591 /* irregex-core.scm:1432: sre-alternate */
11592 t3=((C_word*)t0)[4];{
11593 C_word *av2=av;
11594 av2[0]=t3;
11595 av2[1]=(
11596 /* irregex-core.scm:1432: sre-alternate */
11597   f_18214(C_a_i(&a,3),t2)
11598 );
11599 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
11600 
11601 /* chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14614(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)11602 static void C_fcall f_14614(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
11603 C_word tmp;
11604 C_word t6;
11605 C_word t7;
11606 C_word t8;
11607 C_word t9;
11608 C_word t10;
11609 C_word t11;
11610 C_word t12;
11611 C_word t13;
11612 C_word t14;
11613 C_word t15;
11614 C_word t16;
11615 C_word t17;
11616 C_word t18;
11617 C_word t19;
11618 C_word *a;
11619 C_check_for_interrupt;
11620 if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){
11621 C_save_and_reclaim_args((void *)trf_14614,5,t1,t2,t3,t4,t5);}
11622 a=C_alloc(28);
11623 if(C_truep(C_i_nullp(t3))){
11624 t6=t1;{
11625 C_word av2[2];
11626 av2[0]=t6;
11627 av2[1]=t5;
11628 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
11629 else{
11630 t6=C_i_cdr(t3);
11631 t7=C_u_i_car(t3);
11632 t8=C_a_i_cons(&a,2,t7,t4);
11633 t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14644,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp);
11634 t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
11635 t11=t10;
11636 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
11637 t13=((C_word*)t12)[1];
11638 t14=C_i_check_list_2(t4,lf[211]);
11639 t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14654,a[2]=t3,a[3]=t9,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
11640 t16=C_SCHEME_UNDEFINED;
11641 t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
11642 t18=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14716,a[2]=t12,a[3]=t17,a[4]=t13,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp));
11643 t19=((C_word*)t17)[1];
11644 f_14716(t19,t15,t4);}}
11645 
11646 /* k14642 in chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14644(C_word c,C_word * av)11647 static void C_ccall f_14644(C_word c,C_word *av){
11648 C_word tmp;
11649 C_word t0=av[0];
11650 C_word t1=av[1];
11651 C_word t2;
11652 C_word t3;
11653 C_word t4;
11654 C_word *a;
11655 C_check_for_interrupt;
11656 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
11657 C_save_and_reclaim((void *)f_14644,c,av);}
11658 a=C_alloc(6);
11659 t2=(
11660 /* irregex-core.scm:1443: sre-sequence */
11661   f_18191(C_a_i(&a,3),t1)
11662 );
11663 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]);
11664 /* irregex-core.scm:1439: unicode-range-helper */
11665 f_14614(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t3);}
11666 
11667 /* k14652 in chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14654(C_word c,C_word * av)11668 static void C_ccall f_14654(C_word c,C_word *av){
11669 C_word tmp;
11670 C_word t0=av[0];
11671 C_word t1=av[1];
11672 C_word t2;
11673 C_word t3;
11674 C_word *a;
11675 C_check_for_interrupt;
11676 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
11677 C_save_and_reclaim((void *)f_14654,c,av);}
11678 a=C_alloc(5);
11679 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
11680 /* irregex-core.scm:1445: one */
11681 t3=((C_word*)t0)[4];{
11682 C_word *av2;
11683 if(c >= 3) {
11684   av2=av;
11685 } else {
11686   av2=C_alloc(3);
11687 }
11688 av2[0]=t3;
11689 av2[1]=t2;
11690 av2[2]=C_u_i_car(((C_word*)t0)[2]);
11691 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
11692 
11693 /* k14660 in k14652 in chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14662(C_word c,C_word * av)11694 static void C_ccall f_14662(C_word c,C_word *av){
11695 C_word tmp;
11696 C_word t0=av[0];
11697 C_word t1=av[1];
11698 C_word t2;
11699 C_word t3;
11700 C_word t4;
11701 C_word t5;
11702 C_word t6;
11703 C_word t7;
11704 C_word t8;
11705 C_word t9;
11706 C_word t10;
11707 C_word t11;
11708 C_word t12;
11709 C_word *a;
11710 C_check_for_interrupt;
11711 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
11712 C_save_and_reclaim((void *)f_14662,c,av);}
11713 a=C_alloc(18);
11714 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
11715 t3=t2;
11716 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
11717 t5=((C_word*)t4)[1];
11718 t6=C_u_i_cdr(((C_word*)t0)[2]);
11719 t7=C_i_check_list_2(t6,lf[211]);
11720 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14678,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
11721 t9=C_SCHEME_UNDEFINED;
11722 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
11723 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14680,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li98),tmp=(C_word)a,a+=6,tmp));
11724 t12=((C_word*)t10)[1];
11725 f_14680(t12,t8,t6);}
11726 
11727 /* k14676 in k14660 in k14652 in chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14678(C_word c,C_word * av)11728 static void C_ccall f_14678(C_word c,C_word *av){
11729 C_word tmp;
11730 C_word t0=av[0];
11731 C_word t1=av[1];
11732 C_word t2;
11733 C_word t3;
11734 C_word *a;
11735 C_check_for_interrupt;
11736 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
11737 C_save_and_reclaim((void *)f_14678,c,av);}
11738 a=C_alloc(3);
11739 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
11740 /* irregex-core.scm:1444: ##sys#append */
11741 t3=*((C_word*)lf[118]+1);{
11742 C_word *av2;
11743 if(c >= 4) {
11744   av2=av;
11745 } else {
11746   av2=C_alloc(4);
11747 }
11748 av2[0]=t3;
11749 av2[1]=((C_word*)t0)[3];
11750 av2[2]=((C_word*)t0)[4];
11751 av2[3]=t2;
11752 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
11753 
11754 /* map-loop2077 in k14660 in k14652 in chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14680(C_word t0,C_word t1,C_word t2)11755 static void C_fcall f_14680(C_word t0,C_word t1,C_word t2){
11756 C_word tmp;
11757 C_word t3;
11758 C_word t4;
11759 C_word t5;
11760 C_word t6;
11761 C_word t7;
11762 C_word t8;
11763 C_word t9;
11764 C_word *a;
11765 loop:
11766 C_check_for_interrupt;
11767 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
11768 C_save_and_reclaim_args((void *)trf_14680,3,t0,t1,t2);}
11769 a=C_alloc(12);
11770 if(C_truep(C_i_pairp(t2))){
11771 t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255));
11772 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
11773 t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4);
11774 t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
11775 t8=t1;
11776 t9=C_slot(t2,C_fix(1));
11777 t1=t8;
11778 t2=t9;
11779 goto loop;}
11780 else{
11781 t3=t1;{
11782 C_word av2[2];
11783 av2[0]=t3;
11784 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
11785 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
11786 
11787 /* map-loop2051 in chicken.irregex#unicode-range-helper in k7761 in k7536 in k7533 */
f_14716(C_word t0,C_word t1,C_word t2)11788 static void C_fcall f_14716(C_word t0,C_word t1,C_word t2){
11789 C_word tmp;
11790 C_word t3;
11791 C_word t4;
11792 C_word t5;
11793 C_word t6;
11794 C_word t7;
11795 C_word t8;
11796 C_word t9;
11797 C_word t10;
11798 C_word *a;
11799 loop:
11800 C_check_for_interrupt;
11801 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
11802 C_save_and_reclaim_args((void *)trf_14716,3,t0,t1,t2);}
11803 a=C_alloc(3);
11804 if(C_truep(C_i_pairp(t2))){
11805 t3=C_slot(t2,C_fix(0));
11806 t4=C_make_character(C_unfix(t3));
11807 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
11808 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
11809 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
11810 t9=t1;
11811 t10=C_slot(t2,C_fix(1));
11812 t1=t9;
11813 t2=t10;
11814 goto loop;}
11815 else{
11816 t3=t1;{
11817 C_word av2[2];
11818 av2[0]=t3;
11819 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
11820 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
11821 
11822 /* chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14752(C_word t1,C_word t2)11823 static void C_fcall f_14752(C_word t1,C_word t2){
11824 C_word tmp;
11825 C_word t3;
11826 C_word t4;
11827 C_word t5;
11828 C_word t6;
11829 C_word t7;
11830 C_word t8;
11831 C_word *a;
11832 C_check_for_interrupt;
11833 if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
11834 C_save_and_reclaim_args((void *)trf_14752,2,t1,t2);}
11835 a=C_alloc(13);
11836 t3=C_i_car(t2);
11837 t4=C_make_character(C_unfix(t3));
11838 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14772,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
11839 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14774,a[2]=t2,a[3]=((C_word)li101),tmp=(C_word)a,a+=4,tmp);
11840 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14883,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
11841 /* irregex-core.scm:1459: ##sys#fast-reverse */
11842 t8=*((C_word*)lf[69]+1);{
11843 C_word av2[3];
11844 av2[0]=t8;
11845 av2[1]=t7;
11846 av2[2]=C_u_i_cdr(t2);
11847 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
11848 
11849 /* k14770 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14772(C_word c,C_word * av)11850 static void C_ccall f_14772(C_word c,C_word *av){
11851 C_word tmp;
11852 C_word t0=av[0];
11853 C_word t1=av[1];
11854 C_word t2;
11855 C_word t3;
11856 C_word t4;
11857 C_word *a;
11858 C_check_for_interrupt;
11859 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
11860 C_save_and_reclaim((void *)f_14772,c,av);}
11861 a=C_alloc(12);
11862 t2=(
11863 /* irregex-core.scm:1455: sre-alternate */
11864   f_18214(C_a_i(&a,3),t1)
11865 );
11866 t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2);
11867 /* irregex-core.scm:1453: sre-sequence */
11868 t4=((C_word*)t0)[3];{
11869 C_word *av2=av;
11870 av2[0]=t4;
11871 av2[1]=(
11872 /* irregex-core.scm:1453: sre-sequence */
11873   f_18191(C_a_i(&a,3),t3)
11874 );
11875 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
11876 
11877 /* a14773 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14774(C_word c,C_word * av)11878 static void C_ccall f_14774(C_word c,C_word *av){
11879 C_word tmp;
11880 C_word t0=av[0];
11881 C_word t1=av[1];
11882 C_word t2=av[2];
11883 C_word t3;
11884 C_word t4;
11885 C_word t5;
11886 C_word t6;
11887 C_word *a;
11888 if(c!=3) C_bad_argc_2(c,3,t0);
11889 C_check_for_interrupt;
11890 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
11891 C_save_and_reclaim((void *)f_14774,c,av);}
11892 a=C_alloc(9);
11893 t3=C_i_car(((C_word*)t0)[2]);
11894 t4=C_fixnum_plus(t3,C_fix(1));
11895 t5=C_make_character(C_unfix(t4));
11896 t6=t1;{
11897 C_word *av2=av;
11898 av2[0]=t6;
11899 av2[1]=C_a_i_list(&a,3,lf[52],t5,C_make_character(255));
11900 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
11901 
11902 /* k14804 in k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14806(C_word c,C_word * av)11903 static void C_ccall f_14806(C_word c,C_word *av){
11904 C_word tmp;
11905 C_word t0=av[0];
11906 C_word t1=av[1];
11907 C_word t2;
11908 C_word t3;
11909 C_word t4;
11910 C_word *a;
11911 C_check_for_interrupt;
11912 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
11913 C_save_and_reclaim((void *)f_14806,c,av);}
11914 a=C_alloc(6);
11915 t2=(
11916 /* irregex-core.scm:1462: sre-sequence */
11917   f_18191(C_a_i(&a,3),t1)
11918 );
11919 t3=C_a_i_list1(&a,1,t2);
11920 /* irregex-core.scm:1456: unicode-range-helper */
11921 f_14614(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);}
11922 
11923 /* k14811 in k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14813(C_word c,C_word * av)11924 static void C_ccall f_14813(C_word c,C_word *av){
11925 C_word tmp;
11926 C_word t0=av[0];
11927 C_word t1=av[1];
11928 C_word t2;
11929 C_word t3;
11930 C_word t4;
11931 C_word t5;
11932 C_word t6;
11933 C_word t7;
11934 C_word *a;
11935 C_check_for_interrupt;
11936 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
11937 C_save_and_reclaim((void *)f_14813,c,av);}
11938 a=C_alloc(12);
11939 t2=C_i_check_list_2(t1,lf[211]);
11940 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
11941 t4=C_SCHEME_UNDEFINED;
11942 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
11943 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14837,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li102),tmp=(C_word)a,a+=6,tmp));
11944 t7=((C_word*)t5)[1];
11945 f_14837(t7,t3,t1);}
11946 
11947 /* k14817 in k14811 in k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14819(C_word c,C_word * av)11948 static void C_ccall f_14819(C_word c,C_word *av){
11949 C_word tmp;
11950 C_word t0=av[0];
11951 C_word t1=av[1];
11952 C_word t2;
11953 C_word t3;
11954 C_word *a;
11955 C_check_for_interrupt;
11956 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
11957 C_save_and_reclaim((void *)f_14819,c,av);}
11958 a=C_alloc(4);
11959 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14835,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
11960 /* irregex-core.scm:1465: last */
11961 f_9256(t2,((C_word*)t0)[3]);}
11962 
11963 /* k14833 in k14817 in k14811 in k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14835(C_word c,C_word * av)11964 static void C_ccall f_14835(C_word c,C_word *av){
11965 C_word tmp;
11966 C_word t0=av[0];
11967 C_word t1=av[1];
11968 C_word t2;
11969 C_word t3;
11970 C_word t4;
11971 C_word t5;
11972 C_word *a;
11973 C_check_for_interrupt;
11974 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
11975 C_save_and_reclaim((void *)f_14835,c,av);}
11976 a=C_alloc(12);
11977 t2=C_make_character(C_unfix(t1));
11978 t3=C_a_i_list(&a,3,lf[52],t2,C_make_character(255));
11979 t4=C_a_i_list(&a,1,t3);
11980 /* irregex-core.scm:1463: scheme#append */
11981 t5=*((C_word*)lf[73]+1);{
11982 C_word *av2;
11983 if(c >= 4) {
11984   av2=av;
11985 } else {
11986   av2=C_alloc(4);
11987 }
11988 av2[0]=t5;
11989 av2[1]=((C_word*)t0)[2];
11990 av2[2]=((C_word*)t0)[3];
11991 av2[3]=t4;
11992 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
11993 
11994 /* map-loop2113 in k14811 in k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14837(C_word t0,C_word t1,C_word t2)11995 static void C_fcall f_14837(C_word t0,C_word t1,C_word t2){
11996 C_word tmp;
11997 C_word t3;
11998 C_word t4;
11999 C_word t5;
12000 C_word t6;
12001 C_word t7;
12002 C_word t8;
12003 C_word t9;
12004 C_word t10;
12005 C_word *a;
12006 loop:
12007 C_check_for_interrupt;
12008 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
12009 C_save_and_reclaim_args((void *)trf_14837,3,t0,t1,t2);}
12010 a=C_alloc(3);
12011 if(C_truep(C_i_pairp(t2))){
12012 t3=C_slot(t2,C_fix(0));
12013 t4=C_make_character(C_unfix(t3));
12014 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
12015 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
12016 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
12017 t9=t1;
12018 t10=C_slot(t2,C_fix(1));
12019 t1=t9;
12020 t2=t10;
12021 goto loop;}
12022 else{
12023 t3=t1;{
12024 C_word av2[2];
12025 av2[0]=t3;
12026 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
12027 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12028 
12029 /* k14875 in k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14877(C_word c,C_word * av)12030 static void C_ccall f_14877(C_word c,C_word *av){
12031 C_word tmp;
12032 C_word t0=av[0];
12033 C_word t1=av[1];
12034 C_word t2;
12035 C_word *a;
12036 C_check_for_interrupt;
12037 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
12038 C_save_and_reclaim((void *)f_14877,c,av);}
12039 /* irregex-core.scm:1464: ##sys#fast-reverse */
12040 t2=*((C_word*)lf[69]+1);{
12041 C_word *av2;
12042 if(c >= 3) {
12043   av2=av;
12044 } else {
12045   av2=C_alloc(3);
12046 }
12047 av2[0]=t2;
12048 av2[1]=((C_word*)t0)[2];
12049 av2[2]=C_i_cdr(t1);
12050 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
12051 
12052 /* k14881 in chicken.irregex#unicode-range-up-from in k7761 in k7536 in k7533 */
f_14883(C_word c,C_word * av)12053 static void C_ccall f_14883(C_word c,C_word *av){
12054 C_word tmp;
12055 C_word t0=av[0];
12056 C_word t1=av[1];
12057 C_word t2;
12058 C_word t3;
12059 C_word t4;
12060 C_word t5;
12061 C_word t6;
12062 C_word t7;
12063 C_word t8;
12064 C_word t9;
12065 C_word t10;
12066 C_word *a;
12067 C_check_for_interrupt;
12068 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
12069 C_save_and_reclaim((void *)f_14883,c,av);}
12070 a=C_alloc(19);
12071 t2=C_i_cdr(t1);
12072 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
12073 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
12074 t5=t4;
12075 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
12076 t7=((C_word*)t6)[1];
12077 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14813,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
12078 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14877,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
12079 /* irregex-core.scm:1464: ##sys#fast-reverse */
12080 t10=*((C_word*)lf[69]+1);{
12081 C_word *av2;
12082 if(c >= 3) {
12083   av2=av;
12084 } else {
12085   av2=C_alloc(3);
12086 }
12087 av2[0]=t10;
12088 av2[1]=t9;
12089 av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
12090 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
12091 
12092 /* chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14891(C_word t1,C_word t2)12093 static void C_fcall f_14891(C_word t1,C_word t2){
12094 C_word tmp;
12095 C_word t3;
12096 C_word t4;
12097 C_word t5;
12098 C_word t6;
12099 C_word t7;
12100 C_word t8;
12101 C_word *a;
12102 C_check_for_interrupt;
12103 if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
12104 C_save_and_reclaim_args((void *)trf_14891,2,t1,t2);}
12105 a=C_alloc(13);
12106 t3=C_i_car(t2);
12107 t4=C_make_character(C_unfix(t3));
12108 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14911,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
12109 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14913,a[2]=t2,a[3]=((C_word)li104),tmp=(C_word)a,a+=4,tmp);
12110 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15022,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
12111 /* irregex-core.scm:1475: ##sys#fast-reverse */
12112 t8=*((C_word*)lf[69]+1);{
12113 C_word av2[3];
12114 av2[0]=t8;
12115 av2[1]=t7;
12116 av2[2]=C_u_i_cdr(t2);
12117 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
12118 
12119 /* k14909 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14911(C_word c,C_word * av)12120 static void C_ccall f_14911(C_word c,C_word *av){
12121 C_word tmp;
12122 C_word t0=av[0];
12123 C_word t1=av[1];
12124 C_word t2;
12125 C_word t3;
12126 C_word t4;
12127 C_word *a;
12128 C_check_for_interrupt;
12129 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
12130 C_save_and_reclaim((void *)f_14911,c,av);}
12131 a=C_alloc(12);
12132 t2=(
12133 /* irregex-core.scm:1471: sre-alternate */
12134   f_18214(C_a_i(&a,3),t1)
12135 );
12136 t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2);
12137 /* irregex-core.scm:1469: sre-sequence */
12138 t4=((C_word*)t0)[3];{
12139 C_word *av2=av;
12140 av2[0]=t4;
12141 av2[1]=(
12142 /* irregex-core.scm:1469: sre-sequence */
12143   f_18191(C_a_i(&a,3),t3)
12144 );
12145 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
12146 
12147 /* a14912 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14913(C_word c,C_word * av)12148 static void C_ccall f_14913(C_word c,C_word *av){
12149 C_word tmp;
12150 C_word t0=av[0];
12151 C_word t1=av[1];
12152 C_word t2=av[2];
12153 C_word t3;
12154 C_word t4;
12155 C_word t5;
12156 C_word t6;
12157 C_word *a;
12158 if(c!=3) C_bad_argc_2(c,3,t0);
12159 C_check_for_interrupt;
12160 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
12161 C_save_and_reclaim((void *)f_14913,c,av);}
12162 a=C_alloc(9);
12163 t3=C_i_car(((C_word*)t0)[2]);
12164 t4=C_fixnum_difference(t3,C_fix(1));
12165 t5=C_make_character(C_unfix(t4));
12166 t6=t1;{
12167 C_word *av2=av;
12168 av2[0]=t6;
12169 av2[1]=C_a_i_list(&a,3,lf[52],C_make_character(128),t5);
12170 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
12171 
12172 /* k14943 in k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14945(C_word c,C_word * av)12173 static void C_ccall f_14945(C_word c,C_word *av){
12174 C_word tmp;
12175 C_word t0=av[0];
12176 C_word t1=av[1];
12177 C_word t2;
12178 C_word t3;
12179 C_word t4;
12180 C_word *a;
12181 C_check_for_interrupt;
12182 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
12183 C_save_and_reclaim((void *)f_14945,c,av);}
12184 a=C_alloc(6);
12185 t2=(
12186 /* irregex-core.scm:1478: sre-sequence */
12187   f_18191(C_a_i(&a,3),t1)
12188 );
12189 t3=C_a_i_list1(&a,1,t2);
12190 /* irregex-core.scm:1472: unicode-range-helper */
12191 f_14614(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);}
12192 
12193 /* k14950 in k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14952(C_word c,C_word * av)12194 static void C_ccall f_14952(C_word c,C_word *av){
12195 C_word tmp;
12196 C_word t0=av[0];
12197 C_word t1=av[1];
12198 C_word t2;
12199 C_word t3;
12200 C_word t4;
12201 C_word t5;
12202 C_word t6;
12203 C_word t7;
12204 C_word *a;
12205 C_check_for_interrupt;
12206 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
12207 C_save_and_reclaim((void *)f_14952,c,av);}
12208 a=C_alloc(12);
12209 t2=C_i_check_list_2(t1,lf[211]);
12210 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14958,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12211 t4=C_SCHEME_UNDEFINED;
12212 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
12213 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14976,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp));
12214 t7=((C_word*)t5)[1];
12215 f_14976(t7,t3,t1);}
12216 
12217 /* k14956 in k14950 in k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14958(C_word c,C_word * av)12218 static void C_ccall f_14958(C_word c,C_word *av){
12219 C_word tmp;
12220 C_word t0=av[0];
12221 C_word t1=av[1];
12222 C_word t2;
12223 C_word t3;
12224 C_word *a;
12225 C_check_for_interrupt;
12226 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
12227 C_save_and_reclaim((void *)f_14958,c,av);}
12228 a=C_alloc(4);
12229 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14974,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
12230 /* irregex-core.scm:1482: last */
12231 f_9256(t2,((C_word*)t0)[3]);}
12232 
12233 /* k14972 in k14956 in k14950 in k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14974(C_word c,C_word * av)12234 static void C_ccall f_14974(C_word c,C_word *av){
12235 C_word tmp;
12236 C_word t0=av[0];
12237 C_word t1=av[1];
12238 C_word t2;
12239 C_word t3;
12240 C_word t4;
12241 C_word t5;
12242 C_word *a;
12243 C_check_for_interrupt;
12244 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
12245 C_save_and_reclaim((void *)f_14974,c,av);}
12246 a=C_alloc(12);
12247 t2=C_make_character(C_unfix(t1));
12248 t3=C_a_i_list(&a,3,lf[52],C_make_character(128),t2);
12249 t4=C_a_i_list(&a,1,t3);
12250 /* irregex-core.scm:1479: scheme#append */
12251 t5=*((C_word*)lf[73]+1);{
12252 C_word *av2;
12253 if(c >= 4) {
12254   av2=av;
12255 } else {
12256   av2=C_alloc(4);
12257 }
12258 av2[0]=t5;
12259 av2[1]=((C_word*)t0)[2];
12260 av2[2]=((C_word*)t0)[3];
12261 av2[3]=t4;
12262 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
12263 
12264 /* map-loop2148 in k14950 in k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_14976(C_word t0,C_word t1,C_word t2)12265 static void C_fcall f_14976(C_word t0,C_word t1,C_word t2){
12266 C_word tmp;
12267 C_word t3;
12268 C_word t4;
12269 C_word t5;
12270 C_word t6;
12271 C_word t7;
12272 C_word t8;
12273 C_word t9;
12274 C_word t10;
12275 C_word *a;
12276 loop:
12277 C_check_for_interrupt;
12278 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
12279 C_save_and_reclaim_args((void *)trf_14976,3,t0,t1,t2);}
12280 a=C_alloc(3);
12281 if(C_truep(C_i_pairp(t2))){
12282 t3=C_slot(t2,C_fix(0));
12283 t4=C_make_character(C_unfix(t3));
12284 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
12285 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
12286 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
12287 t9=t1;
12288 t10=C_slot(t2,C_fix(1));
12289 t1=t9;
12290 t2=t10;
12291 goto loop;}
12292 else{
12293 t3=t1;{
12294 C_word av2[2];
12295 av2[0]=t3;
12296 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
12297 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12298 
12299 /* k15014 in k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_15016(C_word c,C_word * av)12300 static void C_ccall f_15016(C_word c,C_word *av){
12301 C_word tmp;
12302 C_word t0=av[0];
12303 C_word t1=av[1];
12304 C_word t2;
12305 C_word *a;
12306 C_check_for_interrupt;
12307 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
12308 C_save_and_reclaim((void *)f_15016,c,av);}
12309 /* irregex-core.scm:1480: ##sys#fast-reverse */
12310 t2=*((C_word*)lf[69]+1);{
12311 C_word *av2;
12312 if(c >= 3) {
12313   av2=av;
12314 } else {
12315   av2=C_alloc(3);
12316 }
12317 av2[0]=t2;
12318 av2[1]=((C_word*)t0)[2];
12319 av2[2]=C_i_cdr(t1);
12320 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
12321 
12322 /* k15020 in chicken.irregex#unicode-range-up-to in k7761 in k7536 in k7533 */
f_15022(C_word c,C_word * av)12323 static void C_ccall f_15022(C_word c,C_word *av){
12324 C_word tmp;
12325 C_word t0=av[0];
12326 C_word t1=av[1];
12327 C_word t2;
12328 C_word t3;
12329 C_word t4;
12330 C_word t5;
12331 C_word t6;
12332 C_word t7;
12333 C_word t8;
12334 C_word t9;
12335 C_word t10;
12336 C_word *a;
12337 C_check_for_interrupt;
12338 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
12339 C_save_and_reclaim((void *)f_15022,c,av);}
12340 a=C_alloc(19);
12341 t2=C_i_cdr(t1);
12342 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14945,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
12343 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
12344 t5=t4;
12345 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
12346 t7=((C_word*)t6)[1];
12347 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14952,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
12348 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15016,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
12349 /* irregex-core.scm:1480: ##sys#fast-reverse */
12350 t10=*((C_word*)lf[69]+1);{
12351 C_word *av2;
12352 if(c >= 3) {
12353   av2=av;
12354 } else {
12355   av2=C_alloc(3);
12356 }
12357 av2[0]=t10;
12358 av2[1]=t9;
12359 av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
12360 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
12361 
12362 /* k15039 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15041(C_word c,C_word * av)12363 static void C_ccall f_15041(C_word c,C_word *av){
12364 C_word tmp;
12365 C_word t0=av[0];
12366 C_word t1=av[1];
12367 C_word t2;
12368 C_word t3;
12369 C_word t4;
12370 C_word *a;
12371 C_check_for_interrupt;
12372 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
12373 C_save_and_reclaim((void *)f_15041,c,av);}
12374 a=C_alloc(11);
12375 t2=(
12376 /* irregex-core.scm:1486: sre-alternate */
12377   f_18214(C_a_i(&a,3),t1)
12378 );
12379 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14503,a[2]=t2,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);
12380 /* irregex-core.scm:1420: unicode-range-up-to */
12381 f_14891(t3,((C_word*)t0)[7]);}
12382 
12383 /* g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15050(C_word t0,C_word t1,C_word t2)12384 static void C_fcall f_15050(C_word t0,C_word t1,C_word t2){
12385 C_word tmp;
12386 C_word t3;
12387 C_word t4;
12388 C_word t5;
12389 C_word *a;
12390 C_check_for_interrupt;
12391 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
12392 C_save_and_reclaim_args((void *)trf_15050,3,t0,t1,t2);}
12393 a=C_alloc(10);
12394 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15062,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
12395 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15138,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
12396 /* irregex-core.scm:1499: utf8-lowest-digit-of-length */
12397 f_14262(t4,C_fixnum_plus(C_fixnum_plus(t2,((C_word*)t0)[2]),C_fix(1)));}
12398 
12399 /* k15060 in g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15062(C_word t0,C_word t1)12400 static void C_fcall f_15062(C_word t0,C_word t1){
12401 C_word tmp;
12402 C_word t2;
12403 C_word t3;
12404 C_word t4;
12405 C_word t5;
12406 C_word t6;
12407 C_word t7;
12408 C_word *a;
12409 C_check_for_interrupt;
12410 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
12411 C_save_and_reclaim_args((void *)trf_15062,2,t0,t1);}
12412 a=C_alloc(11);
12413 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
12414 t3=t2;
12415 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
12416 t5=((C_word*)t4)[1];
12417 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15074,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
12418 /* irregex-core.scm:1503: zero-to */
12419 f_9158(t6,C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]));}
12420 
12421 /* k15072 in k15060 in g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15074(C_word c,C_word * av)12422 static void C_ccall f_15074(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 t6;
12431 C_word t7;
12432 C_word *a;
12433 C_check_for_interrupt;
12434 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
12435 C_save_and_reclaim((void *)f_15074,c,av);}
12436 a=C_alloc(12);
12437 t2=C_i_check_list_2(t1,lf[211]);
12438 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
12439 t4=C_SCHEME_UNDEFINED;
12440 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
12441 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15082,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp));
12442 t7=((C_word*)t5)[1];
12443 f_15082(t7,t3,t1);}
12444 
12445 /* k15078 in k15072 in k15060 in g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15080(C_word c,C_word * av)12446 static void C_ccall f_15080(C_word c,C_word *av){
12447 C_word tmp;
12448 C_word t0=av[0];
12449 C_word t1=av[1];
12450 C_word t2;
12451 C_word t3;
12452 C_word *a;
12453 C_check_for_interrupt;
12454 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
12455 C_save_and_reclaim((void *)f_15080,c,av);}
12456 a=C_alloc(6);
12457 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
12458 /* irregex-core.scm:1497: sre-sequence */
12459 t3=((C_word*)t0)[3];{
12460 C_word *av2=av;
12461 av2[0]=t3;
12462 av2[1]=(
12463 /* irregex-core.scm:1497: sre-sequence */
12464   f_18191(C_a_i(&a,3),t2)
12465 );
12466 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
12467 
12468 /* map-loop2237 in k15072 in k15060 in g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15082(C_word t0,C_word t1,C_word t2)12469 static void C_fcall f_15082(C_word t0,C_word t1,C_word t2){
12470 C_word tmp;
12471 C_word t3;
12472 C_word t4;
12473 C_word t5;
12474 C_word t6;
12475 C_word t7;
12476 C_word t8;
12477 C_word t9;
12478 C_word *a;
12479 loop:
12480 C_check_for_interrupt;
12481 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
12482 C_save_and_reclaim_args((void *)trf_15082,3,t0,t1,t2);}
12483 a=C_alloc(12);
12484 if(C_truep(C_i_pairp(t2))){
12485 t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255));
12486 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
12487 t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4);
12488 t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
12489 t8=t1;
12490 t9=C_slot(t2,C_fix(1));
12491 t1=t8;
12492 t2=t9;
12493 goto loop;}
12494 else{
12495 t3=t1;{
12496 C_word av2[2];
12497 av2[0]=t3;
12498 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
12499 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12500 
12501 /* k15128 in k15136 in g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15130(C_word c,C_word * av)12502 static void C_ccall f_15130(C_word c,C_word *av){
12503 C_word tmp;
12504 C_word t0=av[0];
12505 C_word t1=av[1];
12506 C_word t2;
12507 C_word t3;
12508 C_word *a;
12509 C_check_for_interrupt;
12510 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
12511 C_save_and_reclaim((void *)f_15130,c,av);}
12512 a=C_alloc(9);
12513 t2=C_make_character(C_unfix(t1));
12514 t3=((C_word*)t0)[2];
12515 f_15062(t3,C_a_i_list(&a,3,lf[52],((C_word*)t0)[3],t2));}
12516 
12517 /* k15136 in g2220 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15138(C_word c,C_word * av)12518 static void C_ccall f_15138(C_word c,C_word *av){
12519 C_word tmp;
12520 C_word t0=av[0];
12521 C_word t1=av[1];
12522 C_word t2;
12523 C_word t3;
12524 C_word t4;
12525 C_word t5;
12526 C_word *a;
12527 C_check_for_interrupt;
12528 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
12529 C_save_and_reclaim((void *)f_15138,c,av);}
12530 a=C_alloc(13);
12531 t2=C_make_character(C_unfix(t1));
12532 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15130,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
12533 t4=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]),C_fix(1));
12534 switch(t4){
12535 case C_fix(1):
12536 t5=((C_word*)t0)[2];
12537 f_15062(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(127)));
12538 case C_fix(2):
12539 t5=((C_word*)t0)[2];
12540 f_15062(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(223)));
12541 case C_fix(3):
12542 t5=((C_word*)t0)[2];
12543 f_15062(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(239)));
12544 case C_fix(4):
12545 t5=((C_word*)t0)[2];
12546 f_15062(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(247)));
12547 default:
12548 /* irregex-core.scm:1395: chicken.base#error */
12549 t5=*((C_word*)lf[30]+1);{
12550 C_word *av2;
12551 if(c >= 4) {
12552   av2=av;
12553 } else {
12554   av2=C_alloc(4);
12555 }
12556 av2[0]=t5;
12557 av2[1]=t3;
12558 av2[2]=lf[215];
12559 av2[3]=t4;
12560 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
12561 
12562 /* k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15145(C_word c,C_word * av)12563 static void C_ccall f_15145(C_word c,C_word *av){
12564 C_word tmp;
12565 C_word t0=av[0];
12566 C_word t1=av[1];
12567 C_word t2;
12568 C_word t3;
12569 C_word t4;
12570 C_word t5;
12571 C_word t6;
12572 C_word t7;
12573 C_word *a;
12574 C_check_for_interrupt;
12575 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
12576 C_save_and_reclaim((void *)f_15145,c,av);}
12577 a=C_alloc(14);
12578 t2=C_i_check_list_2(t1,lf[211]);
12579 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15151,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);
12580 t4=C_SCHEME_UNDEFINED;
12581 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
12582 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15253,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li110),tmp=(C_word)a,a+=7,tmp));
12583 t7=((C_word*)t5)[1];
12584 f_15253(t7,t3,t1);}
12585 
12586 /* k15149 in k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15151(C_word c,C_word * av)12587 static void C_ccall f_15151(C_word c,C_word *av){
12588 C_word tmp;
12589 C_word t0=av[0];
12590 C_word t1=av[1];
12591 C_word t2;
12592 C_word t3;
12593 C_word t4;
12594 C_word t5;
12595 C_word t6;
12596 C_word t7;
12597 C_word *a;
12598 C_check_for_interrupt;
12599 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
12600 C_save_and_reclaim((void *)f_15151,c,av);}
12601 a=C_alloc(6);
12602 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
12603 t3=C_i_car(((C_word*)t0)[2]);
12604 t4=C_fixnum_difference(t3,C_fix(1));
12605 t5=C_make_character(C_unfix(t4));
12606 t6=C_fix(C_character_code(t5));
12607 /* irregex-core.scm:1508: utf8-lowest-digit-of-length */
12608 f_14262(t2,C_i_vector_ref(lf[170],t6));}
12609 
12610 /* k15181 in k15233 in k15149 in k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15183(C_word c,C_word * av)12611 static void C_ccall f_15183(C_word c,C_word *av){
12612 C_word tmp;
12613 C_word t0=av[0];
12614 C_word t1=av[1];
12615 C_word t2;
12616 C_word t3;
12617 C_word t4;
12618 C_word t5;
12619 C_word *a;
12620 C_check_for_interrupt;
12621 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
12622 C_save_and_reclaim((void *)f_15183,c,av);}
12623 a=C_alloc(9);
12624 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
12625 t3=(
12626 /* irregex-core.scm:1506: sre-sequence */
12627   f_18191(C_a_i(&a,3),t2)
12628 );
12629 t4=C_a_i_list1(&a,1,t3);
12630 /* irregex-core.scm:1487: scheme#append */
12631 t5=*((C_word*)lf[73]+1);{
12632 C_word *av2;
12633 if(c >= 5) {
12634   av2=av;
12635 } else {
12636   av2=C_alloc(5);
12637 }
12638 av2[0]=t5;
12639 av2[1]=((C_word*)t0)[3];
12640 av2[2]=((C_word*)t0)[4];
12641 av2[3]=((C_word*)t0)[5];
12642 av2[4]=t4;
12643 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
12644 
12645 /* map-loop2277 in k15233 in k15149 in k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15185(C_word t0,C_word t1,C_word t2)12646 static void C_fcall f_15185(C_word t0,C_word t1,C_word t2){
12647 C_word tmp;
12648 C_word t3;
12649 C_word t4;
12650 C_word t5;
12651 C_word t6;
12652 C_word t7;
12653 C_word t8;
12654 C_word t9;
12655 C_word *a;
12656 loop:
12657 C_check_for_interrupt;
12658 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
12659 C_save_and_reclaim_args((void *)trf_15185,3,t0,t1,t2);}
12660 a=C_alloc(12);
12661 if(C_truep(C_i_pairp(t2))){
12662 t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255));
12663 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
12664 t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4);
12665 t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
12666 t8=t1;
12667 t9=C_slot(t2,C_fix(1));
12668 t1=t8;
12669 t2=t9;
12670 goto loop;}
12671 else{
12672 t3=t1;{
12673 C_word av2[2];
12674 av2[0]=t3;
12675 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
12676 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12677 
12678 /* k15233 in k15149 in k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15235(C_word c,C_word * av)12679 static void C_ccall f_15235(C_word c,C_word *av){
12680 C_word tmp;
12681 C_word t0=av[0];
12682 C_word t1=av[1];
12683 C_word t2;
12684 C_word t3;
12685 C_word t4;
12686 C_word t5;
12687 C_word t6;
12688 C_word t7;
12689 C_word t8;
12690 C_word t9;
12691 C_word t10;
12692 C_word t11;
12693 C_word t12;
12694 C_word t13;
12695 C_word t14;
12696 C_word t15;
12697 C_word t16;
12698 C_word *a;
12699 C_check_for_interrupt;
12700 if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){
12701 C_save_and_reclaim((void *)f_15235,c,av);}
12702 a=C_alloc(28);
12703 t2=C_make_character(C_unfix(t1));
12704 t3=C_fixnum_difference(C_u_i_car(((C_word*)t0)[2]),C_fix(1));
12705 t4=C_make_character(C_unfix(t3));
12706 t5=C_a_i_list(&a,3,lf[52],t2,t4);
12707 t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
12708 t7=t6;
12709 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
12710 t9=((C_word*)t8)[1];
12711 t10=C_u_i_cdr(((C_word*)t0)[2]);
12712 t11=C_i_check_list_2(t10,lf[211]);
12713 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15183,a[2]=t5,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);
12714 t13=C_SCHEME_UNDEFINED;
12715 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
12716 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15185,a[2]=t8,a[3]=t14,a[4]=t9,a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp));
12717 t16=((C_word*)t14)[1];
12718 f_15185(t16,t12,t10);}
12719 
12720 /* map-loop2214 in k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15253(C_word t0,C_word t1,C_word t2)12721 static void C_fcall f_15253(C_word t0,C_word t1,C_word t2){
12722 C_word tmp;
12723 C_word t3;
12724 C_word t4;
12725 C_word *a;
12726 C_check_for_interrupt;
12727 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
12728 C_save_and_reclaim_args((void *)trf_15253,3,t0,t1,t2);}
12729 a=C_alloc(6);
12730 if(C_truep(C_i_pairp(t2))){
12731 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15278,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);
12732 /* irregex-core.scm:1495: g2220 */
12733 t4=((C_word*)t0)[4];
12734 f_15050(t4,t3,C_slot(t2,C_fix(0)));}
12735 else{
12736 t3=t1;{
12737 C_word av2[2];
12738 av2[0]=t3;
12739 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
12740 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12741 
12742 /* k15276 in map-loop2214 in k15143 in k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15278(C_word c,C_word * av)12743 static void C_ccall f_15278(C_word c,C_word *av){
12744 C_word tmp;
12745 C_word t0=av[0];
12746 C_word t1=av[1];
12747 C_word t2;
12748 C_word t3;
12749 C_word t4;
12750 C_word t5;
12751 C_word *a;
12752 C_check_for_interrupt;
12753 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
12754 C_save_and_reclaim((void *)f_15278,c,av);}
12755 a=C_alloc(3);
12756 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
12757 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
12758 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
12759 t5=((C_word*)((C_word*)t0)[3])[1];
12760 f_15253(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
12761 
12762 /* k15319 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15321(C_word c,C_word * av)12763 static void C_ccall f_15321(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 t8;
12774 C_word t9;
12775 C_word t10;
12776 C_word t11;
12777 C_word t12;
12778 C_word t13;
12779 C_word t14;
12780 C_word *a;
12781 C_check_for_interrupt;
12782 if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){
12783 C_save_and_reclaim((void *)f_15321,c,av);}
12784 a=C_alloc(36);
12785 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
12786 t3=(
12787 /* irregex-core.scm:1489: sre-sequence */
12788   f_18191(C_a_i(&a,3),t2)
12789 );
12790 t4=C_a_i_list1(&a,1,t3);
12791 t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
12792 t6=t5;
12793 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
12794 t8=((C_word*)t7)[1];
12795 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15050,a[2]=((C_word*)t0)[3],a[3]=((C_word)li108),tmp=(C_word)a,a+=4,tmp);
12796 t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15145,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=t7,a[6]=t9,a[7]=t8,tmp=(C_word)a,a+=8,tmp);
12797 t11=C_i_length(((C_word*)t0)[4]);
12798 t12=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
12799 t13=C_s_a_u_i_integer_minus(&a,2,t11,t12);
12800 /* irregex-core.scm:1504: zero-to */
12801 f_9158(t10,t13);}
12802 
12803 /* map-loop2184 in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15323(C_word t0,C_word t1,C_word t2)12804 static void C_fcall f_15323(C_word t0,C_word t1,C_word t2){
12805 C_word tmp;
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 t9;
12813 C_word *a;
12814 loop:
12815 C_check_for_interrupt;
12816 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
12817 C_save_and_reclaim_args((void *)trf_15323,3,t0,t1,t2);}
12818 a=C_alloc(12);
12819 if(C_truep(C_i_pairp(t2))){
12820 t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255));
12821 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
12822 t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4);
12823 t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
12824 t8=t1;
12825 t9=C_slot(t2,C_fix(1));
12826 t1=t8;
12827 t2=t9;
12828 goto loop;}
12829 else{
12830 t3=t1;{
12831 C_word av2[2];
12832 av2[0]=t3;
12833 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
12834 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12835 
12836 /* k15410 in k14578 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15412(C_word c,C_word * av)12837 static void C_ccall f_15412(C_word c,C_word *av){
12838 C_word tmp;
12839 C_word t0=av[0];
12840 C_word t1=av[1];
12841 C_word t2;
12842 C_word t3;
12843 C_word t4;
12844 C_word t5;
12845 C_word *a;
12846 C_check_for_interrupt;
12847 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
12848 C_save_and_reclaim((void *)f_15412,c,av);}
12849 a=C_alloc(11);
12850 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
12851 t3=(
12852 /* irregex-core.scm:1519: sre-sequence */
12853   f_18191(C_a_i(&a,3),t2)
12854 );
12855 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14588,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
12856 /* irregex-core.scm:1434: unicode-range-up-to */
12857 f_14891(t4,((C_word*)t0)[5]);}
12858 
12859 /* map-loop2315 in k14578 in lp in k14480 in k14477 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15414(C_word t0,C_word t1,C_word t2)12860 static void C_fcall f_15414(C_word t0,C_word t1,C_word t2){
12861 C_word tmp;
12862 C_word t3;
12863 C_word t4;
12864 C_word t5;
12865 C_word t6;
12866 C_word t7;
12867 C_word t8;
12868 C_word t9;
12869 C_word *a;
12870 loop:
12871 C_check_for_interrupt;
12872 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
12873 C_save_and_reclaim_args((void *)trf_15414,3,t0,t1,t2);}
12874 a=C_alloc(12);
12875 if(C_truep(C_i_pairp(t2))){
12876 t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255));
12877 t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
12878 t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4);
12879 t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
12880 t8=t1;
12881 t9=C_slot(t2,C_fix(1));
12882 t1=t8;
12883 t2=t9;
12884 goto loop;}
12885 else{
12886 t3=t1;{
12887 C_word av2[2];
12888 av2[0]=t3;
12889 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
12890 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
12891 
12892 /* chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15469(C_word t1,C_word t2)12893 static void C_fcall f_15469(C_word t1,C_word t2){
12894 C_word tmp;
12895 C_word t3;
12896 C_word t4;
12897 C_word *a;
12898 C_check_for_interrupt;
12899 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
12900 C_save_and_reclaim_args((void *)trf_15469,2,t1,t2);}
12901 a=C_alloc(3);
12902 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15477,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
12903 /* irregex-core.scm:1526: cset->plist */
12904 f_26381(t3,t2);}
12905 
12906 /* k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15477(C_word c,C_word * av)12907 static void C_ccall f_15477(C_word c,C_word *av){
12908 C_word tmp;
12909 C_word t0=av[0];
12910 C_word t1=av[1];
12911 C_word t2;
12912 C_word t3;
12913 C_word t4;
12914 C_word t5;
12915 C_word *a;
12916 C_check_for_interrupt;
12917 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
12918 C_save_and_reclaim((void *)f_15477,c,av);}
12919 a=C_alloc(6);
12920 t2=C_SCHEME_UNDEFINED;
12921 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
12922 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15479,a[2]=t3,a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp));
12923 t5=((C_word*)t3)[1];
12924 f_15479(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}
12925 
12926 /* lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15479(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)12927 static void C_fcall f_15479(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
12928 C_word tmp;
12929 C_word t5;
12930 C_word t6;
12931 C_word t7;
12932 C_word t8;
12933 C_word t9;
12934 C_word t10;
12935 C_word *a;
12936 C_check_for_interrupt;
12937 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
12938 C_save_and_reclaim_args((void *)trf_15479,5,t0,t1,t2,t3,t4);}
12939 a=C_alloc(7);
12940 if(C_truep(C_i_nullp(t2))){
12941 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15493,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
12942 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15497,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
12943 /* irregex-core.scm:1528: ##sys#fast-reverse */
12944 t7=*((C_word*)lf[69]+1);{
12945 C_word av2[3];
12946 av2[0]=t7;
12947 av2[1]=t6;
12948 av2[2]=t3;
12949 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
12950 else{
12951 t5=C_i_car(t2);
12952 t6=C_fix(C_character_code(t5));
12953 t7=C_fixnum_less_or_equal_p(C_fix(128),t6);
12954 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15524,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
12955 if(C_truep(t7)){
12956 t9=t8;
12957 f_15524(t9,t7);}
12958 else{
12959 t9=C_i_cadr(t2);
12960 t10=t8;
12961 f_15524(t10,C_fixnum_less_or_equal_p(C_fix(128),C_fix(C_character_code(t9))));}}}
12962 
12963 /* k15491 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15493(C_word c,C_word * av)12964 static void C_ccall f_15493(C_word c,C_word *av){
12965 C_word tmp;
12966 C_word t0=av[0];
12967 C_word t1=av[1];
12968 C_word t2;
12969 C_word *a;
12970 C_check_for_interrupt;
12971 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
12972 C_save_and_reclaim((void *)f_15493,c,av);}
12973 a=C_alloc(3);
12974 /* irregex-core.scm:1528: sre-alternate */
12975 t2=((C_word*)t0)[2];{
12976 C_word *av2=av;
12977 av2[0]=t2;
12978 av2[1]=(
12979 /* irregex-core.scm:1528: sre-alternate */
12980   f_18214(C_a_i(&a,3),t1)
12981 );
12982 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
12983 
12984 /* k15495 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15497(C_word c,C_word * av)12985 static void C_ccall f_15497(C_word c,C_word *av){
12986 C_word tmp;
12987 C_word t0=av[0];
12988 C_word t1=av[1];
12989 C_word t2;
12990 C_word t3;
12991 C_word *a;
12992 C_check_for_interrupt;
12993 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
12994 C_save_and_reclaim((void *)f_15497,c,av);}
12995 a=C_alloc(4);
12996 if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
12997 /* irregex-core.scm:1528: scheme#append */
12998 t2=*((C_word*)lf[73]+1);{
12999 C_word *av2;
13000 if(c >= 4) {
13001   av2=av;
13002 } else {
13003   av2=C_alloc(4);
13004 }
13005 av2[0]=t2;
13006 av2[1]=((C_word*)t0)[3];
13007 av2[2]=t1;
13008 av2[3]=C_SCHEME_END_OF_LIST;
13009 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
13010 else{
13011 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15515,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
13012 /* irregex-core.scm:1531: ##sys#fast-reverse */
13013 t3=*((C_word*)lf[69]+1);{
13014 C_word *av2;
13015 if(c >= 3) {
13016   av2=av;
13017 } else {
13018   av2=C_alloc(3);
13019 }
13020 av2[0]=t3;
13021 av2[1]=t2;
13022 av2[2]=((C_word*)t0)[2];
13023 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
13024 
13025 /* k15513 in k15495 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15515(C_word c,C_word * av)13026 static void C_ccall f_15515(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;
13031 C_word t3;
13032 C_word t4;
13033 C_word *a;
13034 C_check_for_interrupt;
13035 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
13036 C_save_and_reclaim((void *)f_15515,c,av);}
13037 a=C_alloc(6);
13038 t2=C_a_i_cons(&a,2,lf[52],t1);
13039 t3=C_a_i_list1(&a,1,t2);
13040 /* irregex-core.scm:1528: scheme#append */
13041 t4=*((C_word*)lf[73]+1);{
13042 C_word *av2;
13043 if(c >= 4) {
13044   av2=av;
13045 } else {
13046   av2=C_alloc(4);
13047 }
13048 av2[0]=t4;
13049 av2[1]=((C_word*)t0)[2];
13050 av2[2]=((C_word*)t0)[3];
13051 av2[3]=t3;
13052 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
13053 
13054 /* k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15524(C_word t0,C_word t1)13055 static void C_fcall f_15524(C_word t0,C_word t1){
13056 C_word tmp;
13057 C_word t2;
13058 C_word t3;
13059 C_word t4;
13060 C_word t5;
13061 C_word t6;
13062 C_word t7;
13063 C_word t8;
13064 C_word *a;
13065 C_check_for_interrupt;
13066 if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){
13067 C_save_and_reclaim_args((void *)trf_15524,2,t0,t1);}
13068 a=C_alloc(16);
13069 if(C_truep(t1)){
13070 t2=C_i_cddr(((C_word*)t0)[2]);
13071 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15539,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],tmp=(C_word)a,a+=7,tmp);
13072 t4=C_u_i_car(((C_word*)t0)[2]);
13073 t5=C_u_i_cdr(((C_word*)t0)[2]);
13074 t6=C_u_i_car(t5);
13075 t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14479,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]=t3,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
13076 /* irregex-core.scm:1416: char->utf8-list */
13077 f_14338(t7,t4);}
13078 else{
13079 t2=C_i_cddr(((C_word*)t0)[2]);
13080 t3=C_u_i_cdr(((C_word*)t0)[2]);
13081 t4=C_u_i_car(t3);
13082 t5=C_u_i_car(((C_word*)t0)[2]);
13083 t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[6]);
13084 t7=C_a_i_cons(&a,2,t4,t6);
13085 /* irregex-core.scm:1536: lp */
13086 t8=((C_word*)((C_word*)t0)[4])[1];
13087 f_15479(t8,((C_word*)t0)[5],t2,((C_word*)t0)[3],t7);}}
13088 
13089 /* k15537 in k15522 in lp in k15475 in chicken.irregex#cset->utf8-pattern in k7761 in k7536 in k7533 */
f_15539(C_word c,C_word * av)13090 static void C_ccall f_15539(C_word c,C_word *av){
13091 C_word tmp;
13092 C_word t0=av[0];
13093 C_word t1=av[1];
13094 C_word t2;
13095 C_word t3;
13096 C_word *a;
13097 C_check_for_interrupt;
13098 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
13099 C_save_and_reclaim((void *)f_15539,c,av);}
13100 a=C_alloc(3);
13101 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
13102 /* irregex-core.scm:1533: lp */
13103 t3=((C_word*)((C_word*)t0)[3])[1];
13104 f_15479(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);}
13105 
13106 /* adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15591(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)13107 static void C_fcall f_15591(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
13108 C_word tmp;
13109 C_word t5;
13110 C_word t6;
13111 C_word t7;
13112 C_word t8;
13113 C_word t9;
13114 C_word t10;
13115 C_word t11;
13116 C_word t12;
13117 C_word t13;
13118 C_word t14;
13119 C_word t15;
13120 C_word t16;
13121 C_word t17;
13122 C_word t18;
13123 C_word t19;
13124 C_word t20;
13125 C_word t21;
13126 C_word t22;
13127 C_word t23;
13128 C_word t24;
13129 C_word t25;
13130 C_word t26;
13131 C_word t27;
13132 C_word *a;
13133 loop:
13134 C_check_for_interrupt;
13135 if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){
13136 C_save_and_reclaim_args((void *)trf_15591,5,t0,t1,t2,t3,t4);}
13137 a=C_alloc(29);
13138 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15594,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word)li204),tmp=(C_word)a,a+=6,tmp);
13139 if(C_truep(C_i_pairp(t2))){
13140 t6=C_u_i_car(t2);
13141 t7=C_eqp(t6,lf[156]);
13142 if(C_truep(t7)){
13143 t8=(
13144 /* irregex-core.scm:1546: sre-sequence */
13145   f_18191(C_a_i(&a,3),C_u_i_cdr(t2))
13146 );
13147 /* irregex-core.scm:1546: adjust */
13148 t24=t1;
13149 t25=t8;
13150 t26=C_SCHEME_TRUE;
13151 t27=t4;
13152 t1=t24;
13153 t2=t25;
13154 t3=t26;
13155 t4=t27;
13156 goto loop;}
13157 else{
13158 t8=C_eqp(t6,lf[157]);
13159 if(C_truep(t8)){
13160 t9=(
13161 /* irregex-core.scm:1547: sre-sequence */
13162   f_18191(C_a_i(&a,3),C_u_i_cdr(t2))
13163 );
13164 /* irregex-core.scm:1547: adjust */
13165 t24=t1;
13166 t25=t9;
13167 t26=C_SCHEME_FALSE;
13168 t27=t4;
13169 t1=t24;
13170 t2=t25;
13171 t3=t26;
13172 t4=t27;
13173 goto loop;}
13174 else{
13175 t9=C_eqp(t6,lf[225]);
13176 if(C_truep(t9)){
13177 t10=C_u_i_car(t2);
13178 t11=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13179 t12=t11;
13180 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
13181 t14=((C_word*)t13)[1];
13182 t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15651,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li205),tmp=(C_word)a,a+=5,tmp);
13183 t16=C_u_i_cdr(t2);
13184 t17=C_i_check_list_2(t16,lf[211]);
13185 t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15662,a[2]=t1,a[3]=t10,tmp=(C_word)a,a+=4,tmp);
13186 t19=C_SCHEME_UNDEFINED;
13187 t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
13188 t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15664,a[2]=t13,a[3]=t20,a[4]=t15,a[5]=t14,a[6]=((C_word)li206),tmp=(C_word)a,a+=7,tmp));
13189 t22=((C_word*)t20)[1];
13190 f_15664(t22,t18,t16);}
13191 else{
13192 t10=C_eqp(t6,lf[226]);
13193 if(C_truep(t10)){
13194 t11=C_u_i_car(t2);
13195 t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13196 t13=t12;
13197 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
13198 t15=((C_word*)t14)[1];
13199 t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15712,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li207),tmp=(C_word)a,a+=5,tmp);
13200 t17=C_u_i_cdr(t2);
13201 t18=C_i_check_list_2(t17,lf[211]);
13202 t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15723,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp);
13203 t20=C_SCHEME_UNDEFINED;
13204 t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
13205 t22=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15725,a[2]=t14,a[3]=t21,a[4]=t16,a[5]=t15,a[6]=((C_word)li208),tmp=(C_word)a,a+=7,tmp));
13206 t23=((C_word*)t21)[1];
13207 f_15725(t23,t19,t17);}
13208 else{
13209 t11=C_eqp(t6,lf[52]);
13210 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15766,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t6,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
13211 if(C_truep(t11)){
13212 t13=t12;
13213 f_15766(t13,t11);}
13214 else{
13215 t13=C_eqp(t6,lf[179]);
13216 if(C_truep(t13)){
13217 t14=t12;
13218 f_15766(t14,t13);}
13219 else{
13220 t14=C_eqp(t6,lf[234]);
13221 t15=t12;
13222 f_15766(t15,(C_truep(t14)?t14:C_eqp(t6,lf[247])));}}}}}}}
13223 else{
13224 t6=C_eqp(t2,lf[124]);
13225 if(C_truep(t6)){
13226 t7=t1;{
13227 C_word av2[2];
13228 av2[0]=t7;
13229 av2[1]=lf[274];
13230 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
13231 else{
13232 t7=C_eqp(t2,lf[125]);
13233 if(C_truep(t7)){
13234 t8=t1;{
13235 C_word av2[2];
13236 av2[0]=t8;
13237 av2[1]=lf[275];
13238 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
13239 else{
13240 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15974,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
13241 if(C_truep(t3)){
13242 t9=C_charp(t2);
13243 t10=t8;
13244 f_15974(t10,(C_truep(t9)?C_fixnum_less_or_equal_p(C_fix(128),C_fix(C_character_code(t2))):C_SCHEME_FALSE));}
13245 else{
13246 t9=t8;
13247 f_15974(t9,C_SCHEME_FALSE);}}}}}
13248 
13249 /* rec in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15594(C_word t0,C_word t1,C_word t2)13250 static void C_fcall f_15594(C_word t0,C_word t1,C_word t2){
13251 C_word tmp;
13252 C_word t3;
13253 C_word *a;
13254 C_check_for_interrupt;
13255 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
13256 C_save_and_reclaim_args((void *)trf_15594,3,t0,t1,t2);}
13257 /* irregex-core.scm:1542: adjust */
13258 t3=((C_word*)((C_word*)t0)[2])[1];
13259 f_15591(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
13260 
13261 /* g2380 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15651(C_word t0,C_word t1,C_word t2)13262 static void C_fcall f_15651(C_word t0,C_word t1,C_word t2){
13263 C_word tmp;
13264 C_word t3;
13265 C_word *a;
13266 C_check_for_interrupt;
13267 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
13268 C_save_and_reclaim_args((void *)trf_15651,3,t0,t1,t2);}
13269 /* irregex-core.scm:1549: adjust */
13270 t3=((C_word*)((C_word*)t0)[2])[1];
13271 f_15591(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE);}
13272 
13273 /* k15660 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15662(C_word c,C_word * av)13274 static void C_ccall f_15662(C_word c,C_word *av){
13275 C_word tmp;
13276 C_word t0=av[0];
13277 C_word t1=av[1];
13278 C_word t2;
13279 C_word *a;
13280 C_check_for_interrupt;
13281 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
13282 C_save_and_reclaim((void *)f_15662,c,av);}
13283 a=C_alloc(3);
13284 t2=((C_word*)t0)[2];{
13285 C_word *av2=av;
13286 av2[0]=t2;
13287 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
13288 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13289 
13290 /* map-loop2374 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15664(C_word t0,C_word t1,C_word t2)13291 static void C_fcall f_15664(C_word t0,C_word t1,C_word t2){
13292 C_word tmp;
13293 C_word t3;
13294 C_word t4;
13295 C_word *a;
13296 C_check_for_interrupt;
13297 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
13298 C_save_and_reclaim_args((void *)trf_15664,3,t0,t1,t2);}
13299 a=C_alloc(6);
13300 if(C_truep(C_i_pairp(t2))){
13301 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15689,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);
13302 /* irregex-core.scm:1549: g2380 */
13303 t4=((C_word*)t0)[4];
13304 f_15651(t4,t3,C_slot(t2,C_fix(0)));}
13305 else{
13306 t3=t1;{
13307 C_word av2[2];
13308 av2[0]=t3;
13309 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
13310 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
13311 
13312 /* k15687 in map-loop2374 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15689(C_word c,C_word * av)13313 static void C_ccall f_15689(C_word c,C_word *av){
13314 C_word tmp;
13315 C_word t0=av[0];
13316 C_word t1=av[1];
13317 C_word t2;
13318 C_word t3;
13319 C_word t4;
13320 C_word t5;
13321 C_word *a;
13322 C_check_for_interrupt;
13323 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13324 C_save_and_reclaim((void *)f_15689,c,av);}
13325 a=C_alloc(3);
13326 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
13327 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
13328 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
13329 t5=((C_word*)((C_word*)t0)[3])[1];
13330 f_15664(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
13331 
13332 /* g2407 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15712(C_word t0,C_word t1,C_word t2)13333 static void C_fcall f_15712(C_word t0,C_word t1,C_word t2){
13334 C_word tmp;
13335 C_word t3;
13336 C_word *a;
13337 C_check_for_interrupt;
13338 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
13339 C_save_and_reclaim_args((void *)trf_15712,3,t0,t1,t2);}
13340 /* irregex-core.scm:1551: adjust */
13341 t3=((C_word*)((C_word*)t0)[2])[1];
13342 f_15591(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_TRUE);}
13343 
13344 /* k15721 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15723(C_word c,C_word * av)13345 static void C_ccall f_15723(C_word c,C_word *av){
13346 C_word tmp;
13347 C_word t0=av[0];
13348 C_word t1=av[1];
13349 C_word t2;
13350 C_word *a;
13351 C_check_for_interrupt;
13352 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
13353 C_save_and_reclaim((void *)f_15723,c,av);}
13354 a=C_alloc(3);
13355 t2=((C_word*)t0)[2];{
13356 C_word *av2=av;
13357 av2[0]=t2;
13358 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
13359 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13360 
13361 /* map-loop2401 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15725(C_word t0,C_word t1,C_word t2)13362 static void C_fcall f_15725(C_word t0,C_word t1,C_word t2){
13363 C_word tmp;
13364 C_word t3;
13365 C_word t4;
13366 C_word *a;
13367 C_check_for_interrupt;
13368 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
13369 C_save_and_reclaim_args((void *)trf_15725,3,t0,t1,t2);}
13370 a=C_alloc(6);
13371 if(C_truep(C_i_pairp(t2))){
13372 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15750,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);
13373 /* irregex-core.scm:1551: g2407 */
13374 t4=((C_word*)t0)[4];
13375 f_15712(t4,t3,C_slot(t2,C_fix(0)));}
13376 else{
13377 t3=t1;{
13378 C_word av2[2];
13379 av2[0]=t3;
13380 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
13381 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
13382 
13383 /* k15748 in map-loop2401 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15750(C_word c,C_word * av)13384 static void C_ccall f_15750(C_word c,C_word *av){
13385 C_word tmp;
13386 C_word t0=av[0];
13387 C_word t1=av[1];
13388 C_word t2;
13389 C_word t3;
13390 C_word t4;
13391 C_word t5;
13392 C_word *a;
13393 C_check_for_interrupt;
13394 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13395 C_save_and_reclaim((void *)f_15750,c,av);}
13396 a=C_alloc(3);
13397 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
13398 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
13399 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
13400 t5=((C_word*)((C_word*)t0)[3])[1];
13401 f_15725(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
13402 
13403 /* k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15766(C_word t0,C_word t1)13404 static void C_fcall f_15766(C_word t0,C_word t1){
13405 C_word tmp;
13406 C_word t2;
13407 C_word t3;
13408 C_word t4;
13409 C_word t5;
13410 C_word t6;
13411 C_word t7;
13412 C_word t8;
13413 C_word t9;
13414 C_word t10;
13415 C_word t11;
13416 C_word t12;
13417 C_word t13;
13418 C_word t14;
13419 C_word t15;
13420 C_word t16;
13421 C_word *a;
13422 C_check_for_interrupt;
13423 if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
13424 C_save_and_reclaim_args((void *)trf_15766,2,t0,t1);}
13425 a=C_alloc(20);
13426 if(C_truep(t1)){
13427 if(C_truep(C_i_not(((C_word*)t0)[2]))){
13428 t2=((C_word*)t0)[3];{
13429 C_word av2[2];
13430 av2[0]=t2;
13431 av2[1]=((C_word*)t0)[4];
13432 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13433 else{
13434 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15775,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
13435 /* irregex-core.scm:1555: sre->cset */
13436 f_26492(t2,((C_word*)t0)[4],C_a_i_list(&a,1,((C_word*)t0)[5]));}}
13437 else{
13438 t2=C_eqp(((C_word*)t0)[6],lf[127]);
13439 if(C_truep(t2)){
13440 t3=(
13441 /* irregex-core.scm:1562: sre-sequence */
13442   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[4]))
13443 );
13444 t4=C_eqp(t3,lf[124]);
13445 if(C_truep(t4)){
13446 t5=((C_word*)t0)[3];{
13447 C_word av2[2];
13448 av2[0]=t5;
13449 av2[1]=lf[272];
13450 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
13451 else{
13452 t5=C_eqp(t3,lf[125]);
13453 if(C_truep(t5)){
13454 t6=((C_word*)t0)[3];{
13455 C_word av2[2];
13456 av2[0]=t6;
13457 av2[1]=lf[273];
13458 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
13459 else{
13460 t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13461 t7=t6;
13462 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
13463 t9=((C_word*)t8)[1];
13464 t10=C_u_i_cdr(((C_word*)t0)[4]);
13465 t11=C_i_check_list_2(t10,lf[211]);
13466 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15833,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
13467 t13=C_SCHEME_UNDEFINED;
13468 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
13469 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15835,a[2]=t8,a[3]=t14,a[4]=((C_word*)t0)[7],a[5]=t9,a[6]=((C_word)li209),tmp=(C_word)a,a+=7,tmp));
13470 t16=((C_word*)t14)[1];
13471 f_15835(t16,t12,t10);}}}
13472 else{
13473 t3=C_u_i_car(((C_word*)t0)[4]);
13474 t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13475 t5=t4;
13476 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
13477 t7=((C_word*)t6)[1];
13478 t8=C_u_i_cdr(((C_word*)t0)[4]);
13479 t9=C_i_check_list_2(t8,lf[211]);
13480 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15889,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
13481 t11=C_SCHEME_UNDEFINED;
13482 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
13483 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15891,a[2]=t6,a[3]=t12,a[4]=((C_word*)t0)[7],a[5]=t7,a[6]=((C_word)li210),tmp=(C_word)a,a+=7,tmp));
13484 t14=((C_word*)t12)[1];
13485 f_15891(t14,t10,t8);}}}
13486 
13487 /* k15773 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15775(C_word c,C_word * av)13488 static void C_ccall f_15775(C_word c,C_word *av){
13489 C_word tmp;
13490 C_word t0=av[0];
13491 C_word t1=av[1];
13492 C_word t2;
13493 C_word t3;
13494 C_word t4;
13495 C_word *a;
13496 C_check_for_interrupt;
13497 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
13498 C_save_and_reclaim((void *)f_15775,c,av);}
13499 a=C_alloc(9);
13500 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15781,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);
13501 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15798,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
13502 /* irregex-core.scm:1556: cset->plist */
13503 f_26381(t3,t1);}
13504 
13505 /* k15779 in k15773 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15781(C_word c,C_word * av)13506 static void C_ccall f_15781(C_word c,C_word *av){
13507 C_word tmp;
13508 C_word t0=av[0];
13509 C_word t1=av[1];
13510 C_word t2;
13511 C_word t3;
13512 C_word *a;
13513 C_check_for_interrupt;
13514 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13515 C_save_and_reclaim((void *)f_15781,c,av);}
13516 a=C_alloc(3);
13517 if(C_truep(t1)){
13518 if(C_truep(((C_word*)t0)[2])){
13519 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15791,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
13520 /* irregex-core.scm:1558: cset->utf8-pattern */
13521 f_15469(t2,((C_word*)t0)[4]);}
13522 else{
13523 /* irregex-core.scm:1559: cset->utf8-pattern */
13524 f_15469(((C_word*)t0)[3],((C_word*)t0)[4]);}}
13525 else{
13526 t2=((C_word*)t0)[3];{
13527 C_word *av2=av;
13528 av2[0]=t2;
13529 av2[1]=((C_word*)t0)[5];
13530 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
13531 
13532 /* k15789 in k15779 in k15773 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15791(C_word c,C_word * av)13533 static void C_ccall f_15791(C_word c,C_word *av){
13534 C_word tmp;
13535 C_word t0=av[0];
13536 C_word t1=av[1];
13537 C_word t2;
13538 C_word *a;
13539 C_check_for_interrupt;
13540 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
13541 C_save_and_reclaim((void *)f_15791,c,av);}
13542 a=C_alloc(6);
13543 t2=((C_word*)t0)[2];{
13544 C_word *av2=av;
13545 av2[0]=t2;
13546 av2[1]=C_a_i_list2(&a,2,lf[225],t1);
13547 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13548 
13549 /* k15796 in k15773 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15798(C_word c,C_word * av)13550 static void C_ccall f_15798(C_word c,C_word *av){
13551 C_word tmp;
13552 C_word t0=av[0];
13553 C_word t1=av[1];
13554 C_word t2;
13555 C_word *a;
13556 C_check_for_interrupt;
13557 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
13558 C_save_and_reclaim((void *)f_15798,c,av);}
13559 /* irregex-core.scm:1556: any */
13560 f_9294(((C_word*)t0)[2],lf[204],t1);}
13561 
13562 /* k15831 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15833(C_word c,C_word * av)13563 static void C_ccall f_15833(C_word c,C_word *av){
13564 C_word tmp;
13565 C_word t0=av[0];
13566 C_word t1=av[1];
13567 C_word t2;
13568 C_word *a;
13569 C_check_for_interrupt;
13570 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
13571 C_save_and_reclaim((void *)f_15833,c,av);}
13572 a=C_alloc(3);
13573 t2=((C_word*)t0)[2];{
13574 C_word *av2=av;
13575 av2[0]=t2;
13576 av2[1]=C_a_i_cons(&a,2,lf[127],t1);
13577 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13578 
13579 /* map-loop2444 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15835(C_word t0,C_word t1,C_word t2)13580 static void C_fcall f_15835(C_word t0,C_word t1,C_word t2){
13581 C_word tmp;
13582 C_word t3;
13583 C_word t4;
13584 C_word *a;
13585 C_check_for_interrupt;
13586 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
13587 C_save_and_reclaim_args((void *)trf_15835,3,t0,t1,t2);}
13588 a=C_alloc(6);
13589 if(C_truep(C_i_pairp(t2))){
13590 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15860,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);
13591 /* irregex-core.scm:1566: g2450 */
13592 t4=((C_word*)t0)[4];
13593 f_15594(t4,t3,C_slot(t2,C_fix(0)));}
13594 else{
13595 t3=t1;{
13596 C_word av2[2];
13597 av2[0]=t3;
13598 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
13599 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
13600 
13601 /* k15858 in map-loop2444 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15860(C_word c,C_word * av)13602 static void C_ccall f_15860(C_word c,C_word *av){
13603 C_word tmp;
13604 C_word t0=av[0];
13605 C_word t1=av[1];
13606 C_word t2;
13607 C_word t3;
13608 C_word t4;
13609 C_word t5;
13610 C_word *a;
13611 C_check_for_interrupt;
13612 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13613 C_save_and_reclaim((void *)f_15860,c,av);}
13614 a=C_alloc(3);
13615 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
13616 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
13617 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
13618 t5=((C_word*)((C_word*)t0)[3])[1];
13619 f_15835(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
13620 
13621 /* k15887 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15889(C_word c,C_word * av)13622 static void C_ccall f_15889(C_word c,C_word *av){
13623 C_word tmp;
13624 C_word t0=av[0];
13625 C_word t1=av[1];
13626 C_word t2;
13627 C_word *a;
13628 C_check_for_interrupt;
13629 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
13630 C_save_and_reclaim((void *)f_15889,c,av);}
13631 a=C_alloc(3);
13632 t2=((C_word*)t0)[2];{
13633 C_word *av2=av;
13634 av2[0]=t2;
13635 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
13636 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13637 
13638 /* map-loop2470 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15891(C_word t0,C_word t1,C_word t2)13639 static void C_fcall f_15891(C_word t0,C_word t1,C_word t2){
13640 C_word tmp;
13641 C_word t3;
13642 C_word t4;
13643 C_word *a;
13644 C_check_for_interrupt;
13645 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
13646 C_save_and_reclaim_args((void *)trf_15891,3,t0,t1,t2);}
13647 a=C_alloc(6);
13648 if(C_truep(C_i_pairp(t2))){
13649 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15916,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);
13650 /* irregex-core.scm:1568: g2476 */
13651 t4=((C_word*)t0)[4];
13652 f_15594(t4,t3,C_slot(t2,C_fix(0)));}
13653 else{
13654 t3=t1;{
13655 C_word av2[2];
13656 av2[0]=t3;
13657 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
13658 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
13659 
13660 /* k15914 in map-loop2470 in k15764 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15916(C_word c,C_word * av)13661 static void C_ccall f_15916(C_word c,C_word *av){
13662 C_word tmp;
13663 C_word t0=av[0];
13664 C_word t1=av[1];
13665 C_word t2;
13666 C_word t3;
13667 C_word t4;
13668 C_word t5;
13669 C_word *a;
13670 C_check_for_interrupt;
13671 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
13672 C_save_and_reclaim((void *)f_15916,c,av);}
13673 a=C_alloc(3);
13674 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
13675 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
13676 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
13677 t5=((C_word*)((C_word*)t0)[3])[1];
13678 f_15891(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
13679 
13680 /* k15972 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15974(C_word t0,C_word t1)13681 static void C_fcall f_15974(C_word t0,C_word t1){
13682 C_word tmp;
13683 C_word t2;
13684 C_word t3;
13685 C_word t4;
13686 C_word t5;
13687 C_word t6;
13688 C_word t7;
13689 C_word *a;
13690 C_check_for_interrupt;
13691 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
13692 C_save_and_reclaim_args((void *)trf_15974,2,t0,t1);}
13693 a=C_alloc(10);
13694 if(C_truep(t1)){
13695 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
13696 t3=t2;
13697 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
13698 t5=((C_word*)t4)[1];
13699 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15984,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
13700 /* irregex-core.scm:1575: char->utf8-list */
13701 f_14338(t6,((C_word*)t0)[3]);}
13702 else{
13703 t2=((C_word*)t0)[2];{
13704 C_word av2[2];
13705 av2[0]=t2;
13706 av2[1]=((C_word*)t0)[3];
13707 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
13708 
13709 /* k15982 in k15972 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15984(C_word c,C_word * av)13710 static void C_ccall f_15984(C_word c,C_word *av){
13711 C_word tmp;
13712 C_word t0=av[0];
13713 C_word t1=av[1];
13714 C_word t2;
13715 C_word t3;
13716 C_word t4;
13717 C_word t5;
13718 C_word t6;
13719 C_word *a;
13720 C_check_for_interrupt;
13721 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
13722 C_save_and_reclaim((void *)f_15984,c,av);}
13723 a=C_alloc(11);
13724 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15987,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
13725 t3=C_SCHEME_UNDEFINED;
13726 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
13727 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15989,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li211),tmp=(C_word)a,a+=6,tmp));
13728 t6=((C_word*)t4)[1];
13729 f_15989(t6,t2,t1);}
13730 
13731 /* k15985 in k15982 in k15972 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15987(C_word c,C_word * av)13732 static void C_ccall f_15987(C_word c,C_word *av){
13733 C_word tmp;
13734 C_word t0=av[0];
13735 C_word t1=av[1];
13736 C_word t2;
13737 C_word *a;
13738 C_check_for_interrupt;
13739 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
13740 C_save_and_reclaim((void *)f_15987,c,av);}
13741 a=C_alloc(3);
13742 /* irregex-core.scm:1575: sre-sequence */
13743 t2=((C_word*)t0)[2];{
13744 C_word *av2=av;
13745 av2[0]=t2;
13746 av2[1]=(
13747 /* irregex-core.scm:1575: sre-sequence */
13748   f_18191(C_a_i(&a,3),t1)
13749 );
13750 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13751 
13752 /* map-loop2504 in k15982 in k15972 in adjust in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_15989(C_word t0,C_word t1,C_word t2)13753 static void C_fcall f_15989(C_word t0,C_word t1,C_word t2){
13754 C_word tmp;
13755 C_word t3;
13756 C_word t4;
13757 C_word t5;
13758 C_word t6;
13759 C_word t7;
13760 C_word t8;
13761 C_word t9;
13762 C_word t10;
13763 C_word *a;
13764 loop:
13765 C_check_for_interrupt;
13766 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
13767 C_save_and_reclaim_args((void *)trf_15989,3,t0,t1,t2);}
13768 a=C_alloc(3);
13769 if(C_truep(C_i_pairp(t2))){
13770 t3=C_slot(t2,C_fix(0));
13771 t4=C_make_character(C_unfix(t3));
13772 t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
13773 t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
13774 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
13775 t9=t1;
13776 t10=C_slot(t2,C_fix(1));
13777 t1=t9;
13778 t2=t10;
13779 goto loop;}
13780 else{
13781 t3=t1;{
13782 C_word av2[2];
13783 av2[0]=t3;
13784 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
13785 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
13786 
13787 /* chicken.irregex#irregex in k7761 in k7536 in k7533 */
f_16036(C_word c,C_word * av)13788 static void C_ccall f_16036(C_word c,C_word *av){
13789 C_word tmp;
13790 C_word t0=av[0];
13791 C_word t1=av[1];
13792 C_word t2=av[2];
13793 C_word t3;
13794 C_word *a;
13795 if(c<3) C_bad_min_argc_2(c,3,t0);
13796 C_check_for_interrupt;
13797 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
13798 C_save_and_reclaim((void*)f_16036,c,av);}
13799 a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
13800 t3=C_build_rest(&a,c,3,av);
13801 C_word t4;
13802 C_word t5;
13803 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16043,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
13804 /* irregex-core.scm:1592: irregex? */
13805 t5=*((C_word*)lf[5]+1);{
13806 C_word *av2=av;
13807 av2[0]=t5;
13808 av2[1]=t4;
13809 av2[2]=t2;
13810 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
13811 
13812 /* k16041 in chicken.irregex#irregex in k7761 in k7536 in k7533 */
f_16043(C_word c,C_word * av)13813 static void C_ccall f_16043(C_word c,C_word *av){
13814 C_word tmp;
13815 C_word t0=av[0];
13816 C_word t1=av[1];
13817 C_word t2;
13818 C_word t3;
13819 C_word t4;
13820 C_word t5;
13821 C_word t6;
13822 C_word t7;
13823 C_word t8;
13824 C_word t9;
13825 C_word *a;
13826 C_check_for_interrupt;
13827 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
13828 C_save_and_reclaim((void *)f_16043,c,av);}
13829 a=C_alloc(5);
13830 if(C_truep(t1)){
13831 t2=((C_word*)t0)[2];{
13832 C_word *av2=av;
13833 av2[0]=t2;
13834 av2[1]=((C_word*)t0)[3];
13835 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
13836 else{
13837 if(C_truep(C_i_nullp(((C_word*)t0)[4]))){
13838 t2=lf[218];
13839 t3=C_slot(t2,C_fix(0));
13840 if(C_truep(C_i_equalp(t3,((C_word*)t0)[3]))){
13841 t4=((C_word*)t0)[2];{
13842 C_word *av2=av;
13843 av2[0]=t4;
13844 av2[1]=C_slot(t2,C_fix(1));
13845 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
13846 else{
13847 t4=C_slot(t2,C_fix(2));
13848 if(C_truep(C_i_equalp(t4,((C_word*)t0)[3]))){
13849 t5=((C_word*)t0)[2];{
13850 C_word *av2=av;
13851 av2[0]=t5;
13852 av2[1]=C_slot(t2,C_fix(3));
13853 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
13854 else{
13855 t5=C_slot(t2,C_fix(4));
13856 if(C_truep(C_i_equalp(t5,((C_word*)t0)[3]))){
13857 t6=((C_word*)t0)[2];{
13858 C_word *av2=av;
13859 av2[0]=t6;
13860 av2[1]=C_slot(t2,C_fix(5));
13861 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
13862 else{
13863 t6=C_slot(t2,C_fix(6));
13864 if(C_truep(C_i_equalp(t6,((C_word*)t0)[3]))){
13865 t7=((C_word*)t0)[2];{
13866 C_word *av2=av;
13867 av2[0]=t7;
13868 av2[1]=C_slot(t2,C_fix(7));
13869 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
13870 else{
13871 t7=C_slot(t2,C_fix(8));
13872 if(C_truep(C_i_equalp(t7,((C_word*)t0)[3]))){
13873 t8=((C_word*)t0)[2];{
13874 C_word *av2=av;
13875 av2[0]=t8;
13876 av2[1]=C_slot(t2,C_fix(9));
13877 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
13878 else{
13879 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16097,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
13880 if(C_truep(C_i_stringp(((C_word*)t0)[3]))){
13881 /* irregex-core.scm:1597: string->irregex */
13882 t9=*((C_word*)lf[219]+1);{
13883 C_word *av2;
13884 if(c >= 3) {
13885   av2=av;
13886 } else {
13887   av2=C_alloc(3);
13888 }
13889 av2[0]=t9;
13890 av2[1]=t8;
13891 av2[2]=((C_word*)t0)[3];
13892 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
13893 else{
13894 /* irregex-core.scm:1598: sre->irregex */
13895 t9=*((C_word*)lf[220]+1);{
13896 C_word *av2;
13897 if(c >= 3) {
13898   av2=av;
13899 } else {
13900   av2=C_alloc(3);
13901 }
13902 av2[0]=t9;
13903 av2[1]=t8;
13904 av2[2]=((C_word*)t0)[3];
13905 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}}
13906 else{
13907 if(C_truep(C_i_stringp(((C_word*)t0)[3]))){{
13908 C_word *av2;
13909 if(c >= 5) {
13910   av2=av;
13911 } else {
13912   av2=C_alloc(5);
13913 }
13914 av2[0]=0;
13915 av2[1]=((C_word*)t0)[2];
13916 av2[2]=*((C_word*)lf[219]+1);
13917 av2[3]=((C_word*)t0)[3];
13918 av2[4]=((C_word*)t0)[4];
13919 C_apply(5,av2);}}
13920 else{{
13921 C_word *av2;
13922 if(c >= 5) {
13923   av2=av;
13924 } else {
13925   av2=C_alloc(5);
13926 }
13927 av2[0]=0;
13928 av2[1]=((C_word*)t0)[2];
13929 av2[2]=*((C_word*)lf[220]+1);
13930 av2[3]=((C_word*)t0)[3];
13931 av2[4]=((C_word*)t0)[4];
13932 C_apply(5,av2);}}}}}
13933 
13934 /* k16095 in k16041 in chicken.irregex#irregex in k7761 in k7536 in k7533 */
f_16097(C_word c,C_word * av)13935 static void C_ccall f_16097(C_word c,C_word *av){
13936 C_word tmp;
13937 C_word t0=av[0];
13938 C_word t1=av[1];
13939 C_word t2;
13940 C_word t3;
13941 C_word t4;
13942 C_word t5;
13943 C_word t6;
13944 C_word t7;
13945 C_word t8;
13946 C_word t9;
13947 C_word *a;
13948 C_check_for_interrupt;
13949 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
13950 C_save_and_reclaim((void *)f_16097,c,av);}
13951 t2=C_slot(((C_word*)t0)[2],C_fix(10));
13952 t3=C_i_setslot(((C_word*)t0)[2],t2,((C_word*)t0)[3]);
13953 t4=C_fixnum_plus(t2,C_fix(1));
13954 t5=C_i_setslot(((C_word*)t0)[2],t4,t1);
13955 t6=C_fixnum_plus(t2,C_fix(2));
13956 t7=C_fixnum_modulo(t6,C_fix(10));
13957 t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t7);
13958 t9=((C_word*)t0)[4];{
13959 C_word *av2=av;
13960 av2[0]=t9;
13961 av2[1]=t1;
13962 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
13963 
13964 /* chicken.irregex#string->irregex in k7761 in k7536 in k7533 */
f_16164(C_word c,C_word * av)13965 static void C_ccall f_16164(C_word c,C_word *av){
13966 C_word tmp;
13967 C_word t0=av[0];
13968 C_word t1=av[1];
13969 C_word t2=av[2];
13970 C_word t3;
13971 C_word *a;
13972 if(c<3) C_bad_min_argc_2(c,3,t0);
13973 C_check_for_interrupt;
13974 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
13975 C_save_and_reclaim((void*)f_16164,c,av);}
13976 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
13977 t3=C_build_rest(&a,c,3,av);
13978 C_word t4;
13979 C_word t5;
13980 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16172,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);{
13981 C_word *av2;
13982 if(c >= 5) {
13983   av2=av;
13984 } else {
13985   av2=C_alloc(5);
13986 }
13987 av2[0]=0;
13988 av2[1]=t4;
13989 av2[2]=*((C_word*)lf[102]+1);
13990 av2[3]=t2;
13991 av2[4]=t3;
13992 C_apply(5,av2);}}
13993 
13994 /* k16170 in chicken.irregex#string->irregex in k7761 in k7536 in k7533 */
f_16172(C_word c,C_word * av)13995 static void C_ccall f_16172(C_word c,C_word *av){
13996 C_word tmp;
13997 C_word t0=av[0];
13998 C_word t1=av[1];
13999 C_word t2;
14000 C_word *a;
14001 C_check_for_interrupt;
14002 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
14003 C_save_and_reclaim((void *)f_16172,c,av);}{
14004 C_word *av2;
14005 if(c >= 5) {
14006   av2=av;
14007 } else {
14008   av2=C_alloc(5);
14009 }
14010 av2[0]=0;
14011 av2[1]=((C_word*)t0)[2];
14012 av2[2]=*((C_word*)lf[220]+1);
14013 av2[3]=t1;
14014 av2[4]=((C_word*)t0)[3];
14015 C_apply(5,av2);}}
14016 
14017 /* chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16174(C_word c,C_word * av)14018 static void C_ccall f_16174(C_word c,C_word *av){
14019 C_word tmp;
14020 C_word t0=av[0];
14021 C_word t1=av[1];
14022 C_word t2=av[2];
14023 C_word t3;
14024 C_word *a;
14025 if(c<3) C_bad_min_argc_2(c,3,t0);
14026 C_check_for_interrupt;
14027 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,2)))){
14028 C_save_and_reclaim((void*)f_16174,c,av);}
14029 a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
14030 t3=C_build_rest(&a,c,3,av);
14031 C_word t4;
14032 C_word t5;
14033 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16178,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
14034 /* irregex-core.scm:1608: symbol-list->flags */
14035 f_10332(t4,t3);}
14036 
14037 /* k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16178(C_word c,C_word * av)14038 static void C_ccall f_16178(C_word c,C_word *av){
14039 C_word tmp;
14040 C_word t0=av[0];
14041 C_word t1=av[1];
14042 C_word t2;
14043 C_word t3;
14044 C_word t4;
14045 C_word t5;
14046 C_word t6;
14047 C_word t7;
14048 C_word t8;
14049 C_word t9;
14050 C_word t10;
14051 C_word *a;
14052 C_check_for_interrupt;
14053 if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
14054 C_save_and_reclaim((void *)f_16178,c,av);}
14055 a=C_alloc(11);
14056 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16181,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
14057 t3=C_fixnum_and(t1,C_fix(32));
14058 t4=C_eqp(C_fix(32),t3);
14059 t5=C_fixnum_and(t1,C_fix(2));
14060 t6=C_eqp(C_fix(2),t5);
14061 t7=C_SCHEME_UNDEFINED;
14062 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
14063 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15591,a[2]=t8,a[3]=((C_word)li212),tmp=(C_word)a,a+=4,tmp));
14064 t10=((C_word*)t8)[1];
14065 f_15591(t10,t2,((C_word*)t0)[4],t4,t6);}
14066 
14067 /* k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16181(C_word c,C_word * av)14068 static void C_ccall f_16181(C_word c,C_word *av){
14069 C_word tmp;
14070 C_word t0=av[0];
14071 C_word t1=av[1];
14072 C_word t2;
14073 C_word t3;
14074 C_word *a;
14075 C_check_for_interrupt;
14076 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
14077 C_save_and_reclaim((void *)f_16181,c,av);}
14078 a=C_alloc(6);
14079 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
14080 /* irregex-core.scm:1612: sre-searcher? */
14081 t3=lf[271];{
14082 C_word *av2;
14083 if(c >= 3) {
14084   av2=av;
14085 } else {
14086   av2=C_alloc(3);
14087 }
14088 av2[0]=t3;
14089 av2[1]=t2;
14090 av2[2]=t1;
14091 f_16709(3,av2);}}
14092 
14093 /* k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16184(C_word c,C_word * av)14094 static void C_ccall f_16184(C_word c,C_word *av){
14095 C_word tmp;
14096 C_word t0=av[0];
14097 C_word t1=av[1];
14098 C_word t2;
14099 C_word t3;
14100 C_word *a;
14101 C_check_for_interrupt;
14102 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
14103 C_save_and_reclaim((void *)f_16184,c,av);}
14104 a=C_alloc(7);
14105 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16187,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);
14106 if(C_truep(t1)){
14107 /* irregex-core.scm:1613: sre-remove-initial-bos */
14108 t3=lf[270];{
14109 C_word *av2;
14110 if(c >= 3) {
14111   av2=av;
14112 } else {
14113   av2=C_alloc(3);
14114 }
14115 av2[0]=t3;
14116 av2[1]=t2;
14117 av2[2]=((C_word*)t0)[5];
14118 f_18736(3,av2);}}
14119 else{
14120 t3=t2;{
14121 C_word *av2=av;
14122 av2[0]=t3;
14123 av2[1]=((C_word*)t0)[5];
14124 f_16187(2,av2);}}}
14125 
14126 /* k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16187(C_word c,C_word * av)14127 static void C_ccall f_16187(C_word c,C_word *av){
14128 C_word tmp;
14129 C_word t0=av[0];
14130 C_word t1=av[1];
14131 C_word t2;
14132 C_word t3;
14133 C_word t4;
14134 C_word t5;
14135 C_word t6;
14136 C_word t7;
14137 C_word *a;
14138 C_check_for_interrupt;
14139 if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
14140 C_save_and_reclaim((void *)f_16187,c,av);}
14141 a=C_alloc(27);
14142 t2=(C_truep(C_u_i_memq(lf[221],((C_word*)t0)[2]))?C_fix(1):(C_truep(C_u_i_memq(lf[222],((C_word*)t0)[2]))?C_fix(50):C_fix(10)));
14143 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16193,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]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
14144 if(C_truep(C_u_i_memq(lf[269],((C_word*)t0)[2]))){
14145 t4=t3;{
14146 C_word *av2=av;
14147 av2[0]=t4;
14148 av2[1]=C_SCHEME_FALSE;
14149 f_16193(2,av2);}}
14150 else{
14151 if(C_truep(((C_word*)t0)[3])){
14152 t4=t3;{
14153 C_word *av2=av;
14154 av2[0]=t4;
14155 av2[1]=C_SCHEME_TRUE;
14156 f_16193(2,av2);}}
14157 else{
14158 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16265,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
14159 t5=C_a_i_list(&a,2,lf[127],lf[124]);
14160 t6=C_a_i_list(&a,3,lf[115],t5,t1);
14161 /* irregex-core.scm:1621: sre->nfa */
14162 f_20757(t4,t6,((C_word*)t0)[5]);}}}
14163 
14164 /* k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16193(C_word c,C_word * av)14165 static void C_ccall f_16193(C_word c,C_word *av){
14166 C_word tmp;
14167 C_word t0=av[0];
14168 C_word t1=av[1];
14169 C_word t2;
14170 C_word t3;
14171 C_word *a;
14172 C_check_for_interrupt;
14173 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
14174 C_save_and_reclaim((void *)f_16193,c,av);}
14175 a=C_alloc(9);
14176 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
14177 if(C_truep(t1)){
14178 /* irregex-core.scm:1625: sre->nfa */
14179 f_20757(t2,((C_word*)t0)[6],((C_word*)t0)[4]);}
14180 else{
14181 t3=t2;{
14182 C_word *av2=av;
14183 av2[0]=t3;
14184 av2[1]=C_SCHEME_FALSE;
14185 f_16196(2,av2);}}}
14186 
14187 /* k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16196(C_word c,C_word * av)14188 static void C_ccall f_16196(C_word c,C_word *av){
14189 C_word tmp;
14190 C_word t0=av[0];
14191 C_word t1=av[1];
14192 C_word t2;
14193 C_word t3;
14194 C_word t4;
14195 C_word *a;
14196 C_check_for_interrupt;
14197 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
14198 C_save_and_reclaim((void *)f_16196,c,av);}
14199 a=C_alloc(12);
14200 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16199,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);
14201 if(C_truep(t1)){
14202 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16239,a[2]=((C_word*)t0)[8],a[3]=((C_word)li202),tmp=(C_word)a,a+=4,tmp);
14203 /* irregex-core.scm:1625: g2625 */
14204 t4=t3;
14205 f_16239(t4,t2,t1);}
14206 else{
14207 t3=t2;{
14208 C_word *av2=av;
14209 av2[0]=t3;
14210 av2[1]=C_SCHEME_FALSE;
14211 f_16199(2,av2);}}}
14212 
14213 /* k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16199(C_word c,C_word * av)14214 static void C_ccall f_16199(C_word c,C_word *av){
14215 C_word tmp;
14216 C_word t0=av[0];
14217 C_word t1=av[1];
14218 C_word t2;
14219 C_word t3;
14220 C_word *a;
14221 C_check_for_interrupt;
14222 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
14223 C_save_and_reclaim((void *)f_16199,c,av);}
14224 a=C_alloc(9);
14225 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16202,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);
14226 /* irregex-core.scm:1629: sre-count-submatches */
14227 f_16982(t2,((C_word*)t0)[7]);}
14228 
14229 /* k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16202(C_word c,C_word * av)14230 static void C_ccall f_16202(C_word c,C_word *av){
14231 C_word tmp;
14232 C_word t0=av[0];
14233 C_word t1=av[1];
14234 C_word t2;
14235 C_word t3;
14236 C_word *a;
14237 C_check_for_interrupt;
14238 if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
14239 C_save_and_reclaim((void *)f_16202,c,av);}
14240 a=C_alloc(10);
14241 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16205,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);
14242 /* irregex-core.scm:1630: sre-names */
14243 f_18418(t2,((C_word*)t0)[8],C_fix(1),C_SCHEME_END_OF_LIST);}
14244 
14245 /* k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16205(C_word c,C_word * av)14246 static void C_ccall f_16205(C_word c,C_word *av){
14247 C_word tmp;
14248 C_word t0=av[0];
14249 C_word t1=av[1];
14250 C_word t2;
14251 C_word t3;
14252 C_word t4;
14253 C_word *a;
14254 C_check_for_interrupt;
14255 if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
14256 C_save_and_reclaim((void *)f_16205,c,av);}
14257 a=C_alloc(14);
14258 t2=C_a_i_list(&a,1,t1);
14259 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17082,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
14260 if(C_truep(C_i_pairp(t2))){
14261 t4=t3;{
14262 C_word *av2=av;
14263 av2[0]=t4;
14264 av2[1]=C_u_i_car(t2);
14265 f_17082(2,av2);}}
14266 else{
14267 /* irregex-core.scm:1726: sre-names */
14268 f_18418(t3,((C_word*)t0)[9],C_fix(1),C_SCHEME_END_OF_LIST);}}
14269 
14270 /* k16218 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16220(C_word c,C_word * av)14271 static void C_ccall f_16220(C_word c,C_word *av){
14272 C_word tmp;
14273 C_word t0=av[0];
14274 C_word t1=av[1];
14275 C_word t2;
14276 C_word *a;
14277 C_check_for_interrupt;
14278 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
14279 C_save_and_reclaim((void *)f_16220,c,av);}
14280 a=C_alloc(9);
14281 t2=((C_word*)t0)[2];{
14282 C_word *av2=av;
14283 av2[0]=t2;
14284 av2[1]=C_a_i_record8(&a,8,lf[6],C_SCHEME_FALSE,C_SCHEME_FALSE,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
14285 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14286 
14287 /* k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16234(C_word c,C_word * av)14288 static void C_ccall f_16234(C_word c,C_word *av){
14289 C_word tmp;
14290 C_word t0=av[0];
14291 C_word t1=av[1];
14292 C_word t2;
14293 C_word t3;
14294 C_word t4;
14295 C_word t5;
14296 C_word t6;
14297 C_word t7;
14298 C_word t8;
14299 C_word t9;
14300 C_word t10;
14301 C_word *a;
14302 C_check_for_interrupt;
14303 if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
14304 C_save_and_reclaim((void *)f_16234,c,av);}
14305 a=C_alloc(21);
14306 t2=(C_truep(t1)?C_fixnum_or(((C_word*)t0)[2],C_fix(2)):((C_word*)t0)[2]);
14307 if(C_truep(((C_word*)t0)[3])){
14308 t3=((C_word*)t0)[4];{
14309 C_word *av2=av;
14310 av2[0]=t3;
14311 av2[1]=C_a_i_record8(&a,8,lf[6],((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);
14312 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
14313 else{
14314 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16220,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
14315 t4=C_a_i_list(&a,2,((C_word*)t0)[9],((C_word*)t0)[8]);
14316 t5=C_SCHEME_UNDEFINED;
14317 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
14318 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23397,a[2]=t6,a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
14319 t8=C_i_pairp(t4);
14320 t9=(C_truep(t8)?C_i_pairp(C_u_i_cdr(t4)):C_SCHEME_FALSE);
14321 if(C_truep(t9)){
14322 t10=t7;{
14323 C_word *av2=av;
14324 av2[0]=t10;
14325 av2[1]=C_i_cadr(t4);
14326 f_23397(2,av2);}}
14327 else{
14328 /* irregex-core.scm:3126: sre-names */
14329 f_18418(t7,((C_word*)t0)[10],C_fix(1),C_SCHEME_END_OF_LIST);}}}
14330 
14331 /* g2625 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16239(C_word t0,C_word t1,C_word t2)14332 static void C_fcall f_16239(C_word t0,C_word t1,C_word t2){
14333 C_word tmp;
14334 C_word t3;
14335 C_word t4;
14336 C_word t5;
14337 C_word t6;
14338 C_word *a;
14339 C_check_for_interrupt;
14340 if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
14341 C_save_and_reclaim_args((void *)trf_16239,3,t0,t1,t2);}
14342 a=C_alloc(8);
14343 t3=C_i_vector_length(t2);
14344 t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4));
14345 t5=C_fixnum_times(((C_word*)t0)[2],t4);
14346 /* irregex-core.scm:1627: nfa->dfa */
14347 f_22369(t1,t2,C_a_i_list(&a,1,t5));}
14348 
14349 /* k16263 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16265(C_word c,C_word * av)14350 static void C_ccall f_16265(C_word c,C_word *av){
14351 C_word tmp;
14352 C_word t0=av[0];
14353 C_word t1=av[1];
14354 C_word t2;
14355 C_word t3;
14356 C_word *a;
14357 C_check_for_interrupt;
14358 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
14359 C_save_and_reclaim((void *)f_16265,c,av);}
14360 a=C_alloc(4);
14361 if(C_truep(t1)){
14362 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16269,a[2]=((C_word*)t0)[2],a[3]=((C_word)li203),tmp=(C_word)a,a+=4,tmp);
14363 /* irregex-core.scm:1619: g2614 */
14364 t3=t2;
14365 f_16269(t3,((C_word*)t0)[3],t1);}
14366 else{
14367 t2=((C_word*)t0)[3];{
14368 C_word *av2=av;
14369 av2[0]=t2;
14370 av2[1]=C_SCHEME_FALSE;
14371 f_16193(2,av2);}}}
14372 
14373 /* g2614 in k16263 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_16269(C_word t0,C_word t1,C_word t2)14374 static void C_fcall f_16269(C_word t0,C_word t1,C_word t2){
14375 C_word tmp;
14376 C_word t3;
14377 C_word t4;
14378 C_word t5;
14379 C_word t6;
14380 C_word *a;
14381 C_check_for_interrupt;
14382 if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
14383 C_save_and_reclaim_args((void *)trf_16269,3,t0,t1,t2);}
14384 a=C_alloc(8);
14385 t3=C_i_vector_length(t2);
14386 t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4));
14387 t5=C_fixnum_times(((C_word*)t0)[2],t4);
14388 /* irregex-core.scm:1623: nfa->dfa */
14389 f_22369(t1,t2,C_a_i_list(&a,1,t5));}
14390 
14391 /* chicken.irregex#sre-empty? in k7761 in k7536 in k7533 */
f_16307(C_word c,C_word * av)14392 static void C_ccall f_16307(C_word c,C_word *av){
14393 C_word tmp;
14394 C_word t0=av[0];
14395 C_word t1=av[1];
14396 C_word t2=av[2];
14397 C_word t3;
14398 C_word t4;
14399 C_word t5;
14400 C_word t6;
14401 C_word t7;
14402 C_word t8;
14403 C_word t9;
14404 C_word t10;
14405 C_word *a;
14406 if(c!=3) C_bad_argc_2(c,3,t0);
14407 C_check_for_interrupt;
14408 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
14409 C_save_and_reclaim((void *)f_16307,c,av);}
14410 a=C_alloc(5);
14411 if(C_truep(C_i_pairp(t2))){
14412 t3=C_u_i_car(t2);
14413 t4=C_eqp(t3,lf[127]);
14414 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16324,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
14415 if(C_truep(t4)){
14416 t6=t5;
14417 f_16324(t6,t4);}
14418 else{
14419 t6=C_eqp(t3,lf[131]);
14420 if(C_truep(t6)){
14421 t7=t5;
14422 f_16324(t7,t6);}
14423 else{
14424 t7=C_eqp(t3,lf[111]);
14425 if(C_truep(t7)){
14426 t8=t5;
14427 f_16324(t8,t7);}
14428 else{
14429 t8=C_eqp(t3,lf[113]);
14430 if(C_truep(t8)){
14431 t9=t5;
14432 f_16324(t9,t8);}
14433 else{
14434 t9=C_eqp(t3,lf[112]);
14435 t10=t5;
14436 f_16324(t10,(C_truep(t9)?t9:C_eqp(t3,lf[114])));}}}}}
14437 else{
14438 t3=t1;{
14439 C_word *av2=av;
14440 av2[0]=t3;
14441 av2[1]=C_u_i_memq(t2,lf[276]);
14442 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14443 
14444 /* k16322 in chicken.irregex#sre-empty? in k7761 in k7536 in k7533 */
f_16324(C_word t0,C_word t1)14445 static void C_fcall f_16324(C_word t0,C_word t1){
14446 C_word tmp;
14447 C_word t2;
14448 C_word t3;
14449 C_word t4;
14450 C_word t5;
14451 C_word t6;
14452 C_word t7;
14453 C_word t8;
14454 C_word t9;
14455 C_word t10;
14456 C_word t11;
14457 C_word t12;
14458 C_word *a;
14459 C_check_for_interrupt;
14460 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
14461 C_save_and_reclaim_args((void *)trf_16324,2,t0,t1);}
14462 a=C_alloc(4);
14463 if(C_truep(t1)){
14464 t2=((C_word*)t0)[2];{
14465 C_word av2[2];
14466 av2[0]=t2;
14467 av2[1]=C_SCHEME_TRUE;
14468 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14469 else{
14470 t2=C_eqp(((C_word*)t0)[3],lf[133]);
14471 if(C_truep(t2)){
14472 t3=C_i_cadr(((C_word*)t0)[4]);
14473 t4=C_i_numberp(t3);
14474 t5=C_i_not(t4);
14475 if(C_truep(t5)){
14476 t6=((C_word*)t0)[2];{
14477 C_word av2[2];
14478 av2[0]=t6;
14479 av2[1]=t5;
14480 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
14481 else{
14482 t6=C_u_i_cdr(((C_word*)t0)[4]);
14483 t7=((C_word*)t0)[2];{
14484 C_word av2[2];
14485 av2[0]=t7;
14486 av2[1]=C_i_zerop(C_u_i_car(t6));
14487 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
14488 else{
14489 t3=C_eqp(((C_word*)t0)[3],lf[103]);
14490 if(C_truep(t3)){
14491 /* irregex-core.scm:1651: any */
14492 f_9294(((C_word*)t0)[2],lf[139],C_u_i_cdr(((C_word*)t0)[4]));}
14493 else{
14494 t4=C_eqp(((C_word*)t0)[3],lf[227]);
14495 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
14496 if(C_truep(t4)){
14497 if(C_truep(t4)){
14498 /* irregex-core.scm:1653: every */
14499 f_9337(((C_word*)t0)[2],lf[139],C_u_i_cdr(((C_word*)t0)[4]));}
14500 else{
14501 t6=((C_word*)t0)[2];{
14502 C_word av2[2];
14503 av2[0]=t6;
14504 av2[1]=C_SCHEME_FALSE;
14505 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
14506 else{
14507 t6=C_eqp(((C_word*)t0)[3],lf[115]);
14508 if(C_truep(t6)){
14509 if(C_truep(t6)){
14510 /* irregex-core.scm:1653: every */
14511 f_9337(((C_word*)t0)[2],lf[139],C_u_i_cdr(((C_word*)t0)[4]));}
14512 else{
14513 t7=((C_word*)t0)[2];{
14514 C_word av2[2];
14515 av2[0]=t7;
14516 av2[1]=C_SCHEME_FALSE;
14517 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}
14518 else{
14519 t7=C_eqp(((C_word*)t0)[3],lf[245]);
14520 if(C_truep(t7)){
14521 t8=t5;
14522 f_16367(t8,t7);}
14523 else{
14524 t8=C_eqp(((C_word*)t0)[3],lf[108]);
14525 if(C_truep(t8)){
14526 t9=t5;
14527 f_16367(t9,t8);}
14528 else{
14529 t9=C_eqp(((C_word*)t0)[3],lf[119]);
14530 if(C_truep(t9)){
14531 t10=t5;
14532 f_16367(t10,t9);}
14533 else{
14534 t10=C_eqp(((C_word*)t0)[3],lf[120]);
14535 if(C_truep(t10)){
14536 t11=t5;
14537 f_16367(t11,t10);}
14538 else{
14539 t11=C_eqp(((C_word*)t0)[3],lf[129]);
14540 t12=t5;
14541 f_16367(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[3],lf[239])));}}}}}}}}}}
14542 
14543 /* k16365 in k16322 in chicken.irregex#sre-empty? in k7761 in k7536 in k7533 */
f_16367(C_word t0,C_word t1)14544 static void C_fcall f_16367(C_word t0,C_word t1){
14545 C_word tmp;
14546 C_word t2;
14547 C_word *a;
14548 C_check_for_interrupt;
14549 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
14550 C_save_and_reclaim_args((void *)trf_16367,2,t0,t1);}
14551 if(C_truep(t1)){
14552 /* irregex-core.scm:1653: every */
14553 f_9337(((C_word*)t0)[2],lf[139],C_u_i_cdr(((C_word*)t0)[3]));}
14554 else{
14555 t2=((C_word*)t0)[2];{
14556 C_word av2[2];
14557 av2[0]=t2;
14558 av2[1]=C_SCHEME_FALSE;
14559 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
14560 
14561 /* chicken.irregex#sre-any? in k7761 in k7536 in k7533 */
f_16474(C_word c,C_word * av)14562 static void C_ccall f_16474(C_word c,C_word *av){
14563 C_word tmp;
14564 C_word t0=av[0];
14565 C_word t1=av[1];
14566 C_word t2=av[2];
14567 C_word t3;
14568 C_word t4;
14569 C_word t5;
14570 C_word t6;
14571 C_word t7;
14572 C_word t8;
14573 C_word t9;
14574 C_word t10;
14575 C_word t11;
14576 C_word *a;
14577 if(c!=3) C_bad_argc_2(c,3,t0);
14578 C_check_for_interrupt;
14579 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
14580 C_save_and_reclaim((void *)f_16474,c,av);}
14581 a=C_alloc(5);
14582 t3=C_eqp(t2,lf[124]);
14583 if(C_truep(t3)){
14584 t4=t1;{
14585 C_word *av2=av;
14586 av2[0]=t4;
14587 av2[1]=t3;
14588 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
14589 else{
14590 if(C_truep(C_i_pairp(t2))){
14591 t4=C_u_i_car(t2);
14592 t5=C_eqp(t4,lf[115]);
14593 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16497,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
14594 if(C_truep(t5)){
14595 t7=t6;
14596 f_16497(t7,t5);}
14597 else{
14598 t7=C_eqp(t4,lf[227]);
14599 if(C_truep(t7)){
14600 t8=t6;
14601 f_16497(t8,t7);}
14602 else{
14603 t8=C_eqp(t4,lf[245]);
14604 if(C_truep(t8)){
14605 t9=t6;
14606 f_16497(t9,t8);}
14607 else{
14608 t9=C_eqp(t4,lf[108]);
14609 if(C_truep(t9)){
14610 t10=t6;
14611 f_16497(t10,t9);}
14612 else{
14613 t10=C_eqp(t4,lf[119]);
14614 t11=t6;
14615 f_16497(t11,(C_truep(t10)?t10:C_eqp(t4,lf[120])));}}}}}
14616 else{
14617 t4=t1;{
14618 C_word *av2=av;
14619 av2[0]=t4;
14620 av2[1]=C_SCHEME_FALSE;
14621 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
14622 
14623 /* k16495 in chicken.irregex#sre-any? in k7761 in k7536 in k7533 */
f_16497(C_word t0,C_word t1)14624 static void C_fcall f_16497(C_word t0,C_word t1){
14625 C_word tmp;
14626 C_word t2;
14627 C_word t3;
14628 C_word t4;
14629 C_word *a;
14630 C_check_for_interrupt;
14631 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
14632 C_save_and_reclaim_args((void *)trf_16497,2,t0,t1);}
14633 if(C_truep(t1)){
14634 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){
14635 t2=C_i_cddr(((C_word*)t0)[2]);
14636 if(C_truep(C_i_nullp(t2))){
14637 t3=C_u_i_cdr(((C_word*)t0)[2]);
14638 /* irregex-core.scm:1662: sre-any? */
14639 t4=lf[277];{
14640 C_word av2[3];
14641 av2[0]=t4;
14642 av2[1]=((C_word*)t0)[3];
14643 av2[2]=C_u_i_car(t3);
14644 f_16474(3,av2);}}
14645 else{
14646 t3=((C_word*)t0)[3];{
14647 C_word av2[2];
14648 av2[0]=t3;
14649 av2[1]=C_SCHEME_FALSE;
14650 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14651 else{
14652 t2=((C_word*)t0)[3];{
14653 C_word av2[2];
14654 av2[0]=t2;
14655 av2[1]=C_SCHEME_FALSE;
14656 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
14657 else{
14658 t2=C_eqp(((C_word*)t0)[4],lf[103]);
14659 if(C_truep(t2)){
14660 /* irregex-core.scm:1663: every */
14661 f_9337(((C_word*)t0)[3],lf[277],C_u_i_cdr(((C_word*)t0)[2]));}
14662 else{
14663 t3=((C_word*)t0)[3];{
14664 C_word av2[2];
14665 av2[0]=t3;
14666 av2[1]=C_SCHEME_FALSE;
14667 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
14668 
14669 /* chicken.irregex#sre-repeater? in k7761 in k7536 in k7533 */
f_16575(C_word t1)14670 static C_word C_fcall f_16575(C_word t1){
14671 C_word tmp;
14672 C_word t2;
14673 C_word t3;
14674 C_word t4;
14675 C_word t5;
14676 C_word t6;
14677 C_word t7;
14678 C_word t8;
14679 C_stack_overflow_check;
14680 loop:{}
14681 if(C_truep(C_i_pairp(t1))){
14682 t2=C_u_i_car(t1);
14683 t3=C_u_i_memq(t2,lf[278]);
14684 if(C_truep(t3)){
14685 return(t3);}
14686 else{
14687 t4=C_u_i_car(t1);
14688 if(C_truep((C_truep(C_eqp(t4,lf[245]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[108]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[119]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[120]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[115]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[227]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){
14689 if(C_truep(C_i_pairp(C_u_i_cdr(t1)))){
14690 t5=C_i_cddr(t1);
14691 if(C_truep(C_i_nullp(t5))){
14692 t6=C_u_i_cdr(t1);
14693 t8=C_u_i_car(t6);
14694 t1=t8;
14695 goto loop;}
14696 else{
14697 return(C_SCHEME_FALSE);}}
14698 else{
14699 return(C_SCHEME_FALSE);}}
14700 else{
14701 return(C_SCHEME_FALSE);}}}
14702 else{
14703 return(C_SCHEME_FALSE);}}
14704 
14705 /* chicken.irregex#sre-bos? in k7761 in k7536 in k7533 */
f_16620(C_word c,C_word * av)14706 static void C_ccall f_16620(C_word c,C_word *av){
14707 C_word tmp;
14708 C_word t0=av[0];
14709 C_word t1=av[1];
14710 C_word t2=av[2];
14711 C_word t3;
14712 C_word t4;
14713 C_word t5;
14714 C_word t6;
14715 C_word t7;
14716 C_word t8;
14717 C_word t9;
14718 C_word t10;
14719 C_word *a;
14720 if(c!=3) C_bad_argc_2(c,3,t0);
14721 C_check_for_interrupt;
14722 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
14723 C_save_and_reclaim((void *)f_16620,c,av);}
14724 a=C_alloc(5);
14725 if(C_truep(C_i_pairp(t2))){
14726 t3=C_u_i_car(t2);
14727 t4=C_eqp(t3,lf[115]);
14728 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16637,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
14729 if(C_truep(t4)){
14730 t6=t5;
14731 f_16637(t6,t4);}
14732 else{
14733 t6=C_eqp(t3,lf[227]);
14734 if(C_truep(t6)){
14735 t7=t5;
14736 f_16637(t7,t6);}
14737 else{
14738 t7=C_eqp(t3,lf[245]);
14739 if(C_truep(t7)){
14740 t8=t5;
14741 f_16637(t8,t7);}
14742 else{
14743 t8=C_eqp(t3,lf[108]);
14744 if(C_truep(t8)){
14745 t9=t5;
14746 f_16637(t9,t8);}
14747 else{
14748 t9=C_eqp(t3,lf[119]);
14749 t10=t5;
14750 f_16637(t10,(C_truep(t9)?t9:C_eqp(t3,lf[120])));}}}}}
14751 else{
14752 t3=t1;{
14753 C_word *av2=av;
14754 av2[0]=t3;
14755 av2[1]=C_eqp(lf[186],t2);
14756 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
14757 
14758 /* k16635 in chicken.irregex#sre-bos? in k7761 in k7536 in k7533 */
f_16637(C_word t0,C_word t1)14759 static void C_fcall f_16637(C_word t0,C_word t1){
14760 C_word tmp;
14761 C_word t2;
14762 C_word t3;
14763 C_word *a;
14764 C_check_for_interrupt;
14765 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
14766 C_save_and_reclaim_args((void *)trf_16637,2,t0,t1);}
14767 if(C_truep(t1)){
14768 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){
14769 /* irregex-core.scm:1678: sre-bos? */
14770 t2=lf[279];{
14771 C_word av2[3];
14772 av2[0]=t2;
14773 av2[1]=((C_word*)t0)[3];
14774 av2[2]=C_i_cadr(((C_word*)t0)[2]);
14775 f_16620(3,av2);}}
14776 else{
14777 t2=((C_word*)t0)[3];{
14778 C_word av2[2];
14779 av2[0]=t2;
14780 av2[1]=C_SCHEME_FALSE;
14781 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
14782 else{
14783 t2=C_eqp(((C_word*)t0)[4],lf[103]);
14784 if(C_truep(t2)){
14785 /* irregex-core.scm:1679: every */
14786 f_9337(((C_word*)t0)[3],lf[279],C_u_i_cdr(((C_word*)t0)[2]));}
14787 else{
14788 t3=((C_word*)t0)[3];{
14789 C_word av2[2];
14790 av2[0]=t3;
14791 av2[1]=C_SCHEME_FALSE;
14792 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
14793 
14794 /* chicken.irregex#sre-searcher? in k7761 in k7536 in k7533 */
f_16709(C_word c,C_word * av)14795 static void C_ccall f_16709(C_word c,C_word *av){
14796 C_word tmp;
14797 C_word t0=av[0];
14798 C_word t1=av[1];
14799 C_word t2=av[2];
14800 C_word t3;
14801 C_word t4;
14802 C_word *a;
14803 if(c!=3) C_bad_argc_2(c,3,t0);
14804 C_check_for_interrupt;
14805 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
14806 C_save_and_reclaim((void *)f_16709,c,av);}
14807 a=C_alloc(4);
14808 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16713,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
14809 /* irregex-core.scm:1685: sre-bos? */
14810 t4=lf[279];{
14811 C_word *av2=av;
14812 av2[0]=t4;
14813 av2[1]=t3;
14814 av2[2]=t2;
14815 f_16620(3,av2);}}
14816 
14817 /* k16711 in chicken.irregex#sre-searcher? in k7761 in k7536 in k7533 */
f_16713(C_word c,C_word * av)14818 static void C_ccall f_16713(C_word c,C_word *av){
14819 C_word tmp;
14820 C_word t0=av[0];
14821 C_word t1=av[1];
14822 C_word t2;
14823 C_word t3;
14824 C_word t4;
14825 C_word t5;
14826 C_word t6;
14827 C_word t7;
14828 C_word t8;
14829 C_word t9;
14830 C_word t10;
14831 C_word t11;
14832 C_word *a;
14833 C_check_for_interrupt;
14834 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
14835 C_save_and_reclaim((void *)f_16713,c,av);}
14836 a=C_alloc(5);
14837 if(C_truep(t1)){
14838 t2=((C_word*)t0)[2];{
14839 C_word *av2=av;
14840 av2[0]=t2;
14841 av2[1]=t1;
14842 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14843 else{
14844 if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
14845 t2=C_u_i_car(((C_word*)t0)[3]);
14846 t3=C_eqp(t2,lf[127]);
14847 t4=(C_truep(t3)?t3:C_eqp(t2,lf[129]));
14848 if(C_truep(t4)){
14849 t5=(
14850 /* irregex-core.scm:1688: sre-sequence */
14851   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3]))
14852 );
14853 /* irregex-core.scm:1688: sre-any? */
14854 t6=lf[277];{
14855 C_word *av2;
14856 if(c >= 3) {
14857   av2=av;
14858 } else {
14859   av2=C_alloc(3);
14860 }
14861 av2[0]=t6;
14862 av2[1]=((C_word*)t0)[2];
14863 av2[2]=t5;
14864 f_16474(3,av2);}}
14865 else{
14866 t5=C_eqp(t2,lf[115]);
14867 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16750,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
14868 if(C_truep(t5)){
14869 t7=t6;
14870 f_16750(t7,t5);}
14871 else{
14872 t7=C_eqp(t2,lf[227]);
14873 if(C_truep(t7)){
14874 t8=t6;
14875 f_16750(t8,t7);}
14876 else{
14877 t8=C_eqp(t2,lf[245]);
14878 if(C_truep(t8)){
14879 t9=t6;
14880 f_16750(t9,t8);}
14881 else{
14882 t9=C_eqp(t2,lf[108]);
14883 if(C_truep(t9)){
14884 t10=t6;
14885 f_16750(t10,t9);}
14886 else{
14887 t10=C_eqp(t2,lf[119]);
14888 t11=t6;
14889 f_16750(t11,(C_truep(t10)?t10:C_eqp(t2,lf[120])));}}}}}}
14890 else{
14891 t2=((C_word*)t0)[2];{
14892 C_word *av2=av;
14893 av2[0]=t2;
14894 av2[1]=C_SCHEME_FALSE;
14895 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
14896 
14897 /* k16748 in k16711 in chicken.irregex#sre-searcher? in k7761 in k7536 in k7533 */
f_16750(C_word t0,C_word t1)14898 static void C_fcall f_16750(C_word t0,C_word t1){
14899 C_word tmp;
14900 C_word t2;
14901 C_word t3;
14902 C_word *a;
14903 C_check_for_interrupt;
14904 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
14905 C_save_and_reclaim_args((void *)trf_16750,2,t0,t1);}
14906 if(C_truep(t1)){
14907 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){
14908 /* irregex-core.scm:1690: sre-searcher? */
14909 t2=lf[271];{
14910 C_word av2[3];
14911 av2[0]=t2;
14912 av2[1]=((C_word*)t0)[3];
14913 av2[2]=C_i_cadr(((C_word*)t0)[2]);
14914 f_16709(3,av2);}}
14915 else{
14916 t2=((C_word*)t0)[3];{
14917 C_word av2[2];
14918 av2[0]=t2;
14919 av2[1]=C_SCHEME_FALSE;
14920 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
14921 else{
14922 t2=C_eqp(((C_word*)t0)[4],lf[103]);
14923 if(C_truep(t2)){
14924 /* irregex-core.scm:1691: every */
14925 f_9337(((C_word*)t0)[3],lf[271],C_u_i_cdr(((C_word*)t0)[2]));}
14926 else{
14927 t3=((C_word*)t0)[3];{
14928 C_word av2[2];
14929 av2[0]=t3;
14930 av2[1]=C_SCHEME_FALSE;
14931 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
14932 
14933 /* chicken.irregex#sre-consumer? in k7761 in k7536 in k7533 */
f_16826(C_word c,C_word * av)14934 static void C_ccall f_16826(C_word c,C_word *av){
14935 C_word tmp;
14936 C_word t0=av[0];
14937 C_word t1=av[1];
14938 C_word t2=av[2];
14939 C_word t3;
14940 C_word t4;
14941 C_word *a;
14942 if(c!=3) C_bad_argc_2(c,3,t0);
14943 C_check_for_interrupt;
14944 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
14945 C_save_and_reclaim((void *)f_16826,c,av);}
14946 a=C_alloc(4);
14947 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16830,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
14948 /* irregex-core.scm:1696: sre-bos? */
14949 t4=lf[279];{
14950 C_word *av2=av;
14951 av2[0]=t4;
14952 av2[1]=t3;
14953 av2[2]=t2;
14954 f_16620(3,av2);}}
14955 
14956 /* k16828 in chicken.irregex#sre-consumer? in k7761 in k7536 in k7533 */
f_16830(C_word c,C_word * av)14957 static void C_ccall f_16830(C_word c,C_word *av){
14958 C_word tmp;
14959 C_word t0=av[0];
14960 C_word t1=av[1];
14961 C_word t2;
14962 C_word t3;
14963 C_word t4;
14964 C_word t5;
14965 C_word t6;
14966 C_word t7;
14967 C_word t8;
14968 C_word t9;
14969 C_word t10;
14970 C_word t11;
14971 C_word *a;
14972 C_check_for_interrupt;
14973 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
14974 C_save_and_reclaim((void *)f_16830,c,av);}
14975 a=C_alloc(5);
14976 if(C_truep(t1)){
14977 t2=((C_word*)t0)[2];{
14978 C_word *av2=av;
14979 av2[0]=t2;
14980 av2[1]=t1;
14981 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
14982 else{
14983 if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
14984 t2=C_u_i_car(((C_word*)t0)[3]);
14985 t3=C_eqp(t2,lf[127]);
14986 t4=(C_truep(t3)?t3:C_eqp(t2,lf[129]));
14987 if(C_truep(t4)){
14988 t5=(
14989 /* irregex-core.scm:1699: sre-sequence */
14990   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3]))
14991 );
14992 /* irregex-core.scm:1699: sre-any? */
14993 t6=lf[277];{
14994 C_word *av2;
14995 if(c >= 3) {
14996   av2=av;
14997 } else {
14998   av2=C_alloc(3);
14999 }
15000 av2[0]=t6;
15001 av2[1]=((C_word*)t0)[2];
15002 av2[2]=t5;
15003 f_16474(3,av2);}}
15004 else{
15005 t5=C_eqp(t2,lf[115]);
15006 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16867,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
15007 if(C_truep(t5)){
15008 t7=t6;
15009 f_16867(t7,t5);}
15010 else{
15011 t7=C_eqp(t2,lf[227]);
15012 if(C_truep(t7)){
15013 t8=t6;
15014 f_16867(t8,t7);}
15015 else{
15016 t8=C_eqp(t2,lf[245]);
15017 if(C_truep(t8)){
15018 t9=t6;
15019 f_16867(t9,t8);}
15020 else{
15021 t9=C_eqp(t2,lf[108]);
15022 if(C_truep(t9)){
15023 t10=t6;
15024 f_16867(t10,t9);}
15025 else{
15026 t10=C_eqp(t2,lf[119]);
15027 t11=t6;
15028 f_16867(t11,(C_truep(t10)?t10:C_eqp(t2,lf[120])));}}}}}}
15029 else{
15030 t2=((C_word*)t0)[2];{
15031 C_word *av2=av;
15032 av2[0]=t2;
15033 av2[1]=C_SCHEME_FALSE;
15034 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
15035 
15036 /* k16865 in k16828 in chicken.irregex#sre-consumer? in k7761 in k7536 in k7533 */
f_16867(C_word t0,C_word t1)15037 static void C_fcall f_16867(C_word t0,C_word t1){
15038 C_word tmp;
15039 C_word t2;
15040 C_word t3;
15041 C_word *a;
15042 C_check_for_interrupt;
15043 if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
15044 C_save_and_reclaim_args((void *)trf_16867,2,t0,t1);}
15045 a=C_alloc(3);
15046 if(C_truep(t1)){
15047 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){
15048 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16880,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
15049 /* irregex-core.scm:1701: last */
15050 f_9256(t2,((C_word*)t0)[2]);}
15051 else{
15052 t2=((C_word*)t0)[3];{
15053 C_word av2[2];
15054 av2[0]=t2;
15055 av2[1]=C_SCHEME_FALSE;
15056 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
15057 else{
15058 t2=C_eqp(((C_word*)t0)[4],lf[103]);
15059 if(C_truep(t2)){
15060 /* irregex-core.scm:1702: every */
15061 f_9337(((C_word*)t0)[3],lf[253],C_u_i_cdr(((C_word*)t0)[2]));}
15062 else{
15063 t3=((C_word*)t0)[3];{
15064 C_word av2[2];
15065 av2[0]=t3;
15066 av2[1]=C_SCHEME_FALSE;
15067 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
15068 
15069 /* k16878 in k16865 in k16828 in chicken.irregex#sre-consumer? in k7761 in k7536 in k7533 */
f_16880(C_word c,C_word * av)15070 static void C_ccall f_16880(C_word c,C_word *av){
15071 C_word tmp;
15072 C_word t0=av[0];
15073 C_word t1=av[1];
15074 C_word t2;
15075 C_word *a;
15076 C_check_for_interrupt;
15077 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
15078 C_save_and_reclaim((void *)f_16880,c,av);}
15079 /* irregex-core.scm:1701: sre-consumer? */
15080 t2=lf[253];{
15081 C_word *av2;
15082 if(c >= 3) {
15083   av2=av;
15084 } else {
15085   av2=C_alloc(3);
15086 }
15087 av2[0]=t2;
15088 av2[1]=((C_word*)t0)[2];
15089 av2[2]=t1;
15090 f_16826(3,av2);}}
15091 
15092 /* chicken.irregex#sre-has-submatches? in k7761 in k7536 in k7533 */
f_16943(C_word c,C_word * av)15093 static void C_ccall f_16943(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=av[2];
15098 C_word t3;
15099 C_word t4;
15100 C_word t5;
15101 C_word t6;
15102 C_word t7;
15103 C_word *a;
15104 if(c!=3) C_bad_argc_2(c,3,t0);
15105 C_check_for_interrupt;
15106 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
15107 C_save_and_reclaim((void *)f_16943,c,av);}
15108 a=C_alloc(3);
15109 if(C_truep(C_i_pairp(t2))){
15110 t3=C_u_i_car(t2);
15111 t4=C_u_i_memq(t3,lf[281]);
15112 if(C_truep(t4)){
15113 t5=t1;{
15114 C_word *av2=av;
15115 av2[0]=t5;
15116 av2[1]=t4;
15117 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
15118 else{
15119 t5=C_eqp(lf[235],C_u_i_car(t2));
15120 if(C_truep(t5)){
15121 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16969,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
15122 /* irregex-core.scm:1709: string->sre */
15123 t7=*((C_word*)lf[102]+1);{
15124 C_word *av2=av;
15125 av2[0]=t7;
15126 av2[1]=t6;
15127 av2[2]=C_i_cadr(t2);
15128 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
15129 else{
15130 /* irregex-core.scm:1710: any */
15131 f_9294(t1,lf[280],C_u_i_cdr(t2));}}}
15132 else{
15133 t3=t1;{
15134 C_word *av2=av;
15135 av2[0]=t3;
15136 av2[1]=C_SCHEME_FALSE;
15137 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
15138 
15139 /* k16967 in chicken.irregex#sre-has-submatches? in k7761 in k7536 in k7533 */
f_16969(C_word c,C_word * av)15140 static void C_ccall f_16969(C_word c,C_word *av){
15141 C_word tmp;
15142 C_word t0=av[0];
15143 C_word t1=av[1];
15144 C_word t2;
15145 C_word *a;
15146 C_check_for_interrupt;
15147 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
15148 C_save_and_reclaim((void *)f_16969,c,av);}
15149 /* irregex-core.scm:1709: sre-has-submatches? */
15150 t2=lf[280];{
15151 C_word *av2;
15152 if(c >= 3) {
15153   av2=av;
15154 } else {
15155   av2=C_alloc(3);
15156 }
15157 av2[0]=t2;
15158 av2[1]=((C_word*)t0)[2];
15159 av2[2]=t1;
15160 f_16943(3,av2);}}
15161 
15162 /* chicken.irregex#sre-count-submatches in k7761 in k7536 in k7533 */
f_16982(C_word t1,C_word t2)15163 static void C_fcall f_16982(C_word t1,C_word t2){
15164 C_word tmp;
15165 C_word t3;
15166 C_word t4;
15167 C_word t5;
15168 C_word t6;
15169 C_word *a;
15170 C_check_for_interrupt;
15171 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
15172 C_save_and_reclaim_args((void *)trf_16982,2,t1,t2);}
15173 a=C_alloc(6);
15174 t3=C_SCHEME_UNDEFINED;
15175 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
15176 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16988,a[2]=t4,a[3]=((C_word)li221),tmp=(C_word)a,a+=4,tmp));
15177 t6=((C_word*)t4)[1];{
15178 C_word av2[4];
15179 av2[0]=t6;
15180 av2[1]=t1;
15181 av2[2]=t2;
15182 av2[3]=C_fix(0);
15183 f_16988(4,av2);}}
15184 
15185 /* count in chicken.irregex#sre-count-submatches in k7761 in k7536 in k7533 */
f_16988(C_word c,C_word * av)15186 static void C_ccall f_16988(C_word c,C_word *av){
15187 C_word tmp;
15188 C_word t0=av[0];
15189 C_word t1=av[1];
15190 C_word t2=av[2];
15191 C_word t3=av[3];
15192 C_word t4;
15193 C_word t5;
15194 C_word t6;
15195 C_word t7;
15196 C_word t8;
15197 C_word t9;
15198 C_word t10;
15199 C_word *a;
15200 if(c!=4) C_bad_argc_2(c,4,t0);
15201 C_check_for_interrupt;
15202 if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
15203 C_save_and_reclaim((void *)f_16988,c,av);}
15204 a=C_alloc(14);
15205 if(C_truep(C_i_pairp(t2))){
15206 t4=C_u_i_car(t2);
15207 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17009,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
15208 t6=C_eqp(t4,lf[245]);
15209 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17015,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
15210 if(C_truep(t6)){
15211 t8=t7;
15212 f_17015(t8,t6);}
15213 else{
15214 t8=C_eqp(t4,lf[108]);
15215 if(C_truep(t8)){
15216 t9=t7;
15217 f_17015(t9,t8);}
15218 else{
15219 t9=C_eqp(t4,lf[119]);
15220 t10=t7;
15221 f_17015(t10,(C_truep(t9)?t9:C_eqp(t4,lf[120])));}}}
15222 else{
15223 t4=t1;{
15224 C_word *av2=av;
15225 av2[0]=t4;
15226 av2[1]=t3;
15227 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
15228 
15229 /* k17007 in count in chicken.irregex#sre-count-submatches in k7761 in k7536 in k7533 */
f_17009(C_word c,C_word * av)15230 static void C_ccall f_17009(C_word c,C_word *av){
15231 C_word tmp;
15232 C_word t0=av[0];
15233 C_word t1=av[1];
15234 C_word t2;
15235 C_word *a;
15236 C_check_for_interrupt;
15237 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
15238 C_save_and_reclaim((void *)f_17009,c,av);}
15239 /* irregex-core.scm:1715: fold */
15240 f_9382(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fixnum_plus(((C_word*)t0)[4],t1),C_u_i_cdr(((C_word*)t0)[5]));}
15241 
15242 /* k17013 in count in chicken.irregex#sre-count-submatches in k7761 in k7536 in k7533 */
f_17015(C_word t0,C_word t1)15243 static void C_fcall f_17015(C_word t0,C_word t1){
15244 C_word tmp;
15245 C_word t2;
15246 C_word t3;
15247 C_word t4;
15248 C_word t5;
15249 C_word *a;
15250 C_check_for_interrupt;
15251 if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){
15252 C_save_and_reclaim_args((void *)trf_17015,2,t0,t1);}
15253 a=C_alloc(29);
15254 if(C_truep(t1)){
15255 /* irregex-core.scm:1715: fold */
15256 f_9382(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_u_i_cdr(((C_word*)t0)[5]));}
15257 else{
15258 t2=C_eqp(((C_word*)t0)[6],lf[244]);
15259 if(C_truep(t2)){
15260 t3=C_fixnum_plus(C_i_cadr(((C_word*)t0)[5]),C_i_caddr(((C_word*)t0)[5]));
15261 /* irregex-core.scm:1715: fold */
15262 f_9382(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fixnum_plus(((C_word*)t0)[4],t3),C_u_i_cdr(((C_word*)t0)[5]));}
15263 else{
15264 t3=C_eqp(((C_word*)t0)[6],lf[235]);
15265 if(C_truep(t3)){
15266 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17045,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp);
15267 /* irregex-core.scm:1720: string->sre */
15268 t5=*((C_word*)lf[102]+1);{
15269 C_word av2[3];
15270 av2[0]=t5;
15271 av2[1]=t4;
15272 av2[2]=C_i_cadr(((C_word*)t0)[5]);
15273 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
15274 else{
15275 t4=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(0));
15276 /* irregex-core.scm:1715: fold */
15277 f_9382(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t4,C_u_i_cdr(((C_word*)t0)[5]));}}}}
15278 
15279 /* k17043 in k17013 in count in chicken.irregex#sre-count-submatches in k7761 in k7536 in k7533 */
f_17045(C_word c,C_word * av)15280 static void C_ccall f_17045(C_word c,C_word *av){
15281 C_word tmp;
15282 C_word t0=av[0];
15283 C_word t1=av[1];
15284 C_word t2;
15285 C_word *a;
15286 C_check_for_interrupt;
15287 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
15288 C_save_and_reclaim((void *)f_17045,c,av);}
15289 /* irregex-core.scm:1720: sre-count-submatches */
15290 f_16982(((C_word*)t0)[2],t1);}
15291 
15292 /* k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17082(C_word c,C_word * av)15293 static void C_ccall f_17082(C_word c,C_word *av){
15294 C_word tmp;
15295 C_word t0=av[0];
15296 C_word t1=av[1];
15297 C_word t2;
15298 C_word t3;
15299 C_word t4;
15300 C_word *a;
15301 C_check_for_interrupt;
15302 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
15303 C_save_and_reclaim((void *)f_17082,c,av);}
15304 a=C_alloc(15);
15305 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17085,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]=t1,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
15306 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18182,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
15307 /* irregex-core.scm:1727: sre-count-submatches */
15308 f_16982(t3,((C_word*)t0)[10]);}
15309 
15310 /* k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17085(C_word c,C_word * av)15311 static void C_ccall f_17085(C_word c,C_word *av){
15312 C_word tmp;
15313 C_word t0=av[0];
15314 C_word t1=av[1];
15315 C_word t2;
15316 C_word t3;
15317 C_word t4;
15318 C_word t5;
15319 C_word t6;
15320 C_word *a;
15321 C_check_for_interrupt;
15322 if(C_unlikely(!C_demand(C_calculate_demand(19,c,7)))){
15323 C_save_and_reclaim((void *)f_17085,c,av);}
15324 a=C_alloc(19);
15325 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17092,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);
15326 t3=C_SCHEME_UNDEFINED;
15327 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
15328 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17094,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=((C_word)li201),tmp=(C_word)a,a+=6,tmp));
15329 t6=((C_word*)t4)[1];
15330 f_17094(t6,t2,((C_word*)t0)[11],C_fix(1),C_fix(0),C_fix(0),*((C_word*)lf[266]+1));}
15331 
15332 /* k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17092(C_word c,C_word * av)15333 static void C_ccall f_17092(C_word c,C_word *av){
15334 C_word tmp;
15335 C_word t0=av[0];
15336 C_word t1=av[1];
15337 C_word t2;
15338 C_word t3;
15339 C_word t4;
15340 C_word t5;
15341 C_word *a;
15342 C_check_for_interrupt;
15343 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
15344 C_save_and_reclaim((void *)f_17092,c,av);}
15345 a=C_alloc(11);
15346 t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1);
15347 t3=(C_truep(((C_word*)t0)[3])?C_fixnum_or(C_fix(0),C_fix(1)):C_fix(0));
15348 t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16234,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)[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],tmp=(C_word)a,a+=11,tmp);
15349 /* irregex-core.scm:1634: sre-consumer? */
15350 t5=lf[253];{
15351 C_word *av2;
15352 if(c >= 3) {
15353   av2=av;
15354 } else {
15355   av2=C_alloc(3);
15356 }
15357 av2[0]=t5;
15358 av2[1]=t4;
15359 av2[2]=((C_word*)t0)[10];
15360 f_16826(3,av2);}}
15361 
15362 /* lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17094(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6)15363 static void C_fcall f_17094(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
15364 C_word tmp;
15365 C_word t7;
15366 C_word t8;
15367 C_word t9;
15368 C_word t10;
15369 C_word t11;
15370 C_word t12;
15371 C_word t13;
15372 C_word t14;
15373 C_word t15;
15374 C_word t16;
15375 C_word t17;
15376 C_word t18;
15377 C_word t19;
15378 C_word *a;
15379 loop:
15380 C_check_for_interrupt;
15381 if(C_unlikely(!C_demand(C_calculate_demand(19,0,6)))){
15382 C_save_and_reclaim_args((void *)trf_17094,7,t0,t1,t2,t3,t4,t5,t6);}
15383 a=C_alloc(19);
15384 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17097,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=((C_word)li186),tmp=(C_word)a,a+=6,tmp);
15385 if(C_truep(C_i_pairp(t2))){
15386 if(C_truep(C_i_stringp(C_u_i_car(t2)))){
15387 /* irregex-core.scm:1736: grow */
15388 t8=t7;
15389 f_17097(t8,t1,C_fix(1));}
15390 else{
15391 t8=C_u_i_car(t2);
15392 t9=C_eqp(t8,lf[52]);
15393 t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17137,a[2]=t7,a[3]=t1,a[4]=t8,a[5]=((C_word*)t0)[2],a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t2,a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[4],tmp=(C_word)a,a+=13,tmp);
15394 if(C_truep(t9)){
15395 t11=t10;
15396 f_17137(t11,t9);}
15397 else{
15398 t11=C_eqp(t8,lf[179]);
15399 if(C_truep(t11)){
15400 t12=t10;
15401 f_17137(t12,t11);}
15402 else{
15403 t12=C_eqp(t8,lf[234]);
15404 t13=t10;
15405 f_17137(t13,(C_truep(t12)?t12:C_eqp(t8,lf[247])));}}}}
15406 else{
15407 if(C_truep(C_charp(t2))){
15408 /* irregex-core.scm:1851: grow */
15409 t8=t7;
15410 f_17097(t8,t1,C_fix(1));}
15411 else{
15412 if(C_truep(C_i_stringp(t2))){
15413 /* irregex-core.scm:1853: grow */
15414 t8=t7;
15415 f_17097(t8,t1,C_block_size(t2));}
15416 else{
15417 if(C_truep((C_truep(C_eqp(t2,lf[124]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[125]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
15418 /* irregex-core.scm:1855: grow */
15419 t8=t7;
15420 f_17097(t8,t1,C_fix(1));}
15421 else{
15422 if(C_truep((C_truep(C_eqp(t2,lf[110]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[186]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[187]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[195]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[196]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[183]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[184]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[185]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[264]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))))){
15423 /* irregex-core.scm:1857: return */
15424 t8=t6;{
15425 C_word av2[4];
15426 av2[0]=t8;
15427 av2[1]=t1;
15428 av2[2]=t4;
15429 av2[3]=t5;
15430 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
15431 else{
15432 t8=C_i_assq(t2,lf[248]);
15433 if(C_truep(t8)){
15434 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18159,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
15435 t10=C_i_cdr(t8);
15436 if(C_truep(C_i_closurep(t10))){
15437 /* irregex-core.scm:1861: g3031 */
15438 t11=C_u_i_cdr(t8);{
15439 C_word av2[2];
15440 av2[0]=t11;
15441 av2[1]=t9;
15442 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
15443 else{
15444 /* irregex-core.scm:1861: lp */
15445 t14=t1;
15446 t15=C_u_i_cdr(t8);
15447 t16=t3;
15448 t17=t4;
15449 t18=t5;
15450 t19=t6;
15451 t1=t14;
15452 t2=t15;
15453 t3=t16;
15454 t4=t17;
15455 t5=t18;
15456 t6=t19;
15457 goto loop;}}
15458 else{
15459 /* irregex-core.scm:1863: chicken.base#error */
15460 t9=*((C_word*)lf[30]+1);{
15461 C_word av2[5];
15462 av2[0]=t9;
15463 av2[1]=t1;
15464 av2[2]=lf[261];
15465 av2[3]=lf[265];
15466 av2[4]=t2;
15467 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}}}}}
15468 
15469 /* grow in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17097(C_word t0,C_word t1,C_word t2)15470 static void C_fcall f_17097(C_word t0,C_word t1,C_word t2){
15471 C_word tmp;
15472 C_word t3;
15473 C_word t4;
15474 C_word *a;
15475 C_check_for_interrupt;
15476 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
15477 C_save_and_reclaim_args((void *)trf_17097,3,t0,t1,t2);}
15478 t3=C_fixnum_plus(((C_word*)t0)[2],t2);
15479 if(C_truep(((C_word*)t0)[3])){
15480 /* irregex-core.scm:1732: return */
15481 t4=((C_word*)t0)[4];{
15482 C_word av2[4];
15483 av2[0]=t4;
15484 av2[1]=t1;
15485 av2[2]=t3;
15486 av2[3]=C_fixnum_plus(((C_word*)t0)[3],t2);
15487 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
15488 else{
15489 /* irregex-core.scm:1732: return */
15490 t4=((C_word*)t0)[4];{
15491 C_word av2[4];
15492 av2[0]=t4;
15493 av2[1]=t1;
15494 av2[2]=t3;
15495 av2[3]=C_SCHEME_FALSE;
15496 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
15497 
15498 /* k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17137(C_word t0,C_word t1)15499 static void C_fcall f_17137(C_word t0,C_word t1){
15500 C_word tmp;
15501 C_word t2;
15502 C_word t3;
15503 C_word t4;
15504 C_word t5;
15505 C_word t6;
15506 C_word t7;
15507 C_word t8;
15508 C_word *a;
15509 C_check_for_interrupt;
15510 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
15511 C_save_and_reclaim_args((void *)trf_17137,2,t0,t1);}
15512 a=C_alloc(12);
15513 if(C_truep(t1)){
15514 /* irregex-core.scm:1739: grow */
15515 t2=((C_word*)t0)[2];
15516 f_17097(t2,((C_word*)t0)[3],C_fix(1));}
15517 else{
15518 t2=C_eqp(((C_word*)t0)[4],lf[235]);
15519 if(C_truep(t2)){
15520 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17153,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
15521 /* irregex-core.scm:1741: string->sre */
15522 t4=*((C_word*)lf[102]+1);{
15523 C_word av2[3];
15524 av2[0]=t4;
15525 av2[1]=t3;
15526 av2[2]=C_i_cadr(((C_word*)t0)[10]);
15527 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
15528 else{
15529 t3=C_eqp(((C_word*)t0)[4],lf[115]);
15530 t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17166,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp);
15531 if(C_truep(t3)){
15532 t5=t4;
15533 f_17166(t5,t3);}
15534 else{
15535 t5=C_eqp(((C_word*)t0)[4],lf[227]);
15536 if(C_truep(t5)){
15537 t6=t4;
15538 f_17166(t6,t5);}
15539 else{
15540 t6=C_eqp(((C_word*)t0)[4],lf[225]);
15541 if(C_truep(t6)){
15542 t7=t4;
15543 f_17166(t7,t6);}
15544 else{
15545 t7=C_eqp(((C_word*)t0)[4],lf[226]);
15546 t8=t4;
15547 f_17166(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[239])));}}}}}}
15548 
15549 /* k17151 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17153(C_word c,C_word * av)15550 static void C_ccall f_17153(C_word c,C_word *av){
15551 C_word tmp;
15552 C_word t0=av[0];
15553 C_word t1=av[1];
15554 C_word t2;
15555 C_word *a;
15556 C_check_for_interrupt;
15557 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
15558 C_save_and_reclaim((void *)f_17153,c,av);}
15559 /* irregex-core.scm:1741: lp */
15560 t2=((C_word*)((C_word*)t0)[2])[1];
15561 f_17094(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
15562 
15563 /* k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17166(C_word t0,C_word t1)15564 static void C_fcall f_17166(C_word t0,C_word t1){
15565 C_word tmp;
15566 C_word t2;
15567 C_word t3;
15568 C_word t4;
15569 C_word t5;
15570 C_word t6;
15571 C_word t7;
15572 C_word t8;
15573 C_word t9;
15574 C_word *a;
15575 C_check_for_interrupt;
15576 if(C_unlikely(!C_demand(C_calculate_demand(12,0,6)))){
15577 C_save_and_reclaim_args((void *)trf_17166,2,t0,t1);}
15578 a=C_alloc(12);
15579 if(C_truep(t1)){
15580 t2=C_u_i_cdr(((C_word*)t0)[2]);
15581 t3=C_SCHEME_UNDEFINED;
15582 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
15583 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17173,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=((C_word*)t0)[6],a[7]=((C_word)li188),tmp=(C_word)a,a+=8,tmp));
15584 t6=((C_word*)t4)[1];
15585 f_17173(t6,((C_word*)t0)[7],t2,((C_word*)t0)[8],C_fix(0),C_fix(0));}
15586 else{
15587 t2=C_eqp(((C_word*)t0)[9],lf[103]);
15588 if(C_truep(t2)){
15589 t3=C_u_i_cdr(((C_word*)t0)[2]);
15590 t4=C_SCHEME_UNDEFINED;
15591 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
15592 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17251,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word*)t0)[6],a[7]=((C_word)li190),tmp=(C_word)a,a+=8,tmp));
15593 t7=((C_word*)t5)[1];
15594 f_17251(t7,((C_word*)t0)[7],t3,((C_word*)t0)[8],C_SCHEME_FALSE,C_fix(0));}
15595 else{
15596 t3=C_eqp(((C_word*)t0)[9],lf[109]);
15597 if(C_truep(t3)){
15598 t4=C_i_nullp(C_u_i_cdr(((C_word*)t0)[2]));
15599 t5=(C_truep(t4)?t4:C_i_nullp(C_i_cddr(((C_word*)t0)[2])));
15600 if(C_truep(t5)){
15601 /* irregex-core.scm:1765: return */
15602 t6=((C_word*)t0)[5];{
15603 C_word av2[4];
15604 av2[0]=t6;
15605 av2[1]=((C_word*)t0)[7];
15606 av2[2]=((C_word*)t0)[3];
15607 av2[3]=((C_word*)t0)[4];
15608 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
15609 else{
15610 t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],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)[4],tmp=(C_word)a,a+=9,tmp);
15611 /* irregex-core.scm:1767: sre-count-submatches */
15612 f_16982(t6,C_u_i_car(((C_word*)t0)[2]));}}
15613 else{
15614 t4=C_eqp(((C_word*)t0)[9],lf[244]);
15615 if(C_truep(t4)){
15616 t5=(
15617 /* irregex-core.scm:1786: sre-sequence */
15618   f_18191(C_a_i(&a,3),C_i_cdddr(((C_word*)t0)[2]))
15619 );
15620 t6=C_i_cadr(((C_word*)t0)[2]);
15621 /* irregex-core.scm:1786: lp */
15622 t7=((C_word*)((C_word*)t0)[6])[1];
15623 f_17094(t7,((C_word*)t0)[7],t5,C_fixnum_plus(((C_word*)t0)[8],t6),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
15624 else{
15625 t5=C_eqp(((C_word*)t0)[9],lf[245]);
15626 t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
15627 if(C_truep(t5)){
15628 t7=t6;
15629 f_17490(t7,t5);}
15630 else{
15631 t7=C_eqp(((C_word*)t0)[9],lf[108]);
15632 if(C_truep(t7)){
15633 t8=t6;
15634 f_17490(t8,t7);}
15635 else{
15636 t8=C_eqp(((C_word*)t0)[9],lf[119]);
15637 t9=t6;
15638 f_17490(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[120])));}}}}}}}
15639 
15640 /* lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17173(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)15641 static void C_fcall f_17173(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
15642 C_word tmp;
15643 C_word t6;
15644 C_word t7;
15645 C_word t8;
15646 C_word *a;
15647 C_check_for_interrupt;
15648 if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){
15649 C_save_and_reclaim_args((void *)trf_17173,6,t0,t1,t2,t3,t4,t5);}
15650 a=C_alloc(8);
15651 if(C_truep(C_i_nullp(t2))){
15652 t6=C_fixnum_plus(((C_word*)t0)[2],t4);
15653 if(C_truep(((C_word*)t0)[3])){
15654 if(C_truep(t5)){
15655 /* irregex-core.scm:1745: return */
15656 t7=((C_word*)t0)[4];{
15657 C_word av2[4];
15658 av2[0]=t7;
15659 av2[1]=t1;
15660 av2[2]=t6;
15661 av2[3]=C_fixnum_plus(((C_word*)t0)[3],t5);
15662 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
15663 else{
15664 /* irregex-core.scm:1745: return */
15665 t7=((C_word*)t0)[4];{
15666 C_word av2[4];
15667 av2[0]=t7;
15668 av2[1]=t1;
15669 av2[2]=t6;
15670 av2[3]=C_SCHEME_FALSE;
15671 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
15672 else{
15673 /* irregex-core.scm:1745: return */
15674 t7=((C_word*)t0)[4];{
15675 C_word av2[4];
15676 av2[0]=t7;
15677 av2[1]=t1;
15678 av2[2]=t6;
15679 av2[3]=C_SCHEME_FALSE;
15680 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
15681 else{
15682 t6=C_i_car(t2);
15683 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17206,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word)li187),tmp=(C_word)a,a+=8,tmp);
15684 /* irregex-core.scm:1746: lp */
15685 t8=((C_word*)((C_word*)t0)[6])[1];
15686 f_17094(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}}
15687 
15688 /* a17205 in lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17206(C_word c,C_word * av)15689 static void C_ccall f_17206(C_word c,C_word *av){
15690 C_word tmp;
15691 C_word t0=av[0];
15692 C_word t1=av[1];
15693 C_word t2=av[2];
15694 C_word t3=av[3];
15695 C_word t4;
15696 C_word t5;
15697 C_word t6;
15698 C_word *a;
15699 if(c!=4) C_bad_argc_2(c,4,t0);
15700 C_check_for_interrupt;
15701 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
15702 C_save_and_reclaim((void *)f_17206,c,av);}
15703 a=C_alloc(10);
15704 t4=C_i_cdr(((C_word*)t0)[2]);
15705 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17236,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t3,a[7]=((C_word*)t0)[6],a[8]=t1,a[9]=t4,tmp=(C_word)a,a+=10,tmp);
15706 /* irregex-core.scm:1749: sre-count-submatches */
15707 f_16982(t5,C_u_i_car(((C_word*)t0)[2]));}
15708 
15709 /* k17234 in a17205 in lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17236(C_word c,C_word * av)15710 static void C_ccall f_17236(C_word c,C_word *av){
15711 C_word tmp;
15712 C_word t0=av[0];
15713 C_word t1=av[1];
15714 C_word t2;
15715 C_word t3;
15716 C_word t4;
15717 C_word *a;
15718 C_check_for_interrupt;
15719 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
15720 C_save_and_reclaim((void *)f_17236,c,av);}
15721 t2=C_fixnum_plus(((C_word*)t0)[2],t1);
15722 t3=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]);
15723 if(C_truep(((C_word*)t0)[5])){
15724 if(C_truep(((C_word*)t0)[6])){
15725 /* irregex-core.scm:1748: lp2 */
15726 t4=((C_word*)((C_word*)t0)[7])[1];
15727 f_17173(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]));}
15728 else{
15729 /* irregex-core.scm:1748: lp2 */
15730 t4=((C_word*)((C_word*)t0)[7])[1];
15731 f_17173(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}}
15732 else{
15733 /* irregex-core.scm:1748: lp2 */
15734 t4=((C_word*)((C_word*)t0)[7])[1];
15735 f_17173(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}}
15736 
15737 /* lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17251(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)15738 static void C_fcall f_17251(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
15739 C_word tmp;
15740 C_word t6;
15741 C_word t7;
15742 C_word t8;
15743 C_word *a;
15744 C_check_for_interrupt;
15745 if(C_unlikely(!C_demand(C_calculate_demand(8,0,6)))){
15746 C_save_and_reclaim_args((void *)trf_17251,6,t0,t1,t2,t3,t4,t5);}
15747 a=C_alloc(8);
15748 if(C_truep(C_i_nullp(t2))){
15749 t6=(C_truep(t4)?C_fixnum_plus(((C_word*)t0)[2],t4):C_fixnum_plus(((C_word*)t0)[2],C_fix(1)));
15750 if(C_truep(((C_word*)t0)[3])){
15751 if(C_truep(t5)){
15752 /* irregex-core.scm:1755: return */
15753 t7=((C_word*)t0)[4];{
15754 C_word av2[4];
15755 av2[0]=t7;
15756 av2[1]=t1;
15757 av2[2]=t6;
15758 av2[3]=C_fixnum_plus(((C_word*)t0)[3],t5);
15759 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
15760 else{
15761 /* irregex-core.scm:1755: return */
15762 t7=((C_word*)t0)[4];{
15763 C_word av2[4];
15764 av2[0]=t7;
15765 av2[1]=t1;
15766 av2[2]=t6;
15767 av2[3]=C_SCHEME_FALSE;
15768 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
15769 else{
15770 /* irregex-core.scm:1755: return */
15771 t7=((C_word*)t0)[4];{
15772 C_word av2[4];
15773 av2[0]=t7;
15774 av2[1]=t1;
15775 av2[2]=t6;
15776 av2[3]=C_SCHEME_FALSE;
15777 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
15778 else{
15779 t6=C_i_car(t2);
15780 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17288,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=t4,a[7]=((C_word)li189),tmp=(C_word)a,a+=8,tmp);
15781 /* irregex-core.scm:1756: lp */
15782 t8=((C_word*)((C_word*)t0)[6])[1];
15783 f_17094(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}}
15784 
15785 /* a17287 in lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17288(C_word c,C_word * av)15786 static void C_ccall f_17288(C_word c,C_word *av){
15787 C_word tmp;
15788 C_word t0=av[0];
15789 C_word t1=av[1];
15790 C_word t2=av[2];
15791 C_word t3=av[3];
15792 C_word t4;
15793 C_word t5;
15794 C_word t6;
15795 C_word *a;
15796 if(c!=4) C_bad_argc_2(c,4,t0);
15797 C_check_for_interrupt;
15798 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
15799 C_save_and_reclaim((void *)f_17288,c,av);}
15800 a=C_alloc(10);
15801 t4=C_i_cdr(((C_word*)t0)[2]);
15802 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17321,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=t2,tmp=(C_word)a,a+=10,tmp);
15803 /* irregex-core.scm:1759: sre-count-submatches */
15804 f_16982(t5,C_u_i_car(((C_word*)t0)[2]));}
15805 
15806 /* k17302 in k17319 in a17287 in lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_17304(C_word c,C_word * av)15807 static void C_ccall f_17304(C_word c,C_word *av){
15808 C_word tmp;
15809 C_word t0=av[0];
15810 C_word t1=av[1];
15811 C_word t2;
15812 C_word t3;
15813 C_word *a;
15814 C_check_for_interrupt;
15815 if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
15816 C_save_and_reclaim((void *)f_17304,c,av);}
15817 a=C_alloc(7);
15818 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17308,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,tmp=(C_word)a,a+=7,tmp);
15819 if(C_truep(((C_word*)t0)[6])){
15820 if(C_truep(((C_word*)t0)[7])){
15821 /* irregex-core.scm:1761: scheme#max */
15822 t3=*((C_word*)lf[254]+1);{
15823 C_word *av2;
15824 if(c >= 4) {
15825   av2=av;
15826 } else {
15827   av2=C_alloc(4);
15828 }
15829 av2[0]=t3;
15830 av2[1]=t2;
15831 av2[2]=((C_word*)t0)[6];
15832 av2[3]=((C_word*)t0)[7];
15833 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
15834 else{
15835 /* irregex-core.scm:1758: lp2 */
15836 t3=((C_word*)((C_word*)t0)[2])[1];
15837 f_17251(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE);}}
15838 else{
15839 /* irregex-core.scm:1758: lp2 */
15840 t3=((C_word*)((C_word*)t0)[2])[1];
15841 f_17251(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE);}}
15842 
15843 /* k17306 in k17302 in k17319 in a17287 in lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_17308(C_word c,C_word * av)15844 static void C_ccall f_17308(C_word c,C_word *av){
15845 C_word tmp;
15846 C_word t0=av[0];
15847 C_word t1=av[1];
15848 C_word t2;
15849 C_word *a;
15850 C_check_for_interrupt;
15851 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
15852 C_save_and_reclaim((void *)f_17308,c,av);}
15853 /* irregex-core.scm:1758: lp2 */
15854 t2=((C_word*)((C_word*)t0)[2])[1];
15855 f_17251(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}
15856 
15857 /* k17319 in a17287 in lp2 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17321(C_word c,C_word * av)15858 static void C_ccall f_17321(C_word c,C_word *av){
15859 C_word tmp;
15860 C_word t0=av[0];
15861 C_word t1=av[1];
15862 C_word t2;
15863 C_word t3;
15864 C_word t4;
15865 C_word *a;
15866 C_check_for_interrupt;
15867 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
15868 C_save_and_reclaim((void *)f_17321,c,av);}
15869 a=C_alloc(8);
15870 t2=C_fixnum_plus(((C_word*)t0)[2],t1);
15871 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17304,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],tmp=(C_word)a,a+=8,tmp);
15872 if(C_truep(((C_word*)t0)[8])){
15873 /* irregex-core.scm:1760: scheme#min */
15874 t4=*((C_word*)lf[255]+1);{
15875 C_word *av2;
15876 if(c >= 4) {
15877   av2=av;
15878 } else {
15879   av2=C_alloc(4);
15880 }
15881 av2[0]=t4;
15882 av2[1]=t3;
15883 av2[2]=((C_word*)t0)[8];
15884 av2[3]=((C_word*)t0)[9];
15885 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
15886 else{
15887 t4=t3;{
15888 C_word *av2=av;
15889 av2[0]=t4;
15890 av2[1]=((C_word*)t0)[9];
15891 f_17304(2,av2);}}}
15892 
15893 /* k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17344(C_word c,C_word * av)15894 static void C_ccall f_17344(C_word c,C_word *av){
15895 C_word tmp;
15896 C_word t0=av[0];
15897 C_word t1=av[1];
15898 C_word t2;
15899 C_word t3;
15900 C_word *a;
15901 C_check_for_interrupt;
15902 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
15903 C_save_and_reclaim((void *)f_17344,c,av);}
15904 a=C_alloc(10);
15905 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17347,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);
15906 /* irregex-core.scm:1768: sre-count-submatches */
15907 f_16982(t2,C_i_cadr(((C_word*)t0)[2]));}
15908 
15909 /* k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17347(C_word c,C_word * av)15910 static void C_ccall f_17347(C_word c,C_word *av){
15911 C_word tmp;
15912 C_word t0=av[0];
15913 C_word t1=av[1];
15914 C_word t2;
15915 C_word t3;
15916 C_word t4;
15917 C_word t5;
15918 C_word t6;
15919 C_word t7;
15920 C_word *a;
15921 C_check_for_interrupt;
15922 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
15923 C_save_and_reclaim((void *)f_17347,c,av);}
15924 a=C_alloc(11);
15925 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17354,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],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
15926 t3=C_i_cadr(((C_word*)t0)[2]);
15927 t4=C_i_numberp(t3);
15928 if(C_truep(t4)){
15929 t5=t2;
15930 f_17354(t5,(C_truep(t4)?lf[110]:C_u_i_car(C_u_i_cdr(((C_word*)t0)[2]))));}
15931 else{
15932 t5=C_u_i_cdr(((C_word*)t0)[2]);
15933 t6=C_i_symbolp(C_u_i_car(t5));
15934 t7=t2;
15935 f_17354(t7,(C_truep(t6)?lf[110]:C_u_i_car(C_u_i_cdr(((C_word*)t0)[2]))));}}
15936 
15937 /* k17352 in k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17354(C_word t0,C_word t1)15938 static void C_fcall f_17354(C_word t0,C_word t1){
15939 C_word tmp;
15940 C_word t2;
15941 C_word t3;
15942 C_word *a;
15943 C_check_for_interrupt;
15944 if(C_unlikely(!C_demand(C_calculate_demand(9,0,6)))){
15945 C_save_and_reclaim_args((void *)trf_17354,2,t0,t1);}
15946 a=C_alloc(9);
15947 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17356,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)li193),tmp=(C_word)a,a+=9,tmp);
15948 /* irregex-core.scm:1769: lp */
15949 t3=((C_word*)((C_word*)t0)[7])[1];
15950 f_17094(t3,((C_word*)t0)[8],t1,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],t2);}
15951 
15952 /* a17355 in k17352 in k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_17356(C_word c,C_word * av)15953 static void C_ccall f_17356(C_word c,C_word *av){
15954 C_word tmp;
15955 C_word t0=av[0];
15956 C_word t1=av[1];
15957 C_word t2=av[2];
15958 C_word t3=av[3];
15959 C_word t4;
15960 C_word t5;
15961 C_word t6;
15962 C_word t7;
15963 C_word *a;
15964 if(c!=4) C_bad_argc_2(c,4,t0);
15965 C_check_for_interrupt;
15966 if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){
15967 C_save_and_reclaim((void *)f_17356,c,av);}
15968 a=C_alloc(11);
15969 t4=C_i_caddr(((C_word*)t0)[2]);
15970 t5=C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]);
15971 t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17370,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]=t2,a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li192),tmp=(C_word)a,a+=11,tmp);
15972 /* irregex-core.scm:1774: lp */
15973 t7=((C_word*)((C_word*)t0)[7])[1];
15974 f_17094(t7,t1,t4,t5,C_fix(0),C_fix(0),t6);}
15975 
15976 /* a17369 in a17355 in k17352 in k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_17370(C_word c,C_word * av)15977 static void C_ccall f_17370(C_word c,C_word *av){
15978 C_word tmp;
15979 C_word t0=av[0];
15980 C_word t1=av[1];
15981 C_word t2=av[2];
15982 C_word t3=av[3];
15983 C_word t4;
15984 C_word t5;
15985 C_word t6;
15986 C_word t7;
15987 C_word t8;
15988 C_word t9;
15989 C_word *a;
15990 if(c!=4) C_bad_argc_2(c,4,t0);
15991 C_check_for_interrupt;
15992 if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){
15993 C_save_and_reclaim((void *)f_17370,c,av);}
15994 a=C_alloc(8);
15995 t4=C_i_cdddr(((C_word*)t0)[2]);
15996 t5=C_i_pairp(t4);
15997 t6=(C_truep(t5)?C_i_cadddr(((C_word*)t0)[2]):lf[110]);
15998 t7=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]),((C_word*)t0)[5]);
15999 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17384,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t3,a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=((C_word)li191),tmp=(C_word)a,a+=8,tmp);
16000 /* irregex-core.scm:1776: lp */
16001 t9=((C_word*)((C_word*)t0)[9])[1];
16002 f_17094(t9,t1,t6,t7,C_fix(0),C_fix(0),t8);}
16003 
16004 /* a17383 in a17369 in a17355 in k17352 in k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in ... */
f_17384(C_word c,C_word * av)16005 static void C_ccall f_17384(C_word c,C_word *av){
16006 C_word tmp;
16007 C_word t0=av[0];
16008 C_word t1=av[1];
16009 C_word t2=av[2];
16010 C_word t3=av[3];
16011 C_word t4;
16012 C_word t5;
16013 C_word *a;
16014 if(c!=4) C_bad_argc_2(c,4,t0);
16015 C_check_for_interrupt;
16016 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
16017 C_save_and_reclaim((void *)f_17384,c,av);}
16018 a=C_alloc(8);
16019 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17413,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*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
16020 /* irregex-core.scm:1781: scheme#min */
16021 t5=*((C_word*)lf[255]+1);{
16022 C_word *av2=av;
16023 av2[0]=t5;
16024 av2[1]=t4;
16025 av2[2]=((C_word*)t0)[6];
16026 av2[3]=t2;
16027 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
16028 
16029 /* k17407 in k17411 in a17383 in a17369 in a17355 in k17352 in k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in ... */
f_17409(C_word c,C_word * av)16030 static void C_ccall f_17409(C_word c,C_word *av){
16031 C_word tmp;
16032 C_word t0=av[0];
16033 C_word t1=av[1];
16034 C_word t2;
16035 C_word *a;
16036 C_check_for_interrupt;
16037 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16038 C_save_and_reclaim((void *)f_17409,c,av);}
16039 /* irregex-core.scm:1781: return */
16040 t2=((C_word*)t0)[2];{
16041 C_word *av2;
16042 if(c >= 4) {
16043   av2=av;
16044 } else {
16045   av2=C_alloc(4);
16046 }
16047 av2[0]=t2;
16048 av2[1]=((C_word*)t0)[3];
16049 av2[2]=((C_word*)t0)[4];
16050 av2[3]=C_fixnum_plus(((C_word*)t0)[5],t1);
16051 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16052 
16053 /* k17411 in a17383 in a17369 in a17355 in k17352 in k17345 in k17342 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in ... */
f_17413(C_word c,C_word * av)16054 static void C_ccall f_17413(C_word c,C_word *av){
16055 C_word tmp;
16056 C_word t0=av[0];
16057 C_word t1=av[1];
16058 C_word t2;
16059 C_word t3;
16060 C_word t4;
16061 C_word *a;
16062 C_check_for_interrupt;
16063 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
16064 C_save_and_reclaim((void *)f_17413,c,av);}
16065 a=C_alloc(6);
16066 t2=C_fixnum_plus(((C_word*)t0)[2],t1);
16067 if(C_truep(((C_word*)t0)[3])){
16068 if(C_truep(((C_word*)t0)[4])){
16069 if(C_truep(((C_word*)t0)[5])){
16070 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17409,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
16071 /* irregex-core.scm:1783: scheme#max */
16072 t4=*((C_word*)lf[254]+1);{
16073 C_word *av2;
16074 if(c >= 4) {
16075   av2=av;
16076 } else {
16077   av2=C_alloc(4);
16078 }
16079 av2[0]=t4;
16080 av2[1]=t3;
16081 av2[2]=((C_word*)t0)[4];
16082 av2[3]=((C_word*)t0)[5];
16083 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16084 else{
16085 /* irregex-core.scm:1781: return */
16086 t3=((C_word*)t0)[6];{
16087 C_word *av2;
16088 if(c >= 4) {
16089   av2=av;
16090 } else {
16091   av2=C_alloc(4);
16092 }
16093 av2[0]=t3;
16094 av2[1]=((C_word*)t0)[7];
16095 av2[2]=t2;
16096 av2[3]=C_SCHEME_FALSE;
16097 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
16098 else{
16099 /* irregex-core.scm:1781: return */
16100 t3=((C_word*)t0)[6];{
16101 C_word *av2;
16102 if(c >= 4) {
16103   av2=av;
16104 } else {
16105   av2=C_alloc(4);
16106 }
16107 av2[0]=t3;
16108 av2[1]=((C_word*)t0)[7];
16109 av2[2]=t2;
16110 av2[3]=C_SCHEME_FALSE;
16111 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
16112 else{
16113 /* irregex-core.scm:1781: return */
16114 t3=((C_word*)t0)[6];{
16115 C_word *av2;
16116 if(c >= 4) {
16117   av2=av;
16118 } else {
16119   av2=C_alloc(4);
16120 }
16121 av2[0]=t3;
16122 av2[1]=((C_word*)t0)[7];
16123 av2[2]=t2;
16124 av2[3]=C_SCHEME_FALSE;
16125 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
16126 
16127 /* k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17490(C_word t0,C_word t1)16128 static void C_fcall f_17490(C_word t0,C_word t1){
16129 C_word tmp;
16130 C_word t2;
16131 C_word t3;
16132 C_word t4;
16133 C_word t5;
16134 C_word t6;
16135 C_word t7;
16136 C_word t8;
16137 C_word t9;
16138 C_word t10;
16139 C_word t11;
16140 C_word t12;
16141 C_word t13;
16142 C_word t14;
16143 C_word t15;
16144 C_word *a;
16145 C_check_for_interrupt;
16146 if(C_unlikely(!C_demand(C_calculate_demand(11,0,6)))){
16147 C_save_and_reclaim_args((void *)trf_17490,2,t0,t1);}
16148 a=C_alloc(11);
16149 if(C_truep(t1)){
16150 t2=C_eqp(lf[108],C_u_i_car(((C_word*)t0)[2]));
16151 t3=(C_truep(t2)?(
16152 /* irregex-core.scm:1788: sre-sequence */
16153   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2]))
16154 ):(
16155 /* irregex-core.scm:1788: sre-sequence */
16156   f_18191(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[2]))
16157 ));
16158 t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
16159 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17503,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word)li194),tmp=(C_word)a,a+=6,tmp);
16160 /* irregex-core.scm:1788: lp */
16161 t6=((C_word*)((C_word*)t0)[6])[1];
16162 f_17094(t6,((C_word*)t0)[7],t3,t4,((C_word*)t0)[8],((C_word*)t0)[9],t5);}
16163 else{
16164 t2=C_eqp(((C_word*)t0)[10],lf[192]);
16165 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[10],lf[191]));
16166 if(C_truep(t3)){
16167 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17539,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
16168 t5=C_i_cadr(((C_word*)t0)[2]);
16169 if(C_truep(C_i_numberp(t5))){
16170 t6=t4;{
16171 C_word av2[2];
16172 av2[0]=t6;
16173 av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[2]));
16174 f_17539(2,av2);}}
16175 else{
16176 t6=C_u_i_cdr(((C_word*)t0)[2]);
16177 t7=C_i_assq(C_u_i_car(t6),((C_word*)t0)[11]);
16178 if(C_truep(t7)){
16179 t8=t4;{
16180 C_word av2[2];
16181 av2[0]=t8;
16182 av2[1]=C_i_cdr(t7);
16183 f_17539(2,av2);}}
16184 else{
16185 t8=C_u_i_cdr(((C_word*)t0)[2]);
16186 /* irregex-core.scm:1798: chicken.base#error */
16187 t9=*((C_word*)lf[30]+1);{
16188 C_word av2[4];
16189 av2[0]=t9;
16190 av2[1]=t4;
16191 av2[2]=lf[259];
16192 av2[3]=C_u_i_car(t8);
16193 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}
16194 else{
16195 t4=C_eqp(((C_word*)t0)[10],lf[127]);
16196 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[10],lf[128]));
16197 if(C_truep(t5)){
16198 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17648,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
16199 t7=(
16200 /* irregex-core.scm:1810: sre-sequence */
16201   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2]))
16202 );
16203 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17657,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp);
16204 /* irregex-core.scm:1810: lp */
16205 t9=((C_word*)((C_word*)t0)[6])[1];
16206 f_17094(t9,t6,t7,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],t8);}
16207 else{
16208 t6=C_eqp(((C_word*)t0)[10],lf[133]);
16209 t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[10],lf[130]));
16210 if(C_truep(t7)){
16211 t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17675,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
16212 t9=C_i_cadr(((C_word*)t0)[2]);
16213 if(C_truep(C_i_numberp(t9))){
16214 t10=C_i_caddr(((C_word*)t0)[2]);
16215 if(C_truep(C_i_numberp(t10))){
16216 t11=C_u_i_cdr(((C_word*)t0)[2]);
16217 t12=C_u_i_car(t11);
16218 t13=C_u_i_cdr(((C_word*)t0)[2]);
16219 t14=C_u_i_cdr(t13);
16220 t15=t8;
16221 f_17675(t15,C_fixnum_greaterp(t12,C_u_i_car(t14)));}
16222 else{
16223 t11=t8;
16224 f_17675(t11,C_SCHEME_FALSE);}}
16225 else{
16226 t10=t8;
16227 f_17675(t10,C_SCHEME_FALSE);}}
16228 else{
16229 t8=C_eqp(((C_word*)t0)[10],lf[129]);
16230 if(C_truep(t8)){
16231 t9=(
16232 /* irregex-core.scm:1829: sre-sequence */
16233   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2]))
16234 );
16235 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17817,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=((C_word)li198),tmp=(C_word)a,a+=5,tmp);
16236 /* irregex-core.scm:1829: lp */
16237 t11=((C_word*)((C_word*)t0)[6])[1];
16238 f_17094(t11,((C_word*)t0)[7],t9,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],t10);}
16239 else{
16240 t9=C_eqp(((C_word*)t0)[10],lf[131]);
16241 t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[10],lf[132]));
16242 if(C_truep(t10)){
16243 t11=(
16244 /* irregex-core.scm:1833: sre-sequence */
16245   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2]))
16246 );
16247 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17845,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],a[5]=((C_word)li199),tmp=(C_word)a,a+=6,tmp);
16248 /* irregex-core.scm:1833: lp */
16249 t13=((C_word*)((C_word*)t0)[6])[1];
16250 f_17094(t13,((C_word*)t0)[7],t11,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],t12);}
16251 else{
16252 t11=C_eqp(((C_word*)t0)[10],lf[134]);
16253 t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
16254 if(C_truep(t11)){
16255 t13=t12;
16256 f_17870(t13,t11);}
16257 else{
16258 t13=C_eqp(((C_word*)t0)[10],lf[263]);
16259 if(C_truep(t13)){
16260 t14=t12;
16261 f_17870(t14,t13);}
16262 else{
16263 t14=C_eqp(((C_word*)t0)[10],lf[135]);
16264 t15=t12;
16265 f_17870(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[10],lf[260])));}}}}}}}}}
16266 
16267 /* a17502 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17503(C_word c,C_word * av)16268 static void C_ccall f_17503(C_word c,C_word *av){
16269 C_word tmp;
16270 C_word t0=av[0];
16271 C_word t1=av[1];
16272 C_word t2=av[2];
16273 C_word t3=av[3];
16274 C_word t4;
16275 C_word t5;
16276 C_word t6;
16277 C_word *a;
16278 if(c!=4) C_bad_argc_2(c,4,t0);
16279 C_check_for_interrupt;
16280 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
16281 C_save_and_reclaim((void *)f_17503,c,av);}
16282 a=C_alloc(3);
16283 t4=C_a_i_cons(&a,2,t2,t3);
16284 t5=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t4);
16285 /* irregex-core.scm:1793: return */
16286 t6=((C_word*)t0)[4];{
16287 C_word *av2=av;
16288 av2[0]=t6;
16289 av2[1]=t1;
16290 av2[2]=t2;
16291 av2[3]=t3;
16292 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
16293 
16294 /* k17537 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17539(C_word c,C_word * av)16295 static void C_ccall f_17539(C_word c,C_word *av){
16296 C_word tmp;
16297 C_word t0=av[0];
16298 C_word t1=av[1];
16299 C_word t2;
16300 C_word t3;
16301 C_word t4;
16302 C_word t5;
16303 C_word *a;
16304 C_check_for_interrupt;
16305 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
16306 C_save_and_reclaim((void *)f_17539,c,av);}
16307 a=C_alloc(9);
16308 t2=C_i_not(C_i_integerp(t1));
16309 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17548,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],tmp=(C_word)a,a+=9,tmp);
16310 if(C_truep(t2)){
16311 t4=t3;
16312 f_17548(t4,t2);}
16313 else{
16314 t4=C_block_size(((C_word*)t0)[4]);
16315 t5=t3;
16316 f_17548(t5,C_i_not(C_and(C_fixnum_lessp(C_fix(0),t1),C_fixnum_lessp(t1,t4))));}}
16317 
16318 /* k17546 in k17537 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17548(C_word t0,C_word t1)16319 static void C_fcall f_17548(C_word t0,C_word t1){
16320 C_word tmp;
16321 C_word t2;
16322 C_word t3;
16323 C_word t4;
16324 C_word t5;
16325 C_word t6;
16326 C_word t7;
16327 C_word t8;
16328 C_word *a;
16329 C_check_for_interrupt;
16330 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
16331 C_save_and_reclaim_args((void *)trf_17548,2,t0,t1);}
16332 if(C_truep(t1)){
16333 /* irregex-core.scm:1802: chicken.base#error */
16334 t2=*((C_word*)lf[30]+1);{
16335 C_word av2[5];
16336 av2[0]=t2;
16337 av2[1]=((C_word*)t0)[2];
16338 av2[2]=lf[256];
16339 av2[3]=lf[257];
16340 av2[4]=((C_word*)t0)[3];
16341 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
16342 else{
16343 t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]);
16344 if(C_truep(C_i_not(t2))){
16345 /* irregex-core.scm:1804: chicken.base#error */
16346 t3=*((C_word*)lf[30]+1);{
16347 C_word av2[5];
16348 av2[0]=t3;
16349 av2[1]=((C_word*)t0)[2];
16350 av2[2]=lf[256];
16351 av2[3]=lf[258];
16352 av2[4]=((C_word*)t0)[3];
16353 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
16354 else{
16355 t3=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]);
16356 t4=C_i_car(t3);
16357 t5=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]);
16358 t6=C_i_cdr(t5);
16359 t7=C_fixnum_plus(((C_word*)t0)[6],t4);
16360 if(C_truep(((C_word*)t0)[7])){
16361 if(C_truep(t6)){
16362 /* irregex-core.scm:1808: return */
16363 t8=((C_word*)t0)[8];{
16364 C_word av2[4];
16365 av2[0]=t8;
16366 av2[1]=((C_word*)t0)[2];
16367 av2[2]=t7;
16368 av2[3]=C_fixnum_plus(((C_word*)t0)[7],t6);
16369 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
16370 else{
16371 /* irregex-core.scm:1808: return */
16372 t8=((C_word*)t0)[8];{
16373 C_word av2[4];
16374 av2[0]=t8;
16375 av2[1]=((C_word*)t0)[2];
16376 av2[2]=t7;
16377 av2[3]=C_SCHEME_FALSE;
16378 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}
16379 else{
16380 /* irregex-core.scm:1808: return */
16381 t8=((C_word*)t0)[8];{
16382 C_word av2[4];
16383 av2[0]=t8;
16384 av2[1]=((C_word*)t0)[2];
16385 av2[2]=t7;
16386 av2[3]=C_SCHEME_FALSE;
16387 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}}
16388 
16389 /* k17646 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17648(C_word c,C_word * av)16390 static void C_ccall f_17648(C_word c,C_word *av){
16391 C_word tmp;
16392 C_word t0=av[0];
16393 C_word t1=av[1];
16394 C_word t2;
16395 C_word *a;
16396 C_check_for_interrupt;
16397 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16398 C_save_and_reclaim((void *)f_17648,c,av);}
16399 /* irregex-core.scm:1811: return */
16400 t2=((C_word*)t0)[2];{
16401 C_word *av2;
16402 if(c >= 4) {
16403   av2=av;
16404 } else {
16405   av2=C_alloc(4);
16406 }
16407 av2[0]=t2;
16408 av2[1]=((C_word*)t0)[3];
16409 av2[2]=((C_word*)t0)[4];
16410 av2[3]=C_SCHEME_FALSE;
16411 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16412 
16413 /* a17656 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17657(C_word c,C_word * av)16414 static void C_ccall f_17657(C_word c,C_word *av){
16415 C_word tmp;
16416 C_word t0=av[0];
16417 C_word t1=av[1];
16418 C_word t2=av[2];
16419 C_word t3=av[3];
16420 C_word t4;
16421 C_word *a;
16422 if(c!=4) C_bad_argc_2(c,4,t0);
16423 C_check_for_interrupt;
16424 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
16425 C_save_and_reclaim((void *)f_17657,c,av);}
16426 t4=t1;{
16427 C_word *av2=av;
16428 av2[0]=t4;
16429 av2[1]=C_SCHEME_FALSE;
16430 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
16431 
16432 /* k17673 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17675(C_word t0,C_word t1)16433 static void C_fcall f_17675(C_word t0,C_word t1){
16434 C_word tmp;
16435 C_word t2;
16436 C_word t3;
16437 C_word t4;
16438 C_word t5;
16439 C_word *a;
16440 C_check_for_interrupt;
16441 if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
16442 C_save_and_reclaim_args((void *)trf_17675,2,t0,t1);}
16443 a=C_alloc(9);
16444 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17678,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);
16445 if(C_truep(t1)){
16446 t3=t2;
16447 f_17678(t3,t1);}
16448 else{
16449 t3=C_u_i_cdr(((C_word*)t0)[6]);
16450 t4=C_i_not(C_u_i_car(t3));
16451 t5=t2;
16452 f_17678(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[6]):C_SCHEME_FALSE));}}
16453 
16454 /* k17676 in k17673 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17678(C_word t0,C_word t1)16455 static void C_fcall f_17678(C_word t0,C_word t1){
16456 C_word tmp;
16457 C_word t2;
16458 C_word t3;
16459 C_word t4;
16460 C_word t5;
16461 C_word t6;
16462 C_word *a;
16463 C_check_for_interrupt;
16464 if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){
16465 C_save_and_reclaim_args((void *)trf_17678,2,t0,t1);}
16466 a=C_alloc(10);
16467 if(C_truep(t1)){
16468 /* irregex-core.scm:1818: return */
16469 t2=((C_word*)t0)[2];{
16470 C_word av2[4];
16471 av2[0]=t2;
16472 av2[1]=((C_word*)t0)[3];
16473 av2[2]=((C_word*)t0)[4];
16474 av2[3]=((C_word*)t0)[5];
16475 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16476 else{
16477 if(C_truep(C_i_caddr(((C_word*)t0)[6]))){
16478 t2=C_u_i_cdr(((C_word*)t0)[6]);
16479 t3=C_u_i_cdr(t2);
16480 t4=(
16481 /* irregex-core.scm:1821: sre-sequence */
16482   f_18191(C_a_i(&a,3),C_u_i_cdr(t3))
16483 );
16484 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17696,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word)li196),tmp=(C_word)a,a+=7,tmp);
16485 /* irregex-core.scm:1821: lp */
16486 t6=((C_word*)((C_word*)t0)[7])[1];
16487 f_17094(t6,((C_word*)t0)[3],t4,((C_word*)t0)[8],C_fix(0),C_fix(0),t5);}
16488 else{
16489 t2=(
16490 /* irregex-core.scm:1825: sre-sequence */
16491   f_18191(C_a_i(&a,3),C_i_cdddr(((C_word*)t0)[6]))
16492 );
16493 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17743,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word)li197),tmp=(C_word)a,a+=6,tmp);
16494 /* irregex-core.scm:1825: lp */
16495 t4=((C_word*)((C_word*)t0)[7])[1];
16496 f_17094(t4,((C_word*)t0)[3],t2,((C_word*)t0)[8],C_fix(0),C_fix(0),t3);}}}
16497 
16498 /* a17695 in k17676 in k17673 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_17696(C_word c,C_word * av)16499 static void C_ccall f_17696(C_word c,C_word *av){
16500 C_word tmp;
16501 C_word t0=av[0];
16502 C_word t1=av[1];
16503 C_word t2=av[2];
16504 C_word t3=av[3];
16505 C_word t4;
16506 C_word t5;
16507 C_word t6;
16508 C_word t7;
16509 C_word t8;
16510 C_word t9;
16511 C_word *a;
16512 if(c!=4) C_bad_argc_2(c,4,t0);
16513 C_check_for_interrupt;
16514 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16515 C_save_and_reclaim((void *)f_17696,c,av);}
16516 t4=C_i_cadr(((C_word*)t0)[2]);
16517 t5=C_fixnum_times(t4,t2);
16518 t6=C_fixnum_plus(((C_word*)t0)[3],t5);
16519 if(C_truep(((C_word*)t0)[4])){
16520 if(C_truep(t3)){
16521 t7=C_i_caddr(((C_word*)t0)[2]);
16522 t8=C_fixnum_times(t7,t3);
16523 /* irregex-core.scm:1823: return */
16524 t9=((C_word*)t0)[5];{
16525 C_word *av2=av;
16526 av2[0]=t9;
16527 av2[1]=t1;
16528 av2[2]=t6;
16529 av2[3]=C_fixnum_plus(((C_word*)t0)[4],t8);
16530 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
16531 else{
16532 /* irregex-core.scm:1823: return */
16533 t7=((C_word*)t0)[5];{
16534 C_word *av2=av;
16535 av2[0]=t7;
16536 av2[1]=t1;
16537 av2[2]=t6;
16538 av2[3]=C_SCHEME_FALSE;
16539 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
16540 else{
16541 /* irregex-core.scm:1823: return */
16542 t7=((C_word*)t0)[5];{
16543 C_word *av2=av;
16544 av2[0]=t7;
16545 av2[1]=t1;
16546 av2[2]=t6;
16547 av2[3]=C_SCHEME_FALSE;
16548 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
16549 
16550 /* a17742 in k17676 in k17673 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_17743(C_word c,C_word * av)16551 static void C_ccall f_17743(C_word c,C_word *av){
16552 C_word tmp;
16553 C_word t0=av[0];
16554 C_word t1=av[1];
16555 C_word t2=av[2];
16556 C_word t3=av[3];
16557 C_word t4;
16558 C_word t5;
16559 C_word t6;
16560 C_word *a;
16561 if(c!=4) C_bad_argc_2(c,4,t0);
16562 C_check_for_interrupt;
16563 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16564 C_save_and_reclaim((void *)f_17743,c,av);}
16565 t4=C_i_cadr(((C_word*)t0)[2]);
16566 t5=C_fixnum_times(t4,t2);
16567 /* irregex-core.scm:1827: return */
16568 t6=((C_word*)t0)[3];{
16569 C_word *av2=av;
16570 av2[0]=t6;
16571 av2[1]=t1;
16572 av2[2]=C_fixnum_plus(((C_word*)t0)[4],t5);
16573 av2[3]=C_SCHEME_FALSE;
16574 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
16575 
16576 /* a17816 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17817(C_word c,C_word * av)16577 static void C_ccall f_17817(C_word c,C_word *av){
16578 C_word tmp;
16579 C_word t0=av[0];
16580 C_word t1=av[1];
16581 C_word t2=av[2];
16582 C_word t3=av[3];
16583 C_word t4;
16584 C_word *a;
16585 if(c!=4) C_bad_argc_2(c,4,t0);
16586 C_check_for_interrupt;
16587 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16588 C_save_and_reclaim((void *)f_17817,c,av);}
16589 /* irregex-core.scm:1831: return */
16590 t4=((C_word*)t0)[2];{
16591 C_word *av2=av;
16592 av2[0]=t4;
16593 av2[1]=t1;
16594 av2[2]=C_fixnum_plus(((C_word*)t0)[3],t2);
16595 av2[3]=C_SCHEME_FALSE;
16596 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16597 
16598 /* a17844 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17845(C_word c,C_word * av)16599 static void C_ccall f_17845(C_word c,C_word *av){
16600 C_word tmp;
16601 C_word t0=av[0];
16602 C_word t1=av[1];
16603 C_word t2=av[2];
16604 C_word t3=av[3];
16605 C_word t4;
16606 C_word *a;
16607 if(c!=4) C_bad_argc_2(c,4,t0);
16608 C_check_for_interrupt;
16609 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16610 C_save_and_reclaim((void *)f_17845,c,av);}
16611 if(C_truep(((C_word*)t0)[2])){
16612 if(C_truep(t3)){
16613 /* irregex-core.scm:1835: return */
16614 t4=((C_word*)t0)[3];{
16615 C_word *av2=av;
16616 av2[0]=t4;
16617 av2[1]=t1;
16618 av2[2]=((C_word*)t0)[4];
16619 av2[3]=C_fixnum_plus(((C_word*)t0)[2],t3);
16620 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
16621 else{
16622 /* irregex-core.scm:1835: return */
16623 t4=((C_word*)t0)[3];{
16624 C_word *av2=av;
16625 av2[0]=t4;
16626 av2[1]=t1;
16627 av2[2]=((C_word*)t0)[4];
16628 av2[3]=C_SCHEME_FALSE;
16629 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
16630 else{
16631 /* irregex-core.scm:1835: return */
16632 t4=((C_word*)t0)[3];{
16633 C_word *av2=av;
16634 av2[0]=t4;
16635 av2[1]=t1;
16636 av2[2]=((C_word*)t0)[4];
16637 av2[3]=C_SCHEME_FALSE;
16638 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
16639 
16640 /* k17868 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17870(C_word t0,C_word t1)16641 static void C_fcall f_17870(C_word t0,C_word t1){
16642 C_word tmp;
16643 C_word t2;
16644 C_word t3;
16645 C_word t4;
16646 C_word t5;
16647 C_word t6;
16648 C_word t7;
16649 C_word t8;
16650 C_word t9;
16651 C_word *a;
16652 C_check_for_interrupt;
16653 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
16654 C_save_and_reclaim_args((void *)trf_17870,2,t0,t1);}
16655 a=C_alloc(12);
16656 if(C_truep(t1)){
16657 t2=C_i_cadr(((C_word*)t0)[2]);
16658 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17889,a[2]=t2,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);
16659 t4=C_u_i_car(((C_word*)t0)[2]);
16660 if(C_truep((C_truep(C_eqp(t4,lf[135]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[260]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
16661 t5=C_u_i_cdr(((C_word*)t0)[2]);
16662 t6=C_u_i_cdr(t5);
16663 t7=t3;
16664 f_17889(t7,C_a_i_cons(&a,2,C_SCHEME_FALSE,t6));}
16665 else{
16666 t5=C_u_i_cdr(((C_word*)t0)[2]);
16667 t6=C_u_i_car(t5);
16668 t7=C_u_i_cdr(((C_word*)t0)[2]);
16669 t8=C_u_i_cdr(t7);
16670 t9=t3;
16671 f_17889(t9,C_a_i_cons(&a,2,t6,t8));}}
16672 else{
16673 t2=C_eqp(((C_word*)t0)[9],lf[111]);
16674 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17910,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
16675 if(C_truep(t2)){
16676 t4=t3;
16677 f_17910(t4,t2);}
16678 else{
16679 t4=C_eqp(((C_word*)t0)[9],lf[112]);
16680 if(C_truep(t4)){
16681 t5=t3;
16682 f_17910(t5,t4);}
16683 else{
16684 t5=C_eqp(((C_word*)t0)[9],lf[113]);
16685 t6=t3;
16686 f_17910(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[114])));}}}}
16687 
16688 /* k17887 in k17868 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17889(C_word t0,C_word t1)16689 static void C_fcall f_17889(C_word t0,C_word t1){
16690 C_word tmp;
16691 C_word t2;
16692 C_word t3;
16693 C_word t4;
16694 C_word *a;
16695 C_check_for_interrupt;
16696 if(C_unlikely(!C_demand(C_calculate_demand(6,0,6)))){
16697 C_save_and_reclaim_args((void *)trf_17889,2,t0,t1);}
16698 a=C_alloc(6);
16699 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
16700 t3=C_a_i_cons(&a,2,lf[133],t2);
16701 /* irregex-core.scm:1837: lp */
16702 t4=((C_word*)((C_word*)t0)[3])[1];
16703 f_17094(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
16704 
16705 /* k17908 in k17868 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_17910(C_word t0,C_word t1)16706 static void C_fcall f_17910(C_word t0,C_word t1){
16707 C_word tmp;
16708 C_word t2;
16709 C_word t3;
16710 C_word t4;
16711 C_word *a;
16712 C_check_for_interrupt;
16713 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
16714 C_save_and_reclaim_args((void *)trf_17910,2,t0,t1);}
16715 a=C_alloc(9);
16716 if(C_truep(t1)){
16717 /* irregex-core.scm:1842: return */
16718 t2=((C_word*)t0)[2];{
16719 C_word av2[4];
16720 av2[0]=t2;
16721 av2[1]=((C_word*)t0)[3];
16722 av2[2]=((C_word*)t0)[4];
16723 av2[3]=((C_word*)t0)[5];
16724 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16725 else{
16726 t2=C_i_assq(C_u_i_car(((C_word*)t0)[6]),lf[248]);
16727 if(C_truep(t2)){
16728 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17920,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word)li200),tmp=(C_word)a,a+=9,tmp);
16729 /* irregex-core.scm:1844: g3027 */
16730 t4=t3;
16731 f_17920(t4,((C_word*)t0)[3],t2);}
16732 else{
16733 /* irregex-core.scm:1849: chicken.base#error */
16734 t3=*((C_word*)lf[30]+1);{
16735 C_word av2[5];
16736 av2[0]=t3;
16737 av2[1]=((C_word*)t0)[3];
16738 av2[2]=lf[261];
16739 av2[3]=lf[262];
16740 av2[4]=((C_word*)t0)[6];
16741 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}}
16742 
16743 /* g3027 in k17908 in k17868 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_17920(C_word t0,C_word t1,C_word t2)16744 static void C_fcall f_17920(C_word t0,C_word t1,C_word t2){
16745 C_word tmp;
16746 C_word t3;
16747 C_word t4;
16748 C_word *a;
16749 C_check_for_interrupt;
16750 if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
16751 C_save_and_reclaim_args((void *)trf_17920,3,t0,t1,t2);}
16752 a=C_alloc(8);
16753 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17928,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);{
16754 C_word av2[4];
16755 av2[0]=0;
16756 av2[1]=t3;
16757 av2[2]=C_i_cdr(t2);
16758 av2[3]=C_i_cdr(((C_word*)t0)[7]);
16759 C_apply(4,av2);}}
16760 
16761 /* k17926 in g3027 in k17908 in k17868 in k17488 in k17164 in k17135 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_17928(C_word c,C_word * av)16762 static void C_ccall f_17928(C_word c,C_word *av){
16763 C_word tmp;
16764 C_word t0=av[0];
16765 C_word t1=av[1];
16766 C_word t2;
16767 C_word *a;
16768 C_check_for_interrupt;
16769 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
16770 C_save_and_reclaim((void *)f_17928,c,av);}
16771 /* irregex-core.scm:1847: lp */
16772 t2=((C_word*)((C_word*)t0)[2])[1];
16773 f_17094(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
16774 
16775 /* k18157 in lp in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_18159(C_word c,C_word * av)16776 static void C_ccall f_18159(C_word c,C_word *av){
16777 C_word tmp;
16778 C_word t0=av[0];
16779 C_word t1=av[1];
16780 C_word t2;
16781 C_word *a;
16782 C_check_for_interrupt;
16783 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
16784 C_save_and_reclaim((void *)f_18159,c,av);}
16785 /* irregex-core.scm:1861: lp */
16786 t2=((C_word*)((C_word*)t0)[2])[1];
16787 f_17094(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
16788 
16789 /* k18180 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_18182(C_word c,C_word * av)16790 static void C_ccall f_18182(C_word c,C_word *av){
16791 C_word tmp;
16792 C_word t0=av[0];
16793 C_word t1=av[1];
16794 C_word t2;
16795 C_word *a;
16796 C_check_for_interrupt;
16797 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
16798 C_save_and_reclaim((void *)f_18182,c,av);}
16799 /* irregex-core.scm:1727: scheme#make-vector */
16800 t2=*((C_word*)lf[4]+1);{
16801 C_word *av2;
16802 if(c >= 4) {
16803   av2=av;
16804 } else {
16805   av2=C_alloc(4);
16806 }
16807 av2[0]=t2;
16808 av2[1]=((C_word*)t0)[2];
16809 av2[2]=C_fixnum_plus(C_fix(1),t1);
16810 av2[3]=C_SCHEME_FALSE;
16811 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
16812 
16813 /* chicken.irregex#sre-sequence in k7761 in k7536 in k7533 */
f_18191(C_word * a,C_word t1)16814 static C_word C_fcall f_18191(C_word *a,C_word t1){
16815 C_word tmp;
16816 C_word t2;
16817 C_word t3;
16818 C_word t4;
16819 C_stack_overflow_check;{}
16820 if(C_truep(C_i_nullp(t1))){
16821 return(lf[110]);}
16822 else{
16823 t2=C_i_cdr(t1);
16824 t3=C_i_nullp(t2);
16825 return((C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[115],t1)));}}
16826 
16827 /* chicken.irregex#sre-alternate in k7761 in k7536 in k7533 */
f_18214(C_word * a,C_word t1)16828 static C_word C_fcall f_18214(C_word *a,C_word t1){
16829 C_word tmp;
16830 C_word t2;
16831 C_word t3;
16832 C_word t4;
16833 C_stack_overflow_check;{}
16834 if(C_truep(C_i_nullp(t1))){
16835 return(lf[282]);}
16836 else{
16837 t2=C_i_cdr(t1);
16838 t3=C_i_nullp(t2);
16839 return((C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[103],t1)));}}
16840 
16841 /* chicken.irregex#sre-strip-submatches in k7761 in k7536 in k7533 */
f_18237(C_word c,C_word * av)16842 static void C_ccall f_18237(C_word c,C_word *av){
16843 C_word tmp;
16844 C_word t0=av[0];
16845 C_word t1=av[1];
16846 C_word t2=av[2];
16847 C_word t3;
16848 C_word t4;
16849 C_word t5;
16850 C_word t6;
16851 C_word t7;
16852 C_word t8;
16853 C_word t9;
16854 C_word t10;
16855 C_word t11;
16856 C_word t12;
16857 C_word t13;
16858 C_word t14;
16859 C_word t15;
16860 C_word t16;
16861 C_word t17;
16862 C_word t18;
16863 C_word t19;
16864 C_word t20;
16865 C_word *a;
16866 loop:
16867 if(c!=3) C_bad_argc_2(c,3,t0);
16868 C_check_for_interrupt;
16869 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
16870 av[0]=t0;
16871 av[1]=t1;
16872 av[2]=t2;
16873 C_save_and_reclaim((void *)f_18237,c,av);}
16874 a=C_alloc(13);
16875 t3=C_i_pairp(t2);
16876 if(C_truep(C_i_not(t3))){
16877 t4=t1;{
16878 C_word *av2=av;
16879 av2[0]=t4;
16880 av2[1]=t2;
16881 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
16882 else{
16883 t4=C_i_car(t2);
16884 t5=C_eqp(t4,lf[245]);
16885 t6=(C_truep(t5)?t5:C_eqp(t4,lf[108]));
16886 if(C_truep(t6)){
16887 t7=(
16888 /* irregex-core.scm:1888: sre-sequence */
16889   f_18191(C_a_i(&a,3),C_u_i_cdr(t2))
16890 );
16891 /* irregex-core.scm:1888: sre-strip-submatches */
16892 t19=t1;
16893 t20=t7;
16894 t1=t19;
16895 t2=t20;
16896 c=3;
16897 goto loop;}
16898 else{
16899 t7=C_eqp(t4,lf[119]);
16900 t8=(C_truep(t7)?t7:C_eqp(t4,lf[120]));
16901 if(C_truep(t8)){
16902 t9=(
16903 /* irregex-core.scm:1889: sre-sequence */
16904   f_18191(C_a_i(&a,3),C_i_cddr(t2))
16905 );
16906 /* irregex-core.scm:1889: sre-strip-submatches */
16907 t19=t1;
16908 t20=t9;
16909 t1=t19;
16910 t2=t20;
16911 c=3;
16912 goto loop;}
16913 else{
16914 t9=C_eqp(t4,lf[244]);
16915 if(C_truep(t9)){
16916 t10=(
16917 /* irregex-core.scm:1890: sre-sequence */
16918   f_18191(C_a_i(&a,3),C_i_cdddr(t2))
16919 );
16920 /* irregex-core.scm:1890: sre-strip-submatches */
16921 t19=t1;
16922 t20=t10;
16923 t1=t19;
16924 t2=t20;
16925 c=3;
16926 goto loop;}
16927 else{
16928 t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
16929 t11=t10;
16930 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
16931 t13=((C_word*)t12)[1];
16932 t14=lf[283];
16933 t15=C_SCHEME_UNDEFINED;
16934 t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
16935 t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18310,a[2]=t12,a[3]=t16,a[4]=t13,a[5]=((C_word)li225),tmp=(C_word)a,a+=6,tmp));
16936 t18=((C_word*)t16)[1];
16937 f_18310(t18,t1,t2);}}}}}
16938 
16939 /* map-loop3064 in chicken.irregex#sre-strip-submatches in k7761 in k7536 in k7533 */
f_18310(C_word t0,C_word t1,C_word t2)16940 static void C_fcall f_18310(C_word t0,C_word t1,C_word t2){
16941 C_word tmp;
16942 C_word t3;
16943 C_word t4;
16944 C_word *a;
16945 C_check_for_interrupt;
16946 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
16947 C_save_and_reclaim_args((void *)trf_18310,3,t0,t1,t2);}
16948 a=C_alloc(6);
16949 if(C_truep(C_i_pairp(t2))){
16950 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18335,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);
16951 /* irregex-core.scm:1891: g3070 */
16952 t4=lf[283];{
16953 C_word av2[3];
16954 av2[0]=t4;
16955 av2[1]=t3;
16956 av2[2]=C_slot(t2,C_fix(0));
16957 f_18237(3,av2);}}
16958 else{
16959 t3=t1;{
16960 C_word av2[2];
16961 av2[0]=t3;
16962 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
16963 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
16964 
16965 /* k18333 in map-loop3064 in chicken.irregex#sre-strip-submatches in k7761 in k7536 in k7533 */
f_18335(C_word c,C_word * av)16966 static void C_ccall f_18335(C_word c,C_word *av){
16967 C_word tmp;
16968 C_word t0=av[0];
16969 C_word t1=av[1];
16970 C_word t2;
16971 C_word t3;
16972 C_word t4;
16973 C_word t5;
16974 C_word *a;
16975 C_check_for_interrupt;
16976 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
16977 C_save_and_reclaim((void *)f_18335,c,av);}
16978 a=C_alloc(3);
16979 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
16980 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
16981 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
16982 t5=((C_word*)((C_word*)t0)[3])[1];
16983 f_18310(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
16984 
16985 /* lp in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_18370(C_word t0,C_word t1,C_word t2,C_word t3)16986 static void C_fcall f_18370(C_word t0,C_word t1,C_word t2,C_word t3){
16987 C_word tmp;
16988 C_word t4;
16989 C_word t5;
16990 C_word t6;
16991 C_word t7;
16992 C_word t8;
16993 C_word t9;
16994 C_word t10;
16995 C_word t11;
16996 C_word *a;
16997 loop:
16998 C_check_for_interrupt;
16999 if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
17000 C_save_and_reclaim_args((void *)trf_18370,4,t0,t1,t2,t3);}
17001 a=C_alloc(9);
17002 if(C_truep(C_i_nullp(t2))){
17003 /* irregex-core.scm:1899: ##sys#fast-reverse */
17004 t4=*((C_word*)lf[69]+1);{
17005 C_word av2[3];
17006 av2[0]=t4;
17007 av2[1]=t1;
17008 av2[2]=t3;
17009 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
17010 else{
17011 t4=C_i_car(t2);
17012 if(C_truep(C_i_stringp(t4))){
17013 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18393,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
17014 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18397,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
17015 /* ##sys#string->list */
17016 t7=*((C_word*)lf[105]+1);{
17017 C_word av2[3];
17018 av2[0]=t7;
17019 av2[1]=t6;
17020 av2[2]=C_u_i_car(t2);
17021 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
17022 else{
17023 t5=C_u_i_cdr(t2);
17024 t6=C_u_i_car(t2);
17025 t7=C_a_i_cons(&a,2,t6,t3);
17026 /* irregex-core.scm:1903: lp */
17027 t9=t1;
17028 t10=t5;
17029 t11=t7;
17030 t1=t9;
17031 t2=t10;
17032 t3=t11;
17033 goto loop;}}}
17034 
17035 /* k18391 in lp in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_18393(C_word c,C_word * av)17036 static void C_ccall f_18393(C_word c,C_word *av){
17037 C_word tmp;
17038 C_word t0=av[0];
17039 C_word t1=av[1];
17040 C_word t2;
17041 C_word *a;
17042 C_check_for_interrupt;
17043 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17044 C_save_and_reclaim((void *)f_18393,c,av);}
17045 /* irregex-core.scm:1901: lp */
17046 t2=((C_word*)((C_word*)t0)[2])[1];
17047 f_18370(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}
17048 
17049 /* k18395 in lp in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_18397(C_word c,C_word * av)17050 static void C_ccall f_18397(C_word c,C_word *av){
17051 C_word tmp;
17052 C_word t0=av[0];
17053 C_word t1=av[1];
17054 C_word t2;
17055 C_word *a;
17056 C_check_for_interrupt;
17057 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
17058 C_save_and_reclaim((void *)f_18397,c,av);}
17059 /* irregex-core.scm:1901: scheme#append */
17060 t2=*((C_word*)lf[73]+1);{
17061 C_word *av2;
17062 if(c >= 4) {
17063   av2=av;
17064 } else {
17065   av2=C_alloc(4);
17066 }
17067 av2[0]=t2;
17068 av2[1]=((C_word*)t0)[2];
17069 av2[2]=t1;
17070 av2[3]=C_u_i_cdr(((C_word*)t0)[3]);
17071 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
17072 
17073 /* chicken.irregex#sre-names in k7761 in k7536 in k7533 */
f_18418(C_word t1,C_word t2,C_word t3,C_word t4)17074 static void C_fcall f_18418(C_word t1,C_word t2,C_word t3,C_word t4){
17075 C_word tmp;
17076 C_word t5;
17077 C_word t6;
17078 C_word t7;
17079 C_word t8;
17080 C_word t9;
17081 C_word t10;
17082 C_word t11;
17083 C_word t12;
17084 C_word t13;
17085 C_word t14;
17086 C_word t15;
17087 C_word t16;
17088 C_word t17;
17089 C_word t18;
17090 C_word t19;
17091 C_word t20;
17092 C_word t21;
17093 C_word t22;
17094 C_word t23;
17095 C_word t24;
17096 C_word t25;
17097 C_word t26;
17098 C_word t27;
17099 C_word t28;
17100 C_word t29;
17101 C_word t30;
17102 C_word t31;
17103 C_word *a;
17104 loop:
17105 C_check_for_interrupt;
17106 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
17107 C_save_and_reclaim_args((void *)trf_18418,4,t1,t2,t3,t4);}
17108 a=C_alloc(9);
17109 t5=C_i_pairp(t2);
17110 if(C_truep(C_i_not(t5))){
17111 t6=t1;{
17112 C_word av2[2];
17113 av2[0]=t6;
17114 av2[1]=t4;
17115 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
17116 else{
17117 t6=C_i_car(t2);
17118 t7=C_eqp(t6,lf[245]);
17119 t8=(C_truep(t7)?t7:C_eqp(t6,lf[108]));
17120 if(C_truep(t8)){
17121 t9=(
17122 /* irregex-core.scm:1910: sre-sequence */
17123   f_18191(C_a_i(&a,3),C_u_i_cdr(t2))
17124 );
17125 /* irregex-core.scm:1910: sre-names */
17126 t28=t1;
17127 t29=t9;
17128 t30=C_fixnum_plus(t3,C_fix(1));
17129 t31=t4;
17130 t1=t28;
17131 t2=t29;
17132 t3=t30;
17133 t4=t31;
17134 goto loop;}
17135 else{
17136 t9=C_eqp(t6,lf[119]);
17137 t10=(C_truep(t9)?t9:C_eqp(t6,lf[120]));
17138 if(C_truep(t10)){
17139 t11=(
17140 /* irregex-core.scm:1912: sre-sequence */
17141   f_18191(C_a_i(&a,3),C_i_cddr(t2))
17142 );
17143 t12=C_fixnum_plus(t3,C_fix(1));
17144 t13=C_i_cadr(t2);
17145 t14=C_a_i_cons(&a,2,t13,t3);
17146 t15=C_a_i_cons(&a,2,t14,t4);
17147 /* irregex-core.scm:1912: sre-names */
17148 t28=t1;
17149 t29=t11;
17150 t30=t12;
17151 t31=t15;
17152 t1=t28;
17153 t2=t29;
17154 t3=t30;
17155 t4=t31;
17156 goto loop;}
17157 else{
17158 t11=C_eqp(t6,lf[244]);
17159 if(C_truep(t11)){
17160 t12=(
17161 /* irregex-core.scm:1916: sre-sequence */
17162   f_18191(C_a_i(&a,3),C_i_cdddr(t2))
17163 );
17164 t13=C_i_cadr(t2);
17165 /* irregex-core.scm:1916: sre-names */
17166 t28=t1;
17167 t29=t12;
17168 t30=C_fixnum_plus(t3,t13);
17169 t31=t4;
17170 t1=t28;
17171 t2=t29;
17172 t3=t30;
17173 t4=t31;
17174 goto loop;}
17175 else{
17176 t12=C_eqp(t6,lf[115]);
17177 t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18520,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
17178 if(C_truep(t12)){
17179 t14=t13;
17180 f_18520(t14,t12);}
17181 else{
17182 t14=C_eqp(t6,lf[227]);
17183 if(C_truep(t14)){
17184 t15=t13;
17185 f_18520(t15,t14);}
17186 else{
17187 t15=C_eqp(t6,lf[103]);
17188 if(C_truep(t15)){
17189 t16=t13;
17190 f_18520(t16,t15);}
17191 else{
17192 t16=C_eqp(t6,lf[127]);
17193 if(C_truep(t16)){
17194 t17=t13;
17195 f_18520(t17,t16);}
17196 else{
17197 t17=C_eqp(t6,lf[129]);
17198 if(C_truep(t17)){
17199 t18=t13;
17200 f_18520(t18,t17);}
17201 else{
17202 t18=C_eqp(t6,lf[131]);
17203 if(C_truep(t18)){
17204 t19=t13;
17205 f_18520(t19,t18);}
17206 else{
17207 t19=C_eqp(t6,lf[128]);
17208 if(C_truep(t19)){
17209 t20=t13;
17210 f_18520(t20,t19);}
17211 else{
17212 t20=C_eqp(t6,lf[132]);
17213 if(C_truep(t20)){
17214 t21=t13;
17215 f_18520(t21,t20);}
17216 else{
17217 t21=C_eqp(t6,lf[225]);
17218 if(C_truep(t21)){
17219 t22=t13;
17220 f_18520(t22,t21);}
17221 else{
17222 t22=C_eqp(t6,lf[226]);
17223 if(C_truep(t22)){
17224 t23=t13;
17225 f_18520(t23,t22);}
17226 else{
17227 t23=C_eqp(t6,lf[239]);
17228 if(C_truep(t23)){
17229 t24=t13;
17230 f_18520(t24,t23);}
17231 else{
17232 t24=C_eqp(t6,lf[111]);
17233 if(C_truep(t24)){
17234 t25=t13;
17235 f_18520(t25,t24);}
17236 else{
17237 t25=C_eqp(t6,lf[113]);
17238 if(C_truep(t25)){
17239 t26=t13;
17240 f_18520(t26,t25);}
17241 else{
17242 t26=C_eqp(t6,lf[112]);
17243 t27=t13;
17244 f_18520(t27,(C_truep(t26)?t26:C_eqp(t6,lf[114])));}}}}}}}}}}}}}}}}}}
17245 
17246 /* k18518 in chicken.irregex#sre-names in k7761 in k7536 in k7533 */
f_18520(C_word t0,C_word t1)17247 static void C_fcall f_18520(C_word t0,C_word t1){
17248 C_word tmp;
17249 C_word t2;
17250 C_word t3;
17251 C_word t4;
17252 C_word t5;
17253 C_word t6;
17254 C_word *a;
17255 C_check_for_interrupt;
17256 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
17257 C_save_and_reclaim_args((void *)trf_18520,2,t0,t1);}
17258 if(C_truep(t1)){
17259 /* irregex-core.scm:1919: sre-sequence-names */
17260 f_18704(((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5]);}
17261 else{
17262 t2=C_eqp(((C_word*)t0)[6],lf[134]);
17263 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[135]));
17264 if(C_truep(t3)){
17265 /* irregex-core.scm:1921: sre-sequence-names */
17266 f_18704(((C_word*)t0)[2],C_i_cddr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5]);}
17267 else{
17268 t4=C_eqp(((C_word*)t0)[6],lf[133]);
17269 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[130]));
17270 if(C_truep(t5)){
17271 /* irregex-core.scm:1923: sre-sequence-names */
17272 f_18704(((C_word*)t0)[2],C_i_cdddr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5]);}
17273 else{
17274 t6=((C_word*)t0)[2];{
17275 C_word av2[2];
17276 av2[0]=t6;
17277 av2[1]=((C_word*)t0)[5];
17278 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}
17279 
17280 /* chicken.irregex#sre-sequence-names in k7761 in k7536 in k7533 */
f_18704(C_word t1,C_word t2,C_word t3,C_word t4)17281 static void C_fcall f_18704(C_word t1,C_word t2,C_word t3,C_word t4){
17282 C_word tmp;
17283 C_word t5;
17284 C_word t6;
17285 C_word t7;
17286 C_word *a;
17287 C_check_for_interrupt;
17288 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
17289 C_save_and_reclaim_args((void *)trf_18704,4,t1,t2,t3,t4);}
17290 a=C_alloc(7);
17291 if(C_truep(C_i_nullp(t2))){
17292 t5=t1;{
17293 C_word av2[2];
17294 av2[0]=t5;
17295 av2[1]=t4;
17296 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
17297 else{
17298 t5=C_i_cdr(t2);
17299 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18732,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
17300 /* irregex-core.scm:1931: sre-count-submatches */
17301 f_16982(t6,C_u_i_car(t2));}}
17302 
17303 /* k18724 in k18730 in chicken.irregex#sre-sequence-names in k7761 in k7536 in k7533 */
f_18726(C_word c,C_word * av)17304 static void C_ccall f_18726(C_word c,C_word *av){
17305 C_word tmp;
17306 C_word t0=av[0];
17307 C_word t1=av[1];
17308 C_word t2;
17309 C_word *a;
17310 C_check_for_interrupt;
17311 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
17312 C_save_and_reclaim((void *)f_18726,c,av);}
17313 /* irregex-core.scm:1930: sre-sequence-names */
17314 f_18704(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);}
17315 
17316 /* k18730 in chicken.irregex#sre-sequence-names in k7761 in k7536 in k7533 */
f_18732(C_word c,C_word * av)17317 static void C_ccall f_18732(C_word c,C_word *av){
17318 C_word tmp;
17319 C_word t0=av[0];
17320 C_word t1=av[1];
17321 C_word t2;
17322 C_word t3;
17323 C_word t4;
17324 C_word *a;
17325 C_check_for_interrupt;
17326 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
17327 C_save_and_reclaim((void *)f_18732,c,av);}
17328 a=C_alloc(5);
17329 t2=C_fixnum_plus(((C_word*)t0)[2],t1);
17330 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18726,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
17331 /* irregex-core.scm:1932: sre-names */
17332 f_18418(t3,C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[2],((C_word*)t0)[6]);}
17333 
17334 /* chicken.irregex#sre-remove-initial-bos in k7761 in k7536 in k7533 */
f_18736(C_word c,C_word * av)17335 static void C_ccall f_18736(C_word c,C_word *av){
17336 C_word tmp;
17337 C_word t0=av[0];
17338 C_word t1=av[1];
17339 C_word t2=av[2];
17340 C_word t3;
17341 C_word t4;
17342 C_word t5;
17343 C_word t6;
17344 C_word t7;
17345 C_word t8;
17346 C_word t9;
17347 C_word t10;
17348 C_word t11;
17349 C_word t12;
17350 C_word *a;
17351 if(c!=3) C_bad_argc_2(c,3,t0);
17352 C_check_for_interrupt;
17353 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
17354 C_save_and_reclaim((void *)f_18736,c,av);}
17355 a=C_alloc(5);
17356 if(C_truep(C_i_pairp(t2))){
17357 t3=C_u_i_car(t2);
17358 t4=C_eqp(t3,lf[115]);
17359 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18753,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
17360 if(C_truep(t4)){
17361 t6=t5;
17362 f_18753(t6,t4);}
17363 else{
17364 t6=C_eqp(t3,lf[227]);
17365 if(C_truep(t6)){
17366 t7=t5;
17367 f_18753(t7,t6);}
17368 else{
17369 t7=C_eqp(t3,lf[245]);
17370 if(C_truep(t7)){
17371 t8=t5;
17372 f_18753(t8,t7);}
17373 else{
17374 t8=C_eqp(t3,lf[108]);
17375 if(C_truep(t8)){
17376 t9=t5;
17377 f_18753(t9,t8);}
17378 else{
17379 t9=C_eqp(t3,lf[119]);
17380 if(C_truep(t9)){
17381 t10=t5;
17382 f_18753(t10,t9);}
17383 else{
17384 t10=C_eqp(t3,lf[120]);
17385 if(C_truep(t10)){
17386 t11=t5;
17387 f_18753(t11,t10);}
17388 else{
17389 t11=C_eqp(t3,lf[127]);
17390 t12=t5;
17391 f_18753(t12,(C_truep(t11)?t11:C_eqp(t3,lf[129])));}}}}}}}
17392 else{
17393 t3=t1;{
17394 C_word *av2=av;
17395 av2[0]=t3;
17396 av2[1]=t2;
17397 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17398 
17399 /* k18751 in chicken.irregex#sre-remove-initial-bos in k7761 in k7536 in k7533 */
f_18753(C_word t0,C_word t1)17400 static void C_fcall f_18753(C_word t0,C_word t1){
17401 C_word tmp;
17402 C_word t2;
17403 C_word t3;
17404 C_word t4;
17405 C_word t5;
17406 C_word t6;
17407 C_word t7;
17408 C_word t8;
17409 C_word t9;
17410 C_word t10;
17411 C_word t11;
17412 C_word t12;
17413 C_word t13;
17414 C_word t14;
17415 C_word *a;
17416 C_check_for_interrupt;
17417 if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
17418 C_save_and_reclaim_args((void *)trf_18753,2,t0,t1);}
17419 a=C_alloc(16);
17420 if(C_truep(t1)){
17421 t2=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
17422 if(C_truep(C_i_not(t2))){
17423 t3=((C_word*)t0)[3];{
17424 C_word av2[2];
17425 av2[0]=t3;
17426 av2[1]=((C_word*)t0)[2];
17427 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
17428 else{
17429 t3=C_i_cadr(((C_word*)t0)[2]);
17430 t4=C_eqp(lf[186],t3);
17431 if(C_truep(t4)){
17432 t5=C_u_i_car(((C_word*)t0)[2]);
17433 t6=C_u_i_cdr(((C_word*)t0)[2]);
17434 t7=C_u_i_cdr(t6);
17435 t8=((C_word*)t0)[3];{
17436 C_word av2[2];
17437 av2[0]=t8;
17438 av2[1]=C_a_i_cons(&a,2,t5,t7);
17439 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
17440 else{
17441 t5=C_u_i_car(((C_word*)t0)[2]);
17442 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
17443 t7=C_u_i_cdr(((C_word*)t0)[2]);
17444 /* irregex-core.scm:1946: sre-remove-initial-bos */
17445 t8=lf[270];{
17446 C_word av2[3];
17447 av2[0]=t8;
17448 av2[1]=t6;
17449 av2[2]=C_u_i_car(t7);
17450 f_18736(3,av2);}}}}
17451 else{
17452 t2=C_eqp(((C_word*)t0)[4],lf[103]);
17453 if(C_truep(t2)){
17454 t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
17455 t4=t3;
17456 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
17457 t6=((C_word*)t5)[1];
17458 t7=lf[270];
17459 t8=C_u_i_cdr(((C_word*)t0)[2]);
17460 t9=C_i_check_list_2(t8,lf[211]);
17461 t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18823,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
17462 t11=C_SCHEME_UNDEFINED;
17463 t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
17464 t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18825,a[2]=t5,a[3]=t12,a[4]=t6,a[5]=((C_word)li229),tmp=(C_word)a,a+=6,tmp));
17465 t14=((C_word*)t12)[1];
17466 f_18825(t14,t10,t8);}
17467 else{
17468 t3=((C_word*)t0)[3];{
17469 C_word av2[2];
17470 av2[0]=t3;
17471 av2[1]=((C_word*)t0)[2];
17472 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
17473 
17474 /* k18784 in k18751 in chicken.irregex#sre-remove-initial-bos in k7761 in k7536 in k7533 */
f_18786(C_word c,C_word * av)17475 static void C_ccall f_18786(C_word c,C_word *av){
17476 C_word tmp;
17477 C_word t0=av[0];
17478 C_word t1=av[1];
17479 C_word t2;
17480 C_word t3;
17481 C_word t4;
17482 C_word *a;
17483 C_check_for_interrupt;
17484 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
17485 C_save_and_reclaim((void *)f_18786,c,av);}
17486 a=C_alloc(6);
17487 t2=C_i_cddr(((C_word*)t0)[2]);
17488 t3=C_a_i_cons(&a,2,t1,t2);
17489 t4=((C_word*)t0)[3];{
17490 C_word *av2=av;
17491 av2[0]=t4;
17492 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
17493 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
17494 
17495 /* k18821 in k18751 in chicken.irregex#sre-remove-initial-bos in k7761 in k7536 in k7533 */
f_18823(C_word c,C_word * av)17496 static void C_ccall f_18823(C_word c,C_word *av){
17497 C_word tmp;
17498 C_word t0=av[0];
17499 C_word t1=av[1];
17500 C_word t2;
17501 C_word *a;
17502 C_check_for_interrupt;
17503 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
17504 C_save_and_reclaim((void *)f_18823,c,av);}
17505 a=C_alloc(3);
17506 /* irregex-core.scm:1948: sre-alternate */
17507 t2=((C_word*)t0)[2];{
17508 C_word *av2=av;
17509 av2[0]=t2;
17510 av2[1]=(
17511 /* irregex-core.scm:1948: sre-alternate */
17512   f_18214(C_a_i(&a,3),t1)
17513 );
17514 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
17515 
17516 /* map-loop3205 in k18751 in chicken.irregex#sre-remove-initial-bos in k7761 in k7536 in k7533 */
f_18825(C_word t0,C_word t1,C_word t2)17517 static void C_fcall f_18825(C_word t0,C_word t1,C_word t2){
17518 C_word tmp;
17519 C_word t3;
17520 C_word t4;
17521 C_word *a;
17522 C_check_for_interrupt;
17523 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
17524 C_save_and_reclaim_args((void *)trf_18825,3,t0,t1,t2);}
17525 a=C_alloc(6);
17526 if(C_truep(C_i_pairp(t2))){
17527 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18850,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);
17528 /* irregex-core.scm:1948: g3211 */
17529 t4=lf[270];{
17530 C_word av2[3];
17531 av2[0]=t4;
17532 av2[1]=t3;
17533 av2[2]=C_slot(t2,C_fix(0));
17534 f_18736(3,av2);}}
17535 else{
17536 t3=t1;{
17537 C_word av2[2];
17538 av2[0]=t3;
17539 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
17540 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
17541 
17542 /* k18848 in map-loop3205 in k18751 in chicken.irregex#sre-remove-initial-bos in k7761 in k7536 in k7533 */
f_18850(C_word c,C_word * av)17543 static void C_ccall f_18850(C_word c,C_word *av){
17544 C_word tmp;
17545 C_word t0=av[0];
17546 C_word t1=av[1];
17547 C_word t2;
17548 C_word t3;
17549 C_word t4;
17550 C_word t5;
17551 C_word *a;
17552 C_check_for_interrupt;
17553 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
17554 C_save_and_reclaim((void *)f_18850,c,av);}
17555 a=C_alloc(3);
17556 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
17557 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
17558 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
17559 t5=((C_word*)((C_word*)t0)[3])[1];
17560 f_18825(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
17561 
17562 /* k18916 in k7761 in k7536 in k7533 */
f_18918(C_word c,C_word * av)17563 static void C_ccall f_18918(C_word c,C_word *av){
17564 C_word tmp;
17565 C_word t0=av[0];
17566 C_word t1=av[1];
17567 C_word t2;
17568 C_word t3;
17569 C_word t4;
17570 C_word t5;
17571 C_word t6;
17572 C_word t7;
17573 C_word t8;
17574 C_word t9;
17575 C_word t10;
17576 C_word t11;
17577 C_word t12;
17578 C_word t13;
17579 C_word t14;
17580 C_word t15;
17581 C_word t16;
17582 C_word t17;
17583 C_word t18;
17584 C_word t19;
17585 C_word t20;
17586 C_word t21;
17587 C_word t22;
17588 C_word t23;
17589 C_word t24;
17590 C_word t25;
17591 C_word t26;
17592 C_word t27;
17593 C_word t28;
17594 C_word t29;
17595 C_word t30;
17596 C_word t31;
17597 C_word t32;
17598 C_word t33;
17599 C_word t34;
17600 C_word t35;
17601 C_word t36;
17602 C_word t37;
17603 C_word t38;
17604 C_word t39;
17605 C_word t40;
17606 C_word t41;
17607 C_word t42;
17608 C_word t43;
17609 C_word t44;
17610 C_word t45;
17611 C_word t46;
17612 C_word t47;
17613 C_word t48;
17614 C_word t49;
17615 C_word t50;
17616 C_word t51;
17617 C_word t52;
17618 C_word t53;
17619 C_word t54;
17620 C_word t55;
17621 C_word t56;
17622 C_word t57;
17623 C_word t58;
17624 C_word t59;
17625 C_word t60;
17626 C_word t61;
17627 C_word t62;
17628 C_word t63;
17629 C_word t64;
17630 C_word t65;
17631 C_word t66;
17632 C_word t67;
17633 C_word t68;
17634 C_word t69;
17635 C_word t70;
17636 C_word t71;
17637 C_word t72;
17638 C_word t73;
17639 C_word t74;
17640 C_word t75;
17641 C_word t76;
17642 C_word t77;
17643 C_word t78;
17644 C_word t79;
17645 C_word t80;
17646 C_word t81;
17647 C_word t82;
17648 C_word t83;
17649 C_word t84;
17650 C_word t85;
17651 C_word t86;
17652 C_word t87;
17653 C_word t88;
17654 C_word t89;
17655 C_word t90;
17656 C_word t91;
17657 C_word t92;
17658 C_word t93;
17659 C_word t94;
17660 C_word t95;
17661 C_word t96;
17662 C_word t97;
17663 C_word t98;
17664 C_word t99;
17665 C_word t100;
17666 C_word t101;
17667 C_word t102;
17668 C_word t103;
17669 C_word t104;
17670 C_word t105;
17671 C_word t106;
17672 C_word t107;
17673 C_word t108;
17674 C_word t109;
17675 C_word t110;
17676 C_word t111;
17677 C_word t112;
17678 C_word t113;
17679 C_word t114;
17680 C_word t115;
17681 C_word t116;
17682 C_word t117;
17683 C_word t118;
17684 C_word t119;
17685 C_word t120;
17686 C_word t121;
17687 C_word t122;
17688 C_word t123;
17689 C_word t124;
17690 C_word t125;
17691 C_word t126;
17692 C_word t127;
17693 C_word t128;
17694 C_word t129;
17695 C_word t130;
17696 C_word t131;
17697 C_word t132;
17698 C_word t133;
17699 C_word t134;
17700 C_word t135;
17701 C_word t136;
17702 C_word t137;
17703 C_word t138;
17704 C_word t139;
17705 C_word t140;
17706 C_word t141;
17707 C_word t142;
17708 C_word t143;
17709 C_word t144;
17710 C_word t145;
17711 C_word t146;
17712 C_word t147;
17713 C_word t148;
17714 C_word t149;
17715 C_word t150;
17716 C_word t151;
17717 C_word t152;
17718 C_word t153;
17719 C_word t154;
17720 C_word t155;
17721 C_word t156;
17722 C_word t157;
17723 C_word t158;
17724 C_word t159;
17725 C_word t160;
17726 C_word t161;
17727 C_word t162;
17728 C_word t163;
17729 C_word t164;
17730 C_word t165;
17731 C_word t166;
17732 C_word t167;
17733 C_word t168;
17734 C_word t169;
17735 C_word t170;
17736 C_word t171;
17737 C_word t172;
17738 C_word t173;
17739 C_word t174;
17740 C_word t175;
17741 C_word t176;
17742 C_word t177;
17743 C_word t178;
17744 C_word t179;
17745 C_word t180;
17746 C_word t181;
17747 C_word t182;
17748 C_word t183;
17749 C_word t184;
17750 C_word t185;
17751 C_word t186;
17752 C_word t187;
17753 C_word t188;
17754 C_word t189;
17755 C_word t190;
17756 C_word t191;
17757 C_word t192;
17758 C_word t193;
17759 C_word t194;
17760 C_word t195;
17761 C_word t196;
17762 C_word t197;
17763 C_word t198;
17764 C_word t199;
17765 C_word t200;
17766 C_word t201;
17767 C_word *a;
17768 C_check_for_interrupt;
17769 if(C_unlikely(!C_demand(C_calculate_demand(1658,c,10)))){
17770 C_save_and_reclaim((void *)f_18918,c,av);}
17771 a=C_alloc(1658);
17772 t2=C_mutate(&lf[285] /* (set! chicken.irregex#irregex-basic-string-chunker ...) */,t1);
17773 t3=C_mutate((C_word*)lf[286]+1 /* (set! chicken.irregex#irregex-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18920,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp));
17774 t4=C_mutate((C_word*)lf[287]+1 /* (set! chicken.irregex#irregex-search/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19010,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp));
17775 t5=C_mutate(&lf[292] /* (set! chicken.irregex#irregex-search/matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19053,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp));
17776 t6=C_mutate((C_word*)lf[298]+1 /* (set! chicken.irregex#irregex-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19302,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp));
17777 t7=C_mutate((C_word*)lf[299]+1 /* (set! chicken.irregex#irregex-match/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19392,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp));
17778 t8=C_mutate((C_word*)lf[304]+1 /* (set! chicken.irregex#irregex-match? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19620,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp));
17779 t9=C_mutate(&lf[305] /* (set! chicken.irregex#finalize! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19816,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp));
17780 t10=C_mutate(&lf[295] /* (set! chicken.irregex#dfa-match/longest ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19935,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp));
17781 t11=C_a_i_cons(&a,2,lf[124],lf[53]);
17782 t12=C_a_i_string(&a,1,C_make_character(10));
17783 t13=C_a_i_list(&a,1,t12);
17784 t14=C_a_i_list(&a,4,lf[125],lf[247],lf[53],t13);
17785 t15=C_a_i_list(&a,6,lf[307],lf[52],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90));
17786 t16=C_a_i_cons(&a,2,lf[308],lf[307]);
17787 t17=C_a_i_list(&a,8,lf[181],lf[52],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90),C_make_character(48),C_make_character(57));
17788 t18=C_a_i_cons(&a,2,lf[309],lf[181]);
17789 t19=C_a_i_cons(&a,2,lf[310],lf[181]);
17790 t20=C_a_i_list(&a,4,lf[311],lf[52],C_make_character(97),C_make_character(122));
17791 t21=C_a_i_cons(&a,2,lf[312],lf[311]);
17792 t22=C_a_i_list(&a,4,lf[313],lf[52],C_make_character(65),C_make_character(90));
17793 t23=C_a_i_cons(&a,2,lf[314],lf[313]);
17794 t24=C_a_i_list(&a,4,lf[178],lf[52],C_make_character(48),C_make_character(57));
17795 t25=C_a_i_cons(&a,2,lf[315],lf[178]);
17796 t26=C_a_i_cons(&a,2,lf[316],lf[178]);
17797 t27=C_a_i_list(&a,25,lf[317],lf[103],C_make_character(33),C_make_character(34),C_make_character(35),C_make_character(37),C_make_character(38),C_make_character(39),C_make_character(40),C_make_character(41),C_make_character(42),C_make_character(44),C_make_character(45),C_make_character(46),C_make_character(47),C_make_character(58),C_make_character(59),C_make_character(63),C_make_character(64),C_make_character(91),C_make_character(92),C_make_character(93),C_make_character(95),C_make_character(123),C_make_character(125));
17798 t28=C_a_i_cons(&a,2,lf[318],lf[317]);
17799 t29=C_a_i_list(&a,13,lf[319],lf[103],lf[181],lf[317],C_make_character(36),C_make_character(43),C_make_character(60),C_make_character(61),C_make_character(62),C_make_character(94),C_make_character(96),C_make_character(124),C_make_character(126));
17800 t30=C_a_i_cons(&a,2,lf[320],lf[319]);
17801 t31=C_a_i_list(&a,4,lf[321],lf[103],C_make_character(32),C_make_character(9));
17802 t32=C_a_i_list(&a,4,lf[322],lf[103],lf[321],C_make_character(10));
17803 t33=C_a_i_cons(&a,2,lf[79],lf[322]);
17804 t34=C_a_i_cons(&a,2,lf[323],lf[322]);
17805 t35=C_a_i_list(&a,4,lf[324],lf[103],lf[319],lf[322]);
17806 t36=C_a_i_cons(&a,2,lf[325],lf[324]);
17807 t37=C_a_i_list(&a,4,lf[326],lf[52],C_make_character(0),C_make_character(31));
17808 t38=C_a_i_cons(&a,2,lf[327],lf[326]);
17809 t39=C_a_i_list(&a,5,lf[52],C_make_character(97),C_make_character(102),C_make_character(65),C_make_character(70));
17810 t40=C_a_i_list(&a,4,lf[328],lf[103],lf[178],t39);
17811 t41=C_a_i_cons(&a,2,lf[329],lf[328]);
17812 t42=C_a_i_list(&a,4,lf[330],lf[52],C_make_character(0),C_make_character(127));
17813 t43=C_a_i_list(&a,6,lf[331],lf[52],C_make_character(0),C_make_character(9),C_make_character(11),C_make_character(127));
17814 t44=C_a_i_list(&a,3,lf[115],C_make_character(13),C_make_character(10));
17815 t45=C_a_i_list(&a,3,lf[52],C_make_character(10),C_make_character(13));
17816 t46=C_a_i_list(&a,4,lf[80],lf[103],t44,t45);
17817 t47=C_a_i_list(&a,3,lf[103],lf[181],C_make_character(95));
17818 t48=C_a_i_list(&a,2,lf[129],t47);
17819 t49=C_a_i_list(&a,5,lf[231],lf[115],lf[183],t48,lf[184]);
17820 t50=C_a_i_list(&a,4,lf[332],lf[52],C_make_character(128),C_make_character(193));
17821 t51=C_a_i_list(&a,3,lf[52],C_make_character(194),C_make_character(223));
17822 t52=C_a_i_list(&a,4,lf[333],lf[115],t51,lf[332]);
17823 t53=C_a_i_list(&a,3,lf[52],C_make_character(224),C_make_character(239));
17824 t54=C_a_i_list(&a,5,lf[334],lf[115],t53,lf[332],lf[332]);
17825 t55=C_a_i_list(&a,3,lf[52],C_make_character(240),C_make_character(247));
17826 t56=C_a_i_list(&a,6,lf[335],lf[115],t55,lf[332],lf[332],lf[332]);
17827 t57=C_a_i_list(&a,6,lf[274],lf[103],lf[330],lf[333],lf[334],lf[335]);
17828 t58=C_a_i_list(&a,6,lf[275],lf[103],lf[331],lf[333],lf[334],lf[335]);
17829 t59=C_a_i_list(&a,3,lf[103],C_make_character(43),C_make_character(45));
17830 t60=C_a_i_list(&a,2,lf[131],t59);
17831 t61=C_a_i_list(&a,2,lf[129],lf[178]);
17832 t62=C_a_i_list(&a,4,lf[336],lf[115],t60,t61);
17833 t63=C_a_i_list(&a,3,lf[103],C_make_character(43),C_make_character(45));
17834 t64=C_a_i_list(&a,2,lf[131],t63);
17835 t65=C_a_i_list(&a,2,lf[129],lf[178]);
17836 t66=C_a_i_list(&a,2,lf[129],lf[178]);
17837 t67=C_a_i_list(&a,3,lf[131],C_make_character(46),t66);
17838 t68=C_a_i_list(&a,3,lf[103],C_make_character(101),C_make_character(69));
17839 t69=C_a_i_list(&a,3,lf[131],t68,lf[336]);
17840 t70=C_a_i_list(&a,6,lf[337],lf[115],t64,t65,t67,t69);
17841 t71=C_a_i_list(&a,1,lf[338]);
17842 t72=C_a_i_list(&a,4,lf[339],lf[103],lf[308],t71);
17843 t73=C_a_i_list(&a,1,lf[340]);
17844 t74=C_a_i_list(&a,5,lf[341],lf[103],lf[339],lf[316],t73);
17845 t75=C_a_i_list(&a,2,lf[127],lf[341]);
17846 t76=C_a_i_list(&a,3,lf[115],lf[339],t75);
17847 t77=C_a_i_list(&a,1,lf[342]);
17848 t78=C_a_i_list(&a,2,lf[127],lf[341]);
17849 t79=C_a_i_list(&a,3,lf[131],lf[339],t78);
17850 t80=C_a_i_list(&a,3,lf[115],t77,t79);
17851 t81=C_a_i_list(&a,2,lf[127],lf[343]);
17852 t82=C_a_i_list(&a,3,lf[115],lf[344],t81);
17853 t83=C_a_i_list(&a,5,lf[345],lf[103],t76,t80,t82);
17854 t84=C_a_i_list(&a,2,lf[127],lf[79]);
17855 t85=C_a_i_list(&a,2,lf[127],lf[125]);
17856 t86=C_a_i_list(&a,5,lf[127],t84,lf[346],t85,lf[80]);
17857 t87=C_a_i_list(&a,2,lf[129],lf[79]);
17858 t88=C_a_i_list(&a,4,lf[347],lf[115],t86,t87);
17859 t89=C_a_i_list(&a,3,lf[348],C_make_character(92),C_make_character(34));
17860 t90=C_a_i_list(&a,5,lf[349],lf[115],C_make_character(34),t89,C_make_character(34));
17861 t91=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30774,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp);
17862 t92=C_a_i_cons(&a,2,lf[348],t91);
17863 t93=C_a_i_list(&a,2,lf[52],lf[350]);
17864 t94=C_a_i_list(&a,2,lf[131],t93);
17865 t95=C_a_i_list(&a,2,lf[131],lf[178]);
17866 t96=C_a_i_list(&a,5,lf[351],lf[115],t94,t95,lf[178]);
17867 t97=C_a_i_list(&a,4,lf[134],C_fix(3),C_make_character(46),lf[351]);
17868 t98=C_a_i_list(&a,4,lf[352],lf[115],lf[351],t97);
17869 t99=C_a_i_list(&a,4,lf[133],C_fix(0),C_fix(4),lf[328]);
17870 t100=C_a_i_list(&a,2,lf[131],C_make_character(58));
17871 t101=C_a_i_list(&a,4,lf[133],C_fix(0),C_fix(4),lf[328]);
17872 t102=C_a_i_list(&a,6,lf[133],C_fix(1),C_fix(7),C_make_character(58),t100,t101);
17873 t103=C_a_i_list(&a,4,lf[353],lf[115],t99,t102);
17874 t104=C_a_i_list(&a,4,lf[354],lf[103],lf[352],lf[353]);
17875 t105=C_a_i_list(&a,4,lf[103],lf[181],C_make_character(95),C_make_character(45));
17876 t106=C_a_i_list(&a,3,lf[355],lf[129],t105);
17877 t107=C_a_i_list(&a,3,lf[129],C_make_character(46),lf[355]);
17878 t108=C_a_i_list(&a,4,lf[356],lf[115],lf[355],t107);
17879 t109=C_a_i_list(&a,3,lf[134],C_fix(2),lf[308]);
17880 t110=C_a_i_list(&a,16,lf[103],lf[357],lf[358],lf[359],lf[360],lf[361],lf[362],lf[363],lf[364],lf[365],lf[366],lf[367],lf[368],lf[369],lf[370],t109);
17881 t111=C_a_i_list(&a,3,lf[371],lf[226],t110);
17882 t112=C_a_i_list(&a,3,lf[129],lf[355],C_make_character(46));
17883 t113=C_a_i_list(&a,4,lf[372],lf[115],t112,lf[371]);
17884 t114=C_a_i_list(&a,6,lf[103],lf[181],C_make_character(95),C_make_character(45),C_make_character(46),C_make_character(43));
17885 t115=C_a_i_list(&a,3,lf[373],lf[129],t114);
17886 t116=C_a_i_list(&a,5,lf[374],lf[115],lf[373],C_make_character(64),lf[356]);
17887 t117=C_a_i_list(&a,4,lf[115],lf[375],lf[328],lf[328]);
17888 t118=C_a_i_list(&a,14,lf[376],lf[103],lf[310],C_make_character(95),C_make_character(45),C_make_character(43),C_make_character(92),C_make_character(61),C_make_character(126),C_make_character(46),C_make_character(44),C_make_character(38),C_make_character(59),t117);
17889 t119=C_a_i_list(&a,4,lf[115],lf[377],lf[328],lf[328]);
17890 t120=C_a_i_list(&a,11,lf[378],lf[103],lf[310],C_make_character(95),C_make_character(45),C_make_character(43),C_make_character(92),C_make_character(61),C_make_character(126),C_make_character(38),t119);
17891 t121=C_a_i_list(&a,2,lf[131],lf[379]);
17892 t122=C_a_i_list(&a,3,lf[103],lf[356],lf[352]);
17893 t123=C_a_i_list(&a,2,lf[129],lf[178]);
17894 t124=C_a_i_list(&a,3,lf[131],lf[380],t123);
17895 t125=C_a_i_list(&a,3,lf[103],lf[376],lf[381]);
17896 t126=C_a_i_list(&a,2,lf[127],t125);
17897 t127=C_a_i_list(&a,2,lf[127],lf[376]);
17898 t128=C_a_i_list(&a,3,lf[131],lf[382],t127);
17899 t129=C_a_i_list(&a,2,lf[127],lf[376]);
17900 t130=C_a_i_list(&a,3,lf[131],t129,lf[378]);
17901 t131=C_a_i_list(&a,3,lf[131],lf[383],t130);
17902 t132=C_a_i_list(&a,5,lf[131],lf[384],t126,t128,t131);
17903 t133=C_a_i_list(&a,8,lf[385],lf[226],lf[386],t121,lf[387],t122,t124,t132);
17904 t134=C_a_i_list(&a,31,t42,t43,t46,t49,t50,t52,t54,t56,t57,t58,t62,t70,t72,t74,t83,t88,t90,t92,t96,t98,t103,t104,t106,t108,t111,t113,t115,t116,t118,t120,t133);
17905 t135=C_a_i_cons(&a,2,t41,t134);
17906 t136=C_a_i_cons(&a,2,t40,t135);
17907 t137=C_a_i_cons(&a,2,t38,t136);
17908 t138=C_a_i_cons(&a,2,t37,t137);
17909 t139=C_a_i_cons(&a,2,t36,t138);
17910 t140=C_a_i_cons(&a,2,t35,t139);
17911 t141=C_a_i_cons(&a,2,t34,t140);
17912 t142=C_a_i_cons(&a,2,t33,t141);
17913 t143=C_a_i_cons(&a,2,t32,t142);
17914 t144=C_a_i_cons(&a,2,t31,t143);
17915 t145=C_a_i_cons(&a,2,t30,t144);
17916 t146=C_a_i_cons(&a,2,t29,t145);
17917 t147=C_a_i_cons(&a,2,t28,t146);
17918 t148=C_a_i_cons(&a,2,t27,t147);
17919 t149=C_a_i_cons(&a,2,t26,t148);
17920 t150=C_a_i_cons(&a,2,t25,t149);
17921 t151=C_a_i_cons(&a,2,t24,t150);
17922 t152=C_a_i_cons(&a,2,t23,t151);
17923 t153=C_a_i_cons(&a,2,t22,t152);
17924 t154=C_a_i_cons(&a,2,t21,t153);
17925 t155=C_a_i_cons(&a,2,t20,t154);
17926 t156=C_a_i_cons(&a,2,t19,t155);
17927 t157=C_a_i_cons(&a,2,t18,t156);
17928 t158=C_a_i_cons(&a,2,t17,t157);
17929 t159=C_a_i_cons(&a,2,t16,t158);
17930 t160=C_a_i_cons(&a,2,t15,t159);
17931 t161=C_a_i_cons(&a,2,t14,t160);
17932 t162=C_a_i_cons(&a,2,t11,t161);
17933 t163=C_mutate(&lf[248] /* (set! chicken.irregex#sre-named-definitions ...) */,t162);
17934 t164=C_mutate(&lf[388] /* (set! chicken.irregex#nfa-get-epsilons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20582,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp));
17935 t165=C_mutate(&lf[389] /* (set! chicken.irregex#nfa-add-epsilon! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20616,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp));
17936 t166=C_mutate(&lf[268] /* (set! chicken.irregex#sre->nfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20757,a[2]=((C_word)li276),tmp=(C_word)a,a+=3,tmp));
17937 t167=C_mutate(&lf[396] /* (set! chicken.irregex#make-mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21880,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp));
17938 t168=C_mutate(&lf[397] /* (set! chicken.irregex#mst-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21909,a[2]=((C_word)li278),tmp=(C_word)a,a+=3,tmp));
17939 t169=C_mutate(&lf[398] /* (set! chicken.irregex#nfa-state->mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21926,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp));
17940 t170=C_mutate(&lf[399] /* (set! chicken.irregex#mst-add! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21935,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp));
17941 t171=C_mutate(&lf[400] /* (set! chicken.irregex#mst-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22287,a[2]=((C_word)li284),tmp=(C_word)a,a+=3,tmp));
17942 t172=C_mutate(&lf[267] /* (set! chicken.irregex#nfa->dfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22369,a[2]=((C_word)li298),tmp=(C_word)a,a+=3,tmp));
17943 t173=C_mutate(&lf[403] /* (set! chicken.irregex#nfa-epsilon-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23054,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp));
17944 t174=C_mutate(&lf[402] /* (set! chicken.irregex#tag-set-commands-for-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23069,a[2]=((C_word)li310),tmp=(C_word)a,a+=3,tmp));
17945 t175=C_mutate(&lf[223] /* (set! chicken.irregex#sre-cset->procedure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26168,a[2]=((C_word)li312),tmp=(C_word)a,a+=3,tmp));
17946 t176=C_mutate(&lf[216] /* (set! chicken.irregex#cset->plist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26381,a[2]=((C_word)li314),tmp=(C_word)a,a+=3,tmp));
17947 t177=C_mutate(&lf[391] /* (set! chicken.irregex#string->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26472,a[2]=((C_word)li316),tmp=(C_word)a,a+=3,tmp));
17948 t178=C_mutate(&lf[172] /* (set! chicken.irregex#sre->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26492,a[2]=((C_word)li326),tmp=(C_word)a,a+=3,tmp));
17949 t179=C_mutate(&lf[296] /* (set! chicken.irregex#cset-contains? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26959,a[2]=((C_word)li328),tmp=(C_word)a,a+=3,tmp));
17950 t180=C_mutate(&lf[408] /* (set! chicken.irregex#char-ranges-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27044,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp));
17951 t181=C_mutate(&lf[162] /* (set! chicken.irregex#cset-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27080,a[2]=((C_word)li331),tmp=(C_word)a,a+=3,tmp));
17952 t182=C_mutate(&lf[404] /* (set! chicken.irregex#cset-difference ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27275,a[2]=((C_word)li333),tmp=(C_word)a,a+=3,tmp));
17953 t183=C_mutate(&lf[405] /* (set! chicken.irregex#cset-intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27471,a[2]=((C_word)li335),tmp=(C_word)a,a+=3,tmp));
17954 t184=C_mutate(&lf[164] /* (set! chicken.irregex#cset-complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27597,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp));
17955 t185=C_mutate(&lf[165] /* (set! chicken.irregex#cset-case-insensitive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27607,a[2]=((C_word)li338),tmp=(C_word)a,a+=3,tmp));
17956 t186=C_mutate(&lf[410] /* (set! chicken.irregex#irregex-fold/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27738,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp));
17957 t187=C_mutate((C_word*)lf[415]+1 /* (set! chicken.irregex#irregex-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27956,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp));
17958 t188=C_mutate(&lf[417] /* (set! chicken.irregex#irregex-fold/chunked/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27984,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp));
17959 t189=C_mutate((C_word*)lf[420]+1 /* (set! chicken.irregex#irregex-fold/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28166,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp));
17960 t190=C_mutate((C_word*)lf[422]+1 /* (set! chicken.irregex#irregex-replace ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28194,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp));
17961 t191=C_mutate((C_word*)lf[426]+1 /* (set! chicken.irregex#irregex-replace/all ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28273,a[2]=((C_word)li352),tmp=(C_word)a,a+=3,tmp));
17962 t192=C_mutate(&lf[423] /* (set! chicken.irregex#irregex-apply-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28366,a[2]=((C_word)li355),tmp=(C_word)a,a+=3,tmp));
17963 t193=C_mutate((C_word*)lf[433]+1 /* (set! chicken.irregex#irregex-extract ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28597,a[2]=((C_word)li358),tmp=(C_word)a,a+=3,tmp));
17964 t194=C_mutate((C_word*)lf[436]+1 /* (set! chicken.irregex#irregex-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28632,a[2]=((C_word)li362),tmp=(C_word)a,a+=3,tmp));
17965 t195=C_mutate(&lf[54] /* (set! chicken.irregex#string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28830,a[2]=((C_word)li364),tmp=(C_word)a,a+=3,tmp));
17966 t196=C_mutate((C_word*)lf[440]+1 /* (set! chicken.irregex#irregex-quote ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28873,a[2]=((C_word)li366),tmp=(C_word)a,a+=3,tmp));
17967 t197=C_mutate((C_word*)lf[443]+1 /* (set! chicken.irregex#irregex-opt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28930,a[2]=((C_word)li371),tmp=(C_word)a,a+=3,tmp));
17968 t198=C_mutate(&lf[447] /* (set! chicken.irregex#cset->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29197,a[2]=((C_word)li373),tmp=(C_word)a,a+=3,tmp));
17969 t199=C_mutate((C_word*)lf[452]+1 /* (set! chicken.irregex#sre->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29277,a[2]=((C_word)li383),tmp=(C_word)a,a+=3,tmp));
17970 t200=C_mutate((C_word*)lf[486]+1 /* (set! chicken.irregex#glob->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30033,a[2]=((C_word)li386),tmp=(C_word)a,a+=3,tmp));
17971 t201=((C_word*)t0)[2];{
17972 C_word *av2=av;
17973 av2[0]=t201;
17974 av2[1]=C_SCHEME_UNDEFINED;
17975 ((C_proc)(void*)(*((C_word*)t201+1)))(2,av2);}}
17976 
17977 /* chicken.irregex#irregex-search in k18916 in k7761 in k7536 in k7533 */
f_18920(C_word c,C_word * av)17978 static void C_ccall f_18920(C_word c,C_word *av){
17979 C_word tmp;
17980 C_word t0=av[0];
17981 C_word t1=av[1];
17982 C_word t2=av[2];
17983 C_word t3=av[3];
17984 C_word t4;
17985 C_word *a;
17986 if(c<4) C_bad_min_argc_2(c,4,t0);
17987 C_check_for_interrupt;
17988 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
17989 C_save_and_reclaim((void*)f_18920,c,av);}
17990 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
17991 t4=C_build_rest(&a,c,4,av);
17992 C_word t5;
17993 C_word t6;
17994 C_word t7;
17995 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18924,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
17996 t6=C_i_stringp(t3);
17997 if(C_truep(C_i_not(t6))){
17998 /* irregex-core.scm:1966: chicken.base#error */
17999 t7=*((C_word*)lf[30]+1);{
18000 C_word *av2;
18001 if(c >= 5) {
18002   av2=av;
18003 } else {
18004   av2=C_alloc(5);
18005 }
18006 av2[0]=t7;
18007 av2[1]=t5;
18008 av2[2]=lf[288];
18009 av2[3]=lf[291];
18010 av2[4]=t3;
18011 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
18012 else{
18013 t7=t5;{
18014 C_word *av2=av;
18015 av2[0]=t7;
18016 av2[1]=C_SCHEME_UNDEFINED;
18017 f_18924(2,av2);}}}
18018 
18019 /* k18922 in chicken.irregex#irregex-search in k18916 in k7761 in k7536 in k7533 */
f_18924(C_word c,C_word * av)18020 static void C_ccall f_18924(C_word c,C_word *av){
18021 C_word tmp;
18022 C_word t0=av[0];
18023 C_word t1=av[1];
18024 C_word t2;
18025 C_word t3;
18026 C_word t4;
18027 C_word t5;
18028 C_word t6;
18029 C_word t7;
18030 C_word *a;
18031 C_check_for_interrupt;
18032 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18033 C_save_and_reclaim((void *)f_18924,c,av);}
18034 a=C_alloc(6);
18035 t2=C_i_pairp(((C_word*)t0)[2]);
18036 t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE);
18037 t4=(C_truep(t3)?t3:C_fix(0));
18038 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18933,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
18039 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
18040 t6=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
18041 t7=t5;
18042 f_18933(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE));}
18043 else{
18044 t6=t5;
18045 f_18933(t6,C_SCHEME_FALSE);}}
18046 
18047 /* k18931 in k18922 in chicken.irregex#irregex-search in k18916 in k7761 in k7536 in k7533 */
f_18933(C_word t0,C_word t1)18048 static void C_fcall f_18933(C_word t0,C_word t1){
18049 C_word tmp;
18050 C_word t2;
18051 C_word t3;
18052 C_word t4;
18053 C_word t5;
18054 C_word *a;
18055 C_check_for_interrupt;
18056 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
18057 C_save_and_reclaim_args((void *)trf_18933,2,t0,t1);}
18058 a=C_alloc(7);
18059 t2=(C_truep(t1)?t1:C_i_string_length(((C_word*)t0)[2]));
18060 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18939,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);
18061 if(C_truep(C_i_integerp(((C_word*)t0)[3]))){
18062 t4=C_i_exactp(((C_word*)t0)[3]);
18063 if(C_truep(C_i_not(t4))){
18064 /* irregex-core.scm:1970: chicken.base#error */
18065 t5=*((C_word*)lf[30]+1);{
18066 C_word av2[5];
18067 av2[0]=t5;
18068 av2[1]=t3;
18069 av2[2]=lf[288];
18070 av2[3]=lf[290];
18071 av2[4]=((C_word*)t0)[3];
18072 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
18073 else{
18074 t5=t3;{
18075 C_word av2[2];
18076 av2[0]=t5;
18077 av2[1]=C_SCHEME_UNDEFINED;
18078 f_18939(2,av2);}}}
18079 else{
18080 /* irregex-core.scm:1970: chicken.base#error */
18081 t4=*((C_word*)lf[30]+1);{
18082 C_word av2[5];
18083 av2[0]=t4;
18084 av2[1]=t3;
18085 av2[2]=lf[288];
18086 av2[3]=lf[290];
18087 av2[4]=((C_word*)t0)[3];
18088 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
18089 
18090 /* k18937 in k18931 in k18922 in chicken.irregex#irregex-search in k18916 in k7761 in k7536 in k7533 */
f_18939(C_word c,C_word * av)18091 static void C_ccall f_18939(C_word c,C_word *av){
18092 C_word tmp;
18093 C_word t0=av[0];
18094 C_word t1=av[1];
18095 C_word t2;
18096 C_word t3;
18097 C_word t4;
18098 C_word *a;
18099 C_check_for_interrupt;
18100 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
18101 C_save_and_reclaim((void *)f_18939,c,av);}
18102 a=C_alloc(7);
18103 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18942,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);
18104 if(C_truep(C_i_integerp(((C_word*)t0)[4]))){
18105 t3=C_i_exactp(((C_word*)t0)[4]);
18106 if(C_truep(C_i_not(t3))){
18107 /* irregex-core.scm:1972: chicken.base#error */
18108 t4=*((C_word*)lf[30]+1);{
18109 C_word *av2;
18110 if(c >= 5) {
18111   av2=av;
18112 } else {
18113   av2=C_alloc(5);
18114 }
18115 av2[0]=t4;
18116 av2[1]=t2;
18117 av2[2]=lf[288];
18118 av2[3]=lf[289];
18119 av2[4]=((C_word*)t0)[4];
18120 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
18121 else{
18122 t4=t2;{
18123 C_word *av2=av;
18124 av2[0]=t4;
18125 av2[1]=C_SCHEME_UNDEFINED;
18126 f_18942(2,av2);}}}
18127 else{
18128 /* irregex-core.scm:1972: chicken.base#error */
18129 t3=*((C_word*)lf[30]+1);{
18130 C_word *av2;
18131 if(c >= 5) {
18132   av2=av;
18133 } else {
18134   av2=C_alloc(5);
18135 }
18136 av2[0]=t3;
18137 av2[1]=t2;
18138 av2[2]=lf[288];
18139 av2[3]=lf[289];
18140 av2[4]=((C_word*)t0)[4];
18141 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
18142 
18143 /* k18940 in k18937 in k18931 in k18922 in chicken.irregex#irregex-search in k18916 in k7761 in k7536 in k7533 */
f_18942(C_word c,C_word * av)18144 static void C_ccall f_18942(C_word c,C_word *av){
18145 C_word tmp;
18146 C_word t0=av[0];
18147 C_word t1=av[1];
18148 C_word t2;
18149 C_word t3;
18150 C_word *a;
18151 C_check_for_interrupt;
18152 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
18153 C_save_and_reclaim((void *)f_18942,c,av);}
18154 a=C_alloc(9);
18155 t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
18156 /* irregex-core.scm:1973: irregex-search/chunked */
18157 t3=*((C_word*)lf[287]+1);{
18158 C_word *av2;
18159 if(c >= 6) {
18160   av2=av;
18161 } else {
18162   av2=C_alloc(6);
18163 }
18164 av2[0]=t3;
18165 av2[1]=((C_word*)t0)[5];
18166 av2[2]=((C_word*)t0)[6];
18167 av2[3]=lf[285];
18168 av2[4]=t2;
18169 av2[5]=((C_word*)t0)[3];
18170 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
18171 
18172 /* chicken.irregex#irregex-search/chunked in k18916 in k7761 in k7536 in k7533 */
f_19010(C_word c,C_word * av)18173 static void C_ccall f_19010(C_word c,C_word *av){
18174 C_word tmp;
18175 C_word t0=av[0];
18176 C_word t1=av[1];
18177 C_word t2=av[2];
18178 C_word t3=av[3];
18179 C_word t4=av[4];
18180 C_word t5;
18181 C_word *a;
18182 if(c<5) C_bad_min_argc_2(c,5,t0);
18183 C_check_for_interrupt;
18184 if(C_unlikely(!C_demand(C_calculate_demand((c-5)*C_SIZEOF_PAIR +6,c,2)))){
18185 C_save_and_reclaim((void*)f_19010,c,av);}
18186 a=C_alloc((c-5)*C_SIZEOF_PAIR+6);
18187 t5=C_build_rest(&a,c,5,av);
18188 C_word t6;
18189 C_word t7;
18190 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19014,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
18191 /* irregex-core.scm:1979: irregex */
18192 t7=*((C_word*)lf[217]+1);{
18193 C_word *av2=av;
18194 av2[0]=t7;
18195 av2[1]=t6;
18196 av2[2]=t2;
18197 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
18198 
18199 /* k19012 in chicken.irregex#irregex-search/chunked in k18916 in k7761 in k7536 in k7533 */
f_19014(C_word c,C_word * av)18200 static void C_ccall f_19014(C_word c,C_word *av){
18201 C_word tmp;
18202 C_word t0=av[0];
18203 C_word t1=av[1];
18204 C_word t2;
18205 C_word t3;
18206 C_word *a;
18207 C_check_for_interrupt;
18208 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
18209 C_save_and_reclaim((void *)f_19014,c,av);}
18210 a=C_alloc(7);
18211 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19017,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],tmp=(C_word)a,a+=7,tmp);
18212 /* irregex-core.scm:1980: irregex-new-matches */
18213 f_7622(t2,t1);}
18214 
18215 /* k19015 in k19012 in chicken.irregex#irregex-search/chunked in k18916 in k7761 in k7536 in k7533 */
f_19017(C_word c,C_word * av)18216 static void C_ccall f_19017(C_word c,C_word *av){
18217 C_word tmp;
18218 C_word t0=av[0];
18219 C_word t1=av[1];
18220 C_word t2;
18221 C_word t3;
18222 C_word *a;
18223 C_check_for_interrupt;
18224 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
18225 C_save_and_reclaim((void *)f_19017,c,av);}
18226 a=C_alloc(7);
18227 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19020,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);
18228 if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
18229 t3=t2;{
18230 C_word *av2=av;
18231 av2[0]=t3;
18232 av2[1]=C_u_i_car(((C_word*)t0)[6]);
18233 f_19020(2,av2);}}
18234 else{
18235 /* irregex-core.scm:1981: g3263 */
18236 t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));{
18237 C_word *av2;
18238 if(c >= 3) {
18239   av2=av;
18240 } else {
18241   av2=C_alloc(3);
18242 }
18243 av2[0]=t3;
18244 av2[1]=t2;
18245 av2[2]=((C_word*)t0)[3];
18246 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
18247 
18248 /* k19018 in k19015 in k19012 in chicken.irregex#irregex-search/chunked in k18916 in k7761 in k7536 in k7533 */
f_19020(C_word c,C_word * av)18249 static void C_ccall f_19020(C_word c,C_word *av){
18250 C_word tmp;
18251 C_word t0=av[0];
18252 C_word t1=av[1];
18253 C_word t2;
18254 C_word t3;
18255 C_word *a;
18256 C_check_for_interrupt;
18257 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
18258 C_save_and_reclaim((void *)f_19020,c,av);}
18259 a=C_alloc(8);
18260 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19023,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);
18261 if(C_truep(C_i_not(C_i_integerp(t1)))){
18262 /* irregex-core.scm:1982: chicken.base#error */
18263 t3=*((C_word*)lf[30]+1);{
18264 C_word *av2;
18265 if(c >= 5) {
18266   av2=av;
18267 } else {
18268   av2=C_alloc(5);
18269 }
18270 av2[0]=t3;
18271 av2[1]=t2;
18272 av2[2]=lf[288];
18273 av2[3]=lf[293];
18274 av2[4]=t1;
18275 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
18276 else{
18277 t3=t2;{
18278 C_word *av2=av;
18279 av2[0]=t3;
18280 av2[1]=C_SCHEME_UNDEFINED;
18281 f_19023(2,av2);}}}
18282 
18283 /* k19021 in k19018 in k19015 in k19012 in chicken.irregex#irregex-search/chunked in k18916 in k7761 in k7536 in k7533 */
f_19023(C_word c,C_word * av)18284 static void C_ccall f_19023(C_word c,C_word *av){
18285 C_word tmp;
18286 C_word t0=av[0];
18287 C_word t1=av[1];
18288 C_word t2;
18289 C_word t3;
18290 C_word t4;
18291 C_word *a;
18292 C_check_for_interrupt;
18293 if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){
18294 C_save_and_reclaim((void *)f_19023,c,av);}
18295 a=C_alloc(3);
18296 t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),((C_word*)t0)[3]);
18297 t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
18298 /* irregex-core.scm:1984: irregex-search/matches */
18299 f_19053(((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2]);}
18300 
18301 /* chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19053(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7)18302 static void C_fcall f_19053(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){
18303 C_word tmp;
18304 C_word t8;
18305 C_word t9;
18306 C_word t10;
18307 C_word t11;
18308 C_word t12;
18309 C_word t13;
18310 C_word t14;
18311 C_word t15;
18312 C_word t16;
18313 C_word t17;
18314 C_word t18;
18315 C_word t19;
18316 C_word t20;
18317 C_word t21;
18318 C_word t22;
18319 C_word t23;
18320 C_word t24;
18321 C_word t25;
18322 C_word *a;
18323 C_check_for_interrupt;
18324 if(C_unlikely(!C_demand(C_calculate_demand(20,0,9)))){
18325 C_save_and_reclaim_args((void *)trf_19053,7,t1,t2,t3,t4,t5,t6,t7);}
18326 a=C_alloc(20);
18327 t8=C_i_check_structure_2(t2,lf[6],lf[294]);
18328 if(C_truep(C_slot(t2,C_fix(1)))){
18329 t9=C_slot(t2,C_fix(4));
18330 t10=C_fixnum_and(t9,C_fix(1));
18331 t11=C_eqp(C_fix(1),t10);
18332 if(C_truep(t11)){
18333 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19072,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
18334 /* irregex-core.scm:1994: dfa-match/longest */
18335 f_19935(t12,C_slot(t2,C_fix(1)),t3,t5,t6,C_SCHEME_FALSE,C_SCHEME_FALSE,t7,C_fix(0));}
18336 else{
18337 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19097,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t1,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
18338 t13=C_slot(t2,C_fix(2));
18339 t14=C_i_vector_ref(t3,C_fix(1));
18340 t15=C_i_vector_ref(t3,C_fix(2));
18341 t16=C_i_vector_ref(t3,C_fix(3));
18342 t17=C_i_vector_ref(t3,C_fix(0));
18343 t18=C_i_vector_ref(t13,C_fix(0));
18344 t19=C_i_cadr(t18);
18345 t20=C_i_cadr(t19);
18346 t21=C_i_vector_ref(t13,t20);
18347 t22=C_SCHEME_UNDEFINED;
18348 t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
18349 t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19678,a[2]=t7,a[3]=t13,a[4]=t23,a[5]=t15,a[6]=t17,a[7]=t16,a[8]=t14,a[9]=((C_word)li237),tmp=(C_word)a,a+=10,tmp));
18350 t25=((C_word*)t23)[1];
18351 f_19678(t25,t12,t5,t6,t21);}}
18352 else{
18353 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19184,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
18354 t10=C_i_check_structure_2(t2,lf[6],lf[297]);
18355 t11=C_slot(t2,C_fix(3));
18356 t12=C_i_vector_ref(t3,C_fix(1));
18357 t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19202,a[2]=t3,a[3]=t2,a[4]=t11,a[5]=t9,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,tmp=(C_word)a,a+=10,tmp);
18358 /* irregex-core.scm:2027: g3331 */
18359 t14=t12;{
18360 C_word av2[3];
18361 av2[0]=t14;
18362 av2[1]=t13;
18363 av2[2]=t5;
18364 ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}}
18365 
18366 /* k19070 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19072(C_word c,C_word * av)18367 static void C_ccall f_19072(C_word c,C_word *av){
18368 C_word tmp;
18369 C_word t0=av[0];
18370 C_word t1=av[1];
18371 C_word t2;
18372 C_word t3;
18373 C_word t4;
18374 C_word t5;
18375 C_word t6;
18376 C_word *a;
18377 C_check_for_interrupt;
18378 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
18379 C_save_and_reclaim((void *)f_19072,c,av);}
18380 if(C_truep(t1)){
18381 t2=C_slot(((C_word*)t0)[2],C_fix(1));
18382 t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]);
18383 t4=C_slot(((C_word*)t0)[2],C_fix(1));
18384 t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]);
18385 t6=((C_word*)t0)[5];{
18386 C_word *av2=av;
18387 av2[0]=t6;
18388 av2[1]=((C_word*)t0)[2];
18389 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
18390 else{
18391 t2=((C_word*)t0)[5];{
18392 C_word *av2=av;
18393 av2[0]=t2;
18394 av2[1]=C_SCHEME_FALSE;
18395 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18396 
18397 /* k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19097(C_word c,C_word * av)18398 static void C_ccall f_19097(C_word c,C_word *av){
18399 C_word tmp;
18400 C_word t0=av[0];
18401 C_word t1=av[1];
18402 C_word t2;
18403 C_word t3;
18404 C_word t4;
18405 C_word t5;
18406 C_word t6;
18407 C_word t7;
18408 C_word t8;
18409 C_word t9;
18410 C_word *a;
18411 C_check_for_interrupt;
18412 if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
18413 C_save_and_reclaim((void *)f_19097,c,av);}
18414 a=C_alloc(12);
18415 if(C_truep(t1)){
18416 t2=C_slot(((C_word*)t0)[2],C_fix(1));
18417 t3=C_i_vector_ref(((C_word*)t0)[3],C_fix(2));
18418 t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(3));
18419 t5=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));
18420 t6=C_SCHEME_UNDEFINED;
18421 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
18422 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19114,a[2]=((C_word*)t0)[4],a[3]=t7,a[4]=t3,a[5]=t5,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t4,a[9]=((C_word)li234),tmp=(C_word)a,a+=10,tmp));
18423 t9=((C_word*)t7)[1];
18424 f_19114(t9,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
18425 else{
18426 t2=((C_word*)t0)[5];{
18427 C_word *av2=av;
18428 av2[0]=t2;
18429 av2[1]=C_SCHEME_FALSE;
18430 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18431 
18432 /* lp1 in k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19114(C_word t0,C_word t1,C_word t2,C_word t3)18433 static void C_fcall f_19114(C_word t0,C_word t1,C_word t2,C_word t3){
18434 C_word tmp;
18435 C_word t4;
18436 C_word t5;
18437 C_word *a;
18438 C_check_for_interrupt;
18439 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
18440 C_save_and_reclaim_args((void *)trf_19114,4,t0,t1,t2,t3);}
18441 a=C_alloc(11);
18442 t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19118,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t1,a[10]=t3,tmp=(C_word)a,a+=11,tmp);
18443 /* irregex-core.scm:2007: get-end */
18444 t5=((C_word*)t0)[8];{
18445 C_word av2[3];
18446 av2[0]=t5;
18447 av2[1]=t4;
18448 av2[2]=t2;
18449 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
18450 
18451 /* k19116 in lp1 in k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19118(C_word c,C_word * av)18452 static void C_ccall f_19118(C_word c,C_word *av){
18453 C_word tmp;
18454 C_word t0=av[0];
18455 C_word t1=av[1];
18456 C_word t2;
18457 C_word t3;
18458 C_word t4;
18459 C_word t5;
18460 C_word *a;
18461 C_check_for_interrupt;
18462 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
18463 C_save_and_reclaim((void *)f_19118,c,av);}
18464 a=C_alloc(14);
18465 t2=C_SCHEME_UNDEFINED;
18466 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
18467 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19123,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]=t3,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word)li233),tmp=(C_word)a,a+=12,tmp));
18468 t5=((C_word*)t3)[1];
18469 f_19123(t5,((C_word*)t0)[9],((C_word*)t0)[10]);}
18470 
18471 /* lp2 in k19116 in lp1 in k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19123(C_word t0,C_word t1,C_word t2)18472 static void C_fcall f_19123(C_word t0,C_word t1,C_word t2){
18473 C_word tmp;
18474 C_word t3;
18475 C_word t4;
18476 C_word *a;
18477 C_check_for_interrupt;
18478 if(C_unlikely(!C_demand(C_calculate_demand(11,0,9)))){
18479 C_save_and_reclaim_args((void *)trf_19123,3,t0,t1,t2);}
18480 a=C_alloc(11);
18481 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,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);
18482 /* irregex-core.scm:2010: dfa-match/longest */
18483 f_19935(t3,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[3],t2,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[2],C_fix(0));}
18484 
18485 /* k19128 in lp2 in k19116 in lp1 in k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19130(C_word c,C_word * av)18486 static void C_ccall f_19130(C_word c,C_word *av){
18487 C_word tmp;
18488 C_word t0=av[0];
18489 C_word t1=av[1];
18490 C_word t2;
18491 C_word t3;
18492 C_word t4;
18493 C_word t5;
18494 C_word t6;
18495 C_word *a;
18496 C_check_for_interrupt;
18497 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
18498 C_save_and_reclaim((void *)f_19130,c,av);}
18499 a=C_alloc(5);
18500 if(C_truep(t1)){
18501 t2=C_slot(((C_word*)t0)[2],C_fix(1));
18502 t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]);
18503 t4=C_slot(((C_word*)t0)[2],C_fix(1));
18504 t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]);
18505 t6=((C_word*)t0)[5];{
18506 C_word *av2=av;
18507 av2[0]=t6;
18508 av2[1]=((C_word*)t0)[2];
18509 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
18510 else{
18511 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[4],((C_word*)t0)[6]))){
18512 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19153,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
18513 /* irregex-core.scm:2015: get-next */
18514 t3=((C_word*)t0)[9];{
18515 C_word *av2;
18516 if(c >= 3) {
18517   av2=av;
18518 } else {
18519   av2=C_alloc(3);
18520 }
18521 av2[0]=t3;
18522 av2[1]=t2;
18523 av2[2]=((C_word*)t0)[3];
18524 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18525 else{
18526 /* irregex-core.scm:2018: lp2 */
18527 t2=((C_word*)((C_word*)t0)[10])[1];
18528 f_19123(t2,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}}}
18529 
18530 /* k19151 in k19128 in lp2 in k19116 in lp1 in k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19153(C_word c,C_word * av)18531 static void C_ccall f_19153(C_word c,C_word *av){
18532 C_word tmp;
18533 C_word t0=av[0];
18534 C_word t1=av[1];
18535 C_word t2;
18536 C_word t3;
18537 C_word *a;
18538 C_check_for_interrupt;
18539 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
18540 C_save_and_reclaim((void *)f_19153,c,av);}
18541 a=C_alloc(5);
18542 if(C_truep(t1)){
18543 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
18544 /* irregex-core.scm:2016: get-start */
18545 t3=((C_word*)t0)[4];{
18546 C_word *av2;
18547 if(c >= 3) {
18548   av2=av;
18549 } else {
18550   av2=C_alloc(3);
18551 }
18552 av2[0]=t3;
18553 av2[1]=t2;
18554 av2[2]=t1;
18555 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
18556 else{
18557 t2=((C_word*)t0)[3];{
18558 C_word *av2=av;
18559 av2[0]=t2;
18560 av2[1]=C_SCHEME_FALSE;
18561 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18562 
18563 /* k19161 in k19151 in k19128 in lp2 in k19116 in lp1 in k19095 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19163(C_word c,C_word * av)18564 static void C_ccall f_19163(C_word c,C_word *av){
18565 C_word tmp;
18566 C_word t0=av[0];
18567 C_word t1=av[1];
18568 C_word t2;
18569 C_word *a;
18570 C_check_for_interrupt;
18571 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
18572 C_save_and_reclaim((void *)f_19163,c,av);}
18573 /* irregex-core.scm:2016: lp1 */
18574 t2=((C_word*)((C_word*)t0)[2])[1];
18575 f_19114(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
18576 
18577 /* k19182 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19184(C_word c,C_word * av)18578 static void C_ccall f_19184(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 C_check_for_interrupt;
18586 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
18587 C_save_and_reclaim((void *)f_19184,c,av);}
18588 if(C_truep(t1)){
18589 t2=C_i_set_i_slot(t1,C_fix(4),C_SCHEME_FALSE);
18590 t3=((C_word*)t0)[2];{
18591 C_word *av2=av;
18592 av2[0]=t3;
18593 av2[1]=t1;
18594 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
18595 else{
18596 t2=((C_word*)t0)[2];{
18597 C_word *av2=av;
18598 av2[0]=t2;
18599 av2[1]=t1;
18600 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18601 
18602 /* k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19202(C_word c,C_word * av)18603 static void C_ccall f_19202(C_word c,C_word *av){
18604 C_word tmp;
18605 C_word t0=av[0];
18606 C_word t1=av[1];
18607 C_word t2;
18608 C_word t3;
18609 C_word t4;
18610 C_word *a;
18611 C_check_for_interrupt;
18612 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
18613 C_save_and_reclaim((void *)f_19202,c,av);}
18614 a=C_alloc(11);
18615 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
18616 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19208,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]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
18617 /* irregex-core.scm:2027: g3333 */
18618 t4=t2;{
18619 C_word *av2;
18620 if(c >= 3) {
18621   av2=av;
18622 } else {
18623   av2=C_alloc(3);
18624 }
18625 av2[0]=t4;
18626 av2[1]=t3;
18627 av2[2]=((C_word*)t0)[7];
18628 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
18629 
18630 /* k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19208(C_word c,C_word * av)18631 static void C_ccall f_19208(C_word c,C_word *av){
18632 C_word tmp;
18633 C_word t0=av[0];
18634 C_word t1=av[1];
18635 C_word t2;
18636 C_word t3;
18637 C_word t4;
18638 C_word t5;
18639 C_word t6;
18640 C_word t7;
18641 C_word t8;
18642 C_word t9;
18643 C_word *a;
18644 C_check_for_interrupt;
18645 if(C_unlikely(!C_demand(C_calculate_demand(11,c,9)))){
18646 C_save_and_reclaim((void *)f_19208,c,av);}
18647 a=C_alloc(11);
18648 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
18649 t3=C_slot(((C_word*)t0)[3],C_fix(4));
18650 t4=C_fixnum_and(t3,C_fix(1));
18651 t5=C_eqp(C_fix(1),t4);
18652 if(C_truep(t5)){
18653 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19222,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp);
18654 /* irregex-core.scm:2032: matcher */
18655 t7=((C_word*)t0)[4];{
18656 C_word *av2;
18657 if(c >= 10) {
18658   av2=av;
18659 } else {
18660   av2=C_alloc(10);
18661 }
18662 av2[0]=t7;
18663 av2[1]=((C_word*)t0)[5];
18664 av2[2]=((C_word*)t0)[2];
18665 av2[3]=((C_word*)t0)[6];
18666 av2[4]=((C_word*)t0)[7];
18667 av2[5]=((C_word*)t0)[8];
18668 av2[6]=((C_word*)t0)[9];
18669 av2[7]=t1;
18670 av2[8]=((C_word*)t0)[10];
18671 av2[9]=t6;
18672 ((C_proc)(void*)(*((C_word*)t7+1)))(10,av2);}}
18673 else{
18674 t6=C_SCHEME_UNDEFINED;
18675 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
18676 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19228,a[2]=((C_word*)t0)[10],a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[6],a[8]=((C_word)li240),tmp=(C_word)a,a+=9,tmp));
18677 t9=((C_word*)t7)[1];
18678 f_19228(t9,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t1);}}
18679 
18680 /* a19221 in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19222(C_word c,C_word * av)18681 static void C_ccall f_19222(C_word c,C_word *av){
18682 C_word tmp;
18683 C_word t0=av[0];
18684 C_word t1=av[1];
18685 C_word t2;
18686 C_word *a;
18687 if(c!=2) C_bad_argc_2(c,2,t0);
18688 C_check_for_interrupt;
18689 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
18690 C_save_and_reclaim((void *)f_19222,c,av);}
18691 t2=t1;{
18692 C_word *av2=av;
18693 av2[0]=t2;
18694 av2[1]=C_SCHEME_FALSE;
18695 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
18696 
18697 /* lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19228(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)18698 static void C_fcall f_19228(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
18699 C_word tmp;
18700 C_word t6;
18701 C_word t7;
18702 C_word t8;
18703 C_word *a;
18704 C_check_for_interrupt;
18705 if(C_unlikely(!C_demand(C_calculate_demand(14,0,9)))){
18706 C_save_and_reclaim_args((void *)trf_19228,6,t0,t1,t2,t3,t4,t5);}
18707 a=C_alloc(14);
18708 t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19235,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=t1,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp);
18709 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19294,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp);
18710 /* irregex-core.scm:2038: matcher */
18711 t8=((C_word*)t0)[6];{
18712 C_word av2[10];
18713 av2[0]=t8;
18714 av2[1]=t6;
18715 av2[2]=((C_word*)t0)[4];
18716 av2[3]=((C_word*)t0)[7];
18717 av2[4]=t2;
18718 av2[5]=t3;
18719 av2[6]=t4;
18720 av2[7]=t5;
18721 av2[8]=((C_word*)t0)[2];
18722 av2[9]=t7;
18723 ((C_proc)(void*)(*((C_word*)t8+1)))(10,av2);}}
18724 
18725 /* k19233 in lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19235(C_word c,C_word * av)18726 static void C_ccall f_19235(C_word c,C_word *av){
18727 C_word tmp;
18728 C_word t0=av[0];
18729 C_word t1=av[1];
18730 C_word t2;
18731 C_word t3;
18732 C_word t4;
18733 C_word t5;
18734 C_word t6;
18735 C_word *a;
18736 C_check_for_interrupt;
18737 if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
18738 C_save_and_reclaim((void *)f_19235,c,av);}
18739 a=C_alloc(5);
18740 if(C_truep(t1)){
18741 t2=C_slot(((C_word*)t0)[2],C_fix(1));
18742 t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]);
18743 t4=C_slot(((C_word*)t0)[2],C_fix(1));
18744 t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]);
18745 t6=((C_word*)t0)[5];{
18746 C_word *av2=av;
18747 av2[0]=t6;
18748 av2[1]=((C_word*)t0)[2];
18749 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
18750 else{
18751 if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],((C_word*)t0)[6]))){
18752 /* irregex-core.scm:2043: lp */
18753 t2=((C_word*)((C_word*)t0)[7])[1];
18754 f_19228(t2,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[8],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[6]);}
18755 else{
18756 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19265,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
18757 /* irregex-core.scm:2045: get-next */
18758 t3=((C_word*)t0)[10];{
18759 C_word *av2;
18760 if(c >= 3) {
18761   av2=av;
18762 } else {
18763   av2=C_alloc(3);
18764 }
18765 av2[0]=t3;
18766 av2[1]=t2;
18767 av2[2]=((C_word*)t0)[3];
18768 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}
18769 
18770 /* k19263 in k19233 in lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19265(C_word c,C_word * av)18771 static void C_ccall f_19265(C_word c,C_word *av){
18772 C_word tmp;
18773 C_word t0=av[0];
18774 C_word t1=av[1];
18775 C_word t2;
18776 C_word t3;
18777 C_word t4;
18778 C_word *a;
18779 C_check_for_interrupt;
18780 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18781 C_save_and_reclaim((void *)f_19265,c,av);}
18782 a=C_alloc(6);
18783 if(C_truep(t1)){
18784 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
18785 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19278,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
18786 /* irregex-core.scm:2047: g3352 */
18787 t4=t2;{
18788 C_word *av2;
18789 if(c >= 3) {
18790   av2=av;
18791 } else {
18792   av2=C_alloc(3);
18793 }
18794 av2[0]=t4;
18795 av2[1]=t3;
18796 av2[2]=t1;
18797 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
18798 else{
18799 t2=((C_word*)t0)[4];{
18800 C_word *av2=av;
18801 av2[0]=t2;
18802 av2[1]=C_SCHEME_FALSE;
18803 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
18804 
18805 /* k19276 in k19263 in k19233 in lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19278(C_word c,C_word * av)18806 static void C_ccall f_19278(C_word c,C_word *av){
18807 C_word tmp;
18808 C_word t0=av[0];
18809 C_word t1=av[1];
18810 C_word t2;
18811 C_word t3;
18812 C_word t4;
18813 C_word *a;
18814 C_check_for_interrupt;
18815 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
18816 C_save_and_reclaim((void *)f_19278,c,av);}
18817 a=C_alloc(7);
18818 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
18819 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19285,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,tmp=(C_word)a,a+=7,tmp);
18820 /* irregex-core.scm:2047: g3354 */
18821 t4=t2;{
18822 C_word *av2;
18823 if(c >= 3) {
18824   av2=av;
18825 } else {
18826   av2=C_alloc(3);
18827 }
18828 av2[0]=t4;
18829 av2[1]=t3;
18830 av2[2]=((C_word*)t0)[5];
18831 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
18832 
18833 /* k19283 in k19276 in k19263 in k19233 in lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19285(C_word c,C_word * av)18834 static void C_ccall f_19285(C_word c,C_word *av){
18835 C_word tmp;
18836 C_word t0=av[0];
18837 C_word t1=av[1];
18838 C_word t2;
18839 C_word t3;
18840 C_word t4;
18841 C_word *a;
18842 C_check_for_interrupt;
18843 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
18844 C_save_and_reclaim((void *)f_19285,c,av);}
18845 a=C_alloc(7);
18846 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
18847 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19292,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]=t1,tmp=(C_word)a,a+=7,tmp);
18848 /* irregex-core.scm:2047: g3356 */
18849 t4=t2;{
18850 C_word *av2;
18851 if(c >= 3) {
18852   av2=av;
18853 } else {
18854   av2=C_alloc(3);
18855 }
18856 av2[0]=t4;
18857 av2[1]=t3;
18858 av2[2]=((C_word*)t0)[5];
18859 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
18860 
18861 /* k19290 in k19283 in k19276 in k19263 in k19233 in lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19292(C_word c,C_word * av)18862 static void C_ccall f_19292(C_word c,C_word *av){
18863 C_word tmp;
18864 C_word t0=av[0];
18865 C_word t1=av[1];
18866 C_word t2;
18867 C_word *a;
18868 C_check_for_interrupt;
18869 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
18870 C_save_and_reclaim((void *)f_19292,c,av);}
18871 /* irregex-core.scm:2047: lp */
18872 t2=((C_word*)((C_word*)t0)[2])[1];
18873 f_19228(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}
18874 
18875 /* a19293 in lp in k19206 in k19200 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19294(C_word c,C_word * av)18876 static void C_ccall f_19294(C_word c,C_word *av){
18877 C_word tmp;
18878 C_word t0=av[0];
18879 C_word t1=av[1];
18880 C_word t2;
18881 C_word *a;
18882 if(c!=2) C_bad_argc_2(c,2,t0);
18883 C_check_for_interrupt;
18884 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
18885 C_save_and_reclaim((void *)f_19294,c,av);}
18886 t2=t1;{
18887 C_word *av2=av;
18888 av2[0]=t2;
18889 av2[1]=C_SCHEME_FALSE;
18890 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
18891 
18892 /* chicken.irregex#irregex-match in k18916 in k7761 in k7536 in k7533 */
f_19302(C_word c,C_word * av)18893 static void C_ccall f_19302(C_word c,C_word *av){
18894 C_word tmp;
18895 C_word t0=av[0];
18896 C_word t1=av[1];
18897 C_word t2=av[2];
18898 C_word t3=av[3];
18899 C_word t4;
18900 C_word *a;
18901 if(c<4) C_bad_min_argc_2(c,4,t0);
18902 C_check_for_interrupt;
18903 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
18904 C_save_and_reclaim((void*)f_19302,c,av);}
18905 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
18906 t4=C_build_rest(&a,c,4,av);
18907 C_word t5;
18908 C_word t6;
18909 C_word t7;
18910 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19306,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
18911 t6=C_i_stringp(t3);
18912 if(C_truep(C_i_not(t6))){
18913 /* irregex-core.scm:2054: chicken.base#error */
18914 t7=*((C_word*)lf[30]+1);{
18915 C_word *av2;
18916 if(c >= 5) {
18917   av2=av;
18918 } else {
18919   av2=C_alloc(5);
18920 }
18921 av2[0]=t7;
18922 av2[1]=t5;
18923 av2[2]=lf[300];
18924 av2[3]=lf[303];
18925 av2[4]=t3;
18926 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
18927 else{
18928 t7=t5;{
18929 C_word *av2=av;
18930 av2[0]=t7;
18931 av2[1]=C_SCHEME_UNDEFINED;
18932 f_19306(2,av2);}}}
18933 
18934 /* k19304 in chicken.irregex#irregex-match in k18916 in k7761 in k7536 in k7533 */
f_19306(C_word c,C_word * av)18935 static void C_ccall f_19306(C_word c,C_word *av){
18936 C_word tmp;
18937 C_word t0=av[0];
18938 C_word t1=av[1];
18939 C_word t2;
18940 C_word t3;
18941 C_word t4;
18942 C_word t5;
18943 C_word t6;
18944 C_word t7;
18945 C_word *a;
18946 C_check_for_interrupt;
18947 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
18948 C_save_and_reclaim((void *)f_19306,c,av);}
18949 a=C_alloc(6);
18950 t2=C_i_pairp(((C_word*)t0)[2]);
18951 t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE);
18952 t4=(C_truep(t3)?t3:C_fix(0));
18953 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19315,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
18954 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
18955 t6=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
18956 t7=t5;
18957 f_19315(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE));}
18958 else{
18959 t6=t5;
18960 f_19315(t6,C_SCHEME_FALSE);}}
18961 
18962 /* k19313 in k19304 in chicken.irregex#irregex-match in k18916 in k7761 in k7536 in k7533 */
f_19315(C_word t0,C_word t1)18963 static void C_fcall f_19315(C_word t0,C_word t1){
18964 C_word tmp;
18965 C_word t2;
18966 C_word t3;
18967 C_word t4;
18968 C_word t5;
18969 C_word *a;
18970 C_check_for_interrupt;
18971 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
18972 C_save_and_reclaim_args((void *)trf_19315,2,t0,t1);}
18973 a=C_alloc(7);
18974 t2=(C_truep(t1)?t1:C_i_string_length(((C_word*)t0)[2]));
18975 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19321,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);
18976 if(C_truep(C_i_integerp(((C_word*)t0)[3]))){
18977 t4=C_i_exactp(((C_word*)t0)[3]);
18978 if(C_truep(C_i_not(t4))){
18979 /* irregex-core.scm:2058: chicken.base#error */
18980 t5=*((C_word*)lf[30]+1);{
18981 C_word av2[5];
18982 av2[0]=t5;
18983 av2[1]=t3;
18984 av2[2]=lf[300];
18985 av2[3]=lf[302];
18986 av2[4]=((C_word*)t0)[3];
18987 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
18988 else{
18989 t5=t3;{
18990 C_word av2[2];
18991 av2[0]=t5;
18992 av2[1]=C_SCHEME_UNDEFINED;
18993 f_19321(2,av2);}}}
18994 else{
18995 /* irregex-core.scm:2058: chicken.base#error */
18996 t4=*((C_word*)lf[30]+1);{
18997 C_word av2[5];
18998 av2[0]=t4;
18999 av2[1]=t3;
19000 av2[2]=lf[300];
19001 av2[3]=lf[302];
19002 av2[4]=((C_word*)t0)[3];
19003 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}
19004 
19005 /* k19319 in k19313 in k19304 in chicken.irregex#irregex-match in k18916 in k7761 in k7536 in k7533 */
f_19321(C_word c,C_word * av)19006 static void C_ccall f_19321(C_word c,C_word *av){
19007 C_word tmp;
19008 C_word t0=av[0];
19009 C_word t1=av[1];
19010 C_word t2;
19011 C_word t3;
19012 C_word t4;
19013 C_word t5;
19014 C_word *a;
19015 C_check_for_interrupt;
19016 if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
19017 C_save_and_reclaim((void *)f_19321,c,av);}
19018 a=C_alloc(16);
19019 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19324,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);
19020 if(C_truep(C_i_integerp(((C_word*)t0)[4]))){
19021 t3=C_i_exactp(((C_word*)t0)[4]);
19022 if(C_truep(C_i_not(t3))){
19023 /* irregex-core.scm:2060: chicken.base#error */
19024 t4=*((C_word*)lf[30]+1);{
19025 C_word *av2;
19026 if(c >= 5) {
19027   av2=av;
19028 } else {
19029   av2=C_alloc(5);
19030 }
19031 av2[0]=t4;
19032 av2[1]=t2;
19033 av2[2]=lf[300];
19034 av2[3]=lf[301];
19035 av2[4]=((C_word*)t0)[4];
19036 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
19037 else{
19038 t4=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
19039 /* irregex-core.scm:2061: irregex-match/chunked */
19040 t5=*((C_word*)lf[299]+1);{
19041 C_word *av2;
19042 if(c >= 5) {
19043   av2=av;
19044 } else {
19045   av2=C_alloc(5);
19046 }
19047 av2[0]=t5;
19048 av2[1]=((C_word*)t0)[5];
19049 av2[2]=((C_word*)t0)[6];
19050 av2[3]=lf[285];
19051 av2[4]=t4;
19052 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
19053 else{
19054 /* irregex-core.scm:2060: chicken.base#error */
19055 t3=*((C_word*)lf[30]+1);{
19056 C_word *av2;
19057 if(c >= 5) {
19058   av2=av;
19059 } else {
19060   av2=C_alloc(5);
19061 }
19062 av2[0]=t3;
19063 av2[1]=t2;
19064 av2[2]=lf[300];
19065 av2[3]=lf[301];
19066 av2[4]=((C_word*)t0)[4];
19067 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
19068 
19069 /* k19322 in k19319 in k19313 in k19304 in chicken.irregex#irregex-match in k18916 in k7761 in k7536 in k7533 */
f_19324(C_word c,C_word * av)19070 static void C_ccall f_19324(C_word c,C_word *av){
19071 C_word tmp;
19072 C_word t0=av[0];
19073 C_word t1=av[1];
19074 C_word t2;
19075 C_word t3;
19076 C_word *a;
19077 C_check_for_interrupt;
19078 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
19079 C_save_and_reclaim((void *)f_19324,c,av);}
19080 a=C_alloc(9);
19081 t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
19082 /* irregex-core.scm:2061: irregex-match/chunked */
19083 t3=*((C_word*)lf[299]+1);{
19084 C_word *av2;
19085 if(c >= 5) {
19086   av2=av;
19087 } else {
19088   av2=C_alloc(5);
19089 }
19090 av2[0]=t3;
19091 av2[1]=((C_word*)t0)[5];
19092 av2[2]=((C_word*)t0)[6];
19093 av2[3]=lf[285];
19094 av2[4]=t2;
19095 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
19096 
19097 /* chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19392(C_word c,C_word * av)19098 static void C_ccall f_19392(C_word c,C_word *av){
19099 C_word tmp;
19100 C_word t0=av[0];
19101 C_word t1=av[1];
19102 C_word t2=av[2];
19103 C_word t3=av[3];
19104 C_word t4=av[4];
19105 C_word t5;
19106 C_word t6;
19107 C_word *a;
19108 if(c!=5) C_bad_argc_2(c,5,t0);
19109 C_check_for_interrupt;
19110 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
19111 C_save_and_reclaim((void *)f_19392,c,av);}
19112 a=C_alloc(5);
19113 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19396,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
19114 /* irregex-core.scm:2066: irregex */
19115 t6=*((C_word*)lf[217]+1);{
19116 C_word *av2=av;
19117 av2[0]=t6;
19118 av2[1]=t5;
19119 av2[2]=t2;
19120 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
19121 
19122 /* k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19396(C_word c,C_word * av)19123 static void C_ccall f_19396(C_word c,C_word *av){
19124 C_word tmp;
19125 C_word t0=av[0];
19126 C_word t1=av[1];
19127 C_word t2;
19128 C_word t3;
19129 C_word *a;
19130 C_check_for_interrupt;
19131 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
19132 C_save_and_reclaim((void *)f_19396,c,av);}
19133 a=C_alloc(6);
19134 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19399,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);
19135 /* irregex-core.scm:2067: irregex-new-matches */
19136 f_7622(t2,t1);}
19137 
19138 /* k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19399(C_word c,C_word * av)19139 static void C_ccall f_19399(C_word c,C_word *av){
19140 C_word tmp;
19141 C_word t0=av[0];
19142 C_word t1=av[1];
19143 C_word t2;
19144 C_word t3;
19145 C_word t4;
19146 C_word t5;
19147 C_word t6;
19148 C_word t7;
19149 C_word *a;
19150 C_check_for_interrupt;
19151 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
19152 C_save_and_reclaim((void *)f_19399,c,av);}
19153 a=C_alloc(13);
19154 t2=C_i_setslot(t1,C_fix(3),((C_word*)t0)[2]);
19155 if(C_truep(C_slot(((C_word*)t0)[3],C_fix(1)))){
19156 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19414,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
19157 t4=C_slot(((C_word*)t0)[3],C_fix(1));
19158 t5=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
19159 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19484,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
19160 /* irregex-core.scm:2072: g3390 */
19161 t7=t5;{
19162 C_word *av2;
19163 if(c >= 3) {
19164   av2=av;
19165 } else {
19166   av2=C_alloc(3);
19167 }
19168 av2[0]=t7;
19169 av2[1]=t6;
19170 av2[2]=((C_word*)t0)[4];
19171 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
19172 else{
19173 t3=C_slot(((C_word*)t0)[3],C_fix(3));
19174 t4=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
19175 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
19176 /* irregex-core.scm:2083: g3410 */
19177 t6=t4;{
19178 C_word *av2;
19179 if(c >= 3) {
19180   av2=av;
19181 } else {
19182   av2=C_alloc(3);
19183 }
19184 av2[0]=t6;
19185 av2[1]=t5;
19186 av2[2]=((C_word*)t0)[4];
19187 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
19188 
19189 /* k19412 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19414(C_word c,C_word * av)19190 static void C_ccall f_19414(C_word c,C_word *av){
19191 C_word tmp;
19192 C_word t0=av[0];
19193 C_word t1=av[1];
19194 C_word t2;
19195 C_word t3;
19196 C_word t4;
19197 C_word t5;
19198 C_word *a;
19199 C_check_for_interrupt;
19200 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
19201 C_save_and_reclaim((void *)f_19414,c,av);}
19202 a=C_alloc(6);
19203 if(C_truep(t1)){
19204 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
19205 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19448,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
19206 t4=C_slot(((C_word*)t0)[3],C_fix(1));
19207 /* irregex-core.scm:2074: g3393 */
19208 t5=t2;{
19209 C_word *av2;
19210 if(c >= 3) {
19211   av2=av;
19212 } else {
19213   av2=C_alloc(3);
19214 }
19215 av2[0]=t5;
19216 av2[1]=t3;
19217 av2[2]=C_slot(t4,C_fix(2));
19218 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19219 else{
19220 t2=((C_word*)t0)[5];{
19221 C_word *av2=av;
19222 av2[0]=t2;
19223 av2[1]=C_SCHEME_FALSE;
19224 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
19225 
19226 /* k19435 in k19446 in k19412 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19437(C_word c,C_word * av)19227 static void C_ccall f_19437(C_word c,C_word *av){
19228 C_word tmp;
19229 C_word t0=av[0];
19230 C_word t1=av[1];
19231 C_word t2;
19232 C_word t3;
19233 C_word *a;
19234 C_check_for_interrupt;
19235 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19236 C_save_and_reclaim((void *)f_19437,c,av);}
19237 t2=C_i_vector_set(((C_word*)t0)[2],C_fix(1),t1);
19238 t3=((C_word*)t0)[3];{
19239 C_word *av2=av;
19240 av2[0]=t3;
19241 av2[1]=((C_word*)t0)[4];
19242 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19243 
19244 /* k19446 in k19412 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19448(C_word c,C_word * av)19245 static void C_ccall f_19448(C_word c,C_word *av){
19246 C_word tmp;
19247 C_word t0=av[0];
19248 C_word t1=av[1];
19249 C_word t2;
19250 C_word t3;
19251 C_word t4;
19252 C_word t5;
19253 C_word t6;
19254 C_word t7;
19255 C_word t8;
19256 C_word t9;
19257 C_word t10;
19258 C_word t11;
19259 C_word *a;
19260 C_check_for_interrupt;
19261 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
19262 C_save_and_reclaim((void *)f_19448,c,av);}
19263 a=C_alloc(5);
19264 t2=C_slot(((C_word*)t0)[2],C_fix(1));
19265 t3=C_fixnum_times(C_fix(0),C_fix(4));
19266 t4=C_slot(t2,C_fixnum_plus(C_fix(3),t3));
19267 t5=C_eqp(t1,t4);
19268 if(C_truep(t5)){
19269 t6=C_slot(((C_word*)t0)[2],C_fix(1));
19270 t7=C_i_vector_set(t6,C_fix(0),((C_word*)t0)[3]);
19271 t8=C_slot(((C_word*)t0)[2],C_fix(1));
19272 t9=C_i_vector_ref(((C_word*)t0)[4],C_fix(2));
19273 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19437,a[2]=t8,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
19274 /* irregex-core.scm:2078: g3404 */
19275 t11=t9;{
19276 C_word *av2;
19277 if(c >= 3) {
19278   av2=av;
19279 } else {
19280   av2=C_alloc(3);
19281 }
19282 av2[0]=t11;
19283 av2[1]=t10;
19284 av2[2]=((C_word*)t0)[3];
19285 ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
19286 else{
19287 t6=((C_word*)t0)[5];{
19288 C_word *av2=av;
19289 av2[0]=t6;
19290 av2[1]=C_SCHEME_FALSE;
19291 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
19292 
19293 /* k19482 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19484(C_word c,C_word * av)19294 static void C_ccall f_19484(C_word c,C_word *av){
19295 C_word tmp;
19296 C_word t0=av[0];
19297 C_word t1=av[1];
19298 C_word t2;
19299 C_word *a;
19300 C_check_for_interrupt;
19301 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
19302 C_save_and_reclaim((void *)f_19484,c,av);}
19303 /* irregex-core.scm:2072: dfa-match/longest */
19304 f_19935(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],C_fix(0));}
19305 
19306 /* k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19494(C_word c,C_word * av)19307 static void C_ccall f_19494(C_word c,C_word *av){
19308 C_word tmp;
19309 C_word t0=av[0];
19310 C_word t1=av[1];
19311 C_word t2;
19312 C_word t3;
19313 C_word t4;
19314 C_word *a;
19315 C_check_for_interrupt;
19316 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
19317 C_save_and_reclaim((void *)f_19494,c,av);}
19318 a=C_alloc(8);
19319 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
19320 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19500,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);
19321 /* irregex-core.scm:2083: g3413 */
19322 t4=t2;{
19323 C_word *av2;
19324 if(c >= 3) {
19325   av2=av;
19326 } else {
19327   av2=C_alloc(3);
19328 }
19329 av2[0]=t4;
19330 av2[1]=t3;
19331 av2[2]=((C_word*)t0)[3];
19332 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
19333 
19334 /* k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19500(C_word c,C_word * av)19335 static void C_ccall f_19500(C_word c,C_word *av){
19336 C_word tmp;
19337 C_word t0=av[0];
19338 C_word t1=av[1];
19339 C_word t2;
19340 C_word t3;
19341 C_word t4;
19342 C_word *a;
19343 C_check_for_interrupt;
19344 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
19345 C_save_and_reclaim((void *)f_19500,c,av);}
19346 a=C_alloc(9);
19347 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
19348 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19506,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
19349 /* irregex-core.scm:2083: g3416 */
19350 t4=t2;{
19351 C_word *av2;
19352 if(c >= 3) {
19353   av2=av;
19354 } else {
19355   av2=C_alloc(3);
19356 }
19357 av2[0]=t4;
19358 av2[1]=t3;
19359 av2[2]=((C_word*)t0)[3];
19360 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
19361 
19362 /* k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19506(C_word c,C_word * av)19363 static void C_ccall f_19506(C_word c,C_word *av){
19364 C_word tmp;
19365 C_word t0=av[0];
19366 C_word t1=av[1];
19367 C_word t2;
19368 C_word t3;
19369 C_word t4;
19370 C_word t5;
19371 C_word *a;
19372 C_check_for_interrupt;
19373 if(C_unlikely(!C_demand(C_calculate_demand(10,c,9)))){
19374 C_save_and_reclaim((void *)f_19506,c,av);}
19375 a=C_alloc(10);
19376 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
19377 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19516,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
19378 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19615,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp);
19379 /* irregex-core.scm:2088: matcher */
19380 t5=((C_word*)t0)[6];{
19381 C_word *av2;
19382 if(c >= 10) {
19383   av2=av;
19384 } else {
19385   av2=C_alloc(10);
19386 }
19387 av2[0]=t5;
19388 av2[1]=t3;
19389 av2[2]=((C_word*)t0)[4];
19390 av2[3]=t2;
19391 av2[4]=((C_word*)t0)[2];
19392 av2[5]=((C_word*)t0)[7];
19393 av2[6]=((C_word*)t0)[3];
19394 av2[7]=t1;
19395 av2[8]=((C_word*)t0)[8];
19396 av2[9]=t4;
19397 ((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}}
19398 
19399 /* k19514 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19516(C_word c,C_word * av)19400 static void C_ccall f_19516(C_word c,C_word *av){
19401 C_word tmp;
19402 C_word t0=av[0];
19403 C_word t1=av[1];
19404 C_word t2;
19405 C_word t3;
19406 C_word t4;
19407 C_word t5;
19408 C_word *a;
19409 C_check_for_interrupt;
19410 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
19411 C_save_and_reclaim((void *)f_19516,c,av);}
19412 a=C_alloc(7);
19413 t2=C_SCHEME_UNDEFINED;
19414 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19415 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19518,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li243),tmp=(C_word)a,a+=5,tmp));
19416 t5=((C_word*)t3)[1];
19417 f_19518(t5,((C_word*)t0)[3],t1);}
19418 
19419 /* lp in k19514 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19518(C_word t0,C_word t1,C_word t2)19420 static void C_fcall f_19518(C_word t0,C_word t1,C_word t2){
19421 C_word tmp;
19422 C_word t3;
19423 C_word t4;
19424 C_word t5;
19425 C_word t6;
19426 C_word t7;
19427 C_word *a;
19428 C_check_for_interrupt;
19429 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
19430 C_save_and_reclaim_args((void *)trf_19518,3,t0,t1,t2);}
19431 a=C_alloc(10);
19432 if(C_truep(t2)){
19433 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19528,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
19434 t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));
19435 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19592,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
19436 t6=C_slot(t2,C_fix(1));
19437 /* irregex-core.scm:2091: g3427 */
19438 t7=t4;{
19439 C_word av2[3];
19440 av2[0]=t7;
19441 av2[1]=t5;
19442 av2[2]=C_slot(t6,C_fix(2));
19443 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
19444 else{
19445 t3=t1;{
19446 C_word av2[2];
19447 av2[0]=t3;
19448 av2[1]=C_SCHEME_FALSE;
19449 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
19450 
19451 /* k19526 in lp in k19514 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19528(C_word t0,C_word t1)19452 static void C_fcall f_19528(C_word t0,C_word t1){
19453 C_word tmp;
19454 C_word t2;
19455 C_word t3;
19456 C_word t4;
19457 C_word *a;
19458 C_check_for_interrupt;
19459 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
19460 C_save_and_reclaim_args((void *)trf_19528,2,t0,t1);}
19461 a=C_alloc(4);
19462 if(C_truep(t1)){
19463 t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),C_SCHEME_FALSE);
19464 t3=((C_word*)t0)[3];{
19465 C_word av2[2];
19466 av2[0]=t3;
19467 av2[1]=((C_word*)t0)[2];
19468 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
19469 else{
19470 if(C_truep(C_slot(((C_word*)t0)[2],C_fix(4)))){
19471 t2=C_slot(((C_word*)t0)[2],C_fix(4));
19472 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19547,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
19473 /* irregex-core.scm:2099: g3440 */
19474 t4=t2;{
19475 C_word av2[2];
19476 av2[0]=t4;
19477 av2[1]=t3;
19478 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
19479 else{
19480 t2=((C_word*)t0)[3];{
19481 C_word av2[2];
19482 av2[0]=t2;
19483 av2[1]=C_SCHEME_FALSE;
19484 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
19485 
19486 /* k19545 in k19526 in lp in k19514 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19547(C_word c,C_word * av)19487 static void C_ccall f_19547(C_word c,C_word *av){
19488 C_word tmp;
19489 C_word t0=av[0];
19490 C_word t1=av[1];
19491 C_word t2;
19492 C_word *a;
19493 C_check_for_interrupt;
19494 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
19495 C_save_and_reclaim((void *)f_19547,c,av);}
19496 /* irregex-core.scm:2099: lp */
19497 t2=((C_word*)((C_word*)t0)[2])[1];
19498 f_19518(t2,((C_word*)t0)[3],t1);}
19499 
19500 /* k19558 in k19590 in lp in k19514 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19560(C_word c,C_word * av)19501 static void C_ccall f_19560(C_word c,C_word *av){
19502 C_word tmp;
19503 C_word t0=av[0];
19504 C_word t1=av[1];
19505 C_word t2;
19506 C_word t3;
19507 C_word t4;
19508 C_word *a;
19509 C_check_for_interrupt;
19510 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19511 C_save_and_reclaim((void *)f_19560,c,av);}
19512 t2=C_slot(((C_word*)t0)[2],C_fix(1));
19513 t3=C_fixnum_times(C_fix(0),C_fix(4));
19514 t4=((C_word*)t0)[3];
19515 f_19528(t4,C_eqp(t1,C_slot(t2,C_fixnum_plus(C_fix(3),t3))));}
19516 
19517 /* k19590 in lp in k19514 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19592(C_word c,C_word * av)19518 static void C_ccall f_19592(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 t3;
19524 C_word t4;
19525 C_word t5;
19526 C_word *a;
19527 C_check_for_interrupt;
19528 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
19529 C_save_and_reclaim((void *)f_19592,c,av);}
19530 a=C_alloc(4);
19531 if(C_truep(C_i_not(t1))){
19532 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
19533 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19560,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
19534 t4=C_slot(((C_word*)t0)[3],C_fix(1));
19535 /* irregex-core.scm:2093: g3433 */
19536 t5=t2;{
19537 C_word *av2;
19538 if(c >= 3) {
19539   av2=av;
19540 } else {
19541   av2=C_alloc(3);
19542 }
19543 av2[0]=t5;
19544 av2[1]=t3;
19545 av2[2]=C_slot(t4,C_fix(2));
19546 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
19547 else{
19548 t2=((C_word*)t0)[4];
19549 f_19528(t2,C_SCHEME_FALSE);}}
19550 
19551 /* a19614 in k19504 in k19498 in k19492 in k19397 in k19394 in chicken.irregex#irregex-match/chunked in k18916 in k7761 in k7536 in k7533 */
f_19615(C_word c,C_word * av)19552 static void C_ccall f_19615(C_word c,C_word *av){
19553 C_word tmp;
19554 C_word t0=av[0];
19555 C_word t1=av[1];
19556 C_word t2;
19557 C_word *a;
19558 if(c!=2) C_bad_argc_2(c,2,t0);
19559 C_check_for_interrupt;
19560 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19561 C_save_and_reclaim((void *)f_19615,c,av);}
19562 t2=t1;{
19563 C_word *av2=av;
19564 av2[0]=t2;
19565 av2[1]=C_SCHEME_FALSE;
19566 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
19567 
19568 /* chicken.irregex#irregex-match? in k18916 in k7761 in k7536 in k7533 */
f_19620(C_word c,C_word * av)19569 static void C_ccall f_19620(C_word c,C_word *av){
19570 C_word tmp;
19571 C_word t0=av[0];
19572 C_word t1=av[1];
19573 C_word t2;
19574 C_word *a;
19575 C_check_for_interrupt;
19576 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,3)))){
19577 C_save_and_reclaim((void*)f_19620,c,av);}
19578 a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
19579 t2=C_build_rest(&a,c,2,av);
19580 C_word t3;
19581 C_word t4;
19582 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19627,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
19583 C_word *av2;
19584 if(c >= 4) {
19585   av2=av;
19586 } else {
19587   av2=C_alloc(4);
19588 }
19589 av2[0]=0;
19590 av2[1]=t3;
19591 av2[2]=*((C_word*)lf[298]+1);
19592 av2[3]=t2;
19593 C_apply(4,av2);}}
19594 
19595 /* k19625 in chicken.irregex#irregex-match? in k18916 in k7761 in k7536 in k7533 */
f_19627(C_word c,C_word * av)19596 static void C_ccall f_19627(C_word c,C_word *av){
19597 C_word tmp;
19598 C_word t0=av[0];
19599 C_word t1=av[1];
19600 C_word t2;
19601 C_word *a;
19602 C_check_for_interrupt;
19603 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
19604 C_save_and_reclaim((void *)f_19627,c,av);}
19605 t2=((C_word*)t0)[2];{
19606 C_word *av2=av;
19607 av2[0]=t2;
19608 av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE);
19609 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
19610 
19611 /* lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19678(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)19612 static void C_fcall f_19678(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
19613 C_word tmp;
19614 C_word t5;
19615 C_word t6;
19616 C_word *a;
19617 C_check_for_interrupt;
19618 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
19619 C_save_and_reclaim_args((void *)trf_19678,5,t0,t1,t2,t3,t4);}
19620 a=C_alloc(12);
19621 if(C_truep(t2)){
19622 t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19685,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t1,a[9]=t3,a[10]=t4,a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
19623 /* irregex-core.scm:2130: get-str */
19624 t6=((C_word*)t0)[8];{
19625 C_word av2[3];
19626 av2[0]=t6;
19627 av2[1]=t5;
19628 av2[2]=t2;
19629 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
19630 else{
19631 t5=t1;{
19632 C_word av2[2];
19633 av2[0]=t5;
19634 av2[1]=C_SCHEME_FALSE;
19635 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
19636 
19637 /* k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19685(C_word c,C_word * av)19638 static void C_ccall f_19685(C_word c,C_word *av){
19639 C_word tmp;
19640 C_word t0=av[0];
19641 C_word t1=av[1];
19642 C_word t2;
19643 C_word t3;
19644 C_word *a;
19645 C_check_for_interrupt;
19646 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
19647 C_save_and_reclaim((void *)f_19685,c,av);}
19648 a=C_alloc(12);
19649 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19688,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],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
19650 /* irregex-core.scm:2131: get-end */
19651 t3=((C_word*)t0)[11];{
19652 C_word *av2;
19653 if(c >= 3) {
19654   av2=av;
19655 } else {
19656   av2=C_alloc(3);
19657 }
19658 av2[0]=t3;
19659 av2[1]=t2;
19660 av2[2]=((C_word*)t0)[3];
19661 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
19662 
19663 /* k19686 in k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19688(C_word c,C_word * av)19664 static void C_ccall f_19688(C_word c,C_word *av){
19665 C_word tmp;
19666 C_word t0=av[0];
19667 C_word t1=av[1];
19668 C_word t2;
19669 C_word t3;
19670 C_word t4;
19671 C_word t5;
19672 C_word *a;
19673 C_check_for_interrupt;
19674 if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
19675 C_save_and_reclaim((void *)f_19688,c,av);}
19676 a=C_alloc(14);
19677 t2=C_SCHEME_UNDEFINED;
19678 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19679 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,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)li236),tmp=(C_word)a,a+=12,tmp));
19680 t5=((C_word*)t3)[1];
19681 f_19693(t5,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}
19682 
19683 /* lp2 in k19686 in k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19693(C_word t0,C_word t1,C_word t2,C_word t3)19684 static void C_fcall f_19693(C_word t0,C_word t1,C_word t2,C_word t3){
19685 C_word tmp;
19686 C_word t4;
19687 C_word t5;
19688 C_word t6;
19689 C_word t7;
19690 C_word t8;
19691 C_word *a;
19692 C_check_for_interrupt;
19693 if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
19694 C_save_and_reclaim_args((void *)trf_19693,4,t0,t1,t2,t3);}
19695 a=C_alloc(10);
19696 if(C_truep(C_i_car(t3))){
19697 t4=C_slot(((C_word*)t0)[2],C_fix(1));
19698 t5=C_i_vector_set(t4,C_fix(2),((C_word*)t0)[3]);
19699 t6=C_slot(((C_word*)t0)[2],C_fix(1));
19700 t7=C_i_vector_set(t6,C_fix(3),t2);
19701 t8=t1;{
19702 C_word av2[2];
19703 av2[0]=t8;
19704 av2[1]=C_SCHEME_TRUE;
19705 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
19706 else{
19707 if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[4]))){
19708 t4=C_i_string_ref(((C_word*)t0)[5],t2);
19709 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19745,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
19710 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19760,a[2]=t4,a[3]=((C_word)li235),tmp=(C_word)a,a+=4,tmp);
19711 /* irregex-core.scm:2142: find */
19712 f_9195(t5,t6,C_i_cdr(t3));}
19713 else{
19714 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19796,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp);
19715 /* irregex-core.scm:2149: get-next */
19716 t5=((C_word*)t0)[10];{
19717 C_word av2[3];
19718 av2[0]=t5;
19719 av2[1]=t4;
19720 av2[2]=((C_word*)t0)[3];
19721 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}
19722 
19723 /* k19743 in lp2 in k19686 in k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19745(C_word c,C_word * av)19724 static void C_ccall f_19745(C_word c,C_word *av){
19725 C_word tmp;
19726 C_word t0=av[0];
19727 C_word t1=av[1];
19728 C_word t2;
19729 C_word t3;
19730 C_word t4;
19731 C_word *a;
19732 C_check_for_interrupt;
19733 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
19734 C_save_and_reclaim((void *)f_19745,c,av);}
19735 a=C_alloc(5);
19736 if(C_truep(t1)){
19737 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
19738 t3=C_i_cadr(t1);
19739 /* irregex-core.scm:2147: lp2 */
19740 t4=((C_word*)((C_word*)t0)[3])[1];
19741 f_19693(t4,((C_word*)t0)[4],t2,C_i_vector_ref(((C_word*)t0)[5],t3));}
19742 else{
19743 t2=((C_word*)t0)[4];{
19744 C_word *av2=av;
19745 av2[0]=t2;
19746 av2[1]=C_SCHEME_FALSE;
19747 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
19748 
19749 /* a19759 in lp2 in k19686 in k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19760(C_word c,C_word * av)19750 static void C_ccall f_19760(C_word c,C_word *av){
19751 C_word tmp;
19752 C_word t0=av[0];
19753 C_word t1=av[1];
19754 C_word t2=av[2];
19755 C_word t3;
19756 C_word t4;
19757 C_word t5;
19758 C_word t6;
19759 C_word *a;
19760 if(c!=3) C_bad_argc_2(c,3,t0);
19761 C_check_for_interrupt;
19762 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
19763 C_save_and_reclaim((void *)f_19760,c,av);}
19764 t3=C_i_car(t2);
19765 t4=C_eqp(((C_word*)t0)[2],t3);
19766 if(C_truep(t4)){
19767 t5=t1;{
19768 C_word *av2=av;
19769 av2[0]=t5;
19770 av2[1]=t4;
19771 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
19772 else{
19773 t5=C_charp(C_u_i_car(t2));
19774 if(C_truep(C_i_not(t5))){
19775 /* irregex-core.scm:2145: cset-contains? */
19776 f_26959(t1,C_u_i_car(t2),((C_word*)t0)[2]);}
19777 else{
19778 t6=t1;{
19779 C_word *av2=av;
19780 av2[0]=t6;
19781 av2[1]=C_SCHEME_FALSE;
19782 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
19783 
19784 /* k19794 in lp2 in k19686 in k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19796(C_word c,C_word * av)19785 static void C_ccall f_19796(C_word c,C_word *av){
19786 C_word tmp;
19787 C_word t0=av[0];
19788 C_word t1=av[1];
19789 C_word t2;
19790 C_word t3;
19791 C_word *a;
19792 C_check_for_interrupt;
19793 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
19794 C_save_and_reclaim((void *)f_19796,c,av);}
19795 a=C_alloc(6);
19796 if(C_truep(t1)){
19797 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19806,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);
19798 /* irregex-core.scm:2150: get-start */
19799 t3=((C_word*)t0)[5];{
19800 C_word *av2;
19801 if(c >= 3) {
19802   av2=av;
19803 } else {
19804   av2=C_alloc(3);
19805 }
19806 av2[0]=t3;
19807 av2[1]=t2;
19808 av2[2]=t1;
19809 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
19810 else{
19811 t2=((C_word*)t0)[3];{
19812 C_word *av2=av;
19813 av2[0]=t2;
19814 av2[1]=C_SCHEME_FALSE;
19815 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
19816 
19817 /* k19804 in k19794 in lp2 in k19686 in k19683 in lp1 in chicken.irregex#irregex-search/matches in k18916 in k7761 in k7536 in k7533 */
f_19806(C_word c,C_word * av)19818 static void C_ccall f_19806(C_word c,C_word *av){
19819 C_word tmp;
19820 C_word t0=av[0];
19821 C_word t1=av[1];
19822 C_word t2;
19823 C_word *a;
19824 C_check_for_interrupt;
19825 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
19826 C_save_and_reclaim((void *)f_19806,c,av);}
19827 /* irregex-core.scm:2150: lp1 */
19828 t2=((C_word*)((C_word*)t0)[2])[1];
19829 f_19678(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);}
19830 
19831 /* chicken.irregex#finalize! in k18916 in k7761 in k7536 in k7533 */
f_19816(C_word t1,C_word t2,C_word t3,C_word t4)19832 static void C_fcall f_19816(C_word t1,C_word t2,C_word t3,C_word t4){
19833 C_word tmp;
19834 C_word t5;
19835 C_word t6;
19836 C_word t7;
19837 C_word t8;
19838 C_word t9;
19839 C_word t10;
19840 C_word *a;
19841 C_check_for_interrupt;
19842 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
19843 C_save_and_reclaim_args((void *)trf_19816,4,t1,t2,t3,t4);}
19844 a=C_alloc(12);
19845 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19818,a[2]=t3,a[3]=t4,a[4]=((C_word)li247),tmp=(C_word)a,a+=5,tmp);
19846 t6=C_i_check_list_2(t2,lf[306]);
19847 t7=C_SCHEME_UNDEFINED;
19848 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
19849 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19876,a[2]=t5,a[3]=t8,a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp));
19850 t10=((C_word*)t8)[1];
19851 f_19876(t10,t1,t2);}
19852 
19853 /* g3514 in chicken.irregex#finalize! in k18916 in k7761 in k7536 in k7533 */
f_19818(C_word * a,C_word t0,C_word t1)19854 static C_word C_fcall f_19818(C_word *a,C_word t0,C_word t1){
19855 C_word tmp;
19856 C_word t2;
19857 C_word t3;
19858 C_word t4;
19859 C_word t5;
19860 C_word t6;
19861 C_word t7;
19862 C_word t8;
19863 C_word t9;
19864 C_word t10;
19865 C_word t11;
19866 C_word t12;
19867 C_stack_overflow_check;{}
19868 t2=C_i_car(t1);
19869 t3=C_i_vector_ref(((C_word*)t0)[2],C_u_i_cdr(t1));
19870 t4=C_i_vector_ref(t3,t2);
19871 t5=C_slot(((C_word*)t0)[3],C_fix(1));
19872 t6=C_a_i_fixnum_times(&a,2,t2,C_fix(2));
19873 t7=C_s_a_u_i_integer_plus(&a,2,C_fix(4),t6);
19874 t8=(C_truep(t4)?C_i_vector_set(t5,t7,C_i_car(t4)):C_i_vector_set(t5,t7,C_SCHEME_FALSE));
19875 t9=C_slot(((C_word*)t0)[3],C_fix(1));
19876 t10=C_a_i_fixnum_times(&a,2,t2,C_fix(2));
19877 t11=C_s_a_u_i_integer_plus(&a,2,C_fix(5),t10);
19878 return((C_truep(t4)?C_i_vector_set(t9,t11,C_i_cdr(t4)):C_i_vector_set(t9,t11,C_SCHEME_FALSE)));}
19879 
19880 /* for-each-loop3513 in chicken.irregex#finalize! in k18916 in k7761 in k7536 in k7533 */
f_19876(C_word t0,C_word t1,C_word t2)19881 static void C_fcall f_19876(C_word t0,C_word t1,C_word t2){
19882 C_word tmp;
19883 C_word t3;
19884 C_word t4;
19885 C_word t5;
19886 C_word t6;
19887 C_word *a;
19888 loop:
19889 C_check_for_interrupt;
19890 if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){
19891 C_save_and_reclaim_args((void *)trf_19876,3,t0,t1,t2);}
19892 a=C_alloc(20);
19893 if(C_truep(C_i_pairp(t2))){
19894 t3=(
19895 /* irregex-core.scm:2153: g3514 */
19896   f_19818(C_a_i(&a,20),((C_word*)t0)[2],C_slot(t2,C_fix(0)))
19897 );
19898 t5=t1;
19899 t6=C_slot(t2,C_fix(1));
19900 t1=t5;
19901 t2=t6;
19902 goto loop;}
19903 else{
19904 t3=C_SCHEME_UNDEFINED;
19905 t4=t1;{
19906 C_word av2[2];
19907 av2[0]=t4;
19908 av2[1]=t3;
19909 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
19910 
19911 /* k19902 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19904(C_word c,C_word * av)19912 static void C_ccall f_19904(C_word c,C_word *av){
19913 C_word tmp;
19914 C_word t0=av[0];
19915 C_word t1=av[1];
19916 C_word t2;
19917 C_word t3;
19918 C_word t4;
19919 C_word *a;
19920 C_check_for_interrupt;
19921 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
19922 C_save_and_reclaim((void *)f_19904,c,av);}
19923 a=C_alloc(10);
19924 t2=C_a_i_fixnum_times(&a,2,t1,C_fix(2));
19925 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19908,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
19926 /* irregex-core.scm:2165: scheme#make-vector */
19927 t4=*((C_word*)lf[4]+1);{
19928 C_word *av2;
19929 if(c >= 3) {
19930   av2=av;
19931 } else {
19932   av2=C_alloc(3);
19933 }
19934 av2[0]=t4;
19935 av2[1]=t3;
19936 av2[2]=((C_word*)t0)[2];
19937 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
19938 
19939 /* k19906 in k19902 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19908(C_word c,C_word * av)19940 static void C_ccall f_19908(C_word c,C_word *av){
19941 C_word tmp;
19942 C_word t0=av[0];
19943 C_word t1=av[1];
19944 C_word t2;
19945 C_word t3;
19946 C_word t4;
19947 C_word t5;
19948 C_word *a;
19949 C_check_for_interrupt;
19950 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
19951 C_save_and_reclaim((void *)f_19908,c,av);}
19952 a=C_alloc(9);
19953 t2=C_SCHEME_UNDEFINED;
19954 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
19955 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19913,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li261),tmp=(C_word)a,a+=7,tmp));
19956 t5=((C_word*)t3)[1];
19957 f_19913(t5,((C_word*)t0)[4],C_fix(0));}
19958 
19959 /* doloop3544 in k19906 in k19902 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19913(C_word t0,C_word t1,C_word t2)19960 static void C_fcall f_19913(C_word t0,C_word t1,C_word t2){
19961 C_word tmp;
19962 C_word t3;
19963 C_word t4;
19964 C_word t5;
19965 C_word *a;
19966 C_check_for_interrupt;
19967 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
19968 C_save_and_reclaim_args((void *)trf_19913,3,t0,t1,t2);}
19969 a=C_alloc(6);
19970 t3=C_eqp(t2,((C_word*)t0)[2]);
19971 if(C_truep(t3)){
19972 t4=t1;{
19973 C_word av2[2];
19974 av2[0]=t4;
19975 av2[1]=((C_word*)t0)[3];
19976 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
19977 else{
19978 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19933,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);
19979 /* irregex-core.scm:2168: scheme#make-vector */
19980 t5=*((C_word*)lf[4]+1);{
19981 C_word av2[4];
19982 av2[0]=t5;
19983 av2[1]=t4;
19984 av2[2]=((C_word*)t0)[5];
19985 av2[3]=C_SCHEME_FALSE;
19986 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
19987 
19988 /* k19931 in doloop3544 in k19906 in k19902 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19933(C_word c,C_word * av)19989 static void C_ccall f_19933(C_word c,C_word *av){
19990 C_word tmp;
19991 C_word t0=av[0];
19992 C_word t1=av[1];
19993 C_word t2;
19994 C_word t3;
19995 C_word t4;
19996 C_word *a;
19997 C_check_for_interrupt;
19998 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
19999 C_save_and_reclaim((void *)f_19933,c,av);}
20000 a=C_alloc(5);
20001 t2=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t1);
20002 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
20003 t4=((C_word*)((C_word*)t0)[4])[1];
20004 f_19913(t4,((C_word*)t0)[5],t3);}
20005 
20006 /* chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19935(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9)20007 static void C_fcall f_19935(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9){
20008 C_word tmp;
20009 C_word t10;
20010 C_word t11;
20011 C_word t12;
20012 C_word t13;
20013 C_word t14;
20014 C_word t15;
20015 C_word t16;
20016 C_word t17;
20017 C_word t18;
20018 C_word t19;
20019 C_word *a;
20020 C_check_for_interrupt;
20021 if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){
20022 C_save_and_reclaim_args((void *)trf_19935,9,t1,t2,t3,t4,t5,t6,t7,t8,t9);}
20023 a=C_alloc(20);
20024 t10=C_i_vector_ref(t3,C_fix(1));
20025 t11=C_i_vector_ref(t3,C_fix(2));
20026 t12=C_i_vector_ref(t3,C_fix(3));
20027 t13=C_i_vector_ref(t3,C_fix(0));
20028 t14=C_i_vector_ref(t2,C_fix(0));
20029 t15=C_i_car(t14);
20030 t16=C_i_not(C_i_zerop(t15));
20031 t17=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19960,a[2]=t14,a[3]=t2,a[4]=t4,a[5]=t5,a[6]=t11,a[7]=t9,a[8]=t8,a[9]=t6,a[10]=t13,a[11]=t16,a[12]=t7,a[13]=t12,a[14]=t10,a[15]=t1,tmp=(C_word)a,a+=16,tmp);
20032 t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19904,a[2]=t15,a[3]=t17,tmp=(C_word)a,a+=4,tmp);
20033 /* irregex-core.scm:2164: irregex-match-num-submatches */
20034 t19=*((C_word*)lf[17]+1);{
20035 C_word av2[3];
20036 av2[0]=t19;
20037 av2[1]=t18;
20038 av2[2]=t8;
20039 ((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}
20040 
20041 /* k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19960(C_word c,C_word * av)20042 static void C_ccall f_19960(C_word c,C_word *av){
20043 C_word tmp;
20044 C_word t0=av[0];
20045 C_word t1=av[1];
20046 C_word t2;
20047 C_word t3;
20048 C_word t4;
20049 C_word t5;
20050 C_word t6;
20051 C_word t7;
20052 C_word t8;
20053 C_word t9;
20054 C_word t10;
20055 C_word t11;
20056 C_word t12;
20057 C_word t13;
20058 C_word *a;
20059 C_check_for_interrupt;
20060 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
20061 C_save_and_reclaim((void *)f_19960,c,av);}
20062 a=C_alloc(19);
20063 t2=C_i_cadr(((C_word*)t0)[2]);
20064 t3=C_i_cadr(t2);
20065 t4=C_i_vector_ref(((C_word*)t0)[3],t3);
20066 t5=C_i_car(t4);
20067 t6=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_19972,a[2]=t5,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]=t1,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=t4,a[18]=t2,tmp=(C_word)a,a+=19,tmp);
20068 if(C_truep(((C_word*)t0)[7])){
20069 t7=C_slot(((C_word*)t0)[8],C_fix(1));
20070 t8=C_fixnum_times(((C_word*)t0)[7],C_fix(4));
20071 t9=C_fixnum_plus(C_fix(2),t8);
20072 t10=C_i_vector_set(t7,t9,C_SCHEME_FALSE);
20073 t11=C_slot(((C_word*)t0)[8],C_fix(1));
20074 t12=C_fixnum_times(((C_word*)t0)[7],C_fix(4));
20075 t13=t6;
20076 f_19972(t13,C_i_vector_set(t11,C_fixnum_plus(C_fix(3),t12),C_SCHEME_FALSE));}
20077 else{
20078 t7=t6;
20079 f_19972(t7,C_SCHEME_UNDEFINED);}}
20080 
20081 /* k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19972(C_word t0,C_word t1)20082 static void C_fcall f_19972(C_word t0,C_word t1){
20083 C_word tmp;
20084 C_word t2;
20085 C_word t3;
20086 C_word t4;
20087 C_word t5;
20088 C_word t6;
20089 C_word t7;
20090 C_word t8;
20091 C_word t9;
20092 C_word t10;
20093 C_word *a;
20094 C_check_for_interrupt;
20095 if(C_unlikely(!C_demand(C_calculate_demand(31,0,3)))){
20096 C_save_and_reclaim_args((void *)trf_19972,2,t0,t1);}
20097 a=C_alloc(31);
20098 t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_19975,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],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],tmp=(C_word)a,a+=18,tmp);
20099 if(C_truep(((C_word*)t0)[12])){
20100 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20429,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li259),tmp=(C_word)a,a+=6,tmp);
20101 t4=C_i_cddr(((C_word*)t0)[18]);
20102 t5=C_i_cdr(t4);
20103 t6=C_i_check_list_2(t5,lf[306]);
20104 t7=C_SCHEME_UNDEFINED;
20105 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
20106 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20457,a[2]=t3,a[3]=t8,a[4]=((C_word)li260),tmp=(C_word)a,a+=5,tmp));
20107 t10=((C_word*)t8)[1];
20108 f_20457(t10,t2,t5);}
20109 else{
20110 t3=t2;{
20111 C_word av2[2];
20112 av2[0]=t3;
20113 av2[1]=C_SCHEME_UNDEFINED;
20114 f_19975(2,av2);}}}
20115 
20116 /* k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19975(C_word c,C_word * av)20117 static void C_ccall f_19975(C_word c,C_word *av){
20118 C_word tmp;
20119 C_word t0=av[0];
20120 C_word t1=av[1];
20121 C_word t2;
20122 C_word t3;
20123 C_word t4;
20124 C_word t5;
20125 C_word t6;
20126 C_word t7;
20127 C_word *a;
20128 C_check_for_interrupt;
20129 if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){
20130 C_save_and_reclaim((void *)f_19975,c,av);}
20131 a=C_alloc(17);
20132 t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[3]:C_SCHEME_FALSE);
20133 t3=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[4]:C_SCHEME_FALSE);
20134 t4=C_SCHEME_UNDEFINED;
20135 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
20136 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19988,a[2]=t5,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)li258),tmp=(C_word)a,a+=15,tmp));
20137 t7=((C_word*)t5)[1];
20138 f_19988(t7,((C_word*)t0)[16],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[17],t2,t3,((C_word*)t0)[2]);}
20139 
20140 /* lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19988(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7)20141 static void C_fcall f_19988(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){
20142 C_word tmp;
20143 C_word t8;
20144 C_word t9;
20145 C_word *a;
20146 C_check_for_interrupt;
20147 if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){
20148 C_save_and_reclaim_args((void *)trf_19988,8,t0,t1,t2,t3,t4,t5,t6,t7);}
20149 a=C_alloc(20);
20150 t8=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_19992,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]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=t1,a[13]=t3,a[14]=t4,a[15]=t5,a[16]=t6,a[17]=t7,a[18]=((C_word*)t0)[11],a[19]=((C_word*)t0)[12],tmp=(C_word)a,a+=20,tmp);
20151 /* irregex-core.scm:2199: get-str */
20152 t9=((C_word*)t0)[13];{
20153 C_word av2[3];
20154 av2[0]=t9;
20155 av2[1]=t8;
20156 av2[2]=t2;
20157 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
20158 
20159 /* k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19992(C_word c,C_word * av)20160 static void C_ccall f_19992(C_word c,C_word *av){
20161 C_word tmp;
20162 C_word t0=av[0];
20163 C_word t1=av[1];
20164 C_word t2;
20165 C_word t3;
20166 C_word t4;
20167 C_word *a;
20168 C_check_for_interrupt;
20169 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
20170 C_save_and_reclaim((void *)f_19992,c,av);}
20171 a=C_alloc(19);
20172 t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_19995,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]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
20173 t3=C_eqp(((C_word*)t0)[7],((C_word*)t0)[8]);
20174 if(C_truep(t3)){
20175 t4=t2;{
20176 C_word *av2=av;
20177 av2[0]=t4;
20178 av2[1]=((C_word*)t0)[18];
20179 f_19995(2,av2);}}
20180 else{
20181 /* irregex-core.scm:2200: get-end */
20182 t4=((C_word*)t0)[19];{
20183 C_word *av2;
20184 if(c >= 3) {
20185   av2=av;
20186 } else {
20187   av2=C_alloc(3);
20188 }
20189 av2[0]=t4;
20190 av2[1]=t2;
20191 av2[2]=((C_word*)t0)[7];
20192 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
20193 
20194 /* k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_19995(C_word c,C_word * av)20195 static void C_ccall f_19995(C_word c,C_word *av){
20196 C_word tmp;
20197 C_word t0=av[0];
20198 C_word t1=av[1];
20199 C_word t2;
20200 C_word t3;
20201 C_word t4;
20202 C_word t5;
20203 C_word *a;
20204 C_check_for_interrupt;
20205 if(C_unlikely(!C_demand(C_calculate_demand(18,c,7)))){
20206 C_save_and_reclaim((void *)f_19995,c,av);}
20207 a=C_alloc(18);
20208 t2=C_SCHEME_UNDEFINED;
20209 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
20210 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_20000,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],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=t3,a[14]=((C_word*)t0)[12],a[15]=((C_word)li257),tmp=(C_word)a,a+=16,tmp));
20211 t5=((C_word*)t3)[1];
20212 f_20000(t5,((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15],((C_word*)t0)[16],((C_word*)t0)[17],((C_word*)t0)[18]);}
20213 
20214 /* lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20000(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6)20215 static void C_fcall f_20000(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
20216 C_word tmp;
20217 C_word t7;
20218 C_word t8;
20219 C_word t9;
20220 C_word t10;
20221 C_word t11;
20222 C_word t12;
20223 C_word t13;
20224 C_word t14;
20225 C_word t15;
20226 C_word *a;
20227 C_check_for_interrupt;
20228 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
20229 C_save_and_reclaim_args((void *)trf_20000,7,t0,t1,t2,t3,t4,t5,t6);}
20230 a=C_alloc(18);
20231 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
20232 t7=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20010,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,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],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],tmp=(C_word)a,a+=15,tmp);
20233 t8=(C_truep(((C_word*)t0)[5])?t4:C_SCHEME_FALSE);
20234 if(C_truep(t8)){
20235 t9=C_slot(((C_word*)t0)[6],C_fix(1));
20236 t10=C_fixnum_times(((C_word*)t0)[5],C_fix(4));
20237 t11=C_fixnum_plus(C_fix(2),t10);
20238 t12=C_i_vector_set(t9,t11,t4);
20239 t13=C_slot(((C_word*)t0)[6],C_fix(1));
20240 t14=C_fixnum_times(((C_word*)t0)[5],C_fix(4));
20241 t15=t7;
20242 f_20010(t15,C_i_vector_set(t13,C_fixnum_plus(C_fix(3),t14),t5));}
20243 else{
20244 t9=t7;
20245 f_20010(t9,C_SCHEME_UNDEFINED);}}
20246 else{
20247 t7=C_i_string_ref(((C_word*)t0)[11],t2);
20248 t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20110,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=((C_word*)t0)[13],a[5]=t1,a[6]=((C_word*)t0)[8],a[7]=t4,a[8]=t5,a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[7],a[11]=t6,a[12]=((C_word*)t0)[6],a[13]=((C_word*)t0)[5],tmp=(C_word)a,a+=14,tmp);
20249 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20389,a[2]=t7,a[3]=((C_word)li256),tmp=(C_word)a,a+=4,tmp);
20250 /* irregex-core.scm:2221: find */
20251 f_9195(t8,t9,C_i_cdr(t3));}}
20252 
20253 /* k20008 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20010(C_word t0,C_word t1)20254 static void C_fcall f_20010(C_word t0,C_word t1){
20255 C_word tmp;
20256 C_word t2;
20257 C_word t3;
20258 C_word t4;
20259 C_word *a;
20260 C_check_for_interrupt;
20261 if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
20262 C_save_and_reclaim_args((void *)trf_20010,2,t0,t1);}
20263 a=C_alloc(12);
20264 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20013,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],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
20265 t3=C_eqp(((C_word*)t0)[12],((C_word*)t0)[13]);
20266 if(C_truep(C_i_not(t3))){
20267 /* irregex-core.scm:2212: get-next */
20268 t4=((C_word*)t0)[14];{
20269 C_word av2[3];
20270 av2[0]=t4;
20271 av2[1]=t2;
20272 av2[2]=((C_word*)t0)[12];
20273 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
20274 else{
20275 t4=t2;{
20276 C_word av2[2];
20277 av2[0]=t4;
20278 av2[1]=C_SCHEME_FALSE;
20279 f_20013(2,av2);}}}
20280 
20281 /* k20011 in k20008 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20013(C_word c,C_word * av)20282 static void C_ccall f_20013(C_word c,C_word *av){
20283 C_word tmp;
20284 C_word t0=av[0];
20285 C_word t1=av[1];
20286 C_word t2;
20287 C_word t3;
20288 C_word t4;
20289 C_word t5;
20290 C_word t6;
20291 C_word t7;
20292 C_word *a;
20293 C_check_for_interrupt;
20294 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
20295 C_save_and_reclaim((void *)f_20013,c,av);}
20296 a=C_alloc(9);
20297 if(C_truep(t1)){
20298 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20023,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
20299 /* irregex-core.scm:2214: get-start */
20300 t3=((C_word*)t0)[8];{
20301 C_word *av2;
20302 if(c >= 3) {
20303   av2=av;
20304 } else {
20305   av2=C_alloc(3);
20306 }
20307 av2[0]=t3;
20308 av2[1]=t2;
20309 av2[2]=t1;
20310 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
20311 else{
20312 if(C_truep(((C_word*)t0)[9])){
20313 t2=C_slot(((C_word*)t0)[10],C_fix(1));
20314 t3=C_fixnum_times(((C_word*)t0)[9],C_fix(4));
20315 t4=C_fixnum_plus(C_fix(2),t3);
20316 if(C_truep(C_slot(t2,t4))){
20317 t5=C_i_not(((C_word*)t0)[7]);
20318 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20058,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
20319 if(C_truep(t5)){
20320 t7=((C_word*)t0)[3];{
20321 C_word *av2=av;
20322 av2[0]=t7;
20323 av2[1]=(C_truep(t5)?C_SCHEME_TRUE:C_SCHEME_FALSE);
20324 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
20325 else{
20326 /* irregex-core.scm:2217: finalize! */
20327 f_19816(t6,((C_word*)t0)[7],((C_word*)t0)[11],((C_word*)t0)[10]);}}
20328 else{
20329 t5=((C_word*)t0)[3];{
20330 C_word *av2=av;
20331 av2[0]=t5;
20332 av2[1]=C_SCHEME_FALSE;
20333 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
20334 else{
20335 t2=((C_word*)t0)[3];{
20336 C_word *av2=av;
20337 av2[0]=t2;
20338 av2[1]=C_SCHEME_FALSE;
20339 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}
20340 
20341 /* k20021 in k20011 in k20008 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20023(C_word c,C_word * av)20342 static void C_ccall f_20023(C_word c,C_word *av){
20343 C_word tmp;
20344 C_word t0=av[0];
20345 C_word t1=av[1];
20346 C_word t2;
20347 C_word *a;
20348 C_check_for_interrupt;
20349 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
20350 C_save_and_reclaim((void *)f_20023,c,av);}
20351 /* irregex-core.scm:2214: lp1 */
20352 t2=((C_word*)((C_word*)t0)[2])[1];
20353 f_19988(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
20354 
20355 /* k20056 in k20011 in k20008 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20058(C_word c,C_word * av)20356 static void C_ccall f_20058(C_word c,C_word *av){
20357 C_word tmp;
20358 C_word t0=av[0];
20359 C_word t1=av[1];
20360 C_word t2;
20361 C_word *a;
20362 C_check_for_interrupt;
20363 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20364 C_save_and_reclaim((void *)f_20058,c,av);}
20365 t2=((C_word*)t0)[2];{
20366 C_word *av2=av;
20367 av2[0]=t2;
20368 av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE);
20369 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20370 
20371 /* k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20110(C_word c,C_word * av)20372 static void C_ccall f_20110(C_word c,C_word *av){
20373 C_word tmp;
20374 C_word t0=av[0];
20375 C_word t1=av[1];
20376 C_word t2;
20377 C_word t3;
20378 C_word t4;
20379 C_word t5;
20380 C_word t6;
20381 C_word t7;
20382 C_word t8;
20383 C_word t9;
20384 C_word *a;
20385 C_check_for_interrupt;
20386 if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
20387 C_save_and_reclaim((void *)f_20110,c,av);}
20388 a=C_alloc(17);
20389 if(C_truep(t1)){
20390 t2=C_i_cadr(t1);
20391 t3=C_i_vector_ref(((C_word*)t0)[2],t2);
20392 t4=C_i_car(t3);
20393 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20122,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t3,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);
20394 if(C_truep(((C_word*)t0)[9])){
20395 t6=C_i_cddr(t1);
20396 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20146,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=t6,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
20397 if(C_truep(((C_word*)t0)[11])){
20398 if(C_truep(C_i_not(t4))){
20399 /* irregex-core.scm:2236: finalize! */
20400 f_19816(t7,((C_word*)t0)[11],((C_word*)t0)[10],((C_word*)t0)[12]);}
20401 else{
20402 t8=t7;{
20403 C_word *av2=av;
20404 av2[0]=t8;
20405 av2[1]=C_SCHEME_UNDEFINED;
20406 f_20146(2,av2);}}}
20407 else{
20408 t8=t7;{
20409 C_word *av2=av;
20410 av2[0]=t8;
20411 av2[1]=C_SCHEME_UNDEFINED;
20412 f_20146(2,av2);}}}
20413 else{
20414 t6=t5;{
20415 C_word *av2=av;
20416 av2[0]=t6;
20417 av2[1]=C_SCHEME_UNDEFINED;
20418 f_20122(2,av2);}}}
20419 else{
20420 if(C_truep(((C_word*)t0)[7])){
20421 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20319,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp);
20422 if(C_truep(((C_word*)t0)[13])){
20423 t3=C_slot(((C_word*)t0)[12],C_fix(1));
20424 t4=C_fixnum_times(((C_word*)t0)[13],C_fix(4));
20425 t5=C_fixnum_plus(C_fix(2),t4);
20426 t6=C_i_vector_set(t3,t5,((C_word*)t0)[7]);
20427 t7=C_slot(((C_word*)t0)[12],C_fix(1));
20428 t8=C_fixnum_times(((C_word*)t0)[13],C_fix(4));
20429 t9=t2;
20430 f_20319(t9,C_i_vector_set(t7,C_fixnum_plus(C_fix(3),t8),((C_word*)t0)[8]));}
20431 else{
20432 t3=t2;
20433 f_20319(t3,C_SCHEME_UNDEFINED);}}
20434 else{
20435 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20361,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp);
20436 if(C_truep(((C_word*)t0)[13])){
20437 t3=C_slot(((C_word*)t0)[12],C_fix(1));
20438 t4=C_fixnum_times(((C_word*)t0)[13],C_fix(4));
20439 t5=t2;
20440 f_20361(t5,C_slot(t3,C_fixnum_plus(C_fix(2),t4)));}
20441 else{
20442 t3=t2;
20443 f_20361(t3,C_SCHEME_FALSE);}}}}
20444 
20445 /* k20120 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20122(C_word c,C_word * av)20446 static void C_ccall f_20122(C_word c,C_word *av){
20447 C_word tmp;
20448 C_word t0=av[0];
20449 C_word t1=av[1];
20450 C_word t2;
20451 C_word t3;
20452 C_word t4;
20453 C_word *a;
20454 C_check_for_interrupt;
20455 if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){
20456 C_save_and_reclaim((void *)f_20122,c,av);}
20457 a=C_alloc(10);
20458 if(C_truep(((C_word*)t0)[2])){
20459 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
20460 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
20461 /* irregex-core.scm:2255: lp2 */
20462 t4=((C_word*)((C_word*)t0)[4])[1];
20463 f_20000(t4,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[2]);}
20464 else{
20465 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
20466 /* irregex-core.scm:2256: lp2 */
20467 t3=((C_word*)((C_word*)t0)[4])[1];
20468 f_20000(t3,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}}
20469 
20470 /* k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20146(C_word c,C_word * av)20471 static void C_ccall f_20146(C_word c,C_word *av){
20472 C_word tmp;
20473 C_word t0=av[0];
20474 C_word t1=av[1];
20475 C_word t2;
20476 C_word t3;
20477 C_word t4;
20478 C_word t5;
20479 C_word t6;
20480 C_word t7;
20481 C_word t8;
20482 C_word t9;
20483 C_word *a;
20484 C_check_for_interrupt;
20485 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
20486 C_save_and_reclaim((void *)f_20146,c,av);}
20487 a=C_alloc(18);
20488 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li250),tmp=(C_word)a,a+=6,tmp);
20489 t3=C_i_cdr(((C_word*)t0)[5]);
20490 t4=C_i_check_list_2(t3,lf[306]);
20491 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
20492 t6=C_SCHEME_UNDEFINED;
20493 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
20494 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20283,a[2]=t2,a[3]=t7,a[4]=((C_word)li255),tmp=(C_word)a,a+=5,tmp));
20495 t9=((C_word*)t7)[1];
20496 f_20283(t9,t5,t3);}
20497 
20498 /* g3669 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20147(C_word * a,C_word t0,C_word t1)20499 static C_word C_fcall f_20147(C_word *a,C_word t0,C_word t1){
20500 C_word tmp;
20501 C_word t2;
20502 C_word t3;
20503 C_word t4;
20504 C_word t5;
20505 C_word t6;
20506 C_stack_overflow_check;{}
20507 t2=C_i_cdr(t1);
20508 t3=C_i_vector_ref(((C_word*)t0)[2],t2);
20509 t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1));
20510 t5=C_a_i_cons(&a,2,((C_word*)t0)[4],t4);
20511 return(C_i_vector_set(t3,C_u_i_car(t1),t5));}
20512 
20513 /* k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20176(C_word c,C_word * av)20514 static void C_ccall f_20176(C_word c,C_word *av){
20515 C_word tmp;
20516 C_word t0=av[0];
20517 C_word t1=av[1];
20518 C_word t2;
20519 C_word t3;
20520 C_word t4;
20521 C_word t5;
20522 C_word t6;
20523 C_word t7;
20524 C_word t8;
20525 C_word t9;
20526 C_word t10;
20527 C_word t11;
20528 C_word t12;
20529 C_word t13;
20530 C_word *a;
20531 C_check_for_interrupt;
20532 if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
20533 C_save_and_reclaim((void *)f_20176,c,av);}
20534 a=C_alloc(21);
20535 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
20536 t3=t2;
20537 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
20538 t5=((C_word*)t4)[1];
20539 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20185,a[2]=((C_word*)t0)[2],a[3]=((C_word)li252),tmp=(C_word)a,a+=4,tmp);
20540 t7=C_u_i_car(((C_word*)t0)[3]);
20541 t8=C_i_check_list_2(t7,lf[211]);
20542 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20218,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
20543 t10=C_SCHEME_UNDEFINED;
20544 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
20545 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20249,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,a[6]=((C_word)li254),tmp=(C_word)a,a+=7,tmp));
20546 t13=((C_word*)t11)[1];
20547 f_20249(t13,t9,t7);}
20548 
20549 /* g3708 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20185(C_word t0,C_word t1,C_word t2)20550 static void C_fcall f_20185(C_word t0,C_word t1,C_word t2){
20551 C_word tmp;
20552 C_word t3;
20553 C_word t4;
20554 C_word t5;
20555 C_word t6;
20556 C_word t7;
20557 C_word t8;
20558 C_word t9;
20559 C_word *a;
20560 C_check_for_interrupt;
20561 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
20562 C_save_and_reclaim_args((void *)trf_20185,3,t0,t1,t2);}
20563 a=C_alloc(6);
20564 t3=C_i_vector_ref(t2,C_fix(0));
20565 t4=C_i_vector_ref(t2,C_fix(1));
20566 t5=C_i_vector_ref(((C_word*)t0)[2],t4);
20567 t6=C_i_vector_ref(t2,C_fix(2));
20568 t7=C_i_vector_ref(((C_word*)t0)[2],t6);
20569 t8=C_i_vector_ref(t5,t3);
20570 t9=t1;{
20571 C_word av2[2];
20572 av2[0]=t9;
20573 av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20199,a[2]=t7,a[3]=t3,a[4]=t8,a[5]=((C_word)li251),tmp=(C_word)a,a+=6,tmp);
20574 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
20575 
20576 /* f_20199 in g3708 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20199(C_word c,C_word * av)20577 static void C_ccall f_20199(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 *a;
20583 if(c!=2) C_bad_argc_2(c,2,t0);
20584 C_check_for_interrupt;
20585 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20586 C_save_and_reclaim((void *)f_20199,c,av);}
20587 t2=t1;{
20588 C_word *av2=av;
20589 av2[0]=t2;
20590 av2[1]=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
20591 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20592 
20593 /* k20216 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20218(C_word c,C_word * av)20594 static void C_ccall f_20218(C_word c,C_word *av){
20595 C_word tmp;
20596 C_word t0=av[0];
20597 C_word t1=av[1];
20598 C_word t2;
20599 C_word t3;
20600 C_word t4;
20601 C_word t5;
20602 C_word t6;
20603 C_word *a;
20604 C_check_for_interrupt;
20605 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
20606 C_save_and_reclaim((void *)f_20218,c,av);}
20607 a=C_alloc(6);
20608 t2=C_i_check_list_2(t1,lf[306]);
20609 t3=C_SCHEME_UNDEFINED;
20610 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
20611 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20226,a[2]=t4,a[3]=((C_word)li253),tmp=(C_word)a,a+=4,tmp));
20612 t6=((C_word*)t4)[1];
20613 f_20226(t6,((C_word*)t0)[2],t1);}
20614 
20615 /* for-each-loop3678 in k20216 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20226(C_word t0,C_word t1,C_word t2)20616 static void C_fcall f_20226(C_word t0,C_word t1,C_word t2){
20617 C_word tmp;
20618 C_word t3;
20619 C_word t4;
20620 C_word *a;
20621 C_check_for_interrupt;
20622 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
20623 C_save_and_reclaim_args((void *)trf_20226,3,t0,t1,t2);}
20624 a=C_alloc(5);
20625 if(C_truep(C_i_pairp(t2))){
20626 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20236,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
20627 /* irregex-core.scm:2246: execute! */
20628 t4=C_slot(t2,C_fix(0));{
20629 C_word av2[2];
20630 av2[0]=t4;
20631 av2[1]=t3;
20632 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
20633 else{
20634 t3=C_SCHEME_UNDEFINED;
20635 t4=t1;{
20636 C_word av2[2];
20637 av2[0]=t4;
20638 av2[1]=t3;
20639 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
20640 
20641 /* k20234 in for-each-loop3678 in k20216 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20236(C_word c,C_word * av)20642 static void C_ccall f_20236(C_word c,C_word *av){
20643 C_word tmp;
20644 C_word t0=av[0];
20645 C_word t1=av[1];
20646 C_word t2;
20647 C_word *a;
20648 C_check_for_interrupt;
20649 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
20650 C_save_and_reclaim((void *)f_20236,c,av);}
20651 t2=((C_word*)((C_word*)t0)[2])[1];
20652 f_20226(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
20653 
20654 /* map-loop3702 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20249(C_word t0,C_word t1,C_word t2)20655 static void C_fcall f_20249(C_word t0,C_word t1,C_word t2){
20656 C_word tmp;
20657 C_word t3;
20658 C_word t4;
20659 C_word *a;
20660 C_check_for_interrupt;
20661 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
20662 C_save_and_reclaim_args((void *)trf_20249,3,t0,t1,t2);}
20663 a=C_alloc(6);
20664 if(C_truep(C_i_pairp(t2))){
20665 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20274,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);
20666 /* irregex-core.scm:2247: g3708 */
20667 t4=((C_word*)t0)[4];
20668 f_20185(t4,t3,C_slot(t2,C_fix(0)));}
20669 else{
20670 t3=t1;{
20671 C_word av2[2];
20672 av2[0]=t3;
20673 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
20674 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20675 
20676 /* k20272 in map-loop3702 in k20174 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20274(C_word c,C_word * av)20677 static void C_ccall f_20274(C_word c,C_word *av){
20678 C_word tmp;
20679 C_word t0=av[0];
20680 C_word t1=av[1];
20681 C_word t2;
20682 C_word t3;
20683 C_word t4;
20684 C_word t5;
20685 C_word *a;
20686 C_check_for_interrupt;
20687 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
20688 C_save_and_reclaim((void *)f_20274,c,av);}
20689 a=C_alloc(3);
20690 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
20691 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
20692 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
20693 t5=((C_word*)((C_word*)t0)[3])[1];
20694 f_20249(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
20695 
20696 /* for-each-loop3668 in k20144 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20283(C_word t0,C_word t1,C_word t2)20697 static void C_fcall f_20283(C_word t0,C_word t1,C_word t2){
20698 C_word tmp;
20699 C_word t3;
20700 C_word t4;
20701 C_word t5;
20702 C_word t6;
20703 C_word *a;
20704 loop:
20705 C_check_for_interrupt;
20706 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
20707 C_save_and_reclaim_args((void *)trf_20283,3,t0,t1,t2);}
20708 a=C_alloc(3);
20709 if(C_truep(C_i_pairp(t2))){
20710 t3=(
20711 /* irregex-core.scm:2237: g3669 */
20712   f_20147(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0)))
20713 );
20714 t5=t1;
20715 t6=C_slot(t2,C_fix(1));
20716 t1=t5;
20717 t2=t6;
20718 goto loop;}
20719 else{
20720 t3=C_SCHEME_UNDEFINED;
20721 t4=t1;{
20722 C_word av2[2];
20723 av2[0]=t4;
20724 av2[1]=t3;
20725 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
20726 
20727 /* k20317 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20319(C_word t0,C_word t1)20728 static void C_fcall f_20319(C_word t0,C_word t1){
20729 C_word tmp;
20730 C_word t2;
20731 C_word t3;
20732 C_word *a;
20733 C_check_for_interrupt;
20734 if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
20735 C_save_and_reclaim_args((void *)trf_20319,2,t0,t1);}
20736 a=C_alloc(3);
20737 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20322,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20738 if(C_truep(((C_word*)t0)[3])){
20739 /* irregex-core.scm:2262: finalize! */
20740 f_19816(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
20741 else{
20742 t3=((C_word*)t0)[2];{
20743 C_word av2[2];
20744 av2[0]=t3;
20745 av2[1]=C_SCHEME_TRUE;
20746 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20747 
20748 /* k20320 in k20317 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20322(C_word c,C_word * av)20749 static void C_ccall f_20322(C_word c,C_word *av){
20750 C_word tmp;
20751 C_word t0=av[0];
20752 C_word t1=av[1];
20753 C_word t2;
20754 C_word *a;
20755 C_check_for_interrupt;
20756 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20757 C_save_and_reclaim((void *)f_20322,c,av);}
20758 t2=((C_word*)t0)[2];{
20759 C_word *av2=av;
20760 av2[0]=t2;
20761 av2[1]=C_SCHEME_TRUE;
20762 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20763 
20764 /* k20359 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20361(C_word t0,C_word t1)20765 static void C_fcall f_20361(C_word t0,C_word t1){
20766 C_word tmp;
20767 C_word t2;
20768 C_word t3;
20769 C_word *a;
20770 C_check_for_interrupt;
20771 if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
20772 C_save_and_reclaim_args((void *)trf_20361,2,t0,t1);}
20773 a=C_alloc(3);
20774 if(C_truep(t1)){
20775 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20364,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
20776 if(C_truep(((C_word*)t0)[3])){
20777 /* irregex-core.scm:2265: finalize! */
20778 f_19816(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
20779 else{
20780 t3=((C_word*)t0)[2];{
20781 C_word av2[2];
20782 av2[0]=t3;
20783 av2[1]=C_SCHEME_TRUE;
20784 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
20785 else{
20786 t2=((C_word*)t0)[2];{
20787 C_word av2[2];
20788 av2[0]=t2;
20789 av2[1]=C_SCHEME_FALSE;
20790 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
20791 
20792 /* k20362 in k20359 in k20108 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20364(C_word c,C_word * av)20793 static void C_ccall f_20364(C_word c,C_word *av){
20794 C_word tmp;
20795 C_word t0=av[0];
20796 C_word t1=av[1];
20797 C_word t2;
20798 C_word *a;
20799 C_check_for_interrupt;
20800 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
20801 C_save_and_reclaim((void *)f_20364,c,av);}
20802 t2=((C_word*)t0)[2];{
20803 C_word *av2=av;
20804 av2[0]=t2;
20805 av2[1]=C_SCHEME_TRUE;
20806 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
20807 
20808 /* a20388 in lp2 in k19993 in k19990 in lp1 in k19973 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20389(C_word c,C_word * av)20809 static void C_ccall f_20389(C_word c,C_word *av){
20810 C_word tmp;
20811 C_word t0=av[0];
20812 C_word t1=av[1];
20813 C_word t2=av[2];
20814 C_word t3;
20815 C_word t4;
20816 C_word t5;
20817 C_word t6;
20818 C_word *a;
20819 if(c!=3) C_bad_argc_2(c,3,t0);
20820 C_check_for_interrupt;
20821 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
20822 C_save_and_reclaim((void *)f_20389,c,av);}
20823 t3=C_i_car(t2);
20824 t4=C_eqp(((C_word*)t0)[2],t3);
20825 if(C_truep(t4)){
20826 t5=t1;{
20827 C_word *av2=av;
20828 av2[0]=t5;
20829 av2[1]=t4;
20830 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
20831 else{
20832 t5=C_charp(C_u_i_car(t2));
20833 if(C_truep(C_i_not(t5))){
20834 /* irregex-core.scm:2224: cset-contains? */
20835 f_26959(t1,C_u_i_car(t2),((C_word*)t0)[2]);}
20836 else{
20837 t6=t1;{
20838 C_word *av2=av;
20839 av2[0]=t6;
20840 av2[1]=C_SCHEME_FALSE;
20841 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}
20842 
20843 /* g3585 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20429(C_word * a,C_word t0,C_word t1)20844 static C_word C_fcall f_20429(C_word *a,C_word t0,C_word t1){
20845 C_word tmp;
20846 C_word t2;
20847 C_word t3;
20848 C_word t4;
20849 C_word t5;
20850 C_word t6;
20851 C_stack_overflow_check;{}
20852 t2=C_i_cdr(t1);
20853 t3=C_i_vector_ref(((C_word*)t0)[2],t2);
20854 t4=C_u_i_car(t1);
20855 t5=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
20856 return(C_i_vector_set(t3,t4,t5));}
20857 
20858 /* for-each-loop3584 in k19970 in k19958 in chicken.irregex#dfa-match/longest in k18916 in k7761 in k7536 in k7533 */
f_20457(C_word t0,C_word t1,C_word t2)20859 static void C_fcall f_20457(C_word t0,C_word t1,C_word t2){
20860 C_word tmp;
20861 C_word t3;
20862 C_word t4;
20863 C_word t5;
20864 C_word t6;
20865 C_word *a;
20866 loop:
20867 C_check_for_interrupt;
20868 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
20869 C_save_and_reclaim_args((void *)trf_20457,3,t0,t1,t2);}
20870 a=C_alloc(3);
20871 if(C_truep(C_i_pairp(t2))){
20872 t3=(
20873 /* irregex-core.scm:2189: g3585 */
20874   f_20429(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0)))
20875 );
20876 t5=t1;
20877 t6=C_slot(t2,C_fix(1));
20878 t1=t5;
20879 t2=t6;
20880 goto loop;}
20881 else{
20882 t3=C_SCHEME_UNDEFINED;
20883 t4=t1;{
20884 C_word av2[2];
20885 av2[0]=t4;
20886 av2[1]=t3;
20887 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
20888 
20889 /* chicken.irregex#nfa-get-epsilons in k18916 in k7761 in k7536 in k7533 */
f_20582(C_word t1,C_word t2)20890 static C_word C_fcall f_20582(C_word t1,C_word t2){
20891 C_word tmp;
20892 C_word t3;
20893 C_word t4;
20894 C_word t5;
20895 C_stack_overflow_check;{}
20896 t3=C_eqp(t2,C_fix(0));
20897 if(C_truep(t3)){
20898 return(C_SCHEME_END_OF_LIST);}
20899 else{
20900 t4=C_fixnum_times(t2,C_fix(4));
20901 return(C_i_vector_ref(t1,C_fixnum_plus(t4,C_fix(1))));}}
20902 
20903 /* chicken.irregex#nfa-add-epsilon! in k18916 in k7761 in k7536 in k7533 */
f_20616(C_word * a,C_word t1,C_word t2,C_word t3,C_word t4)20904 static C_word C_fcall f_20616(C_word *a,C_word t1,C_word t2,C_word t3,C_word t4){
20905 C_word tmp;
20906 C_word t5;
20907 C_word t6;
20908 C_word t7;
20909 C_word t8;
20910 C_word t9;
20911 C_word t10;
20912 C_stack_overflow_check;{}
20913 t5=(
20914 /* irregex-core.scm:2421: nfa-get-epsilons */
20915   f_20582(t1,t2)
20916 );
20917 t6=C_i_assq(t3,t5);
20918 if(C_truep(C_i_not(t6))){
20919 t7=C_a_i_cons(&a,2,t3,t4);
20920 t8=C_a_i_cons(&a,2,t7,t5);
20921 t9=C_fixnum_times(t2,C_fix(4));
20922 return(C_i_vector_set(t1,C_fixnum_plus(t9,C_fix(1)),t8));}
20923 else{
20924 t7=C_SCHEME_UNDEFINED;
20925 return(t7);}}
20926 
20927 /* chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20757(C_word t1,C_word t2,C_word t3)20928 static void C_fcall f_20757(C_word t1,C_word t2,C_word t3){
20929 C_word tmp;
20930 C_word t4;
20931 C_word t5;
20932 C_word t6;
20933 C_word *a;
20934 C_check_for_interrupt;
20935 if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
20936 C_save_and_reclaim_args((void *)trf_20757,3,t1,t2,t3);}
20937 a=C_alloc(10);
20938 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20761,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
20939 t5=C_a_i_fixnum_times(&a,2,C_fix(128),C_fix(4));
20940 /* irregex-core.scm:2447: scheme#make-vector */
20941 t6=*((C_word*)lf[4]+1);{
20942 C_word av2[4];
20943 av2[0]=t6;
20944 av2[1]=t4;
20945 av2[2]=t5;
20946 av2[3]=C_SCHEME_END_OF_LIST;
20947 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
20948 
20949 /* k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20761(C_word c,C_word * av)20950 static void C_ccall f_20761(C_word c,C_word *av){
20951 C_word tmp;
20952 C_word t0=av[0];
20953 C_word t1=av[1];
20954 C_word t2;
20955 C_word t3;
20956 C_word t4;
20957 C_word t5;
20958 C_word t6;
20959 C_word t7;
20960 C_word t8;
20961 C_word t9;
20962 C_word *a;
20963 C_check_for_interrupt;
20964 if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){
20965 C_save_and_reclaim((void *)f_20761,c,av);}
20966 a=C_alloc(18);
20967 t2=t1;
20968 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
20969 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20764,a[2]=t3,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);
20970 t5=C_a_i_list1(&a,1,((C_word*)t0)[3]);
20971 t6=C_SCHEME_UNDEFINED;
20972 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
20973 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21716,a[2]=t3,a[3]=t7,a[4]=((C_word)li275),tmp=(C_word)a,a+=5,tmp));
20974 t9=((C_word*)t7)[1];
20975 f_21716(t9,t4,t5,C_fix(0),C_SCHEME_END_OF_LIST);}
20976 
20977 /* k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20764(C_word c,C_word * av)20978 static void C_ccall f_20764(C_word c,C_word *av){
20979 C_word tmp;
20980 C_word t0=av[0];
20981 C_word t1=av[1];
20982 C_word t2;
20983 C_word t3;
20984 C_word t4;
20985 C_word t5;
20986 C_word t6;
20987 C_word t7;
20988 C_word *a;
20989 C_check_for_interrupt;
20990 if(C_unlikely(!C_demand(C_calculate_demand(15,c,6)))){
20991 C_save_and_reclaim((void *)f_20764,c,av);}
20992 a=C_alloc(15);
20993 t2=C_SCHEME_UNDEFINED;
20994 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
20995 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20766,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word)li273),tmp=(C_word)a,a+=6,tmp));
20996 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21660,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
20997 t6=C_a_i_list1(&a,1,((C_word*)t0)[4]);
20998 /* irregex-core.scm:2664: lp */
20999 t7=((C_word*)t3)[1];
21000 f_20766(t7,t5,t6,C_fix(1),((C_word*)t0)[5],C_fix(0));}
21001 
21002 /* lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20766(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)21003 static void C_fcall f_20766(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
21004 C_word tmp;
21005 C_word t6;
21006 C_word t7;
21007 C_word t8;
21008 C_word t9;
21009 C_word t10;
21010 C_word t11;
21011 C_word t12;
21012 C_word t13;
21013 C_word t14;
21014 C_word t15;
21015 C_word t16;
21016 C_word t17;
21017 C_word t18;
21018 C_word t19;
21019 C_word t20;
21020 C_word t21;
21021 C_word t22;
21022 C_word t23;
21023 C_word t24;
21024 C_word t25;
21025 C_word t26;
21026 C_word t27;
21027 C_word t28;
21028 C_word t29;
21029 C_word t30;
21030 C_word t31;
21031 C_word t32;
21032 C_word t33;
21033 C_word t34;
21034 C_word *a;
21035 loop:
21036 C_check_for_interrupt;
21037 if(C_unlikely(!C_demand(C_calculate_demand(40,0,5)))){
21038 C_save_and_reclaim_args((void *)trf_20766,6,t0,t1,t2,t3,t4,t5);}
21039 a=C_alloc(40);
21040 t6=C_SCHEME_UNDEFINED;
21041 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
21042 t8=C_SCHEME_UNDEFINED;
21043 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
21044 t10=C_SCHEME_UNDEFINED;
21045 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
21046 t12=C_SCHEME_UNDEFINED;
21047 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
21048 t14=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20769,a[2]=t3,a[3]=((C_word)li266),tmp=(C_word)a,a+=4,tmp));
21049 t15=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20779,a[2]=((C_word*)t0)[2],a[3]=((C_word)li268),tmp=(C_word)a,a+=4,tmp));
21050 t16=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20840,a[2]=t9,a[3]=t7,a[4]=((C_word)li269),tmp=(C_word)a,a+=5,tmp));
21051 t17=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20857,a[2]=t4,a[3]=t11,a[4]=((C_word)li270),tmp=(C_word)a,a+=5,tmp));
21052 if(C_truep(C_i_nullp(t2))){
21053 t18=t1;{
21054 C_word av2[2];
21055 av2[0]=t18;
21056 av2[1]=t5;
21057 ((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
21058 else{
21059 t18=C_i_car(t2);
21060 t19=C_eqp(lf[110],t18);
21061 t20=(C_truep(t19)?t19:C_i_equalp(lf[390],C_u_i_car(t2)));
21062 if(C_truep(t20)){
21063 t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20907,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t9,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
21064 /* irregex-core.scm:2495: lp */
21065 t30=t21;
21066 t31=C_u_i_cdr(t2);
21067 t32=t3;
21068 t33=t4;
21069 t34=t5;
21070 t1=t30;
21071 t2=t31;
21072 t3=t32;
21073 t4=t33;
21074 t5=t34;
21075 goto loop;}
21076 else{
21077 if(C_truep(C_i_stringp(C_u_i_car(t2)))){
21078 t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20931,a[2]=t2,a[3]=t13,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
21079 /* irregex-core.scm:2502: lp */
21080 t30=t21;
21081 t31=C_u_i_cdr(t2);
21082 t32=t3;
21083 t33=t4;
21084 t34=t5;
21085 t1=t30;
21086 t2=t31;
21087 t3=t32;
21088 t4=t33;
21089 t5=t34;
21090 goto loop;}
21091 else{
21092 if(C_truep(C_charp(C_u_i_car(t2)))){
21093 t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20988,a[2]=t13,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
21094 /* irregex-core.scm:2512: lp */
21095 t30=t21;
21096 t31=C_u_i_cdr(t2);
21097 t32=t3;
21098 t33=t4;
21099 t34=t5;
21100 t1=t30;
21101 t2=t31;
21102 t3=t32;
21103 t4=t33;
21104 t5=t34;
21105 goto loop;}
21106 else{
21107 if(C_truep(C_i_symbolp(C_u_i_car(t2)))){
21108 t21=C_i_assq(C_u_i_car(t2),lf[248]);
21109 if(C_truep(t21)){
21110 t22=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21015,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
21111 t23=C_i_cdr(t21);
21112 if(C_truep(C_i_closurep(t23))){
21113 /* irregex-core.scm:2516: g3916 */
21114 t24=C_u_i_cdr(t21);{
21115 C_word av2[2];
21116 av2[0]=t24;
21117 av2[1]=t22;
21118 ((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}
21119 else{
21120 t24=C_u_i_cdr(t21);
21121 t25=C_u_i_cdr(t2);
21122 t26=C_a_i_cons(&a,2,t24,t25);
21123 /* irregex-core.scm:2516: lp */
21124 t30=t1;
21125 t31=t26;
21126 t32=t3;
21127 t33=t4;
21128 t34=t5;
21129 t1=t30;
21130 t2=t31;
21131 t3=t32;
21132 t4=t33;
21133 t5=t34;
21134 goto loop;}}
21135 else{
21136 t22=t1;{
21137 C_word av2[2];
21138 av2[0]=t22;
21139 av2[1]=C_SCHEME_FALSE;
21140 ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}}
21141 else{
21142 if(C_truep(C_i_pairp(C_u_i_car(t2)))){
21143 t21=C_i_caar(t2);
21144 if(C_truep(C_i_stringp(t21))){
21145 t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21046,a[2]=t11,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,tmp=(C_word)a,a+=9,tmp);
21146 t23=C_fixnum_and(t4,C_fix(2));
21147 t24=C_eqp(C_fix(2),t23);
21148 if(C_truep(t24)){
21149 t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21065,a[2]=t22,tmp=(C_word)a,a+=3,tmp);
21150 /* irregex-core.scm:2527: string->cset */
21151 f_26472(t25,C_i_caar(t2));}
21152 else{
21153 /* irregex-core.scm:2528: string->cset */
21154 f_26472(t22,C_i_caar(t2));}}
21155 else{
21156 t22=C_i_caar(t2);
21157 t23=C_eqp(t22,lf[115]);
21158 t24=(C_truep(t23)?t23:C_eqp(t22,lf[227]));
21159 if(C_truep(t24)){
21160 t25=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21095,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
21161 t26=C_u_i_car(t2);
21162 /* irregex-core.scm:2534: scheme#append */
21163 t27=*((C_word*)lf[73]+1);{
21164 C_word av2[4];
21165 av2[0]=t27;
21166 av2[1]=t25;
21167 av2[2]=C_u_i_cdr(t26);
21168 av2[3]=C_u_i_cdr(t2);
21169 ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}}
21170 else{
21171 t25=C_eqp(t22,lf[225]);
21172 t26=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21109,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,a[6]=t4,a[7]=t3,a[8]=t5,a[9]=t22,a[10]=t11,a[11]=t9,a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[4],tmp=(C_word)a,a+=14,tmp);
21173 if(C_truep(t25)){
21174 t27=t26;
21175 f_21109(t27,t25);}
21176 else{
21177 t27=C_eqp(t22,lf[226]);
21178 if(C_truep(t27)){
21179 t28=t26;
21180 f_21109(t28,t27);}
21181 else{
21182 t28=C_eqp(t22,lf[156]);
21183 t29=t26;
21184 f_21109(t29,(C_truep(t28)?t28:C_eqp(t22,lf[157])));}}}}}
21185 else{
21186 t21=t1;{
21187 C_word av2[2];
21188 av2[0]=t21;
21189 av2[1]=C_SCHEME_FALSE;
21190 ((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}}}}}}}
21191 
21192 /* new-state-number in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20769(C_word t0,C_word t1,C_word t2)21193 static void C_fcall f_20769(C_word t0,C_word t1,C_word t2){
21194 C_word tmp;
21195 C_word t3;
21196 C_word *a;
21197 C_check_for_interrupt;
21198 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
21199 C_save_and_reclaim_args((void *)trf_20769,3,t0,t1,t2);}
21200 /* irregex-core.scm:2472: scheme#max */
21201 t3=*((C_word*)lf[254]+1);{
21202 C_word av2[4];
21203 av2[0]=t3;
21204 av2[1]=t1;
21205 av2[2]=((C_word*)t0)[2];
21206 av2[3]=C_fixnum_plus(C_fix(1),t2);
21207 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
21208 
21209 /* add-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20779(C_word t0,C_word t1,C_word t2,C_word t3)21210 static void C_fcall f_20779(C_word t0,C_word t1,C_word t2,C_word t3){
21211 C_word tmp;
21212 C_word t4;
21213 C_word t5;
21214 C_word t6;
21215 C_word t7;
21216 C_word t8;
21217 C_word t9;
21218 C_word t10;
21219 C_word *a;
21220 C_check_for_interrupt;
21221 if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){
21222 C_save_and_reclaim_args((void *)trf_20779,4,t0,t1,t2,t3);}
21223 a=C_alloc(15);
21224 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20783,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
21225 t5=C_fixnum_times(t2,C_fix(4));
21226 t6=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]);
21227 if(C_truep(C_fixnum_greater_or_equal_p(t5,t6))){
21228 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20792,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
21229 t8=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]);
21230 t9=C_a_i_fixnum_times(&a,2,C_fix(2),t8);
21231 /* irregex-core.scm:2475: scheme#make-vector */
21232 t10=*((C_word*)lf[4]+1);{
21233 C_word av2[4];
21234 av2[0]=t10;
21235 av2[1]=t7;
21236 av2[2]=t9;
21237 av2[3]=C_SCHEME_END_OF_LIST;
21238 ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
21239 else{
21240 t7=t4;
21241 f_20783(t7,C_SCHEME_UNDEFINED);}}
21242 
21243 /* k20781 in add-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20783(C_word t0,C_word t1)21244 static void C_fcall f_20783(C_word t0,C_word t1){
21245 C_word tmp;
21246 C_word t2;
21247 C_word t3;
21248 C_word t4;
21249 C_word t5;
21250 C_word *a;
21251 C_check_for_interrupt;
21252 if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){
21253 C_save_and_reclaim_args((void *)trf_20783,2,t0,t1);}
21254 t2=((C_word*)((C_word*)t0)[2])[1];
21255 t3=C_fixnum_times(((C_word*)t0)[3],C_fix(4));
21256 t4=C_i_vector_set(t2,t3,((C_word*)t0)[4]);
21257 t5=((C_word*)t0)[5];{
21258 C_word av2[2];
21259 av2[0]=t5;
21260 av2[1]=((C_word*)t0)[3];
21261 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
21262 
21263 /* k20790 in add-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20792(C_word c,C_word * av)21264 static void C_ccall f_20792(C_word c,C_word *av){
21265 C_word tmp;
21266 C_word t0=av[0];
21267 C_word t1=av[1];
21268 C_word t2;
21269 C_word t3;
21270 C_word t4;
21271 C_word t5;
21272 C_word t6;
21273 C_word t7;
21274 C_word t8;
21275 C_word *a;
21276 C_check_for_interrupt;
21277 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
21278 C_save_and_reclaim((void *)f_20792,c,av);}
21279 a=C_alloc(18);
21280 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20795,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
21281 t3=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]);
21282 t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1));
21283 t5=C_SCHEME_UNDEFINED;
21284 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
21285 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20804,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=((C_word)li267),tmp=(C_word)a,a+=6,tmp));
21286 t8=((C_word*)t6)[1];
21287 f_20804(t8,t2,t4);}
21288 
21289 /* k20793 in k20790 in add-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20795(C_word c,C_word * av)21290 static void C_ccall f_20795(C_word c,C_word *av){
21291 C_word tmp;
21292 C_word t0=av[0];
21293 C_word t1=av[1];
21294 C_word t2;
21295 C_word t3;
21296 C_word *a;
21297 C_check_for_interrupt;
21298 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
21299 C_save_and_reclaim((void *)f_20795,c,av);}
21300 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
21301 t3=((C_word*)t0)[4];
21302 f_20783(t3,t2);}
21303 
21304 /* doloop3883 in k20790 in add-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20804(C_word t0,C_word t1,C_word t2)21305 static void C_fcall f_20804(C_word t0,C_word t1,C_word t2){
21306 C_word tmp;
21307 C_word t3;
21308 C_word t4;
21309 C_word t5;
21310 C_word t6;
21311 C_word t7;
21312 C_word t8;
21313 C_word *a;
21314 loop:
21315 C_check_for_interrupt;
21316 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
21317 C_save_and_reclaim_args((void *)trf_20804,3,t0,t1,t2);}
21318 a=C_alloc(5);
21319 if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
21320 t3=C_SCHEME_UNDEFINED;
21321 t4=t1;{
21322 C_word av2[2];
21323 av2[0]=t4;
21324 av2[1]=t3;
21325 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
21326 else{
21327 t3=C_i_vector_ref(((C_word*)((C_word*)t0)[2])[1],t2);
21328 t4=C_i_vector_set(((C_word*)t0)[3],t2,t3);
21329 t5=C_a_i_fixnum_difference(&a,2,t2,C_fix(1));
21330 t7=t1;
21331 t8=t5;
21332 t1=t7;
21333 t2=t8;
21334 goto loop;}}
21335 
21336 /* extend-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20840(C_word t0,C_word t1,C_word t2,C_word t3)21337 static void C_fcall f_20840(C_word t0,C_word t1,C_word t2,C_word t3){
21338 C_word tmp;
21339 C_word t4;
21340 C_word t5;
21341 C_word *a;
21342 C_check_for_interrupt;
21343 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
21344 C_save_and_reclaim_args((void *)trf_20840,4,t0,t1,t2,t3);}
21345 a=C_alloc(6);
21346 if(C_truep(t2)){
21347 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20851,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
21348 /* irregex-core.scm:2484: new-state-number */
21349 t5=((C_word*)((C_word*)t0)[3])[1];
21350 f_20769(t5,t4,t2);}
21351 else{
21352 t4=t1;{
21353 C_word av2[2];
21354 av2[0]=t4;
21355 av2[1]=C_SCHEME_FALSE;
21356 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
21357 
21358 /* k20849 in extend-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20851(C_word c,C_word * av)21359 static void C_ccall f_20851(C_word c,C_word *av){
21360 C_word tmp;
21361 C_word t0=av[0];
21362 C_word t1=av[1];
21363 C_word t2;
21364 C_word t3;
21365 C_word *a;
21366 C_check_for_interrupt;
21367 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
21368 C_save_and_reclaim((void *)f_20851,c,av);}
21369 a=C_alloc(3);
21370 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
21371 /* irregex-core.scm:2484: add-state! */
21372 t3=((C_word*)((C_word*)t0)[4])[1];
21373 f_20779(t3,((C_word*)t0)[5],t1,t2);}
21374 
21375 /* add-char-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20857(C_word t0,C_word t1,C_word t2,C_word t3)21376 static void C_fcall f_20857(C_word t0,C_word t1,C_word t2,C_word t3){
21377 C_word tmp;
21378 C_word t4;
21379 C_word t5;
21380 C_word t6;
21381 C_word t7;
21382 C_word t8;
21383 C_word t9;
21384 C_word t10;
21385 C_word t11;
21386 C_word t12;
21387 C_word t13;
21388 C_word *a;
21389 C_check_for_interrupt;
21390 if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){
21391 C_save_and_reclaim_args((void *)trf_20857,4,t0,t1,t2,t3);}
21392 a=C_alloc(15);
21393 t4=C_u_i_char_upper_casep(t3);
21394 t5=(C_truep(t4)?C_u_i_char_downcase(t3):C_u_i_char_upcase(t3));
21395 t6=C_fixnum_and(((C_word*)t0)[2],C_fix(2));
21396 t7=C_eqp(C_fix(2),t6);
21397 if(C_truep(t7)){
21398 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20874,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
21399 t9=C_a_i_cons(&a,2,t3,t3);
21400 t10=C_a_i_vector1(&a,1,t9);
21401 t11=C_a_i_cons(&a,2,t5,t5);
21402 t12=C_a_i_vector1(&a,1,t11);
21403 /* irregex-core.scm:2488: cset-union */
21404 t13=lf[162];{
21405 C_word av2[4];
21406 av2[0]=t13;
21407 av2[1]=t8;
21408 av2[2]=t10;
21409 av2[3]=t12;
21410 f_27080(4,av2);}}
21411 else{
21412 t8=C_a_i_cons(&a,2,t3,t3);
21413 t9=C_a_i_vector1(&a,1,t8);
21414 /* irregex-core.scm:2489: extend-state! */
21415 t10=((C_word*)((C_word*)t0)[3])[1];
21416 f_20840(t10,t1,t2,t9);}}
21417 
21418 /* k20872 in add-char-state! in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20874(C_word c,C_word * av)21419 static void C_ccall f_20874(C_word c,C_word *av){
21420 C_word tmp;
21421 C_word t0=av[0];
21422 C_word t1=av[1];
21423 C_word t2;
21424 C_word *a;
21425 C_check_for_interrupt;
21426 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21427 C_save_and_reclaim((void *)f_20874,c,av);}
21428 /* irregex-core.scm:2488: extend-state! */
21429 t2=((C_word*)((C_word*)t0)[2])[1];
21430 f_20840(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
21431 
21432 /* k20905 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20907(C_word c,C_word * av)21433 static void C_ccall f_20907(C_word c,C_word *av){
21434 C_word tmp;
21435 C_word t0=av[0];
21436 C_word t1=av[1];
21437 C_word t2;
21438 C_word t3;
21439 C_word t4;
21440 C_word *a;
21441 C_check_for_interrupt;
21442 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
21443 C_save_and_reclaim((void *)f_20907,c,av);}
21444 a=C_alloc(9);
21445 if(C_truep(t1)){
21446 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20913,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
21447 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20920,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
21448 /* irregex-core.scm:2497: new-state-number */
21449 t4=((C_word*)((C_word*)t0)[5])[1];
21450 f_20769(t4,t3,t1);}
21451 else{
21452 t2=((C_word*)t0)[3];{
21453 C_word *av2=av;
21454 av2[0]=t2;
21455 av2[1]=C_SCHEME_FALSE;
21456 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
21457 
21458 /* k20911 in k20905 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20913(C_word c,C_word * av)21459 static void C_ccall f_20913(C_word c,C_word *av){
21460 C_word tmp;
21461 C_word t0=av[0];
21462 C_word t1=av[1];
21463 C_word t2;
21464 C_word t3;
21465 C_word *a;
21466 C_check_for_interrupt;
21467 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
21468 C_save_and_reclaim((void *)f_20913,c,av);}
21469 a=C_alloc(6);
21470 t2=(
21471 /* irregex-core.scm:2498: nfa-add-epsilon! */
21472   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],C_SCHEME_FALSE)
21473 );
21474 t3=((C_word*)t0)[4];{
21475 C_word *av2=av;
21476 av2[0]=t3;
21477 av2[1]=t1;
21478 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
21479 
21480 /* k20918 in k20905 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20920(C_word c,C_word * av)21481 static void C_ccall f_20920(C_word c,C_word *av){
21482 C_word tmp;
21483 C_word t0=av[0];
21484 C_word t1=av[1];
21485 C_word t2;
21486 C_word *a;
21487 C_check_for_interrupt;
21488 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21489 C_save_and_reclaim((void *)f_20920,c,av);}
21490 /* irregex-core.scm:2497: add-state! */
21491 t2=((C_word*)((C_word*)t0)[2])[1];
21492 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
21493 
21494 /* k20929 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20931(C_word c,C_word * av)21495 static void C_ccall f_20931(C_word c,C_word *av){
21496 C_word tmp;
21497 C_word t0=av[0];
21498 C_word t1=av[1];
21499 C_word t2;
21500 C_word t3;
21501 C_word t4;
21502 C_word t5;
21503 C_word t6;
21504 C_word t7;
21505 C_word *a;
21506 C_check_for_interrupt;
21507 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
21508 C_save_and_reclaim((void *)f_20931,c,av);}
21509 a=C_alloc(13);
21510 if(C_truep(t1)){
21511 t2=C_i_string_length(C_u_i_car(((C_word*)t0)[2]));
21512 t3=C_a_i_fixnum_difference(&a,2,t2,C_fix(1));
21513 t4=C_SCHEME_UNDEFINED;
21514 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
21515 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20945,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li271),tmp=(C_word)a,a+=6,tmp));
21516 t7=((C_word*)t5)[1];
21517 f_20945(t7,((C_word*)t0)[4],t3,t1);}
21518 else{
21519 t2=((C_word*)t0)[4];{
21520 C_word *av2=av;
21521 av2[0]=t2;
21522 av2[1]=C_SCHEME_FALSE;
21523 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
21524 
21525 /* lp2 in k20929 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20945(C_word t0,C_word t1,C_word t2,C_word t3)21526 static void C_fcall f_20945(C_word t0,C_word t1,C_word t2,C_word t3){
21527 C_word tmp;
21528 C_word t4;
21529 C_word t5;
21530 C_word t6;
21531 C_word t7;
21532 C_word *a;
21533 C_check_for_interrupt;
21534 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
21535 C_save_and_reclaim_args((void *)trf_20945,4,t0,t1,t2,t3);}
21536 a=C_alloc(5);
21537 if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
21538 t4=t1;{
21539 C_word av2[2];
21540 av2[0]=t4;
21541 av2[1]=t3;
21542 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
21543 else{
21544 t4=C_fixnum_difference(t2,C_fix(1));
21545 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20963,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
21546 t6=C_i_car(((C_word*)t0)[3]);
21547 /* irregex-core.scm:2509: add-char-state! */
21548 t7=((C_word*)((C_word*)t0)[4])[1];
21549 f_20857(t7,t5,t3,C_i_string_ref(t6,t2));}}
21550 
21551 /* k20961 in lp2 in k20929 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20963(C_word c,C_word * av)21552 static void C_ccall f_20963(C_word c,C_word *av){
21553 C_word tmp;
21554 C_word t0=av[0];
21555 C_word t1=av[1];
21556 C_word t2;
21557 C_word *a;
21558 C_check_for_interrupt;
21559 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21560 C_save_and_reclaim((void *)f_20963,c,av);}
21561 /* irregex-core.scm:2508: lp2 */
21562 t2=((C_word*)((C_word*)t0)[2])[1];
21563 f_20945(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
21564 
21565 /* k20986 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_20988(C_word c,C_word * av)21566 static void C_ccall f_20988(C_word c,C_word *av){
21567 C_word tmp;
21568 C_word t0=av[0];
21569 C_word t1=av[1];
21570 C_word t2;
21571 C_word *a;
21572 C_check_for_interrupt;
21573 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21574 C_save_and_reclaim((void *)f_20988,c,av);}
21575 /* irregex-core.scm:2512: add-char-state! */
21576 t2=((C_word*)((C_word*)t0)[2])[1];
21577 f_20857(t2,((C_word*)t0)[3],t1,C_u_i_car(((C_word*)t0)[4]));}
21578 
21579 /* k21013 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21015(C_word c,C_word * av)21580 static void C_ccall f_21015(C_word c,C_word *av){
21581 C_word tmp;
21582 C_word t0=av[0];
21583 C_word t1=av[1];
21584 C_word t2;
21585 C_word t3;
21586 C_word t4;
21587 C_word *a;
21588 C_check_for_interrupt;
21589 if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
21590 C_save_and_reclaim((void *)f_21015,c,av);}
21591 a=C_alloc(3);
21592 t2=C_u_i_cdr(((C_word*)t0)[2]);
21593 t3=C_a_i_cons(&a,2,t1,t2);
21594 /* irregex-core.scm:2516: lp */
21595 t4=((C_word*)((C_word*)t0)[3])[1];
21596 f_20766(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
21597 
21598 /* k21044 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21046(C_word c,C_word * av)21599 static void C_ccall f_21046(C_word c,C_word *av){
21600 C_word tmp;
21601 C_word t0=av[0];
21602 C_word t1=av[1];
21603 C_word t2;
21604 C_word t3;
21605 C_word *a;
21606 C_check_for_interrupt;
21607 if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
21608 C_save_and_reclaim((void *)f_21046,c,av);}
21609 a=C_alloc(5);
21610 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
21611 /* irregex-core.scm:2529: lp */
21612 t3=((C_word*)((C_word*)t0)[4])[1];
21613 f_20766(t3,t2,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21614 
21615 /* k21051 in k21044 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21053(C_word c,C_word * av)21616 static void C_ccall f_21053(C_word c,C_word *av){
21617 C_word tmp;
21618 C_word t0=av[0];
21619 C_word t1=av[1];
21620 C_word t2;
21621 C_word *a;
21622 C_check_for_interrupt;
21623 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21624 C_save_and_reclaim((void *)f_21053,c,av);}
21625 /* irregex-core.scm:2529: extend-state! */
21626 t2=((C_word*)((C_word*)t0)[2])[1];
21627 f_20840(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}
21628 
21629 /* k21063 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21065(C_word c,C_word * av)21630 static void C_ccall f_21065(C_word c,C_word *av){
21631 C_word tmp;
21632 C_word t0=av[0];
21633 C_word t1=av[1];
21634 C_word t2;
21635 C_word *a;
21636 C_check_for_interrupt;
21637 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
21638 C_save_and_reclaim((void *)f_21065,c,av);}
21639 /* irregex-core.scm:2527: cset-case-insensitive */
21640 f_27607(((C_word*)t0)[2],t1);}
21641 
21642 /* k21093 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21095(C_word c,C_word * av)21643 static void C_ccall f_21095(C_word c,C_word *av){
21644 C_word tmp;
21645 C_word t0=av[0];
21646 C_word t1=av[1];
21647 C_word t2;
21648 C_word *a;
21649 C_check_for_interrupt;
21650 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
21651 C_save_and_reclaim((void *)f_21095,c,av);}
21652 /* irregex-core.scm:2534: lp */
21653 t2=((C_word*)((C_word*)t0)[2])[1];
21654 f_20766(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}
21655 
21656 /* k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21109(C_word t0,C_word t1)21657 static void C_fcall f_21109(C_word t0,C_word t1){
21658 C_word tmp;
21659 C_word t2;
21660 C_word t3;
21661 C_word t4;
21662 C_word t5;
21663 C_word t6;
21664 C_word *a;
21665 C_check_for_interrupt;
21666 if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){
21667 C_save_and_reclaim_args((void *)trf_21109,2,t0,t1);}
21668 a=C_alloc(14);
21669 if(C_truep(t1)){
21670 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21112,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);
21671 /* irregex-core.scm:2536: lp */
21672 t3=((C_word*)((C_word*)t0)[3])[1];
21673 f_20766(t3,t2,C_u_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[8]);}
21674 else{
21675 t2=C_eqp(((C_word*)t0)[9],lf[52]);
21676 t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21156,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp);
21677 if(C_truep(t2)){
21678 t4=t3;
21679 f_21156(t4,t2);}
21680 else{
21681 t4=C_eqp(((C_word*)t0)[9],lf[247]);
21682 if(C_truep(t4)){
21683 t5=t3;
21684 f_21156(t5,t4);}
21685 else{
21686 t5=C_eqp(((C_word*)t0)[9],lf[234]);
21687 t6=t3;
21688 f_21156(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[179])));}}}}
21689 
21690 /* k21110 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21112(C_word c,C_word * av)21691 static void C_ccall f_21112(C_word c,C_word *av){
21692 C_word tmp;
21693 C_word t0=av[0];
21694 C_word t1=av[1];
21695 C_word t2;
21696 C_word t3;
21697 C_word t4;
21698 C_word t5;
21699 C_word t6;
21700 C_word t7;
21701 C_word *a;
21702 C_check_for_interrupt;
21703 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
21704 C_save_and_reclaim((void *)f_21112,c,av);}
21705 a=C_alloc(7);
21706 t2=C_i_caar(((C_word*)t0)[2]);
21707 t3=(C_truep((C_truep(C_eqp(t2,lf[225]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[156]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?lf[64]:lf[63]);
21708 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21118,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);
21709 t5=C_u_i_car(((C_word*)t0)[2]);
21710 t6=C_u_i_car(t5);
21711 if(C_truep((C_truep(C_eqp(t6,lf[225]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[226]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
21712 /* irregex-core.scm:2536: g3943 */
21713 t7=t3;{
21714 C_word *av2;
21715 if(c >= 4) {
21716   av2=av;
21717 } else {
21718   av2=C_alloc(4);
21719 }
21720 av2[0]=t7;
21721 av2[1]=t4;
21722 av2[2]=((C_word*)t0)[6];
21723 av2[3]=C_fix(2);
21724 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
21725 else{
21726 /* irregex-core.scm:2536: g3943 */
21727 t7=t3;{
21728 C_word *av2;
21729 if(c >= 4) {
21730   av2=av;
21731 } else {
21732   av2=C_alloc(4);
21733 }
21734 av2[0]=t7;
21735 av2[1]=t4;
21736 av2[2]=((C_word*)t0)[6];
21737 av2[3]=C_fix(32);
21738 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
21739 
21740 /* k21116 in k21110 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21118(C_word c,C_word * av)21741 static void C_ccall f_21118(C_word c,C_word *av){
21742 C_word tmp;
21743 C_word t0=av[0];
21744 C_word t1=av[1];
21745 C_word t2;
21746 C_word t3;
21747 C_word t4;
21748 C_word *a;
21749 C_check_for_interrupt;
21750 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
21751 C_save_and_reclaim((void *)f_21118,c,av);}
21752 a=C_alloc(7);
21753 if(C_truep(((C_word*)t0)[2])){
21754 t2=C_i_cdar(((C_word*)t0)[3]);
21755 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21132,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
21756 /* irregex-core.scm:2545: new-state-number */
21757 t4=((C_word*)((C_word*)t0)[6])[1];
21758 f_20769(t4,t3,((C_word*)t0)[2]);}
21759 else{
21760 t2=((C_word*)t0)[5];{
21761 C_word *av2=av;
21762 av2[0]=t2;
21763 av2[1]=C_SCHEME_FALSE;
21764 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
21765 
21766 /* k21130 in k21116 in k21110 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21132(C_word c,C_word * av)21767 static void C_ccall f_21132(C_word c,C_word *av){
21768 C_word tmp;
21769 C_word t0=av[0];
21770 C_word t1=av[1];
21771 C_word t2;
21772 C_word *a;
21773 C_check_for_interrupt;
21774 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
21775 C_save_and_reclaim((void *)f_21132,c,av);}
21776 /* irregex-core.scm:2545: lp */
21777 t2=((C_word*)((C_word*)t0)[2])[1];
21778 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
21779 
21780 /* k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21156(C_word t0,C_word t1)21781 static void C_fcall f_21156(C_word t0,C_word t1){
21782 C_word tmp;
21783 C_word t2;
21784 C_word t3;
21785 C_word t4;
21786 C_word t5;
21787 C_word t6;
21788 C_word t7;
21789 C_word t8;
21790 C_word t9;
21791 C_word t10;
21792 C_word t11;
21793 C_word t12;
21794 C_word t13;
21795 C_word t14;
21796 C_word t15;
21797 C_word *a;
21798 C_check_for_interrupt;
21799 if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){
21800 C_save_and_reclaim_args((void *)trf_21156,2,t0,t1);}
21801 a=C_alloc(12);
21802 if(C_truep(t1)){
21803 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21159,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);
21804 t3=C_u_i_car(((C_word*)t0)[5]);
21805 t4=C_fixnum_and(((C_word*)t0)[7],C_fix(2));
21806 t5=C_eqp(C_fix(2),t4);
21807 /* irregex-core.scm:2547: sre->cset */
21808 f_26492(t2,t3,C_a_i_list(&a,1,t5));}
21809 else{
21810 t2=C_eqp(((C_word*)t0)[9],lf[103]);
21811 if(C_truep(t2)){
21812 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21183,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
21813 /* irregex-core.scm:2552: lp */
21814 t4=((C_word*)((C_word*)t0)[4])[1];
21815 f_20766(t4,t3,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21816 else{
21817 t3=C_eqp(((C_word*)t0)[9],lf[131]);
21818 if(C_truep(t3)){
21819 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21275,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp);
21820 /* irregex-core.scm:2576: lp */
21821 t5=((C_word*)((C_word*)t0)[4])[1];
21822 f_20766(t5,t4,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21823 else{
21824 t4=C_eqp(((C_word*)t0)[9],lf[129]);
21825 t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[9],lf[127]));
21826 if(C_truep(t5)){
21827 t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21309,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp);
21828 /* irregex-core.scm:2585: lp */
21829 t7=((C_word*)((C_word*)t0)[4])[1];
21830 f_20766(t7,t6,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21831 else{
21832 t6=C_eqp(((C_word*)t0)[9],lf[245]);
21833 t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[9],lf[108]));
21834 if(C_truep(t7)){
21835 t8=C_i_assq(C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[13]);
21836 t9=C_i_cdr(t8);
21837 t10=C_fixnum_shift_left(t9,C_fix(1));
21838 t11=C_fixnum_plus(t10,C_fix(1));
21839 t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21369,a[2]=((C_word*)t0)[12],a[3]=t10,a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp);
21840 /* irregex-core.scm:2630: lp */
21841 t13=((C_word*)((C_word*)t0)[4])[1];
21842 f_20766(t13,t12,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21843 else{
21844 t8=C_eqp(((C_word*)t0)[9],lf[119]);
21845 t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[120]));
21846 if(C_truep(t9)){
21847 t10=C_i_assq(C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[13]);
21848 t11=C_i_cdr(t10);
21849 t12=C_fixnum_shift_left(t11,C_fix(1));
21850 t13=C_fixnum_plus(t12,C_fix(1));
21851 t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21447,a[2]=((C_word*)t0)[12],a[3]=t12,a[4]=t13,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp);
21852 /* irregex-core.scm:2643: lp */
21853 t15=((C_word*)((C_word*)t0)[4])[1];
21854 f_20766(t15,t14,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21855 else{
21856 t10=C_i_caar(((C_word*)t0)[5]);
21857 t11=C_i_assq(t10,lf[248]);
21858 if(C_truep(t11)){
21859 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21514,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li272),tmp=(C_word)a,a+=8,tmp);
21860 /* irregex-core.scm:2654: g4019 */
21861 t13=t12;
21862 f_21514(t13,((C_word*)t0)[3],t11);}
21863 else{
21864 t12=((C_word*)t0)[3];{
21865 C_word av2[2];
21866 av2[0]=t12;
21867 av2[1]=C_SCHEME_FALSE;
21868 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}}}}}}
21869 
21870 /* k21157 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21159(C_word c,C_word * av)21871 static void C_ccall f_21159(C_word c,C_word *av){
21872 C_word tmp;
21873 C_word t0=av[0];
21874 C_word t1=av[1];
21875 C_word t2;
21876 C_word t3;
21877 C_word *a;
21878 C_check_for_interrupt;
21879 if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
21880 C_save_and_reclaim((void *)f_21159,c,av);}
21881 a=C_alloc(5);
21882 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21166,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
21883 /* irregex-core.scm:2549: lp */
21884 t3=((C_word*)((C_word*)t0)[4])[1];
21885 f_20766(t3,t2,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
21886 
21887 /* k21164 in k21157 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21166(C_word c,C_word * av)21888 static void C_ccall f_21166(C_word c,C_word *av){
21889 C_word tmp;
21890 C_word t0=av[0];
21891 C_word t1=av[1];
21892 C_word t2;
21893 C_word *a;
21894 C_check_for_interrupt;
21895 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21896 C_save_and_reclaim((void *)f_21166,c,av);}
21897 /* irregex-core.scm:2549: extend-state! */
21898 t2=((C_word*)((C_word*)t0)[2])[1];
21899 f_20840(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}
21900 
21901 /* k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21183(C_word c,C_word * av)21902 static void C_ccall f_21183(C_word c,C_word *av){
21903 C_word tmp;
21904 C_word t0=av[0];
21905 C_word t1=av[1];
21906 C_word t2;
21907 C_word t3;
21908 C_word t4;
21909 C_word t5;
21910 C_word *a;
21911 C_check_for_interrupt;
21912 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
21913 C_save_and_reclaim((void *)f_21183,c,av);}
21914 a=C_alloc(17);
21915 if(C_truep(t1)){
21916 t2=C_i_cdar(((C_word*)t0)[2]);
21917 if(C_truep(C_i_nullp(t2))){
21918 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21199,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
21919 /* irregex-core.scm:2557: new-state-number */
21920 t4=((C_word*)((C_word*)t0)[5])[1];
21921 f_20769(t4,t3,t1);}
21922 else{
21923 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21202,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t1,a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp);
21924 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21260,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
21925 /* irregex-core.scm:2560: scheme#cddar */
21926 t5=*((C_word*)lf[393]+1);{
21927 C_word *av2;
21928 if(c >= 3) {
21929   av2=av;
21930 } else {
21931   av2=C_alloc(3);
21932 }
21933 av2[0]=t5;
21934 av2[1]=t4;
21935 av2[2]=((C_word*)t0)[2];
21936 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
21937 else{
21938 t2=((C_word*)t0)[4];{
21939 C_word *av2=av;
21940 av2[0]=t2;
21941 av2[1]=C_SCHEME_FALSE;
21942 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
21943 
21944 /* k21197 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21199(C_word c,C_word * av)21945 static void C_ccall f_21199(C_word c,C_word *av){
21946 C_word tmp;
21947 C_word t0=av[0];
21948 C_word t1=av[1];
21949 C_word t2;
21950 C_word *a;
21951 C_check_for_interrupt;
21952 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
21953 C_save_and_reclaim((void *)f_21199,c,av);}
21954 /* irregex-core.scm:2557: add-state! */
21955 t2=((C_word*)((C_word*)t0)[2])[1];
21956 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
21957 
21958 /* k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21202(C_word c,C_word * av)21959 static void C_ccall f_21202(C_word c,C_word *av){
21960 C_word tmp;
21961 C_word t0=av[0];
21962 C_word t1=av[1];
21963 C_word t2;
21964 C_word t3;
21965 C_word t4;
21966 C_word *a;
21967 C_check_for_interrupt;
21968 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
21969 C_save_and_reclaim((void *)f_21202,c,av);}
21970 a=C_alloc(15);
21971 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21205,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);
21972 if(C_truep(t1)){
21973 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21244,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
21974 /* irregex-core.scm:2565: scheme#cadar */
21975 t4=*((C_word*)lf[392]+1);{
21976 C_word *av2;
21977 if(c >= 3) {
21978   av2=av;
21979 } else {
21980   av2=C_alloc(3);
21981 }
21982 av2[0]=t4;
21983 av2[1]=t3;
21984 av2[2]=((C_word*)t0)[9];
21985 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
21986 else{
21987 t3=t2;{
21988 C_word *av2=av;
21989 av2[0]=t3;
21990 av2[1]=C_SCHEME_FALSE;
21991 f_21205(2,av2);}}}
21992 
21993 /* k21203 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21205(C_word c,C_word * av)21994 static void C_ccall f_21205(C_word c,C_word *av){
21995 C_word tmp;
21996 C_word t0=av[0];
21997 C_word t1=av[1];
21998 C_word t2;
21999 C_word t3;
22000 C_word t4;
22001 C_word t5;
22002 C_word *a;
22003 C_check_for_interrupt;
22004 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
22005 C_save_and_reclaim((void *)f_21205,c,av);}
22006 a=C_alloc(14);
22007 if(C_truep(t1)){
22008 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21211,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);
22009 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21221,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
22010 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21225,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
22011 /* irregex-core.scm:2570: scheme#max */
22012 t5=*((C_word*)lf[254]+1);{
22013 C_word *av2;
22014 if(c >= 4) {
22015   av2=av;
22016 } else {
22017   av2=C_alloc(4);
22018 }
22019 av2[0]=t5;
22020 av2[1]=t4;
22021 av2[2]=t1;
22022 av2[3]=((C_word*)t0)[3];
22023 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
22024 else{
22025 t2=((C_word*)t0)[4];{
22026 C_word *av2=av;
22027 av2[0]=t2;
22028 av2[1]=C_SCHEME_FALSE;
22029 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22030 
22031 /* k21209 in k21203 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21211(C_word c,C_word * av)22032 static void C_ccall f_21211(C_word c,C_word *av){
22033 C_word tmp;
22034 C_word t0=av[0];
22035 C_word t1=av[1];
22036 C_word t2;
22037 C_word t3;
22038 C_word t4;
22039 C_word *a;
22040 C_check_for_interrupt;
22041 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
22042 C_save_and_reclaim((void *)f_21211,c,av);}
22043 a=C_alloc(12);
22044 t2=(
22045 /* irregex-core.scm:2572: nfa-add-epsilon! */
22046   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],C_SCHEME_FALSE)
22047 );
22048 t3=(
22049 /* irregex-core.scm:2573: nfa-add-epsilon! */
22050   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[4],C_SCHEME_FALSE)
22051 );
22052 t4=((C_word*)t0)[5];{
22053 C_word *av2=av;
22054 av2[0]=t4;
22055 av2[1]=t1;
22056 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22057 
22058 /* k21219 in k21203 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21221(C_word c,C_word * av)22059 static void C_ccall f_21221(C_word c,C_word *av){
22060 C_word tmp;
22061 C_word t0=av[0];
22062 C_word t1=av[1];
22063 C_word t2;
22064 C_word *a;
22065 C_check_for_interrupt;
22066 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
22067 C_save_and_reclaim((void *)f_21221,c,av);}
22068 /* irregex-core.scm:2570: add-state! */
22069 t2=((C_word*)((C_word*)t0)[2])[1];
22070 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
22071 
22072 /* k21223 in k21203 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21225(C_word c,C_word * av)22073 static void C_ccall f_21225(C_word c,C_word *av){
22074 C_word tmp;
22075 C_word t0=av[0];
22076 C_word t1=av[1];
22077 C_word t2;
22078 C_word *a;
22079 C_check_for_interrupt;
22080 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
22081 C_save_and_reclaim((void *)f_21225,c,av);}
22082 /* irregex-core.scm:2570: new-state-number */
22083 t2=((C_word*)((C_word*)t0)[2])[1];
22084 f_20769(t2,((C_word*)t0)[3],t1);}
22085 
22086 /* k21234 in k21242 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21236(C_word c,C_word * av)22087 static void C_ccall f_21236(C_word c,C_word *av){
22088 C_word tmp;
22089 C_word t0=av[0];
22090 C_word t1=av[1];
22091 C_word t2;
22092 C_word *a;
22093 C_check_for_interrupt;
22094 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22095 C_save_and_reclaim((void *)f_21236,c,av);}
22096 /* irregex-core.scm:2565: lp */
22097 t2=((C_word*)((C_word*)t0)[2])[1];
22098 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
22099 
22100 /* k21238 in k21242 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21240(C_word c,C_word * av)22101 static void C_ccall f_21240(C_word c,C_word *av){
22102 C_word tmp;
22103 C_word t0=av[0];
22104 C_word t1=av[1];
22105 C_word t2;
22106 C_word *a;
22107 C_check_for_interrupt;
22108 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
22109 C_save_and_reclaim((void *)f_21240,c,av);}
22110 /* irregex-core.scm:2566: new-state-number */
22111 t2=((C_word*)((C_word*)t0)[2])[1];
22112 f_20769(t2,((C_word*)t0)[3],t1);}
22113 
22114 /* k21242 in k21200 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21244(C_word c,C_word * av)22115 static void C_ccall f_21244(C_word c,C_word *av){
22116 C_word tmp;
22117 C_word t0=av[0];
22118 C_word t1=av[1];
22119 C_word t2;
22120 C_word t3;
22121 C_word t4;
22122 C_word t5;
22123 C_word *a;
22124 C_check_for_interrupt;
22125 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
22126 C_save_and_reclaim((void *)f_21244,c,av);}
22127 a=C_alloc(14);
22128 t2=C_a_i_list1(&a,1,t1);
22129 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21236,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);
22130 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21240,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
22131 /* irregex-core.scm:2566: scheme#max */
22132 t5=*((C_word*)lf[254]+1);{
22133 C_word *av2;
22134 if(c >= 4) {
22135   av2=av;
22136 } else {
22137   av2=C_alloc(4);
22138 }
22139 av2[0]=t5;
22140 av2[1]=t4;
22141 av2[2]=((C_word*)t0)[7];
22142 av2[3]=((C_word*)t0)[5];
22143 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
22144 
22145 /* k21250 in k21258 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21252(C_word c,C_word * av)22146 static void C_ccall f_21252(C_word c,C_word *av){
22147 C_word tmp;
22148 C_word t0=av[0];
22149 C_word t1=av[1];
22150 C_word t2;
22151 C_word *a;
22152 C_check_for_interrupt;
22153 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22154 C_save_and_reclaim((void *)f_21252,c,av);}
22155 /* irregex-core.scm:2560: lp */
22156 t2=((C_word*)((C_word*)t0)[2])[1];
22157 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
22158 
22159 /* k21258 in k21181 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21260(C_word c,C_word * av)22160 static void C_ccall f_21260(C_word c,C_word *av){
22161 C_word tmp;
22162 C_word t0=av[0];
22163 C_word t1=av[1];
22164 C_word t2;
22165 C_word t3;
22166 C_word t4;
22167 C_word t5;
22168 C_word *a;
22169 C_check_for_interrupt;
22170 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
22171 C_save_and_reclaim((void *)f_21260,c,av);}
22172 a=C_alloc(13);
22173 t2=(
22174 /* irregex-core.scm:2560: sre-alternate */
22175   f_18214(C_a_i(&a,3),t1)
22176 );
22177 t3=C_a_i_list1(&a,1,t2);
22178 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
22179 /* irregex-core.scm:2561: new-state-number */
22180 t5=((C_word*)((C_word*)t0)[6])[1];
22181 f_20769(t5,t4,((C_word*)t0)[5]);}
22182 
22183 /* k21273 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21275(C_word c,C_word * av)22184 static void C_ccall f_21275(C_word c,C_word *av){
22185 C_word tmp;
22186 C_word t0=av[0];
22187 C_word t1=av[1];
22188 C_word t2;
22189 C_word t3;
22190 C_word t4;
22191 C_word t5;
22192 C_word *a;
22193 C_check_for_interrupt;
22194 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
22195 C_save_and_reclaim((void *)f_21275,c,av);}
22196 a=C_alloc(12);
22197 if(C_truep(t1)){
22198 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21281,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
22199 t3=C_i_cdar(((C_word*)t0)[4]);
22200 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21295,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
22201 /* irregex-core.scm:2580: new-state-number */
22202 t5=((C_word*)((C_word*)t0)[7])[1];
22203 f_20769(t5,t4,t1);}
22204 else{
22205 t2=((C_word*)t0)[3];{
22206 C_word *av2=av;
22207 av2[0]=t2;
22208 av2[1]=C_SCHEME_FALSE;
22209 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22210 
22211 /* k21279 in k21273 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21281(C_word c,C_word * av)22212 static void C_ccall f_21281(C_word c,C_word *av){
22213 C_word tmp;
22214 C_word t0=av[0];
22215 C_word t1=av[1];
22216 C_word t2;
22217 C_word t3;
22218 C_word *a;
22219 C_check_for_interrupt;
22220 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
22221 C_save_and_reclaim((void *)f_21281,c,av);}
22222 a=C_alloc(6);
22223 if(C_truep(t1)){
22224 t2=(
22225 /* irregex-core.scm:2582: nfa-add-epsilon! */
22226   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],C_SCHEME_FALSE)
22227 );
22228 t3=((C_word*)t0)[4];{
22229 C_word *av2=av;
22230 av2[0]=t3;
22231 av2[1]=t1;
22232 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
22233 else{
22234 t2=((C_word*)t0)[4];{
22235 C_word *av2=av;
22236 av2[0]=t2;
22237 av2[1]=t1;
22238 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22239 
22240 /* k21293 in k21273 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21295(C_word c,C_word * av)22241 static void C_ccall f_21295(C_word c,C_word *av){
22242 C_word tmp;
22243 C_word t0=av[0];
22244 C_word t1=av[1];
22245 C_word t2;
22246 C_word *a;
22247 C_check_for_interrupt;
22248 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22249 C_save_and_reclaim((void *)f_21295,c,av);}
22250 /* irregex-core.scm:2580: lp */
22251 t2=((C_word*)((C_word*)t0)[2])[1];
22252 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
22253 
22254 /* k21307 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21309(C_word c,C_word * av)22255 static void C_ccall f_21309(C_word c,C_word *av){
22256 C_word tmp;
22257 C_word t0=av[0];
22258 C_word t1=av[1];
22259 C_word t2;
22260 C_word t3;
22261 C_word t4;
22262 C_word *a;
22263 C_check_for_interrupt;
22264 if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
22265 C_save_and_reclaim((void *)f_21309,c,av);}
22266 a=C_alloc(14);
22267 if(C_truep(t1)){
22268 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21315,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);
22269 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21349,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
22270 /* irregex-core.scm:2589: new-state-number */
22271 t4=((C_word*)((C_word*)t0)[7])[1];
22272 f_20769(t4,t3,t1);}
22273 else{
22274 t2=((C_word*)t0)[4];{
22275 C_word *av2=av;
22276 av2[0]=t2;
22277 av2[1]=C_SCHEME_FALSE;
22278 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22279 
22280 /* k21313 in k21307 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21315(C_word c,C_word * av)22281 static void C_ccall f_21315(C_word c,C_word *av){
22282 C_word tmp;
22283 C_word t0=av[0];
22284 C_word t1=av[1];
22285 C_word t2;
22286 C_word t3;
22287 C_word t4;
22288 C_word t5;
22289 C_word *a;
22290 C_check_for_interrupt;
22291 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
22292 C_save_and_reclaim((void *)f_21315,c,av);}
22293 a=C_alloc(13);
22294 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21318,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);
22295 t3=C_i_cdar(((C_word*)t0)[2]);
22296 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21345,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
22297 /* irregex-core.scm:2592: new-state-number */
22298 t5=((C_word*)((C_word*)t0)[7])[1];
22299 f_20769(t5,t4,t1);}
22300 
22301 /* k21316 in k21313 in k21307 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21318(C_word c,C_word * av)22302 static void C_ccall f_21318(C_word c,C_word *av){
22303 C_word tmp;
22304 C_word t0=av[0];
22305 C_word t1=av[1];
22306 C_word t2;
22307 C_word t3;
22308 C_word t4;
22309 C_word t5;
22310 C_word t6;
22311 C_word *a;
22312 C_check_for_interrupt;
22313 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
22314 C_save_and_reclaim((void *)f_21318,c,av);}
22315 a=C_alloc(12);
22316 if(C_truep(t1)){
22317 t2=C_i_caar(((C_word*)t0)[2]);
22318 t3=C_eqp(lf[127],t2);
22319 if(C_truep(t3)){
22320 t4=(
22321 /* irregex-core.scm:2597: nfa-add-epsilon! */
22322   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[3])[1],t1,((C_word*)t0)[4],C_SCHEME_FALSE)
22323 );
22324 t5=(
22325 /* irregex-core.scm:2599: nfa-add-epsilon! */
22326   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1,C_SCHEME_FALSE)
22327 );
22328 t6=((C_word*)t0)[5];{
22329 C_word *av2=av;
22330 av2[0]=t6;
22331 av2[1]=t1;
22332 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
22333 else{
22334 t4=(
22335 /* irregex-core.scm:2599: nfa-add-epsilon! */
22336   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1,C_SCHEME_FALSE)
22337 );
22338 t5=((C_word*)t0)[5];{
22339 C_word *av2=av;
22340 av2[0]=t5;
22341 av2[1]=t1;
22342 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
22343 else{
22344 t2=((C_word*)t0)[5];{
22345 C_word *av2=av;
22346 av2[0]=t2;
22347 av2[1]=t1;
22348 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22349 
22350 /* k21343 in k21313 in k21307 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21345(C_word c,C_word * av)22351 static void C_ccall f_21345(C_word c,C_word *av){
22352 C_word tmp;
22353 C_word t0=av[0];
22354 C_word t1=av[1];
22355 C_word t2;
22356 C_word *a;
22357 C_check_for_interrupt;
22358 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22359 C_save_and_reclaim((void *)f_21345,c,av);}
22360 /* irregex-core.scm:2592: lp */
22361 t2=((C_word*)((C_word*)t0)[2])[1];
22362 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
22363 
22364 /* k21347 in k21307 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21349(C_word c,C_word * av)22365 static void C_ccall f_21349(C_word c,C_word *av){
22366 C_word tmp;
22367 C_word t0=av[0];
22368 C_word t1=av[1];
22369 C_word t2;
22370 C_word *a;
22371 C_check_for_interrupt;
22372 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22373 C_save_and_reclaim((void *)f_21349,c,av);}
22374 /* irregex-core.scm:2588: lp */
22375 t2=((C_word*)((C_word*)t0)[2])[1];
22376 f_20766(t2,((C_word*)t0)[3],lf[394],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}
22377 
22378 /* k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21369(C_word c,C_word * av)22379 static void C_ccall f_21369(C_word c,C_word *av){
22380 C_word tmp;
22381 C_word t0=av[0];
22382 C_word t1=av[1];
22383 C_word t2;
22384 C_word t3;
22385 C_word t4;
22386 C_word *a;
22387 C_check_for_interrupt;
22388 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
22389 C_save_and_reclaim((void *)f_21369,c,av);}
22390 a=C_alloc(16);
22391 if(C_truep(t1)){
22392 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21375,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],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
22393 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21417,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
22394 /* irregex-core.scm:2632: new-state-number */
22395 t4=((C_word*)((C_word*)t0)[7])[1];
22396 f_20769(t4,t3,t1);}
22397 else{
22398 t2=((C_word*)t0)[5];{
22399 C_word *av2=av;
22400 av2[0]=t2;
22401 av2[1]=C_SCHEME_FALSE;
22402 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22403 
22404 /* k21373 in k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21375(C_word c,C_word * av)22405 static void C_ccall f_21375(C_word c,C_word *av){
22406 C_word tmp;
22407 C_word t0=av[0];
22408 C_word t1=av[1];
22409 C_word t2;
22410 C_word t3;
22411 C_word t4;
22412 C_word t5;
22413 C_word t6;
22414 C_word *a;
22415 C_check_for_interrupt;
22416 if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
22417 C_save_and_reclaim((void *)f_21375,c,av);}
22418 a=C_alloc(23);
22419 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21378,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);
22420 t3=(
22421 /* irregex-core.scm:2633: sre-sequence */
22422   f_18191(C_a_i(&a,3),C_i_cdar(((C_word*)t0)[9]))
22423 );
22424 t4=C_a_i_list1(&a,1,t3);
22425 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21405,a[2]=((C_word*)t0)[10],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[11],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
22426 /* irregex-core.scm:2634: new-state-number */
22427 t6=((C_word*)((C_word*)t0)[8])[1];
22428 f_20769(t6,t5,t1);}
22429 
22430 /* k21376 in k21373 in k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21378(C_word c,C_word * av)22431 static void C_ccall f_21378(C_word c,C_word *av){
22432 C_word tmp;
22433 C_word t0=av[0];
22434 C_word t1=av[1];
22435 C_word t2;
22436 C_word t3;
22437 C_word t4;
22438 C_word *a;
22439 C_check_for_interrupt;
22440 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
22441 C_save_and_reclaim((void *)f_21378,c,av);}
22442 a=C_alloc(13);
22443 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21381,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);
22444 if(C_truep(t1)){
22445 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21397,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
22446 /* irregex-core.scm:2635: new-state-number */
22447 t4=((C_word*)((C_word*)t0)[9])[1];
22448 f_20769(t4,t3,t1);}
22449 else{
22450 t3=t2;{
22451 C_word *av2=av;
22452 av2[0]=t3;
22453 av2[1]=C_SCHEME_FALSE;
22454 f_21381(2,av2);}}}
22455 
22456 /* k21379 in k21376 in k21373 in k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21381(C_word c,C_word * av)22457 static void C_ccall f_21381(C_word c,C_word *av){
22458 C_word tmp;
22459 C_word t0=av[0];
22460 C_word t1=av[1];
22461 C_word t2;
22462 C_word t3;
22463 C_word t4;
22464 C_word *a;
22465 C_check_for_interrupt;
22466 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
22467 C_save_and_reclaim((void *)f_21381,c,av);}
22468 a=C_alloc(12);
22469 if(C_truep(t1)){
22470 t2=(
22471 /* irregex-core.scm:2637: nfa-add-epsilon! */
22472   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],((C_word*)t0)[4])
22473 );
22474 t3=(
22475 /* irregex-core.scm:2638: nfa-add-epsilon! */
22476   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7])
22477 );
22478 t4=((C_word*)t0)[8];{
22479 C_word *av2=av;
22480 av2[0]=t4;
22481 av2[1]=t1;
22482 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22483 else{
22484 t2=((C_word*)t0)[8];{
22485 C_word *av2=av;
22486 av2[0]=t2;
22487 av2[1]=t1;
22488 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22489 
22490 /* k21395 in k21376 in k21373 in k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21397(C_word c,C_word * av)22491 static void C_ccall f_21397(C_word c,C_word *av){
22492 C_word tmp;
22493 C_word t0=av[0];
22494 C_word t1=av[1];
22495 C_word t2;
22496 C_word *a;
22497 C_check_for_interrupt;
22498 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
22499 C_save_and_reclaim((void *)f_21397,c,av);}
22500 /* irregex-core.scm:2635: add-state! */
22501 t2=((C_word*)((C_word*)t0)[2])[1];
22502 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
22503 
22504 /* k21403 in k21373 in k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21405(C_word c,C_word * av)22505 static void C_ccall f_21405(C_word c,C_word *av){
22506 C_word tmp;
22507 C_word t0=av[0];
22508 C_word t1=av[1];
22509 C_word t2;
22510 C_word *a;
22511 C_check_for_interrupt;
22512 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22513 C_save_and_reclaim((void *)f_21405,c,av);}
22514 /* irregex-core.scm:2633: lp */
22515 t2=((C_word*)((C_word*)t0)[2])[1];
22516 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
22517 
22518 /* k21415 in k21367 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21417(C_word c,C_word * av)22519 static void C_ccall f_21417(C_word c,C_word *av){
22520 C_word tmp;
22521 C_word t0=av[0];
22522 C_word t1=av[1];
22523 C_word t2;
22524 C_word *a;
22525 C_check_for_interrupt;
22526 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
22527 C_save_and_reclaim((void *)f_21417,c,av);}
22528 /* irregex-core.scm:2632: add-state! */
22529 t2=((C_word*)((C_word*)t0)[2])[1];
22530 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
22531 
22532 /* k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21447(C_word c,C_word * av)22533 static void C_ccall f_21447(C_word c,C_word *av){
22534 C_word tmp;
22535 C_word t0=av[0];
22536 C_word t1=av[1];
22537 C_word t2;
22538 C_word t3;
22539 C_word t4;
22540 C_word *a;
22541 C_check_for_interrupt;
22542 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
22543 C_save_and_reclaim((void *)f_21447,c,av);}
22544 a=C_alloc(16);
22545 if(C_truep(t1)){
22546 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21453,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],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
22547 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21495,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
22548 /* irregex-core.scm:2645: new-state-number */
22549 t4=((C_word*)((C_word*)t0)[7])[1];
22550 f_20769(t4,t3,t1);}
22551 else{
22552 t2=((C_word*)t0)[5];{
22553 C_word *av2=av;
22554 av2[0]=t2;
22555 av2[1]=C_SCHEME_FALSE;
22556 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22557 
22558 /* k21451 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21453(C_word c,C_word * av)22559 static void C_ccall f_21453(C_word c,C_word *av){
22560 C_word tmp;
22561 C_word t0=av[0];
22562 C_word t1=av[1];
22563 C_word t2;
22564 C_word t3;
22565 C_word t4;
22566 C_word *a;
22567 C_check_for_interrupt;
22568 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
22569 C_save_and_reclaim((void *)f_21453,c,av);}
22570 a=C_alloc(17);
22571 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21456,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);
22572 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21491,a[2]=((C_word*)t0)[9],a[3]=t2,a[4]=((C_word*)t0)[10],a[5]=t1,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
22573 /* irregex-core.scm:2646: scheme#cddar */
22574 t4=*((C_word*)lf[393]+1);{
22575 C_word *av2;
22576 if(c >= 3) {
22577   av2=av;
22578 } else {
22579   av2=C_alloc(3);
22580 }
22581 av2[0]=t4;
22582 av2[1]=t3;
22583 av2[2]=((C_word*)t0)[11];
22584 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
22585 
22586 /* k21454 in k21451 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21456(C_word c,C_word * av)22587 static void C_ccall f_21456(C_word c,C_word *av){
22588 C_word tmp;
22589 C_word t0=av[0];
22590 C_word t1=av[1];
22591 C_word t2;
22592 C_word t3;
22593 C_word t4;
22594 C_word *a;
22595 C_check_for_interrupt;
22596 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
22597 C_save_and_reclaim((void *)f_21456,c,av);}
22598 a=C_alloc(13);
22599 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21459,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);
22600 if(C_truep(t1)){
22601 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21475,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
22602 /* irregex-core.scm:2648: new-state-number */
22603 t4=((C_word*)((C_word*)t0)[9])[1];
22604 f_20769(t4,t3,t1);}
22605 else{
22606 t3=t2;{
22607 C_word *av2=av;
22608 av2[0]=t3;
22609 av2[1]=C_SCHEME_FALSE;
22610 f_21459(2,av2);}}}
22611 
22612 /* k21457 in k21454 in k21451 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21459(C_word c,C_word * av)22613 static void C_ccall f_21459(C_word c,C_word *av){
22614 C_word tmp;
22615 C_word t0=av[0];
22616 C_word t1=av[1];
22617 C_word t2;
22618 C_word t3;
22619 C_word t4;
22620 C_word *a;
22621 C_check_for_interrupt;
22622 if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
22623 C_save_and_reclaim((void *)f_21459,c,av);}
22624 a=C_alloc(12);
22625 if(C_truep(t1)){
22626 t2=(
22627 /* irregex-core.scm:2650: nfa-add-epsilon! */
22628   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],((C_word*)t0)[4])
22629 );
22630 t3=(
22631 /* irregex-core.scm:2651: nfa-add-epsilon! */
22632   f_20616(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7])
22633 );
22634 t4=((C_word*)t0)[8];{
22635 C_word *av2=av;
22636 av2[0]=t4;
22637 av2[1]=t1;
22638 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22639 else{
22640 t2=((C_word*)t0)[8];{
22641 C_word *av2=av;
22642 av2[0]=t2;
22643 av2[1]=t1;
22644 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22645 
22646 /* k21473 in k21454 in k21451 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21475(C_word c,C_word * av)22647 static void C_ccall f_21475(C_word c,C_word *av){
22648 C_word tmp;
22649 C_word t0=av[0];
22650 C_word t1=av[1];
22651 C_word t2;
22652 C_word *a;
22653 C_check_for_interrupt;
22654 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
22655 C_save_and_reclaim((void *)f_21475,c,av);}
22656 /* irregex-core.scm:2648: add-state! */
22657 t2=((C_word*)((C_word*)t0)[2])[1];
22658 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
22659 
22660 /* k21481 in k21489 in k21451 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21483(C_word c,C_word * av)22661 static void C_ccall f_21483(C_word c,C_word *av){
22662 C_word tmp;
22663 C_word t0=av[0];
22664 C_word t1=av[1];
22665 C_word t2;
22666 C_word *a;
22667 C_check_for_interrupt;
22668 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
22669 C_save_and_reclaim((void *)f_21483,c,av);}
22670 /* irregex-core.scm:2646: lp */
22671 t2=((C_word*)((C_word*)t0)[2])[1];
22672 f_20766(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);}
22673 
22674 /* k21489 in k21451 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21491(C_word c,C_word * av)22675 static void C_ccall f_21491(C_word c,C_word *av){
22676 C_word tmp;
22677 C_word t0=av[0];
22678 C_word t1=av[1];
22679 C_word t2;
22680 C_word t3;
22681 C_word t4;
22682 C_word t5;
22683 C_word *a;
22684 C_check_for_interrupt;
22685 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
22686 C_save_and_reclaim((void *)f_21491,c,av);}
22687 a=C_alloc(13);
22688 t2=(
22689 /* irregex-core.scm:2646: sre-sequence */
22690   f_18191(C_a_i(&a,3),t1)
22691 );
22692 t3=C_a_i_list1(&a,1,t2);
22693 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21483,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
22694 /* irregex-core.scm:2647: new-state-number */
22695 t5=((C_word*)((C_word*)t0)[6])[1];
22696 f_20769(t5,t4,((C_word*)t0)[5]);}
22697 
22698 /* k21493 in k21445 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21495(C_word c,C_word * av)22699 static void C_ccall f_21495(C_word c,C_word *av){
22700 C_word tmp;
22701 C_word t0=av[0];
22702 C_word t1=av[1];
22703 C_word t2;
22704 C_word *a;
22705 C_check_for_interrupt;
22706 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
22707 C_save_and_reclaim((void *)f_21495,c,av);}
22708 /* irregex-core.scm:2645: add-state! */
22709 t2=((C_word*)((C_word*)t0)[2])[1];
22710 f_20779(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
22711 
22712 /* g4019 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21514(C_word t0,C_word t1,C_word t2)22713 static void C_fcall f_21514(C_word t0,C_word t1,C_word t2){
22714 C_word tmp;
22715 C_word t3;
22716 C_word t4;
22717 C_word t5;
22718 C_word *a;
22719 C_check_for_interrupt;
22720 if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
22721 C_save_and_reclaim_args((void *)trf_21514,3,t0,t1,t2);}
22722 a=C_alloc(8);
22723 t3=C_i_cdr(t2);
22724 if(C_truep(C_i_closurep(t3))){
22725 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21532,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);{
22726 C_word av2[4];
22727 av2[0]=0;
22728 av2[1]=t4;
22729 av2[2]=C_u_i_cdr(t2);
22730 av2[3]=C_i_cdar(((C_word*)t0)[2]);
22731 C_apply(4,av2);}}
22732 else{
22733 /* irregex-core.scm:2660: chicken.base#error */
22734 t4=*((C_word*)lf[30]+1);{
22735 C_word av2[4];
22736 av2[0]=t4;
22737 av2[1]=t1;
22738 av2[2]=lf[395];
22739 av2[3]=C_i_caar(((C_word*)t0)[2]);
22740 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
22741 
22742 /* k21530 in g4019 in k21154 in k21107 in lp in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21532(C_word c,C_word * av)22743 static void C_ccall f_21532(C_word c,C_word *av){
22744 C_word tmp;
22745 C_word t0=av[0];
22746 C_word t1=av[1];
22747 C_word t2;
22748 C_word t3;
22749 C_word t4;
22750 C_word *a;
22751 C_check_for_interrupt;
22752 if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
22753 C_save_and_reclaim((void *)f_21532,c,av);}
22754 a=C_alloc(3);
22755 t2=C_u_i_cdr(((C_word*)t0)[2]);
22756 t3=C_a_i_cons(&a,2,t1,t2);
22757 /* irregex-core.scm:2658: lp */
22758 t4=((C_word*)((C_word*)t0)[3])[1];
22759 f_20766(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
22760 
22761 /* k21658 in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21660(C_word c,C_word * av)22762 static void C_ccall f_21660(C_word c,C_word *av){
22763 C_word tmp;
22764 C_word t0=av[0];
22765 C_word t1=av[1];
22766 C_word t2;
22767 C_word t3;
22768 C_word t4;
22769 C_word *a;
22770 C_check_for_interrupt;
22771 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
22772 C_save_and_reclaim((void *)f_21660,c,av);}
22773 a=C_alloc(4);
22774 if(C_truep(t1)){
22775 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
22776 t3=C_fixnum_plus(t1,C_fix(1));
22777 /* irregex-core.scm:2666: scheme#make-vector */
22778 t4=*((C_word*)lf[4]+1);{
22779 C_word *av2;
22780 if(c >= 3) {
22781   av2=av;
22782 } else {
22783   av2=C_alloc(3);
22784 }
22785 av2[0]=t4;
22786 av2[1]=t2;
22787 av2[2]=C_fixnum_times(C_fix(4),t3);
22788 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
22789 else{
22790 t2=((C_word*)t0)[2];{
22791 C_word *av2=av;
22792 av2[0]=t2;
22793 av2[1]=C_SCHEME_FALSE;
22794 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
22795 
22796 /* k21664 in k21658 in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21666(C_word c,C_word * av)22797 static void C_ccall f_21666(C_word c,C_word *av){
22798 C_word tmp;
22799 C_word t0=av[0];
22800 C_word t1=av[1];
22801 C_word t2;
22802 C_word t3;
22803 C_word t4;
22804 C_word t5;
22805 C_word t6;
22806 C_word t7;
22807 C_word t8;
22808 C_word *a;
22809 C_check_for_interrupt;
22810 if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
22811 C_save_and_reclaim((void *)f_21666,c,av);}
22812 a=C_alloc(17);
22813 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21669,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
22814 t3=C_block_size(t1);
22815 t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1));
22816 t5=C_SCHEME_UNDEFINED;
22817 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
22818 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21677,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,a[5]=((C_word)li274),tmp=(C_word)a,a+=6,tmp));
22819 t8=((C_word*)t6)[1];
22820 f_21677(t8,t2,t4);}
22821 
22822 /* k21667 in k21664 in k21658 in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21669(C_word c,C_word * av)22823 static void C_ccall f_21669(C_word c,C_word *av){
22824 C_word tmp;
22825 C_word t0=av[0];
22826 C_word t1=av[1];
22827 C_word t2;
22828 C_word *a;
22829 C_check_for_interrupt;
22830 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
22831 C_save_and_reclaim((void *)f_21669,c,av);}
22832 t2=((C_word*)t0)[2];{
22833 C_word *av2=av;
22834 av2[0]=t2;
22835 av2[1]=((C_word*)t0)[3];
22836 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
22837 
22838 /* doloop4029 in k21664 in k21658 in k20762 in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21677(C_word t0,C_word t1,C_word t2)22839 static void C_fcall f_21677(C_word t0,C_word t1,C_word t2){
22840 C_word tmp;
22841 C_word t3;
22842 C_word t4;
22843 C_word t5;
22844 C_word t6;
22845 C_word t7;
22846 C_word t8;
22847 C_word *a;
22848 loop:
22849 C_check_for_interrupt;
22850 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
22851 C_save_and_reclaim_args((void *)trf_21677,3,t0,t1,t2);}
22852 a=C_alloc(5);
22853 if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){
22854 t3=C_SCHEME_UNDEFINED;
22855 t4=t1;{
22856 C_word av2[2];
22857 av2[0]=t4;
22858 av2[1]=t3;
22859 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
22860 else{
22861 t3=C_i_vector_ref(((C_word*)((C_word*)t0)[2])[1],t2);
22862 t4=C_i_vector_set(((C_word*)t0)[3],t2,t3);
22863 t5=C_a_i_fixnum_difference(&a,2,t2,C_fix(1));
22864 t7=t1;
22865 t8=t5;
22866 t1=t7;
22867 t2=t8;
22868 goto loop;}}
22869 
22870 /* lp in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21716(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)22871 static void C_fcall f_21716(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
22872 C_word tmp;
22873 C_word t5;
22874 C_word t6;
22875 C_word t7;
22876 C_word t8;
22877 C_word t9;
22878 C_word t10;
22879 C_word t11;
22880 C_word t12;
22881 C_word t13;
22882 C_word t14;
22883 C_word t15;
22884 C_word t16;
22885 C_word *a;
22886 loop:
22887 C_check_for_interrupt;
22888 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
22889 C_save_and_reclaim_args((void *)trf_21716,5,t0,t1,t2,t3,t4);}
22890 a=C_alloc(7);
22891 t5=C_i_pairp(t2);
22892 if(C_truep(C_i_not(t5))){
22893 t6=C_fixnum_shift_left(t3,C_fix(1));
22894 t7=C_i_vector_set(((C_word*)((C_word*)t0)[2])[1],C_fix(0),t6);
22895 t8=C_i_vector_set(((C_word*)((C_word*)t0)[2])[1],C_fix(1),C_fix(-1));
22896 t9=t1;{
22897 C_word av2[2];
22898 av2[0]=t9;
22899 av2[1]=t4;
22900 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
22901 else{
22902 t6=C_i_car(t2);
22903 if(C_truep(C_i_pairp(t6))){
22904 t7=C_i_caar(t2);
22905 t8=C_eqp(t7,lf[245]);
22906 t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21751,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
22907 if(C_truep(t8)){
22908 t10=t9;
22909 f_21751(t10,t8);}
22910 else{
22911 t10=C_eqp(t7,lf[108]);
22912 if(C_truep(t10)){
22913 t11=t9;
22914 f_21751(t11,t10);}
22915 else{
22916 t11=C_eqp(t7,lf[119]);
22917 t12=t9;
22918 f_21751(t12,(C_truep(t11)?t11:C_eqp(t7,lf[120])));}}}
22919 else{
22920 /* irregex-core.scm:2468: lp */
22921 t13=t1;
22922 t14=C_u_i_cdr(t2);
22923 t15=t3;
22924 t16=t4;
22925 t1=t13;
22926 t2=t14;
22927 t3=t15;
22928 t4=t16;
22929 goto loop;}}}
22930 
22931 /* k21749 in lp in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21751(C_word t0,C_word t1)22932 static void C_fcall f_21751(C_word t0,C_word t1){
22933 C_word tmp;
22934 C_word t2;
22935 C_word t3;
22936 C_word t4;
22937 C_word *a;
22938 C_check_for_interrupt;
22939 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
22940 C_save_and_reclaim_args((void *)trf_21751,2,t0,t1);}
22941 a=C_alloc(7);
22942 if(C_truep(t1)){
22943 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21758,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);
22944 t3=C_u_i_car(((C_word*)t0)[3]);
22945 /* irregex-core.scm:2465: scheme#append */
22946 t4=*((C_word*)lf[73]+1);{
22947 C_word av2[4];
22948 av2[0]=t4;
22949 av2[1]=t2;
22950 av2[2]=C_u_i_cdr(t3);
22951 av2[3]=C_u_i_cdr(((C_word*)t0)[3]);
22952 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
22953 else{
22954 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21784,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
22955 /* irregex-core.scm:2467: scheme#append */
22956 t3=*((C_word*)lf[73]+1);{
22957 C_word av2[4];
22958 av2[0]=t3;
22959 av2[1]=t2;
22960 av2[2]=C_u_i_car(((C_word*)t0)[3]);
22961 av2[3]=C_u_i_cdr(((C_word*)t0)[3]);
22962 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
22963 
22964 /* k21756 in k21749 in lp in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21758(C_word c,C_word * av)22965 static void C_ccall f_21758(C_word c,C_word *av){
22966 C_word tmp;
22967 C_word t0=av[0];
22968 C_word t1=av[1];
22969 C_word t2;
22970 C_word t3;
22971 C_word t4;
22972 C_word t5;
22973 C_word t6;
22974 C_word *a;
22975 C_check_for_interrupt;
22976 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
22977 C_save_and_reclaim((void *)f_21758,c,av);}
22978 a=C_alloc(6);
22979 t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
22980 t3=C_u_i_car(((C_word*)t0)[3]);
22981 t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]);
22982 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
22983 /* irregex-core.scm:2465: lp */
22984 t6=((C_word*)((C_word*)t0)[5])[1];
22985 f_21716(t6,((C_word*)t0)[6],t1,t2,t5);}
22986 
22987 /* k21782 in k21749 in lp in k20759 in chicken.irregex#sre->nfa in k18916 in k7761 in k7536 in k7533 */
f_21784(C_word c,C_word * av)22988 static void C_ccall f_21784(C_word c,C_word *av){
22989 C_word tmp;
22990 C_word t0=av[0];
22991 C_word t1=av[1];
22992 C_word t2;
22993 C_word *a;
22994 C_check_for_interrupt;
22995 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
22996 C_save_and_reclaim((void *)f_21784,c,av);}
22997 /* irregex-core.scm:2467: lp */
22998 t2=((C_word*)((C_word*)t0)[2])[1];
22999 f_21716(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}
23000 
23001 /* chicken.irregex#make-mst in k18916 in k7761 in k7536 in k7533 */
f_21880(C_word t1,C_word t2)23002 static void C_fcall f_21880(C_word t1,C_word t2){
23003 C_word tmp;
23004 C_word t3;
23005 C_word t4;
23006 C_word t5;
23007 C_word t6;
23008 C_word t7;
23009 C_word *a;
23010 C_check_for_interrupt;
23011 if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
23012 C_save_and_reclaim_args((void *)trf_21880,2,t1,t2);}
23013 a=C_alloc(14);
23014 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21884,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
23015 t4=C_i_vector_length(t2);
23016 t5=C_a_i_fixnum_quotient_checked(&a,2,t4,C_fix(4));
23017 t6=C_s_a_u_i_integer_plus(&a,2,t5,C_fix(3));
23018 /* irregex-core.scm:2737: scheme#make-vector */
23019 t7=*((C_word*)lf[4]+1);{
23020 C_word av2[4];
23021 av2[0]=t7;
23022 av2[1]=t3;
23023 av2[2]=t6;
23024 av2[3]=C_SCHEME_FALSE;
23025 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
23026 
23027 /* k21882 in chicken.irregex#make-mst in k18916 in k7761 in k7536 in k7533 */
f_21884(C_word c,C_word * av)23028 static void C_ccall f_21884(C_word c,C_word *av){
23029 C_word tmp;
23030 C_word t0=av[0];
23031 C_word t1=av[1];
23032 C_word t2;
23033 C_word t3;
23034 C_word *a;
23035 C_check_for_interrupt;
23036 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
23037 C_save_and_reclaim((void *)f_21884,c,av);}
23038 a=C_alloc(4);
23039 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21897,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
23040 /* irregex-core.scm:2738: scheme#make-vector */
23041 t3=*((C_word*)lf[4]+1);{
23042 C_word *av2;
23043 if(c >= 4) {
23044   av2=av;
23045 } else {
23046   av2=C_alloc(4);
23047 }
23048 av2[0]=t3;
23049 av2[1]=t2;
23050 av2[2]=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));
23051 av2[3]=C_SCHEME_END_OF_LIST;
23052 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
23053 
23054 /* k21895 in k21882 in chicken.irregex#make-mst in k18916 in k7761 in k7536 in k7533 */
f_21897(C_word c,C_word * av)23055 static void C_ccall f_21897(C_word c,C_word *av){
23056 C_word tmp;
23057 C_word t0=av[0];
23058 C_word t1=av[1];
23059 C_word t2;
23060 C_word t3;
23061 C_word t4;
23062 C_word t5;
23063 C_word *a;
23064 C_check_for_interrupt;
23065 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
23066 C_save_and_reclaim((void *)f_21897,c,av);}
23067 t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1);
23068 t3=C_i_vector_set(((C_word*)t0)[2],C_fix(1),C_fix(0));
23069 t4=C_i_vector_set(((C_word*)t0)[2],C_fix(2),C_fix(0));
23070 t5=((C_word*)t0)[3];{
23071 C_word *av2=av;
23072 av2[0]=t5;
23073 av2[1]=((C_word*)t0)[2];
23074 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
23075 
23076 /* chicken.irregex#mst-copy in k18916 in k7761 in k7536 in k7533 */
f_21909(C_word t1,C_word t2)23077 static void C_fcall f_21909(C_word t1,C_word t2){
23078 C_word tmp;
23079 C_word t3;
23080 C_word t4;
23081 C_word *a;
23082 C_check_for_interrupt;
23083 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
23084 C_save_and_reclaim_args((void *)trf_21909,2,t1,t2);}
23085 a=C_alloc(4);
23086 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21913,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
23087 /* irregex-core.scm:2745: vector-copy */
23088 f_7540(t3,t2);}
23089 
23090 /* k21911 in chicken.irregex#mst-copy in k18916 in k7761 in k7536 in k7533 */
f_21913(C_word c,C_word * av)23091 static void C_ccall f_21913(C_word c,C_word *av){
23092 C_word tmp;
23093 C_word t0=av[0];
23094 C_word t1=av[1];
23095 C_word t2;
23096 C_word t3;
23097 C_word *a;
23098 C_check_for_interrupt;
23099 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
23100 C_save_and_reclaim((void *)f_21913,c,av);}
23101 a=C_alloc(4);
23102 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21920,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
23103 /* irregex-core.scm:2746: vector-copy */
23104 f_7540(t2,C_i_vector_ref(((C_word*)t0)[3],C_fix(0)));}
23105 
23106 /* k21918 in k21911 in chicken.irregex#mst-copy in k18916 in k7761 in k7536 in k7533 */
f_21920(C_word c,C_word * av)23107 static void C_ccall f_21920(C_word c,C_word *av){
23108 C_word tmp;
23109 C_word t0=av[0];
23110 C_word t1=av[1];
23111 C_word t2;
23112 C_word t3;
23113 C_word *a;
23114 C_check_for_interrupt;
23115 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
23116 C_save_and_reclaim((void *)f_21920,c,av);}
23117 t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1);
23118 t3=((C_word*)t0)[3];{
23119 C_word *av2=av;
23120 av2[0]=t3;
23121 av2[1]=((C_word*)t0)[2];
23122 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
23123 
23124 /* chicken.irregex#nfa-state->mst in k18916 in k7761 in k7536 in k7533 */
f_21926(C_word t1,C_word t2,C_word t3,C_word t4)23125 static void C_fcall f_21926(C_word t1,C_word t2,C_word t3,C_word t4){
23126 C_word tmp;
23127 C_word t5;
23128 C_word t6;
23129 C_word *a;
23130 C_check_for_interrupt;
23131 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
23132 C_save_and_reclaim_args((void *)trf_21926,4,t1,t2,t3,t4);}
23133 a=C_alloc(6);
23134 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21930,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
23135 /* irregex-core.scm:2750: make-mst */
23136 f_21880(t5,t2);}
23137 
23138 /* k21928 in chicken.irregex#nfa-state->mst in k18916 in k7761 in k7536 in k7533 */
f_21930(C_word c,C_word * av)23139 static void C_ccall f_21930(C_word c,C_word *av){
23140 C_word tmp;
23141 C_word t0=av[0];
23142 C_word t1=av[1];
23143 C_word t2;
23144 C_word t3;
23145 C_word *a;
23146 C_check_for_interrupt;
23147 if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
23148 C_save_and_reclaim((void *)f_21930,c,av);}
23149 a=C_alloc(4);
23150 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21933,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
23151 /* irregex-core.scm:2751: mst-add! */
23152 f_21935(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}
23153 
23154 /* k21931 in k21928 in chicken.irregex#nfa-state->mst in k18916 in k7761 in k7536 in k7533 */
f_21933(C_word c,C_word * av)23155 static void C_ccall f_21933(C_word c,C_word *av){
23156 C_word tmp;
23157 C_word t0=av[0];
23158 C_word t1=av[1];
23159 C_word t2;
23160 C_word *a;
23161 C_check_for_interrupt;
23162 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
23163 C_save_and_reclaim((void *)f_21933,c,av);}
23164 t2=((C_word*)t0)[2];{
23165 C_word *av2=av;
23166 av2[0]=t2;
23167 av2[1]=((C_word*)t0)[3];
23168 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
23169 
23170 /* chicken.irregex#mst-add! in k18916 in k7761 in k7536 in k7533 */
f_21935(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)23171 static void C_fcall f_21935(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
23172 C_word tmp;
23173 C_word t6;
23174 C_word t7;
23175 C_word t8;
23176 C_word t9;
23177 C_word t10;
23178 C_word t11;
23179 C_word t12;
23180 C_word t13;
23181 C_word t14;
23182 C_word t15;
23183 C_word *a;
23184 C_check_for_interrupt;
23185 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
23186 C_save_and_reclaim_args((void *)trf_21935,5,t1,t2,t3,t4,t5);}
23187 a=C_alloc(10);
23188 t6=C_i_vector_ref(t3,C_fix(2));
23189 t7=t6;
23190 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
23191 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21942,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t8,a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
23192 t10=C_fixnum_plus(t4,C_fix(3));
23193 t11=C_i_vector_ref(t3,t10);
23194 if(C_truep(C_i_not(t11))){
23195 t12=C_fixnum_plus(((C_word*)t8)[1],t4);
23196 t13=C_set_block_item(t8,0,t12);
23197 t14=C_i_vector_ref(t3,C_fix(1));
23198 t15=t9;
23199 f_21942(t15,C_i_vector_set(t3,C_fix(1),C_fixnum_plus(t14,C_fix(1))));}
23200 else{
23201 t12=t9;
23202 f_21942(t12,C_SCHEME_UNDEFINED);}}
23203 
23204 /* k21940 in chicken.irregex#mst-add! in k18916 in k7761 in k7536 in k7533 */
f_21942(C_word t0,C_word t1)23205 static void C_fcall f_21942(C_word t0,C_word t1){
23206 C_word tmp;
23207 C_word t2;
23208 C_word t3;
23209 C_word t4;
23210 C_word t5;
23211 C_word t6;
23212 C_word t7;
23213 C_word t8;
23214 C_word t9;
23215 C_word t10;
23216 C_word *a;
23217 C_check_for_interrupt;
23218 if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
23219 C_save_and_reclaim_args((void *)trf_21942,2,t0,t1);}
23220 a=C_alloc(18);
23221 t2=C_i_vector_set(((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(3)),((C_word*)t0)[4]);
23222 t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
23223 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21949,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word)li280),tmp=(C_word)a,a+=5,tmp);
23224 t5=C_i_check_list_2(((C_word*)t0)[4],lf[306]);
23225 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21984,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
23226 t7=C_SCHEME_UNDEFINED;
23227 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
23228 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21997,a[2]=t4,a[3]=t8,a[4]=((C_word)li281),tmp=(C_word)a,a+=5,tmp));
23229 t10=((C_word*)t8)[1];
23230 f_21997(t10,t6,((C_word*)t0)[4]);}
23231 
23232 /* g4087 in k21940 in chicken.irregex#mst-add! in k18916 in k7761 in k7536 in k7533 */
f_21949(C_word * a,C_word t0,C_word t1)23233 static C_word C_fcall f_21949(C_word *a,C_word t0,C_word t1){
23234 C_word tmp;
23235 C_word t2;
23236 C_word t3;
23237 C_word t4;
23238 C_word t5;
23239 C_word t6;
23240 C_word t7;
23241 C_word t8;
23242 C_word t9;
23243 C_stack_overflow_check;{}
23244 t2=C_i_car(t1);
23245 t3=C_u_i_cdr(t1);
23246 t4=C_i_vector_ref(((C_word*)t0)[2],t2);
23247 t5=C_i_memq(t3,t4);
23248 if(C_truep(C_i_not(t5))){
23249 t6=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t2);
23250 t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6);
23251 t8=C_a_i_cons(&a,2,t3,t4);
23252 return(C_i_vector_set(((C_word*)t0)[2],t2,t8));}
23253 else{
23254 t6=C_SCHEME_UNDEFINED;
23255 return(t6);}}
23256 
23257 /* k21982 in k21940 in chicken.irregex#mst-add! in k18916 in k7761 in k7536 in k7533 */
f_21984(C_word c,C_word * av)23258 static void C_ccall f_21984(C_word c,C_word *av){
23259 C_word tmp;
23260 C_word t0=av[0];
23261 C_word t1=av[1];
23262 C_word t2;
23263 C_word t3;
23264 C_word t4;
23265 C_word t5;
23266 C_word *a;
23267 C_check_for_interrupt;
23268 if(C_unlikely(!C_demand(C_calculate_demand(10,c,1)))){
23269 C_save_and_reclaim((void *)f_21984,c,av);}
23270 a=C_alloc(10);
23271 t2=C_i_vector_length(((C_word*)t0)[2]);
23272 t3=C_a_i_fixnum_quotient_checked(&a,2,t2,C_fix(4));
23273 t4=C_s_a_i_modulo(&a,2,((C_word*)((C_word*)t0)[3])[1],t3);
23274 t5=((C_word*)t0)[4];{
23275 C_word *av2=av;
23276 av2[0]=t5;
23277 av2[1]=C_i_vector_set(((C_word*)t0)[5],C_fix(2),t4);
23278 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
23279 
23280 /* for-each-loop4086 in k21940 in chicken.irregex#mst-add! in k18916 in k7761 in k7536 in k7533 */
f_21997(C_word t0,C_word t1,C_word t2)23281 static void C_fcall f_21997(C_word t0,C_word t1,C_word t2){
23282 C_word tmp;
23283 C_word t3;
23284 C_word t4;
23285 C_word t5;
23286 C_word t6;
23287 C_word *a;
23288 loop:
23289 C_check_for_interrupt;
23290 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
23291 C_save_and_reclaim_args((void *)trf_21997,3,t0,t1,t2);}
23292 a=C_alloc(3);
23293 if(C_truep(C_i_pairp(t2))){
23294 t3=(
23295 /* irregex-core.scm:2762: g4087 */
23296   f_21949(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0)))
23297 );
23298 t5=t1;
23299 t6=C_slot(t2,C_fix(1));
23300 t1=t5;
23301 t2=t6;
23302 goto loop;}
23303 else{
23304 t3=C_SCHEME_UNDEFINED;
23305 t4=t1;{
23306 C_word av2[2];
23307 av2[0]=t4;
23308 av2[1]=t3;
23309 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
23310 
23311 /* k22096 in k22990 in g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22098(C_word c,C_word * av)23312 static void C_ccall f_22098(C_word c,C_word *av){
23313 C_word tmp;
23314 C_word t0=av[0];
23315 C_word t1=av[1];
23316 C_word t2;
23317 C_word t3;
23318 C_word t4;
23319 C_word t5;
23320 C_word t6;
23321 C_word t7;
23322 C_word t8;
23323 C_word t9;
23324 C_word t10;
23325 C_word t11;
23326 C_word *a;
23327 C_check_for_interrupt;
23328 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
23329 C_save_and_reclaim((void *)f_22098,c,av);}
23330 a=C_alloc(17);
23331 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
23332 t3=t2;
23333 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
23334 t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_22104,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t4,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],tmp=(C_word)a,a+=15,tmp);
23335 t6=C_fixnum_plus(((C_word*)t0)[3],C_fix(3));
23336 t7=C_i_vector_ref(((C_word*)t0)[2],t6);
23337 if(C_truep(C_i_not(t7))){
23338 t8=C_fixnum_plus(((C_word*)t4)[1],((C_word*)t0)[3]);
23339 t9=C_set_block_item(t4,0,t8);
23340 t10=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
23341 t11=t5;
23342 f_22104(t11,C_i_vector_set(((C_word*)t0)[2],C_fix(1),C_fixnum_plus(t10,C_fix(1))));}
23343 else{
23344 t8=t5;
23345 f_22104(t8,C_SCHEME_UNDEFINED);}}
23346 
23347 /* k22102 in k22096 in k22990 in g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22104(C_word t0,C_word t1)23348 static void C_fcall f_22104(C_word t0,C_word t1){
23349 C_word tmp;
23350 C_word t2;
23351 C_word t3;
23352 C_word t4;
23353 C_word t5;
23354 C_word t6;
23355 C_word t7;
23356 C_word t8;
23357 C_word *a;
23358 C_check_for_interrupt;
23359 if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
23360 C_save_and_reclaim_args((void *)trf_22104,2,t0,t1);}
23361 a=C_alloc(14);
23362 t2=C_i_vector_set(((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(3)),((C_word*)t0)[4]);
23363 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22110,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],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);
23364 t4=C_i_memq(((C_word*)t0)[11],((C_word*)t0)[12]);
23365 if(C_truep(C_i_not(t4))){
23366 t5=C_fixnum_plus(((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[13]);
23367 t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,t5);
23368 t7=C_a_i_cons(&a,2,((C_word*)t0)[11],((C_word*)t0)[12]);
23369 t8=t3;
23370 f_22110(t8,C_i_vector_set(((C_word*)t0)[14],((C_word*)t0)[13],t7));}
23371 else{
23372 t5=t3;
23373 f_22110(t5,C_SCHEME_UNDEFINED);}}
23374 
23375 /* k22108 in k22102 in k22096 in k22990 in g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22110(C_word t0,C_word t1)23376 static void C_fcall f_22110(C_word t0,C_word t1){
23377 C_word tmp;
23378 C_word t2;
23379 C_word t3;
23380 C_word t4;
23381 C_word t5;
23382 C_word t6;
23383 C_word t7;
23384 C_word t8;
23385 C_word t9;
23386 C_word *a;
23387 C_check_for_interrupt;
23388 if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
23389 C_save_and_reclaim_args((void *)trf_22110,2,t0,t1);}
23390 a=C_alloc(16);
23391 t2=C_i_vector_length(((C_word*)t0)[2]);
23392 t3=C_a_i_fixnum_quotient_checked(&a,2,t2,C_fix(4));
23393 t4=C_s_a_i_modulo(&a,2,((C_word*)((C_word*)t0)[3])[1],t3);
23394 t5=C_i_vector_set(((C_word*)t0)[4],C_fix(2),t4);
23395 t6=C_i_cdr(((C_word*)t0)[5]);
23396 t7=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[7]);
23397 t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[8]);
23398 /* irregex-core.scm:3030: lp2 */
23399 t9=((C_word*)((C_word*)t0)[9])[1];
23400 f_22959(t9,((C_word*)t0)[10],t6,t8);}
23401 
23402 /* lp in k22990 in g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22163(C_word t0,C_word t1,C_word t2,C_word t3)23403 static void C_fcall f_22163(C_word t0,C_word t1,C_word t2,C_word t3){
23404 C_word tmp;
23405 C_word t4;
23406 C_word t5;
23407 C_word t6;
23408 C_word t7;
23409 C_word t8;
23410 C_word t9;
23411 C_word t10;
23412 C_word t11;
23413 C_word t12;
23414 C_word *a;
23415 loop:
23416 C_check_for_interrupt;
23417 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
23418 C_save_and_reclaim_args((void *)trf_22163,4,t0,t1,t2,t3);}
23419 a=C_alloc(6);
23420 if(C_truep(C_i_nullp(t2))){
23421 t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
23422 t5=t1;{
23423 C_word av2[2];
23424 av2[0]=t5;
23425 av2[1]=C_a_i_cons(&a,2,t4,t3);
23426 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
23427 else{
23428 t4=C_i_caar(t2);
23429 t5=C_eqp(t4,((C_word*)t0)[2]);
23430 if(C_truep(t5)){
23431 t6=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
23432 t7=C_u_i_cdr(t2);
23433 t8=C_a_i_cons(&a,2,t6,t7);
23434 /* irregex-core.scm:2793: scheme#append */
23435 t9=*((C_word*)lf[73]+1);{
23436 C_word av2[4];
23437 av2[0]=t9;
23438 av2[1]=t1;
23439 av2[2]=t3;
23440 av2[3]=t8;
23441 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
23442 else{
23443 t6=C_u_i_cdr(t2);
23444 t7=C_u_i_car(t2);
23445 t8=C_a_i_cons(&a,2,t7,t3);
23446 /* irregex-core.scm:2794: lp */
23447 t10=t1;
23448 t11=t6;
23449 t12=t8;
23450 t1=t10;
23451 t2=t11;
23452 t3=t12;
23453 goto loop;}}}
23454 
23455 /* lp in lp in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22234(C_word t0,C_word t1,C_word t2)23456 static void C_fcall f_22234(C_word t0,C_word t1,C_word t2){
23457 C_word tmp;
23458 C_word t3;
23459 C_word t4;
23460 C_word t5;
23461 C_word t6;
23462 C_word t7;
23463 C_word t8;
23464 C_word t9;
23465 C_word t10;
23466 C_word t11;
23467 C_word t12;
23468 C_word *a;
23469 loop:
23470 C_check_for_interrupt;
23471 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
23472 C_save_and_reclaim_args((void *)trf_22234,3,t0,t1,t2);}
23473 a=C_alloc(5);
23474 t3=C_eqp(t2,((C_word*)t0)[2]);
23475 if(C_truep(t3)){
23476 t4=t1;{
23477 C_word av2[2];
23478 av2[0]=t4;
23479 av2[1]=t3;
23480 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
23481 else{
23482 t4=C_i_vector_ref(((C_word*)t0)[3],t2);
23483 t5=C_i_not(t4);
23484 t6=C_i_vector_ref(((C_word*)t0)[4],t2);
23485 t7=C_i_not(t6);
23486 t8=C_eqp(t5,t7);
23487 if(C_truep(t8)){
23488 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
23489 /* irregex-core.scm:2815: lp */
23490 t11=t1;
23491 t12=t9;
23492 t1=t11;
23493 t2=t12;
23494 goto loop;}
23495 else{
23496 t9=t1;{
23497 C_word av2[2];
23498 av2[0]=t9;
23499 av2[1]=C_SCHEME_FALSE;
23500 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}}
23501 
23502 /* chicken.irregex#mst-fold in k18916 in k7761 in k7536 in k7533 */
f_22287(C_word t1,C_word t2,C_word t3,C_word t4)23503 static void C_fcall f_22287(C_word t1,C_word t2,C_word t3,C_word t4){
23504 C_word tmp;
23505 C_word t5;
23506 C_word t6;
23507 C_word t7;
23508 C_word t8;
23509 C_word t9;
23510 C_word *a;
23511 C_check_for_interrupt;
23512 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
23513 C_save_and_reclaim_args((void *)trf_22287,4,t1,t2,t3,t4);}
23514 a=C_alloc(9);
23515 t5=C_i_vector_length(t2);
23516 t6=C_SCHEME_UNDEFINED;
23517 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
23518 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22296,a[2]=t5,a[3]=t2,a[4]=t7,a[5]=t3,a[6]=((C_word)li283),tmp=(C_word)a,a+=7,tmp));
23519 t9=((C_word*)t7)[1];
23520 f_22296(t9,t1,C_fix(3),t4);}
23521 
23522 /* lp in chicken.irregex#mst-fold in k18916 in k7761 in k7536 in k7533 */
f_22296(C_word t0,C_word t1,C_word t2,C_word t3)23523 static void C_fcall f_22296(C_word t0,C_word t1,C_word t2,C_word t3){
23524 C_word tmp;
23525 C_word t4;
23526 C_word t5;
23527 C_word t6;
23528 C_word t7;
23529 C_word t8;
23530 C_word t9;
23531 C_word t10;
23532 C_word t11;
23533 C_word t12;
23534 C_word *a;
23535 loop:
23536 C_check_for_interrupt;
23537 if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){
23538 C_save_and_reclaim_args((void *)trf_22296,4,t0,t1,t2,t3);}
23539 a=C_alloc(15);
23540 t4=C_eqp(t2,((C_word*)t0)[2]);
23541 if(C_truep(t4)){
23542 t5=t1;{
23543 C_word av2[2];
23544 av2[0]=t5;
23545 av2[1]=t3;
23546 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
23547 else{
23548 t5=C_i_vector_ref(((C_word*)t0)[3],t2);
23549 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
23550 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22316,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
23551 if(C_truep(t5)){
23552 t8=C_a_i_fixnum_difference(&a,2,t2,C_fix(3));
23553 /* irregex-core.scm:2824: kons */
23554 t9=((C_word*)t0)[5];{
23555 C_word av2[5];
23556 av2[0]=t9;
23557 av2[1]=t7;
23558 av2[2]=t8;
23559 av2[3]=t5;
23560 av2[4]=t3;
23561 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
23562 else{
23563 /* irregex-core.scm:2824: lp */
23564 t10=t1;
23565 t11=t6;
23566 t12=t3;
23567 t1=t10;
23568 t2=t11;
23569 t3=t12;
23570 goto loop;}}}
23571 
23572 /* k22314 in lp in chicken.irregex#mst-fold in k18916 in k7761 in k7536 in k7533 */
f_22316(C_word c,C_word * av)23573 static void C_ccall f_22316(C_word c,C_word *av){
23574 C_word tmp;
23575 C_word t0=av[0];
23576 C_word t1=av[1];
23577 C_word t2;
23578 C_word *a;
23579 C_check_for_interrupt;
23580 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
23581 C_save_and_reclaim((void *)f_22316,c,av);}
23582 /* irregex-core.scm:2824: lp */
23583 t2=((C_word*)((C_word*)t0)[2])[1];
23584 f_22296(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
23585 
23586 /* doloop4187 in g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22345(C_word t0,C_word t1)23587 static C_word C_fcall f_22345(C_word t0,C_word t1){
23588 C_word tmp;
23589 C_word t2;
23590 C_word t3;
23591 C_word t4;
23592 C_stack_overflow_check;
23593 loop:{}
23594 t2=C_i_memq(t1,((C_word*)t0)[2]);
23595 if(C_truep(C_i_not(t2))){
23596 return(t1);}
23597 else{
23598 t4=C_fixnum_plus(t1,C_fix(1));
23599 t1=t4;
23600 goto loop;}}
23601 
23602 /* chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22369(C_word t1,C_word t2,C_word t3)23603 static void C_fcall f_22369(C_word t1,C_word t2,C_word t3){
23604 C_word tmp;
23605 C_word t4;
23606 C_word t5;
23607 C_word t6;
23608 C_word t7;
23609 C_word t8;
23610 C_word t9;
23611 C_word t10;
23612 C_word *a;
23613 C_check_for_interrupt;
23614 if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){
23615 C_save_and_reclaim_args((void *)trf_22369,3,t1,t2,t3);}
23616 a=C_alloc(15);
23617 t4=C_i_pairp(t3);
23618 t5=(C_truep(t4)?C_u_i_car(t3):C_SCHEME_FALSE);
23619 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22376,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
23620 t7=C_i_vector_length(t2);
23621 t8=C_a_i_fixnum_quotient_checked(&a,2,t7,C_fix(4));
23622 t9=C_s_a_u_i_integer_minus(&a,2,t8,C_fix(1));
23623 /* irregex-core.scm:2873: nfa-state->mst */
23624 f_21926(t6,t2,t9,C_SCHEME_END_OF_LIST);}
23625 
23626 /* k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22376(C_word c,C_word * av)23627 static void C_ccall f_22376(C_word c,C_word *av){
23628 C_word tmp;
23629 C_word t0=av[0];
23630 C_word t1=av[1];
23631 C_word t2;
23632 C_word t3;
23633 C_word *a;
23634 C_check_for_interrupt;
23635 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
23636 C_save_and_reclaim((void *)f_22376,c,av);}
23637 a=C_alloc(6);
23638 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22379,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
23639 /* irregex-core.scm:2874: nfa-epsilon-closure */
23640 f_23054(t2,((C_word*)t0)[2],t1);}
23641 
23642 /* k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22379(C_word c,C_word * av)23643 static void C_ccall f_22379(C_word c,C_word *av){
23644 C_word tmp;
23645 C_word t0=av[0];
23646 C_word t1=av[1];
23647 C_word t2;
23648 C_word t3;
23649 C_word *a;
23650 C_check_for_interrupt;
23651 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
23652 C_save_and_reclaim((void *)f_22379,c,av);}
23653 a=C_alloc(6);
23654 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22382,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);
23655 /* irregex-core.scm:2877: tag-set-commands-for-closure */
23656 f_23069(t2,((C_word*)t0)[2],((C_word*)t0)[5],t1,C_SCHEME_END_OF_LIST);}
23657 
23658 /* k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22382(C_word c,C_word * av)23659 static void C_ccall f_22382(C_word c,C_word *av){
23660 C_word tmp;
23661 C_word t0=av[0];
23662 C_word t1=av[1];
23663 C_word t2;
23664 C_word t3;
23665 C_word *a;
23666 C_check_for_interrupt;
23667 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
23668 C_save_and_reclaim((void *)f_22382,c,av);}
23669 a=C_alloc(7);
23670 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22385,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);
23671 /* irregex-core.scm:2878: make-mst */
23672 f_21880(t2,((C_word*)t0)[3]);}
23673 
23674 /* k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22385(C_word c,C_word * av)23675 static void C_ccall f_22385(C_word c,C_word *av){
23676 C_word tmp;
23677 C_word t0=av[0];
23678 C_word t1=av[1];
23679 C_word t2;
23680 C_word t3;
23681 C_word t4;
23682 C_word t5;
23683 C_word t6;
23684 C_word t7;
23685 C_word t8;
23686 C_word t9;
23687 C_word t10;
23688 C_word t11;
23689 C_word t12;
23690 C_word *a;
23691 C_check_for_interrupt;
23692 if(C_unlikely(!C_demand(C_calculate_demand(36,c,5)))){
23693 C_save_and_reclaim((void *)f_22385,c,av);}
23694 a=C_alloc(36);
23695 t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
23696 t3=C_a_i_cons(&a,2,C_SCHEME_FALSE,t2);
23697 t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3);
23698 t5=C_a_i_list(&a,1,t4);
23699 t6=C_a_i_list3(&a,3,t1,C_SCHEME_FALSE,t5);
23700 t7=C_a_i_list1(&a,1,((C_word*)t0)[3]);
23701 t8=C_a_i_list1(&a,1,t6);
23702 t9=C_SCHEME_UNDEFINED;
23703 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
23704 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22401,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t10,a[6]=((C_word)li297),tmp=(C_word)a,a+=7,tmp));
23705 t12=((C_word*)t10)[1];
23706 f_22401(t12,((C_word*)t0)[6],t7,t8,C_fix(0));}
23707 
23708 /* lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)23709 static void C_fcall f_22401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
23710 C_word tmp;
23711 C_word t5;
23712 C_word t6;
23713 C_word t7;
23714 C_word t8;
23715 C_word t9;
23716 C_word t10;
23717 C_word t11;
23718 C_word t12;
23719 C_word t13;
23720 C_word t14;
23721 C_word *a;
23722 loop:
23723 C_check_for_interrupt;
23724 if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){
23725 C_save_and_reclaim_args((void *)trf_22401,5,t0,t1,t2,t3,t4);}
23726 a=C_alloc(13);
23727 if(C_truep(C_i_nullp(t2))){
23728 t5=C_u_i_cdr(((C_word*)t0)[2]);
23729 t6=C_i_vector_ref(((C_word*)t0)[3],C_fix(1));
23730 t7=C_fixnum_plus(t6,C_fix(1));
23731 t8=C_i_setslot(t5,C_fix(0),t7);
23732 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22418,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
23733 /* irregex-core.scm:2889: ##sys#fast-reverse */
23734 t10=*((C_word*)lf[69]+1);{
23735 C_word av2[3];
23736 av2[0]=t10;
23737 av2[1]=t9;
23738 av2[2]=t3;
23739 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
23740 else{
23741 t5=(C_truep(((C_word*)t0)[4])?C_fixnum_greaterp(t4,((C_word*)t0)[4]):C_SCHEME_FALSE);
23742 if(C_truep(t5)){
23743 t6=t1;{
23744 C_word av2[2];
23745 av2[0]=t6;
23746 av2[1]=C_SCHEME_FALSE;
23747 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
23748 else{
23749 t6=C_i_car(t2);
23750 if(C_truep(C_i_assoc(t6,t3))){
23751 /* irregex-core.scm:2893: lp */
23752 t11=t1;
23753 t12=C_u_i_cdr(t2);
23754 t13=t3;
23755 t14=t4;
23756 t1=t11;
23757 t2=t12;
23758 t3=t13;
23759 t4=t14;
23760 goto loop;}
23761 else{
23762 t7=C_u_i_car(t2);
23763 t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22453,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
23764 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22756,a[2]=((C_word*)t0)[3],a[3]=((C_word)li296),tmp=(C_word)a,a+=4,tmp);
23765 /* irregex-core.scm:2954: mst-fold */
23766 f_22287(t8,t7,t9,C_SCHEME_END_OF_LIST);}}}}
23767 
23768 /* k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22418(C_word c,C_word * av)23769 static void C_ccall f_22418(C_word c,C_word *av){
23770 C_word tmp;
23771 C_word t0=av[0];
23772 C_word t1=av[1];
23773 C_word t2;
23774 C_word t3;
23775 C_word t4;
23776 C_word t5;
23777 C_word t6;
23778 C_word *a;
23779 C_check_for_interrupt;
23780 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
23781 C_save_and_reclaim((void *)f_22418,c,av);}
23782 a=C_alloc(10);
23783 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22580,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
23784 t3=C_SCHEME_UNDEFINED;
23785 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
23786 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22702,a[2]=t4,a[3]=((C_word)li288),tmp=(C_word)a,a+=4,tmp));
23787 t6=((C_word*)t4)[1];
23788 f_22702(t6,t2,C_fix(0),t1,C_SCHEME_END_OF_LIST);}
23789 
23790 /* k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22453(C_word c,C_word * av)23791 static void C_ccall f_22453(C_word c,C_word *av){
23792 C_word tmp;
23793 C_word t0=av[0];
23794 C_word t1=av[1];
23795 C_word t2;
23796 C_word t3;
23797 C_word t4;
23798 C_word t5;
23799 C_word t6;
23800 C_word *a;
23801 C_check_for_interrupt;
23802 if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
23803 C_save_and_reclaim((void *)f_22453,c,av);}
23804 a=C_alloc(11);
23805 t2=C_u_i_cdr(((C_word*)t0)[2]);
23806 t3=C_SCHEME_UNDEFINED;
23807 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
23808 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22457,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]=t4,a[7]=((C_word*)t0)[7],a[8]=((C_word)li293),tmp=(C_word)a,a+=9,tmp));
23809 t6=((C_word*)t4)[1];
23810 f_22457(t6,((C_word*)t0)[8],t1,t2,C_SCHEME_END_OF_LIST);}
23811 
23812 /* lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22457(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)23813 static void C_fcall f_22457(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
23814 C_word tmp;
23815 C_word t5;
23816 C_word t6;
23817 C_word t7;
23818 C_word t8;
23819 C_word *a;
23820 C_check_for_interrupt;
23821 if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
23822 C_save_and_reclaim_args((void *)trf_22457,5,t0,t1,t2,t3,t4);}
23823 a=C_alloc(12);
23824 if(C_truep(C_i_nullp(t2))){
23825 t5=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
23826 t6=C_a_i_list3(&a,3,((C_word*)t0)[2],t5,t4);
23827 t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]);
23828 /* irregex-core.scm:2901: lp */
23829 t8=((C_word*)((C_word*)t0)[4])[1];
23830 f_22401(t8,t1,t3,t7,C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
23831 else{
23832 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22485,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
23833 /* irregex-core.scm:2904: nfa-epsilon-closure */
23834 f_23054(t5,((C_word*)t0)[7],C_i_cdar(t2));}}
23835 
23836 /* k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22485(C_word c,C_word * av)23837 static void C_ccall f_22485(C_word c,C_word *av){
23838 C_word tmp;
23839 C_word t0=av[0];
23840 C_word t1=av[1];
23841 C_word t2;
23842 C_word t3;
23843 C_word t4;
23844 C_word t5;
23845 C_word t6;
23846 C_word t7;
23847 C_word t8;
23848 C_word t9;
23849 C_word t10;
23850 C_word t11;
23851 C_word t12;
23852 C_word t13;
23853 C_word t14;
23854 C_word t15;
23855 C_word *a;
23856 C_check_for_interrupt;
23857 if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
23858 C_save_and_reclaim((void *)f_22485,c,av);}
23859 a=C_alloc(23);
23860 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22488,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],tmp=(C_word)a,a+=9,tmp);
23861 t3=C_i_vector_ref(t1,C_fix(2));
23862 t4=C_fixnum_times(t3,C_fix(4));
23863 t5=C_fixnum_plus(t4,C_fix(2));
23864 t6=C_i_vector_ref(((C_word*)t0)[7],t5);
23865 t7=C_i_assoc(t1,t6);
23866 t8=(C_truep(t7)?C_i_cdr(t7):C_SCHEME_FALSE);
23867 if(C_truep(t8)){
23868 t9=t2;
23869 f_22488(t9,t8);}
23870 else{
23871 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23387,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
23872 t10=C_i_vector_ref(((C_word*)t0)[7],C_fix(0));
23873 t11=C_i_vector_ref(t1,C_fix(0));
23874 t12=C_SCHEME_UNDEFINED;
23875 t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
23876 t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23236,a[2]=t13,a[3]=t10,a[4]=t11,a[5]=t1,a[6]=((C_word)li292),tmp=(C_word)a,a+=7,tmp));
23877 t15=((C_word*)t13)[1];
23878 f_23236(t15,t9,((C_word*)t0)[8]);}}
23879 
23880 /* k22486 in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22488(C_word t0,C_word t1)23881 static void C_fcall f_22488(C_word t0,C_word t1){
23882 C_word tmp;
23883 C_word t2;
23884 C_word t3;
23885 C_word t4;
23886 C_word *a;
23887 C_check_for_interrupt;
23888 if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
23889 C_save_and_reclaim_args((void *)trf_22488,2,t0,t1);}
23890 a=C_alloc(10);
23891 t2=(C_truep(t1)?C_i_cdr(t1):C_SCHEME_END_OF_LIST);
23892 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22494,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
23893 /* irregex-core.scm:2910: tag-set-commands-for-closure */
23894 f_23069(t3,((C_word*)t0)[8],C_i_cdar(((C_word*)t0)[3]),((C_word*)t0)[2],t2);}
23895 
23896 /* k22492 in k22486 in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22494(C_word c,C_word * av)23897 static void C_ccall f_22494(C_word c,C_word *av){
23898 C_word tmp;
23899 C_word t0=av[0];
23900 C_word t1=av[1];
23901 C_word t2;
23902 C_word t3;
23903 C_word t4;
23904 C_word t5;
23905 C_word t6;
23906 C_word t7;
23907 C_word t8;
23908 C_word t9;
23909 C_word t10;
23910 C_word *a;
23911 C_check_for_interrupt;
23912 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
23913 C_save_and_reclaim((void *)f_22494,c,av);}
23914 a=C_alloc(15);
23915 t2=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[2]):((C_word*)t0)[3]);
23916 t3=C_u_i_cdr(((C_word*)t0)[4]);
23917 t4=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[5]:C_a_i_cons(&a,2,t2,((C_word*)t0)[5]));
23918 t5=C_i_caar(((C_word*)t0)[4]);
23919 t6=C_a_i_cons(&a,2,((C_word*)t0)[6],t1);
23920 t7=C_a_i_cons(&a,2,t5,t6);
23921 t8=C_a_i_cons(&a,2,t2,t7);
23922 t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[7]);
23923 /* irregex-core.scm:2913: lp2 */
23924 t10=((C_word*)((C_word*)t0)[8])[1];
23925 f_22457(t10,((C_word*)t0)[9],t3,t4,t9);}
23926 
23927 /* k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22580(C_word c,C_word * av)23928 static void C_ccall f_22580(C_word c,C_word *av){
23929 C_word tmp;
23930 C_word t0=av[0];
23931 C_word t1=av[1];
23932 C_word t2;
23933 C_word t3;
23934 C_word *a;
23935 C_check_for_interrupt;
23936 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
23937 C_save_and_reclaim((void *)f_22580,c,av);}
23938 a=C_alloc(5);
23939 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22583,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
23940 /* irregex-core.scm:2931: scheme#make-vector */
23941 t3=*((C_word*)lf[4]+1);{
23942 C_word *av2;
23943 if(c >= 3) {
23944   av2=av;
23945 } else {
23946   av2=C_alloc(3);
23947 }
23948 av2[0]=t3;
23949 av2[1]=t2;
23950 av2[2]=C_i_length(((C_word*)t0)[3]);
23951 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
23952 
23953 /* k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22583(C_word c,C_word * av)23954 static void C_ccall f_22583(C_word c,C_word *av){
23955 C_word tmp;
23956 C_word t0=av[0];
23957 C_word t1=av[1];
23958 C_word t2;
23959 C_word t3;
23960 C_word t4;
23961 C_word t5;
23962 C_word *a;
23963 C_check_for_interrupt;
23964 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
23965 C_save_and_reclaim((void *)f_22583,c,av);}
23966 a=C_alloc(8);
23967 t2=C_SCHEME_UNDEFINED;
23968 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
23969 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22588,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li287),tmp=(C_word)a,a+=6,tmp));
23970 t5=((C_word*)t3)[1];
23971 f_22588(t5,((C_word*)t0)[3],C_fix(0),((C_word*)t0)[4]);}
23972 
23973 /* doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22588(C_word t0,C_word t1,C_word t2,C_word t3)23974 static void C_fcall f_22588(C_word t0,C_word t1,C_word t2,C_word t3){
23975 C_word tmp;
23976 C_word t4;
23977 C_word t5;
23978 C_word *a;
23979 C_check_for_interrupt;
23980 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
23981 C_save_and_reclaim_args((void *)trf_22588,4,t0,t1,t2,t3);}
23982 a=C_alloc(8);
23983 if(C_truep(C_i_nullp(t3))){
23984 t4=t1;{
23985 C_word av2[2];
23986 av2[0]=t4;
23987 av2[1]=((C_word*)t0)[2];
23988 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
23989 else{
23990 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22598,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
23991 /* irregex-core.scm:2935: scheme#cadar */
23992 t5=*((C_word*)lf[392]+1);{
23993 C_word av2[3];
23994 av2[0]=t5;
23995 av2[1]=t4;
23996 av2[2]=t3;
23997 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
23998 
23999 /* k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22598(C_word c,C_word * av)24000 static void C_ccall f_22598(C_word c,C_word *av){
24001 C_word tmp;
24002 C_word t0=av[0];
24003 C_word t1=av[1];
24004 C_word t2;
24005 C_word t3;
24006 C_word *a;
24007 C_check_for_interrupt;
24008 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
24009 C_save_and_reclaim((void *)f_22598,c,av);}
24010 a=C_alloc(9);
24011 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22601,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);
24012 /* irregex-core.scm:2936: scheme#caddar */
24013 t3=*((C_word*)lf[401]+1);{
24014 C_word *av2;
24015 if(c >= 3) {
24016   av2=av;
24017 } else {
24018   av2=C_alloc(3);
24019 }
24020 av2[0]=t3;
24021 av2[1]=t2;
24022 av2[2]=((C_word*)t0)[7];
24023 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
24024 
24025 /* k22599 in k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22601(C_word c,C_word * av)24026 static void C_ccall f_22601(C_word c,C_word *av){
24027 C_word tmp;
24028 C_word t0=av[0];
24029 C_word t1=av[1];
24030 C_word t2;
24031 C_word t3;
24032 C_word t4;
24033 C_word t5;
24034 C_word t6;
24035 C_word t7;
24036 C_word t8;
24037 C_word t9;
24038 C_word t10;
24039 C_word t11;
24040 C_word t12;
24041 C_word *a;
24042 C_check_for_interrupt;
24043 if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
24044 C_save_and_reclaim((void *)f_22601,c,av);}
24045 a=C_alloc(26);
24046 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
24047 t3=t2;
24048 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
24049 t5=((C_word*)t4)[1];
24050 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22621,a[2]=((C_word*)t0)[2],a[3]=((C_word)li285),tmp=(C_word)a,a+=4,tmp);
24051 t7=C_i_check_list_2(t1,lf[211]);
24052 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22662,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],tmp=(C_word)a,a+=8,tmp);
24053 t9=C_SCHEME_UNDEFINED;
24054 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
24055 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22664,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li286),tmp=(C_word)a,a+=7,tmp));
24056 t12=((C_word*)t10)[1];
24057 f_22664(t12,t8,t1);}
24058 
24059 /* g4258 in k22599 in k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22621(C_word t0,C_word t1,C_word t2)24060 static void C_fcall f_22621(C_word t0,C_word t1,C_word t2){
24061 C_word tmp;
24062 C_word t3;
24063 C_word t4;
24064 C_word t5;
24065 C_word t6;
24066 C_word t7;
24067 C_word t8;
24068 C_word t9;
24069 C_word t10;
24070 C_word t11;
24071 C_word t12;
24072 C_word *a;
24073 C_check_for_interrupt;
24074 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
24075 C_save_and_reclaim_args((void *)trf_22621,3,t0,t1,t2);}
24076 a=C_alloc(5);
24077 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22629,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
24078 if(C_truep(C_i_cadr(t2))){
24079 t4=C_u_i_cdr(t2);
24080 t5=C_u_i_car(t4);
24081 t6=C_i_vector_length(t5);
24082 t7=C_eqp(t6,C_fix(1));
24083 if(C_truep(t7)){
24084 t8=C_i_vector_ref(t5,C_fix(0));
24085 t9=C_i_car(t8);
24086 t10=C_i_vector_ref(t5,C_fix(0));
24087 t11=C_i_char_equalp(t9,C_i_cdr(t10));
24088 t12=t3;
24089 f_22629(t12,(C_truep(t11)?C_i_car(C_i_vector_ref(t5,C_fix(0))):t5));}
24090 else{
24091 t8=t3;
24092 f_22629(t8,(C_truep(C_SCHEME_FALSE)?C_i_car(C_i_vector_ref(t5,C_fix(0))):t5));}}
24093 else{
24094 t4=t3;
24095 f_22629(t4,C_SCHEME_FALSE);}}
24096 
24097 /* k22627 in g4258 in k22599 in k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22629(C_word t0,C_word t1)24098 static void C_fcall f_22629(C_word t0,C_word t1){
24099 C_word tmp;
24100 C_word t2;
24101 C_word t3;
24102 C_word t4;
24103 C_word t5;
24104 C_word t6;
24105 C_word *a;
24106 C_check_for_interrupt;
24107 if(C_unlikely(!C_demand(C_calculate_demand(6,0,1)))){
24108 C_save_and_reclaim_args((void *)trf_22629,2,t0,t1);}
24109 a=C_alloc(6);
24110 t2=C_i_assoc(C_u_i_car(((C_word*)t0)[2]),((C_word*)t0)[3]);
24111 t3=C_i_cdr(t2);
24112 t4=C_i_cddr(((C_word*)t0)[2]);
24113 t5=C_a_i_cons(&a,2,t3,t4);
24114 t6=((C_word*)t0)[4];{
24115 C_word av2[2];
24116 av2[0]=t6;
24117 av2[1]=C_a_i_cons(&a,2,t1,t5);
24118 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
24119 
24120 /* k22660 in k22599 in k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22662(C_word c,C_word * av)24121 static void C_ccall f_22662(C_word c,C_word *av){
24122 C_word tmp;
24123 C_word t0=av[0];
24124 C_word t1=av[1];
24125 C_word t2;
24126 C_word t3;
24127 C_word t4;
24128 C_word t5;
24129 C_word *a;
24130 C_check_for_interrupt;
24131 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
24132 C_save_and_reclaim((void *)f_22662,c,av);}
24133 a=C_alloc(8);
24134 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
24135 t3=C_i_vector_set(((C_word*)t0)[3],((C_word*)t0)[4],t2);
24136 t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1));
24137 t5=((C_word*)((C_word*)t0)[5])[1];
24138 f_22588(t5,((C_word*)t0)[6],t4,C_u_i_cdr(((C_word*)t0)[7]));}
24139 
24140 /* map-loop4252 in k22599 in k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22664(C_word t0,C_word t1,C_word t2)24141 static void C_fcall f_22664(C_word t0,C_word t1,C_word t2){
24142 C_word tmp;
24143 C_word t3;
24144 C_word t4;
24145 C_word *a;
24146 C_check_for_interrupt;
24147 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
24148 C_save_and_reclaim_args((void *)trf_22664,3,t0,t1,t2);}
24149 a=C_alloc(6);
24150 if(C_truep(C_i_pairp(t2))){
24151 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22689,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);
24152 /* irregex-core.scm:2940: g4258 */
24153 t4=((C_word*)t0)[4];
24154 f_22621(t4,t3,C_slot(t2,C_fix(0)));}
24155 else{
24156 t3=t1;{
24157 C_word av2[2];
24158 av2[0]=t3;
24159 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
24160 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
24161 
24162 /* k22687 in map-loop4252 in k22599 in k22596 in doloop4244 in k22581 in k22578 in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22689(C_word c,C_word * av)24163 static void C_ccall f_22689(C_word c,C_word *av){
24164 C_word tmp;
24165 C_word t0=av[0];
24166 C_word t1=av[1];
24167 C_word t2;
24168 C_word t3;
24169 C_word t4;
24170 C_word t5;
24171 C_word *a;
24172 C_check_for_interrupt;
24173 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
24174 C_save_and_reclaim((void *)f_22689,c,av);}
24175 a=C_alloc(3);
24176 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
24177 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
24178 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
24179 t5=((C_word*)((C_word*)t0)[3])[1];
24180 f_22664(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
24181 
24182 /* lp in k22416 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22702(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)24183 static void C_fcall f_22702(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
24184 C_word tmp;
24185 C_word t5;
24186 C_word t6;
24187 C_word t7;
24188 C_word t8;
24189 C_word t9;
24190 C_word t10;
24191 C_word t11;
24192 C_word t12;
24193 C_word t13;
24194 C_word t14;
24195 C_word *a;
24196 loop:
24197 C_check_for_interrupt;
24198 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
24199 C_save_and_reclaim_args((void *)trf_22702,5,t0,t1,t2,t3,t4);}
24200 a=C_alloc(6);
24201 if(C_truep(C_i_nullp(t3))){
24202 t5=t1;{
24203 C_word av2[2];
24204 av2[0]=t5;
24205 av2[1]=t4;
24206 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
24207 else{
24208 t5=C_fixnum_plus(t2,C_fix(1));
24209 t6=C_i_cdr(t3);
24210 t7=C_i_caar(t3);
24211 t8=C_a_i_cons(&a,2,t7,t2);
24212 t9=C_a_i_cons(&a,2,t8,t4);
24213 /* irregex-core.scm:2929: lp */
24214 t11=t1;
24215 t12=t5;
24216 t13=t6;
24217 t14=t9;
24218 t1=t11;
24219 t2=t12;
24220 t3=t13;
24221 t4=t14;
24222 goto loop;}}
24223 
24224 /* k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22741(C_word c,C_word * av)24225 static void C_ccall f_22741(C_word c,C_word *av){
24226 C_word tmp;
24227 C_word t0=av[0];
24228 C_word t1=av[1];
24229 C_word t2;
24230 C_word t3;
24231 C_word t4;
24232 C_word t5;
24233 C_word t6;
24234 C_word t7;
24235 C_word t8;
24236 C_word t9;
24237 C_word *a;
24238 C_check_for_interrupt;
24239 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
24240 C_save_and_reclaim((void *)f_22741,c,av);}
24241 a=C_alloc(10);
24242 t2=C_i_vector_length(t1);
24243 t3=C_eqp(t2,C_fix(0));
24244 t4=C_i_not(t3);
24245 t5=(C_truep(t4)?t1:C_SCHEME_FALSE);
24246 if(C_truep(t5)){
24247 t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22818,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)li294),tmp=(C_word)a,a+=10,tmp);
24248 /* irregex-core.scm:2961: g4307 */
24249 t7=t6;
24250 f_22818(t7,((C_word*)t0)[9],t5);}
24251 else{
24252 t6=C_u_i_cdr(((C_word*)t0)[2]);
24253 t7=C_u_i_car(((C_word*)t0)[2]);
24254 t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[7]);
24255 /* irregex-core.scm:2996: lp */
24256 t9=((C_word*)((C_word*)t0)[3])[1];
24257 f_22777(t9,((C_word*)t0)[9],t6,((C_word*)t0)[8],((C_word*)t0)[4],t8);}}
24258 
24259 /* a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22756(C_word c,C_word * av)24260 static void C_ccall f_22756(C_word c,C_word *av){
24261 C_word tmp;
24262 C_word t0=av[0];
24263 C_word t1=av[1];
24264 C_word t2=av[2];
24265 C_word t3=av[3];
24266 C_word t4=av[4];
24267 C_word t5;
24268 C_word t6;
24269 C_word t7;
24270 C_word t8;
24271 C_word t9;
24272 C_word t10;
24273 C_word t11;
24274 C_word t12;
24275 C_word *a;
24276 if(c!=5) C_bad_argc_2(c,5,t0);
24277 C_check_for_interrupt;
24278 if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){
24279 C_save_and_reclaim((void *)f_22756,c,av);}
24280 a=C_alloc(8);
24281 t5=C_eqp(t2,C_fix(0));
24282 t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_vector_ref(((C_word*)t0)[2],C_fixnum_times(t2,C_fix(4))));
24283 if(C_truep(C_i_nullp(t6))){
24284 t7=t1;{
24285 C_word *av2=av;
24286 av2[0]=t7;
24287 av2[1]=t4;
24288 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
24289 else{
24290 t7=C_i_car(t6);
24291 t8=C_u_i_cdr(t6);
24292 t9=C_SCHEME_UNDEFINED;
24293 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
24294 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22777,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t10,a[5]=((C_word)li295),tmp=(C_word)a,a+=6,tmp));
24295 t12=((C_word*)t10)[1];
24296 f_22777(t12,t1,t4,t7,t8,C_SCHEME_END_OF_LIST);}}
24297 
24298 /* lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22777(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)24299 static void C_fcall f_22777(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
24300 C_word tmp;
24301 C_word t6;
24302 C_word t7;
24303 C_word t8;
24304 C_word t9;
24305 C_word *a;
24306 C_check_for_interrupt;
24307 if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
24308 C_save_and_reclaim_args((void *)trf_22777,6,t0,t1,t2,t3,t4,t5);}
24309 a=C_alloc(10);
24310 if(C_truep(C_i_nullp(t2))){
24311 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22795,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
24312 /* irregex-core.scm:2968: nfa-state->mst */
24313 f_21926(t6,((C_word*)t0)[2],t4,((C_word*)t0)[3]);}
24314 else{
24315 t6=C_i_caar(t2);
24316 if(C_truep(C_i_equalp(t3,t6))){
24317 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22804,a[2]=t1,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
24318 /* irregex-core.scm:2972: mst-add! */
24319 f_21935(t7,((C_word*)t0)[2],C_i_cdar(t2),t4,((C_word*)t0)[3]);}
24320 else{
24321 t7=C_i_caar(t2);
24322 t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22741,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=t3,a[9]=t1,tmp=(C_word)a,a+=10,tmp);
24323 /* irregex-core.scm:2952: cset-intersection */
24324 t9=lf[405];{
24325 C_word av2[4];
24326 av2[0]=t9;
24327 av2[1]=t8;
24328 av2[2]=t3;
24329 av2[3]=t7;
24330 f_27471(4,av2);}}}}
24331 
24332 /* k22793 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22795(C_word c,C_word * av)24333 static void C_ccall f_22795(C_word c,C_word *av){
24334 C_word tmp;
24335 C_word t0=av[0];
24336 C_word t1=av[1];
24337 C_word t2;
24338 C_word t3;
24339 C_word *a;
24340 C_check_for_interrupt;
24341 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
24342 C_save_and_reclaim((void *)f_22795,c,av);}
24343 a=C_alloc(6);
24344 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
24345 t3=((C_word*)t0)[3];{
24346 C_word *av2=av;
24347 av2[0]=t3;
24348 av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
24349 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
24350 
24351 /* k22802 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22804(C_word c,C_word * av)24352 static void C_ccall f_22804(C_word c,C_word *av){
24353 C_word tmp;
24354 C_word t0=av[0];
24355 C_word t1=av[1];
24356 C_word t2;
24357 C_word *a;
24358 C_check_for_interrupt;
24359 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
24360 C_save_and_reclaim((void *)f_22804,c,av);}
24361 /* irregex-core.scm:2973: scheme#append */
24362 t2=*((C_word*)lf[73]+1);{
24363 C_word *av2;
24364 if(c >= 4) {
24365   av2=av;
24366 } else {
24367   av2=C_alloc(4);
24368 }
24369 av2[0]=t2;
24370 av2[1]=((C_word*)t0)[2];
24371 av2[2]=((C_word*)t0)[3];
24372 av2[3]=((C_word*)t0)[4];
24373 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
24374 
24375 /* g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22818(C_word t0,C_word t1,C_word t2)24376 static void C_fcall f_22818(C_word t0,C_word t1,C_word t2){
24377 C_word tmp;
24378 C_word t3;
24379 C_word t4;
24380 C_word *a;
24381 C_check_for_interrupt;
24382 if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
24383 C_save_and_reclaim_args((void *)trf_22818,3,t0,t1,t2);}
24384 a=C_alloc(11);
24385 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22822,a[2]=((C_word*)t0)[2],a[3]=t2,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*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
24386 /* irregex-core.scm:2976: cset-difference */
24387 f_27275(t3,((C_word*)t0)[8],C_i_caar(((C_word*)t0)[2]));}
24388 
24389 /* k22820 in g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22822(C_word c,C_word * av)24390 static void C_ccall f_22822(C_word c,C_word *av){
24391 C_word tmp;
24392 C_word t0=av[0];
24393 C_word t1=av[1];
24394 C_word t2;
24395 C_word t3;
24396 C_word *a;
24397 C_check_for_interrupt;
24398 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
24399 C_save_and_reclaim((void *)f_22822,c,av);}
24400 a=C_alloc(11);
24401 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22825,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
24402 /* irregex-core.scm:2977: cset-difference */
24403 f_27275(t2,C_i_caar(((C_word*)t0)[2]),((C_word*)t0)[10]);}
24404 
24405 /* k22823 in k22820 in g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22825(C_word c,C_word * av)24406 static void C_ccall f_22825(C_word c,C_word *av){
24407 C_word tmp;
24408 C_word t0=av[0];
24409 C_word t1=av[1];
24410 C_word t2;
24411 C_word t3;
24412 C_word t4;
24413 C_word t5;
24414 C_word t6;
24415 C_word *a;
24416 C_check_for_interrupt;
24417 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
24418 C_save_and_reclaim((void *)f_22825,c,av);}
24419 a=C_alloc(13);
24420 t2=C_i_cdar(((C_word*)t0)[2]);
24421 t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22831,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],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t1,a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp);
24422 t4=C_i_vector_length(t1);
24423 t5=C_eqp(t4,C_fix(0));
24424 if(C_truep(C_i_not(t5))){
24425 /* irregex-core.scm:2981: mst-copy */
24426 f_21909(t3,t2);}
24427 else{
24428 t6=t3;{
24429 C_word *av2=av;
24430 av2[0]=t6;
24431 av2[1]=C_SCHEME_FALSE;
24432 f_22831(2,av2);}}}
24433 
24434 /* k22829 in k22823 in k22820 in g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22831(C_word c,C_word * av)24435 static void C_ccall f_22831(C_word c,C_word *av){
24436 C_word tmp;
24437 C_word t0=av[0];
24438 C_word t1=av[1];
24439 C_word t2;
24440 C_word t3;
24441 C_word t4;
24442 C_word *a;
24443 C_check_for_interrupt;
24444 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
24445 C_save_and_reclaim((void *)f_22831,c,av);}
24446 a=C_alloc(17);
24447 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22834,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);
24448 if(C_truep(t1)){
24449 t3=C_a_i_cons(&a,2,((C_word*)t0)[11],t1);
24450 t4=t2;
24451 f_22834(t4,C_a_i_cons(&a,2,t3,((C_word*)t0)[12]));}
24452 else{
24453 t3=t2;
24454 f_22834(t3,((C_word*)t0)[12]);}}
24455 
24456 /* k22832 in k22829 in k22823 in k22820 in g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22834(C_word t0,C_word t1)24457 static void C_fcall f_22834(C_word t0,C_word t1){
24458 C_word tmp;
24459 C_word t2;
24460 C_word t3;
24461 C_word *a;
24462 C_check_for_interrupt;
24463 if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
24464 C_save_and_reclaim_args((void *)trf_22834,2,t0,t1);}
24465 a=C_alloc(10);
24466 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22837,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);
24467 /* irregex-core.scm:2985: mst-add! */
24468 f_21935(t2,((C_word*)t0)[9],((C_word*)t0)[4],((C_word*)t0)[8],((C_word*)t0)[10]);}
24469 
24470 /* k22835 in k22832 in k22829 in k22823 in k22820 in g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22837(C_word c,C_word * av)24471 static void C_ccall f_22837(C_word c,C_word *av){
24472 C_word tmp;
24473 C_word t0=av[0];
24474 C_word t1=av[1];
24475 C_word t2;
24476 C_word t3;
24477 C_word t4;
24478 C_word t5;
24479 C_word t6;
24480 C_word t7;
24481 C_word *a;
24482 C_check_for_interrupt;
24483 if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
24484 C_save_and_reclaim((void *)f_22837,c,av);}
24485 a=C_alloc(7);
24486 t2=C_i_vector_length(((C_word*)t0)[2]);
24487 t3=C_eqp(t2,C_fix(0));
24488 if(C_truep(t3)){
24489 t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
24490 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22854,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
24491 /* irregex-core.scm:2992: scheme#append */
24492 t6=*((C_word*)lf[73]+1);{
24493 C_word *av2;
24494 if(c >= 4) {
24495   av2=av;
24496 } else {
24497   av2=C_alloc(4);
24498 }
24499 av2[0]=t6;
24500 av2[1]=t5;
24501 av2[2]=C_u_i_cdr(((C_word*)t0)[6]);
24502 av2[3]=((C_word*)t0)[7];
24503 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
24504 else{
24505 t4=C_u_i_cdr(((C_word*)t0)[6]);
24506 t5=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
24507 t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]);
24508 /* irregex-core.scm:2993: lp */
24509 t7=((C_word*)((C_word*)t0)[8])[1];
24510 f_22777(t7,((C_word*)t0)[5],t4,((C_word*)t0)[2],((C_word*)t0)[9],t6);}}
24511 
24512 /* k22852 in k22835 in k22832 in k22829 in k22823 in k22820 in g4307 in k22739 in lp in a22755 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_22854(C_word c,C_word * av)24513 static void C_ccall f_22854(C_word c,C_word *av){
24514 C_word tmp;
24515 C_word t0=av[0];
24516 C_word t1=av[1];
24517 C_word t2;
24518 C_word *a;
24519 C_check_for_interrupt;
24520 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
24521 C_save_and_reclaim((void *)f_22854,c,av);}
24522 a=C_alloc(3);
24523 t2=((C_word*)t0)[2];{
24524 C_word *av2=av;
24525 av2[0]=t2;
24526 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
24527 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
24528 
24529 /* k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22926(C_word c,C_word * av)24530 static void C_ccall f_22926(C_word c,C_word *av){
24531 C_word tmp;
24532 C_word t0=av[0];
24533 C_word t1=av[1];
24534 C_word t2;
24535 C_word t3;
24536 C_word t4;
24537 C_word t5;
24538 C_word *a;
24539 C_check_for_interrupt;
24540 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
24541 C_save_and_reclaim((void *)f_22926,c,av);}
24542 a=C_alloc(11);
24543 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22930,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);
24544 t3=C_i_vector_length(((C_word*)t0)[2]);
24545 t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4));
24546 /* irregex-core.scm:3007: scheme#make-vector */
24547 t5=*((C_word*)lf[4]+1);{
24548 C_word *av2;
24549 if(c >= 4) {
24550   av2=av;
24551 } else {
24552   av2=C_alloc(4);
24553 }
24554 av2[0]=t5;
24555 av2[1]=t2;
24556 av2[2]=t4;
24557 av2[3]=C_fix(0);
24558 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
24559 
24560 /* k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22930(C_word c,C_word * av)24561 static void C_ccall f_22930(C_word c,C_word *av){
24562 C_word tmp;
24563 C_word t0=av[0];
24564 C_word t1=av[1];
24565 C_word t2;
24566 C_word t3;
24567 C_word *a;
24568 C_check_for_interrupt;
24569 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
24570 C_save_and_reclaim((void *)f_22930,c,av);}
24571 a=C_alloc(6);
24572 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22934,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
24573 /* irregex-core.scm:3008: mst-copy */
24574 f_21909(t2,((C_word*)t0)[5]);}
24575 
24576 /* k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22934(C_word c,C_word * av)24577 static void C_ccall f_22934(C_word c,C_word *av){
24578 C_word tmp;
24579 C_word t0=av[0];
24580 C_word t1=av[1];
24581 C_word t2;
24582 C_word t3;
24583 C_word t4;
24584 C_word t5;
24585 C_word *a;
24586 C_check_for_interrupt;
24587 if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
24588 C_save_and_reclaim((void *)f_22934,c,av);}
24589 a=C_alloc(7);
24590 t2=C_SCHEME_UNDEFINED;
24591 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
24592 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22936,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li303),tmp=(C_word)a,a+=5,tmp));
24593 t5=((C_word*)t3)[1];
24594 f_22936(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
24595 
24596 /* lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22936(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)24597 static void C_fcall f_22936(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
24598 C_word tmp;
24599 C_word t5;
24600 C_word t6;
24601 C_word t7;
24602 C_word t8;
24603 C_word t9;
24604 C_word t10;
24605 C_word t11;
24606 C_word t12;
24607 C_word t13;
24608 C_word *a;
24609 C_check_for_interrupt;
24610 if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
24611 C_save_and_reclaim_args((void *)trf_22936,5,t0,t1,t2,t3,t4);}
24612 a=C_alloc(12);
24613 if(C_truep(C_i_nullp(t2))){
24614 t5=t1;{
24615 C_word av2[2];
24616 av2[0]=t5;
24617 av2[1]=t4;
24618 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
24619 else{
24620 t5=C_i_caar(t2);
24621 t6=C_u_i_car(t2);
24622 t7=C_u_i_cdr(t6);
24623 t8=(
24624 /* irregex-core.scm:3013: nfa-get-epsilons */
24625   f_20582(((C_word*)t0)[2],t5)
24626 );
24627 t9=C_u_i_cdr(t2);
24628 t10=C_SCHEME_UNDEFINED;
24629 t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
24630 t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22959,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[2],a[7]=t11,a[8]=t7,a[9]=((C_word)li302),tmp=(C_word)a,a+=10,tmp));
24631 t13=((C_word*)t11)[1];
24632 f_22959(t13,t1,t8,t9);}}
24633 
24634 /* lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22959(C_word t0,C_word t1,C_word t2,C_word t3)24635 static void C_fcall f_22959(C_word t0,C_word t1,C_word t2,C_word t3){
24636 C_word tmp;
24637 C_word t4;
24638 C_word t5;
24639 C_word t6;
24640 C_word t7;
24641 C_word t8;
24642 C_word t9;
24643 C_word t10;
24644 C_word t11;
24645 C_word t12;
24646 C_word t13;
24647 C_word t14;
24648 C_word t15;
24649 C_word t16;
24650 C_word t17;
24651 C_word t18;
24652 C_word t19;
24653 C_word t20;
24654 C_word t21;
24655 C_word t22;
24656 C_word t23;
24657 C_word *a;
24658 loop:
24659 C_check_for_interrupt;
24660 if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){
24661 C_save_and_reclaim_args((void *)trf_22959,4,t0,t1,t2,t3);}
24662 a=C_alloc(18);
24663 if(C_truep(C_i_nullp(t2))){
24664 /* irregex-core.scm:3016: lp */
24665 t4=((C_word*)((C_word*)t0)[2])[1];
24666 f_22936(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4]);}
24667 else{
24668 t4=C_i_caar(t2);
24669 t5=C_i_vector_ref(((C_word*)t0)[3],t4);
24670 if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],t5))){
24671 t6=C_i_vector_set(((C_word*)t0)[3],t4,((C_word*)t0)[5]);
24672 t7=C_i_cdar(t2);
24673 if(C_truep(t7)){
24674 t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22988,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li301),tmp=(C_word)a,a+=10,tmp);
24675 /* irregex-core.scm:3023: g4342 */
24676 t9=t8;
24677 f_22988(t9,t1,t7);}
24678 else{
24679 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23016,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
24680 t9=C_fixnum_plus(t4,C_fix(3));
24681 t10=C_i_vector_ref(((C_word*)t0)[4],t9);
24682 if(C_truep(C_i_not(t10))){
24683 t11=C_i_vector_ref(((C_word*)t0)[4],C_fix(2));
24684 t12=C_fixnum_plus(t11,t4);
24685 t13=C_i_vector_length(((C_word*)t0)[6]);
24686 t14=C_a_i_fixnum_quotient_checked(&a,2,t13,C_fix(4));
24687 t15=C_s_a_i_modulo(&a,2,t12,t14);
24688 t16=C_i_vector_set(((C_word*)t0)[4],C_fix(2),t15);
24689 t17=C_i_vector_ref(((C_word*)t0)[4],C_fix(1));
24690 t18=C_fixnum_plus(t17,C_fix(1));
24691 t19=C_i_vector_set(((C_word*)t0)[4],C_fix(1),t18);
24692 t20=t8;
24693 f_23016(t20,C_i_vector_set(((C_word*)t0)[4],C_fixnum_plus(t4,C_fix(3)),((C_word*)t0)[8]));}
24694 else{
24695 t11=t8;
24696 f_23016(t11,C_i_vector_set(((C_word*)t0)[4],C_fixnum_plus(t4,C_fix(3)),((C_word*)t0)[8]));}}}
24697 else{
24698 /* irregex-core.scm:3035: lp2 */
24699 t21=t1;
24700 t22=C_u_i_cdr(t2);
24701 t23=t3;
24702 t1=t21;
24703 t2=t22;
24704 t3=t23;
24705 goto loop;}}}
24706 
24707 /* g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22988(C_word t0,C_word t1,C_word t2)24708 static void C_fcall f_22988(C_word t0,C_word t1,C_word t2){
24709 C_word tmp;
24710 C_word t3;
24711 C_word t4;
24712 C_word t5;
24713 C_word t6;
24714 C_word t7;
24715 C_word t8;
24716 C_word t9;
24717 C_word t10;
24718 C_word *a;
24719 C_check_for_interrupt;
24720 if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
24721 C_save_and_reclaim_args((void *)trf_22988,3,t0,t1,t2);}
24722 a=C_alloc(15);
24723 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22992,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t1,a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
24724 t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(1));
24725 t5=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
24726 t6=C_i_vector_ref(t5,t2);
24727 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22345,a[2]=t6,a[3]=((C_word)li300),tmp=(C_word)a,a+=4,tmp);
24728 t8=(
24729   f_22345(t7,C_fix(0))
24730 );
24731 if(C_truep(C_fixnum_greaterp(t8,t4))){
24732 t9=C_i_vector_set(((C_word*)t0)[4],C_fix(1),t8);
24733 t10=t3;
24734 f_22992(t10,t8);}
24735 else{
24736 t9=t3;
24737 f_22992(t9,t8);}}
24738 
24739 /* k22990 in g4342 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_22992(C_word t0,C_word t1)24740 static void C_fcall f_22992(C_word t0,C_word t1){
24741 C_word tmp;
24742 C_word t2;
24743 C_word t3;
24744 C_word t4;
24745 C_word t5;
24746 C_word t6;
24747 C_word t7;
24748 C_word t8;
24749 C_word *a;
24750 C_check_for_interrupt;
24751 if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){
24752 C_save_and_reclaim_args((void *)trf_22992,2,t0,t1);}
24753 a=C_alloc(21);
24754 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
24755 t3=C_i_vector_ref(t2,((C_word*)t0)[3]);
24756 t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22098,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)[8],a[8]=((C_word*)t0)[9],a[9]=t1,a[10]=t3,a[11]=((C_word*)t0)[3],a[12]=t2,tmp=(C_word)a,a+=13,tmp);
24757 t5=C_SCHEME_UNDEFINED;
24758 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
24759 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22163,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,a[5]=((C_word)li299),tmp=(C_word)a,a+=6,tmp));
24760 t8=((C_word*)t6)[1];
24761 f_22163(t8,t4,((C_word*)t0)[10],C_SCHEME_END_OF_LIST);}
24762 
24763 /* k23014 in lp2 in lp in k22932 in k22928 in k22924 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_23016(C_word t0,C_word t1)24764 static void C_fcall f_23016(C_word t0,C_word t1){
24765 C_word tmp;
24766 C_word t2;
24767 C_word t3;
24768 C_word t4;
24769 C_word t5;
24770 C_word *a;
24771 C_check_for_interrupt;
24772 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
24773 C_save_and_reclaim_args((void *)trf_23016,2,t0,t1);}
24774 a=C_alloc(6);
24775 t2=C_u_i_cdr(((C_word*)t0)[2]);
24776 t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
24777 t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[5]);
24778 /* irregex-core.scm:3034: lp2 */
24779 t5=((C_word*)((C_word*)t0)[6])[1];
24780 f_22959(t5,((C_word*)t0)[7],t2,t4);}
24781 
24782 /* a23043 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_23044(C_word c,C_word * av)24783 static void C_ccall f_23044(C_word c,C_word *av){
24784 C_word tmp;
24785 C_word t0=av[0];
24786 C_word t1=av[1];
24787 C_word t2=av[2];
24788 C_word t3=av[3];
24789 C_word t4=av[4];
24790 C_word t5;
24791 C_word t6;
24792 C_word *a;
24793 if(c!=5) C_bad_argc_2(c,5,t0);
24794 C_check_for_interrupt;
24795 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
24796 C_save_and_reclaim((void *)f_23044,c,av);}
24797 a=C_alloc(6);
24798 t5=C_a_i_cons(&a,2,t2,t3);
24799 t6=t1;{
24800 C_word *av2=av;
24801 av2[0]=t6;
24802 av2[1]=C_a_i_cons(&a,2,t5,t4);
24803 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
24804 
24805 /* chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_23054(C_word t1,C_word t2,C_word t3)24806 static void C_fcall f_23054(C_word t1,C_word t2,C_word t3){
24807 C_word tmp;
24808 C_word t4;
24809 C_word t5;
24810 C_word t6;
24811 C_word t7;
24812 C_word t8;
24813 C_word t9;
24814 C_word t10;
24815 C_word t11;
24816 C_word t12;
24817 C_word t13;
24818 C_word *a;
24819 C_check_for_interrupt;
24820 if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){
24821 C_save_and_reclaim_args((void *)trf_23054,3,t1,t2,t3);}
24822 a=C_alloc(13);
24823 t4=C_i_vector_ref(t3,C_fix(2));
24824 t5=C_fixnum_times(t4,C_fix(4));
24825 t6=C_fixnum_plus(t5,C_fix(3));
24826 t7=C_i_vector_ref(t2,t6);
24827 t8=C_i_assoc(t3,t7);
24828 t9=(C_truep(t8)?C_i_cdr(t8):C_SCHEME_FALSE);
24829 if(C_truep(t9)){
24830 t10=t1;{
24831 C_word av2[2];
24832 av2[0]=t10;
24833 av2[1]=t9;
24834 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
24835 else{
24836 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23064,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
24837 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22926,a[2]=t2,a[3]=t10,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
24838 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23044,a[2]=((C_word)li304),tmp=(C_word)a,a+=3,tmp);
24839 /* irregex-core.scm:3003: mst-fold */
24840 f_22287(t11,t3,t12,C_SCHEME_END_OF_LIST);}}
24841 
24842 /* k23062 in chicken.irregex#nfa-epsilon-closure in k18916 in k7761 in k7536 in k7533 */
f_23064(C_word c,C_word * av)24843 static void C_ccall f_23064(C_word c,C_word *av){
24844 C_word tmp;
24845 C_word t0=av[0];
24846 C_word t1=av[1];
24847 C_word t2;
24848 C_word t3;
24849 C_word t4;
24850 C_word t5;
24851 C_word t6;
24852 C_word t7;
24853 C_word t8;
24854 C_word t9;
24855 C_word *a;
24856 C_check_for_interrupt;
24857 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
24858 C_save_and_reclaim((void *)f_23064,c,av);}
24859 a=C_alloc(6);
24860 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
24861 t3=C_fixnum_times(t2,C_fix(4));
24862 t4=C_fixnum_plus(t3,C_fix(3));
24863 t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
24864 t6=C_i_vector_ref(((C_word*)t0)[3],t4);
24865 t7=C_a_i_cons(&a,2,t5,t6);
24866 t8=C_i_vector_set(((C_word*)t0)[3],t4,t7);
24867 t9=((C_word*)t0)[4];{
24868 C_word *av2=av;
24869 av2[0]=t9;
24870 av2[1]=t1;
24871 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
24872 
24873 /* chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23069(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)24874 static void C_fcall f_23069(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
24875 C_word tmp;
24876 C_word t6;
24877 C_word t7;
24878 C_word t8;
24879 C_word t9;
24880 C_word t10;
24881 C_word t11;
24882 C_word t12;
24883 C_word *a;
24884 C_check_for_interrupt;
24885 if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
24886 C_save_and_reclaim_args((void *)trf_23069,5,t1,t2,t3,t4,t5);}
24887 a=C_alloc(10);
24888 t6=C_i_vector_ref(t2,C_fix(0));
24889 t7=C_i_vector_ref(t4,C_fix(0));
24890 t8=C_i_vector_ref(t3,C_fix(0));
24891 t9=C_SCHEME_UNDEFINED;
24892 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
24893 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23084,a[2]=t6,a[3]=t7,a[4]=t8,a[5]=t10,a[6]=t5,a[7]=((C_word)li309),tmp=(C_word)a,a+=8,tmp));
24894 t12=((C_word*)t10)[1];
24895 f_23084(t12,t1,C_fix(0),C_SCHEME_END_OF_LIST);}
24896 
24897 /* lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23084(C_word t0,C_word t1,C_word t2,C_word t3)24898 static void C_fcall f_23084(C_word t0,C_word t1,C_word t2,C_word t3){
24899 C_word tmp;
24900 C_word t4;
24901 C_word t5;
24902 C_word t6;
24903 C_word t7;
24904 C_word t8;
24905 C_word t9;
24906 C_word t10;
24907 C_word *a;
24908 C_check_for_interrupt;
24909 if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
24910 C_save_and_reclaim_args((void *)trf_23084,4,t0,t1,t2,t3);}
24911 a=C_alloc(9);
24912 t4=C_eqp(t2,((C_word*)t0)[2]);
24913 if(C_truep(t4)){
24914 t5=t1;{
24915 C_word av2[2];
24916 av2[0]=t5;
24917 av2[1]=t3;
24918 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
24919 else{
24920 t5=C_i_vector_ref(((C_word*)t0)[3],t2);
24921 t6=C_i_vector_ref(((C_word*)t0)[4],t2);
24922 t7=C_SCHEME_UNDEFINED;
24923 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
24924 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23104,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t8,a[5]=((C_word*)t0)[6],a[6]=((C_word)li308),tmp=(C_word)a,a+=7,tmp));
24925 t10=((C_word*)t8)[1];
24926 f_23104(t10,t1,t5,t6,t3);}}
24927 
24928 /* lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23104(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)24929 static void C_fcall f_23104(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
24930 C_word tmp;
24931 C_word t5;
24932 C_word t6;
24933 C_word t7;
24934 C_word t8;
24935 C_word t9;
24936 C_word t10;
24937 C_word t11;
24938 C_word *a;
24939 C_check_for_interrupt;
24940 if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){
24941 C_save_and_reclaim_args((void *)trf_23104,5,t0,t1,t2,t3,t4);}
24942 a=C_alloc(19);
24943 if(C_truep(C_i_nullp(t2))){
24944 /* irregex-core.scm:3055: lp */
24945 t5=((C_word*)((C_word*)t0)[2])[1];
24946 f_23084(t5,t1,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)),t4);}
24947 else{
24948 t5=C_i_car(t2);
24949 t6=C_i_memq(t5,t3);
24950 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23127,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
24951 if(C_truep(t6)){
24952 t8=t7;
24953 f_23127(t8,t6);}
24954 else{
24955 t8=C_i_nullp(((C_word*)t0)[5]);
24956 if(C_truep(C_i_not(t8))){
24957 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23159,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
24958 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23192,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li307),tmp=(C_word)a,a+=5,tmp);
24959 /* irregex-core.scm:3062: any */
24960 f_9294(t9,t10,((C_word*)t0)[5]);}
24961 else{
24962 t9=t7;
24963 f_23127(t9,C_SCHEME_FALSE);}}}}
24964 
24965 /* k23125 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23127(C_word t0,C_word t1)24966 static void C_fcall f_23127(C_word t0,C_word t1){
24967 C_word tmp;
24968 C_word t2;
24969 C_word t3;
24970 C_word t4;
24971 C_word t5;
24972 C_word t6;
24973 C_word *a;
24974 C_check_for_interrupt;
24975 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
24976 C_save_and_reclaim_args((void *)trf_23127,2,t0,t1);}
24977 a=C_alloc(6);
24978 if(C_truep(t1)){
24979 /* irregex-core.scm:3072: lp2 */
24980 t2=((C_word*)((C_word*)t0)[2])[1];
24981 f_23104(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6]);}
24982 else{
24983 t2=C_u_i_cdr(((C_word*)t0)[4]);
24984 t3=C_u_i_car(((C_word*)t0)[4]);
24985 t4=C_a_i_cons(&a,2,((C_word*)t0)[7],t3);
24986 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[6]);
24987 /* irregex-core.scm:3073: lp2 */
24988 t6=((C_word*)((C_word*)t0)[2])[1];
24989 f_23104(t6,((C_word*)t0)[3],t2,((C_word*)t0)[5],t5);}}
24990 
24991 /* k23157 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23159(C_word c,C_word * av)24992 static void C_ccall f_23159(C_word c,C_word *av){
24993 C_word tmp;
24994 C_word t0=av[0];
24995 C_word t1=av[1];
24996 C_word t2;
24997 C_word t3;
24998 C_word t4;
24999 C_word *a;
25000 C_check_for_interrupt;
25001 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
25002 C_save_and_reclaim((void *)f_23159,c,av);}
25003 a=C_alloc(8);
25004 if(C_truep(t1)){
25005 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23166,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
25006 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23168,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li306),tmp=(C_word)a,a+=5,tmp);
25007 /* irregex-core.scm:3068: any */
25008 f_9294(t2,t3,((C_word*)t0)[5]);}
25009 else{
25010 t2=((C_word*)t0)[2];
25011 f_23127(t2,C_SCHEME_FALSE);}}
25012 
25013 /* k23164 in k23157 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23166(C_word c,C_word * av)25014 static void C_ccall f_23166(C_word c,C_word *av){
25015 C_word tmp;
25016 C_word t0=av[0];
25017 C_word t1=av[1];
25018 C_word t2;
25019 C_word *a;
25020 C_check_for_interrupt;
25021 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
25022 C_save_and_reclaim((void *)f_23166,c,av);}
25023 t2=((C_word*)t0)[2];
25024 f_23127(t2,C_i_not(t1));}
25025 
25026 /* a23167 in k23157 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23168(C_word c,C_word * av)25027 static void C_ccall f_23168(C_word c,C_word *av){
25028 C_word tmp;
25029 C_word t0=av[0];
25030 C_word t1=av[1];
25031 C_word t2=av[2];
25032 C_word t3;
25033 C_word t4;
25034 C_word t5;
25035 C_word *a;
25036 if(c!=3) C_bad_argc_2(c,3,t0);
25037 C_check_for_interrupt;
25038 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
25039 C_save_and_reclaim((void *)f_23168,c,av);}
25040 t3=C_i_vector_ref(t2,C_fix(0));
25041 t4=C_eqp(t3,((C_word*)t0)[2]);
25042 t5=t1;{
25043 C_word *av2=av;
25044 av2[0]=t5;
25045 av2[1]=(C_truep(t4)?C_eqp(C_i_vector_ref(t2,C_fix(1)),C_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
25046 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
25047 
25048 /* a23191 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18916 in k7761 in k7536 in k7533 */
f_23192(C_word c,C_word * av)25049 static void C_ccall f_23192(C_word c,C_word *av){
25050 C_word tmp;
25051 C_word t0=av[0];
25052 C_word t1=av[1];
25053 C_word t2=av[2];
25054 C_word t3;
25055 C_word t4;
25056 C_word t5;
25057 C_word *a;
25058 if(c!=3) C_bad_argc_2(c,3,t0);
25059 C_check_for_interrupt;
25060 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
25061 C_save_and_reclaim((void *)f_23192,c,av);}
25062 t3=C_i_vector_ref(t2,C_fix(0));
25063 t4=C_eqp(t3,((C_word*)t0)[2]);
25064 t5=t1;{
25065 C_word *av2=av;
25066 av2[0]=t5;
25067 av2[1]=(C_truep(t4)?C_eqp(C_i_vector_ref(t2,C_fix(2)),C_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE);
25068 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
25069 
25070 /* lp in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_23236(C_word t0,C_word t1,C_word t2)25071 static void C_fcall f_23236(C_word t0,C_word t1,C_word t2){
25072 C_word tmp;
25073 C_word t3;
25074 C_word t4;
25075 C_word t5;
25076 C_word t6;
25077 C_word t7;
25078 C_word t8;
25079 C_word t9;
25080 C_word t10;
25081 C_word t11;
25082 C_word t12;
25083 C_word t13;
25084 C_word t14;
25085 C_word t15;
25086 C_word t16;
25087 C_word *a;
25088 C_check_for_interrupt;
25089 if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){
25090 C_save_and_reclaim_args((void *)trf_23236,3,t0,t1,t2);}
25091 a=C_alloc(19);
25092 if(C_truep(C_i_nullp(t2))){
25093 t3=t1;{
25094 C_word av2[2];
25095 av2[0]=t3;
25096 av2[1]=C_SCHEME_FALSE;
25097 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
25098 else{
25099 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23249,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
25100 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23371,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
25101 t5=C_i_caar(t2);
25102 t6=C_i_vector_ref(t5,C_fix(2));
25103 t7=C_i_vector_ref(((C_word*)t0)[5],C_fix(2));
25104 t8=C_eqp(t6,t7);
25105 if(C_truep(t8)){
25106 t9=C_i_vector_ref(t5,C_fix(1));
25107 t10=C_i_vector_ref(((C_word*)t0)[5],C_fix(1));
25108 t11=C_eqp(t9,t10);
25109 if(C_truep(t11)){
25110 t12=C_i_vector_length(t5);
25111 t13=C_SCHEME_UNDEFINED;
25112 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
25113 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22234,a[2]=t12,a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=t14,a[6]=((C_word)li291),tmp=(C_word)a,a+=7,tmp));
25114 t16=((C_word*)t14)[1];
25115 f_22234(t16,t4,C_fix(3));}
25116 else{
25117 t12=t3;
25118 f_23249(t12,C_SCHEME_TRUE);}}
25119 else{
25120 t9=t3;
25121 f_23249(t9,C_SCHEME_TRUE);}}}
25122 
25123 /* k23247 in lp in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_23249(C_word t0,C_word t1)25124 static void C_fcall f_23249(C_word t0,C_word t1){
25125 C_word tmp;
25126 C_word t2;
25127 C_word t3;
25128 C_word t4;
25129 C_word t5;
25130 C_word t6;
25131 C_word t7;
25132 C_word *a;
25133 C_check_for_interrupt;
25134 if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
25135 C_save_and_reclaim_args((void *)trf_23249,2,t0,t1);}
25136 a=C_alloc(10);
25137 if(C_truep(t1)){
25138 /* irregex-core.scm:3090: lp */
25139 t2=((C_word*)((C_word*)t0)[2])[1];
25140 f_23236(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
25141 else{
25142 t2=C_i_caar(((C_word*)t0)[4]);
25143 t3=C_i_vector_ref(t2,C_fix(0));
25144 t4=C_SCHEME_UNDEFINED;
25145 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
25146 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23263,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t5,a[6]=((C_word*)t0)[2],a[7]=((C_word)li290),tmp=(C_word)a,a+=8,tmp));
25147 t7=((C_word*)t5)[1];
25148 f_23263(t7,((C_word*)t0)[3],t3,C_fix(0),C_SCHEME_END_OF_LIST);}}
25149 
25150 /* lp2 in k23247 in lp in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_23263(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)25151 static void C_fcall f_23263(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
25152 C_word tmp;
25153 C_word t5;
25154 C_word t6;
25155 C_word t7;
25156 C_word t8;
25157 C_word t9;
25158 C_word t10;
25159 C_word t11;
25160 C_word *a;
25161 C_check_for_interrupt;
25162 if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){
25163 C_save_and_reclaim_args((void *)trf_23263,5,t0,t1,t2,t3,t4);}
25164 a=C_alloc(11);
25165 t5=C_eqp(t3,((C_word*)t0)[2]);
25166 if(C_truep(t5)){
25167 t6=C_i_caar(((C_word*)t0)[3]);
25168 t7=t1;{
25169 C_word av2[2];
25170 av2[0]=t7;
25171 av2[1]=C_a_i_cons(&a,2,t6,t4);
25172 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
25173 else{
25174 t6=C_i_vector_ref(((C_word*)t0)[4],t3);
25175 t7=C_i_vector_ref(t2,t3);
25176 t8=C_SCHEME_UNDEFINED;
25177 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
25178 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23290,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],a[7]=t9,a[8]=((C_word)li289),tmp=(C_word)a,a+=9,tmp));
25179 t11=((C_word*)t9)[1];
25180 f_23290(t11,t1,t6,t7,t4);}}
25181 
25182 /* lp3 in lp2 in k23247 in lp in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_23290(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)25183 static void C_fcall f_23290(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
25184 C_word tmp;
25185 C_word t5;
25186 C_word t6;
25187 C_word t7;
25188 C_word t8;
25189 C_word t9;
25190 C_word t10;
25191 C_word t11;
25192 C_word t12;
25193 C_word t13;
25194 C_word t14;
25195 C_word t15;
25196 C_word t16;
25197 C_word t17;
25198 C_word t18;
25199 C_word *a;
25200 loop:
25201 C_check_for_interrupt;
25202 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
25203 C_save_and_reclaim_args((void *)trf_23290,5,t0,t1,t2,t3,t4);}
25204 a=C_alloc(7);
25205 if(C_truep(C_i_nullp(t2))){
25206 if(C_truep(C_i_nullp(t3))){
25207 /* irregex-core.scm:3100: lp2 */
25208 t5=((C_word*)((C_word*)t0)[2])[1];
25209 f_23263(t5,t1,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),t4);}
25210 else{
25211 /* irregex-core.scm:3101: lp */
25212 t5=((C_word*)((C_word*)t0)[5])[1];
25213 f_23236(t5,t1,C_i_cdr(((C_word*)t0)[6]));}}
25214 else{
25215 if(C_truep(C_i_nullp(t3))){
25216 /* irregex-core.scm:3102: lp */
25217 t5=((C_word*)((C_word*)t0)[5])[1];
25218 f_23236(t5,t1,C_i_cdr(((C_word*)t0)[6]));}
25219 else{
25220 t5=C_i_cdr(t2);
25221 t6=C_i_cdr(t3);
25222 t7=C_u_i_car(t2);
25223 t8=C_u_i_car(t3);
25224 t9=C_eqp(t7,t8);
25225 if(C_truep(t9)){
25226 /* irregex-core.scm:3103: lp3 */
25227 t15=t1;
25228 t16=t5;
25229 t17=t6;
25230 t18=t4;
25231 t1=t15;
25232 t2=t16;
25233 t3=t17;
25234 t4=t18;
25235 goto loop;}
25236 else{
25237 t10=C_u_i_car(t2);
25238 t11=C_u_i_car(t3);
25239 t12=C_a_i_vector3(&a,3,((C_word*)t0)[4],t10,t11);
25240 t13=C_a_i_cons(&a,2,t12,t4);
25241 /* irregex-core.scm:3103: lp3 */
25242 t15=t1;
25243 t16=t5;
25244 t17=t6;
25245 t18=t13;
25246 t1=t15;
25247 t2=t16;
25248 t3=t17;
25249 t4=t18;
25250 goto loop;}}}}
25251 
25252 /* k23369 in lp in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_23371(C_word c,C_word * av)25253 static void C_ccall f_23371(C_word c,C_word *av){
25254 C_word tmp;
25255 C_word t0=av[0];
25256 C_word t1=av[1];
25257 C_word t2;
25258 C_word *a;
25259 C_check_for_interrupt;
25260 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
25261 C_save_and_reclaim((void *)f_23371,c,av);}
25262 t2=((C_word*)t0)[2];
25263 f_23249(t2,C_i_not(t1));}
25264 
25265 /* k23385 in k22483 in lp2 in k22451 in lp in k22383 in k22380 in k22377 in k22374 in chicken.irregex#nfa->dfa in k18916 in k7761 in k7536 in k7533 */
f_23387(C_word c,C_word * av)25266 static void C_ccall f_23387(C_word c,C_word *av){
25267 C_word tmp;
25268 C_word t0=av[0];
25269 C_word t1=av[1];
25270 C_word t2;
25271 C_word t3;
25272 C_word t4;
25273 C_word t5;
25274 C_word t6;
25275 C_word t7;
25276 C_word t8;
25277 C_word t9;
25278 C_word *a;
25279 C_check_for_interrupt;
25280 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
25281 C_save_and_reclaim((void *)f_23387,c,av);}
25282 a=C_alloc(6);
25283 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
25284 t3=C_fixnum_times(t2,C_fix(4));
25285 t4=C_fixnum_plus(t3,C_fix(2));
25286 t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
25287 t6=C_i_vector_ref(((C_word*)t0)[3],t4);
25288 t7=C_a_i_cons(&a,2,t5,t6);
25289 t8=C_i_vector_set(((C_word*)t0)[3],t4,t7);
25290 t9=((C_word*)t0)[4];
25291 f_22488(t9,t1);}
25292 
25293 /* k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23397(C_word c,C_word * av)25294 static void C_ccall f_23397(C_word c,C_word *av){
25295 C_word tmp;
25296 C_word t0=av[0];
25297 C_word t1=av[1];
25298 C_word t2;
25299 C_word t3;
25300 C_word t4;
25301 C_word t5;
25302 C_word t6;
25303 C_word t7;
25304 C_word t8;
25305 C_word t9;
25306 C_word *a;
25307 C_check_for_interrupt;
25308 if(C_unlikely(!C_demand(C_calculate_demand(10,c,10)))){
25309 C_save_and_reclaim((void *)f_23397,c,av);}
25310 a=C_alloc(10);
25311 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
25312 t3=C_i_pairp(((C_word*)t0)[3]);
25313 t4=(C_truep(t3)?C_u_i_car(((C_word*)t0)[3]):C_fix(0));
25314 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23406,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp);
25315 t6=C_SCHEME_UNDEFINED;
25316 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
25317 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23446,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word)li185),tmp=(C_word)a,a+=5,tmp));
25318 t9=((C_word*)t7)[1];
25319 f_23446(t9,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(1),t4,t5);}
25320 
25321 /* a23405 in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23406(C_word c,C_word * av)25322 static void C_ccall f_23406(C_word c,C_word *av){
25323 C_word tmp;
25324 C_word t0=av[0];
25325 C_word t1=av[1];
25326 C_word t2=av[2];
25327 C_word t3=av[3];
25328 C_word t4=av[4];
25329 C_word t5=av[5];
25330 C_word t6=av[6];
25331 C_word t7=av[7];
25332 C_word t8=av[8];
25333 C_word t9=av[9];
25334 C_word t10;
25335 C_word t11;
25336 C_word t12;
25337 C_word t13;
25338 C_word t14;
25339 C_word t15;
25340 C_word t16;
25341 C_word t17;
25342 C_word t18;
25343 C_word t19;
25344 C_word t20;
25345 C_word *a;
25346 if(c!=10) C_bad_argc_2(c,10,t0);
25347 C_check_for_interrupt;
25348 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
25349 C_save_and_reclaim((void *)f_23406,c,av);}
25350 t10=C_slot(t8,C_fix(1));
25351 t11=C_i_car(t3);
25352 t12=C_i_vector_set(t10,C_fix(0),t11);
25353 t13=C_slot(t8,C_fix(1));
25354 t14=C_i_vector_set(t13,C_fix(1),C_u_i_cdr(t3));
25355 t15=C_slot(t8,C_fix(1));
25356 t16=C_i_vector_set(t15,C_fix(2),t4);
25357 t17=C_slot(t8,C_fix(1));
25358 t18=C_i_vector_set(t17,C_fix(3),t6);
25359 t19=C_i_setslot(t8,C_fix(4),t9);
25360 t20=t1;{
25361 C_word *av2=av;
25362 av2[0]=t20;
25363 av2[1]=t8;
25364 ((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
25365 
25366 /* lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23446(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)25367 static void C_fcall f_23446(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
25368 C_word tmp;
25369 C_word t6;
25370 C_word t7;
25371 C_word t8;
25372 C_word t9;
25373 C_word t10;
25374 C_word t11;
25375 C_word t12;
25376 C_word t13;
25377 C_word t14;
25378 C_word t15;
25379 C_word t16;
25380 C_word t17;
25381 C_word t18;
25382 C_word *a;
25383 C_check_for_interrupt;
25384 if(C_unlikely(!C_demand(C_calculate_demand(18,0,10)))){
25385 C_save_and_reclaim_args((void *)trf_23446,6,t0,t1,t2,t3,t4,t5);}
25386 a=C_alloc(18);
25387 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23449,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word)li119),tmp=(C_word)a,a+=7,tmp);
25388 if(C_truep(C_i_pairp(t2))){
25389 if(C_truep(C_i_stringp(C_u_i_car(t2)))){
25390 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23472,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
25391 t8=C_u_i_car(t2);
25392 t9=C_fixnum_and(t4,C_fix(2));
25393 t10=C_eqp(C_fix(2),t9);
25394 /* irregex-core.scm:3143: sre->cset */
25395 f_26492(t7,t8,C_a_i_list(&a,1,t10));}
25396 else{
25397 t7=C_u_i_car(t2);
25398 t8=C_eqp(t7,lf[179]);
25399 t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23488,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t2,a[6]=t7,a[7]=t6,a[8]=((C_word*)t0)[2],a[9]=t3,a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
25400 if(C_truep(t8)){
25401 t10=t9;
25402 f_23488(t10,t8);}
25403 else{
25404 t10=C_eqp(t7,lf[247]);
25405 if(C_truep(t10)){
25406 t11=t9;
25407 f_23488(t11,t10);}
25408 else{
25409 t11=C_eqp(t7,lf[234]);
25410 t12=t9;
25411 f_23488(t12,(C_truep(t11)?t11:C_eqp(t7,lf[52])));}}}}
25412 else{
25413 if(C_truep(C_i_symbolp(t2))){
25414 t7=C_eqp(t2,lf[124]);
25415 if(C_truep(t7)){
25416 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25281,a[2]=t5,a[3]=((C_word)li172),tmp=(C_word)a,a+=4,tmp);
25417 t9=t1;{
25418 C_word av2[2];
25419 av2[0]=t9;
25420 av2[1]=t8;
25421 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
25422 else{
25423 t8=C_eqp(t2,lf[125]);
25424 if(C_truep(t8)){
25425 t9=t1;{
25426 C_word av2[2];
25427 av2[0]=t9;
25428 av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25339,a[2]=t5,a[3]=((C_word)li173),tmp=(C_word)a,a+=4,tmp);
25429 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
25430 else{
25431 t9=C_eqp(t2,lf[186]);
25432 if(C_truep(t9)){
25433 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25431,a[2]=t5,a[3]=((C_word)li174),tmp=(C_word)a,a+=4,tmp);
25434 t11=t1;{
25435 C_word av2[2];
25436 av2[0]=t11;
25437 av2[1]=t10;
25438 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
25439 else{
25440 t10=C_eqp(t2,lf[195]);
25441 if(C_truep(t10)){
25442 t11=t1;{
25443 C_word av2[2];
25444 av2[0]=t11;
25445 av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25461,a[2]=t5,a[3]=((C_word)li175),tmp=(C_word)a,a+=4,tmp);
25446 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
25447 else{
25448 t11=C_eqp(t2,lf[183]);
25449 if(C_truep(t11)){
25450 t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25512,a[2]=t5,a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp);
25451 t13=t1;{
25452 C_word av2[2];
25453 av2[0]=t13;
25454 av2[1]=t12;
25455 ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
25456 else{
25457 t12=C_eqp(t2,lf[187]);
25458 if(C_truep(t12)){
25459 t13=t1;{
25460 C_word av2[2];
25461 av2[0]=t13;
25462 av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25619,a[2]=t5,a[3]=((C_word)li177),tmp=(C_word)a,a+=4,tmp);
25463 ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
25464 else{
25465 t13=C_eqp(t2,lf[196]);
25466 if(C_truep(t13)){
25467 t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25652,a[2]=t5,a[3]=((C_word)li178),tmp=(C_word)a,a+=4,tmp);
25468 t15=t1;{
25469 C_word av2[2];
25470 av2[0]=t15;
25471 av2[1]=t14;
25472 ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
25473 else{
25474 t14=C_eqp(t2,lf[184]);
25475 if(C_truep(t14)){
25476 t15=t1;{
25477 C_word av2[2];
25478 av2[0]=t15;
25479 av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25717,a[2]=t5,a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp);
25480 ((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
25481 else{
25482 t15=C_eqp(t2,lf[185]);
25483 if(C_truep(t15)){
25484 t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25806,a[2]=t5,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp);
25485 t17=t1;{
25486 C_word av2[2];
25487 av2[0]=t17;
25488 av2[1]=t16;
25489 ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
25490 else{
25491 t16=C_eqp(t2,lf[110]);
25492 if(C_truep(t16)){
25493 t17=t1;{
25494 C_word av2[2];
25495 av2[0]=t17;
25496 av2[1]=t5;
25497 ((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
25498 else{
25499 t17=C_i_assq(t2,lf[248]);
25500 if(C_truep(t17)){
25501 /* irregex-core.scm:3584: rec */
25502 t18=t6;
25503 f_23449(t18,t1,C_i_cdr(t17));}
25504 else{
25505 /* irregex-core.scm:3585: chicken.base#error */
25506 t18=*((C_word*)lf[30]+1);{
25507 C_word av2[4];
25508 av2[0]=t18;
25509 av2[1]=t1;
25510 av2[2]=lf[249];
25511 av2[3]=t2;
25512 ((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}}}}}}}}}}}}
25513 else{
25514 if(C_truep(C_charp(t2))){
25515 t7=C_fixnum_and(t4,C_fix(2));
25516 t8=C_eqp(C_fix(2),t7);
25517 t9=t1;{
25518 C_word av2[2];
25519 av2[0]=t9;
25520 av2[1]=(C_truep(t8)?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25928,a[2]=t5,a[3]=t2,a[4]=((C_word)li182),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26027,a[2]=t2,a[3]=t5,a[4]=((C_word)li184),tmp=(C_word)a,a+=5,tmp));
25521 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
25522 else{
25523 if(C_truep(C_i_stringp(t2))){
25524 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26142,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
25525 /* ##sys#string->list */
25526 t8=*((C_word*)lf[105]+1);{
25527 C_word av2[3];
25528 av2[0]=t8;
25529 av2[1]=t7;
25530 av2[2]=t2;
25531 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
25532 else{
25533 /* irregex-core.scm:3638: chicken.base#error */
25534 t7=*((C_word*)lf[30]+1);{
25535 C_word av2[4];
25536 av2[0]=t7;
25537 av2[1]=t1;
25538 av2[2]=lf[251];
25539 av2[3]=t2;
25540 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}}}
25541 
25542 /* rec in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23449(C_word t0,C_word t1,C_word t2)25543 static void C_fcall f_23449(C_word t0,C_word t1,C_word t2){
25544 C_word tmp;
25545 C_word t3;
25546 C_word *a;
25547 C_check_for_interrupt;
25548 if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
25549 C_save_and_reclaim_args((void *)trf_23449,3,t0,t1,t2);}
25550 /* irregex-core.scm:3138: lp */
25551 t3=((C_word*)((C_word*)t0)[2])[1];
25552 f_23446(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
25553 
25554 /* k23470 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23472(C_word c,C_word * av)25555 static void C_ccall f_23472(C_word c,C_word *av){
25556 C_word tmp;
25557 C_word t0=av[0];
25558 C_word t1=av[1];
25559 C_word t2;
25560 C_word *a;
25561 C_check_for_interrupt;
25562 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
25563 C_save_and_reclaim((void *)f_23472,c,av);}
25564 /* irregex-core.scm:3142: sre-cset->procedure */
25565 f_26168(((C_word*)t0)[2],t1,((C_word*)t0)[3]);}
25566 
25567 /* k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23488(C_word t0,C_word t1)25568 static void C_fcall f_23488(C_word t0,C_word t1){
25569 C_word tmp;
25570 C_word t2;
25571 C_word t3;
25572 C_word t4;
25573 C_word t5;
25574 C_word t6;
25575 C_word t7;
25576 C_word t8;
25577 C_word t9;
25578 C_word t10;
25579 C_word t11;
25580 C_word t12;
25581 C_word t13;
25582 C_word t14;
25583 C_word t15;
25584 C_word t16;
25585 C_word t17;
25586 C_word t18;
25587 C_word t19;
25588 C_word t20;
25589 C_word t21;
25590 C_word t22;
25591 C_word t23;
25592 C_word t24;
25593 C_word t25;
25594 C_word t26;
25595 C_word t27;
25596 C_word t28;
25597 C_word t29;
25598 C_word t30;
25599 C_word t31;
25600 C_word t32;
25601 C_word t33;
25602 C_word t34;
25603 C_word t35;
25604 C_word t36;
25605 C_word *a;
25606 C_check_for_interrupt;
25607 if(C_unlikely(!C_demand(C_calculate_demand(39,0,10)))){
25608 C_save_and_reclaim_args((void *)trf_23488,2,t0,t1);}
25609 a=C_alloc(39);
25610 if(C_truep(t1)){
25611 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
25612 t3=C_fixnum_and(((C_word*)t0)[4],C_fix(2));
25613 t4=C_eqp(C_fix(2),t3);
25614 /* irregex-core.scm:3148: sre->cset */
25615 f_26492(t2,((C_word*)t0)[5],C_a_i_list(&a,1,t4));}
25616 else{
25617 t2=C_eqp(((C_word*)t0)[6],lf[103]);
25618 if(C_truep(t2)){
25619 t3=C_i_length(C_u_i_cdr(((C_word*)t0)[5]));
25620 switch(t3){
25621 case C_fix(0):
25622 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23515,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp);
25623 t5=((C_word*)t0)[2];{
25624 C_word av2[2];
25625 av2[0]=t5;
25626 av2[1]=t4;
25627 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}
25628 case C_fix(1):
25629 /* irregex-core.scm:3153: rec */
25630 t4=((C_word*)t0)[7];
25631 f_23449(t4,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[5]));
25632 default:
25633 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
25634 /* irregex-core.scm:3155: rec */
25635 t5=((C_word*)t0)[7];
25636 f_23449(t5,t4,C_i_cadr(((C_word*)t0)[5]));}}
25637 else{
25638 t3=C_eqp(((C_word*)t0)[6],lf[225]);
25639 if(C_truep(t3)){
25640 t4=(
25641 /* irregex-core.scm:3165: sre-sequence */
25642   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25643 );
25644 t5=C_fixnum_not(C_fix(2));
25645 /* irregex-core.scm:3165: lp */
25646 t6=((C_word*)((C_word*)t0)[8])[1];
25647 f_23446(t6,((C_word*)t0)[2],t4,((C_word*)t0)[9],C_fixnum_and(((C_word*)t0)[4],t5),((C_word*)t0)[3]);}
25648 else{
25649 t4=C_eqp(((C_word*)t0)[6],lf[226]);
25650 if(C_truep(t4)){
25651 t5=(
25652 /* irregex-core.scm:3170: sre-sequence */
25653   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25654 );
25655 /* irregex-core.scm:3170: lp */
25656 t6=((C_word*)((C_word*)t0)[8])[1];
25657 f_23446(t6,((C_word*)t0)[2],t5,((C_word*)t0)[9],C_fixnum_or(((C_word*)t0)[4],C_fix(2)),((C_word*)t0)[3]);}
25658 else{
25659 t5=C_eqp(((C_word*)t0)[6],lf[156]);
25660 if(C_truep(t5)){
25661 t6=(
25662 /* irregex-core.scm:3175: sre-sequence */
25663   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25664 );
25665 /* irregex-core.scm:3175: lp */
25666 t7=((C_word*)((C_word*)t0)[8])[1];
25667 f_23446(t7,((C_word*)t0)[2],t6,((C_word*)t0)[9],C_fixnum_or(((C_word*)t0)[4],C_fix(32)),((C_word*)t0)[3]);}
25668 else{
25669 t6=C_eqp(((C_word*)t0)[6],lf[157]);
25670 if(C_truep(t6)){
25671 t7=(
25672 /* irregex-core.scm:3177: sre-sequence */
25673   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25674 );
25675 t8=C_fixnum_not(C_fix(32));
25676 /* irregex-core.scm:3177: lp */
25677 t9=((C_word*)((C_word*)t0)[8])[1];
25678 f_23446(t9,((C_word*)t0)[2],t7,((C_word*)t0)[9],C_fixnum_and(((C_word*)t0)[4],t8),((C_word*)t0)[3]);}
25679 else{
25680 t7=C_eqp(((C_word*)t0)[6],lf[115]);
25681 t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[227]));
25682 if(C_truep(t8)){
25683 t9=C_i_length(C_u_i_cdr(((C_word*)t0)[5]));
25684 switch(t9){
25685 case C_fix(0):
25686 t10=((C_word*)t0)[2];{
25687 C_word av2[2];
25688 av2[0]=t10;
25689 av2[1]=((C_word*)t0)[3];
25690 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}
25691 case C_fix(1):
25692 /* irregex-core.scm:3181: rec */
25693 t10=((C_word*)t0)[7];
25694 f_23449(t10,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[5]));
25695 default:
25696 t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23689,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
25697 t11=(
25698 /* irregex-core.scm:3183: sre-sequence */
25699   f_18191(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[5]))
25700 );
25701 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23708,a[2]=((C_word*)t0)[8],a[3]=t10,a[4]=t11,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
25702 /* irregex-core.scm:3184: sre-count-submatches */
25703 f_16982(t12,C_i_cadr(((C_word*)t0)[5]));}}
25704 else{
25705 t9=C_eqp(((C_word*)t0)[6],lf[131]);
25706 if(C_truep(t9)){
25707 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
25708 t11=(
25709 /* irregex-core.scm:3189: sre-sequence */
25710   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25711 );
25712 /* irregex-core.scm:3189: rec */
25713 t12=((C_word*)t0)[7];
25714 f_23449(t12,t10,t11);}
25715 else{
25716 t10=C_eqp(((C_word*)t0)[6],lf[132]);
25717 if(C_truep(t10)){
25718 t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23757,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
25719 t12=(
25720 /* irregex-core.scm:3194: sre-sequence */
25721   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25722 );
25723 /* irregex-core.scm:3194: rec */
25724 t13=((C_word*)t0)[7];
25725 f_23449(t13,t11,t12);}
25726 else{
25727 t11=C_eqp(((C_word*)t0)[6],lf[127]);
25728 if(C_truep(t11)){
25729 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
25730 t13=(
25731 /* irregex-core.scm:3200: sre-sequence */
25732   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25733 );
25734 /* irregex-core.scm:3200: sre-empty? */
25735 t14=lf[139];{
25736 C_word av2[3];
25737 av2[0]=t14;
25738 av2[1]=t12;
25739 av2[2]=t13;
25740 f_16307(3,av2);}}
25741 else{
25742 t12=C_eqp(((C_word*)t0)[6],lf[128]);
25743 if(C_truep(t12)){
25744 t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
25745 t14=(
25746 /* irregex-core.scm:3210: sre-sequence */
25747   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25748 );
25749 /* irregex-core.scm:3210: sre-empty? */
25750 t15=lf[139];{
25751 C_word av2[3];
25752 av2[0]=t15;
25753 av2[1]=t13;
25754 av2[2]=t14;
25755 f_16307(3,av2);}}
25756 else{
25757 t13=C_eqp(((C_word*)t0)[6],lf[129]);
25758 if(C_truep(t13)){
25759 t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
25760 t15=(
25761 /* irregex-core.scm:3229: sre-sequence */
25762   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25763 );
25764 /* irregex-core.scm:3229: sre-empty? */
25765 t16=lf[139];{
25766 C_word av2[3];
25767 av2[0]=t16;
25768 av2[1]=t14;
25769 av2[2]=t15;
25770 f_16307(3,av2);}}
25771 else{
25772 t14=C_eqp(((C_word*)t0)[6],lf[134]);
25773 if(C_truep(t14)){
25774 t15=C_i_cadr(((C_word*)t0)[5]);
25775 t16=C_u_i_cdr(((C_word*)t0)[5]);
25776 t17=C_u_i_car(t16);
25777 t18=C_u_i_cdr(((C_word*)t0)[5]);
25778 t19=C_u_i_cdr(t18);
25779 t20=C_a_i_cons(&a,2,t17,t19);
25780 t21=C_a_i_cons(&a,2,t15,t20);
25781 t22=C_a_i_cons(&a,2,lf[133],t21);
25782 /* irregex-core.scm:3244: rec */
25783 t23=((C_word*)t0)[7];
25784 f_23449(t23,((C_word*)t0)[2],t22);}
25785 else{
25786 t15=C_eqp(((C_word*)t0)[6],lf[135]);
25787 if(C_truep(t15)){
25788 t16=C_i_cadr(((C_word*)t0)[5]);
25789 t17=C_u_i_cdr(((C_word*)t0)[5]);
25790 t18=C_u_i_cdr(t17);
25791 t19=C_a_i_cons(&a,2,C_SCHEME_FALSE,t18);
25792 t20=C_a_i_cons(&a,2,t16,t19);
25793 t21=C_a_i_cons(&a,2,lf[133],t20);
25794 /* irregex-core.scm:3246: rec */
25795 t22=((C_word*)t0)[7];
25796 f_23449(t22,((C_word*)t0)[2],t21);}
25797 else{
25798 t16=C_eqp(((C_word*)t0)[6],lf[133]);
25799 if(C_truep(t16)){
25800 t17=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23987,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
25801 t18=C_i_cadr(((C_word*)t0)[5]);
25802 if(C_truep(C_i_numberp(t18))){
25803 t19=C_i_caddr(((C_word*)t0)[5]);
25804 if(C_truep(C_i_numberp(t19))){
25805 t20=C_u_i_cdr(((C_word*)t0)[5]);
25806 t21=C_u_i_car(t20);
25807 t22=C_u_i_cdr(((C_word*)t0)[5]);
25808 t23=C_u_i_cdr(t22);
25809 t24=t17;
25810 f_23987(t24,C_fixnum_greaterp(t21,C_u_i_car(t23)));}
25811 else{
25812 t20=t17;
25813 f_23987(t20,C_SCHEME_FALSE);}}
25814 else{
25815 t19=t17;
25816 f_23987(t19,C_SCHEME_FALSE);}}
25817 else{
25818 t17=C_eqp(((C_word*)t0)[6],lf[130]);
25819 if(C_truep(t17)){
25820 t18=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
25821 t19=C_i_cadr(((C_word*)t0)[5]);
25822 if(C_truep(C_i_numberp(t19))){
25823 t20=C_i_caddr(((C_word*)t0)[5]);
25824 if(C_truep(C_i_numberp(t20))){
25825 t21=C_u_i_cdr(((C_word*)t0)[5]);
25826 t22=C_u_i_car(t21);
25827 t23=C_u_i_cdr(((C_word*)t0)[5]);
25828 t24=C_u_i_cdr(t23);
25829 t25=t18;
25830 f_24139(t25,C_fixnum_greaterp(t22,C_u_i_car(t24)));}
25831 else{
25832 t21=t18;
25833 f_24139(t21,C_SCHEME_FALSE);}}
25834 else{
25835 t20=t18;
25836 f_24139(t20,C_SCHEME_FALSE);}}
25837 else{
25838 t18=C_eqp(((C_word*)t0)[6],lf[231]);
25839 if(C_truep(t18)){
25840 t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24310,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
25841 t20=C_u_i_cdr(((C_word*)t0)[5]);
25842 t21=C_a_i_list(&a,1,lf[184]);
25843 /* irregex-core.scm:3317: ##sys#append */
25844 t22=*((C_word*)lf[118]+1);{
25845 C_word av2[4];
25846 av2[0]=t22;
25847 av2[1]=t19;
25848 av2[2]=t20;
25849 av2[3]=t21;
25850 ((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}}
25851 else{
25852 t19=C_eqp(((C_word*)t0)[6],lf[232]);
25853 if(C_truep(t19)){
25854 t20=C_a_i_list(&a,3,lf[103],lf[181],lf[233]);
25855 t21=C_u_i_cdr(((C_word*)t0)[5]);
25856 t22=C_a_i_cons(&a,2,lf[103],t21);
25857 t23=C_a_i_list(&a,3,lf[234],t20,t22);
25858 t24=C_a_i_list(&a,2,lf[129],t23);
25859 t25=C_a_i_list(&a,4,lf[115],lf[183],t24,lf[184]);
25860 /* irregex-core.scm:3319: rec */
25861 t26=((C_word*)t0)[7];
25862 f_23449(t26,((C_word*)t0)[2],t25);}
25863 else{
25864 t20=C_eqp(((C_word*)t0)[6],lf[235]);
25865 if(C_truep(t20)){
25866 t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24360,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
25867 /* irregex-core.scm:3322: string->sre */
25868 t22=*((C_word*)lf[102]+1);{
25869 C_word av2[3];
25870 av2[0]=t22;
25871 av2[1]=t21;
25872 av2[2]=C_i_cadr(((C_word*)t0)[5]);
25873 ((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}}
25874 else{
25875 t21=C_eqp(((C_word*)t0)[6],lf[111]);
25876 if(C_truep(t21)){
25877 t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
25878 t23=(
25879 /* irregex-core.scm:3325: sre-sequence */
25880   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25881 );
25882 t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24396,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp);
25883 /* irregex-core.scm:3325: lp */
25884 t25=((C_word*)((C_word*)t0)[8])[1];
25885 f_23446(t25,t22,t23,((C_word*)t0)[9],((C_word*)t0)[4],t24);}
25886 else{
25887 t22=C_eqp(((C_word*)t0)[6],lf[112]);
25888 if(C_truep(t22)){
25889 t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24408,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
25890 t24=(
25891 /* irregex-core.scm:3335: sre-sequence */
25892   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25893 );
25894 t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24431,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp);
25895 /* irregex-core.scm:3335: lp */
25896 t26=((C_word*)((C_word*)t0)[8])[1];
25897 f_23446(t26,t23,t24,((C_word*)t0)[9],((C_word*)t0)[4],t25);}
25898 else{
25899 t23=C_eqp(((C_word*)t0)[6],lf[113]);
25900 t24=(C_truep(t23)?t23:C_eqp(((C_word*)t0)[6],lf[114]));
25901 if(C_truep(t24)){
25902 t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
25903 t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24518,a[2]=((C_word*)t0)[8],a[3]=t25,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
25904 /* irregex-core.scm:3346: scheme#append */
25905 t27=*((C_word*)lf[73]+1);{
25906 C_word av2[4];
25907 av2[0]=t27;
25908 av2[1]=t26;
25909 av2[2]=C_u_i_cdr(((C_word*)t0)[5]);
25910 av2[3]=lf[238];
25911 ((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}}
25912 else{
25913 t25=C_eqp(((C_word*)t0)[6],lf[239]);
25914 if(C_truep(t25)){
25915 t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24529,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
25916 t27=(
25917 /* irregex-core.scm:3362: sre-sequence */
25918   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25919 );
25920 t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24552,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp);
25921 /* irregex-core.scm:3362: lp */
25922 t29=((C_word*)((C_word*)t0)[8])[1];
25923 f_23446(t29,t26,t27,((C_word*)t0)[9],((C_word*)t0)[4],t28);}
25924 else{
25925 t26=C_eqp(((C_word*)t0)[6],lf[109]);
25926 if(C_truep(t26)){
25927 t27=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24564,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
25928 /* irregex-core.scm:3372: sre-count-submatches */
25929 f_16982(t27,C_i_cadr(((C_word*)t0)[5]));}
25930 else{
25931 t27=C_eqp(((C_word*)t0)[6],lf[192]);
25932 t28=(C_truep(t27)?t27:C_eqp(((C_word*)t0)[6],lf[191]));
25933 if(C_truep(t28)){
25934 t29=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24720,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
25935 t30=C_i_cadr(((C_word*)t0)[5]);
25936 if(C_truep(C_i_numberp(t30))){
25937 t31=t29;{
25938 C_word av2[2];
25939 av2[0]=t31;
25940 av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[5]));
25941 f_24720(2,av2);}}
25942 else{
25943 t31=C_u_i_cdr(((C_word*)t0)[5]);
25944 t32=C_i_assq(C_u_i_car(t31),((C_word*)((C_word*)t0)[10])[1]);
25945 if(C_truep(t32)){
25946 t33=t29;{
25947 C_word av2[2];
25948 av2[0]=t33;
25949 av2[1]=C_i_cdr(t32);
25950 f_24720(2,av2);}}
25951 else{
25952 t33=C_u_i_cdr(((C_word*)t0)[5]);
25953 /* irregex-core.scm:3404: chicken.base#error */
25954 t34=*((C_word*)lf[30]+1);{
25955 C_word av2[4];
25956 av2[0]=t34;
25957 av2[1]=t29;
25958 av2[2]=lf[243];
25959 av2[3]=C_u_i_car(t33);
25960 ((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}}}}
25961 else{
25962 t29=C_eqp(((C_word*)t0)[6],lf[244]);
25963 if(C_truep(t29)){
25964 t30=(
25965 /* irregex-core.scm:3444: sre-sequence */
25966   f_18191(C_a_i(&a,3),C_i_cdddr(((C_word*)t0)[5]))
25967 );
25968 t31=C_i_cadr(((C_word*)t0)[5]);
25969 /* irregex-core.scm:3444: lp */
25970 t32=((C_word*)((C_word*)t0)[8])[1];
25971 f_23446(t32,((C_word*)t0)[2],t30,C_fixnum_plus(((C_word*)t0)[9],t31),((C_word*)t0)[4],((C_word*)t0)[3]);}
25972 else{
25973 t30=C_eqp(((C_word*)t0)[6],lf[245]);
25974 t31=(C_truep(t30)?t30:C_eqp(((C_word*)t0)[6],lf[108]));
25975 if(C_truep(t31)){
25976 t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24937,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
25977 t33=(
25978 /* irregex-core.scm:3447: sre-sequence */
25979   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5]))
25980 );
25981 t34=C_fixnum_plus(((C_word*)t0)[9],C_fix(1));
25982 t35=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25046,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word)li171),tmp=(C_word)a,a+=5,tmp);
25983 /* irregex-core.scm:3447: lp */
25984 t36=((C_word*)((C_word*)t0)[8])[1];
25985 f_23446(t36,t32,t33,t34,((C_word*)t0)[4],t35);}
25986 else{
25987 t32=C_eqp(((C_word*)t0)[6],lf[119]);
25988 t33=(C_truep(t32)?t32:C_eqp(((C_word*)t0)[6],lf[120]));
25989 if(C_truep(t33)){
25990 t34=C_i_cddr(((C_word*)t0)[5]);
25991 t35=C_a_i_cons(&a,2,lf[108],t34);
25992 /* irregex-core.scm:3477: rec */
25993 t36=((C_word*)t0)[7];
25994 f_23449(t36,((C_word*)t0)[2],t35);}
25995 else{
25996 /* irregex-core.scm:3479: chicken.base#error */
25997 t34=*((C_word*)lf[30]+1);{
25998 C_word av2[4];
25999 av2[0]=t34;
26000 av2[1]=((C_word*)t0)[2];
26001 av2[2]=lf[246];
26002 av2[3]=((C_word*)t0)[5];
26003 ((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
26004 
26005 /* k23493 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23495(C_word c,C_word * av)26006 static void C_ccall f_23495(C_word c,C_word *av){
26007 C_word tmp;
26008 C_word t0=av[0];
26009 C_word t1=av[1];
26010 C_word t2;
26011 C_word *a;
26012 C_check_for_interrupt;
26013 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
26014 C_save_and_reclaim((void *)f_23495,c,av);}
26015 /* irregex-core.scm:3147: sre-cset->procedure */
26016 f_26168(((C_word*)t0)[2],t1,((C_word*)t0)[3]);}
26017 
26018 /* f_23515 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23515(C_word c,C_word * av)26019 static void C_ccall f_23515(C_word c,C_word *av){
26020 C_word tmp;
26021 C_word t0=av[0];
26022 C_word t1=av[1];
26023 C_word t2=av[2];
26024 C_word t3=av[3];
26025 C_word t4=av[4];
26026 C_word t5=av[5];
26027 C_word t6=av[6];
26028 C_word t7=av[7];
26029 C_word t8=av[8];
26030 C_word t9=av[9];
26031 C_word t10;
26032 C_word *a;
26033 if(c!=10) C_bad_argc_2(c,10,t0);
26034 C_check_for_interrupt;
26035 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
26036 C_save_and_reclaim((void *)f_23515,c,av);}
26037 /* irregex-core.scm:3152: fail */
26038 t10=t9;{
26039 C_word *av2=av;
26040 av2[0]=t10;
26041 av2[1]=t1;
26042 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
26043 
26044 /* k23533 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23535(C_word c,C_word * av)26045 static void C_ccall f_23535(C_word c,C_word *av){
26046 C_word tmp;
26047 C_word t0=av[0];
26048 C_word t1=av[1];
26049 C_word t2;
26050 C_word t3;
26051 C_word t4;
26052 C_word t5;
26053 C_word *a;
26054 C_check_for_interrupt;
26055 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
26056 C_save_and_reclaim((void *)f_23535,c,av);}
26057 a=C_alloc(15);
26058 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23538,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
26059 t3=(
26060 /* irregex-core.scm:3156: sre-alternate */
26061   f_18214(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[3]))
26062 );
26063 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23561,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,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);
26064 /* irregex-core.scm:3157: sre-count-submatches */
26065 f_16982(t4,C_i_cadr(((C_word*)t0)[3]));}
26066 
26067 /* k23536 in k23533 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23538(C_word c,C_word * av)26068 static void C_ccall f_23538(C_word c,C_word *av){
26069 C_word tmp;
26070 C_word t0=av[0];
26071 C_word t1=av[1];
26072 C_word t2;
26073 C_word *a;
26074 C_check_for_interrupt;
26075 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
26076 C_save_and_reclaim((void *)f_23538,c,av);}
26077 a=C_alloc(5);
26078 t2=((C_word*)t0)[2];{
26079 C_word *av2=av;
26080 av2[0]=t2;
26081 av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23539,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word)li122),tmp=(C_word)a,a+=5,tmp);
26082 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
26083 
26084 /* f_23539 in k23536 in k23533 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_23539(C_word c,C_word * av)26085 static void C_ccall f_23539(C_word c,C_word *av){
26086 C_word tmp;
26087 C_word t0=av[0];
26088 C_word t1=av[1];
26089 C_word t2=av[2];
26090 C_word t3=av[3];
26091 C_word t4=av[4];
26092 C_word t5=av[5];
26093 C_word t6=av[6];
26094 C_word t7=av[7];
26095 C_word t8=av[8];
26096 C_word t9=av[9];
26097 C_word t10;
26098 C_word t11;
26099 C_word *a;
26100 if(c!=10) C_bad_argc_2(c,10,t0);
26101 C_check_for_interrupt;
26102 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26103 C_save_and_reclaim((void *)f_23539,c,av);}
26104 a=C_alloc(12);
26105 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23545,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li121),tmp=(C_word)a,a+=12,tmp);
26106 /* irregex-core.scm:3161: first */
26107 t11=((C_word*)t0)[3];{
26108 C_word *av2=av;
26109 av2[0]=t11;
26110 av2[1]=t1;
26111 av2[2]=t2;
26112 av2[3]=t3;
26113 av2[4]=t4;
26114 av2[5]=t5;
26115 av2[6]=t6;
26116 av2[7]=t7;
26117 av2[8]=t8;
26118 av2[9]=t10;
26119 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26120 
26121 /* a23544 */
f_23545(C_word c,C_word * av)26122 static void C_ccall f_23545(C_word c,C_word *av){
26123 C_word tmp;
26124 C_word t0=av[0];
26125 C_word t1=av[1];
26126 C_word t2;
26127 C_word *a;
26128 if(c!=2) C_bad_argc_2(c,2,t0);
26129 C_check_for_interrupt;
26130 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26131 C_save_and_reclaim((void *)f_23545,c,av);}
26132 /* irregex-core.scm:3163: rest */
26133 t2=((C_word*)t0)[2];{
26134 C_word *av2;
26135 if(c >= 10) {
26136   av2=av;
26137 } else {
26138   av2=C_alloc(10);
26139 }
26140 av2[0]=t2;
26141 av2[1]=t1;
26142 av2[2]=((C_word*)t0)[3];
26143 av2[3]=((C_word*)t0)[4];
26144 av2[4]=((C_word*)t0)[5];
26145 av2[5]=((C_word*)t0)[6];
26146 av2[6]=((C_word*)t0)[7];
26147 av2[7]=((C_word*)t0)[8];
26148 av2[8]=((C_word*)t0)[9];
26149 av2[9]=((C_word*)t0)[10];
26150 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26151 
26152 /* k23559 in k23533 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23561(C_word c,C_word * av)26153 static void C_ccall f_23561(C_word c,C_word *av){
26154 C_word tmp;
26155 C_word t0=av[0];
26156 C_word t1=av[1];
26157 C_word t2;
26158 C_word *a;
26159 C_check_for_interrupt;
26160 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
26161 C_save_and_reclaim((void *)f_23561,c,av);}
26162 /* irregex-core.scm:3156: lp */
26163 t2=((C_word*)((C_word*)t0)[2])[1];
26164 f_23446(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[5],t1),((C_word*)t0)[6],((C_word*)t0)[7]);}
26165 
26166 /* k23687 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23689(C_word c,C_word * av)26167 static void C_ccall f_23689(C_word c,C_word *av){
26168 C_word tmp;
26169 C_word t0=av[0];
26170 C_word t1=av[1];
26171 C_word t2;
26172 C_word *a;
26173 C_check_for_interrupt;
26174 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
26175 C_save_and_reclaim((void *)f_23689,c,av);}
26176 /* irregex-core.scm:3187: lp */
26177 t2=((C_word*)((C_word*)t0)[2])[1];
26178 f_23446(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],t1);}
26179 
26180 /* k23706 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23708(C_word c,C_word * av)26181 static void C_ccall f_23708(C_word c,C_word *av){
26182 C_word tmp;
26183 C_word t0=av[0];
26184 C_word t1=av[1];
26185 C_word t2;
26186 C_word *a;
26187 C_check_for_interrupt;
26188 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
26189 C_save_and_reclaim((void *)f_23708,c,av);}
26190 /* irregex-core.scm:3183: lp */
26191 t2=((C_word*)((C_word*)t0)[2])[1];
26192 f_23446(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[5],t1),((C_word*)t0)[6],((C_word*)t0)[7]);}
26193 
26194 /* k23729 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23731(C_word c,C_word * av)26195 static void C_ccall f_23731(C_word c,C_word *av){
26196 C_word tmp;
26197 C_word t0=av[0];
26198 C_word t1=av[1];
26199 C_word t2;
26200 C_word *a;
26201 C_check_for_interrupt;
26202 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
26203 C_save_and_reclaim((void *)f_23731,c,av);}
26204 a=C_alloc(5);
26205 t2=((C_word*)t0)[2];{
26206 C_word *av2=av;
26207 av2[0]=t2;
26208 av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23732,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word)li124),tmp=(C_word)a,a+=5,tmp);
26209 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
26210 
26211 /* f_23732 in k23729 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23732(C_word c,C_word * av)26212 static void C_ccall f_23732(C_word c,C_word *av){
26213 C_word tmp;
26214 C_word t0=av[0];
26215 C_word t1=av[1];
26216 C_word t2=av[2];
26217 C_word t3=av[3];
26218 C_word t4=av[4];
26219 C_word t5=av[5];
26220 C_word t6=av[6];
26221 C_word t7=av[7];
26222 C_word t8=av[8];
26223 C_word t9=av[9];
26224 C_word t10;
26225 C_word t11;
26226 C_word *a;
26227 if(c!=10) C_bad_argc_2(c,10,t0);
26228 C_check_for_interrupt;
26229 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26230 C_save_and_reclaim((void *)f_23732,c,av);}
26231 a=C_alloc(12);
26232 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23738,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li123),tmp=(C_word)a,a+=12,tmp);
26233 /* irregex-core.scm:3191: body */
26234 t11=((C_word*)t0)[3];{
26235 C_word *av2=av;
26236 av2[0]=t11;
26237 av2[1]=t1;
26238 av2[2]=t2;
26239 av2[3]=t3;
26240 av2[4]=t4;
26241 av2[5]=t5;
26242 av2[6]=t6;
26243 av2[7]=t7;
26244 av2[8]=t8;
26245 av2[9]=t10;
26246 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26247 
26248 /* a23737 */
f_23738(C_word c,C_word * av)26249 static void C_ccall f_23738(C_word c,C_word *av){
26250 C_word tmp;
26251 C_word t0=av[0];
26252 C_word t1=av[1];
26253 C_word t2;
26254 C_word *a;
26255 if(c!=2) C_bad_argc_2(c,2,t0);
26256 C_check_for_interrupt;
26257 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26258 C_save_and_reclaim((void *)f_23738,c,av);}
26259 /* irregex-core.scm:3192: next */
26260 t2=((C_word*)t0)[2];{
26261 C_word *av2;
26262 if(c >= 10) {
26263   av2=av;
26264 } else {
26265   av2=C_alloc(10);
26266 }
26267 av2[0]=t2;
26268 av2[1]=t1;
26269 av2[2]=((C_word*)t0)[3];
26270 av2[3]=((C_word*)t0)[4];
26271 av2[4]=((C_word*)t0)[5];
26272 av2[5]=((C_word*)t0)[6];
26273 av2[6]=((C_word*)t0)[7];
26274 av2[7]=((C_word*)t0)[8];
26275 av2[8]=((C_word*)t0)[9];
26276 av2[9]=((C_word*)t0)[10];
26277 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26278 
26279 /* k23755 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23757(C_word c,C_word * av)26280 static void C_ccall f_23757(C_word c,C_word *av){
26281 C_word tmp;
26282 C_word t0=av[0];
26283 C_word t1=av[1];
26284 C_word t2;
26285 C_word t3;
26286 C_word *a;
26287 C_check_for_interrupt;
26288 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
26289 C_save_and_reclaim((void *)f_23757,c,av);}
26290 a=C_alloc(5);
26291 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23758,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp);
26292 t3=((C_word*)t0)[3];{
26293 C_word *av2=av;
26294 av2[0]=t3;
26295 av2[1]=t2;
26296 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
26297 
26298 /* f_23758 in k23755 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23758(C_word c,C_word * av)26299 static void C_ccall f_23758(C_word c,C_word *av){
26300 C_word tmp;
26301 C_word t0=av[0];
26302 C_word t1=av[1];
26303 C_word t2=av[2];
26304 C_word t3=av[3];
26305 C_word t4=av[4];
26306 C_word t5=av[5];
26307 C_word t6=av[6];
26308 C_word t7=av[7];
26309 C_word t8=av[8];
26310 C_word t9=av[9];
26311 C_word t10;
26312 C_word t11;
26313 C_word *a;
26314 if(c!=10) C_bad_argc_2(c,10,t0);
26315 C_check_for_interrupt;
26316 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26317 C_save_and_reclaim((void *)f_23758,c,av);}
26318 a=C_alloc(12);
26319 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23764,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li125),tmp=(C_word)a,a+=12,tmp);
26320 /* irregex-core.scm:3196: next */
26321 t11=((C_word*)t0)[3];{
26322 C_word *av2=av;
26323 av2[0]=t11;
26324 av2[1]=t1;
26325 av2[2]=t2;
26326 av2[3]=t3;
26327 av2[4]=t4;
26328 av2[5]=t5;
26329 av2[6]=t6;
26330 av2[7]=t7;
26331 av2[8]=t8;
26332 av2[9]=t10;
26333 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26334 
26335 /* a23763 */
f_23764(C_word c,C_word * av)26336 static void C_ccall f_23764(C_word c,C_word *av){
26337 C_word tmp;
26338 C_word t0=av[0];
26339 C_word t1=av[1];
26340 C_word t2;
26341 C_word *a;
26342 if(c!=2) C_bad_argc_2(c,2,t0);
26343 C_check_for_interrupt;
26344 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26345 C_save_and_reclaim((void *)f_23764,c,av);}
26346 /* irregex-core.scm:3197: body */
26347 t2=((C_word*)t0)[2];{
26348 C_word *av2;
26349 if(c >= 10) {
26350   av2=av;
26351 } else {
26352   av2=C_alloc(10);
26353 }
26354 av2[0]=t2;
26355 av2[1]=t1;
26356 av2[2]=((C_word*)t0)[3];
26357 av2[3]=((C_word*)t0)[4];
26358 av2[4]=((C_word*)t0)[5];
26359 av2[5]=((C_word*)t0)[6];
26360 av2[6]=((C_word*)t0)[7];
26361 av2[7]=((C_word*)t0)[8];
26362 av2[8]=((C_word*)t0)[9];
26363 av2[9]=((C_word*)t0)[10];
26364 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26365 
26366 /* k23784 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23786(C_word c,C_word * av)26367 static void C_ccall f_23786(C_word c,C_word *av){
26368 C_word tmp;
26369 C_word t0=av[0];
26370 C_word t1=av[1];
26371 C_word t2;
26372 C_word t3;
26373 C_word t4;
26374 C_word t5;
26375 C_word *a;
26376 C_check_for_interrupt;
26377 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
26378 C_save_and_reclaim((void *)f_23786,c,av);}
26379 a=C_alloc(13);
26380 if(C_truep(t1)){
26381 /* irregex-core.scm:3201: chicken.base#error */
26382 t2=*((C_word*)lf[30]+1);{
26383 C_word *av2;
26384 if(c >= 4) {
26385   av2=av;
26386 } else {
26387   av2=C_alloc(4);
26388 }
26389 av2[0]=t2;
26390 av2[1]=((C_word*)t0)[2];
26391 av2[2]=lf[228];
26392 av2[3]=((C_word*)t0)[3];
26393 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
26394 else{
26395 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23792,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
26396 t3=(
26397 /* irregex-core.scm:3203: sre-sequence */
26398   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3]))
26399 );
26400 t4=C_a_i_list2(&a,2,lf[129],t3);
26401 /* irregex-core.scm:3203: rec */
26402 t5=((C_word*)t0)[5];
26403 f_23449(t5,t2,t4);}}
26404 
26405 /* k23790 in k23784 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23792(C_word c,C_word * av)26406 static void C_ccall f_23792(C_word c,C_word *av){
26407 C_word tmp;
26408 C_word t0=av[0];
26409 C_word t1=av[1];
26410 C_word t2;
26411 C_word t3;
26412 C_word *a;
26413 C_check_for_interrupt;
26414 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
26415 C_save_and_reclaim((void *)f_23792,c,av);}
26416 a=C_alloc(5);
26417 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23793,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li128),tmp=(C_word)a,a+=5,tmp);
26418 t3=((C_word*)t0)[3];{
26419 C_word *av2=av;
26420 av2[0]=t3;
26421 av2[1]=t2;
26422 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
26423 
26424 /* f_23793 in k23790 in k23784 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_23793(C_word c,C_word * av)26425 static void C_ccall f_23793(C_word c,C_word *av){
26426 C_word tmp;
26427 C_word t0=av[0];
26428 C_word t1=av[1];
26429 C_word t2=av[2];
26430 C_word t3=av[3];
26431 C_word t4=av[4];
26432 C_word t5=av[5];
26433 C_word t6=av[6];
26434 C_word t7=av[7];
26435 C_word t8=av[8];
26436 C_word t9=av[9];
26437 C_word t10;
26438 C_word t11;
26439 C_word *a;
26440 if(c!=10) C_bad_argc_2(c,10,t0);
26441 C_check_for_interrupt;
26442 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26443 C_save_and_reclaim((void *)f_23793,c,av);}
26444 a=C_alloc(12);
26445 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23799,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li127),tmp=(C_word)a,a+=12,tmp);
26446 /* irregex-core.scm:3205: body */
26447 t11=((C_word*)t0)[3];{
26448 C_word *av2=av;
26449 av2[0]=t11;
26450 av2[1]=t1;
26451 av2[2]=t2;
26452 av2[3]=t3;
26453 av2[4]=t4;
26454 av2[5]=t5;
26455 av2[6]=t6;
26456 av2[7]=t7;
26457 av2[8]=t8;
26458 av2[9]=t10;
26459 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26460 
26461 /* a23798 */
f_23799(C_word c,C_word * av)26462 static void C_ccall f_23799(C_word c,C_word *av){
26463 C_word tmp;
26464 C_word t0=av[0];
26465 C_word t1=av[1];
26466 C_word t2;
26467 C_word *a;
26468 if(c!=2) C_bad_argc_2(c,2,t0);
26469 C_check_for_interrupt;
26470 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26471 C_save_and_reclaim((void *)f_23799,c,av);}
26472 /* irregex-core.scm:3207: next */
26473 t2=((C_word*)t0)[2];{
26474 C_word *av2;
26475 if(c >= 10) {
26476   av2=av;
26477 } else {
26478   av2=C_alloc(10);
26479 }
26480 av2[0]=t2;
26481 av2[1]=t1;
26482 av2[2]=((C_word*)t0)[3];
26483 av2[3]=((C_word*)t0)[4];
26484 av2[4]=((C_word*)t0)[5];
26485 av2[5]=((C_word*)t0)[6];
26486 av2[6]=((C_word*)t0)[7];
26487 av2[7]=((C_word*)t0)[8];
26488 av2[8]=((C_word*)t0)[9];
26489 av2[9]=((C_word*)t0)[10];
26490 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26491 
26492 /* k23829 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23831(C_word c,C_word * av)26493 static void C_ccall f_23831(C_word c,C_word *av){
26494 C_word tmp;
26495 C_word t0=av[0];
26496 C_word t1=av[1];
26497 C_word t2;
26498 C_word t3;
26499 C_word t4;
26500 C_word t5;
26501 C_word t6;
26502 C_word t7;
26503 C_word *a;
26504 C_check_for_interrupt;
26505 if(C_unlikely(!C_demand(C_calculate_demand(15,c,10)))){
26506 C_save_and_reclaim((void *)f_23831,c,av);}
26507 a=C_alloc(15);
26508 if(C_truep(t1)){
26509 /* irregex-core.scm:3211: chicken.base#error */
26510 t2=*((C_word*)lf[30]+1);{
26511 C_word *av2;
26512 if(c >= 4) {
26513   av2=av;
26514 } else {
26515   av2=C_alloc(4);
26516 }
26517 av2[0]=t2;
26518 av2[1]=((C_word*)t0)[2];
26519 av2[2]=lf[229];
26520 av2[3]=((C_word*)t0)[3];
26521 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
26522 else{
26523 t2=C_SCHEME_UNDEFINED;
26524 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
26525 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23837,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
26526 t5=(
26527 /* irregex-core.scm:3215: sre-sequence */
26528   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3]))
26529 );
26530 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23855,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp);
26531 /* irregex-core.scm:3215: lp */
26532 t7=((C_word*)((C_word*)t0)[5])[1];
26533 f_23446(t7,t4,t5,((C_word*)t0)[6],((C_word*)t0)[7],t6);}}
26534 
26535 /* k23835 in k23829 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23837(C_word c,C_word * av)26536 static void C_ccall f_23837(C_word c,C_word *av){
26537 C_word tmp;
26538 C_word t0=av[0];
26539 C_word t1=av[1];
26540 C_word t2;
26541 C_word t3;
26542 C_word *a;
26543 C_check_for_interrupt;
26544 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
26545 C_save_and_reclaim((void *)f_23837,c,av);}
26546 a=C_alloc(5);
26547 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
26548 t3=((C_word*)t0)[3];{
26549 C_word *av2=av;
26550 av2[0]=t3;
26551 av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23839,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li130),tmp=(C_word)a,a+=5,tmp);
26552 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
26553 
26554 /* f_23839 in k23835 in k23829 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_23839(C_word c,C_word * av)26555 static void C_ccall f_23839(C_word c,C_word *av){
26556 C_word tmp;
26557 C_word t0=av[0];
26558 C_word t1=av[1];
26559 C_word t2=av[2];
26560 C_word t3=av[3];
26561 C_word t4=av[4];
26562 C_word t5=av[5];
26563 C_word t6=av[6];
26564 C_word t7=av[7];
26565 C_word t8=av[8];
26566 C_word t9=av[9];
26567 C_word t10;
26568 C_word t11;
26569 C_word *a;
26570 if(c!=10) C_bad_argc_2(c,10,t0);
26571 C_check_for_interrupt;
26572 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26573 C_save_and_reclaim((void *)f_23839,c,av);}
26574 a=C_alloc(12);
26575 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23845,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li129),tmp=(C_word)a,a+=12,tmp);
26576 /* irregex-core.scm:3224: next */
26577 t11=((C_word*)t0)[3];{
26578 C_word *av2=av;
26579 av2[0]=t11;
26580 av2[1]=t1;
26581 av2[2]=t2;
26582 av2[3]=t3;
26583 av2[4]=t4;
26584 av2[5]=t5;
26585 av2[6]=t6;
26586 av2[7]=t7;
26587 av2[8]=t8;
26588 av2[9]=t10;
26589 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26590 
26591 /* a23844 */
f_23845(C_word c,C_word * av)26592 static void C_ccall f_23845(C_word c,C_word *av){
26593 C_word tmp;
26594 C_word t0=av[0];
26595 C_word t1=av[1];
26596 C_word t2;
26597 C_word *a;
26598 if(c!=2) C_bad_argc_2(c,2,t0);
26599 C_check_for_interrupt;
26600 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26601 C_save_and_reclaim((void *)f_23845,c,av);}
26602 /* irregex-core.scm:3226: body */
26603 t2=((C_word*)((C_word*)t0)[2])[1];{
26604 C_word *av2;
26605 if(c >= 10) {
26606   av2=av;
26607 } else {
26608   av2=C_alloc(10);
26609 }
26610 av2[0]=t2;
26611 av2[1]=t1;
26612 av2[2]=((C_word*)t0)[3];
26613 av2[3]=((C_word*)t0)[4];
26614 av2[4]=((C_word*)t0)[5];
26615 av2[5]=((C_word*)t0)[6];
26616 av2[6]=((C_word*)t0)[7];
26617 av2[7]=((C_word*)t0)[8];
26618 av2[8]=((C_word*)t0)[9];
26619 av2[9]=((C_word*)t0)[10];
26620 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26621 
26622 /* a23854 in k23829 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23855(C_word c,C_word * av)26623 static void C_ccall f_23855(C_word c,C_word *av){
26624 C_word tmp;
26625 C_word t0=av[0];
26626 C_word t1=av[1];
26627 C_word t2=av[2];
26628 C_word t3=av[3];
26629 C_word t4=av[4];
26630 C_word t5=av[5];
26631 C_word t6=av[6];
26632 C_word t7=av[7];
26633 C_word t8=av[8];
26634 C_word t9=av[9];
26635 C_word t10;
26636 C_word t11;
26637 C_word *a;
26638 if(c!=10) C_bad_argc_2(c,10,t0);
26639 C_check_for_interrupt;
26640 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26641 C_save_and_reclaim((void *)f_23855,c,av);}
26642 a=C_alloc(12);
26643 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23861,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li131),tmp=(C_word)a,a+=12,tmp);
26644 /* irregex-core.scm:3219: next */
26645 t11=((C_word*)t0)[3];{
26646 C_word *av2=av;
26647 av2[0]=t11;
26648 av2[1]=t1;
26649 av2[2]=t2;
26650 av2[3]=t3;
26651 av2[4]=t4;
26652 av2[5]=t5;
26653 av2[6]=t6;
26654 av2[7]=t7;
26655 av2[8]=t8;
26656 av2[9]=t10;
26657 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26658 
26659 /* a23860 in a23854 in k23829 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_23861(C_word c,C_word * av)26660 static void C_ccall f_23861(C_word c,C_word *av){
26661 C_word tmp;
26662 C_word t0=av[0];
26663 C_word t1=av[1];
26664 C_word t2;
26665 C_word *a;
26666 if(c!=2) C_bad_argc_2(c,2,t0);
26667 C_check_for_interrupt;
26668 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26669 C_save_and_reclaim((void *)f_23861,c,av);}
26670 /* irregex-core.scm:3221: body */
26671 t2=((C_word*)((C_word*)t0)[2])[1];{
26672 C_word *av2;
26673 if(c >= 10) {
26674   av2=av;
26675 } else {
26676   av2=C_alloc(10);
26677 }
26678 av2[0]=t2;
26679 av2[1]=t1;
26680 av2[2]=((C_word*)t0)[3];
26681 av2[3]=((C_word*)t0)[4];
26682 av2[4]=((C_word*)t0)[5];
26683 av2[5]=((C_word*)t0)[6];
26684 av2[6]=((C_word*)t0)[7];
26685 av2[7]=((C_word*)t0)[8];
26686 av2[8]=((C_word*)t0)[9];
26687 av2[9]=((C_word*)t0)[10];
26688 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26689 
26690 /* k23883 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23885(C_word c,C_word * av)26691 static void C_ccall f_23885(C_word c,C_word *av){
26692 C_word tmp;
26693 C_word t0=av[0];
26694 C_word t1=av[1];
26695 C_word t2;
26696 C_word t3;
26697 C_word t4;
26698 C_word t5;
26699 C_word t6;
26700 C_word t7;
26701 C_word *a;
26702 C_check_for_interrupt;
26703 if(C_unlikely(!C_demand(C_calculate_demand(14,c,10)))){
26704 C_save_and_reclaim((void *)f_23885,c,av);}
26705 a=C_alloc(14);
26706 if(C_truep(t1)){
26707 /* irregex-core.scm:3230: chicken.base#error */
26708 t2=*((C_word*)lf[30]+1);{
26709 C_word *av2;
26710 if(c >= 4) {
26711   av2=av;
26712 } else {
26713   av2=C_alloc(4);
26714 }
26715 av2[0]=t2;
26716 av2[1]=((C_word*)t0)[2];
26717 av2[2]=lf[230];
26718 av2[3]=((C_word*)t0)[3];
26719 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
26720 else{
26721 t2=C_SCHEME_UNDEFINED;
26722 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
26723 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23891,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
26724 t5=(
26725 /* irregex-core.scm:3234: sre-sequence */
26726   f_18191(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3]))
26727 );
26728 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23898,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li134),tmp=(C_word)a,a+=5,tmp);
26729 /* irregex-core.scm:3234: lp */
26730 t7=((C_word*)((C_word*)t0)[5])[1];
26731 f_23446(t7,t4,t5,((C_word*)t0)[6],((C_word*)t0)[7],t6);}}
26732 
26733 /* k23889 in k23883 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23891(C_word c,C_word * av)26734 static void C_ccall f_23891(C_word c,C_word *av){
26735 C_word tmp;
26736 C_word t0=av[0];
26737 C_word t1=av[1];
26738 C_word t2;
26739 C_word t3;
26740 C_word t4;
26741 C_word *a;
26742 C_check_for_interrupt;
26743 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
26744 C_save_and_reclaim((void *)f_23891,c,av);}
26745 t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
26746 t3=((C_word*)((C_word*)t0)[2])[1];
26747 t4=((C_word*)t0)[3];{
26748 C_word *av2=av;
26749 av2[0]=t4;
26750 av2[1]=t3;
26751 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
26752 
26753 /* a23897 in k23883 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23898(C_word c,C_word * av)26754 static void C_ccall f_23898(C_word c,C_word *av){
26755 C_word tmp;
26756 C_word t0=av[0];
26757 C_word t1=av[1];
26758 C_word t2=av[2];
26759 C_word t3=av[3];
26760 C_word t4=av[4];
26761 C_word t5=av[5];
26762 C_word t6=av[6];
26763 C_word t7=av[7];
26764 C_word t8=av[8];
26765 C_word t9=av[9];
26766 C_word t10;
26767 C_word t11;
26768 C_word *a;
26769 if(c!=10) C_bad_argc_2(c,10,t0);
26770 C_check_for_interrupt;
26771 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
26772 C_save_and_reclaim((void *)f_23898,c,av);}
26773 a=C_alloc(12);
26774 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23904,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li133),tmp=(C_word)a,a+=12,tmp);
26775 /* irregex-core.scm:3238: body */
26776 t11=((C_word*)((C_word*)t0)[3])[1];{
26777 C_word *av2=av;
26778 av2[0]=t11;
26779 av2[1]=t1;
26780 av2[2]=t2;
26781 av2[3]=t3;
26782 av2[4]=t4;
26783 av2[5]=t5;
26784 av2[6]=t6;
26785 av2[7]=t7;
26786 av2[8]=t8;
26787 av2[9]=t10;
26788 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
26789 
26790 /* a23903 in a23897 in k23883 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_23904(C_word c,C_word * av)26791 static void C_ccall f_23904(C_word c,C_word *av){
26792 C_word tmp;
26793 C_word t0=av[0];
26794 C_word t1=av[1];
26795 C_word t2;
26796 C_word *a;
26797 if(c!=2) C_bad_argc_2(c,2,t0);
26798 C_check_for_interrupt;
26799 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
26800 C_save_and_reclaim((void *)f_23904,c,av);}
26801 /* irregex-core.scm:3240: next */
26802 t2=((C_word*)t0)[2];{
26803 C_word *av2;
26804 if(c >= 10) {
26805   av2=av;
26806 } else {
26807   av2=C_alloc(10);
26808 }
26809 av2[0]=t2;
26810 av2[1]=t1;
26811 av2[2]=((C_word*)t0)[3];
26812 av2[3]=((C_word*)t0)[4];
26813 av2[4]=((C_word*)t0)[5];
26814 av2[5]=((C_word*)t0)[6];
26815 av2[6]=((C_word*)t0)[7];
26816 av2[7]=((C_word*)t0)[8];
26817 av2[8]=((C_word*)t0)[9];
26818 av2[9]=((C_word*)t0)[10];
26819 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
26820 
26821 /* k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_23987(C_word t0,C_word t1)26822 static void C_fcall f_23987(C_word t0,C_word t1){
26823 C_word tmp;
26824 C_word t2;
26825 C_word t3;
26826 C_word t4;
26827 C_word t5;
26828 C_word *a;
26829 C_check_for_interrupt;
26830 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
26831 C_save_and_reclaim_args((void *)trf_23987,2,t0,t1);}
26832 a=C_alloc(8);
26833 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23990,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);
26834 if(C_truep(t1)){
26835 t3=t2;
26836 f_23990(t3,t1);}
26837 else{
26838 t3=C_u_i_cdr(((C_word*)t0)[3]);
26839 t4=C_i_not(C_u_i_car(t3));
26840 t5=t2;
26841 f_23990(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}}
26842 
26843 /* k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_23990(C_word t0,C_word t1)26844 static void C_fcall f_23990(C_word t0,C_word t1){
26845 C_word tmp;
26846 C_word t2;
26847 C_word t3;
26848 C_word t4;
26849 C_word t5;
26850 C_word t6;
26851 C_word t7;
26852 C_word t8;
26853 C_word t9;
26854 C_word t10;
26855 C_word t11;
26856 C_word t12;
26857 C_word t13;
26858 C_word t14;
26859 C_word t15;
26860 C_word t16;
26861 C_word t17;
26862 C_word t18;
26863 C_word t19;
26864 C_word t20;
26865 C_word t21;
26866 C_word t22;
26867 C_word t23;
26868 C_word *a;
26869 C_check_for_interrupt;
26870 if(C_unlikely(!C_demand(C_calculate_demand(28,0,10)))){
26871 C_save_and_reclaim_args((void *)trf_23990,2,t0,t1);}
26872 a=C_alloc(28);
26873 if(C_truep(t1)){
26874 t2=((C_word*)t0)[2];{
26875 C_word av2[2];
26876 av2[0]=t2;
26877 av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23991,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp);
26878 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
26879 else{
26880 t2=C_SCHEME_UNDEFINED;
26881 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
26882 t4=C_SCHEME_UNDEFINED;
26883 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
26884 t6=C_SCHEME_UNDEFINED;
26885 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
26886 t8=C_SCHEME_UNDEFINED;
26887 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
26888 t10=C_u_i_cdr(((C_word*)t0)[3]);
26889 t11=C_u_i_car(t10);
26890 t12=C_i_caddr(((C_word*)t0)[3]);
26891 t13=C_u_i_cdr(((C_word*)t0)[3]);
26892 t14=C_u_i_cdr(t13);
26893 t15=(
26894 /* irregex-core.scm:3258: sre-sequence */
26895   f_18191(C_a_i(&a,3),C_u_i_cdr(t14))
26896 );
26897 t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24004,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t9,a[6]=((C_word*)t0)[5],a[7]=t7,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li138),tmp=(C_word)a,a+=11,tmp);
26898 t17=C_set_block_item(t3,0,t11);
26899 t18=C_set_block_item(t5,0,t12);
26900 t19=C_set_block_item(t7,0,t15);
26901 t20=C_set_block_item(t9,0,t16);
26902 t21=(C_truep(C_i_zerop(((C_word*)t3)[1]))?(C_truep(((C_word*)t5)[1])?C_i_zerop(((C_word*)t5)[1]):C_SCHEME_FALSE):C_SCHEME_FALSE);
26903 if(C_truep(t21)){
26904 t22=((C_word*)t0)[2];{
26905 C_word av2[2];
26906 av2[0]=t22;
26907 av2[1]=((C_word*)t0)[4];
26908 ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}
26909 else{
26910 t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24059,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t9,a[5]=((C_word)li140),tmp=(C_word)a,a+=6,tmp);
26911 t23=((C_word*)t0)[2];{
26912 C_word av2[2];
26913 av2[0]=t23;
26914 av2[1]=t22;
26915 ((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}}}
26916 
26917 /* f_23991 in k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_23991(C_word c,C_word * av)26918 static void C_ccall f_23991(C_word c,C_word *av){
26919 C_word tmp;
26920 C_word t0=av[0];
26921 C_word t1=av[1];
26922 C_word t2=av[2];
26923 C_word t3=av[3];
26924 C_word t4=av[4];
26925 C_word t5=av[5];
26926 C_word t6=av[6];
26927 C_word t7=av[7];
26928 C_word t8=av[8];
26929 C_word t9=av[9];
26930 C_word t10;
26931 C_word *a;
26932 if(c!=10) C_bad_argc_2(c,10,t0);
26933 C_check_for_interrupt;
26934 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
26935 C_save_and_reclaim((void *)f_23991,c,av);}
26936 /* irregex-core.scm:3253: fail */
26937 t10=t9;{
26938 C_word *av2=av;
26939 av2[0]=t10;
26940 av2[1]=t1;
26941 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
26942 
26943 /* body4587 in k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24004(C_word c,C_word * av)26944 static void C_ccall f_24004(C_word c,C_word *av){
26945 C_word tmp;
26946 C_word t0=av[0];
26947 C_word t1=av[1];
26948 C_word t2=av[2];
26949 C_word t3;
26950 C_word t4;
26951 C_word *a;
26952 if(c!=3) C_bad_argc_2(c,3,t0);
26953 C_check_for_interrupt;
26954 if(C_unlikely(!C_demand(C_calculate_demand(8,c,10)))){
26955 C_save_and_reclaim((void *)f_24004,c,av);}
26956 a=C_alloc(8);
26957 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24010,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li137),tmp=(C_word)a,a+=8,tmp);
26958 /* irregex-core.scm:3261: lp */
26959 t4=((C_word*)((C_word*)t0)[6])[1];
26960 f_23446(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);}
26961 
26962 /* a24009 in body4587 in k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in ... */
f_24010(C_word c,C_word * av)26963 static void C_ccall f_24010(C_word c,C_word *av){
26964 C_word tmp;
26965 C_word t0=av[0];
26966 C_word t1=av[1];
26967 C_word t2=av[2];
26968 C_word t3=av[3];
26969 C_word t4=av[4];
26970 C_word t5=av[5];
26971 C_word t6=av[6];
26972 C_word t7=av[7];
26973 C_word t8=av[8];
26974 C_word t9=av[9];
26975 C_word t10;
26976 C_word t11;
26977 C_word t12;
26978 C_word *a;
26979 if(c!=10) C_bad_argc_2(c,10,t0);
26980 C_check_for_interrupt;
26981 if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){
26982 C_save_and_reclaim((void *)f_24010,c,av);}
26983 a=C_alloc(14);
26984 t10=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_eqp(((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]):C_SCHEME_FALSE);
26985 if(C_truep(t10)){
26986 /* irregex-core.scm:3266: next */
26987 t11=((C_word*)t0)[4];{
26988 C_word *av2=av;
26989 av2[0]=t11;
26990 av2[1]=t1;
26991 av2[2]=t2;
26992 av2[3]=t3;
26993 av2[4]=t4;
26994 av2[5]=t5;
26995 av2[6]=t6;
26996 av2[7]=t7;
26997 av2[8]=t8;
26998 av2[9]=t9;
26999 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
27000 else{
27001 t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24023,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=t9,a[13]=t1,tmp=(C_word)a,a+=14,tmp);
27002 /* irregex-core.scm:3267: body */
27003 t12=((C_word*)((C_word*)t0)[6])[1];{
27004 C_word *av2=av;
27005 av2[0]=t12;
27006 av2[1]=t11;
27007 av2[2]=C_fixnum_plus(C_fix(1),((C_word*)t0)[3]);
27008 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}
27009 
27010 /* k24021 in a24009 in body4587 in k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in ... */
f_24023(C_word c,C_word * av)27011 static void C_ccall f_24023(C_word c,C_word *av){
27012 C_word tmp;
27013 C_word t0=av[0];
27014 C_word t1=av[1];
27015 C_word t2;
27016 C_word t3;
27017 C_word *a;
27018 C_check_for_interrupt;
27019 if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){
27020 C_save_and_reclaim((void *)f_24023,c,av);}
27021 a=C_alloc(14);
27022 t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24028,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],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word)li136),tmp=(C_word)a,a+=14,tmp);
27023 /* irregex-core.scm:3265: g4606 */
27024 t3=t1;{
27025 C_word *av2;
27026 if(c >= 10) {
27027   av2=av;
27028 } else {
27029   av2=C_alloc(10);
27030 }
27031 av2[0]=t3;
27032 av2[1]=((C_word*)t0)[13];
27033 av2[2]=((C_word*)t0)[5];
27034 av2[3]=((C_word*)t0)[6];
27035 av2[4]=((C_word*)t0)[7];
27036 av2[5]=((C_word*)t0)[8];
27037 av2[6]=((C_word*)t0)[9];
27038 av2[7]=((C_word*)t0)[10];
27039 av2[8]=((C_word*)t0)[11];
27040 av2[9]=t2;
27041 ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}
27042 
27043 /* a24027 in k24021 in a24009 in body4587 in k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in ... */
f_24028(C_word c,C_word * av)27044 static void C_ccall f_24028(C_word c,C_word *av){
27045 C_word tmp;
27046 C_word t0=av[0];
27047 C_word t1=av[1];
27048 C_word t2;
27049 C_word *a;
27050 if(c!=2) C_bad_argc_2(c,2,t0);
27051 C_check_for_interrupt;
27052 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27053 C_save_and_reclaim((void *)f_24028,c,av);}
27054 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]))){
27055 /* irregex-core.scm:3271: next */
27056 t2=((C_word*)t0)[4];{
27057 C_word *av2;
27058 if(c >= 10) {
27059   av2=av;
27060 } else {
27061   av2=C_alloc(10);
27062 }
27063 av2[0]=t2;
27064 av2[1]=t1;
27065 av2[2]=((C_word*)t0)[5];
27066 av2[3]=((C_word*)t0)[6];
27067 av2[4]=((C_word*)t0)[7];
27068 av2[5]=((C_word*)t0)[8];
27069 av2[6]=((C_word*)t0)[9];
27070 av2[7]=((C_word*)t0)[10];
27071 av2[8]=((C_word*)t0)[11];
27072 av2[9]=((C_word*)t0)[12];
27073 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27074 else{
27075 /* irregex-core.scm:3272: fail */
27076 t2=((C_word*)t0)[12];{
27077 C_word *av2=av;
27078 av2[0]=t2;
27079 av2[1]=t1;
27080 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
27081 
27082 /* f_24059 in k23988 in k23985 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24059(C_word c,C_word * av)27083 static void C_ccall f_24059(C_word c,C_word *av){
27084 C_word tmp;
27085 C_word t0=av[0];
27086 C_word t1=av[1];
27087 C_word t2=av[2];
27088 C_word t3=av[3];
27089 C_word t4=av[4];
27090 C_word t5=av[5];
27091 C_word t6=av[6];
27092 C_word t7=av[7];
27093 C_word t8=av[8];
27094 C_word t9=av[9];
27095 C_word t10;
27096 C_word t11;
27097 C_word *a;
27098 if(c!=10) C_bad_argc_2(c,10,t0);
27099 C_check_for_interrupt;
27100 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
27101 C_save_and_reclaim((void *)f_24059,c,av);}
27102 a=C_alloc(13);
27103 t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24063,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,a[12]=t1,tmp=(C_word)a,a+=13,tmp);
27104 /* irregex-core.scm:3276: body */
27105 t11=((C_word*)((C_word*)t0)[4])[1];{
27106 C_word *av2=av;
27107 av2[0]=t11;
27108 av2[1]=t10;
27109 av2[2]=C_fix(1);
27110 ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
27111 
27112 /* k24061 */
f_24063(C_word c,C_word * av)27113 static void C_ccall f_24063(C_word c,C_word *av){
27114 C_word tmp;
27115 C_word t0=av[0];
27116 C_word t1=av[1];
27117 C_word t2;
27118 C_word t3;
27119 C_word *a;
27120 C_check_for_interrupt;
27121 if(C_unlikely(!C_demand(C_calculate_demand(13,c,9)))){
27122 C_save_and_reclaim((void *)f_24063,c,av);}
27123 a=C_alloc(13);
27124 t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24068,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],a[11]=((C_word*)t0)[11],a[12]=((C_word)li139),tmp=(C_word)a,a+=13,tmp);
27125 /* irregex-core.scm:3275: g4618 */
27126 t3=t1;{
27127 C_word *av2;
27128 if(c >= 10) {
27129   av2=av;
27130 } else {
27131   av2=C_alloc(10);
27132 }
27133 av2[0]=t3;
27134 av2[1]=((C_word*)t0)[12];
27135 av2[2]=((C_word*)t0)[4];
27136 av2[3]=((C_word*)t0)[5];
27137 av2[4]=((C_word*)t0)[6];
27138 av2[5]=((C_word*)t0)[7];
27139 av2[6]=((C_word*)t0)[8];
27140 av2[7]=((C_word*)t0)[9];
27141 av2[8]=((C_word*)t0)[10];
27142 av2[9]=t2;
27143 ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}
27144 
27145 /* a24067 in k24061 */
f_24068(C_word c,C_word * av)27146 static void C_ccall f_24068(C_word c,C_word *av){
27147 C_word tmp;
27148 C_word t0=av[0];
27149 C_word t1=av[1];
27150 C_word t2;
27151 C_word *a;
27152 if(c!=2) C_bad_argc_2(c,2,t0);
27153 C_check_for_interrupt;
27154 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27155 C_save_and_reclaim((void *)f_24068,c,av);}
27156 if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[2])[1]))){
27157 /* irregex-core.scm:3279: next */
27158 t2=((C_word*)t0)[3];{
27159 C_word *av2;
27160 if(c >= 10) {
27161   av2=av;
27162 } else {
27163   av2=C_alloc(10);
27164 }
27165 av2[0]=t2;
27166 av2[1]=t1;
27167 av2[2]=((C_word*)t0)[4];
27168 av2[3]=((C_word*)t0)[5];
27169 av2[4]=((C_word*)t0)[6];
27170 av2[5]=((C_word*)t0)[7];
27171 av2[6]=((C_word*)t0)[8];
27172 av2[7]=((C_word*)t0)[9];
27173 av2[8]=((C_word*)t0)[10];
27174 av2[9]=((C_word*)t0)[11];
27175 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27176 else{
27177 /* irregex-core.scm:3280: fail */
27178 t2=((C_word*)t0)[11];{
27179 C_word *av2=av;
27180 av2[0]=t2;
27181 av2[1]=t1;
27182 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
27183 
27184 /* k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24139(C_word t0,C_word t1)27185 static void C_fcall f_24139(C_word t0,C_word t1){
27186 C_word tmp;
27187 C_word t2;
27188 C_word t3;
27189 C_word t4;
27190 C_word t5;
27191 C_word *a;
27192 C_check_for_interrupt;
27193 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
27194 C_save_and_reclaim_args((void *)trf_24139,2,t0,t1);}
27195 a=C_alloc(8);
27196 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24142,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);
27197 if(C_truep(t1)){
27198 t3=t2;
27199 f_24142(t3,t1);}
27200 else{
27201 t3=C_u_i_cdr(((C_word*)t0)[3]);
27202 t4=C_i_not(C_u_i_car(t3));
27203 t5=t2;
27204 f_24142(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}}
27205 
27206 /* k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24142(C_word t0,C_word t1)27207 static void C_fcall f_24142(C_word t0,C_word t1){
27208 C_word tmp;
27209 C_word t2;
27210 C_word t3;
27211 C_word t4;
27212 C_word t5;
27213 C_word t6;
27214 C_word t7;
27215 C_word t8;
27216 C_word t9;
27217 C_word t10;
27218 C_word t11;
27219 C_word t12;
27220 C_word t13;
27221 C_word t14;
27222 C_word t15;
27223 C_word t16;
27224 C_word t17;
27225 C_word t18;
27226 C_word t19;
27227 C_word t20;
27228 C_word t21;
27229 C_word t22;
27230 C_word *a;
27231 C_check_for_interrupt;
27232 if(C_unlikely(!C_demand(C_calculate_demand(28,0,10)))){
27233 C_save_and_reclaim_args((void *)trf_24142,2,t0,t1);}
27234 a=C_alloc(28);
27235 if(C_truep(t1)){
27236 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24143,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp);
27237 t3=((C_word*)t0)[2];{
27238 C_word av2[2];
27239 av2[0]=t3;
27240 av2[1]=t2;
27241 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
27242 else{
27243 t2=C_SCHEME_UNDEFINED;
27244 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
27245 t4=C_SCHEME_UNDEFINED;
27246 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
27247 t6=C_SCHEME_UNDEFINED;
27248 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
27249 t8=C_SCHEME_UNDEFINED;
27250 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
27251 t10=C_u_i_cdr(((C_word*)t0)[3]);
27252 t11=C_u_i_car(t10);
27253 t12=C_i_caddr(((C_word*)t0)[3]);
27254 t13=C_u_i_cdr(((C_word*)t0)[3]);
27255 t14=C_u_i_cdr(t13);
27256 t15=(
27257 /* irregex-core.scm:3292: sre-sequence */
27258   f_18191(C_a_i(&a,3),C_u_i_cdr(t14))
27259 );
27260 t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24156,a[2]=t3,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t7,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li144),tmp=(C_word)a,a+=11,tmp);
27261 t17=C_set_block_item(t3,0,t11);
27262 t18=C_set_block_item(t5,0,t12);
27263 t19=C_set_block_item(t7,0,t15);
27264 t20=C_set_block_item(t9,0,t16);
27265 t21=(C_truep(C_i_zerop(((C_word*)t3)[1]))?(C_truep(((C_word*)t5)[1])?C_i_zerop(((C_word*)t5)[1]):C_SCHEME_FALSE):C_SCHEME_FALSE);
27266 t22=((C_word*)t0)[2];{
27267 C_word av2[2];
27268 av2[0]=t22;
27269 av2[1]=(C_truep(t21)?((C_word*)t0)[4]:(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24218,a[2]=t3,a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=((C_word)li146),tmp=(C_word)a,a+=6,tmp));
27270 ((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}}
27271 
27272 /* f_24143 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24143(C_word c,C_word * av)27273 static void C_ccall f_24143(C_word c,C_word *av){
27274 C_word tmp;
27275 C_word t0=av[0];
27276 C_word t1=av[1];
27277 C_word t2=av[2];
27278 C_word t3=av[3];
27279 C_word t4=av[4];
27280 C_word t5=av[5];
27281 C_word t6=av[6];
27282 C_word t7=av[7];
27283 C_word t8=av[8];
27284 C_word t9=av[9];
27285 C_word t10;
27286 C_word *a;
27287 if(c!=10) C_bad_argc_2(c,10,t0);
27288 C_check_for_interrupt;
27289 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
27290 C_save_and_reclaim((void *)f_24143,c,av);}
27291 /* irregex-core.scm:3287: fail */
27292 t10=t9;{
27293 C_word *av2=av;
27294 av2[0]=t10;
27295 av2[1]=t1;
27296 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
27297 
27298 /* body4645 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24156(C_word c,C_word * av)27299 static void C_ccall f_24156(C_word c,C_word *av){
27300 C_word tmp;
27301 C_word t0=av[0];
27302 C_word t1=av[1];
27303 C_word t2=av[2];
27304 C_word t3;
27305 C_word t4;
27306 C_word *a;
27307 if(c!=3) C_bad_argc_2(c,3,t0);
27308 C_check_for_interrupt;
27309 if(C_unlikely(!C_demand(C_calculate_demand(8,c,10)))){
27310 C_save_and_reclaim((void *)f_24156,c,av);}
27311 a=C_alloc(8);
27312 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24162,a[2]=t2,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)li143),tmp=(C_word)a,a+=8,tmp);
27313 /* irregex-core.scm:3295: lp */
27314 t4=((C_word*)((C_word*)t0)[6])[1];
27315 f_23446(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);}
27316 
27317 /* a24161 in body4645 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in ... */
f_24162(C_word c,C_word * av)27318 static void C_ccall f_24162(C_word c,C_word *av){
27319 C_word tmp;
27320 C_word t0=av[0];
27321 C_word t1=av[1];
27322 C_word t2=av[2];
27323 C_word t3=av[3];
27324 C_word t4=av[4];
27325 C_word t5=av[5];
27326 C_word t6=av[6];
27327 C_word t7=av[7];
27328 C_word t8=av[8];
27329 C_word t9=av[9];
27330 C_word t10;
27331 C_word t11;
27332 C_word *a;
27333 if(c!=10) C_bad_argc_2(c,10,t0);
27334 C_check_for_interrupt;
27335 if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){
27336 C_save_and_reclaim((void *)f_24162,c,av);}
27337 a=C_alloc(14);
27338 if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]))){
27339 t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24172,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,tmp=(C_word)a,a+=11,tmp);
27340 /* irregex-core.scm:3300: body */
27341 t11=((C_word*)((C_word*)t0)[4])[1];{
27342 C_word *av2=av;
27343 av2[0]=t11;
27344 av2[1]=t10;
27345 av2[2]=C_fixnum_plus(C_fix(1),((C_word*)t0)[2]);
27346 ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
27347 else{
27348 t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24184,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=((C_word*)t0)[4],a[13]=((C_word)li142),tmp=(C_word)a,a+=14,tmp);
27349 /* irregex-core.scm:3302: next */
27350 t11=((C_word*)t0)[6];{
27351 C_word *av2=av;
27352 av2[0]=t11;
27353 av2[1]=t1;
27354 av2[2]=t2;
27355 av2[3]=t3;
27356 av2[4]=t4;
27357 av2[5]=t5;
27358 av2[6]=t6;
27359 av2[7]=t7;
27360 av2[8]=t8;
27361 av2[9]=t10;
27362 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}}
27363 
27364 /* k24170 in a24161 in body4645 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in ... */
f_24172(C_word c,C_word * av)27365 static void C_ccall f_24172(C_word c,C_word *av){
27366 C_word tmp;
27367 C_word t0=av[0];
27368 C_word t1=av[1];
27369 C_word t2;
27370 C_word *a;
27371 C_check_for_interrupt;
27372 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27373 C_save_and_reclaim((void *)f_24172,c,av);}
27374 /* irregex-core.scm:3299: g4663 */
27375 t2=t1;{
27376 C_word *av2;
27377 if(c >= 10) {
27378   av2=av;
27379 } else {
27380   av2=C_alloc(10);
27381 }
27382 av2[0]=t2;
27383 av2[1]=((C_word*)t0)[2];
27384 av2[2]=((C_word*)t0)[3];
27385 av2[3]=((C_word*)t0)[4];
27386 av2[4]=((C_word*)t0)[5];
27387 av2[5]=((C_word*)t0)[6];
27388 av2[6]=((C_word*)t0)[7];
27389 av2[7]=((C_word*)t0)[8];
27390 av2[8]=((C_word*)t0)[9];
27391 av2[9]=((C_word*)t0)[10];
27392 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27393 
27394 /* a24183 in a24161 in body4645 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in ... */
f_24184(C_word c,C_word * av)27395 static void C_ccall f_24184(C_word c,C_word *av){
27396 C_word tmp;
27397 C_word t0=av[0];
27398 C_word t1=av[1];
27399 C_word t2;
27400 C_word t3;
27401 C_word t4;
27402 C_word *a;
27403 if(c!=2) C_bad_argc_2(c,2,t0);
27404 C_check_for_interrupt;
27405 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
27406 C_save_and_reclaim((void *)f_24184,c,av);}
27407 a=C_alloc(11);
27408 t2=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_eqp(((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]):C_SCHEME_FALSE);
27409 if(C_truep(t2)){
27410 /* irregex-core.scm:3305: fail */
27411 t3=((C_word*)t0)[4];{
27412 C_word *av2=av;
27413 av2[0]=t3;
27414 av2[1]=t1;
27415 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
27416 else{
27417 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24197,a[2]=t1,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)[4],tmp=(C_word)a,a+=11,tmp);
27418 /* irregex-core.scm:3306: body */
27419 t4=((C_word*)((C_word*)t0)[12])[1];{
27420 C_word *av2;
27421 if(c >= 3) {
27422   av2=av;
27423 } else {
27424   av2=C_alloc(3);
27425 }
27426 av2[0]=t4;
27427 av2[1]=t3;
27428 av2[2]=C_fixnum_plus(C_fix(1),((C_word*)t0)[3]);
27429 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
27430 
27431 /* k24195 in a24183 in a24161 in body4645 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in ... */
f_24197(C_word c,C_word * av)27432 static void C_ccall f_24197(C_word c,C_word *av){
27433 C_word tmp;
27434 C_word t0=av[0];
27435 C_word t1=av[1];
27436 C_word t2;
27437 C_word *a;
27438 C_check_for_interrupt;
27439 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27440 C_save_and_reclaim((void *)f_24197,c,av);}
27441 /* irregex-core.scm:3304: g4666 */
27442 t2=t1;{
27443 C_word *av2;
27444 if(c >= 10) {
27445   av2=av;
27446 } else {
27447   av2=C_alloc(10);
27448 }
27449 av2[0]=t2;
27450 av2[1]=((C_word*)t0)[2];
27451 av2[2]=((C_word*)t0)[3];
27452 av2[3]=((C_word*)t0)[4];
27453 av2[4]=((C_word*)t0)[5];
27454 av2[5]=((C_word*)t0)[6];
27455 av2[6]=((C_word*)t0)[7];
27456 av2[7]=((C_word*)t0)[8];
27457 av2[8]=((C_word*)t0)[9];
27458 av2[9]=((C_word*)t0)[10];
27459 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27460 
27461 /* f_24218 in k24140 in k24137 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24218(C_word c,C_word * av)27462 static void C_ccall f_24218(C_word c,C_word *av){
27463 C_word tmp;
27464 C_word t0=av[0];
27465 C_word t1=av[1];
27466 C_word t2=av[2];
27467 C_word t3=av[3];
27468 C_word t4=av[4];
27469 C_word t5=av[5];
27470 C_word t6=av[6];
27471 C_word t7=av[7];
27472 C_word t8=av[8];
27473 C_word t9=av[9];
27474 C_word t10;
27475 C_word t11;
27476 C_word *a;
27477 if(c!=10) C_bad_argc_2(c,10,t0);
27478 C_check_for_interrupt;
27479 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
27480 C_save_and_reclaim((void *)f_24218,c,av);}
27481 a=C_alloc(12);
27482 if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[2])[1]))){
27483 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24228,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t8,a[9]=t9,a[10]=((C_word*)t0)[3],a[11]=((C_word)li145),tmp=(C_word)a,a+=12,tmp);
27484 /* irregex-core.scm:3312: next */
27485 t11=((C_word*)t0)[4];{
27486 C_word *av2=av;
27487 av2[0]=t11;
27488 av2[1]=t1;
27489 av2[2]=t2;
27490 av2[3]=t3;
27491 av2[4]=t4;
27492 av2[5]=t5;
27493 av2[6]=t6;
27494 av2[7]=t7;
27495 av2[8]=t8;
27496 av2[9]=t10;
27497 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
27498 else{
27499 t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24238,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,tmp=(C_word)a,a+=11,tmp);
27500 /* irregex-core.scm:3315: body */
27501 t11=((C_word*)((C_word*)t0)[3])[1];{
27502 C_word *av2=av;
27503 av2[0]=t11;
27504 av2[1]=t10;
27505 av2[2]=C_fix(1);
27506 ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}}
27507 
27508 /* a24227 */
f_24228(C_word c,C_word * av)27509 static void C_ccall f_24228(C_word c,C_word *av){
27510 C_word tmp;
27511 C_word t0=av[0];
27512 C_word t1=av[1];
27513 C_word t2;
27514 C_word t3;
27515 C_word *a;
27516 if(c!=2) C_bad_argc_2(c,2,t0);
27517 C_check_for_interrupt;
27518 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
27519 C_save_and_reclaim((void *)f_24228,c,av);}
27520 a=C_alloc(11);
27521 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24232,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);
27522 /* irregex-core.scm:3314: body */
27523 t3=((C_word*)((C_word*)t0)[10])[1];{
27524 C_word *av2;
27525 if(c >= 3) {
27526   av2=av;
27527 } else {
27528   av2=C_alloc(3);
27529 }
27530 av2[0]=t3;
27531 av2[1]=t2;
27532 av2[2]=C_fix(1);
27533 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
27534 
27535 /* k24230 in a24227 */
f_24232(C_word c,C_word * av)27536 static void C_ccall f_24232(C_word c,C_word *av){
27537 C_word tmp;
27538 C_word t0=av[0];
27539 C_word t1=av[1];
27540 C_word t2;
27541 C_word *a;
27542 C_check_for_interrupt;
27543 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27544 C_save_and_reclaim((void *)f_24232,c,av);}
27545 /* irregex-core.scm:3313: g4678 */
27546 t2=t1;{
27547 C_word *av2;
27548 if(c >= 10) {
27549   av2=av;
27550 } else {
27551   av2=C_alloc(10);
27552 }
27553 av2[0]=t2;
27554 av2[1]=((C_word*)t0)[2];
27555 av2[2]=((C_word*)t0)[3];
27556 av2[3]=((C_word*)t0)[4];
27557 av2[4]=((C_word*)t0)[5];
27558 av2[5]=((C_word*)t0)[6];
27559 av2[6]=((C_word*)t0)[7];
27560 av2[7]=((C_word*)t0)[8];
27561 av2[8]=((C_word*)t0)[9];
27562 av2[9]=((C_word*)t0)[10];
27563 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27564 
27565 /* k24236 */
f_24238(C_word c,C_word * av)27566 static void C_ccall f_24238(C_word c,C_word *av){
27567 C_word tmp;
27568 C_word t0=av[0];
27569 C_word t1=av[1];
27570 C_word t2;
27571 C_word *a;
27572 C_check_for_interrupt;
27573 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27574 C_save_and_reclaim((void *)f_24238,c,av);}
27575 /* irregex-core.scm:3311: g4680 */
27576 t2=t1;{
27577 C_word *av2;
27578 if(c >= 10) {
27579   av2=av;
27580 } else {
27581   av2=C_alloc(10);
27582 }
27583 av2[0]=t2;
27584 av2[1]=((C_word*)t0)[2];
27585 av2[2]=((C_word*)t0)[3];
27586 av2[3]=((C_word*)t0)[4];
27587 av2[4]=((C_word*)t0)[5];
27588 av2[5]=((C_word*)t0)[6];
27589 av2[6]=((C_word*)t0)[7];
27590 av2[7]=((C_word*)t0)[8];
27591 av2[8]=((C_word*)t0)[9];
27592 av2[9]=((C_word*)t0)[10];
27593 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27594 
27595 /* k24308 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24310(C_word c,C_word * av)27596 static void C_ccall f_24310(C_word c,C_word *av){
27597 C_word tmp;
27598 C_word t0=av[0];
27599 C_word t1=av[1];
27600 C_word t2;
27601 C_word t3;
27602 C_word t4;
27603 C_word *a;
27604 C_check_for_interrupt;
27605 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
27606 C_save_and_reclaim((void *)f_24310,c,av);}
27607 a=C_alloc(6);
27608 t2=C_a_i_cons(&a,2,lf[183],t1);
27609 t3=C_a_i_cons(&a,2,lf[115],t2);
27610 /* irregex-core.scm:3317: rec */
27611 t4=((C_word*)t0)[2];
27612 f_23449(t4,((C_word*)t0)[3],t3);}
27613 
27614 /* k24358 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24360(C_word c,C_word * av)27615 static void C_ccall f_24360(C_word c,C_word *av){
27616 C_word tmp;
27617 C_word t0=av[0];
27618 C_word t1=av[1];
27619 C_word t2;
27620 C_word *a;
27621 C_check_for_interrupt;
27622 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
27623 C_save_and_reclaim((void *)f_24360,c,av);}
27624 /* irregex-core.scm:3322: rec */
27625 t2=((C_word*)t0)[2];
27626 f_23449(t2,((C_word*)t0)[3],t1);}
27627 
27628 /* k24371 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24373(C_word c,C_word * av)27629 static void C_ccall f_24373(C_word c,C_word *av){
27630 C_word tmp;
27631 C_word t0=av[0];
27632 C_word t1=av[1];
27633 C_word t2;
27634 C_word *a;
27635 C_check_for_interrupt;
27636 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
27637 C_save_and_reclaim((void *)f_24373,c,av);}
27638 a=C_alloc(5);
27639 t2=((C_word*)t0)[2];{
27640 C_word *av2=av;
27641 av2[0]=t2;
27642 av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24374,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word)li148),tmp=(C_word)a,a+=5,tmp);
27643 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
27644 
27645 /* f_24374 in k24371 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24374(C_word c,C_word * av)27646 static void C_ccall f_24374(C_word c,C_word *av){
27647 C_word tmp;
27648 C_word t0=av[0];
27649 C_word t1=av[1];
27650 C_word t2=av[2];
27651 C_word t3=av[3];
27652 C_word t4=av[4];
27653 C_word t5=av[5];
27654 C_word t6=av[6];
27655 C_word t7=av[7];
27656 C_word t8=av[8];
27657 C_word t9=av[9];
27658 C_word t10;
27659 C_word t11;
27660 C_word t12;
27661 C_word *a;
27662 if(c!=10) C_bad_argc_2(c,10,t0);
27663 C_check_for_interrupt;
27664 if(C_unlikely(!C_demand(C_calculate_demand(15,c,9)))){
27665 C_save_and_reclaim((void *)f_24374,c,av);}
27666 a=C_alloc(15);
27667 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24381,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
27668 t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24389,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp);
27669 /* irregex-core.scm:3330: check */
27670 t12=((C_word*)t0)[3];{
27671 C_word *av2=av;
27672 av2[0]=t12;
27673 av2[1]=t10;
27674 av2[2]=t2;
27675 av2[3]=t3;
27676 av2[4]=t4;
27677 av2[5]=t5;
27678 av2[6]=t6;
27679 av2[7]=t7;
27680 av2[8]=t8;
27681 av2[9]=t11;
27682 ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}}
27683 
27684 /* k24379 */
f_24381(C_word c,C_word * av)27685 static void C_ccall f_24381(C_word c,C_word *av){
27686 C_word tmp;
27687 C_word t0=av[0];
27688 C_word t1=av[1];
27689 C_word t2;
27690 C_word *a;
27691 C_check_for_interrupt;
27692 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27693 C_save_and_reclaim((void *)f_24381,c,av);}
27694 if(C_truep(t1)){
27695 /* irregex-core.scm:3331: next */
27696 t2=((C_word*)t0)[2];{
27697 C_word *av2;
27698 if(c >= 10) {
27699   av2=av;
27700 } else {
27701   av2=C_alloc(10);
27702 }
27703 av2[0]=t2;
27704 av2[1]=((C_word*)t0)[3];
27705 av2[2]=((C_word*)t0)[4];
27706 av2[3]=((C_word*)t0)[5];
27707 av2[4]=((C_word*)t0)[6];
27708 av2[5]=((C_word*)t0)[7];
27709 av2[6]=((C_word*)t0)[8];
27710 av2[7]=((C_word*)t0)[9];
27711 av2[8]=((C_word*)t0)[10];
27712 av2[9]=((C_word*)t0)[11];
27713 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
27714 else{
27715 /* irregex-core.scm:3332: fail */
27716 t2=((C_word*)t0)[11];{
27717 C_word *av2=av;
27718 av2[0]=t2;
27719 av2[1]=((C_word*)t0)[3];
27720 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
27721 
27722 /* a24388 */
f_24389(C_word c,C_word * av)27723 static void C_ccall f_24389(C_word c,C_word *av){
27724 C_word tmp;
27725 C_word t0=av[0];
27726 C_word t1=av[1];
27727 C_word t2;
27728 C_word *a;
27729 if(c!=2) C_bad_argc_2(c,2,t0);
27730 C_check_for_interrupt;
27731 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
27732 C_save_and_reclaim((void *)f_24389,c,av);}
27733 t2=t1;{
27734 C_word *av2=av;
27735 av2[0]=t2;
27736 av2[1]=C_SCHEME_FALSE;
27737 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
27738 
27739 /* a24395 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24396(C_word c,C_word * av)27740 static void C_ccall f_24396(C_word c,C_word *av){
27741 C_word tmp;
27742 C_word t0=av[0];
27743 C_word t1=av[1];
27744 C_word t2=av[2];
27745 C_word t3=av[3];
27746 C_word t4=av[4];
27747 C_word t5=av[5];
27748 C_word t6=av[6];
27749 C_word t7=av[7];
27750 C_word t8=av[8];
27751 C_word t9=av[9];
27752 C_word t10;
27753 C_word *a;
27754 if(c!=10) C_bad_argc_2(c,10,t0);
27755 C_check_for_interrupt;
27756 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
27757 C_save_and_reclaim((void *)f_24396,c,av);}
27758 t10=t1;{
27759 C_word *av2=av;
27760 av2[0]=t10;
27761 av2[1]=t6;
27762 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
27763 
27764 /* k24406 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24408(C_word c,C_word * av)27765 static void C_ccall f_24408(C_word c,C_word *av){
27766 C_word tmp;
27767 C_word t0=av[0];
27768 C_word t1=av[1];
27769 C_word t2;
27770 C_word t3;
27771 C_word *a;
27772 C_check_for_interrupt;
27773 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
27774 C_save_and_reclaim((void *)f_24408,c,av);}
27775 a=C_alloc(5);
27776 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24409,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li151),tmp=(C_word)a,a+=5,tmp);
27777 t3=((C_word*)t0)[3];{
27778 C_word *av2=av;
27779 av2[0]=t3;
27780 av2[1]=t2;
27781 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
27782 
27783 /* f_24409 in k24406 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24409(C_word c,C_word * av)27784 static void C_ccall f_24409(C_word c,C_word *av){
27785 C_word tmp;
27786 C_word t0=av[0];
27787 C_word t1=av[1];
27788 C_word t2=av[2];
27789 C_word t3=av[3];
27790 C_word t4=av[4];
27791 C_word t5=av[5];
27792 C_word t6=av[6];
27793 C_word t7=av[7];
27794 C_word t8=av[8];
27795 C_word t9=av[9];
27796 C_word t10;
27797 C_word t11;
27798 C_word t12;
27799 C_word *a;
27800 if(c!=10) C_bad_argc_2(c,10,t0);
27801 C_check_for_interrupt;
27802 if(C_unlikely(!C_demand(C_calculate_demand(15,c,9)))){
27803 C_save_and_reclaim((void *)f_24409,c,av);}
27804 a=C_alloc(15);
27805 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24416,a[2]=t9,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,tmp=(C_word)a,a+=12,tmp);
27806 t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24424,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp);
27807 /* irregex-core.scm:3340: check */
27808 t12=((C_word*)t0)[3];{
27809 C_word *av2=av;
27810 av2[0]=t12;
27811 av2[1]=t10;
27812 av2[2]=t2;
27813 av2[3]=t3;
27814 av2[4]=t4;
27815 av2[5]=t5;
27816 av2[6]=t6;
27817 av2[7]=t7;
27818 av2[8]=t8;
27819 av2[9]=t11;
27820 ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}}
27821 
27822 /* k24414 */
f_24416(C_word c,C_word * av)27823 static void C_ccall f_24416(C_word c,C_word *av){
27824 C_word tmp;
27825 C_word t0=av[0];
27826 C_word t1=av[1];
27827 C_word t2;
27828 C_word *a;
27829 C_check_for_interrupt;
27830 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
27831 C_save_and_reclaim((void *)f_24416,c,av);}
27832 if(C_truep(t1)){
27833 /* irregex-core.scm:3341: fail */
27834 t2=((C_word*)t0)[2];{
27835 C_word *av2=av;
27836 av2[0]=t2;
27837 av2[1]=((C_word*)t0)[3];
27838 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
27839 else{
27840 /* irregex-core.scm:3342: next */
27841 t2=((C_word*)t0)[4];{
27842 C_word *av2;
27843 if(c >= 10) {
27844   av2=av;
27845 } else {
27846   av2=C_alloc(10);
27847 }
27848 av2[0]=t2;
27849 av2[1]=((C_word*)t0)[3];
27850 av2[2]=((C_word*)t0)[5];
27851 av2[3]=((C_word*)t0)[6];
27852 av2[4]=((C_word*)t0)[7];
27853 av2[5]=((C_word*)t0)[8];
27854 av2[6]=((C_word*)t0)[9];
27855 av2[7]=((C_word*)t0)[10];
27856 av2[8]=((C_word*)t0)[11];
27857 av2[9]=((C_word*)t0)[2];
27858 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}}
27859 
27860 /* a24423 */
f_24424(C_word c,C_word * av)27861 static void C_ccall f_24424(C_word c,C_word *av){
27862 C_word tmp;
27863 C_word t0=av[0];
27864 C_word t1=av[1];
27865 C_word t2;
27866 C_word *a;
27867 if(c!=2) C_bad_argc_2(c,2,t0);
27868 C_check_for_interrupt;
27869 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
27870 C_save_and_reclaim((void *)f_24424,c,av);}
27871 t2=t1;{
27872 C_word *av2=av;
27873 av2[0]=t2;
27874 av2[1]=C_SCHEME_FALSE;
27875 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
27876 
27877 /* a24430 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24431(C_word c,C_word * av)27878 static void C_ccall f_24431(C_word c,C_word *av){
27879 C_word tmp;
27880 C_word t0=av[0];
27881 C_word t1=av[1];
27882 C_word t2=av[2];
27883 C_word t3=av[3];
27884 C_word t4=av[4];
27885 C_word t5=av[5];
27886 C_word t6=av[6];
27887 C_word t7=av[7];
27888 C_word t8=av[8];
27889 C_word t9=av[9];
27890 C_word t10;
27891 C_word *a;
27892 if(c!=10) C_bad_argc_2(c,10,t0);
27893 C_check_for_interrupt;
27894 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
27895 C_save_and_reclaim((void *)f_24431,c,av);}
27896 t10=t1;{
27897 C_word *av2=av;
27898 av2[0]=t10;
27899 av2[1]=t6;
27900 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
27901 
27902 /* k24444 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24446(C_word c,C_word * av)27903 static void C_ccall f_24446(C_word c,C_word *av){
27904 C_word tmp;
27905 C_word t0=av[0];
27906 C_word t1=av[1];
27907 C_word t2;
27908 C_word *a;
27909 C_check_for_interrupt;
27910 if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){
27911 C_save_and_reclaim((void *)f_24446,c,av);}
27912 a=C_alloc(6);
27913 t2=((C_word*)t0)[2];{
27914 C_word *av2=av;
27915 av2[0]=t2;
27916 av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24447,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word)li157),tmp=(C_word)a,a+=6,tmp);
27917 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
27918 
27919 /* f_24447 in k24444 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24447(C_word c,C_word * av)27920 static void C_ccall f_24447(C_word c,C_word *av){
27921 C_word tmp;
27922 C_word t0=av[0];
27923 C_word t1=av[1];
27924 C_word t2=av[2];
27925 C_word t3=av[3];
27926 C_word t4=av[4];
27927 C_word t5=av[5];
27928 C_word t6=av[6];
27929 C_word t7=av[7];
27930 C_word t8=av[8];
27931 C_word t9=av[9];
27932 C_word t10;
27933 C_word t11;
27934 C_word t12;
27935 C_word t13;
27936 C_word t14;
27937 C_word t15;
27938 C_word *a;
27939 if(c!=10) C_bad_argc_2(c,10,t0);
27940 C_check_for_interrupt;
27941 if(C_unlikely(!C_demand(C_calculate_demand(25,c,7)))){
27942 C_save_and_reclaim((void *)f_24447,c,av);}
27943 a=C_alloc(25);
27944 t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24451,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=t9,a[13]=((C_word*)t0)[4],tmp=(C_word)a,a+=14,tmp);
27945 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8736,a[2]=t4,a[3]=t2,a[4]=((C_word)li155),tmp=(C_word)a,a+=5,tmp);
27946 t12=C_i_vector_ref(t2,C_fix(1));
27947 t13=C_i_vector_ref(t2,C_fix(2));
27948 t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8763,a[2]=t4,a[3]=t6,a[4]=t2,a[5]=((C_word)li156),tmp=(C_word)a,a+=6,tmp);
27949 /* irregex-core.scm:399: make-irregex-chunker */
27950 t15=*((C_word*)lf[45]+1);{
27951 C_word *av2=av;
27952 av2[0]=t15;
27953 av2[1]=t10;
27954 av2[2]=t11;
27955 av2[3]=t12;
27956 av2[4]=t13;
27957 av2[5]=t14;
27958 av2[6]=C_i_vector_ref(t2,C_fix(4));
27959 av2[7]=C_i_vector_ref(t2,C_fix(5));
27960 ((C_proc)(void*)(*((C_word*)t15+1)))(8,av2);}}
27961 
27962 /* k24449 */
f_24451(C_word c,C_word * av)27963 static void C_ccall f_24451(C_word c,C_word *av){
27964 C_word tmp;
27965 C_word t0=av[0];
27966 C_word t1=av[1];
27967 C_word t2;
27968 C_word t3;
27969 C_word t4;
27970 C_word *a;
27971 C_check_for_interrupt;
27972 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
27973 C_save_and_reclaim((void *)f_24451,c,av);}
27974 a=C_alloc(15);
27975 t2=C_i_vector_ref(t1,C_fix(1));
27976 t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_24457,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
27977 /* irregex-core.scm:3351: g4748 */
27978 t4=t2;{
27979 C_word *av2;
27980 if(c >= 3) {
27981   av2=av;
27982 } else {
27983   av2=C_alloc(3);
27984 }
27985 av2[0]=t4;
27986 av2[1]=t3;
27987 av2[2]=C_i_car(((C_word*)t0)[2]);
27988 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
27989 
27990 /* k24455 in k24449 */
f_24457(C_word c,C_word * av)27991 static void C_ccall f_24457(C_word c,C_word *av){
27992 C_word tmp;
27993 C_word t0=av[0];
27994 C_word t1=av[1];
27995 C_word t2;
27996 C_word t3;
27997 C_word t4;
27998 C_word t5;
27999 C_word *a;
28000 C_check_for_interrupt;
28001 if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
28002 C_save_and_reclaim((void *)f_24457,c,av);}
28003 a=C_alloc(17);
28004 t2=C_u_i_cdr(((C_word*)t0)[2]);
28005 t3=C_i_vector_ref(((C_word*)t0)[3],C_fix(3));
28006 t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_24464,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)[2],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)[3],a[15]=t1,a[16]=t2,tmp=(C_word)a,a+=17,tmp);
28007 /* irregex-core.scm:3351: g4752 */
28008 t5=t3;{
28009 C_word *av2;
28010 if(c >= 3) {
28011   av2=av;
28012 } else {
28013   av2=C_alloc(3);
28014 }
28015 av2[0]=t5;
28016 av2[1]=t4;
28017 av2[2]=C_u_i_car(((C_word*)t0)[2]);
28018 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
28019 
28020 /* k24462 in k24455 in k24449 */
f_24464(C_word c,C_word * av)28021 static void C_ccall f_24464(C_word c,C_word *av){
28022 C_word tmp;
28023 C_word t0=av[0];
28024 C_word t1=av[1];
28025 C_word t2;
28026 C_word t3;
28027 C_word t4;
28028 C_word t5;
28029 C_word t6;
28030 C_word t7;
28031 C_word t8;
28032 C_word t9;
28033 C_word *a;
28034 C_check_for_interrupt;
28035 if(C_unlikely(!C_demand(C_calculate_demand(22,c,9)))){
28036 C_save_and_reclaim((void *)f_24464,c,av);}
28037 a=C_alloc(22);
28038 t2=C_i_car(((C_word*)t0)[2]);
28039 t3=C_eqp(t2,lf[113]);
28040 t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24492,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp):*((C_word*)lf[236]+1));
28041 t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24473,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],tmp=(C_word)a,a+=12,tmp);
28042 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24483,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
28043 t7=C_u_i_car(((C_word*)t0)[6]);
28044 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24487,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp);
28045 /* irregex-core.scm:3356: check */
28046 t9=((C_word*)t0)[13];{
28047 C_word *av2;
28048 if(c >= 10) {
28049   av2=av;
28050 } else {
28051   av2=C_alloc(10);
28052 }
28053 av2[0]=t9;
28054 av2[1]=t6;
28055 av2[2]=((C_word*)t0)[14];
28056 av2[3]=((C_word*)t0)[6];
28057 av2[4]=t7;
28058 av2[5]=((C_word*)t0)[15];
28059 av2[6]=((C_word*)t0)[16];
28060 av2[7]=t1;
28061 av2[8]=((C_word*)t0)[11];
28062 av2[9]=t8;
28063 ((C_proc)(void*)(*((C_word*)t9+1)))(10,av2);}}
28064 
28065 /* k24471 in k24462 in k24455 in k24449 */
f_24473(C_word c,C_word * av)28066 static void C_ccall f_24473(C_word c,C_word *av){
28067 C_word tmp;
28068 C_word t0=av[0];
28069 C_word t1=av[1];
28070 C_word t2;
28071 C_word *a;
28072 C_check_for_interrupt;
28073 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
28074 C_save_and_reclaim((void *)f_24473,c,av);}
28075 if(C_truep(t1)){
28076 /* irregex-core.scm:3358: next */
28077 t2=((C_word*)t0)[2];{
28078 C_word *av2;
28079 if(c >= 10) {
28080   av2=av;
28081 } else {
28082   av2=C_alloc(10);
28083 }
28084 av2[0]=t2;
28085 av2[1]=((C_word*)t0)[3];
28086 av2[2]=((C_word*)t0)[4];
28087 av2[3]=((C_word*)t0)[5];
28088 av2[4]=((C_word*)t0)[6];
28089 av2[5]=((C_word*)t0)[7];
28090 av2[6]=((C_word*)t0)[8];
28091 av2[7]=((C_word*)t0)[9];
28092 av2[8]=((C_word*)t0)[10];
28093 av2[9]=((C_word*)t0)[11];
28094 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
28095 else{
28096 /* irregex-core.scm:3359: fail */
28097 t2=((C_word*)t0)[11];{
28098 C_word *av2=av;
28099 av2[0]=t2;
28100 av2[1]=((C_word*)t0)[3];
28101 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
28102 
28103 /* k24481 in k24462 in k24455 in k24449 */
f_24483(C_word c,C_word * av)28104 static void C_ccall f_24483(C_word c,C_word *av){
28105 C_word tmp;
28106 C_word t0=av[0];
28107 C_word t1=av[1];
28108 C_word t2;
28109 C_word *a;
28110 C_check_for_interrupt;
28111 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
28112 C_save_and_reclaim((void *)f_24483,c,av);}
28113 /* irregex-core.scm:3355: g4754 */
28114 t2=((C_word*)t0)[2];{
28115 C_word *av2;
28116 if(c >= 3) {
28117   av2=av;
28118 } else {
28119   av2=C_alloc(3);
28120 }
28121 av2[0]=t2;
28122 av2[1]=((C_word*)t0)[3];
28123 av2[2]=t1;
28124 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
28125 
28126 /* a24486 in k24462 in k24455 in k24449 */
f_24487(C_word c,C_word * av)28127 static void C_ccall f_24487(C_word c,C_word *av){
28128 C_word tmp;
28129 C_word t0=av[0];
28130 C_word t1=av[1];
28131 C_word t2;
28132 C_word *a;
28133 if(c!=2) C_bad_argc_2(c,2,t0);
28134 C_check_for_interrupt;
28135 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
28136 C_save_and_reclaim((void *)f_24487,c,av);}
28137 t2=t1;{
28138 C_word *av2=av;
28139 av2[0]=t2;
28140 av2[1]=C_SCHEME_FALSE;
28141 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
28142 
28143 /* f_24492 in k24462 in k24455 in k24449 */
f_24492(C_word c,C_word * av)28144 static void C_ccall f_24492(C_word c,C_word *av){
28145 C_word tmp;
28146 C_word t0=av[0];
28147 C_word t1=av[1];
28148 C_word t2=av[2];
28149 C_word t3;
28150 C_word *a;
28151 if(c!=3) C_bad_argc_2(c,3,t0);
28152 C_check_for_interrupt;
28153 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
28154 C_save_and_reclaim((void *)f_24492,c,av);}
28155 t3=t1;{
28156 C_word *av2=av;
28157 av2[0]=t3;
28158 av2[1]=t2;
28159 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
28160 
28161 /* a24508 in k24516 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24509(C_word c,C_word * av)28162 static void C_ccall f_24509(C_word c,C_word *av){
28163 C_word tmp;
28164 C_word t0=av[0];
28165 C_word t1=av[1];
28166 C_word t2=av[2];
28167 C_word t3=av[3];
28168 C_word t4=av[4];
28169 C_word t5=av[5];
28170 C_word t6=av[6];
28171 C_word t7=av[7];
28172 C_word t8=av[8];
28173 C_word t9=av[9];
28174 C_word t10;
28175 C_word *a;
28176 if(c!=10) C_bad_argc_2(c,10,t0);
28177 C_check_for_interrupt;
28178 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
28179 C_save_and_reclaim((void *)f_24509,c,av);}
28180 t10=t1;{
28181 C_word *av2=av;
28182 av2[0]=t10;
28183 av2[1]=t6;
28184 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
28185 
28186 /* k24516 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24518(C_word c,C_word * av)28187 static void C_ccall f_24518(C_word c,C_word *av){
28188 C_word tmp;
28189 C_word t0=av[0];
28190 C_word t1=av[1];
28191 C_word t2;
28192 C_word t3;
28193 C_word t4;
28194 C_word t5;
28195 C_word *a;
28196 C_check_for_interrupt;
28197 if(C_unlikely(!C_demand(C_calculate_demand(9,c,10)))){
28198 C_save_and_reclaim((void *)f_24518,c,av);}
28199 a=C_alloc(9);
28200 t2=C_a_i_cons(&a,2,lf[237],t1);
28201 t3=(
28202 /* irregex-core.scm:3345: sre-sequence */
28203   f_18191(C_a_i(&a,3),t2)
28204 );
28205 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24509,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp);
28206 /* irregex-core.scm:3345: lp */
28207 t5=((C_word*)((C_word*)t0)[2])[1];
28208 f_23446(t5,((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5],t4);}
28209 
28210 /* k24527 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24529(C_word c,C_word * av)28211 static void C_ccall f_24529(C_word c,C_word *av){
28212 C_word tmp;
28213 C_word t0=av[0];
28214 C_word t1=av[1];
28215 C_word t2;
28216 C_word t3;
28217 C_word *a;
28218 C_check_for_interrupt;
28219 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
28220 C_save_and_reclaim((void *)f_24529,c,av);}
28221 a=C_alloc(5);
28222 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24530,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li160),tmp=(C_word)a,a+=5,tmp);
28223 t3=((C_word*)t0)[3];{
28224 C_word *av2=av;
28225 av2[0]=t3;
28226 av2[1]=t2;
28227 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
28228 
28229 /* f_24530 in k24527 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24530(C_word c,C_word * av)28230 static void C_ccall f_24530(C_word c,C_word *av){
28231 C_word tmp;
28232 C_word t0=av[0];
28233 C_word t1=av[1];
28234 C_word t2=av[2];
28235 C_word t3=av[3];
28236 C_word t4=av[4];
28237 C_word t5=av[5];
28238 C_word t6=av[6];
28239 C_word t7=av[7];
28240 C_word t8=av[8];
28241 C_word t9=av[9];
28242 C_word t10;
28243 C_word t11;
28244 C_word t12;
28245 C_word *a;
28246 if(c!=10) C_bad_argc_2(c,10,t0);
28247 C_check_for_interrupt;
28248 if(C_unlikely(!C_demand(C_calculate_demand(14,c,9)))){
28249 C_save_and_reclaim((void *)f_24530,c,av);}
28250 a=C_alloc(14);
28251 t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24534,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t7,a[9]=t8,a[10]=t9,tmp=(C_word)a,a+=11,tmp);
28252 t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24545,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp);
28253 /* irregex-core.scm:3367: once */
28254 t12=((C_word*)t0)[3];{
28255 C_word *av2=av;
28256 av2[0]=t12;
28257 av2[1]=t10;
28258 av2[2]=t2;
28259 av2[3]=t3;
28260 av2[4]=t4;
28261 av2[5]=t5;
28262 av2[6]=t6;
28263 av2[7]=t7;
28264 av2[8]=t8;
28265 av2[9]=t11;
28266 ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}}
28267 
28268 /* k24532 */
f_24534(C_word c,C_word * av)28269 static void C_ccall f_24534(C_word c,C_word *av){
28270 C_word tmp;
28271 C_word t0=av[0];
28272 C_word t1=av[1];
28273 C_word t2;
28274 C_word *a;
28275 C_check_for_interrupt;
28276 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
28277 C_save_and_reclaim((void *)f_24534,c,av);}
28278 if(C_truep(t1)){
28279 /* irregex-core.scm:3369: next */
28280 t2=((C_word*)t0)[2];{
28281 C_word *av2;
28282 if(c >= 10) {
28283   av2=av;
28284 } else {
28285   av2=C_alloc(10);
28286 }
28287 av2[0]=t2;
28288 av2[1]=((C_word*)t0)[3];
28289 av2[2]=((C_word*)t0)[4];
28290 av2[3]=((C_word*)t0)[5];
28291 av2[4]=((C_word*)t0)[6];
28292 av2[5]=((C_word*)t0)[7];
28293 av2[6]=t1;
28294 av2[7]=((C_word*)t0)[8];
28295 av2[8]=((C_word*)t0)[9];
28296 av2[9]=((C_word*)t0)[10];
28297 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
28298 else{
28299 /* irregex-core.scm:3370: fail */
28300 t2=((C_word*)t0)[10];{
28301 C_word *av2=av;
28302 av2[0]=t2;
28303 av2[1]=((C_word*)t0)[3];
28304 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
28305 
28306 /* a24544 */
f_24545(C_word c,C_word * av)28307 static void C_ccall f_24545(C_word c,C_word *av){
28308 C_word tmp;
28309 C_word t0=av[0];
28310 C_word t1=av[1];
28311 C_word t2;
28312 C_word *a;
28313 if(c!=2) C_bad_argc_2(c,2,t0);
28314 C_check_for_interrupt;
28315 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
28316 C_save_and_reclaim((void *)f_24545,c,av);}
28317 t2=t1;{
28318 C_word *av2=av;
28319 av2[0]=t2;
28320 av2[1]=C_SCHEME_FALSE;
28321 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
28322 
28323 /* a24551 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24552(C_word c,C_word * av)28324 static void C_ccall f_24552(C_word c,C_word *av){
28325 C_word tmp;
28326 C_word t0=av[0];
28327 C_word t1=av[1];
28328 C_word t2=av[2];
28329 C_word t3=av[3];
28330 C_word t4=av[4];
28331 C_word t5=av[5];
28332 C_word t6=av[6];
28333 C_word t7=av[7];
28334 C_word t8=av[8];
28335 C_word t9=av[9];
28336 C_word t10;
28337 C_word *a;
28338 if(c!=10) C_bad_argc_2(c,10,t0);
28339 C_check_for_interrupt;
28340 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
28341 C_save_and_reclaim((void *)f_24552,c,av);}
28342 t10=t1;{
28343 C_word *av2=av;
28344 av2[0]=t10;
28345 av2[1]=t6;
28346 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
28347 
28348 /* k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24564(C_word c,C_word * av)28349 static void C_ccall f_24564(C_word c,C_word *av){
28350 C_word tmp;
28351 C_word t0=av[0];
28352 C_word t1=av[1];
28353 C_word t2;
28354 C_word t3;
28355 C_word *a;
28356 C_check_for_interrupt;
28357 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
28358 C_save_and_reclaim((void *)f_24564,c,av);}
28359 a=C_alloc(10);
28360 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24567,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]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
28361 /* irregex-core.scm:3373: lp */
28362 t3=((C_word*)((C_word*)t0)[5])[1];
28363 f_23446(t3,t2,C_i_caddr(((C_word*)t0)[2]),((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[6],t1),((C_word*)t0)[8]);}
28364 
28365 /* k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24567(C_word c,C_word * av)28366 static void C_ccall f_24567(C_word c,C_word *av){
28367 C_word tmp;
28368 C_word t0=av[0];
28369 C_word t1=av[1];
28370 C_word t2;
28371 C_word t3;
28372 C_word t4;
28373 C_word t5;
28374 C_word t6;
28375 C_word t7;
28376 C_word t8;
28377 C_word *a;
28378 C_check_for_interrupt;
28379 if(C_unlikely(!C_demand(C_calculate_demand(18,c,10)))){
28380 C_save_and_reclaim((void *)f_24567,c,av);}
28381 a=C_alloc(18);
28382 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24570,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);
28383 t3=C_i_cdddr(((C_word*)t0)[2]);
28384 if(C_truep(C_i_pairp(t3))){
28385 t4=C_i_cadddr(((C_word*)t0)[2]);
28386 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24683,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
28387 t6=C_u_i_cdr(((C_word*)t0)[2]);
28388 t7=C_u_i_cdr(t6);
28389 /* irregex-core.scm:3377: sre-count-submatches */
28390 f_16982(t5,C_u_i_car(t7));}
28391 else{
28392 t4=t2;{
28393 C_word *av2=av;
28394 av2[0]=t4;
28395 av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24688,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp);
28396 f_24570(2,av2);}}}
28397 
28398 /* k24568 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24570(C_word c,C_word * av)28399 static void C_ccall f_24570(C_word c,C_word *av){
28400 C_word tmp;
28401 C_word t0=av[0];
28402 C_word t1=av[1];
28403 C_word t2;
28404 C_word t3;
28405 C_word t4;
28406 C_word t5;
28407 C_word t6;
28408 C_word *a;
28409 C_check_for_interrupt;
28410 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
28411 C_save_and_reclaim((void *)f_24570,c,av);}
28412 a=C_alloc(10);
28413 t2=C_i_cadr(((C_word*)t0)[2]);
28414 t3=C_i_numberp(t2);
28415 t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24579,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],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);
28416 if(C_truep(t3)){
28417 t5=t4;
28418 f_24579(t5,t3);}
28419 else{
28420 t5=C_u_i_cdr(((C_word*)t0)[2]);
28421 t6=t4;
28422 f_24579(t6,C_i_symbolp(C_u_i_car(t5)));}}
28423 
28424 /* k24577 in k24568 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in ... */
f_24579(C_word t0,C_word t1)28425 static void C_fcall f_24579(C_word t0,C_word t1){
28426 C_word tmp;
28427 C_word t2;
28428 C_word t3;
28429 C_word t4;
28430 C_word t5;
28431 C_word t6;
28432 C_word *a;
28433 C_check_for_interrupt;
28434 if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
28435 C_save_and_reclaim_args((void *)trf_24579,2,t0,t1);}
28436 a=C_alloc(5);
28437 if(C_truep(t1)){
28438 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24582,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);
28439 t3=C_u_i_cdr(((C_word*)t0)[5]);
28440 if(C_truep(C_i_symbolp(C_u_i_car(t3)))){
28441 t4=C_u_i_cdr(((C_word*)t0)[5]);
28442 t5=C_i_assq(C_u_i_car(t4),((C_word*)((C_word*)t0)[6])[1]);
28443 if(C_truep(t5)){
28444 t6=t2;{
28445 C_word av2[2];
28446 av2[0]=t6;
28447 av2[1]=C_i_cdr(t5);
28448 f_24582(2,av2);}}
28449 else{
28450 /* irregex-core.scm:3389: chicken.base#error */
28451 t6=*((C_word*)lf[30]+1);{
28452 C_word av2[4];
28453 av2[0]=t6;
28454 av2[1]=t2;
28455 av2[2]=lf[240];
28456 av2[3]=((C_word*)t0)[5];
28457 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}
28458 else{
28459 t4=t2;{
28460 C_word av2[2];
28461 av2[0]=t4;
28462 av2[1]=C_i_cadr(((C_word*)t0)[5]);
28463 f_24582(2,av2);}}}
28464 else{
28465 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24640,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
28466 /* irregex-core.scm:3396: lp */
28467 t3=((C_word*)((C_word*)t0)[7])[1];
28468 f_23446(t3,t2,C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[2]);}}
28469 
28470 /* k24580 in k24577 in k24568 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in ... */
f_24582(C_word c,C_word * av)28471 static void C_ccall f_24582(C_word c,C_word *av){
28472 C_word tmp;
28473 C_word t0=av[0];
28474 C_word t1=av[1];
28475 C_word t2;
28476 C_word t3;
28477 C_word *a;
28478 C_check_for_interrupt;
28479 if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){
28480 C_save_and_reclaim((void *)f_24582,c,av);}
28481 a=C_alloc(6);
28482 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24583,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li162),tmp=(C_word)a,a+=6,tmp);
28483 t3=((C_word*)t0)[4];{
28484 C_word *av2=av;
28485 av2[0]=t3;
28486 av2[1]=t2;
28487 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
28488 
28489 /* f_24583 in k24580 in k24577 in k24568 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in ... */
f_24583(C_word c,C_word * av)28490 static void C_ccall f_24583(C_word c,C_word *av){
28491 C_word tmp;
28492 C_word t0=av[0];
28493 C_word t1=av[1];
28494 C_word t2=av[2];
28495 C_word t3=av[3];
28496 C_word t4=av[4];
28497 C_word t5=av[5];
28498 C_word t6=av[6];
28499 C_word t7=av[7];
28500 C_word t8=av[8];
28501 C_word t9=av[9];
28502 C_word t10;
28503 C_word t11;
28504 C_word t12;
28505 C_word t13;
28506 C_word *a;
28507 if(c!=10) C_bad_argc_2(c,10,t0);
28508 C_check_for_interrupt;
28509 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
28510 C_save_and_reclaim((void *)f_24583,c,av);}
28511 t10=C_slot(t8,C_fix(1));
28512 t11=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
28513 t12=C_fixnum_plus(C_fix(2),t11);
28514 if(C_truep(C_slot(t10,t12))){
28515 /* irregex-core.scm:3393: pass */
28516 t13=((C_word*)t0)[3];{
28517 C_word *av2=av;
28518 av2[0]=t13;
28519 av2[1]=t1;
28520 av2[2]=t2;
28521 av2[3]=t3;
28522 av2[4]=t4;
28523 av2[5]=t5;
28524 av2[6]=t6;
28525 av2[7]=t7;
28526 av2[8]=t8;
28527 av2[9]=t9;
28528 ((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}}
28529 else{
28530 /* irregex-core.scm:3394: fail */
28531 t13=((C_word*)t0)[4];{
28532 C_word *av2=av;
28533 av2[0]=t13;
28534 av2[1]=t1;
28535 av2[2]=t2;
28536 av2[3]=t3;
28537 av2[4]=t4;
28538 av2[5]=t5;
28539 av2[6]=t6;
28540 av2[7]=t7;
28541 av2[8]=t8;
28542 av2[9]=t9;
28543 ((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}}}
28544 
28545 /* k24638 in k24577 in k24568 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in ... */
f_24640(C_word c,C_word * av)28546 static void C_ccall f_24640(C_word c,C_word *av){
28547 C_word tmp;
28548 C_word t0=av[0];
28549 C_word t1=av[1];
28550 C_word t2;
28551 C_word t3;
28552 C_word *a;
28553 C_check_for_interrupt;
28554 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
28555 C_save_and_reclaim((void *)f_24640,c,av);}
28556 a=C_alloc(5);
28557 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24641,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li164),tmp=(C_word)a,a+=5,tmp);
28558 t3=((C_word*)t0)[3];{
28559 C_word *av2=av;
28560 av2[0]=t3;
28561 av2[1]=t2;
28562 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
28563 
28564 /* f_24641 in k24638 in k24577 in k24568 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in ... */
f_24641(C_word c,C_word * av)28565 static void C_ccall f_24641(C_word c,C_word *av){
28566 C_word tmp;
28567 C_word t0=av[0];
28568 C_word t1=av[1];
28569 C_word t2=av[2];
28570 C_word t3=av[3];
28571 C_word t4=av[4];
28572 C_word t5=av[5];
28573 C_word t6=av[6];
28574 C_word t7=av[7];
28575 C_word t8=av[8];
28576 C_word t9=av[9];
28577 C_word t10;
28578 C_word t11;
28579 C_word *a;
28580 if(c!=10) C_bad_argc_2(c,10,t0);
28581 C_check_for_interrupt;
28582 if(C_unlikely(!C_demand(C_calculate_demand(12,c,9)))){
28583 C_save_and_reclaim((void *)f_24641,c,av);}
28584 a=C_alloc(12);
28585 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24647,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li163),tmp=(C_word)a,a+=12,tmp);
28586 /* irregex-core.scm:3398: test */
28587 t11=((C_word*)t0)[3];{
28588 C_word *av2=av;
28589 av2[0]=t11;
28590 av2[1]=t1;
28591 av2[2]=t2;
28592 av2[3]=t3;
28593 av2[4]=t4;
28594 av2[5]=t5;
28595 av2[6]=t6;
28596 av2[7]=t7;
28597 av2[8]=t8;
28598 av2[9]=t10;
28599 ((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}
28600 
28601 /* a24646 */
f_24647(C_word c,C_word * av)28602 static void C_ccall f_24647(C_word c,C_word *av){
28603 C_word tmp;
28604 C_word t0=av[0];
28605 C_word t1=av[1];
28606 C_word t2;
28607 C_word *a;
28608 if(c!=2) C_bad_argc_2(c,2,t0);
28609 C_check_for_interrupt;
28610 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
28611 C_save_and_reclaim((void *)f_24647,c,av);}
28612 /* irregex-core.scm:3399: fail */
28613 t2=((C_word*)t0)[2];{
28614 C_word *av2;
28615 if(c >= 10) {
28616   av2=av;
28617 } else {
28618   av2=C_alloc(10);
28619 }
28620 av2[0]=t2;
28621 av2[1]=t1;
28622 av2[2]=((C_word*)t0)[3];
28623 av2[3]=((C_word*)t0)[4];
28624 av2[4]=((C_word*)t0)[5];
28625 av2[5]=((C_word*)t0)[6];
28626 av2[6]=((C_word*)t0)[7];
28627 av2[7]=((C_word*)t0)[8];
28628 av2[8]=((C_word*)t0)[9];
28629 av2[9]=((C_word*)t0)[10];
28630 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
28631 
28632 /* k24681 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24683(C_word c,C_word * av)28633 static void C_ccall f_24683(C_word c,C_word *av){
28634 C_word tmp;
28635 C_word t0=av[0];
28636 C_word t1=av[1];
28637 C_word t2;
28638 C_word *a;
28639 C_check_for_interrupt;
28640 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
28641 C_save_and_reclaim((void *)f_24683,c,av);}
28642 /* irregex-core.scm:3375: lp */
28643 t2=((C_word*)((C_word*)t0)[2])[1];
28644 f_23446(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]),t1),((C_word*)t0)[7],((C_word*)t0)[8]);}
28645 
28646 /* f_24688 in k24565 in k24562 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24688(C_word c,C_word * av)28647 static void C_ccall f_24688(C_word c,C_word *av){
28648 C_word tmp;
28649 C_word t0=av[0];
28650 C_word t1=av[1];
28651 C_word t2=av[2];
28652 C_word t3=av[3];
28653 C_word t4=av[4];
28654 C_word t5=av[5];
28655 C_word t6=av[6];
28656 C_word t7=av[7];
28657 C_word t8=av[8];
28658 C_word t9=av[9];
28659 C_word t10;
28660 C_word *a;
28661 if(c!=10) C_bad_argc_2(c,10,t0);
28662 C_check_for_interrupt;
28663 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
28664 C_save_and_reclaim((void *)f_24688,c,av);}
28665 /* irregex-core.scm:3381: fail */
28666 t10=t9;{
28667 C_word *av2=av;
28668 av2[0]=t10;
28669 av2[1]=t1;
28670 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
28671 
28672 /* k24718 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24720(C_word c,C_word * av)28673 static void C_ccall f_24720(C_word c,C_word *av){
28674 C_word tmp;
28675 C_word t0=av[0];
28676 C_word t1=av[1];
28677 C_word t2;
28678 C_word t3;
28679 C_word t4;
28680 C_word t5;
28681 C_word t6;
28682 C_word *a;
28683 C_check_for_interrupt;
28684 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
28685 C_save_and_reclaim((void *)f_24720,c,av);}
28686 a=C_alloc(5);
28687 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24723,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
28688 t3=C_eqp(C_u_i_car(((C_word*)t0)[4]),lf[191]);
28689 if(C_truep(t3)){
28690 t4=t2;
28691 f_24723(t4,(C_truep(t3)?*((C_word*)lf[241]+1):*((C_word*)lf[242]+1)));}
28692 else{
28693 t4=C_fixnum_and(((C_word*)t0)[5],C_fix(2));
28694 t5=C_eqp(C_fix(2),t4);
28695 t6=t2;
28696 f_24723(t6,(C_truep(t5)?*((C_word*)lf[241]+1):*((C_word*)lf[242]+1)));}}
28697 
28698 /* k24721 in k24718 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24723(C_word t0,C_word t1)28699 static void C_fcall f_24723(C_word t0,C_word t1){
28700 C_word tmp;
28701 C_word t2;
28702 C_word t3;
28703 C_word *a;
28704 C_check_for_interrupt;
28705 if(C_unlikely(!C_demand(C_calculate_demand(6,0,10)))){
28706 C_save_and_reclaim_args((void *)trf_24723,2,t0,t1);}
28707 a=C_alloc(6);
28708 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24724,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word)li167),tmp=(C_word)a,a+=6,tmp);
28709 t3=((C_word*)t0)[4];{
28710 C_word av2[2];
28711 av2[0]=t3;
28712 av2[1]=t2;
28713 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
28714 
28715 /* f_24724 in k24721 in k24718 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in ... */
f_24724(C_word c,C_word * av)28716 static void C_ccall f_24724(C_word c,C_word *av){
28717 C_word tmp;
28718 C_word t0=av[0];
28719 C_word t1=av[1];
28720 C_word t2=av[2];
28721 C_word t3=av[3];
28722 C_word t4=av[4];
28723 C_word t5=av[5];
28724 C_word t6=av[6];
28725 C_word t7=av[7];
28726 C_word t8=av[8];
28727 C_word t9=av[9];
28728 C_word t10;
28729 C_word t11;
28730 C_word *a;
28731 if(c!=10) C_bad_argc_2(c,10,t0);
28732 C_check_for_interrupt;
28733 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
28734 C_save_and_reclaim((void *)f_24724,c,av);}
28735 a=C_alloc(13);
28736 t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24728,a[2]=t9,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t8,a[8]=((C_word*)t0)[3],a[9]=t4,a[10]=t5,a[11]=t6,a[12]=t7,tmp=(C_word)a,a+=13,tmp);
28737 /* irregex-core.scm:3410: irregex-match-substring */
28738 t11=*((C_word*)lf[40]+1);{
28739 C_word *av2=av;
28740 av2[0]=t11;
28741 av2[1]=t10;
28742 av2[2]=t8;
28743 av2[3]=((C_word*)t0)[4];
28744 ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}
28745 
28746 /* k24726 */
f_24728(C_word c,C_word * av)28747 static void C_ccall f_24728(C_word c,C_word *av){
28748 C_word tmp;
28749 C_word t0=av[0];
28750 C_word t1=av[1];
28751 C_word t2;
28752 C_word t3;
28753 C_word t4;
28754 C_word t5;
28755 C_word t6;
28756 C_word *a;
28757 C_check_for_interrupt;
28758 if(C_unlikely(!C_demand(C_calculate_demand(13,c,8)))){
28759 C_save_and_reclaim((void *)f_24728,c,av);}
28760 a=C_alloc(13);
28761 if(C_truep(C_i_not(t1))){
28762 /* irregex-core.scm:3412: fail */
28763 t2=((C_word*)t0)[2];{
28764 C_word *av2=av;
28765 av2[0]=t2;
28766 av2[1]=((C_word*)t0)[3];
28767 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
28768 else{
28769 t2=C_i_string_length(t1);
28770 t3=C_SCHEME_UNDEFINED;
28771 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
28772 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24746,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)[2],a[7]=((C_word*)t0)[8],a[8]=t1,a[9]=t4,a[10]=((C_word)li166),tmp=(C_word)a,a+=11,tmp));
28773 t6=((C_word*)t4)[1];
28774 f_24746(t6,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],C_fix(0),t2);}}
28775 
28776 /* lp in k24726 */
f_24746(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7)28777 static void C_fcall f_24746(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){
28778 C_word tmp;
28779 C_word t8;
28780 C_word t9;
28781 C_word t10;
28782 C_word t11;
28783 C_word t12;
28784 C_word *a;
28785 C_check_for_interrupt;
28786 if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){
28787 C_save_and_reclaim_args((void *)trf_24746,8,t0,t1,t2,t3,t4,t5,t6,t7);}
28788 a=C_alloc(20);
28789 t8=C_fixnum_difference(t5,t4);
28790 if(C_truep(C_fixnum_less_or_equal_p(t7,t8))){
28791 t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24759,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,a[8]=t4,a[9]=t7,a[10]=t5,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp);
28792 t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24773,a[2]=((C_word*)t0)[7],a[3]=t9,a[4]=t3,a[5]=t4,a[6]=t7,tmp=(C_word)a,a+=7,tmp);
28793 /* irregex-core.scm:3423: scheme#substring */
28794 t11=*((C_word*)lf[46]+1);{
28795 C_word av2[5];
28796 av2[0]=t11;
28797 av2[1]=t10;
28798 av2[2]=((C_word*)t0)[8];
28799 av2[3]=t6;
28800 av2[4]=C_i_string_length(((C_word*)t0)[8]);
28801 ((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}
28802 else{
28803 t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24791,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t4,a[5]=t6,a[6]=((C_word*)t0)[9],a[7]=t1,a[8]=t7,a[9]=((C_word*)t0)[6],a[10]=t2,tmp=(C_word)a,a+=11,tmp);
28804 t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24846,a[2]=((C_word*)t0)[7],a[3]=t9,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
28805 t11=C_fixnum_difference(t5,t4);
28806 /* irregex-core.scm:3430: scheme#substring */
28807 t12=*((C_word*)lf[46]+1);{
28808 C_word av2[5];
28809 av2[0]=t12;
28810 av2[1]=t10;
28811 av2[2]=((C_word*)t0)[8];
28812 av2[3]=t6;
28813 av2[4]=C_fixnum_plus(t6,t11);
28814 ((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}}
28815 
28816 /* k24757 in lp in k24726 */
f_24759(C_word c,C_word * av)28817 static void C_ccall f_24759(C_word c,C_word *av){
28818 C_word tmp;
28819 C_word t0=av[0];
28820 C_word t1=av[1];
28821 C_word t2;
28822 C_word *a;
28823 C_check_for_interrupt;
28824 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
28825 C_save_and_reclaim((void *)f_24759,c,av);}
28826 if(C_truep(t1)){
28827 /* irregex-core.scm:3425: next */
28828 t2=((C_word*)t0)[2];{
28829 C_word *av2;
28830 if(c >= 10) {
28831   av2=av;
28832 } else {
28833   av2=C_alloc(10);
28834 }
28835 av2[0]=t2;
28836 av2[1]=((C_word*)t0)[3];
28837 av2[2]=((C_word*)t0)[4];
28838 av2[3]=((C_word*)t0)[5];
28839 av2[4]=((C_word*)t0)[6];
28840 av2[5]=((C_word*)t0)[7];
28841 av2[6]=C_fixnum_plus(((C_word*)t0)[8],((C_word*)t0)[9]);
28842 av2[7]=((C_word*)t0)[10];
28843 av2[8]=((C_word*)t0)[11];
28844 av2[9]=((C_word*)t0)[12];
28845 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
28846 else{
28847 /* irregex-core.scm:3427: fail */
28848 t2=((C_word*)t0)[12];{
28849 C_word *av2=av;
28850 av2[0]=t2;
28851 av2[1]=((C_word*)t0)[3];
28852 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
28853 
28854 /* k24771 in lp in k24726 */
f_24773(C_word c,C_word * av)28855 static void C_ccall f_24773(C_word c,C_word *av){
28856 C_word tmp;
28857 C_word t0=av[0];
28858 C_word t1=av[1];
28859 C_word t2;
28860 C_word t3;
28861 C_word *a;
28862 C_check_for_interrupt;
28863 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
28864 C_save_and_reclaim((void *)f_24773,c,av);}
28865 a=C_alloc(5);
28866 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24777,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
28867 /* irregex-core.scm:3424: scheme#substring */
28868 t3=*((C_word*)lf[46]+1);{
28869 C_word *av2;
28870 if(c >= 5) {
28871   av2=av;
28872 } else {
28873   av2=C_alloc(5);
28874 }
28875 av2[0]=t3;
28876 av2[1]=t2;
28877 av2[2]=((C_word*)t0)[4];
28878 av2[3]=((C_word*)t0)[5];
28879 av2[4]=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]);
28880 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
28881 
28882 /* k24775 in k24771 in lp in k24726 */
f_24777(C_word c,C_word * av)28883 static void C_ccall f_24777(C_word c,C_word *av){
28884 C_word tmp;
28885 C_word t0=av[0];
28886 C_word t1=av[1];
28887 C_word t2;
28888 C_word *a;
28889 C_check_for_interrupt;
28890 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
28891 C_save_and_reclaim((void *)f_24777,c,av);}
28892 /* irregex-core.scm:3423: compare */
28893 t2=((C_word*)t0)[2];{
28894 C_word *av2;
28895 if(c >= 4) {
28896   av2=av;
28897 } else {
28898   av2=C_alloc(4);
28899 }
28900 av2[0]=t2;
28901 av2[1]=((C_word*)t0)[3];
28902 av2[2]=((C_word*)t0)[4];
28903 av2[3]=t1;
28904 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
28905 
28906 /* k24789 in lp in k24726 */
f_24791(C_word c,C_word * av)28907 static void C_ccall f_24791(C_word c,C_word *av){
28908 C_word tmp;
28909 C_word t0=av[0];
28910 C_word t1=av[1];
28911 C_word t2;
28912 C_word t3;
28913 C_word t4;
28914 C_word *a;
28915 C_check_for_interrupt;
28916 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
28917 C_save_and_reclaim((void *)f_24791,c,av);}
28918 a=C_alloc(10);
28919 if(C_truep(t1)){
28920 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
28921 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24797,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);
28922 /* irregex-core.scm:3432: g4864 */
28923 t4=t2;{
28924 C_word *av2;
28925 if(c >= 3) {
28926   av2=av;
28927 } else {
28928   av2=C_alloc(3);
28929 }
28930 av2[0]=t4;
28931 av2[1]=t3;
28932 av2[2]=((C_word*)t0)[10];
28933 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
28934 else{
28935 /* irregex-core.scm:3442: fail */
28936 t2=((C_word*)t0)[9];{
28937 C_word *av2=av;
28938 av2[0]=t2;
28939 av2[1]=((C_word*)t0)[7];
28940 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
28941 
28942 /* k24795 in k24789 in lp in k24726 */
f_24797(C_word c,C_word * av)28943 static void C_ccall f_24797(C_word c,C_word *av){
28944 C_word tmp;
28945 C_word t0=av[0];
28946 C_word t1=av[1];
28947 C_word t2;
28948 C_word t3;
28949 C_word t4;
28950 C_word *a;
28951 C_check_for_interrupt;
28952 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
28953 C_save_and_reclaim((void *)f_24797,c,av);}
28954 a=C_alloc(10);
28955 if(C_truep(t1)){
28956 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
28957 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24810,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]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
28958 /* irregex-core.scm:3434: g4866 */
28959 t4=t2;{
28960 C_word *av2;
28961 if(c >= 3) {
28962   av2=av;
28963 } else {
28964   av2=C_alloc(3);
28965 }
28966 av2[0]=t4;
28967 av2[1]=t3;
28968 av2[2]=t1;
28969 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
28970 else{
28971 /* irregex-core.scm:3440: fail */
28972 t2=((C_word*)t0)[9];{
28973 C_word *av2=av;
28974 av2[0]=t2;
28975 av2[1]=((C_word*)t0)[7];
28976 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
28977 
28978 /* k24808 in k24795 in k24789 in lp in k24726 */
f_24810(C_word c,C_word * av)28979 static void C_ccall f_24810(C_word c,C_word *av){
28980 C_word tmp;
28981 C_word t0=av[0];
28982 C_word t1=av[1];
28983 C_word t2;
28984 C_word t3;
28985 C_word t4;
28986 C_word *a;
28987 C_check_for_interrupt;
28988 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
28989 C_save_and_reclaim((void *)f_24810,c,av);}
28990 a=C_alloc(11);
28991 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
28992 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24817,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]=t1,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
28993 /* irregex-core.scm:3434: g4868 */
28994 t4=t2;{
28995 C_word *av2;
28996 if(c >= 3) {
28997   av2=av;
28998 } else {
28999   av2=C_alloc(3);
29000 }
29001 av2[0]=t4;
29002 av2[1]=t3;
29003 av2[2]=((C_word*)t0)[8];
29004 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29005 
29006 /* k24815 in k24808 in k24795 in k24789 in lp in k24726 */
f_24817(C_word c,C_word * av)29007 static void C_ccall f_24817(C_word c,C_word *av){
29008 C_word tmp;
29009 C_word t0=av[0];
29010 C_word t1=av[1];
29011 C_word t2;
29012 C_word t3;
29013 C_word t4;
29014 C_word *a;
29015 C_check_for_interrupt;
29016 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
29017 C_save_and_reclaim((void *)f_24817,c,av);}
29018 a=C_alloc(11);
29019 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
29020 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24824,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]=t1,a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
29021 /* irregex-core.scm:3434: g4870 */
29022 t4=t2;{
29023 C_word *av2;
29024 if(c >= 3) {
29025   av2=av;
29026 } else {
29027   av2=C_alloc(3);
29028 }
29029 av2[0]=t4;
29030 av2[1]=t3;
29031 av2[2]=((C_word*)t0)[8];
29032 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29033 
29034 /* k24822 in k24815 in k24808 in k24795 in k24789 in lp in k24726 */
f_24824(C_word c,C_word * av)29035 static void C_ccall f_24824(C_word c,C_word *av){
29036 C_word tmp;
29037 C_word t0=av[0];
29038 C_word t1=av[1];
29039 C_word t2;
29040 C_word t3;
29041 C_word t4;
29042 C_word t5;
29043 C_word *a;
29044 C_check_for_interrupt;
29045 if(C_unlikely(!C_demand(C_calculate_demand(15,c,7)))){
29046 C_save_and_reclaim((void *)f_24824,c,av);}
29047 a=C_alloc(15);
29048 t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
29049 t3=C_s_a_u_i_integer_plus(&a,2,((C_word*)t0)[4],t2);
29050 t4=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
29051 /* irregex-core.scm:3434: lp */
29052 t5=((C_word*)((C_word*)t0)[5])[1];
29053 f_24746(t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t1,t3,C_fixnum_difference(((C_word*)t0)[10],t4));}
29054 
29055 /* k24844 in lp in k24726 */
f_24846(C_word c,C_word * av)29056 static void C_ccall f_24846(C_word c,C_word *av){
29057 C_word tmp;
29058 C_word t0=av[0];
29059 C_word t1=av[1];
29060 C_word t2;
29061 C_word t3;
29062 C_word *a;
29063 C_check_for_interrupt;
29064 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
29065 C_save_and_reclaim((void *)f_24846,c,av);}
29066 a=C_alloc(5);
29067 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
29068 /* irregex-core.scm:3431: scheme#substring */
29069 t3=*((C_word*)lf[46]+1);{
29070 C_word *av2;
29071 if(c >= 5) {
29072   av2=av;
29073 } else {
29074   av2=C_alloc(5);
29075 }
29076 av2[0]=t3;
29077 av2[1]=t2;
29078 av2[2]=((C_word*)t0)[4];
29079 av2[3]=((C_word*)t0)[5];
29080 av2[4]=((C_word*)t0)[6];
29081 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
29082 
29083 /* k24848 in k24844 in lp in k24726 */
f_24850(C_word c,C_word * av)29084 static void C_ccall f_24850(C_word c,C_word *av){
29085 C_word tmp;
29086 C_word t0=av[0];
29087 C_word t1=av[1];
29088 C_word t2;
29089 C_word *a;
29090 C_check_for_interrupt;
29091 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
29092 C_save_and_reclaim((void *)f_24850,c,av);}
29093 /* irregex-core.scm:3430: compare */
29094 t2=((C_word*)t0)[2];{
29095 C_word *av2;
29096 if(c >= 4) {
29097   av2=av;
29098 } else {
29099   av2=C_alloc(4);
29100 }
29101 av2[0]=t2;
29102 av2[1]=((C_word*)t0)[3];
29103 av2[2]=((C_word*)t0)[4];
29104 av2[3]=t1;
29105 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
29106 
29107 /* k24935 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_24937(C_word c,C_word * av)29108 static void C_ccall f_24937(C_word c,C_word *av){
29109 C_word tmp;
29110 C_word t0=av[0];
29111 C_word t1=av[1];
29112 C_word t2;
29113 C_word t3;
29114 C_word *a;
29115 C_check_for_interrupt;
29116 if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
29117 C_save_and_reclaim((void *)f_24937,c,av);}
29118 a=C_alloc(5);
29119 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24938,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li169),tmp=(C_word)a,a+=5,tmp);
29120 t3=((C_word*)t0)[3];{
29121 C_word *av2=av;
29122 av2[0]=t3;
29123 av2[1]=t2;
29124 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
29125 
29126 /* f_24938 in k24935 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_24938(C_word c,C_word * av)29127 static void C_ccall f_24938(C_word c,C_word *av){
29128 C_word tmp;
29129 C_word t0=av[0];
29130 C_word t1=av[1];
29131 C_word t2=av[2];
29132 C_word t3=av[3];
29133 C_word t4=av[4];
29134 C_word t5=av[5];
29135 C_word t6=av[6];
29136 C_word t7=av[7];
29137 C_word t8=av[8];
29138 C_word t9=av[9];
29139 C_word t10;
29140 C_word t11;
29141 C_word t12;
29142 C_word t13;
29143 C_word t14;
29144 C_word t15;
29145 C_word t16;
29146 C_word t17;
29147 C_word t18;
29148 C_word t19;
29149 C_word t20;
29150 C_word t21;
29151 C_word t22;
29152 C_word t23;
29153 C_word t24;
29154 C_word t25;
29155 C_word *a;
29156 if(c!=10) C_bad_argc_2(c,10,t0);
29157 C_check_for_interrupt;
29158 if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){
29159 C_save_and_reclaim((void *)f_24938,c,av);}
29160 a=C_alloc(8);
29161 t10=C_slot(t8,C_fix(1));
29162 t11=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29163 t12=C_slot(t10,t11);
29164 t13=C_slot(t8,C_fix(1));
29165 t14=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29166 t15=C_fixnum_plus(C_fix(1),t14);
29167 t16=C_slot(t13,t15);
29168 t17=C_slot(t8,C_fix(1));
29169 t18=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29170 t19=C_i_vector_set(t17,t18,t4);
29171 t20=C_slot(t8,C_fix(1));
29172 t21=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29173 t22=C_fixnum_plus(C_fix(1),t21);
29174 t23=C_i_vector_set(t20,t22,t6);
29175 t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24986,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t12,a[5]=t16,a[6]=t9,a[7]=((C_word)li168),tmp=(C_word)a,a+=8,tmp);
29176 /* irregex-core.scm:3469: body */
29177 t25=((C_word*)t0)[3];{
29178 C_word *av2=av;
29179 av2[0]=t25;
29180 av2[1]=t1;
29181 av2[2]=t2;
29182 av2[3]=t3;
29183 av2[4]=t4;
29184 av2[5]=t5;
29185 av2[6]=t6;
29186 av2[7]=t7;
29187 av2[8]=t8;
29188 av2[9]=t24;
29189 ((C_proc)(void*)(*((C_word*)t25+1)))(10,av2);}}
29190 
29191 /* a24985 */
f_24986(C_word c,C_word * av)29192 static void C_ccall f_24986(C_word c,C_word *av){
29193 C_word tmp;
29194 C_word t0=av[0];
29195 C_word t1=av[1];
29196 C_word t2;
29197 C_word t3;
29198 C_word t4;
29199 C_word t5;
29200 C_word t6;
29201 C_word t7;
29202 C_word t8;
29203 C_word t9;
29204 C_word *a;
29205 if(c!=2) C_bad_argc_2(c,2,t0);
29206 C_check_for_interrupt;
29207 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
29208 C_save_and_reclaim((void *)f_24986,c,av);}
29209 t2=C_slot(((C_word*)t0)[2],C_fix(1));
29210 t3=C_fixnum_times(((C_word*)t0)[3],C_fix(4));
29211 t4=C_i_vector_set(t2,t3,((C_word*)t0)[4]);
29212 t5=C_slot(((C_word*)t0)[2],C_fix(1));
29213 t6=C_fixnum_times(((C_word*)t0)[3],C_fix(4));
29214 t7=C_fixnum_plus(C_fix(1),t6);
29215 t8=C_i_vector_set(t5,t7,((C_word*)t0)[5]);
29216 /* irregex-core.scm:3475: fail */
29217 t9=((C_word*)t0)[6];{
29218 C_word *av2=av;
29219 av2[0]=t9;
29220 av2[1]=t1;
29221 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
29222 
29223 /* a25045 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25046(C_word c,C_word * av)29224 static void C_ccall f_25046(C_word c,C_word *av){
29225 C_word tmp;
29226 C_word t0=av[0];
29227 C_word t1=av[1];
29228 C_word t2=av[2];
29229 C_word t3=av[3];
29230 C_word t4=av[4];
29231 C_word t5=av[5];
29232 C_word t6=av[6];
29233 C_word t7=av[7];
29234 C_word t8=av[8];
29235 C_word t9=av[9];
29236 C_word t10;
29237 C_word t11;
29238 C_word t12;
29239 C_word t13;
29240 C_word t14;
29241 C_word t15;
29242 C_word t16;
29243 C_word t17;
29244 C_word t18;
29245 C_word t19;
29246 C_word t20;
29247 C_word t21;
29248 C_word t22;
29249 C_word t23;
29250 C_word t24;
29251 C_word t25;
29252 C_word t26;
29253 C_word *a;
29254 if(c!=10) C_bad_argc_2(c,10,t0);
29255 C_check_for_interrupt;
29256 if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){
29257 C_save_and_reclaim((void *)f_25046,c,av);}
29258 a=C_alloc(8);
29259 t10=C_slot(t8,C_fix(1));
29260 t11=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29261 t12=C_fixnum_plus(C_fix(2),t11);
29262 t13=C_slot(t10,t12);
29263 t14=C_slot(t8,C_fix(1));
29264 t15=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29265 t16=C_slot(t14,C_fixnum_plus(C_fix(3),t15));
29266 t17=C_slot(t8,C_fix(1));
29267 t18=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29268 t19=C_fixnum_plus(C_fix(2),t18);
29269 t20=C_i_vector_set(t17,t19,t4);
29270 t21=C_slot(t8,C_fix(1));
29271 t22=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
29272 t23=C_fixnum_plus(C_fix(3),t22);
29273 t24=C_i_vector_set(t21,t23,t6);
29274 t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25081,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t13,a[5]=t16,a[6]=t9,a[7]=((C_word)li170),tmp=(C_word)a,a+=8,tmp);
29275 /* irregex-core.scm:3457: next */
29276 t26=((C_word*)t0)[3];{
29277 C_word *av2=av;
29278 av2[0]=t26;
29279 av2[1]=t1;
29280 av2[2]=t2;
29281 av2[3]=t3;
29282 av2[4]=t4;
29283 av2[5]=t5;
29284 av2[6]=t6;
29285 av2[7]=t7;
29286 av2[8]=t8;
29287 av2[9]=t25;
29288 ((C_proc)(void*)(*((C_word*)t26+1)))(10,av2);}}
29289 
29290 /* a25080 in a25045 in k23486 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 in ... */
f_25081(C_word c,C_word * av)29291 static void C_ccall f_25081(C_word c,C_word *av){
29292 C_word tmp;
29293 C_word t0=av[0];
29294 C_word t1=av[1];
29295 C_word t2;
29296 C_word t3;
29297 C_word t4;
29298 C_word t5;
29299 C_word t6;
29300 C_word t7;
29301 C_word t8;
29302 C_word t9;
29303 C_word t10;
29304 C_word *a;
29305 if(c!=2) C_bad_argc_2(c,2,t0);
29306 C_check_for_interrupt;
29307 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
29308 C_save_and_reclaim((void *)f_25081,c,av);}
29309 t2=C_slot(((C_word*)t0)[2],C_fix(1));
29310 t3=C_fixnum_times(((C_word*)t0)[3],C_fix(4));
29311 t4=C_fixnum_plus(C_fix(2),t3);
29312 t5=C_i_vector_set(t2,t4,((C_word*)t0)[4]);
29313 t6=C_slot(((C_word*)t0)[2],C_fix(1));
29314 t7=C_fixnum_times(((C_word*)t0)[3],C_fix(4));
29315 t8=C_fixnum_plus(C_fix(3),t7);
29316 t9=C_i_vector_set(t6,t8,((C_word*)t0)[5]);
29317 /* irregex-core.scm:3463: fail */
29318 t10=((C_word*)t0)[6];{
29319 C_word *av2=av;
29320 av2[0]=t10;
29321 av2[1]=t1;
29322 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
29323 
29324 /* f_25281 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25281(C_word c,C_word * av)29325 static void C_ccall f_25281(C_word c,C_word *av){
29326 C_word tmp;
29327 C_word t0=av[0];
29328 C_word t1=av[1];
29329 C_word t2=av[2];
29330 C_word t3=av[3];
29331 C_word t4=av[4];
29332 C_word t5=av[5];
29333 C_word t6=av[6];
29334 C_word t7=av[7];
29335 C_word t8=av[8];
29336 C_word t9=av[9];
29337 C_word t10;
29338 C_word t11;
29339 C_word t12;
29340 C_word *a;
29341 if(c!=10) C_bad_argc_2(c,10,t0);
29342 C_check_for_interrupt;
29343 if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){
29344 C_save_and_reclaim((void *)f_25281,c,av);}
29345 a=C_alloc(8);
29346 if(C_truep(C_fixnum_lessp(t6,t7))){
29347 /* irregex-core.scm:3485: next */
29348 t10=((C_word*)t0)[2];{
29349 C_word *av2=av;
29350 av2[0]=t10;
29351 av2[1]=t1;
29352 av2[2]=t2;
29353 av2[3]=t3;
29354 av2[4]=t4;
29355 av2[5]=t5;
29356 av2[6]=C_fixnum_plus(t6,C_fix(1));
29357 av2[7]=t7;
29358 av2[8]=t8;
29359 av2[9]=t9;
29360 ((C_proc)(void*)(*((C_word*)t10+1)))(10,av2);}}
29361 else{
29362 t10=C_i_vector_ref(t2,C_fix(0));
29363 t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25301,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp);
29364 /* irregex-core.scm:3486: g4960 */
29365 t12=t10;{
29366 C_word *av2=av;
29367 av2[0]=t12;
29368 av2[1]=t11;
29369 av2[2]=t4;
29370 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}
29371 
29372 /* k25299 */
f_25301(C_word c,C_word * av)29373 static void C_ccall f_25301(C_word c,C_word *av){
29374 C_word tmp;
29375 C_word t0=av[0];
29376 C_word t1=av[1];
29377 C_word t2;
29378 C_word t3;
29379 C_word t4;
29380 C_word *a;
29381 C_check_for_interrupt;
29382 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
29383 C_save_and_reclaim((void *)f_25301,c,av);}
29384 a=C_alloc(9);
29385 if(C_truep(t1)){
29386 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
29387 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25310,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);
29388 /* irregex-core.scm:3488: g4965 */
29389 t4=t2;{
29390 C_word *av2;
29391 if(c >= 3) {
29392   av2=av;
29393 } else {
29394   av2=C_alloc(3);
29395 }
29396 av2[0]=t4;
29397 av2[1]=t3;
29398 av2[2]=t1;
29399 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29400 else{
29401 /* irregex-core.scm:3492: fail */
29402 t2=((C_word*)t0)[7];{
29403 C_word *av2=av;
29404 av2[0]=t2;
29405 av2[1]=((C_word*)t0)[4];
29406 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
29407 
29408 /* k25308 in k25299 */
f_25310(C_word c,C_word * av)29409 static void C_ccall f_25310(C_word c,C_word *av){
29410 C_word tmp;
29411 C_word t0=av[0];
29412 C_word t1=av[1];
29413 C_word t2;
29414 C_word t3;
29415 C_word t4;
29416 C_word *a;
29417 C_check_for_interrupt;
29418 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
29419 C_save_and_reclaim((void *)f_25310,c,av);}
29420 a=C_alloc(10);
29421 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
29422 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25316,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);
29423 /* irregex-core.scm:3488: g4967 */
29424 t4=t2;{
29425 C_word *av2;
29426 if(c >= 3) {
29427   av2=av;
29428 } else {
29429   av2=C_alloc(3);
29430 }
29431 av2[0]=t4;
29432 av2[1]=t3;
29433 av2[2]=((C_word*)t0)[6];
29434 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29435 
29436 /* k25314 in k25308 in k25299 */
f_25316(C_word c,C_word * av)29437 static void C_ccall f_25316(C_word c,C_word *av){
29438 C_word tmp;
29439 C_word t0=av[0];
29440 C_word t1=av[1];
29441 C_word t2;
29442 C_word t3;
29443 C_word t4;
29444 C_word *a;
29445 C_check_for_interrupt;
29446 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
29447 C_save_and_reclaim((void *)f_25316,c,av);}
29448 a=C_alloc(11);
29449 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
29450 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25322,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]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
29451 /* irregex-core.scm:3488: g4969 */
29452 t4=t2;{
29453 C_word *av2;
29454 if(c >= 3) {
29455   av2=av;
29456 } else {
29457   av2=C_alloc(3);
29458 }
29459 av2[0]=t4;
29460 av2[1]=t3;
29461 av2[2]=((C_word*)t0)[6];
29462 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29463 
29464 /* k25320 in k25314 in k25308 in k25299 */
f_25322(C_word c,C_word * av)29465 static void C_ccall f_25322(C_word c,C_word *av){
29466 C_word tmp;
29467 C_word t0=av[0];
29468 C_word t1=av[1];
29469 C_word t2;
29470 C_word *a;
29471 C_check_for_interrupt;
29472 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
29473 C_save_and_reclaim((void *)f_25322,c,av);}
29474 /* irregex-core.scm:3491: next */
29475 t2=((C_word*)t0)[2];{
29476 C_word *av2;
29477 if(c >= 10) {
29478   av2=av;
29479 } else {
29480   av2=C_alloc(10);
29481 }
29482 av2[0]=t2;
29483 av2[1]=((C_word*)t0)[3];
29484 av2[2]=((C_word*)t0)[4];
29485 av2[3]=((C_word*)t0)[5];
29486 av2[4]=((C_word*)t0)[6];
29487 av2[5]=((C_word*)t0)[7];
29488 av2[6]=C_fixnum_plus(((C_word*)t0)[8],C_fix(1));
29489 av2[7]=t1;
29490 av2[8]=((C_word*)t0)[9];
29491 av2[9]=((C_word*)t0)[10];
29492 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
29493 
29494 /* f_25339 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25339(C_word c,C_word * av)29495 static void C_ccall f_25339(C_word c,C_word *av){
29496 C_word tmp;
29497 C_word t0=av[0];
29498 C_word t1=av[1];
29499 C_word t2=av[2];
29500 C_word t3=av[3];
29501 C_word t4=av[4];
29502 C_word t5=av[5];
29503 C_word t6=av[6];
29504 C_word t7=av[7];
29505 C_word t8=av[8];
29506 C_word t9=av[9];
29507 C_word t10;
29508 C_word t11;
29509 C_word t12;
29510 C_word t13;
29511 C_word *a;
29512 if(c!=10) C_bad_argc_2(c,10,t0);
29513 C_check_for_interrupt;
29514 if(C_unlikely(!C_demand(C_calculate_demand(8,c,9)))){
29515 C_save_and_reclaim((void *)f_25339,c,av);}
29516 a=C_alloc(8);
29517 if(C_truep(C_fixnum_lessp(t6,t7))){
29518 t10=C_i_string_ref(t5,t6);
29519 t11=C_eqp(C_make_character(10),t10);
29520 if(C_truep(C_i_not(t11))){
29521 t12=C_a_i_fixnum_plus(&a,2,t6,C_fix(1));
29522 /* irregex-core.scm:3497: next */
29523 t13=((C_word*)t0)[2];{
29524 C_word *av2=av;
29525 av2[0]=t13;
29526 av2[1]=t1;
29527 av2[2]=t2;
29528 av2[3]=t3;
29529 av2[4]=t4;
29530 av2[5]=t5;
29531 av2[6]=t12;
29532 av2[7]=t7;
29533 av2[8]=t8;
29534 av2[9]=t9;
29535 ((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}}
29536 else{
29537 /* irregex-core.scm:3498: fail */
29538 t12=t9;{
29539 C_word *av2=av;
29540 av2[0]=t12;
29541 av2[1]=t1;
29542 ((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}
29543 else{
29544 t10=C_i_vector_ref(t2,C_fix(0));
29545 t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25376,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp);
29546 /* irregex-core.scm:3499: g4980 */
29547 t12=t10;{
29548 C_word *av2=av;
29549 av2[0]=t12;
29550 av2[1]=t11;
29551 av2[2]=t4;
29552 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}
29553 
29554 /* k25374 */
f_25376(C_word c,C_word * av)29555 static void C_ccall f_25376(C_word c,C_word *av){
29556 C_word tmp;
29557 C_word t0=av[0];
29558 C_word t1=av[1];
29559 C_word t2;
29560 C_word t3;
29561 C_word t4;
29562 C_word *a;
29563 C_check_for_interrupt;
29564 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
29565 C_save_and_reclaim((void *)f_25376,c,av);}
29566 a=C_alloc(9);
29567 if(C_truep(t1)){
29568 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
29569 t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25385,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);
29570 /* irregex-core.scm:3501: g4985 */
29571 t4=t2;{
29572 C_word *av2;
29573 if(c >= 3) {
29574   av2=av;
29575 } else {
29576   av2=C_alloc(3);
29577 }
29578 av2[0]=t4;
29579 av2[1]=t3;
29580 av2[2]=t1;
29581 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29582 else{
29583 /* irregex-core.scm:3507: fail */
29584 t2=((C_word*)t0)[7];{
29585 C_word *av2=av;
29586 av2[0]=t2;
29587 av2[1]=((C_word*)t0)[4];
29588 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
29589 
29590 /* k25383 in k25374 */
f_25385(C_word c,C_word * av)29591 static void C_ccall f_25385(C_word c,C_word *av){
29592 C_word tmp;
29593 C_word t0=av[0];
29594 C_word t1=av[1];
29595 C_word t2;
29596 C_word t3;
29597 C_word t4;
29598 C_word *a;
29599 C_check_for_interrupt;
29600 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
29601 C_save_and_reclaim((void *)f_25385,c,av);}
29602 a=C_alloc(10);
29603 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
29604 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25391,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
29605 /* irregex-core.scm:3501: g4987 */
29606 t4=t2;{
29607 C_word *av2;
29608 if(c >= 3) {
29609   av2=av;
29610 } else {
29611   av2=C_alloc(3);
29612 }
29613 av2[0]=t4;
29614 av2[1]=t3;
29615 av2[2]=((C_word*)t0)[6];
29616 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29617 
29618 /* k25389 in k25383 in k25374 */
f_25391(C_word c,C_word * av)29619 static void C_ccall f_25391(C_word c,C_word *av){
29620 C_word tmp;
29621 C_word t0=av[0];
29622 C_word t1=av[1];
29623 C_word t2;
29624 C_word t3;
29625 C_word t4;
29626 C_word *a;
29627 C_check_for_interrupt;
29628 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
29629 C_save_and_reclaim((void *)f_25391,c,av);}
29630 a=C_alloc(11);
29631 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
29632 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25397,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],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);
29633 /* irregex-core.scm:3501: g4989 */
29634 t4=t2;{
29635 C_word *av2;
29636 if(c >= 3) {
29637   av2=av;
29638 } else {
29639   av2=C_alloc(3);
29640 }
29641 av2[0]=t4;
29642 av2[1]=t3;
29643 av2[2]=((C_word*)t0)[7];
29644 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29645 
29646 /* k25395 in k25389 in k25383 in k25374 */
f_25397(C_word c,C_word * av)29647 static void C_ccall f_25397(C_word c,C_word *av){
29648 C_word tmp;
29649 C_word t0=av[0];
29650 C_word t1=av[1];
29651 C_word t2;
29652 C_word t3;
29653 C_word t4;
29654 C_word t5;
29655 C_word *a;
29656 C_check_for_interrupt;
29657 if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){
29658 C_save_and_reclaim((void *)f_25397,c,av);}
29659 a=C_alloc(5);
29660 t2=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]);
29661 t3=C_eqp(C_make_character(10),t2);
29662 if(C_truep(C_i_not(t3))){
29663 t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
29664 /* irregex-core.scm:3505: next */
29665 t5=((C_word*)t0)[4];{
29666 C_word *av2;
29667 if(c >= 10) {
29668   av2=av;
29669 } else {
29670   av2=C_alloc(10);
29671 }
29672 av2[0]=t5;
29673 av2[1]=((C_word*)t0)[5];
29674 av2[2]=((C_word*)t0)[6];
29675 av2[3]=((C_word*)t0)[7];
29676 av2[4]=((C_word*)t0)[8];
29677 av2[5]=((C_word*)t0)[2];
29678 av2[6]=t4;
29679 av2[7]=t1;
29680 av2[8]=((C_word*)t0)[9];
29681 av2[9]=((C_word*)t0)[10];
29682 ((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}}
29683 else{
29684 /* irregex-core.scm:3506: fail */
29685 t4=((C_word*)t0)[10];{
29686 C_word *av2=av;
29687 av2[0]=t4;
29688 av2[1]=((C_word*)t0)[5];
29689 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
29690 
29691 /* f_25431 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25431(C_word c,C_word * av)29692 static void C_ccall f_25431(C_word c,C_word *av){
29693 C_word tmp;
29694 C_word t0=av[0];
29695 C_word t1=av[1];
29696 C_word t2=av[2];
29697 C_word t3=av[3];
29698 C_word t4=av[4];
29699 C_word t5=av[5];
29700 C_word t6=av[6];
29701 C_word t7=av[7];
29702 C_word t8=av[8];
29703 C_word t9=av[9];
29704 C_word t10;
29705 C_word t11;
29706 C_word t12;
29707 C_word t13;
29708 C_word *a;
29709 if(c!=10) C_bad_argc_2(c,10,t0);
29710 C_check_for_interrupt;
29711 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
29712 C_save_and_reclaim((void *)f_25431,c,av);}
29713 t10=C_i_car(t3);
29714 t11=C_eqp(t4,t10);
29715 t12=(C_truep(t11)?C_i_eqvp(t6,C_u_i_cdr(t3)):C_SCHEME_FALSE);
29716 if(C_truep(t12)){
29717 /* irregex-core.scm:3511: next */
29718 t13=((C_word*)t0)[2];{
29719 C_word *av2=av;
29720 av2[0]=t13;
29721 av2[1]=t1;
29722 av2[2]=t2;
29723 av2[3]=t3;
29724 av2[4]=t4;
29725 av2[5]=t5;
29726 av2[6]=t6;
29727 av2[7]=t7;
29728 av2[8]=t8;
29729 av2[9]=t9;
29730 ((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}}
29731 else{
29732 /* irregex-core.scm:3512: fail */
29733 t13=t9;{
29734 C_word *av2=av;
29735 av2[0]=t13;
29736 av2[1]=t1;
29737 ((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}
29738 
29739 /* f_25461 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25461(C_word c,C_word * av)29740 static void C_ccall f_25461(C_word c,C_word *av){
29741 C_word tmp;
29742 C_word t0=av[0];
29743 C_word t1=av[1];
29744 C_word t2=av[2];
29745 C_word t3=av[3];
29746 C_word t4=av[4];
29747 C_word t5=av[5];
29748 C_word t6=av[6];
29749 C_word t7=av[7];
29750 C_word t8=av[8];
29751 C_word t9=av[9];
29752 C_word t10;
29753 C_word t11;
29754 C_word t12;
29755 C_word t13;
29756 C_word *a;
29757 if(c!=10) C_bad_argc_2(c,10,t0);
29758 C_check_for_interrupt;
29759 if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
29760 C_save_and_reclaim((void *)f_25461,c,av);}
29761 a=C_alloc(20);
29762 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25468,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
29763 t11=C_i_vector_ref(t2,C_fix(2));
29764 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25505,a[2]=t6,a[3]=t10,a[4]=t5,a[5]=t2,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
29765 /* irregex-core.scm:3515: g5009 */
29766 t13=t11;{
29767 C_word *av2=av;
29768 av2[0]=t13;
29769 av2[1]=t12;
29770 av2[2]=t4;
29771 ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
29772 
29773 /* k25466 */
f_25468(C_word c,C_word * av)29774 static void C_ccall f_25468(C_word c,C_word *av){
29775 C_word tmp;
29776 C_word t0=av[0];
29777 C_word t1=av[1];
29778 C_word t2;
29779 C_word t3;
29780 C_word t4;
29781 C_word *a;
29782 C_check_for_interrupt;
29783 if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
29784 C_save_and_reclaim((void *)f_25468,c,av);}
29785 t2=C_i_not(t1);
29786 t3=(C_truep(t2)?t2:C_eqp(C_make_character(10),t1));
29787 if(C_truep(t3)){
29788 /* irregex-core.scm:3519: next */
29789 t4=((C_word*)t0)[2];{
29790 C_word *av2;
29791 if(c >= 10) {
29792   av2=av;
29793 } else {
29794   av2=C_alloc(10);
29795 }
29796 av2[0]=t4;
29797 av2[1]=((C_word*)t0)[3];
29798 av2[2]=((C_word*)t0)[4];
29799 av2[3]=((C_word*)t0)[5];
29800 av2[4]=((C_word*)t0)[6];
29801 av2[5]=((C_word*)t0)[7];
29802 av2[6]=((C_word*)t0)[8];
29803 av2[7]=((C_word*)t0)[9];
29804 av2[8]=((C_word*)t0)[10];
29805 av2[9]=((C_word*)t0)[11];
29806 ((C_proc)(void*)(*((C_word*)t4+1)))(10,av2);}}
29807 else{
29808 /* irregex-core.scm:3520: fail */
29809 t4=((C_word*)t0)[11];{
29810 C_word *av2=av;
29811 av2[0]=t4;
29812 av2[1]=((C_word*)t0)[3];
29813 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
29814 
29815 /* k25503 */
f_25505(C_word c,C_word * av)29816 static void C_ccall f_25505(C_word c,C_word *av){
29817 C_word tmp;
29818 C_word t0=av[0];
29819 C_word t1=av[1];
29820 C_word t2;
29821 C_word *a;
29822 C_check_for_interrupt;
29823 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
29824 C_save_and_reclaim((void *)f_25505,c,av);}
29825 if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){
29826 t2=((C_word*)t0)[3];{
29827 C_word *av2=av;
29828 av2[0]=t2;
29829 av2[1]=C_i_string_ref(((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));
29830 f_25468(2,av2);}}
29831 else{
29832 /* irregex-core.scm:3517: chunker-prev-char */
29833 f_8640(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}
29834 
29835 /* f_25512 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25512(C_word c,C_word * av)29836 static void C_ccall f_25512(C_word c,C_word *av){
29837 C_word tmp;
29838 C_word t0=av[0];
29839 C_word t1=av[1];
29840 C_word t2=av[2];
29841 C_word t3=av[3];
29842 C_word t4=av[4];
29843 C_word t5=av[5];
29844 C_word t6=av[6];
29845 C_word t7=av[7];
29846 C_word t8=av[8];
29847 C_word t9=av[9];
29848 C_word t10;
29849 C_word t11;
29850 C_word t12;
29851 C_word t13;
29852 C_word t14;
29853 C_word *a;
29854 if(c!=10) C_bad_argc_2(c,10,t0);
29855 C_check_for_interrupt;
29856 if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){
29857 C_save_and_reclaim((void *)f_25512,c,av);}
29858 a=C_alloc(28);
29859 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25519,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
29860 t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25528,a[2]=t6,a[3]=t7,a[4]=t5,a[5]=t10,a[6]=t2,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
29861 t12=C_i_vector_ref(t2,C_fix(2));
29862 t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25612,a[2]=t6,a[3]=t5,a[4]=t11,a[5]=t2,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
29863 /* irregex-core.scm:3523: g5023 */
29864 t14=t12;{
29865 C_word *av2=av;
29866 av2[0]=t14;
29867 av2[1]=t13;
29868 av2[2]=t4;
29869 ((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}
29870 
29871 /* k25517 */
f_25519(C_word t0,C_word t1)29872 static void C_fcall f_25519(C_word t0,C_word t1){
29873 C_word tmp;
29874 C_word t2;
29875 C_word *a;
29876 C_check_for_interrupt;
29877 if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){
29878 C_save_and_reclaim_args((void *)trf_25519,2,t0,t1);}
29879 if(C_truep(t1)){
29880 /* irregex-core.scm:3534: next */
29881 t2=((C_word*)t0)[2];{
29882 C_word av2[10];
29883 av2[0]=t2;
29884 av2[1]=((C_word*)t0)[3];
29885 av2[2]=((C_word*)t0)[4];
29886 av2[3]=((C_word*)t0)[5];
29887 av2[4]=((C_word*)t0)[6];
29888 av2[5]=((C_word*)t0)[7];
29889 av2[6]=((C_word*)t0)[8];
29890 av2[7]=((C_word*)t0)[9];
29891 av2[8]=((C_word*)t0)[10];
29892 av2[9]=((C_word*)t0)[11];
29893 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
29894 else{
29895 /* irregex-core.scm:3535: fail */
29896 t2=((C_word*)t0)[11];{
29897 C_word av2[2];
29898 av2[0]=t2;
29899 av2[1]=((C_word*)t0)[3];
29900 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
29901 
29902 /* k25526 */
f_25528(C_word t0,C_word t1)29903 static void C_fcall f_25528(C_word t0,C_word t1){
29904 C_word tmp;
29905 C_word t2;
29906 C_word t3;
29907 C_word t4;
29908 C_word *a;
29909 C_check_for_interrupt;
29910 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
29911 C_save_and_reclaim_args((void *)trf_25528,2,t0,t1);}
29912 a=C_alloc(4);
29913 if(C_truep(t1)){
29914 if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]))){
29915 t2=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[2]);
29916 t3=C_u_i_char_alphabeticp(t2);
29917 t4=((C_word*)t0)[5];
29918 f_25519(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t2)));}
29919 else{
29920 t2=C_i_vector_ref(((C_word*)t0)[6],C_fix(0));
29921 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25547,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
29922 /* irregex-core.scm:3529: g5030 */
29923 t4=t2;{
29924 C_word av2[3];
29925 av2[0]=t4;
29926 av2[1]=t3;
29927 av2[2]=((C_word*)t0)[7];
29928 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
29929 else{
29930 t2=((C_word*)t0)[5];
29931 f_25519(t2,C_SCHEME_FALSE);}}
29932 
29933 /* k25545 in k25526 */
f_25547(C_word c,C_word * av)29934 static void C_ccall f_25547(C_word c,C_word *av){
29935 C_word tmp;
29936 C_word t0=av[0];
29937 C_word t1=av[1];
29938 C_word t2;
29939 C_word t3;
29940 C_word t4;
29941 C_word *a;
29942 C_check_for_interrupt;
29943 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
29944 C_save_and_reclaim((void *)f_25547,c,av);}
29945 a=C_alloc(5);
29946 if(C_truep(t1)){
29947 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
29948 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
29949 /* irregex-core.scm:3532: g5033 */
29950 t4=t2;{
29951 C_word *av2;
29952 if(c >= 3) {
29953   av2=av;
29954 } else {
29955   av2=C_alloc(3);
29956 }
29957 av2[0]=t4;
29958 av2[1]=t3;
29959 av2[2]=t1;
29960 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29961 else{
29962 t2=((C_word*)t0)[3];
29963 f_25519(t2,C_SCHEME_FALSE);}}
29964 
29965 /* k25562 in k25545 in k25526 */
f_25564(C_word c,C_word * av)29966 static void C_ccall f_25564(C_word c,C_word *av){
29967 C_word tmp;
29968 C_word t0=av[0];
29969 C_word t1=av[1];
29970 C_word t2;
29971 C_word t3;
29972 C_word t4;
29973 C_word *a;
29974 C_check_for_interrupt;
29975 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
29976 C_save_and_reclaim((void *)f_25564,c,av);}
29977 a=C_alloc(4);
29978 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
29979 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25571,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
29980 /* irregex-core.scm:3532: g5035 */
29981 t4=t2;{
29982 C_word *av2;
29983 if(c >= 3) {
29984   av2=av;
29985 } else {
29986   av2=C_alloc(3);
29987 }
29988 av2[0]=t4;
29989 av2[1]=t3;
29990 av2[2]=((C_word*)t0)[4];
29991 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
29992 
29993 /* k25569 in k25562 in k25545 in k25526 */
f_25571(C_word c,C_word * av)29994 static void C_ccall f_25571(C_word c,C_word *av){
29995 C_word tmp;
29996 C_word t0=av[0];
29997 C_word t1=av[1];
29998 C_word t2;
29999 C_word t3;
30000 C_word t4;
30001 C_word *a;
30002 C_check_for_interrupt;
30003 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
30004 C_save_and_reclaim((void *)f_25571,c,av);}
30005 t2=C_i_string_ref(((C_word*)t0)[2],t1);
30006 t3=C_u_i_char_alphabeticp(t2);
30007 t4=((C_word*)t0)[3];
30008 f_25519(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t2)));}
30009 
30010 /* k25590 in k25610 */
f_25592(C_word c,C_word * av)30011 static void C_ccall f_25592(C_word c,C_word *av){
30012 C_word tmp;
30013 C_word t0=av[0];
30014 C_word t1=av[1];
30015 C_word t2;
30016 C_word t3;
30017 C_word t4;
30018 C_word t5;
30019 C_word *a;
30020 C_check_for_interrupt;
30021 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
30022 C_save_and_reclaim((void *)f_25592,c,av);}
30023 t2=C_i_not(t1);
30024 if(C_truep(t2)){
30025 t3=((C_word*)t0)[2];
30026 f_25528(t3,t2);}
30027 else{
30028 t3=C_u_i_char_alphabeticp(t1);
30029 t4=(C_truep(t3)?t3:C_u_i_char_numericp(t1));
30030 t5=((C_word*)t0)[2];
30031 f_25528(t5,C_i_not(t4));}}
30032 
30033 /* k25610 */
f_25612(C_word c,C_word * av)30034 static void C_ccall f_25612(C_word c,C_word *av){
30035 C_word tmp;
30036 C_word t0=av[0];
30037 C_word t1=av[1];
30038 C_word t2;
30039 C_word t3;
30040 C_word t4;
30041 C_word t5;
30042 C_word t6;
30043 C_word *a;
30044 C_check_for_interrupt;
30045 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
30046 C_save_and_reclaim((void *)f_25612,c,av);}
30047 a=C_alloc(3);
30048 if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){
30049 t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1));
30050 t3=C_i_string_ref(((C_word*)t0)[3],t2);
30051 t4=C_u_i_char_alphabeticp(t3);
30052 t5=(C_truep(t4)?t4:C_u_i_char_numericp(t3));
30053 t6=((C_word*)t0)[4];
30054 f_25528(t6,C_i_not(t5));}
30055 else{
30056 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25592,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
30057 /* irregex-core.scm:3525: chunker-prev-char */
30058 f_8640(t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}
30059 
30060 /* f_25619 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25619(C_word c,C_word * av)30061 static void C_ccall f_25619(C_word c,C_word *av){
30062 C_word tmp;
30063 C_word t0=av[0];
30064 C_word t1=av[1];
30065 C_word t2=av[2];
30066 C_word t3=av[3];
30067 C_word t4=av[4];
30068 C_word t5=av[5];
30069 C_word t6=av[6];
30070 C_word t7=av[7];
30071 C_word t8=av[8];
30072 C_word t9=av[9];
30073 C_word t10;
30074 C_word t11;
30075 C_word t12;
30076 C_word t13;
30077 C_word *a;
30078 if(c!=10) C_bad_argc_2(c,10,t0);
30079 C_check_for_interrupt;
30080 if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
30081 C_save_and_reclaim((void *)f_25619,c,av);}
30082 a=C_alloc(15);
30083 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25626,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
30084 if(C_truep(C_fixnum_greater_or_equal_p(t6,t7))){
30085 t11=C_i_vector_ref(t2,C_fix(0));
30086 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25645,a[2]=t10,tmp=(C_word)a,a+=3,tmp);
30087 /* irregex-core.scm:3538: g5046 */
30088 t13=t11;{
30089 C_word *av2=av;
30090 av2[0]=t13;
30091 av2[1]=t12;
30092 av2[2]=t4;
30093 ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}
30094 else{
30095 t11=t10;
30096 f_25626(t11,C_SCHEME_FALSE);}}
30097 
30098 /* k25624 */
f_25626(C_word t0,C_word t1)30099 static void C_fcall f_25626(C_word t0,C_word t1){
30100 C_word tmp;
30101 C_word t2;
30102 C_word *a;
30103 C_check_for_interrupt;
30104 if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){
30105 C_save_and_reclaim_args((void *)trf_25626,2,t0,t1);}
30106 if(C_truep(t1)){
30107 /* irregex-core.scm:3539: next */
30108 t2=((C_word*)t0)[2];{
30109 C_word av2[10];
30110 av2[0]=t2;
30111 av2[1]=((C_word*)t0)[3];
30112 av2[2]=((C_word*)t0)[4];
30113 av2[3]=((C_word*)t0)[5];
30114 av2[4]=((C_word*)t0)[6];
30115 av2[5]=((C_word*)t0)[7];
30116 av2[6]=((C_word*)t0)[8];
30117 av2[7]=((C_word*)t0)[9];
30118 av2[8]=((C_word*)t0)[10];
30119 av2[9]=((C_word*)t0)[11];
30120 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
30121 else{
30122 /* irregex-core.scm:3540: fail */
30123 t2=((C_word*)t0)[11];{
30124 C_word av2[2];
30125 av2[0]=t2;
30126 av2[1]=((C_word*)t0)[3];
30127 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
30128 
30129 /* k25643 */
f_25645(C_word c,C_word * av)30130 static void C_ccall f_25645(C_word c,C_word *av){
30131 C_word tmp;
30132 C_word t0=av[0];
30133 C_word t1=av[1];
30134 C_word t2;
30135 C_word *a;
30136 C_check_for_interrupt;
30137 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
30138 C_save_and_reclaim((void *)f_25645,c,av);}
30139 t2=((C_word*)t0)[2];
30140 f_25626(t2,C_i_not(t1));}
30141 
30142 /* f_25652 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25652(C_word c,C_word * av)30143 static void C_ccall f_25652(C_word c,C_word *av){
30144 C_word tmp;
30145 C_word t0=av[0];
30146 C_word t1=av[1];
30147 C_word t2=av[2];
30148 C_word t3=av[3];
30149 C_word t4=av[4];
30150 C_word t5=av[5];
30151 C_word t6=av[6];
30152 C_word t7=av[7];
30153 C_word t8=av[8];
30154 C_word t9=av[9];
30155 C_word t10;
30156 C_word t11;
30157 C_word t12;
30158 C_word t13;
30159 C_word *a;
30160 if(c!=10) C_bad_argc_2(c,10,t0);
30161 C_check_for_interrupt;
30162 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
30163 C_save_and_reclaim((void *)f_25652,c,av);}
30164 a=C_alloc(16);
30165 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25659,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
30166 if(C_truep(C_fixnum_lessp(t6,t7))){
30167 t11=t10;
30168 f_25659(t11,C_eqp(C_make_character(10),C_i_string_ref(t5,t6)));}
30169 else{
30170 t11=C_i_vector_ref(t2,C_fix(0));
30171 t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25682,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
30172 /* irregex-core.scm:3545: g5057 */
30173 t13=t11;{
30174 C_word *av2=av;
30175 av2[0]=t13;
30176 av2[1]=t12;
30177 av2[2]=t4;
30178 ((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}
30179 
30180 /* k25657 */
f_25659(C_word t0,C_word t1)30181 static void C_fcall f_25659(C_word t0,C_word t1){
30182 C_word tmp;
30183 C_word t2;
30184 C_word *a;
30185 C_check_for_interrupt;
30186 if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){
30187 C_save_and_reclaim_args((void *)trf_25659,2,t0,t1);}
30188 if(C_truep(t1)){
30189 /* irregex-core.scm:3551: next */
30190 t2=((C_word*)t0)[2];{
30191 C_word av2[10];
30192 av2[0]=t2;
30193 av2[1]=((C_word*)t0)[3];
30194 av2[2]=((C_word*)t0)[4];
30195 av2[3]=((C_word*)t0)[5];
30196 av2[4]=((C_word*)t0)[6];
30197 av2[5]=((C_word*)t0)[7];
30198 av2[6]=((C_word*)t0)[8];
30199 av2[7]=((C_word*)t0)[9];
30200 av2[8]=((C_word*)t0)[10];
30201 av2[9]=((C_word*)t0)[11];
30202 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
30203 else{
30204 /* irregex-core.scm:3552: fail */
30205 t2=((C_word*)t0)[11];{
30206 C_word av2[2];
30207 av2[0]=t2;
30208 av2[1]=((C_word*)t0)[3];
30209 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
30210 
30211 /* k25680 */
f_25682(C_word c,C_word * av)30212 static void C_ccall f_25682(C_word c,C_word *av){
30213 C_word tmp;
30214 C_word t0=av[0];
30215 C_word t1=av[1];
30216 C_word t2;
30217 C_word t3;
30218 C_word t4;
30219 C_word *a;
30220 C_check_for_interrupt;
30221 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
30222 C_save_and_reclaim((void *)f_25682,c,av);}
30223 a=C_alloc(5);
30224 if(C_truep(C_i_not(t1))){
30225 t2=((C_word*)t0)[2];
30226 f_25659(t2,C_SCHEME_TRUE);}
30227 else{
30228 t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(1));
30229 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25703,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
30230 /* irregex-core.scm:3549: g5059 */
30231 t4=t2;{
30232 C_word *av2;
30233 if(c >= 3) {
30234   av2=av;
30235 } else {
30236   av2=C_alloc(3);
30237 }
30238 av2[0]=t4;
30239 av2[1]=t3;
30240 av2[2]=t1;
30241 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
30242 
30243 /* k25701 in k25680 */
f_25703(C_word c,C_word * av)30244 static void C_ccall f_25703(C_word c,C_word *av){
30245 C_word tmp;
30246 C_word t0=av[0];
30247 C_word t1=av[1];
30248 C_word t2;
30249 C_word t3;
30250 C_word t4;
30251 C_word *a;
30252 C_check_for_interrupt;
30253 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
30254 C_save_and_reclaim((void *)f_25703,c,av);}
30255 a=C_alloc(4);
30256 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
30257 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25710,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
30258 /* irregex-core.scm:3549: g5061 */
30259 t4=t2;{
30260 C_word *av2;
30261 if(c >= 3) {
30262   av2=av;
30263 } else {
30264   av2=C_alloc(3);
30265 }
30266 av2[0]=t4;
30267 av2[1]=t3;
30268 av2[2]=((C_word*)t0)[4];
30269 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
30270 
30271 /* k25708 in k25701 in k25680 */
f_25710(C_word c,C_word * av)30272 static void C_ccall f_25710(C_word c,C_word *av){
30273 C_word tmp;
30274 C_word t0=av[0];
30275 C_word t1=av[1];
30276 C_word t2;
30277 C_word *a;
30278 C_check_for_interrupt;
30279 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
30280 C_save_and_reclaim((void *)f_25710,c,av);}
30281 t2=((C_word*)t0)[2];
30282 f_25659(t2,C_eqp(C_make_character(10),C_i_string_ref(((C_word*)t0)[3],t1)));}
30283 
30284 /* f_25717 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25717(C_word c,C_word * av)30285 static void C_ccall f_25717(C_word c,C_word *av){
30286 C_word tmp;
30287 C_word t0=av[0];
30288 C_word t1=av[1];
30289 C_word t2=av[2];
30290 C_word t3=av[3];
30291 C_word t4=av[4];
30292 C_word t5=av[5];
30293 C_word t6=av[6];
30294 C_word t7=av[7];
30295 C_word t8=av[8];
30296 C_word t9=av[9];
30297 C_word t10;
30298 C_word t11;
30299 C_word t12;
30300 C_word t13;
30301 C_word t14;
30302 C_word t15;
30303 C_word *a;
30304 if(c!=10) C_bad_argc_2(c,10,t0);
30305 C_check_for_interrupt;
30306 if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
30307 C_save_and_reclaim((void *)f_25717,c,av);}
30308 a=C_alloc(23);
30309 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25724,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
30310 t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25733,a[2]=t2,a[3]=t6,a[4]=t5,a[5]=t10,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
30311 if(C_truep(C_fixnum_lessp(t6,t7))){
30312 t12=C_i_string_ref(t5,t6);
30313 t13=C_u_i_char_alphabeticp(t12);
30314 t14=(C_truep(t13)?t13:C_u_i_char_numericp(t12));
30315 t15=t11;
30316 f_25733(t15,C_i_not(t14));}
30317 else{
30318 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25786,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
30319 /* irregex-core.scm:3557: chunker-next-char */
30320 f_8670(t12,t2,t4);}}
30321 
30322 /* k25722 */
f_25724(C_word t0,C_word t1)30323 static void C_fcall f_25724(C_word t0,C_word t1){
30324 C_word tmp;
30325 C_word t2;
30326 C_word *a;
30327 C_check_for_interrupt;
30328 if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){
30329 C_save_and_reclaim_args((void *)trf_25724,2,t0,t1);}
30330 if(C_truep(t1)){
30331 /* irregex-core.scm:3563: next */
30332 t2=((C_word*)t0)[2];{
30333 C_word av2[10];
30334 av2[0]=t2;
30335 av2[1]=((C_word*)t0)[3];
30336 av2[2]=((C_word*)t0)[4];
30337 av2[3]=((C_word*)t0)[5];
30338 av2[4]=((C_word*)t0)[6];
30339 av2[5]=((C_word*)t0)[7];
30340 av2[6]=((C_word*)t0)[8];
30341 av2[7]=((C_word*)t0)[9];
30342 av2[8]=((C_word*)t0)[10];
30343 av2[9]=((C_word*)t0)[11];
30344 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
30345 else{
30346 /* irregex-core.scm:3564: fail */
30347 t2=((C_word*)t0)[11];{
30348 C_word av2[2];
30349 av2[0]=t2;
30350 av2[1]=((C_word*)t0)[3];
30351 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
30352 
30353 /* k25731 */
f_25733(C_word t0,C_word t1)30354 static void C_fcall f_25733(C_word t0,C_word t1){
30355 C_word tmp;
30356 C_word t2;
30357 C_word t3;
30358 C_word t4;
30359 C_word *a;
30360 C_check_for_interrupt;
30361 if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
30362 C_save_and_reclaim_args((void *)trf_25733,2,t0,t1);}
30363 a=C_alloc(8);
30364 if(C_truep(t1)){
30365 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
30366 t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25769,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],tmp=(C_word)a,a+=8,tmp);
30367 /* irregex-core.scm:3559: g5076 */
30368 t4=t2;{
30369 C_word av2[3];
30370 av2[0]=t4;
30371 av2[1]=t3;
30372 av2[2]=((C_word*)t0)[7];
30373 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
30374 else{
30375 t2=((C_word*)t0)[5];
30376 f_25724(t2,C_SCHEME_FALSE);}}
30377 
30378 /* k25751 in k25767 in k25731 */
f_25753(C_word c,C_word * av)30379 static void C_ccall f_25753(C_word c,C_word *av){
30380 C_word tmp;
30381 C_word t0=av[0];
30382 C_word t1=av[1];
30383 C_word t2;
30384 C_word t3;
30385 C_word t4;
30386 C_word *a;
30387 C_check_for_interrupt;
30388 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
30389 C_save_and_reclaim((void *)f_25753,c,av);}
30390 t2=C_i_not(t1);
30391 if(C_truep(t2)){
30392 t3=((C_word*)t0)[2];
30393 f_25724(t3,t2);}
30394 else{
30395 t3=C_u_i_char_alphabeticp(t1);
30396 t4=((C_word*)t0)[2];
30397 f_25724(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t1)));}}
30398 
30399 /* k25767 in k25731 */
f_25769(C_word c,C_word * av)30400 static void C_ccall f_25769(C_word c,C_word *av){
30401 C_word tmp;
30402 C_word t0=av[0];
30403 C_word t1=av[1];
30404 C_word t2;
30405 C_word t3;
30406 C_word t4;
30407 C_word t5;
30408 C_word *a;
30409 C_check_for_interrupt;
30410 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
30411 C_save_and_reclaim((void *)f_25769,c,av);}
30412 a=C_alloc(3);
30413 if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){
30414 t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1));
30415 t3=C_i_string_ref(((C_word*)t0)[3],t2);
30416 t4=C_u_i_char_alphabeticp(t3);
30417 t5=((C_word*)t0)[4];
30418 f_25724(t5,(C_truep(t4)?t4:C_u_i_char_numericp(t3)));}
30419 else{
30420 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25753,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
30421 /* irregex-core.scm:3561: chunker-prev-char */
30422 f_8640(t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}
30423 
30424 /* k25784 */
f_25786(C_word c,C_word * av)30425 static void C_ccall f_25786(C_word c,C_word *av){
30426 C_word tmp;
30427 C_word t0=av[0];
30428 C_word t1=av[1];
30429 C_word t2;
30430 C_word t3;
30431 C_word t4;
30432 C_word t5;
30433 C_word *a;
30434 C_check_for_interrupt;
30435 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
30436 C_save_and_reclaim((void *)f_25786,c,av);}
30437 t2=C_i_not(t1);
30438 if(C_truep(t2)){
30439 t3=((C_word*)t0)[2];
30440 f_25733(t3,t2);}
30441 else{
30442 t3=C_u_i_char_alphabeticp(t1);
30443 t4=(C_truep(t3)?t3:C_u_i_char_numericp(t1));
30444 t5=((C_word*)t0)[2];
30445 f_25733(t5,C_i_not(t4));}}
30446 
30447 /* f_25806 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25806(C_word c,C_word * av)30448 static void C_ccall f_25806(C_word c,C_word *av){
30449 C_word tmp;
30450 C_word t0=av[0];
30451 C_word t1=av[1];
30452 C_word t2=av[2];
30453 C_word t3=av[3];
30454 C_word t4=av[4];
30455 C_word t5=av[5];
30456 C_word t6=av[6];
30457 C_word t7=av[7];
30458 C_word t8=av[8];
30459 C_word t9=av[9];
30460 C_word t10;
30461 C_word t11;
30462 C_word *a;
30463 if(c!=10) C_bad_argc_2(c,10,t0);
30464 C_check_for_interrupt;
30465 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
30466 C_save_and_reclaim((void *)f_25806,c,av);}
30467 a=C_alloc(12);
30468 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25810,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
30469 if(C_truep(C_fixnum_lessp(t6,t7))){
30470 t11=t10;{
30471 C_word *av2=av;
30472 av2[0]=t11;
30473 av2[1]=C_i_string_ref(t5,t6);
30474 f_25810(2,av2);}}
30475 else{
30476 /* irregex-core.scm:3569: chunker-next-char */
30477 f_8670(t10,t2,t4);}}
30478 
30479 /* k25808 */
f_25810(C_word c,C_word * av)30480 static void C_ccall f_25810(C_word c,C_word *av){
30481 C_word tmp;
30482 C_word t0=av[0];
30483 C_word t1=av[1];
30484 C_word t2;
30485 C_word t3;
30486 C_word t4;
30487 C_word t5;
30488 C_word *a;
30489 C_check_for_interrupt;
30490 if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
30491 C_save_and_reclaim((void *)f_25810,c,av);}
30492 a=C_alloc(21);
30493 t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25813,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],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
30494 t3=C_i_vector_ref(((C_word*)t0)[4],C_fix(2));
30495 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25864,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[7],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);
30496 /* irregex-core.scm:3570: g5092 */
30497 t5=t3;{
30498 C_word *av2;
30499 if(c >= 3) {
30500   av2=av;
30501 } else {
30502   av2=C_alloc(3);
30503 }
30504 av2[0]=t5;
30505 av2[1]=t4;
30506 av2[2]=((C_word*)t0)[6];
30507 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
30508 
30509 /* k25811 in k25808 */
f_25813(C_word c,C_word * av)30510 static void C_ccall f_25813(C_word c,C_word *av){
30511 C_word tmp;
30512 C_word t0=av[0];
30513 C_word t1=av[1];
30514 C_word t2;
30515 C_word t3;
30516 C_word t4;
30517 C_word t5;
30518 C_word t6;
30519 C_word t7;
30520 C_word *a;
30521 C_check_for_interrupt;
30522 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
30523 C_save_and_reclaim((void *)f_25813,c,av);}
30524 a=C_alloc(12);
30525 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25819,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],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
30526 if(C_truep(((C_word*)t0)[12])){
30527 if(C_truep(t1)){
30528 t3=C_u_i_char_alphabeticp(((C_word*)t0)[12]);
30529 t4=(C_truep(t3)?t3:C_u_i_char_numericp(((C_word*)t0)[12]));
30530 if(C_truep(t4)){
30531 t5=C_u_i_char_alphabeticp(t1);
30532 t6=t2;
30533 f_25819(t6,(C_truep(t5)?t5:C_u_i_char_numericp(t1)));}
30534 else{
30535 t5=C_u_i_char_alphabeticp(t1);
30536 t6=(C_truep(t5)?t5:C_u_i_char_numericp(t1));
30537 t7=t2;
30538 f_25819(t7,C_i_not(t6));}}
30539 else{
30540 t3=t2;
30541 f_25819(t3,C_SCHEME_FALSE);}}
30542 else{
30543 t3=t2;
30544 f_25819(t3,C_SCHEME_FALSE);}}
30545 
30546 /* k25817 in k25811 in k25808 */
f_25819(C_word t0,C_word t1)30547 static void C_fcall f_25819(C_word t0,C_word t1){
30548 C_word tmp;
30549 C_word t2;
30550 C_word *a;
30551 C_check_for_interrupt;
30552 if(C_unlikely(!C_demand(C_calculate_demand(0,0,9)))){
30553 C_save_and_reclaim_args((void *)trf_25819,2,t0,t1);}
30554 if(C_truep(t1)){
30555 /* irregex-core.scm:3577: next */
30556 t2=((C_word*)t0)[2];{
30557 C_word av2[10];
30558 av2[0]=t2;
30559 av2[1]=((C_word*)t0)[3];
30560 av2[2]=((C_word*)t0)[4];
30561 av2[3]=((C_word*)t0)[5];
30562 av2[4]=((C_word*)t0)[6];
30563 av2[5]=((C_word*)t0)[7];
30564 av2[6]=((C_word*)t0)[8];
30565 av2[7]=((C_word*)t0)[9];
30566 av2[8]=((C_word*)t0)[10];
30567 av2[9]=((C_word*)t0)[11];
30568 ((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}
30569 else{
30570 /* irregex-core.scm:3578: fail */
30571 t2=((C_word*)t0)[11];{
30572 C_word av2[2];
30573 av2[0]=t2;
30574 av2[1]=((C_word*)t0)[3];
30575 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
30576 
30577 /* k25862 in k25808 */
f_25864(C_word c,C_word * av)30578 static void C_ccall f_25864(C_word c,C_word *av){
30579 C_word tmp;
30580 C_word t0=av[0];
30581 C_word t1=av[1];
30582 C_word t2;
30583 C_word *a;
30584 C_check_for_interrupt;
30585 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
30586 C_save_and_reclaim((void *)f_25864,c,av);}
30587 if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){
30588 t2=((C_word*)t0)[3];{
30589 C_word *av2=av;
30590 av2[0]=t2;
30591 av2[1]=C_i_string_ref(((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));
30592 f_25813(2,av2);}}
30593 else{
30594 /* irregex-core.scm:3572: chunker-prev-char */
30595 f_8640(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}
30596 
30597 /* f_25928 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_25928(C_word c,C_word * av)30598 static void C_ccall f_25928(C_word c,C_word *av){
30599 C_word tmp;
30600 C_word t0=av[0];
30601 C_word t1=av[1];
30602 C_word t2=av[2];
30603 C_word t3=av[3];
30604 C_word t4=av[4];
30605 C_word t5=av[5];
30606 C_word t6=av[6];
30607 C_word t7=av[7];
30608 C_word t8=av[8];
30609 C_word t9=av[9];
30610 C_word t10;
30611 C_word t11;
30612 C_word t12;
30613 C_word *a;
30614 if(c!=10) C_bad_argc_2(c,10,t0);
30615 C_check_for_interrupt;
30616 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
30617 C_save_and_reclaim((void *)f_25928,c,av);}
30618 a=C_alloc(12);
30619 if(C_truep(C_fixnum_greater_or_equal_p(t6,t7))){
30620 t10=C_i_vector_ref(t2,C_fix(0));
30621 t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25945,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t8,a[6]=t9,a[7]=((C_word*)t0)[3],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
30622 /* irregex-core.scm:3591: g5119 */
30623 t12=t10;{
30624 C_word *av2=av;
30625 av2[0]=t12;
30626 av2[1]=t11;
30627 av2[2]=t4;
30628 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
30629 else{
30630 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26013,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
30631 /* irregex-core.scm:3603: scheme#char-ci=? */
30632 t11=*((C_word*)lf[250]+1);{
30633 C_word *av2=av;
30634 av2[0]=t11;
30635 av2[1]=t10;
30636 av2[2]=((C_word*)t0)[3];
30637 av2[3]=C_i_string_ref(t5,t6);
30638 ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}
30639 
30640 /* k25943 */
f_25945(C_word c,C_word * av)30641 static void C_ccall f_25945(C_word c,C_word *av){
30642 C_word tmp;
30643 C_word t0=av[0];
30644 C_word t1=av[1];
30645 C_word t2;
30646 C_word t3;
30647 C_word t4;
30648 C_word t5;
30649 C_word *a;
30650 C_check_for_interrupt;
30651 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
30652 C_save_and_reclaim((void *)f_25945,c,av);}
30653 a=C_alloc(12);
30654 t2=C_SCHEME_UNDEFINED;
30655 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
30656 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25947,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)li181),tmp=(C_word)a,a+=10,tmp));
30657 t5=((C_word*)t3)[1];
30658 f_25947(t5,((C_word*)t0)[8],t1);}
30659 
30660 /* lp in k25943 */
f_25947(C_word t0,C_word t1,C_word t2)30661 static void C_fcall f_25947(C_word t0,C_word t1,C_word t2){
30662 C_word tmp;
30663 C_word t3;
30664 C_word t4;
30665 C_word t5;
30666 C_word *a;
30667 C_check_for_interrupt;
30668 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
30669 C_save_and_reclaim_args((void *)trf_25947,3,t0,t1,t2);}
30670 a=C_alloc(11);
30671 if(C_truep(t2)){
30672 t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
30673 t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25957,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],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);
30674 /* irregex-core.scm:3593: g5110 */
30675 t5=t3;{
30676 C_word av2[3];
30677 av2[0]=t5;
30678 av2[1]=t4;
30679 av2[2]=t2;
30680 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
30681 else{
30682 /* irregex-core.scm:3602: fail */
30683 t3=((C_word*)t0)[7];{
30684 C_word av2[2];
30685 av2[0]=t3;
30686 av2[1]=t1;
30687 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
30688 
30689 /* k25955 in lp in k25943 */
f_25957(C_word c,C_word * av)30690 static void C_ccall f_25957(C_word c,C_word *av){
30691 C_word tmp;
30692 C_word t0=av[0];
30693 C_word t1=av[1];
30694 C_word t2;
30695 C_word t3;
30696 C_word t4;
30697 C_word *a;
30698 C_check_for_interrupt;
30699 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
30700 C_save_and_reclaim((void *)f_25957,c,av);}
30701 a=C_alloc(12);
30702 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
30703 t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25963,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]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
30704 /* irregex-core.scm:3593: g5112 */
30705 t4=t2;{
30706 C_word *av2;
30707 if(c >= 3) {
30708   av2=av;
30709 } else {
30710   av2=C_alloc(3);
30711 }
30712 av2[0]=t4;
30713 av2[1]=t3;
30714 av2[2]=((C_word*)t0)[5];
30715 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
30716 
30717 /* k25961 in k25955 in lp in k25943 */
f_25963(C_word c,C_word * av)30718 static void C_ccall f_25963(C_word c,C_word *av){
30719 C_word tmp;
30720 C_word t0=av[0];
30721 C_word t1=av[1];
30722 C_word t2;
30723 C_word t3;
30724 C_word t4;
30725 C_word *a;
30726 C_check_for_interrupt;
30727 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
30728 C_save_and_reclaim((void *)f_25963,c,av);}
30729 a=C_alloc(13);
30730 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
30731 t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25969,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],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
30732 /* irregex-core.scm:3593: g5114 */
30733 t4=t2;{
30734 C_word *av2;
30735 if(c >= 3) {
30736   av2=av;
30737 } else {
30738   av2=C_alloc(3);
30739 }
30740 av2[0]=t4;
30741 av2[1]=t3;
30742 av2[2]=((C_word*)t0)[5];
30743 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
30744 
30745 /* k25967 in k25961 in k25955 in lp in k25943 */
f_25969(C_word c,C_word * av)30746 static void C_ccall f_25969(C_word c,C_word *av){
30747 C_word tmp;
30748 C_word t0=av[0];
30749 C_word t1=av[1];
30750 C_word t2;
30751 C_word t3;
30752 C_word t4;
30753 C_word *a;
30754 C_check_for_interrupt;
30755 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
30756 C_save_and_reclaim((void *)f_25969,c,av);}
30757 a=C_alloc(12);
30758 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){
30759 t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));
30760 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25985,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
30761 /* irregex-core.scm:3597: g5116 */
30762 t4=t2;{
30763 C_word *av2;
30764 if(c >= 3) {
30765   av2=av;
30766 } else {
30767   av2=C_alloc(3);
30768 }
30769 av2[0]=t4;
30770 av2[1]=t3;
30771 av2[2]=((C_word*)t0)[6];
30772 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
30773 else{
30774 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[9],a[9]=t1,a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
30775 /* irregex-core.scm:3598: scheme#char-ci=? */
30776 t3=*((C_word*)lf[250]+1);{
30777 C_word *av2;
30778 if(c >= 4) {
30779   av2=av;
30780 } else {
30781   av2=C_alloc(4);
30782 }
30783 av2[0]=t3;
30784 av2[1]=t2;
30785 av2[2]=((C_word*)t0)[12];
30786 av2[3]=C_i_string_ref(((C_word*)t0)[9],((C_word*)t0)[2]);
30787 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
30788 
30789 /* k25983 in k25967 in k25961 in k25955 in lp in k25943 */
f_25985(C_word c,C_word * av)30790 static void C_ccall f_25985(C_word c,C_word *av){
30791 C_word tmp;
30792 C_word t0=av[0];
30793 C_word t1=av[1];
30794 C_word t2;
30795 C_word *a;
30796 C_check_for_interrupt;
30797 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
30798 C_save_and_reclaim((void *)f_25985,c,av);}
30799 /* irregex-core.scm:3597: lp */
30800 t2=((C_word*)((C_word*)t0)[2])[1];
30801 f_25947(t2,((C_word*)t0)[3],t1);}
30802 
30803 /* k25989 in k25967 in k25961 in k25955 in lp in k25943 */
f_25991(C_word c,C_word * av)30804 static void C_ccall f_25991(C_word c,C_word *av){
30805 C_word tmp;
30806 C_word t0=av[0];
30807 C_word t1=av[1];
30808 C_word t2;
30809 C_word t3;
30810 C_word *a;
30811 C_check_for_interrupt;
30812 if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){
30813 C_save_and_reclaim((void *)f_25991,c,av);}
30814 a=C_alloc(5);
30815 if(C_truep(t1)){
30816 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
30817 /* irregex-core.scm:3599: next */
30818 t3=((C_word*)t0)[3];{
30819 C_word *av2;
30820 if(c >= 10) {
30821   av2=av;
30822 } else {
30823   av2=C_alloc(10);
30824 }
30825 av2[0]=t3;
30826 av2[1]=((C_word*)t0)[4];
30827 av2[2]=((C_word*)t0)[5];
30828 av2[3]=((C_word*)t0)[6];
30829 av2[4]=((C_word*)t0)[7];
30830 av2[5]=((C_word*)t0)[8];
30831 av2[6]=t2;
30832 av2[7]=((C_word*)t0)[9];
30833 av2[8]=((C_word*)t0)[10];
30834 av2[9]=((C_word*)t0)[11];
30835 ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}
30836 else{
30837 /* irregex-core.scm:3601: fail */
30838 t2=((C_word*)t0)[11];{
30839 C_word *av2=av;
30840 av2[0]=t2;
30841 av2[1]=((C_word*)t0)[4];
30842 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
30843 
30844 /* k26011 */
f_26013(C_word c,C_word * av)30845 static void C_ccall f_26013(C_word c,C_word *av){
30846 C_word tmp;
30847 C_word t0=av[0];
30848 C_word t1=av[1];
30849 C_word t2;
30850 C_word t3;
30851 C_word *a;
30852 C_check_for_interrupt;
30853 if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){
30854 C_save_and_reclaim((void *)f_26013,c,av);}
30855 a=C_alloc(5);
30856 if(C_truep(t1)){
30857 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
30858 /* irregex-core.scm:3604: next */
30859 t3=((C_word*)t0)[3];{
30860 C_word *av2;
30861 if(c >= 10) {
30862   av2=av;
30863 } else {
30864   av2=C_alloc(10);
30865 }
30866 av2[0]=t3;
30867 av2[1]=((C_word*)t0)[4];
30868 av2[2]=((C_word*)t0)[5];
30869 av2[3]=((C_word*)t0)[6];
30870 av2[4]=((C_word*)t0)[7];
30871 av2[5]=((C_word*)t0)[8];
30872 av2[6]=t2;
30873 av2[7]=((C_word*)t0)[9];
30874 av2[8]=((C_word*)t0)[10];
30875 av2[9]=((C_word*)t0)[11];
30876 ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}
30877 else{
30878 /* irregex-core.scm:3605: fail */
30879 t2=((C_word*)t0)[11];{
30880 C_word *av2=av;
30881 av2[0]=t2;
30882 av2[1]=((C_word*)t0)[4];
30883 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
30884 
30885 /* f_26027 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_26027(C_word c,C_word * av)30886 static void C_ccall f_26027(C_word c,C_word *av){
30887 C_word tmp;
30888 C_word t0=av[0];
30889 C_word t1=av[1];
30890 C_word t2=av[2];
30891 C_word t3=av[3];
30892 C_word t4=av[4];
30893 C_word t5=av[5];
30894 C_word t6=av[6];
30895 C_word t7=av[7];
30896 C_word t8=av[8];
30897 C_word t9=av[9];
30898 C_word t10;
30899 C_word t11;
30900 C_word t12;
30901 C_word *a;
30902 if(c!=10) C_bad_argc_2(c,10,t0);
30903 C_check_for_interrupt;
30904 if(C_unlikely(!C_demand(C_calculate_demand(9,c,9)))){
30905 C_save_and_reclaim((void *)f_26027,c,av);}
30906 a=C_alloc(9);
30907 if(C_truep(C_fixnum_greater_or_equal_p(t6,t7))){
30908 t10=C_i_vector_ref(t2,C_fix(0));
30909 t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26044,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t8,a[7]=t9,a[8]=t1,tmp=(C_word)a,a+=9,tmp);
30910 /* irregex-core.scm:3609: g5143 */
30911 t12=t10;{
30912 C_word *av2=av;
30913 av2[0]=t12;
30914 av2[1]=t11;
30915 av2[2]=t4;
30916 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
30917 else{
30918 t10=C_i_string_ref(t5,t6);
30919 if(C_truep(C_i_char_equalp(((C_word*)t0)[2],t10))){
30920 t11=C_a_i_fixnum_plus(&a,2,t6,C_fix(1));
30921 /* irregex-core.scm:3622: next */
30922 t12=((C_word*)t0)[3];{
30923 C_word *av2=av;
30924 av2[0]=t12;
30925 av2[1]=t1;
30926 av2[2]=t2;
30927 av2[3]=t3;
30928 av2[4]=t4;
30929 av2[5]=t5;
30930 av2[6]=t11;
30931 av2[7]=t7;
30932 av2[8]=t8;
30933 av2[9]=t9;
30934 ((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}}
30935 else{
30936 /* irregex-core.scm:3623: fail */
30937 t11=t9;{
30938 C_word *av2=av;
30939 av2[0]=t11;
30940 av2[1]=t1;
30941 ((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}
30942 
30943 /* k26042 */
f_26044(C_word c,C_word * av)30944 static void C_ccall f_26044(C_word c,C_word *av){
30945 C_word tmp;
30946 C_word t0=av[0];
30947 C_word t1=av[1];
30948 C_word t2;
30949 C_word t3;
30950 C_word t4;
30951 C_word t5;
30952 C_word *a;
30953 C_check_for_interrupt;
30954 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
30955 C_save_and_reclaim((void *)f_26044,c,av);}
30956 a=C_alloc(12);
30957 t2=C_SCHEME_UNDEFINED;
30958 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
30959 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_26046,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)li183),tmp=(C_word)a,a+=10,tmp));
30960 t5=((C_word*)t3)[1];
30961 f_26046(t5,((C_word*)t0)[8],t1);}
30962 
30963 /* lp in k26042 */
f_26046(C_word t0,C_word t1,C_word t2)30964 static void C_fcall f_26046(C_word t0,C_word t1,C_word t2){
30965 C_word tmp;
30966 C_word t3;
30967 C_word t4;
30968 C_word t5;
30969 C_word *a;
30970 C_check_for_interrupt;
30971 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
30972 C_save_and_reclaim_args((void *)trf_26046,3,t0,t1,t2);}
30973 a=C_alloc(11);
30974 if(C_truep(t2)){
30975 t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
30976 t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_26056,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],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);
30977 /* irregex-core.scm:3611: g5134 */
30978 t5=t3;{
30979 C_word av2[3];
30980 av2[0]=t5;
30981 av2[1]=t4;
30982 av2[2]=t2;
30983 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
30984 else{
30985 /* irregex-core.scm:3620: fail */
30986 t3=((C_word*)t0)[8];{
30987 C_word av2[2];
30988 av2[0]=t3;
30989 av2[1]=t1;
30990 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
30991 
30992 /* k26054 in lp in k26042 */
f_26056(C_word c,C_word * av)30993 static void C_ccall f_26056(C_word c,C_word *av){
30994 C_word tmp;
30995 C_word t0=av[0];
30996 C_word t1=av[1];
30997 C_word t2;
30998 C_word t3;
30999 C_word t4;
31000 C_word *a;
31001 C_check_for_interrupt;
31002 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
31003 C_save_and_reclaim((void *)f_26056,c,av);}
31004 a=C_alloc(12);
31005 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
31006 t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26062,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],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
31007 /* irregex-core.scm:3611: g5136 */
31008 t4=t2;{
31009 C_word *av2;
31010 if(c >= 3) {
31011   av2=av;
31012 } else {
31013   av2=C_alloc(3);
31014 }
31015 av2[0]=t4;
31016 av2[1]=t3;
31017 av2[2]=((C_word*)t0)[5];
31018 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
31019 
31020 /* k26060 in k26054 in lp in k26042 */
f_26062(C_word c,C_word * av)31021 static void C_ccall f_26062(C_word c,C_word *av){
31022 C_word tmp;
31023 C_word t0=av[0];
31024 C_word t1=av[1];
31025 C_word t2;
31026 C_word t3;
31027 C_word t4;
31028 C_word *a;
31029 C_check_for_interrupt;
31030 if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
31031 C_save_and_reclaim((void *)f_26062,c,av);}
31032 a=C_alloc(13);
31033 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
31034 t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_26068,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],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
31035 /* irregex-core.scm:3611: g5138 */
31036 t4=t2;{
31037 C_word *av2;
31038 if(c >= 3) {
31039   av2=av;
31040 } else {
31041   av2=C_alloc(3);
31042 }
31043 av2[0]=t4;
31044 av2[1]=t3;
31045 av2[2]=((C_word*)t0)[5];
31046 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
31047 
31048 /* k26066 in k26060 in k26054 in lp in k26042 */
f_26068(C_word c,C_word * av)31049 static void C_ccall f_26068(C_word c,C_word *av){
31050 C_word tmp;
31051 C_word t0=av[0];
31052 C_word t1=av[1];
31053 C_word t2;
31054 C_word t3;
31055 C_word t4;
31056 C_word *a;
31057 C_check_for_interrupt;
31058 if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){
31059 C_save_and_reclaim((void *)f_26068,c,av);}
31060 a=C_alloc(5);
31061 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){
31062 t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));
31063 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26084,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
31064 /* irregex-core.scm:3615: g5140 */
31065 t4=t2;{
31066 C_word *av2;
31067 if(c >= 3) {
31068   av2=av;
31069 } else {
31070   av2=C_alloc(3);
31071 }
31072 av2[0]=t4;
31073 av2[1]=t3;
31074 av2[2]=((C_word*)t0)[6];
31075 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
31076 else{
31077 t2=C_i_string_ref(((C_word*)t0)[7],((C_word*)t0)[2]);
31078 if(C_truep(C_i_char_equalp(((C_word*)t0)[8],t2))){
31079 t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
31080 /* irregex-core.scm:3617: next */
31081 t4=((C_word*)t0)[9];{
31082 C_word *av2;
31083 if(c >= 10) {
31084   av2=av;
31085 } else {
31086   av2=C_alloc(10);
31087 }
31088 av2[0]=t4;
31089 av2[1]=((C_word*)t0)[5];
31090 av2[2]=((C_word*)t0)[3];
31091 av2[3]=((C_word*)t0)[10];
31092 av2[4]=((C_word*)t0)[6];
31093 av2[5]=((C_word*)t0)[7];
31094 av2[6]=t3;
31095 av2[7]=t1;
31096 av2[8]=((C_word*)t0)[11];
31097 av2[9]=((C_word*)t0)[12];
31098 ((C_proc)(void*)(*((C_word*)t4+1)))(10,av2);}}
31099 else{
31100 /* irregex-core.scm:3619: fail */
31101 t3=((C_word*)t0)[12];{
31102 C_word *av2=av;
31103 av2[0]=t3;
31104 av2[1]=((C_word*)t0)[5];
31105 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
31106 
31107 /* k26082 in k26066 in k26060 in k26054 in lp in k26042 */
f_26084(C_word c,C_word * av)31108 static void C_ccall f_26084(C_word c,C_word *av){
31109 C_word tmp;
31110 C_word t0=av[0];
31111 C_word t1=av[1];
31112 C_word t2;
31113 C_word *a;
31114 C_check_for_interrupt;
31115 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
31116 C_save_and_reclaim((void *)f_26084,c,av);}
31117 /* irregex-core.scm:3615: lp */
31118 t2=((C_word*)((C_word*)t0)[2])[1];
31119 f_26046(t2,((C_word*)t0)[3],t1);}
31120 
31121 /* k26140 in lp in k23395 in k16232 in k17090 in k17083 in k17080 in k16203 in k16200 in k16197 in k16194 in k16191 in k16185 in k16182 in k16179 in k16176 in chicken.irregex#sre->irregex in k7761 in k7536 in k7533 */
f_26142(C_word c,C_word * av)31122 static void C_ccall f_26142(C_word c,C_word *av){
31123 C_word tmp;
31124 C_word t0=av[0];
31125 C_word t1=av[1];
31126 C_word t2;
31127 C_word t3;
31128 C_word *a;
31129 C_check_for_interrupt;
31130 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
31131 C_save_and_reclaim((void *)f_26142,c,av);}
31132 a=C_alloc(3);
31133 t2=(
31134 /* irregex-core.scm:3626: sre-sequence */
31135   f_18191(C_a_i(&a,3),t1)
31136 );
31137 /* irregex-core.scm:3626: rec */
31138 t3=((C_word*)t0)[2];
31139 f_23449(t3,((C_word*)t0)[3],t2);}
31140 
31141 /* chicken.irregex#sre-cset->procedure in k18916 in k7761 in k7536 in k7533 */
f_26168(C_word t1,C_word t2,C_word t3)31142 static void C_fcall f_26168(C_word t1,C_word t2,C_word t3){
31143 C_word tmp;
31144 C_word t4;
31145 C_word *a;
31146 C_check_for_interrupt;
31147 if(C_unlikely(!C_demand(C_calculate_demand(5,0,10)))){
31148 C_save_and_reclaim_args((void *)trf_26168,3,t1,t2,t3);}
31149 a=C_alloc(5);
31150 t4=t1;{
31151 C_word av2[2];
31152 av2[0]=t4;
31153 av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26170,a[2]=t3,a[3]=t2,a[4]=((C_word)li311),tmp=(C_word)a,a+=5,tmp);
31154 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
31155 
31156 /* f_26170 in chicken.irregex#sre-cset->procedure in k18916 in k7761 in k7536 in k7533 */
f_26170(C_word c,C_word * av)31157 static void C_ccall f_26170(C_word c,C_word *av){
31158 C_word tmp;
31159 C_word t0=av[0];
31160 C_word t1=av[1];
31161 C_word t2=av[2];
31162 C_word t3=av[3];
31163 C_word t4=av[4];
31164 C_word t5=av[5];
31165 C_word t6=av[6];
31166 C_word t7=av[7];
31167 C_word t8=av[8];
31168 C_word t9=av[9];
31169 C_word t10;
31170 C_word t11;
31171 C_word t12;
31172 C_word *a;
31173 if(c!=10) C_bad_argc_2(c,10,t0);
31174 C_check_for_interrupt;
31175 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
31176 C_save_and_reclaim((void *)f_26170,c,av);}
31177 a=C_alloc(12);
31178 if(C_truep(C_fixnum_lessp(t6,t7))){
31179 t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26183,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t7,a[10]=t8,a[11]=t9,tmp=(C_word)a,a+=12,tmp);
31180 /* irregex-core.scm:3650: cset-contains? */
31181 f_26959(t10,((C_word*)t0)[3],C_i_string_ref(t5,t6));}
31182 else{
31183 t10=C_i_vector_ref(t2,C_fix(0));
31184 t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26202,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t8,a[7]=t9,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
31185 /* irregex-core.scm:3653: g5184 */
31186 t12=t10;{
31187 C_word *av2=av;
31188 av2[0]=t12;
31189 av2[1]=t11;
31190 av2[2]=t4;
31191 ((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}
31192 
31193 /* k26181 */
f_26183(C_word c,C_word * av)31194 static void C_ccall f_26183(C_word c,C_word *av){
31195 C_word tmp;
31196 C_word t0=av[0];
31197 C_word t1=av[1];
31198 C_word t2;
31199 C_word t3;
31200 C_word *a;
31201 C_check_for_interrupt;
31202 if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){
31203 C_save_and_reclaim((void *)f_26183,c,av);}
31204 a=C_alloc(5);
31205 if(C_truep(t1)){
31206 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
31207 /* irregex-core.scm:3651: next */
31208 t3=((C_word*)t0)[3];{
31209 C_word *av2;
31210 if(c >= 10) {
31211   av2=av;
31212 } else {
31213   av2=C_alloc(10);
31214 }
31215 av2[0]=t3;
31216 av2[1]=((C_word*)t0)[4];
31217 av2[2]=((C_word*)t0)[5];
31218 av2[3]=((C_word*)t0)[6];
31219 av2[4]=((C_word*)t0)[7];
31220 av2[5]=((C_word*)t0)[8];
31221 av2[6]=t2;
31222 av2[7]=((C_word*)t0)[9];
31223 av2[8]=((C_word*)t0)[10];
31224 av2[9]=((C_word*)t0)[11];
31225 ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}
31226 else{
31227 /* irregex-core.scm:3652: fail */
31228 t2=((C_word*)t0)[11];{
31229 C_word *av2=av;
31230 av2[0]=t2;
31231 av2[1]=((C_word*)t0)[4];
31232 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
31233 
31234 /* k26200 */
f_26202(C_word c,C_word * av)31235 static void C_ccall f_26202(C_word c,C_word *av){
31236 C_word tmp;
31237 C_word t0=av[0];
31238 C_word t1=av[1];
31239 C_word t2;
31240 C_word t3;
31241 C_word t4;
31242 C_word *a;
31243 C_check_for_interrupt;
31244 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
31245 C_save_and_reclaim((void *)f_26202,c,av);}
31246 a=C_alloc(10);
31247 if(C_truep(t1)){
31248 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
31249 t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_26211,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);
31250 /* irregex-core.scm:3655: g5189 */
31251 t4=t2;{
31252 C_word *av2;
31253 if(c >= 3) {
31254   av2=av;
31255 } else {
31256   av2=C_alloc(3);
31257 }
31258 av2[0]=t4;
31259 av2[1]=t3;
31260 av2[2]=t1;
31261 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
31262 else{
31263 /* irregex-core.scm:3661: fail */
31264 t2=((C_word*)t0)[7];{
31265 C_word *av2=av;
31266 av2[0]=t2;
31267 av2[1]=((C_word*)t0)[4];
31268 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
31269 
31270 /* k26209 in k26200 */
f_26211(C_word c,C_word * av)31271 static void C_ccall f_26211(C_word c,C_word *av){
31272 C_word tmp;
31273 C_word t0=av[0];
31274 C_word t1=av[1];
31275 C_word t2;
31276 C_word t3;
31277 C_word t4;
31278 C_word *a;
31279 C_check_for_interrupt;
31280 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
31281 C_save_and_reclaim((void *)f_26211,c,av);}
31282 a=C_alloc(11);
31283 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
31284 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_26217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
31285 /* irregex-core.scm:3655: g5191 */
31286 t4=t2;{
31287 C_word *av2;
31288 if(c >= 3) {
31289   av2=av;
31290 } else {
31291   av2=C_alloc(3);
31292 }
31293 av2[0]=t4;
31294 av2[1]=t3;
31295 av2[2]=((C_word*)t0)[6];
31296 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
31297 
31298 /* k26215 in k26209 in k26200 */
f_26217(C_word c,C_word * av)31299 static void C_ccall f_26217(C_word c,C_word *av){
31300 C_word tmp;
31301 C_word t0=av[0];
31302 C_word t1=av[1];
31303 C_word t2;
31304 C_word t3;
31305 C_word t4;
31306 C_word *a;
31307 C_check_for_interrupt;
31308 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
31309 C_save_and_reclaim((void *)f_26217,c,av);}
31310 a=C_alloc(12);
31311 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
31312 t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26223,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],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],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
31313 /* irregex-core.scm:3655: g5193 */
31314 t4=t2;{
31315 C_word *av2;
31316 if(c >= 3) {
31317   av2=av;
31318 } else {
31319   av2=C_alloc(3);
31320 }
31321 av2[0]=t4;
31322 av2[1]=t3;
31323 av2[2]=((C_word*)t0)[6];
31324 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
31325 
31326 /* k26221 in k26215 in k26209 in k26200 */
f_26223(C_word c,C_word * av)31327 static void C_ccall f_26223(C_word c,C_word *av){
31328 C_word tmp;
31329 C_word t0=av[0];
31330 C_word t1=av[1];
31331 C_word t2;
31332 C_word t3;
31333 C_word *a;
31334 C_check_for_interrupt;
31335 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
31336 C_save_and_reclaim((void *)f_26223,c,av);}
31337 a=C_alloc(12);
31338 t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26229,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]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
31339 /* irregex-core.scm:3658: cset-contains? */
31340 f_26959(t2,((C_word*)t0)[11],C_i_string_ref(((C_word*)t0)[8],((C_word*)t0)[2]));}
31341 
31342 /* k26227 in k26221 in k26215 in k26209 in k26200 */
f_26229(C_word c,C_word * av)31343 static void C_ccall f_26229(C_word c,C_word *av){
31344 C_word tmp;
31345 C_word t0=av[0];
31346 C_word t1=av[1];
31347 C_word t2;
31348 C_word t3;
31349 C_word *a;
31350 C_check_for_interrupt;
31351 if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){
31352 C_save_and_reclaim((void *)f_26229,c,av);}
31353 a=C_alloc(5);
31354 if(C_truep(t1)){
31355 t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
31356 /* irregex-core.scm:3659: next */
31357 t3=((C_word*)t0)[3];{
31358 C_word *av2;
31359 if(c >= 10) {
31360   av2=av;
31361 } else {
31362   av2=C_alloc(10);
31363 }
31364 av2[0]=t3;
31365 av2[1]=((C_word*)t0)[4];
31366 av2[2]=((C_word*)t0)[5];
31367 av2[3]=((C_word*)t0)[6];
31368 av2[4]=((C_word*)t0)[7];
31369 av2[5]=((C_word*)t0)[8];
31370 av2[6]=t2;
31371 av2[7]=((C_word*)t0)[9];
31372 av2[8]=((C_word*)t0)[10];
31373 av2[9]=((C_word*)t0)[11];
31374 ((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}}
31375 else{
31376 /* irregex-core.scm:3660: fail */
31377 t2=((C_word*)t0)[11];{
31378 C_word *av2=av;
31379 av2[0]=t2;
31380 av2[1]=((C_word*)t0)[4];
31381 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
31382 
31383 /* chicken.irregex#cset->plist in k18916 in k7761 in k7536 in k7533 */
f_26381(C_word t1,C_word t2)31384 static void C_fcall f_26381(C_word t1,C_word t2){
31385 C_word tmp;
31386 C_word t3;
31387 C_word t4;
31388 C_word t5;
31389 C_word t6;
31390 C_word t7;
31391 C_word t8;
31392 C_word *a;
31393 C_check_for_interrupt;
31394 if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
31395 C_save_and_reclaim_args((void *)trf_26381,2,t1,t2);}
31396 a=C_alloc(12);
31397 t3=C_i_vector_length(t2);
31398 t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1));
31399 t5=C_SCHEME_UNDEFINED;
31400 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
31401 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26393,a[2]=t2,a[3]=t6,a[4]=((C_word)li313),tmp=(C_word)a,a+=5,tmp));
31402 t8=((C_word*)t6)[1];
31403 f_26393(t8,t1,t4,C_SCHEME_END_OF_LIST);}
31404 
31405 /* lp in chicken.irregex#cset->plist in k18916 in k7761 in k7536 in k7533 */
f_26393(C_word t0,C_word t1,C_word t2,C_word t3)31406 static void C_fcall f_26393(C_word t0,C_word t1,C_word t2,C_word t3){
31407 C_word tmp;
31408 C_word t4;
31409 C_word t5;
31410 C_word t6;
31411 C_word t7;
31412 C_word t8;
31413 C_word t9;
31414 C_word t10;
31415 C_word t11;
31416 C_word t12;
31417 C_word t13;
31418 C_word t14;
31419 C_word t15;
31420 C_word *a;
31421 loop:
31422 C_check_for_interrupt;
31423 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
31424 C_save_and_reclaim_args((void *)trf_26393,4,t0,t1,t2,t3);}
31425 a=C_alloc(6);
31426 t4=C_eqp(t2,C_fix(-1));
31427 if(C_truep(t4)){
31428 t5=t1;{
31429 C_word av2[2];
31430 av2[0]=t5;
31431 av2[1]=t3;
31432 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
31433 else{
31434 t5=C_fixnum_difference(t2,C_fix(1));
31435 t6=C_i_vector_ref(((C_word*)t0)[2],t2);
31436 t7=C_i_car(t6);
31437 t8=C_i_vector_ref(((C_word*)t0)[2],t2);
31438 t9=C_i_cdr(t8);
31439 t10=C_a_i_cons(&a,2,t9,t3);
31440 t11=C_a_i_cons(&a,2,t7,t10);
31441 /* irregex-core.scm:3690: lp */
31442 t13=t1;
31443 t14=t5;
31444 t15=t11;
31445 t1=t13;
31446 t2=t14;
31447 t3=t15;
31448 goto loop;}}
31449 
31450 /* lp in k26758 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26443(C_word t0,C_word t1,C_word t2,C_word t3)31451 static void C_fcall f_26443(C_word t0,C_word t1,C_word t2,C_word t3){
31452 C_word tmp;
31453 C_word t4;
31454 C_word t5;
31455 C_word t6;
31456 C_word t7;
31457 C_word t8;
31458 C_word t9;
31459 C_word t10;
31460 C_word t11;
31461 C_word *a;
31462 C_check_for_interrupt;
31463 if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
31464 C_save_and_reclaim_args((void *)trf_26443,4,t0,t1,t2,t3);}
31465 a=C_alloc(10);
31466 if(C_truep(C_i_nullp(t2))){
31467 t4=t1;{
31468 C_word av2[2];
31469 av2[0]=t4;
31470 av2[1]=t3;
31471 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
31472 else{
31473 t4=C_i_cddr(t2);
31474 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26461,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
31475 t6=C_u_i_car(t2);
31476 t7=C_u_i_cdr(t2);
31477 t8=C_u_i_car(t7);
31478 t9=C_a_i_cons(&a,2,t6,t8);
31479 t10=C_a_i_vector1(&a,1,t9);
31480 /* irregex-core.scm:3697: cset-union */
31481 t11=lf[162];{
31482 C_word av2[4];
31483 av2[0]=t11;
31484 av2[1]=t5;
31485 av2[2]=t10;
31486 av2[3]=t3;
31487 f_27080(4,av2);}}}
31488 
31489 /* k26459 in lp in k26758 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26461(C_word c,C_word * av)31490 static void C_ccall f_26461(C_word c,C_word *av){
31491 C_word tmp;
31492 C_word t0=av[0];
31493 C_word t1=av[1];
31494 C_word t2;
31495 C_word *a;
31496 C_check_for_interrupt;
31497 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
31498 C_save_and_reclaim((void *)f_26461,c,av);}
31499 /* irregex-core.scm:3697: lp */
31500 t2=((C_word*)((C_word*)t0)[2])[1];
31501 f_26443(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
31502 
31503 /* chicken.irregex#string->cset in k18916 in k7761 in k7536 in k7533 */
f_26472(C_word t1,C_word t2)31504 static void C_fcall f_26472(C_word t1,C_word t2){
31505 C_word tmp;
31506 C_word t3;
31507 C_word t4;
31508 C_word t5;
31509 C_word t6;
31510 C_word *a;
31511 C_check_for_interrupt;
31512 if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
31513 C_save_and_reclaim_args((void *)trf_26472,2,t1,t2);}
31514 a=C_alloc(9);
31515 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26478,a[2]=((C_word)li315),tmp=(C_word)a,a+=3,tmp);
31516 t4=C_a_i_vector(&a,0);
31517 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26490,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
31518 /* ##sys#string->list */
31519 t6=*((C_word*)lf[105]+1);{
31520 C_word av2[3];
31521 av2[0]=t6;
31522 av2[1]=t5;
31523 av2[2]=t2;
31524 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
31525 
31526 /* a26477 in chicken.irregex#string->cset in k18916 in k7761 in k7536 in k7533 */
f_26478(C_word c,C_word * av)31527 static void C_ccall f_26478(C_word c,C_word *av){
31528 C_word tmp;
31529 C_word t0=av[0];
31530 C_word t1=av[1];
31531 C_word t2=av[2];
31532 C_word t3=av[3];
31533 C_word t4;
31534 C_word t5;
31535 C_word t6;
31536 C_word *a;
31537 if(c!=4) C_bad_argc_2(c,4,t0);
31538 C_check_for_interrupt;
31539 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
31540 C_save_and_reclaim((void *)f_26478,c,av);}
31541 a=C_alloc(5);
31542 t4=C_a_i_cons(&a,2,t2,t2);
31543 t5=C_a_i_vector1(&a,1,t4);
31544 /* irregex-core.scm:3802: cset-union */
31545 t6=lf[162];{
31546 C_word *av2=av;
31547 av2[0]=t6;
31548 av2[1]=t1;
31549 av2[2]=t3;
31550 av2[3]=t5;
31551 f_27080(4,av2);}}
31552 
31553 /* k26488 in chicken.irregex#string->cset in k18916 in k7761 in k7536 in k7533 */
f_26490(C_word c,C_word * av)31554 static void C_ccall f_26490(C_word c,C_word *av){
31555 C_word tmp;
31556 C_word t0=av[0];
31557 C_word t1=av[1];
31558 C_word t2;
31559 C_word *a;
31560 C_check_for_interrupt;
31561 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
31562 C_save_and_reclaim((void *)f_26490,c,av);}
31563 /* irregex-core.scm:3700: fold */
31564 f_9382(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);}
31565 
31566 /* chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26492(C_word t1,C_word t2,C_word t3)31567 static void C_fcall f_26492(C_word t1,C_word t2,C_word t3){
31568 C_word tmp;
31569 C_word t4;
31570 C_word t5;
31571 C_word t6;
31572 C_word t7;
31573 C_word t8;
31574 C_word t9;
31575 C_word *a;
31576 C_check_for_interrupt;
31577 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
31578 C_save_and_reclaim_args((void *)trf_26492,3,t1,t2,t3);}
31579 a=C_alloc(6);
31580 t4=C_i_pairp(t3);
31581 t5=(C_truep(t4)?C_u_i_car(t3):C_SCHEME_FALSE);
31582 t6=C_SCHEME_UNDEFINED;
31583 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
31584 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26502,a[2]=t7,a[3]=((C_word)li325),tmp=(C_word)a,a+=4,tmp));
31585 t9=((C_word*)t7)[1];
31586 f_26502(t9,t1,t2,t5);}
31587 
31588 /* lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26502(C_word t0,C_word t1,C_word t2,C_word t3)31589 static void C_fcall f_26502(C_word t0,C_word t1,C_word t2,C_word t3){
31590 C_word tmp;
31591 C_word t4;
31592 C_word t5;
31593 C_word t6;
31594 C_word t7;
31595 C_word t8;
31596 C_word t9;
31597 C_word t10;
31598 C_word t11;
31599 C_word t12;
31600 C_word t13;
31601 C_word t14;
31602 C_word t15;
31603 C_word t16;
31604 C_word t17;
31605 C_word t18;
31606 C_word t19;
31607 C_word *a;
31608 loop:
31609 C_check_for_interrupt;
31610 if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){
31611 C_save_and_reclaim_args((void *)trf_26502,4,t0,t1,t2,t3);}
31612 a=C_alloc(18);
31613 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26505,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li317),tmp=(C_word)a,a+=5,tmp);
31614 if(C_truep(C_i_pairp(t2))){
31615 if(C_truep(C_i_stringp(C_u_i_car(t2)))){
31616 if(C_truep(t3)){
31617 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26531,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
31618 /* irregex-core.scm:3712: string->cset */
31619 f_26472(t5,C_u_i_car(t2));}
31620 else{
31621 /* irregex-core.scm:3713: string->cset */
31622 f_26472(t1,C_u_i_car(t2));}}
31623 else{
31624 t5=C_u_i_car(t2);
31625 t6=C_eqp(t5,lf[179]);
31626 if(C_truep(t6)){
31627 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26552,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
31628 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26556,a[2]=t2,a[3]=t7,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
31629 /* irregex-core.scm:3717: rec */
31630 t9=t4;
31631 f_26505(t9,t8,C_i_cadr(t2));}
31632 else{
31633 t7=C_eqp(t5,lf[234]);
31634 if(C_truep(t7)){
31635 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26620,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
31636 /* irregex-core.scm:3719: rec */
31637 t9=t4;
31638 f_26505(t9,t8,C_i_cadr(t2));}
31639 else{
31640 t8=C_eqp(t5,lf[247]);
31641 if(C_truep(t8)){
31642 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26682,a[2]=((C_word)li320),tmp=(C_word)a,a+=3,tmp);
31643 t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26690,a[2]=t2,a[3]=t1,a[4]=t9,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
31644 /* irregex-core.scm:3722: rec */
31645 t11=t4;
31646 f_26505(t11,t10,C_i_cadr(t2));}
31647 else{
31648 t9=C_eqp(t5,lf[52]);
31649 if(C_truep(t9)){
31650 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26750,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
31651 t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26760,a[2]=t10,tmp=(C_word)a,a+=3,tmp);
31652 t12=C_u_i_cdr(t2);
31653 t13=C_SCHEME_UNDEFINED;
31654 t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
31655 t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18370,a[2]=t14,a[3]=((C_word)li323),tmp=(C_word)a,a+=4,tmp));
31656 t16=((C_word*)t14)[1];
31657 f_18370(t16,t11,t12,C_SCHEME_END_OF_LIST);}
31658 else{
31659 t10=C_eqp(t5,lf[103]);
31660 if(C_truep(t10)){
31661 t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26775,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
31662 /* irregex-core.scm:3730: rec */
31663 t12=t4;
31664 f_26505(t12,t11,C_i_cadr(t2));}
31665 else{
31666 t11=C_eqp(t5,lf[225]);
31667 if(C_truep(t11)){
31668 t12=(
31669 /* irregex-core.scm:3732: sre-alternate */
31670   f_18214(C_a_i(&a,3),C_u_i_cdr(t2))
31671 );
31672 /* irregex-core.scm:3732: lp */
31673 t17=t1;
31674 t18=t12;
31675 t19=C_SCHEME_FALSE;
31676 t1=t17;
31677 t2=t18;
31678 t3=t19;
31679 goto loop;}
31680 else{
31681 t12=C_eqp(t5,lf[226]);
31682 if(C_truep(t12)){
31683 t13=(
31684 /* irregex-core.scm:3734: sre-alternate */
31685   f_18214(C_a_i(&a,3),C_u_i_cdr(t2))
31686 );
31687 /* irregex-core.scm:3734: lp */
31688 t17=t1;
31689 t18=t13;
31690 t19=C_SCHEME_TRUE;
31691 t1=t17;
31692 t2=t18;
31693 t3=t19;
31694 goto loop;}
31695 else{
31696 /* irregex-core.scm:3736: chicken.base#error */
31697 t13=*((C_word*)lf[30]+1);{
31698 C_word av2[4];
31699 av2[0]=t13;
31700 av2[1]=t1;
31701 av2[2]=lf[406];
31702 av2[3]=t2;
31703 ((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}}}}}}}}}
31704 else{
31705 if(C_truep(C_charp(t2))){
31706 if(C_truep(t3)){
31707 t5=C_a_i_cons(&a,2,t2,t2);
31708 t6=C_a_i_vector1(&a,1,t5);
31709 /* irregex-core.scm:3738: cset-case-insensitive */
31710 f_27607(t1,t6);}
31711 else{
31712 t5=C_a_i_cons(&a,2,t2,t2);
31713 t6=t1;{
31714 C_word av2[2];
31715 av2[0]=t6;
31716 av2[1]=C_a_i_vector1(&a,1,t5);
31717 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
31718 else{
31719 if(C_truep(C_i_stringp(t2))){
31720 t5=C_a_i_list1(&a,1,t2);
31721 /* irregex-core.scm:3740: rec */
31722 t6=t4;
31723 f_26505(t6,t1,t5);}
31724 else{
31725 t5=C_i_assq(t2,lf[248]);
31726 if(C_truep(t5)){
31727 /* irregex-core.scm:3744: rec */
31728 t6=t4;
31729 f_26505(t6,t1,C_i_cdr(t5));}
31730 else{
31731 /* irregex-core.scm:3745: chicken.base#error */
31732 t6=*((C_word*)lf[30]+1);{
31733 C_word av2[4];
31734 av2[0]=t6;
31735 av2[1]=t1;
31736 av2[2]=lf[407];
31737 av2[3]=t2;
31738 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}}}
31739 
31740 /* rec in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26505(C_word t0,C_word t1,C_word t2)31741 static void C_fcall f_26505(C_word t0,C_word t1,C_word t2){
31742 C_word tmp;
31743 C_word t3;
31744 C_word *a;
31745 C_check_for_interrupt;
31746 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
31747 C_save_and_reclaim_args((void *)trf_26505,3,t0,t1,t2);}
31748 /* irregex-core.scm:3707: lp */
31749 t3=((C_word*)((C_word*)t0)[2])[1];
31750 f_26502(t3,t1,t2,((C_word*)t0)[3]);}
31751 
31752 /* k26529 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26531(C_word c,C_word * av)31753 static void C_ccall f_26531(C_word c,C_word *av){
31754 C_word tmp;
31755 C_word t0=av[0];
31756 C_word t1=av[1];
31757 C_word t2;
31758 C_word *a;
31759 C_check_for_interrupt;
31760 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
31761 C_save_and_reclaim((void *)f_26531,c,av);}
31762 /* irregex-core.scm:3712: cset-case-insensitive */
31763 f_27607(((C_word*)t0)[2],t1);}
31764 
31765 /* k26550 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26552(C_word c,C_word * av)31766 static void C_ccall f_26552(C_word c,C_word *av){
31767 C_word tmp;
31768 C_word t0=av[0];
31769 C_word t1=av[1];
31770 C_word t2;
31771 C_word *a;
31772 C_check_for_interrupt;
31773 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
31774 C_save_and_reclaim((void *)f_26552,c,av);}
31775 /* irregex-core.scm:3716: cset-complement */
31776 f_27597(((C_word*)t0)[2],t1);}
31777 
31778 /* k26554 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26556(C_word c,C_word * av)31779 static void C_ccall f_26556(C_word c,C_word *av){
31780 C_word tmp;
31781 C_word t0=av[0];
31782 C_word t1=av[1];
31783 C_word t2;
31784 C_word t3;
31785 C_word t4;
31786 C_word t5;
31787 C_word t6;
31788 C_word t7;
31789 C_word t8;
31790 C_word t9;
31791 C_word t10;
31792 C_word t11;
31793 C_word t12;
31794 C_word *a;
31795 C_check_for_interrupt;
31796 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
31797 C_save_and_reclaim((void *)f_26556,c,av);}
31798 a=C_alloc(18);
31799 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
31800 t3=t2;
31801 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
31802 t5=((C_word*)t4)[1];
31803 t6=C_i_cddr(((C_word*)t0)[2]);
31804 t7=C_i_check_list_2(t6,lf[211]);
31805 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26569,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
31806 t9=C_SCHEME_UNDEFINED;
31807 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
31808 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26571,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li318),tmp=(C_word)a,a+=7,tmp));
31809 t12=((C_word*)t10)[1];
31810 f_26571(t12,t8,t6);}
31811 
31812 /* k26567 in k26554 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26569(C_word c,C_word * av)31813 static void C_ccall f_26569(C_word c,C_word *av){
31814 C_word tmp;
31815 C_word t0=av[0];
31816 C_word t1=av[1];
31817 C_word t2;
31818 C_word *a;
31819 C_check_for_interrupt;
31820 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
31821 C_save_and_reclaim((void *)f_26569,c,av);}
31822 /* irregex-core.scm:3717: fold */
31823 f_9382(((C_word*)t0)[2],lf[162],((C_word*)t0)[3],t1);}
31824 
31825 /* map-loop5250 in k26554 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26571(C_word t0,C_word t1,C_word t2)31826 static void C_fcall f_26571(C_word t0,C_word t1,C_word t2){
31827 C_word tmp;
31828 C_word t3;
31829 C_word t4;
31830 C_word *a;
31831 C_check_for_interrupt;
31832 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
31833 C_save_and_reclaim_args((void *)trf_26571,3,t0,t1,t2);}
31834 a=C_alloc(6);
31835 if(C_truep(C_i_pairp(t2))){
31836 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26596,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);
31837 /* irregex-core.scm:3717: g5256 */
31838 t4=((C_word*)t0)[4];
31839 f_26505(t4,t3,C_slot(t2,C_fix(0)));}
31840 else{
31841 t3=t1;{
31842 C_word av2[2];
31843 av2[0]=t3;
31844 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
31845 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
31846 
31847 /* k26594 in map-loop5250 in k26554 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26596(C_word c,C_word * av)31848 static void C_ccall f_26596(C_word c,C_word *av){
31849 C_word tmp;
31850 C_word t0=av[0];
31851 C_word t1=av[1];
31852 C_word t2;
31853 C_word t3;
31854 C_word t4;
31855 C_word t5;
31856 C_word *a;
31857 C_check_for_interrupt;
31858 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
31859 C_save_and_reclaim((void *)f_26596,c,av);}
31860 a=C_alloc(3);
31861 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
31862 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
31863 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
31864 t5=((C_word*)((C_word*)t0)[3])[1];
31865 f_26571(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
31866 
31867 /* k26618 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26620(C_word c,C_word * av)31868 static void C_ccall f_26620(C_word c,C_word *av){
31869 C_word tmp;
31870 C_word t0=av[0];
31871 C_word t1=av[1];
31872 C_word t2;
31873 C_word t3;
31874 C_word t4;
31875 C_word t5;
31876 C_word t6;
31877 C_word t7;
31878 C_word t8;
31879 C_word t9;
31880 C_word t10;
31881 C_word t11;
31882 C_word t12;
31883 C_word *a;
31884 C_check_for_interrupt;
31885 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
31886 C_save_and_reclaim((void *)f_26620,c,av);}
31887 a=C_alloc(18);
31888 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
31889 t3=t2;
31890 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
31891 t5=((C_word*)t4)[1];
31892 t6=C_i_cddr(((C_word*)t0)[2]);
31893 t7=C_i_check_list_2(t6,lf[211]);
31894 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26633,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
31895 t9=C_SCHEME_UNDEFINED;
31896 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
31897 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26635,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li319),tmp=(C_word)a,a+=7,tmp));
31898 t12=((C_word*)t10)[1];
31899 f_26635(t12,t8,t6);}
31900 
31901 /* k26631 in k26618 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26633(C_word c,C_word * av)31902 static void C_ccall f_26633(C_word c,C_word *av){
31903 C_word tmp;
31904 C_word t0=av[0];
31905 C_word t1=av[1];
31906 C_word t2;
31907 C_word *a;
31908 C_check_for_interrupt;
31909 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
31910 C_save_and_reclaim((void *)f_26633,c,av);}
31911 /* irregex-core.scm:3719: fold */
31912 f_9382(((C_word*)t0)[2],lf[405],((C_word*)t0)[3],t1);}
31913 
31914 /* map-loop5276 in k26618 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26635(C_word t0,C_word t1,C_word t2)31915 static void C_fcall f_26635(C_word t0,C_word t1,C_word t2){
31916 C_word tmp;
31917 C_word t3;
31918 C_word t4;
31919 C_word *a;
31920 C_check_for_interrupt;
31921 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
31922 C_save_and_reclaim_args((void *)trf_26635,3,t0,t1,t2);}
31923 a=C_alloc(6);
31924 if(C_truep(C_i_pairp(t2))){
31925 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26660,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);
31926 /* irregex-core.scm:3719: g5282 */
31927 t4=((C_word*)t0)[4];
31928 f_26505(t4,t3,C_slot(t2,C_fix(0)));}
31929 else{
31930 t3=t1;{
31931 C_word av2[2];
31932 av2[0]=t3;
31933 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
31934 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
31935 
31936 /* k26658 in map-loop5276 in k26618 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26660(C_word c,C_word * av)31937 static void C_ccall f_26660(C_word c,C_word *av){
31938 C_word tmp;
31939 C_word t0=av[0];
31940 C_word t1=av[1];
31941 C_word t2;
31942 C_word t3;
31943 C_word t4;
31944 C_word t5;
31945 C_word *a;
31946 C_check_for_interrupt;
31947 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
31948 C_save_and_reclaim((void *)f_26660,c,av);}
31949 a=C_alloc(3);
31950 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
31951 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
31952 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
31953 t5=((C_word*)((C_word*)t0)[3])[1];
31954 f_26635(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
31955 
31956 /* a26681 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26682(C_word c,C_word * av)31957 static void C_ccall f_26682(C_word c,C_word *av){
31958 C_word tmp;
31959 C_word t0=av[0];
31960 C_word t1=av[1];
31961 C_word t2=av[2];
31962 C_word t3=av[3];
31963 C_word t4;
31964 C_word *a;
31965 if(c!=4) C_bad_argc_2(c,4,t0);
31966 C_check_for_interrupt;
31967 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
31968 C_save_and_reclaim((void *)f_26682,c,av);}
31969 /* irregex-core.scm:3721: cset-difference */
31970 f_27275(t1,t3,t2);}
31971 
31972 /* k26688 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26690(C_word c,C_word * av)31973 static void C_ccall f_26690(C_word c,C_word *av){
31974 C_word tmp;
31975 C_word t0=av[0];
31976 C_word t1=av[1];
31977 C_word t2;
31978 C_word t3;
31979 C_word t4;
31980 C_word t5;
31981 C_word t6;
31982 C_word t7;
31983 C_word t8;
31984 C_word t9;
31985 C_word t10;
31986 C_word t11;
31987 C_word t12;
31988 C_word *a;
31989 C_check_for_interrupt;
31990 if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
31991 C_save_and_reclaim((void *)f_26690,c,av);}
31992 a=C_alloc(19);
31993 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
31994 t3=t2;
31995 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
31996 t5=((C_word*)t4)[1];
31997 t6=C_i_cddr(((C_word*)t0)[2]);
31998 t7=C_i_check_list_2(t6,lf[211]);
31999 t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26703,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
32000 t9=C_SCHEME_UNDEFINED;
32001 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
32002 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26705,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word)li321),tmp=(C_word)a,a+=7,tmp));
32003 t12=((C_word*)t10)[1];
32004 f_26705(t12,t8,t6);}
32005 
32006 /* k26701 in k26688 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26703(C_word c,C_word * av)32007 static void C_ccall f_26703(C_word c,C_word *av){
32008 C_word tmp;
32009 C_word t0=av[0];
32010 C_word t1=av[1];
32011 C_word t2;
32012 C_word *a;
32013 C_check_for_interrupt;
32014 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
32015 C_save_and_reclaim((void *)f_26703,c,av);}
32016 /* irregex-core.scm:3721: fold */
32017 f_9382(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);}
32018 
32019 /* map-loop5304 in k26688 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26705(C_word t0,C_word t1,C_word t2)32020 static void C_fcall f_26705(C_word t0,C_word t1,C_word t2){
32021 C_word tmp;
32022 C_word t3;
32023 C_word t4;
32024 C_word *a;
32025 C_check_for_interrupt;
32026 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
32027 C_save_and_reclaim_args((void *)trf_26705,3,t0,t1,t2);}
32028 a=C_alloc(6);
32029 if(C_truep(C_i_pairp(t2))){
32030 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26730,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);
32031 /* irregex-core.scm:3723: g5310 */
32032 t4=((C_word*)t0)[4];
32033 f_26505(t4,t3,C_slot(t2,C_fix(0)));}
32034 else{
32035 t3=t1;{
32036 C_word av2[2];
32037 av2[0]=t3;
32038 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
32039 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
32040 
32041 /* k26728 in map-loop5304 in k26688 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26730(C_word c,C_word * av)32042 static void C_ccall f_26730(C_word c,C_word *av){
32043 C_word tmp;
32044 C_word t0=av[0];
32045 C_word t1=av[1];
32046 C_word t2;
32047 C_word t3;
32048 C_word t4;
32049 C_word t5;
32050 C_word *a;
32051 C_check_for_interrupt;
32052 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
32053 C_save_and_reclaim((void *)f_26730,c,av);}
32054 a=C_alloc(3);
32055 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
32056 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
32057 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
32058 t5=((C_word*)((C_word*)t0)[3])[1];
32059 f_26705(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
32060 
32061 /* k26748 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26750(C_word c,C_word * av)32062 static void C_ccall f_26750(C_word c,C_word *av){
32063 C_word tmp;
32064 C_word t0=av[0];
32065 C_word t1=av[1];
32066 C_word t2;
32067 C_word *a;
32068 C_check_for_interrupt;
32069 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32070 C_save_and_reclaim((void *)f_26750,c,av);}
32071 if(C_truep(((C_word*)t0)[2])){
32072 /* irregex-core.scm:3727: cset-case-insensitive */
32073 f_27607(((C_word*)t0)[3],t1);}
32074 else{
32075 t2=((C_word*)t0)[3];{
32076 C_word *av2=av;
32077 av2[0]=t2;
32078 av2[1]=t1;
32079 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
32080 
32081 /* k26758 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26760(C_word c,C_word * av)32082 static void C_ccall f_26760(C_word c,C_word *av){
32083 C_word tmp;
32084 C_word t0=av[0];
32085 C_word t1=av[1];
32086 C_word t2;
32087 C_word t3;
32088 C_word t4;
32089 C_word t5;
32090 C_word t6;
32091 C_word *a;
32092 C_check_for_interrupt;
32093 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
32094 C_save_and_reclaim((void *)f_26760,c,av);}
32095 a=C_alloc(7);
32096 t2=C_a_i_vector(&a,0);
32097 t3=C_SCHEME_UNDEFINED;
32098 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
32099 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26443,a[2]=t4,a[3]=((C_word)li322),tmp=(C_word)a,a+=4,tmp));
32100 t6=((C_word*)t4)[1];
32101 f_26443(t6,((C_word*)t0)[2],t1,t2);}
32102 
32103 /* k26773 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26775(C_word c,C_word * av)32104 static void C_ccall f_26775(C_word c,C_word *av){
32105 C_word tmp;
32106 C_word t0=av[0];
32107 C_word t1=av[1];
32108 C_word t2;
32109 C_word t3;
32110 C_word t4;
32111 C_word t5;
32112 C_word t6;
32113 C_word t7;
32114 C_word t8;
32115 C_word t9;
32116 C_word t10;
32117 C_word t11;
32118 C_word t12;
32119 C_word *a;
32120 C_check_for_interrupt;
32121 if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
32122 C_save_and_reclaim((void *)f_26775,c,av);}
32123 a=C_alloc(18);
32124 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
32125 t3=t2;
32126 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
32127 t5=((C_word*)t4)[1];
32128 t6=C_i_cddr(((C_word*)t0)[2]);
32129 t7=C_i_check_list_2(t6,lf[211]);
32130 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26788,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
32131 t9=C_SCHEME_UNDEFINED;
32132 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
32133 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26790,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li324),tmp=(C_word)a,a+=7,tmp));
32134 t12=((C_word*)t10)[1];
32135 f_26790(t12,t8,t6);}
32136 
32137 /* k26786 in k26773 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26788(C_word c,C_word * av)32138 static void C_ccall f_26788(C_word c,C_word *av){
32139 C_word tmp;
32140 C_word t0=av[0];
32141 C_word t1=av[1];
32142 C_word t2;
32143 C_word *a;
32144 C_check_for_interrupt;
32145 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
32146 C_save_and_reclaim((void *)f_26788,c,av);}
32147 /* irregex-core.scm:3730: fold */
32148 f_9382(((C_word*)t0)[2],lf[162],((C_word*)t0)[3],t1);}
32149 
32150 /* map-loop5331 in k26773 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26790(C_word t0,C_word t1,C_word t2)32151 static void C_fcall f_26790(C_word t0,C_word t1,C_word t2){
32152 C_word tmp;
32153 C_word t3;
32154 C_word t4;
32155 C_word *a;
32156 C_check_for_interrupt;
32157 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
32158 C_save_and_reclaim_args((void *)trf_26790,3,t0,t1,t2);}
32159 a=C_alloc(6);
32160 if(C_truep(C_i_pairp(t2))){
32161 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26815,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);
32162 /* irregex-core.scm:3730: g5337 */
32163 t4=((C_word*)t0)[4];
32164 f_26505(t4,t3,C_slot(t2,C_fix(0)));}
32165 else{
32166 t3=t1;{
32167 C_word av2[2];
32168 av2[0]=t3;
32169 av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
32170 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
32171 
32172 /* k26813 in map-loop5331 in k26773 in lp in chicken.irregex#sre->cset in k18916 in k7761 in k7536 in k7533 */
f_26815(C_word c,C_word * av)32173 static void C_ccall f_26815(C_word c,C_word *av){
32174 C_word tmp;
32175 C_word t0=av[0];
32176 C_word t1=av[1];
32177 C_word t2;
32178 C_word t3;
32179 C_word t4;
32180 C_word t5;
32181 C_word *a;
32182 C_check_for_interrupt;
32183 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
32184 C_save_and_reclaim((void *)f_26815,c,av);}
32185 a=C_alloc(3);
32186 t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
32187 t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
32188 t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
32189 t5=((C_word*)((C_word*)t0)[3])[1];
32190 f_26790(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
32191 
32192 /* k26935 in k13454 in k13447 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_26937(C_word c,C_word * av)32193 static void C_ccall f_26937(C_word c,C_word *av){
32194 C_word tmp;
32195 C_word t0=av[0];
32196 C_word t1=av[1];
32197 C_word t2;
32198 C_word t3;
32199 C_word *a;
32200 C_check_for_interrupt;
32201 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
32202 C_save_and_reclaim((void *)f_26937,c,av);}
32203 a=C_alloc(9);
32204 t2=C_a_i_cons(&a,2,lf[52],t1);
32205 t3=((C_word*)t0)[2];{
32206 C_word *av2=av;
32207 av2[0]=t3;
32208 av2[1]=C_a_i_list2(&a,2,t2,((C_word*)t0)[3]);
32209 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
32210 
32211 /* a26938 in k13454 in k13447 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_26939(C_word c,C_word * av)32212 static void C_ccall f_26939(C_word c,C_word *av){
32213 C_word tmp;
32214 C_word t0=av[0];
32215 C_word t1=av[1];
32216 C_word t2=av[2];
32217 C_word t3=av[3];
32218 C_word t4;
32219 C_word t5;
32220 C_word t6;
32221 C_word t7;
32222 C_word *a;
32223 if(c!=4) C_bad_argc_2(c,4,t0);
32224 C_check_for_interrupt;
32225 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
32226 C_save_and_reclaim((void *)f_26939,c,av);}
32227 a=C_alloc(6);
32228 t4=C_i_car(t2);
32229 t5=C_u_i_cdr(t2);
32230 t6=C_a_i_cons(&a,2,t5,t3);
32231 t7=t1;{
32232 C_word *av2=av;
32233 av2[0]=t7;
32234 av2[1]=C_a_i_cons(&a,2,t4,t6);
32235 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
32236 
32237 /* k26955 in k13454 in k13447 in go in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_26957(C_word c,C_word * av)32238 static void C_ccall f_26957(C_word c,C_word *av){
32239 C_word tmp;
32240 C_word t0=av[0];
32241 C_word t1=av[1];
32242 C_word t2;
32243 C_word *a;
32244 C_check_for_interrupt;
32245 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
32246 C_save_and_reclaim((void *)f_26957,c,av);}
32247 /* irregex-core.scm:3749: fold */
32248 f_9382(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);}
32249 
32250 /* chicken.irregex#cset-contains? in k18916 in k7761 in k7536 in k7533 */
f_26959(C_word t1,C_word t2,C_word t3)32251 static void C_fcall f_26959(C_word t1,C_word t2,C_word t3){
32252 C_word tmp;
32253 C_word t4;
32254 C_word t5;
32255 C_word t6;
32256 C_word t7;
32257 C_word t8;
32258 C_word t9;
32259 C_word t10;
32260 C_word *a;
32261 C_check_for_interrupt;
32262 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
32263 C_save_and_reclaim_args((void *)trf_26959,3,t1,t2,t3);}
32264 a=C_alloc(8);
32265 t4=C_block_size(t2);
32266 switch(t4){
32267 case C_fix(0):
32268 t5=t1;{
32269 C_word av2[2];
32270 av2[0]=t5;
32271 av2[1]=C_SCHEME_FALSE;
32272 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}
32273 case C_fix(1):
32274 t5=C_i_vector_ref(t2,C_fix(0));
32275 t6=C_u_i_cdr(t5);
32276 t7=t1;{
32277 C_word av2[2];
32278 av2[0]=t7;
32279 av2[1]=(C_truep(C_u_i_char_less_or_equal_p(t3,t6))?C_u_i_char_less_or_equal_p(C_u_i_car(t5),t3):C_SCHEME_FALSE);
32280 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}
32281 default:
32282 t5=C_SCHEME_UNDEFINED;
32283 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
32284 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26992,a[2]=t2,a[3]=t3,a[4]=t6,a[5]=((C_word)li327),tmp=(C_word)a,a+=6,tmp));
32285 t8=((C_word*)t6)[1];
32286 f_26992(t8,t1,C_fix(0),t4);}}
32287 
32288 /* lp in chicken.irregex#cset-contains? in k18916 in k7761 in k7536 in k7533 */
f_26992(C_word t0,C_word t1,C_word t2,C_word t3)32289 static void C_fcall f_26992(C_word t0,C_word t1,C_word t2,C_word t3){
32290 C_word tmp;
32291 C_word t4;
32292 C_word t5;
32293 C_word t6;
32294 C_word t7;
32295 C_word t8;
32296 C_word t9;
32297 C_word t10;
32298 C_word t11;
32299 C_word t12;
32300 C_word *a;
32301 loop:
32302 C_check_for_interrupt;
32303 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
32304 C_save_and_reclaim_args((void *)trf_26992,4,t0,t1,t2,t3);}
32305 a=C_alloc(5);
32306 t4=C_fixnum_plus(t3,t2);
32307 t5=C_fixnum_shift_right(t4,C_fix(1));
32308 t6=C_i_vector_ref(((C_word*)t0)[2],t5);
32309 t7=C_u_i_cdr(t6);
32310 if(C_truep(C_u_i_char_lessp(t7,((C_word*)t0)[3]))){
32311 t8=C_a_i_fixnum_plus(&a,2,t5,C_fix(1));
32312 if(C_truep(C_fixnum_lessp(t8,t3))){
32313 /* irregex-core.scm:3768: lp */
32314 t10=t1;
32315 t11=t8;
32316 t12=t3;
32317 t1=t10;
32318 t2=t11;
32319 t3=t12;
32320 goto loop;}
32321 else{
32322 t9=t1;{
32323 C_word av2[2];
32324 av2[0]=t9;
32325 av2[1]=C_SCHEME_FALSE;
32326 ((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
32327 else{
32328 if(C_truep(C_i_char_lessp(((C_word*)t0)[3],C_u_i_car(t6)))){
32329 if(C_truep(C_fixnum_lessp(t2,t5))){
32330 /* irregex-core.scm:3770: lp */
32331 t10=t1;
32332 t11=t2;
32333 t12=t5;
32334 t1=t10;
32335 t2=t11;
32336 t3=t12;
32337 goto loop;}
32338 else{
32339 t8=t1;{
32340 C_word av2[2];
32341 av2[0]=t8;
32342 av2[1]=C_SCHEME_FALSE;
32343 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}
32344 else{
32345 t8=t1;{
32346 C_word av2[2];
32347 av2[0]=t8;
32348 av2[1]=C_SCHEME_TRUE;
32349 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}
32350 
32351 /* chicken.irregex#char-ranges-union in k18916 in k7761 in k7536 in k7533 */
f_27044(C_word * a,C_word t1,C_word t2)32352 static C_word C_fcall f_27044(C_word *a,C_word t1,C_word t2){
32353 C_word tmp;
32354 C_word t3;
32355 C_word t4;
32356 C_word t5;
32357 C_word t6;
32358 C_word t7;
32359 C_word t8;
32360 C_stack_overflow_check;{}
32361 t3=C_i_car(t1);
32362 t4=C_i_car(t2);
32363 t5=C_i_char_less_or_equal_p(t3,t4);
32364 t6=(C_truep(t5)?C_u_i_car(t1):C_u_i_car(t2));
32365 if(C_truep(C_i_char_greater_or_equal_p(C_u_i_cdr(t1),C_u_i_cdr(t2)))){
32366 t7=C_u_i_cdr(t1);
32367 return(C_a_i_cons(&a,2,t6,t7));}
32368 else{
32369 t7=C_u_i_cdr(t2);
32370 return(C_a_i_cons(&a,2,t6,t7));}}
32371 
32372 /* chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27080(C_word c,C_word * av)32373 static void C_ccall f_27080(C_word c,C_word *av){
32374 C_word tmp;
32375 C_word t0=av[0];
32376 C_word t1=av[1];
32377 C_word t2=av[2];
32378 C_word t3=av[3];
32379 C_word t4;
32380 C_word t5;
32381 C_word *a;
32382 if(c!=4) C_bad_argc_2(c,4,t0);
32383 C_check_for_interrupt;
32384 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
32385 C_save_and_reclaim((void *)f_27080,c,av);}
32386 a=C_alloc(4);
32387 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27088,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
32388 /* irregex-core.scm:3778: scheme#vector->list */
32389 t5=*((C_word*)lf[163]+1);{
32390 C_word *av2=av;
32391 av2[0]=t5;
32392 av2[1]=t4;
32393 av2[2]=t2;
32394 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
32395 
32396 /* k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27088(C_word c,C_word * av)32397 static void C_ccall f_27088(C_word c,C_word *av){
32398 C_word tmp;
32399 C_word t0=av[0];
32400 C_word t1=av[1];
32401 C_word t2;
32402 C_word t3;
32403 C_word *a;
32404 C_check_for_interrupt;
32405 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
32406 C_save_and_reclaim((void *)f_27088,c,av);}
32407 a=C_alloc(4);
32408 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27092,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
32409 /* irregex-core.scm:3779: scheme#vector->list */
32410 t3=*((C_word*)lf[163]+1);{
32411 C_word *av2;
32412 if(c >= 3) {
32413   av2=av;
32414 } else {
32415   av2=C_alloc(3);
32416 }
32417 av2[0]=t3;
32418 av2[1]=t2;
32419 av2[2]=((C_word*)t0)[3];
32420 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
32421 
32422 /* k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27092(C_word c,C_word * av)32423 static void C_ccall f_27092(C_word c,C_word *av){
32424 C_word tmp;
32425 C_word t0=av[0];
32426 C_word t1=av[1];
32427 C_word t2;
32428 C_word t3;
32429 C_word t4;
32430 C_word t5;
32431 C_word *a;
32432 C_check_for_interrupt;
32433 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
32434 C_save_and_reclaim((void *)f_27092,c,av);}
32435 a=C_alloc(6);
32436 t2=C_SCHEME_UNDEFINED;
32437 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
32438 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27094,a[2]=t3,a[3]=((C_word)li330),tmp=(C_word)a,a+=4,tmp));
32439 t5=((C_word*)t3)[1];
32440 f_27094(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
32441 
32442 /* union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27094(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)32443 static void C_fcall f_27094(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
32444 C_word tmp;
32445 C_word t5;
32446 C_word t6;
32447 C_word t7;
32448 C_word t8;
32449 C_word t9;
32450 C_word t10;
32451 C_word t11;
32452 C_word t12;
32453 C_word t13;
32454 C_word t14;
32455 C_word t15;
32456 C_word t16;
32457 C_word t17;
32458 C_word t18;
32459 C_word t19;
32460 C_word t20;
32461 C_word t21;
32462 C_word t22;
32463 C_word t23;
32464 C_word t24;
32465 C_word t25;
32466 C_word *a;
32467 loop:
32468 C_check_for_interrupt;
32469 if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
32470 C_save_and_reclaim_args((void *)trf_27094,5,t0,t1,t2,t3,t4);}
32471 a=C_alloc(19);
32472 if(C_truep(C_i_nullp(t2))){
32473 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27108,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
32474 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27112,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
32475 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27116,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
32476 /* irregex-core.scm:3782: ##sys#fast-reverse */
32477 t8=*((C_word*)lf[69]+1);{
32478 C_word av2[3];
32479 av2[0]=t8;
32480 av2[1]=t7;
32481 av2[2]=t3;
32482 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
32483 else{
32484 if(C_truep(C_i_nullp(t3))){
32485 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27129,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
32486 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27133,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
32487 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27137,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
32488 /* irregex-core.scm:3783: ##sys#fast-reverse */
32489 t8=*((C_word*)lf[69]+1);{
32490 C_word av2[3];
32491 av2[0]=t8;
32492 av2[1]=t7;
32493 av2[2]=t2;
32494 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
32495 else{
32496 t5=C_i_car(t2);
32497 t6=C_i_car(t3);
32498 t7=C_i_cdr(t5);
32499 t8=C_fix(C_character_code(t7));
32500 t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1));
32501 t10=C_i_car(t6);
32502 t11=C_fix(C_character_code(t10));
32503 if(C_truep(C_i_integer_lessp(t9,t11))){
32504 t12=C_u_i_cdr(t2);
32505 t13=C_a_i_cons(&a,2,t5,t4);
32506 /* irregex-core.scm:3791: union-range */
32507 t22=t1;
32508 t23=t12;
32509 t24=t3;
32510 t25=t13;
32511 t1=t22;
32512 t2=t23;
32513 t3=t24;
32514 t4=t25;
32515 goto loop;}
32516 else{
32517 t12=C_u_i_car(t5);
32518 t13=C_fix(C_character_code(t12));
32519 t14=C_u_i_cdr(t6);
32520 t15=C_fix(C_character_code(t14));
32521 t16=C_a_i_fixnum_plus(&a,2,t15,C_fix(1));
32522 if(C_truep(C_i_integer_greaterp(t13,t16))){
32523 t17=C_u_i_cdr(t3);
32524 t18=C_a_i_cons(&a,2,t6,t4);
32525 /* irregex-core.scm:3793: union-range */
32526 t22=t1;
32527 t23=t17;
32528 t24=t2;
32529 t25=t18;
32530 t1=t22;
32531 t2=t23;
32532 t3=t24;
32533 t4=t25;
32534 goto loop;}
32535 else{
32536 if(C_truep(C_i_char_greater_or_equal_p(C_u_i_cdr(t5),C_u_i_car(t6)))){
32537 t17=(
32538 /* irregex-core.scm:3795: char-ranges-union */
32539   f_27044(C_a_i(&a,6),t5,t6)
32540 );
32541 t18=C_u_i_cdr(t2);
32542 t19=C_a_i_cons(&a,2,t17,t18);
32543 /* irregex-core.scm:3795: union-range */
32544 t22=t1;
32545 t23=t19;
32546 t24=C_u_i_cdr(t3);
32547 t25=t4;
32548 t1=t22;
32549 t2=t23;
32550 t3=t24;
32551 t4=t25;
32552 goto loop;}
32553 else{
32554 t17=C_u_i_cdr(t2);
32555 t18=(
32556 /* irregex-core.scm:3799: char-ranges-union */
32557   f_27044(C_a_i(&a,6),t5,t6)
32558 );
32559 t19=C_u_i_cdr(t3);
32560 t20=C_a_i_cons(&a,2,t18,t19);
32561 /* irregex-core.scm:3798: union-range */
32562 t22=t1;
32563 t23=t17;
32564 t24=t20;
32565 t25=t4;
32566 t1=t22;
32567 t2=t23;
32568 t3=t24;
32569 t4=t25;
32570 goto loop;}}}}}}
32571 
32572 /* k27106 in union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27108(C_word c,C_word * av)32573 static void C_ccall f_27108(C_word c,C_word *av){
32574 C_word tmp;
32575 C_word t0=av[0];
32576 C_word t1=av[1];
32577 C_word t2;
32578 C_word *a;
32579 C_check_for_interrupt;
32580 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32581 C_save_and_reclaim((void *)f_27108,c,av);}
32582 /* irregex-core.scm:3782: scheme#list->vector */
32583 t2=*((C_word*)lf[409]+1);{
32584 C_word *av2;
32585 if(c >= 3) {
32586   av2=av;
32587 } else {
32588   av2=C_alloc(3);
32589 }
32590 av2[0]=t2;
32591 av2[1]=((C_word*)t0)[2];
32592 av2[2]=t1;
32593 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
32594 
32595 /* k27110 in union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27112(C_word c,C_word * av)32596 static void C_ccall f_27112(C_word c,C_word *av){
32597 C_word tmp;
32598 C_word t0=av[0];
32599 C_word t1=av[1];
32600 C_word t2;
32601 C_word *a;
32602 C_check_for_interrupt;
32603 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32604 C_save_and_reclaim((void *)f_27112,c,av);}
32605 /* irregex-core.scm:3782: ##sys#fast-reverse */
32606 t2=*((C_word*)lf[69]+1);{
32607 C_word *av2;
32608 if(c >= 3) {
32609   av2=av;
32610 } else {
32611   av2=C_alloc(3);
32612 }
32613 av2[0]=t2;
32614 av2[1]=((C_word*)t0)[2];
32615 av2[2]=t1;
32616 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
32617 
32618 /* k27114 in union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27116(C_word c,C_word * av)32619 static void C_ccall f_27116(C_word c,C_word *av){
32620 C_word tmp;
32621 C_word t0=av[0];
32622 C_word t1=av[1];
32623 C_word t2;
32624 C_word *a;
32625 C_check_for_interrupt;
32626 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
32627 C_save_and_reclaim((void *)f_27116,c,av);}
32628 /* irregex-core.scm:3782: scheme#append */
32629 t2=*((C_word*)lf[73]+1);{
32630 C_word *av2;
32631 if(c >= 4) {
32632   av2=av;
32633 } else {
32634   av2=C_alloc(4);
32635 }
32636 av2[0]=t2;
32637 av2[1]=((C_word*)t0)[2];
32638 av2[2]=t1;
32639 av2[3]=((C_word*)t0)[3];
32640 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
32641 
32642 /* k27127 in union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27129(C_word c,C_word * av)32643 static void C_ccall f_27129(C_word c,C_word *av){
32644 C_word tmp;
32645 C_word t0=av[0];
32646 C_word t1=av[1];
32647 C_word t2;
32648 C_word *a;
32649 C_check_for_interrupt;
32650 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32651 C_save_and_reclaim((void *)f_27129,c,av);}
32652 /* irregex-core.scm:3783: scheme#list->vector */
32653 t2=*((C_word*)lf[409]+1);{
32654 C_word *av2;
32655 if(c >= 3) {
32656   av2=av;
32657 } else {
32658   av2=C_alloc(3);
32659 }
32660 av2[0]=t2;
32661 av2[1]=((C_word*)t0)[2];
32662 av2[2]=t1;
32663 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
32664 
32665 /* k27131 in union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27133(C_word c,C_word * av)32666 static void C_ccall f_27133(C_word c,C_word *av){
32667 C_word tmp;
32668 C_word t0=av[0];
32669 C_word t1=av[1];
32670 C_word t2;
32671 C_word *a;
32672 C_check_for_interrupt;
32673 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32674 C_save_and_reclaim((void *)f_27133,c,av);}
32675 /* irregex-core.scm:3783: ##sys#fast-reverse */
32676 t2=*((C_word*)lf[69]+1);{
32677 C_word *av2;
32678 if(c >= 3) {
32679   av2=av;
32680 } else {
32681   av2=C_alloc(3);
32682 }
32683 av2[0]=t2;
32684 av2[1]=((C_word*)t0)[2];
32685 av2[2]=t1;
32686 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
32687 
32688 /* k27135 in union-range in k27090 in k27086 in chicken.irregex#cset-union in k18916 in k7761 in k7536 in k7533 */
f_27137(C_word c,C_word * av)32689 static void C_ccall f_27137(C_word c,C_word *av){
32690 C_word tmp;
32691 C_word t0=av[0];
32692 C_word t1=av[1];
32693 C_word t2;
32694 C_word *a;
32695 C_check_for_interrupt;
32696 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
32697 C_save_and_reclaim((void *)f_27137,c,av);}
32698 /* irregex-core.scm:3783: scheme#append */
32699 t2=*((C_word*)lf[73]+1);{
32700 C_word *av2;
32701 if(c >= 4) {
32702   av2=av;
32703 } else {
32704   av2=C_alloc(4);
32705 }
32706 av2[0]=t2;
32707 av2[1]=((C_word*)t0)[2];
32708 av2[2]=t1;
32709 av2[3]=((C_word*)t0)[3];
32710 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
32711 
32712 /* chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27275(C_word t1,C_word t2,C_word t3)32713 static void C_fcall f_27275(C_word t1,C_word t2,C_word t3){
32714 C_word tmp;
32715 C_word t4;
32716 C_word t5;
32717 C_word *a;
32718 C_check_for_interrupt;
32719 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
32720 C_save_and_reclaim_args((void *)trf_27275,3,t1,t2,t3);}
32721 a=C_alloc(4);
32722 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27283,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
32723 /* irregex-core.scm:3811: scheme#vector->list */
32724 t5=*((C_word*)lf[163]+1);{
32725 C_word av2[3];
32726 av2[0]=t5;
32727 av2[1]=t4;
32728 av2[2]=t2;
32729 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
32730 
32731 /* k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27283(C_word c,C_word * av)32732 static void C_ccall f_27283(C_word c,C_word *av){
32733 C_word tmp;
32734 C_word t0=av[0];
32735 C_word t1=av[1];
32736 C_word t2;
32737 C_word t3;
32738 C_word *a;
32739 C_check_for_interrupt;
32740 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
32741 C_save_and_reclaim((void *)f_27283,c,av);}
32742 a=C_alloc(4);
32743 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27287,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
32744 /* irregex-core.scm:3812: scheme#vector->list */
32745 t3=*((C_word*)lf[163]+1);{
32746 C_word *av2;
32747 if(c >= 3) {
32748   av2=av;
32749 } else {
32750   av2=C_alloc(3);
32751 }
32752 av2[0]=t3;
32753 av2[1]=t2;
32754 av2[2]=((C_word*)t0)[3];
32755 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
32756 
32757 /* k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27287(C_word c,C_word * av)32758 static void C_ccall f_27287(C_word c,C_word *av){
32759 C_word tmp;
32760 C_word t0=av[0];
32761 C_word t1=av[1];
32762 C_word t2;
32763 C_word t3;
32764 C_word t4;
32765 C_word t5;
32766 C_word *a;
32767 C_check_for_interrupt;
32768 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
32769 C_save_and_reclaim((void *)f_27287,c,av);}
32770 a=C_alloc(6);
32771 t2=C_SCHEME_UNDEFINED;
32772 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
32773 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27289,a[2]=t3,a[3]=((C_word)li332),tmp=(C_word)a,a+=4,tmp));
32774 t5=((C_word*)t3)[1];
32775 f_27289(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
32776 
32777 /* diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27289(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)32778 static void C_fcall f_27289(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
32779 C_word tmp;
32780 C_word t5;
32781 C_word t6;
32782 C_word t7;
32783 C_word t8;
32784 C_word t9;
32785 C_word t10;
32786 C_word t11;
32787 C_word t12;
32788 C_word t13;
32789 C_word t14;
32790 C_word t15;
32791 C_word t16;
32792 C_word t17;
32793 C_word t18;
32794 C_word t19;
32795 C_word t20;
32796 C_word t21;
32797 C_word *a;
32798 loop:
32799 C_check_for_interrupt;
32800 if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){
32801 C_save_and_reclaim_args((void *)trf_27289,5,t0,t1,t2,t3,t4);}
32802 a=C_alloc(17);
32803 if(C_truep(C_i_nullp(t2))){
32804 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27303,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
32805 /* irregex-core.scm:3814: ##sys#fast-reverse */
32806 t6=*((C_word*)lf[69]+1);{
32807 C_word av2[3];
32808 av2[0]=t6;
32809 av2[1]=t5;
32810 av2[2]=t4;
32811 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
32812 else{
32813 if(C_truep(C_i_nullp(t3))){
32814 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27316,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
32815 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27320,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
32816 /* irregex-core.scm:3815: ##sys#fast-reverse */
32817 t7=*((C_word*)lf[69]+1);{
32818 C_word av2[3];
32819 av2[0]=t7;
32820 av2[1]=t6;
32821 av2[2]=t4;
32822 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
32823 else{
32824 t5=C_i_car(t2);
32825 t6=C_i_car(t3);
32826 t7=C_i_cdr(t5);
32827 t8=C_i_car(t6);
32828 if(C_truep(C_i_char_lessp(t7,t8))){
32829 t9=C_u_i_cdr(t2);
32830 t10=C_a_i_cons(&a,2,t5,t4);
32831 /* irregex-core.scm:3821: diff */
32832 t18=t1;
32833 t19=t9;
32834 t20=t3;
32835 t21=t10;
32836 t1=t18;
32837 t2=t19;
32838 t3=t20;
32839 t4=t21;
32840 goto loop;}
32841 else{
32842 if(C_truep(C_i_char_greaterp(C_u_i_car(t5),C_u_i_cdr(t6)))){
32843 /* irregex-core.scm:3823: diff */
32844 t18=t1;
32845 t19=t2;
32846 t20=C_u_i_cdr(t3);
32847 t21=t4;
32848 t1=t18;
32849 t2=t19;
32850 t3=t20;
32851 t4=t21;
32852 goto loop;}
32853 else{
32854 t9=C_i_char_less_or_equal_p(C_u_i_car(t6),C_u_i_car(t5));
32855 t10=(C_truep(t9)?C_i_char_greater_or_equal_p(C_u_i_cdr(t6),C_u_i_cdr(t5)):C_SCHEME_FALSE);
32856 if(C_truep(t10)){
32857 /* irregex-core.scm:3826: diff */
32858 t18=t1;
32859 t19=C_u_i_cdr(t2);
32860 t20=t3;
32861 t21=t4;
32862 t1=t18;
32863 t2=t19;
32864 t3=t20;
32865 t4=t21;
32866 goto loop;}
32867 else{
32868 t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27366,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t2,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
32869 if(C_truep(C_i_char_lessp(C_u_i_car(t5),C_u_i_car(t6)))){
32870 t12=C_u_i_car(t5);
32871 t13=C_u_i_car(t6);
32872 t14=C_fix(C_character_code(t13));
32873 t15=C_a_i_fixnum_difference(&a,2,t14,C_fix(1));
32874 t16=C_make_character(C_unfix(t15));
32875 t17=t11;
32876 f_27366(t17,C_a_i_cons(&a,2,t12,t16));}
32877 else{
32878 t12=t11;
32879 f_27366(t12,C_SCHEME_FALSE);}}}}}}}
32880 
32881 /* k27301 in diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27303(C_word c,C_word * av)32882 static void C_ccall f_27303(C_word c,C_word *av){
32883 C_word tmp;
32884 C_word t0=av[0];
32885 C_word t1=av[1];
32886 C_word t2;
32887 C_word *a;
32888 C_check_for_interrupt;
32889 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32890 C_save_and_reclaim((void *)f_27303,c,av);}
32891 /* irregex-core.scm:3814: scheme#list->vector */
32892 t2=*((C_word*)lf[409]+1);{
32893 C_word *av2;
32894 if(c >= 3) {
32895   av2=av;
32896 } else {
32897   av2=C_alloc(3);
32898 }
32899 av2[0]=t2;
32900 av2[1]=((C_word*)t0)[2];
32901 av2[2]=t1;
32902 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
32903 
32904 /* k27314 in diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27316(C_word c,C_word * av)32905 static void C_ccall f_27316(C_word c,C_word *av){
32906 C_word tmp;
32907 C_word t0=av[0];
32908 C_word t1=av[1];
32909 C_word t2;
32910 C_word *a;
32911 C_check_for_interrupt;
32912 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
32913 C_save_and_reclaim((void *)f_27316,c,av);}
32914 /* irregex-core.scm:3815: scheme#list->vector */
32915 t2=*((C_word*)lf[409]+1);{
32916 C_word *av2;
32917 if(c >= 3) {
32918   av2=av;
32919 } else {
32920   av2=C_alloc(3);
32921 }
32922 av2[0]=t2;
32923 av2[1]=((C_word*)t0)[2];
32924 av2[2]=t1;
32925 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
32926 
32927 /* k27318 in diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27320(C_word c,C_word * av)32928 static void C_ccall f_27320(C_word c,C_word *av){
32929 C_word tmp;
32930 C_word t0=av[0];
32931 C_word t1=av[1];
32932 C_word t2;
32933 C_word *a;
32934 C_check_for_interrupt;
32935 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
32936 C_save_and_reclaim((void *)f_27320,c,av);}
32937 /* irregex-core.scm:3815: scheme#append */
32938 t2=*((C_word*)lf[73]+1);{
32939 C_word *av2;
32940 if(c >= 4) {
32941   av2=av;
32942 } else {
32943   av2=C_alloc(4);
32944 }
32945 av2[0]=t2;
32946 av2[1]=((C_word*)t0)[2];
32947 av2[2]=t1;
32948 av2[3]=((C_word*)t0)[3];
32949 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
32950 
32951 /* k27364 in diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27366(C_word t0,C_word t1)32952 static void C_fcall f_27366(C_word t0,C_word t1){
32953 C_word tmp;
32954 C_word t2;
32955 C_word t3;
32956 C_word t4;
32957 C_word t5;
32958 C_word t6;
32959 C_word t7;
32960 C_word t8;
32961 C_word *a;
32962 C_check_for_interrupt;
32963 if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
32964 C_save_and_reclaim_args((void *)trf_27366,2,t0,t1);}
32965 a=C_alloc(16);
32966 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27369,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);
32967 if(C_truep(C_i_char_greaterp(C_u_i_cdr(((C_word*)t0)[7]),C_u_i_cdr(((C_word*)t0)[8])))){
32968 t3=C_u_i_cdr(((C_word*)t0)[8]);
32969 t4=C_fix(C_character_code(t3));
32970 t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1));
32971 t6=C_make_character(C_unfix(t5));
32972 t7=C_u_i_cdr(((C_word*)t0)[7]);
32973 t8=t2;
32974 f_27369(t8,C_a_i_cons(&a,2,t6,t7));}
32975 else{
32976 t3=t2;
32977 f_27369(t3,C_SCHEME_FALSE);}}
32978 
32979 /* k27367 in k27364 in diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27369(C_word t0,C_word t1)32980 static void C_fcall f_27369(C_word t0,C_word t1){
32981 C_word tmp;
32982 C_word t2;
32983 C_word t3;
32984 C_word t4;
32985 C_word *a;
32986 C_check_for_interrupt;
32987 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
32988 C_save_and_reclaim_args((void *)trf_27369,2,t0,t1);}
32989 a=C_alloc(10);
32990 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27376,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);
32991 if(C_truep(t1)){
32992 t3=C_u_i_cdr(((C_word*)t0)[7]);
32993 t4=t2;
32994 f_27376(t4,C_a_i_cons(&a,2,t1,t3));}
32995 else{
32996 t3=t2;
32997 f_27376(t3,C_u_i_cdr(((C_word*)t0)[7]));}}
32998 
32999 /* k27374 in k27367 in k27364 in diff in k27285 in k27281 in chicken.irregex#cset-difference in k18916 in k7761 in k7536 in k7533 */
f_27376(C_word t0,C_word t1)33000 static void C_fcall f_27376(C_word t0,C_word t1){
33001 C_word tmp;
33002 C_word t2;
33003 C_word t3;
33004 C_word *a;
33005 C_check_for_interrupt;
33006 if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
33007 C_save_and_reclaim_args((void *)trf_27376,2,t0,t1);}
33008 a=C_alloc(3);
33009 if(C_truep(((C_word*)t0)[2])){
33010 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
33011 /* irregex-core.scm:3833: diff */
33012 t3=((C_word*)((C_word*)t0)[4])[1];
33013 f_27289(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],t2);}
33014 else{
33015 /* irregex-core.scm:3833: diff */
33016 t2=((C_word*)((C_word*)t0)[4])[1];
33017 f_27289(t2,((C_word*)t0)[5],t1,((C_word*)t0)[6],((C_word*)t0)[3]);}}
33018 
33019 /* chicken.irregex#cset-intersection in k18916 in k7761 in k7536 in k7533 */
f_27471(C_word c,C_word * av)33020 static void C_ccall f_27471(C_word c,C_word *av){
33021 C_word tmp;
33022 C_word t0=av[0];
33023 C_word t1=av[1];
33024 C_word t2=av[2];
33025 C_word t3=av[3];
33026 C_word t4;
33027 C_word t5;
33028 C_word *a;
33029 if(c!=4) C_bad_argc_2(c,4,t0);
33030 C_check_for_interrupt;
33031 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
33032 C_save_and_reclaim((void *)f_27471,c,av);}
33033 a=C_alloc(4);
33034 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27479,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
33035 /* irregex-core.scm:3844: scheme#vector->list */
33036 t5=*((C_word*)lf[163]+1);{
33037 C_word *av2=av;
33038 av2[0]=t5;
33039 av2[1]=t4;
33040 av2[2]=t2;
33041 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
33042 
33043 /* k27477 in chicken.irregex#cset-intersection in k18916 in k7761 in k7536 in k7533 */
f_27479(C_word c,C_word * av)33044 static void C_ccall f_27479(C_word c,C_word *av){
33045 C_word tmp;
33046 C_word t0=av[0];
33047 C_word t1=av[1];
33048 C_word t2;
33049 C_word t3;
33050 C_word *a;
33051 C_check_for_interrupt;
33052 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
33053 C_save_and_reclaim((void *)f_27479,c,av);}
33054 a=C_alloc(4);
33055 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27483,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
33056 /* irregex-core.scm:3845: scheme#vector->list */
33057 t3=*((C_word*)lf[163]+1);{
33058 C_word *av2;
33059 if(c >= 3) {
33060   av2=av;
33061 } else {
33062   av2=C_alloc(3);
33063 }
33064 av2[0]=t3;
33065 av2[1]=t2;
33066 av2[2]=((C_word*)t0)[3];
33067 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
33068 
33069 /* k27481 in k27477 in chicken.irregex#cset-intersection in k18916 in k7761 in k7536 in k7533 */
f_27483(C_word c,C_word * av)33070 static void C_ccall f_27483(C_word c,C_word *av){
33071 C_word tmp;
33072 C_word t0=av[0];
33073 C_word t1=av[1];
33074 C_word t2;
33075 C_word t3;
33076 C_word t4;
33077 C_word t5;
33078 C_word *a;
33079 C_check_for_interrupt;
33080 if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
33081 C_save_and_reclaim((void *)f_27483,c,av);}
33082 a=C_alloc(6);
33083 t2=C_SCHEME_UNDEFINED;
33084 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
33085 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27485,a[2]=t3,a[3]=((C_word)li334),tmp=(C_word)a,a+=4,tmp));
33086 t5=((C_word*)t3)[1];
33087 f_27485(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);}
33088 
33089 /* intersect in k27481 in k27477 in chicken.irregex#cset-intersection in k18916 in k7761 in k7536 in k7533 */
f_27485(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)33090 static void C_fcall f_27485(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
33091 C_word tmp;
33092 C_word t5;
33093 C_word t6;
33094 C_word t7;
33095 C_word t8;
33096 C_word t9;
33097 C_word t10;
33098 C_word t11;
33099 C_word t12;
33100 C_word t13;
33101 C_word t14;
33102 C_word t15;
33103 C_word t16;
33104 C_word t17;
33105 C_word t18;
33106 C_word t19;
33107 C_word t20;
33108 C_word t21;
33109 C_word t22;
33110 C_word t23;
33111 C_word t24;
33112 C_word t25;
33113 C_word t26;
33114 C_word t27;
33115 C_word t28;
33116 C_word *a;
33117 loop:
33118 C_check_for_interrupt;
33119 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
33120 C_save_and_reclaim_args((void *)trf_27485,5,t0,t1,t2,t3,t4);}
33121 a=C_alloc(6);
33122 t5=C_i_nullp(t2);
33123 t6=(C_truep(t5)?t5:C_i_nullp(t3));
33124 if(C_truep(t6)){
33125 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27502,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
33126 /* irregex-core.scm:3848: ##sys#fast-reverse */
33127 t8=*((C_word*)lf[69]+1);{
33128 C_word av2[3];
33129 av2[0]=t8;
33130 av2[1]=t7;
33131 av2[2]=t4;
33132 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
33133 else{
33134 t7=C_i_car(t2);
33135 t8=C_i_car(t3);
33136 t9=C_i_cdr(t7);
33137 t10=C_i_car(t8);
33138 if(C_truep(C_i_char_lessp(t9,t10))){
33139 /* irregex-core.scm:3853: intersect */
33140 t25=t1;
33141 t26=C_u_i_cdr(t2);
33142 t27=t3;
33143 t28=t4;
33144 t1=t25;
33145 t2=t26;
33146 t3=t27;
33147 t4=t28;
33148 goto loop;}
33149 else{
33150 if(C_truep(C_i_char_greaterp(C_u_i_car(t7),C_u_i_cdr(t8)))){
33151 /* irregex-core.scm:3855: intersect */
33152 t25=t1;
33153 t26=t2;
33154 t27=C_u_i_cdr(t3);
33155 t28=t4;
33156 t1=t25;
33157 t2=t26;
33158 t3=t27;
33159 t4=t28;
33160 goto loop;}
33161 else{
33162 t11=C_u_i_car(t8);
33163 t12=C_u_i_car(t7);
33164 t13=C_i_char_lessp(t11,t12);
33165 t14=(C_truep(t13)?t12:t11);
33166 t15=C_u_i_cdr(t7);
33167 t16=C_u_i_cdr(t8);
33168 t17=C_i_char_lessp(t15,t16);
33169 t18=(C_truep(t17)?C_a_i_cons(&a,2,t14,t15):C_a_i_cons(&a,2,t14,t16));
33170 t19=C_i_char_greaterp(C_u_i_cdr(t7),C_u_i_cdr(t18));
33171 t20=(C_truep(t19)?t2:C_u_i_cdr(t2));
33172 t21=C_i_char_greaterp(C_u_i_cdr(t8),C_u_i_cdr(t18));
33173 t22=(C_truep(t21)?t3:C_u_i_cdr(t3));
33174 t23=C_a_i_cons(&a,2,t18,t4);
33175 /* irregex-core.scm:3859: intersect */
33176 t25=t1;
33177 t26=t20;
33178 t27=t22;
33179 t28=t23;
33180 t1=t25;
33181 t2=t26;
33182 t3=t27;
33183 t4=t28;
33184 goto loop;}}}}
33185 
33186 /* k27500 in intersect in k27481 in k27477 in chicken.irregex#cset-intersection in k18916 in k7761 in k7536 in k7533 */
f_27502(C_word c,C_word * av)33187 static void C_ccall f_27502(C_word c,C_word *av){
33188 C_word tmp;
33189 C_word t0=av[0];
33190 C_word t1=av[1];
33191 C_word t2;
33192 C_word *a;
33193 C_check_for_interrupt;
33194 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33195 C_save_and_reclaim((void *)f_27502,c,av);}
33196 /* irregex-core.scm:3848: scheme#list->vector */
33197 t2=*((C_word*)lf[409]+1);{
33198 C_word *av2;
33199 if(c >= 3) {
33200   av2=av;
33201 } else {
33202   av2=C_alloc(3);
33203 }
33204 av2[0]=t2;
33205 av2[1]=((C_word*)t0)[2];
33206 av2[2]=t1;
33207 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33208 
33209 /* chicken.irregex#cset-complement in k18916 in k7761 in k7536 in k7533 */
f_27597(C_word t1,C_word t2)33210 static void C_fcall f_27597(C_word t1,C_word t2){
33211 C_word tmp;
33212 C_word t3;
33213 C_word t4;
33214 C_word *a;
33215 C_check_for_interrupt;
33216 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
33217 C_save_and_reclaim_args((void *)trf_27597,2,t1,t2);}
33218 a=C_alloc(4);
33219 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27605,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
33220 /* irregex-core.scm:3866: sre->cset */
33221 f_26492(t3,lf[53],C_SCHEME_END_OF_LIST);}
33222 
33223 /* k27603 in chicken.irregex#cset-complement in k18916 in k7761 in k7536 in k7533 */
f_27605(C_word c,C_word * av)33224 static void C_ccall f_27605(C_word c,C_word *av){
33225 C_word tmp;
33226 C_word t0=av[0];
33227 C_word t1=av[1];
33228 C_word t2;
33229 C_word *a;
33230 C_check_for_interrupt;
33231 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
33232 C_save_and_reclaim((void *)f_27605,c,av);}
33233 /* irregex-core.scm:3866: cset-difference */
33234 f_27275(((C_word*)t0)[2],t1,((C_word*)t0)[3]);}
33235 
33236 /* chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27607(C_word t1,C_word t2)33237 static void C_fcall f_27607(C_word t1,C_word t2){
33238 C_word tmp;
33239 C_word t3;
33240 C_word t4;
33241 C_word *a;
33242 C_check_for_interrupt;
33243 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
33244 C_save_and_reclaim_args((void *)trf_27607,2,t1,t2);}
33245 a=C_alloc(3);
33246 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27615,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
33247 /* irregex-core.scm:3870: scheme#vector->list */
33248 t4=*((C_word*)lf[163]+1);{
33249 C_word av2[3];
33250 av2[0]=t4;
33251 av2[1]=t3;
33252 av2[2]=t2;
33253 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
33254 
33255 /* k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27615(C_word c,C_word * av)33256 static void C_ccall f_27615(C_word c,C_word *av){
33257 C_word tmp;
33258 C_word t0=av[0];
33259 C_word t1=av[1];
33260 C_word t2;
33261 C_word t3;
33262 C_word t4;
33263 C_word t5;
33264 C_word *a;
33265 C_check_for_interrupt;
33266 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
33267 C_save_and_reclaim((void *)f_27615,c,av);}
33268 a=C_alloc(6);
33269 t2=C_SCHEME_UNDEFINED;
33270 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
33271 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27617,a[2]=t3,a[3]=((C_word)li337),tmp=(C_word)a,a+=4,tmp));
33272 t5=((C_word*)t3)[1];
33273 f_27617(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}
33274 
33275 /* lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27617(C_word t0,C_word t1,C_word t2,C_word t3)33276 static void C_fcall f_27617(C_word t0,C_word t1,C_word t2,C_word t3){
33277 C_word tmp;
33278 C_word t4;
33279 C_word t5;
33280 C_word t6;
33281 C_word t7;
33282 C_word *a;
33283 C_check_for_interrupt;
33284 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
33285 C_save_and_reclaim_args((void *)trf_27617,4,t0,t1,t2,t3);}
33286 a=C_alloc(6);
33287 if(C_truep(C_i_nullp(t2))){
33288 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27631,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
33289 /* irregex-core.scm:3871: ##sys#fast-reverse */
33290 t5=*((C_word*)lf[69]+1);{
33291 C_word av2[3];
33292 av2[0]=t5;
33293 av2[1]=t4;
33294 av2[2]=t3;
33295 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
33296 else{
33297 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27637,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
33298 t5=C_i_caar(t2);
33299 if(C_truep(C_u_i_char_alphabeticp(t5))){
33300 t6=C_u_i_car(t2);
33301 t7=t4;
33302 f_27637(t7,C_u_i_char_alphabeticp(C_u_i_cdr(t6)));}
33303 else{
33304 t6=t4;
33305 f_27637(t6,C_SCHEME_FALSE);}}}
33306 
33307 /* k27629 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27631(C_word c,C_word * av)33308 static void C_ccall f_27631(C_word c,C_word *av){
33309 C_word tmp;
33310 C_word t0=av[0];
33311 C_word t1=av[1];
33312 C_word t2;
33313 C_word *a;
33314 C_check_for_interrupt;
33315 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33316 C_save_and_reclaim((void *)f_27631,c,av);}
33317 /* irregex-core.scm:3871: scheme#list->vector */
33318 t2=*((C_word*)lf[409]+1);{
33319 C_word *av2;
33320 if(c >= 3) {
33321   av2=av;
33322 } else {
33323   av2=C_alloc(3);
33324 }
33325 av2[0]=t2;
33326 av2[1]=((C_word*)t0)[2];
33327 av2[2]=t1;
33328 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33329 
33330 /* k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27637(C_word t0,C_word t1)33331 static void C_fcall f_27637(C_word t0,C_word t1){
33332 C_word tmp;
33333 C_word t2;
33334 C_word t3;
33335 C_word t4;
33336 C_word t5;
33337 C_word t6;
33338 C_word t7;
33339 C_word t8;
33340 C_word t9;
33341 C_word *a;
33342 C_check_for_interrupt;
33343 if(C_unlikely(!C_demand(C_calculate_demand(22,0,2)))){
33344 C_save_and_reclaim_args((void *)trf_27637,2,t0,t1);}
33345 a=C_alloc(22);
33346 if(C_truep(t1)){
33347 t2=C_u_i_cdr(((C_word*)t0)[2]);
33348 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27646,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
33349 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27650,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
33350 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27654,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
33351 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27658,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
33352 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27682,a[2]=((C_word*)t0)[2],a[3]=t6,tmp=(C_word)a,a+=4,tmp);
33353 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27692,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
33354 /* irregex-core.scm:3877: ##sys#fast-reverse */
33355 t9=*((C_word*)lf[69]+1);{
33356 C_word av2[3];
33357 av2[0]=t9;
33358 av2[1]=t8;
33359 av2[2]=((C_word*)t0)[5];
33360 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
33361 else{
33362 t2=C_u_i_cdr(((C_word*)t0)[2]);
33363 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27701,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
33364 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27705,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
33365 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27709,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
33366 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27713,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
33367 t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27723,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
33368 /* irregex-core.scm:3882: ##sys#fast-reverse */
33369 t8=*((C_word*)lf[69]+1);{
33370 C_word av2[3];
33371 av2[0]=t8;
33372 av2[1]=t7;
33373 av2[2]=((C_word*)t0)[5];
33374 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
33375 
33376 /* k27644 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27646(C_word c,C_word * av)33377 static void C_ccall f_27646(C_word c,C_word *av){
33378 C_word tmp;
33379 C_word t0=av[0];
33380 C_word t1=av[1];
33381 C_word t2;
33382 C_word *a;
33383 C_check_for_interrupt;
33384 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
33385 C_save_and_reclaim((void *)f_27646,c,av);}
33386 /* irregex-core.scm:3874: lp */
33387 t2=((C_word*)((C_word*)t0)[2])[1];
33388 f_27617(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
33389 
33390 /* k27648 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27650(C_word c,C_word * av)33391 static void C_ccall f_27650(C_word c,C_word *av){
33392 C_word tmp;
33393 C_word t0=av[0];
33394 C_word t1=av[1];
33395 C_word t2;
33396 C_word *a;
33397 C_check_for_interrupt;
33398 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33399 C_save_and_reclaim((void *)f_27650,c,av);}
33400 /* irregex-core.scm:3875: ##sys#fast-reverse */
33401 t2=*((C_word*)lf[69]+1);{
33402 C_word *av2;
33403 if(c >= 3) {
33404   av2=av;
33405 } else {
33406   av2=C_alloc(3);
33407 }
33408 av2[0]=t2;
33409 av2[1]=((C_word*)t0)[2];
33410 av2[2]=t1;
33411 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33412 
33413 /* k27652 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27654(C_word c,C_word * av)33414 static void C_ccall f_27654(C_word c,C_word *av){
33415 C_word tmp;
33416 C_word t0=av[0];
33417 C_word t1=av[1];
33418 C_word t2;
33419 C_word *a;
33420 C_check_for_interrupt;
33421 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33422 C_save_and_reclaim((void *)f_27654,c,av);}
33423 /* irregex-core.scm:3876: scheme#vector->list */
33424 t2=*((C_word*)lf[163]+1);{
33425 C_word *av2;
33426 if(c >= 3) {
33427   av2=av;
33428 } else {
33429   av2=C_alloc(3);
33430 }
33431 av2[0]=t2;
33432 av2[1]=((C_word*)t0)[2];
33433 av2[2]=t1;
33434 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33435 
33436 /* k27656 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27658(C_word c,C_word * av)33437 static void C_ccall f_27658(C_word c,C_word *av){
33438 C_word tmp;
33439 C_word t0=av[0];
33440 C_word t1=av[1];
33441 C_word t2;
33442 C_word t3;
33443 C_word t4;
33444 C_word t5;
33445 C_word t6;
33446 C_word t7;
33447 C_word t8;
33448 C_word t9;
33449 C_word t10;
33450 C_word *a;
33451 C_check_for_interrupt;
33452 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
33453 C_save_and_reclaim((void *)f_27658,c,av);}
33454 a=C_alloc(5);
33455 t2=C_i_caar(((C_word*)t0)[2]);
33456 t3=C_u_i_char_upper_casep(t2);
33457 t4=(C_truep(t3)?C_u_i_char_downcase(t2):C_u_i_char_upcase(t2));
33458 t5=C_i_cdar(((C_word*)t0)[2]);
33459 t6=C_u_i_char_upper_casep(t5);
33460 t7=(C_truep(t6)?C_u_i_char_downcase(t5):C_u_i_char_upcase(t5));
33461 t8=C_a_i_cons(&a,2,t4,t7);
33462 t9=C_a_i_vector1(&a,1,t8);
33463 /* irregex-core.scm:3877: cset-union */
33464 t10=lf[162];{
33465 C_word *av2;
33466 if(c >= 4) {
33467   av2=av;
33468 } else {
33469   av2=C_alloc(4);
33470 }
33471 av2[0]=t10;
33472 av2[1]=((C_word*)t0)[3];
33473 av2[2]=t1;
33474 av2[3]=t9;
33475 f_27080(4,av2);}}
33476 
33477 /* k27680 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27682(C_word c,C_word * av)33478 static void C_ccall f_27682(C_word c,C_word *av){
33479 C_word tmp;
33480 C_word t0=av[0];
33481 C_word t1=av[1];
33482 C_word t2;
33483 C_word t3;
33484 C_word t4;
33485 C_word *a;
33486 C_check_for_interrupt;
33487 if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
33488 C_save_and_reclaim((void *)f_27682,c,av);}
33489 a=C_alloc(2);
33490 t2=C_u_i_car(((C_word*)t0)[2]);
33491 t3=C_a_i_vector1(&a,1,t2);
33492 /* irregex-core.scm:3877: cset-union */
33493 t4=lf[162];{
33494 C_word *av2;
33495 if(c >= 4) {
33496   av2=av;
33497 } else {
33498   av2=C_alloc(4);
33499 }
33500 av2[0]=t4;
33501 av2[1]=((C_word*)t0)[3];
33502 av2[2]=t1;
33503 av2[3]=t3;
33504 f_27080(4,av2);}}
33505 
33506 /* k27690 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27692(C_word c,C_word * av)33507 static void C_ccall f_27692(C_word c,C_word *av){
33508 C_word tmp;
33509 C_word t0=av[0];
33510 C_word t1=av[1];
33511 C_word t2;
33512 C_word *a;
33513 C_check_for_interrupt;
33514 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33515 C_save_and_reclaim((void *)f_27692,c,av);}
33516 /* irregex-core.scm:3877: scheme#list->vector */
33517 t2=*((C_word*)lf[409]+1);{
33518 C_word *av2;
33519 if(c >= 3) {
33520   av2=av;
33521 } else {
33522   av2=C_alloc(3);
33523 }
33524 av2[0]=t2;
33525 av2[1]=((C_word*)t0)[2];
33526 av2[2]=t1;
33527 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33528 
33529 /* k27699 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27701(C_word c,C_word * av)33530 static void C_ccall f_27701(C_word c,C_word *av){
33531 C_word tmp;
33532 C_word t0=av[0];
33533 C_word t1=av[1];
33534 C_word t2;
33535 C_word *a;
33536 C_check_for_interrupt;
33537 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
33538 C_save_and_reclaim((void *)f_27701,c,av);}
33539 /* irregex-core.scm:3881: lp */
33540 t2=((C_word*)((C_word*)t0)[2])[1];
33541 f_27617(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
33542 
33543 /* k27703 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27705(C_word c,C_word * av)33544 static void C_ccall f_27705(C_word c,C_word *av){
33545 C_word tmp;
33546 C_word t0=av[0];
33547 C_word t1=av[1];
33548 C_word t2;
33549 C_word *a;
33550 C_check_for_interrupt;
33551 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33552 C_save_and_reclaim((void *)f_27705,c,av);}
33553 /* irregex-core.scm:3881: ##sys#fast-reverse */
33554 t2=*((C_word*)lf[69]+1);{
33555 C_word *av2;
33556 if(c >= 3) {
33557   av2=av;
33558 } else {
33559   av2=C_alloc(3);
33560 }
33561 av2[0]=t2;
33562 av2[1]=((C_word*)t0)[2];
33563 av2[2]=t1;
33564 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33565 
33566 /* k27707 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27709(C_word c,C_word * av)33567 static void C_ccall f_27709(C_word c,C_word *av){
33568 C_word tmp;
33569 C_word t0=av[0];
33570 C_word t1=av[1];
33571 C_word t2;
33572 C_word *a;
33573 C_check_for_interrupt;
33574 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33575 C_save_and_reclaim((void *)f_27709,c,av);}
33576 /* irregex-core.scm:3881: scheme#vector->list */
33577 t2=*((C_word*)lf[163]+1);{
33578 C_word *av2;
33579 if(c >= 3) {
33580   av2=av;
33581 } else {
33582   av2=C_alloc(3);
33583 }
33584 av2[0]=t2;
33585 av2[1]=((C_word*)t0)[2];
33586 av2[2]=t1;
33587 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33588 
33589 /* k27711 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27713(C_word c,C_word * av)33590 static void C_ccall f_27713(C_word c,C_word *av){
33591 C_word tmp;
33592 C_word t0=av[0];
33593 C_word t1=av[1];
33594 C_word t2;
33595 C_word t3;
33596 C_word t4;
33597 C_word *a;
33598 C_check_for_interrupt;
33599 if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
33600 C_save_and_reclaim((void *)f_27713,c,av);}
33601 a=C_alloc(2);
33602 t2=C_u_i_car(((C_word*)t0)[2]);
33603 t3=C_a_i_vector1(&a,1,t2);
33604 /* irregex-core.scm:3882: cset-union */
33605 t4=lf[162];{
33606 C_word *av2;
33607 if(c >= 4) {
33608   av2=av;
33609 } else {
33610   av2=C_alloc(4);
33611 }
33612 av2[0]=t4;
33613 av2[1]=((C_word*)t0)[3];
33614 av2[2]=t1;
33615 av2[3]=t3;
33616 f_27080(4,av2);}}
33617 
33618 /* k27721 in k27635 in lp in k27613 in chicken.irregex#cset-case-insensitive in k18916 in k7761 in k7536 in k7533 */
f_27723(C_word c,C_word * av)33619 static void C_ccall f_27723(C_word c,C_word *av){
33620 C_word tmp;
33621 C_word t0=av[0];
33622 C_word t1=av[1];
33623 C_word t2;
33624 C_word *a;
33625 C_check_for_interrupt;
33626 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
33627 C_save_and_reclaim((void *)f_27723,c,av);}
33628 /* irregex-core.scm:3882: scheme#list->vector */
33629 t2=*((C_word*)lf[409]+1);{
33630 C_word *av2;
33631 if(c >= 3) {
33632   av2=av;
33633 } else {
33634   av2=C_alloc(3);
33635 }
33636 av2[0]=t2;
33637 av2[1]=((C_word*)t0)[2];
33638 av2[2]=t1;
33639 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
33640 
33641 /* chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27738(C_word c,C_word * av)33642 static void C_ccall f_27738(C_word c,C_word *av){
33643 C_word tmp;
33644 C_word t0=av[0];
33645 C_word t1=av[1];
33646 C_word t2=av[2];
33647 C_word t3=av[3];
33648 C_word t4=av[4];
33649 C_word t5=av[5];
33650 C_word t6;
33651 C_word *a;
33652 if(c<6) C_bad_min_argc_2(c,6,t0);
33653 C_check_for_interrupt;
33654 if(C_unlikely(!C_demand(C_calculate_demand((c-6)*C_SIZEOF_PAIR +8,c,4)))){
33655 C_save_and_reclaim((void*)f_27738,c,av);}
33656 a=C_alloc((c-6)*C_SIZEOF_PAIR+8);
33657 t6=C_build_rest(&a,c,6,av);
33658 C_word t7;
33659 C_word t8;
33660 C_word t9;
33661 t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27742,a[2]=t6,a[3]=t5,a[4]=t3,a[5]=t1,a[6]=t4,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
33662 t8=C_i_stringp(t5);
33663 if(C_truep(C_i_not(t8))){
33664 /* irregex-core.scm:3889: chicken.base#error */
33665 t9=*((C_word*)lf[30]+1);{
33666 C_word *av2=av;
33667 av2[0]=t9;
33668 av2[1]=t7;
33669 av2[2]=lf[411];
33670 av2[3]=lf[414];
33671 av2[4]=t5;
33672 ((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
33673 else{
33674 t9=t7;{
33675 C_word *av2=av;
33676 av2[0]=t9;
33677 av2[1]=C_SCHEME_UNDEFINED;
33678 f_27742(2,av2);}}}
33679 
33680 /* k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27742(C_word c,C_word * av)33681 static void C_ccall f_27742(C_word c,C_word *av){
33682 C_word tmp;
33683 C_word t0=av[0];
33684 C_word t1=av[1];
33685 C_word t2;
33686 C_word t3;
33687 C_word *a;
33688 C_check_for_interrupt;
33689 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
33690 C_save_and_reclaim((void *)f_27742,c,av);}
33691 a=C_alloc(7);
33692 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27745,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);
33693 /* irregex-core.scm:3890: irregex */
33694 t3=*((C_word*)lf[217]+1);{
33695 C_word *av2;
33696 if(c >= 3) {
33697   av2=av;
33698 } else {
33699   av2=C_alloc(3);
33700 }
33701 av2[0]=t3;
33702 av2[1]=t2;
33703 av2[2]=((C_word*)t0)[7];
33704 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
33705 
33706 /* k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27745(C_word c,C_word * av)33707 static void C_ccall f_27745(C_word c,C_word *av){
33708 C_word tmp;
33709 C_word t0=av[0];
33710 C_word t1=av[1];
33711 C_word t2;
33712 C_word t3;
33713 C_word *a;
33714 C_check_for_interrupt;
33715 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
33716 C_save_and_reclaim((void *)f_27745,c,av);}
33717 a=C_alloc(8);
33718 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27748,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);
33719 /* irregex-core.scm:3891: irregex-new-matches */
33720 f_7622(t2,t1);}
33721 
33722 /* k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27748(C_word c,C_word * av)33723 static void C_ccall f_27748(C_word c,C_word *av){
33724 C_word tmp;
33725 C_word t0=av[0];
33726 C_word t1=av[1];
33727 C_word t2;
33728 C_word t3;
33729 C_word t4;
33730 C_word t5;
33731 C_word t6;
33732 C_word t7;
33733 C_word *a;
33734 C_check_for_interrupt;
33735 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
33736 C_save_and_reclaim((void *)f_27748,c,av);}
33737 a=C_alloc(13);
33738 t2=C_i_pairp(((C_word*)t0)[2]);
33739 t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE);
33740 t4=(C_truep(t3)?t3:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27939,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp));
33741 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27757,a[2]=((C_word*)t0)[3],a[3]=t1,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*)t0)[7],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp);
33742 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
33743 t6=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
33744 t7=t5;
33745 f_27757(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_fix(0)));}
33746 else{
33747 t6=t5;
33748 f_27757(t6,C_fix(0));}}
33749 
33750 /* k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27757(C_word t0,C_word t1)33751 static void C_fcall f_27757(C_word t0,C_word t1){
33752 C_word tmp;
33753 C_word t2;
33754 C_word t3;
33755 C_word t4;
33756 C_word t5;
33757 C_word *a;
33758 C_check_for_interrupt;
33759 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
33760 C_save_and_reclaim_args((void *)trf_27757,2,t0,t1);}
33761 a=C_alloc(10);
33762 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27760,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
33763 if(C_truep(C_i_pairp(((C_word*)t0)[9]))){
33764 if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[9])))){
33765 t3=C_i_cddr(((C_word*)t0)[9]);
33766 t4=C_i_pairp(t3);
33767 t5=t2;
33768 f_27760(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[9]):C_i_string_length(((C_word*)t0)[2])));}
33769 else{
33770 t3=t2;
33771 f_27760(t3,C_i_string_length(((C_word*)t0)[2]));}}
33772 else{
33773 t3=t2;
33774 f_27760(t3,C_i_string_length(((C_word*)t0)[2]));}}
33775 
33776 /* k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27760(C_word t0,C_word t1)33777 static void C_fcall f_27760(C_word t0,C_word t1){
33778 C_word tmp;
33779 C_word t2;
33780 C_word t3;
33781 C_word t4;
33782 C_word t5;
33783 C_word t6;
33784 C_word *a;
33785 C_check_for_interrupt;
33786 if(C_unlikely(!C_demand(C_calculate_demand(25,0,4)))){
33787 C_save_and_reclaim_args((void *)trf_27760,2,t0,t1);}
33788 a=C_alloc(25);
33789 t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
33790 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
33791 t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27769,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=t2,a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[9],tmp=(C_word)a,a+=13,tmp);
33792 if(C_truep(C_i_integerp(((C_word*)t0)[3]))){
33793 t5=C_i_exactp(((C_word*)t0)[3]);
33794 if(C_truep(C_i_not(t5))){
33795 /* irregex-core.scm:3900: chicken.base#error */
33796 t6=*((C_word*)lf[30]+1);{
33797 C_word av2[5];
33798 av2[0]=t6;
33799 av2[1]=t4;
33800 av2[2]=lf[411];
33801 av2[3]=lf[413];
33802 av2[4]=((C_word*)t0)[3];
33803 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
33804 else{
33805 t6=t4;{
33806 C_word av2[2];
33807 av2[0]=t6;
33808 av2[1]=C_SCHEME_UNDEFINED;
33809 f_27769(2,av2);}}}
33810 else{
33811 /* irregex-core.scm:3900: chicken.base#error */
33812 t5=*((C_word*)lf[30]+1);{
33813 C_word av2[5];
33814 av2[0]=t5;
33815 av2[1]=t4;
33816 av2[2]=lf[411];
33817 av2[3]=lf[413];
33818 av2[4]=((C_word*)t0)[3];
33819 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
33820 
33821 /* k27767 in k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27769(C_word c,C_word * av)33822 static void C_ccall f_27769(C_word c,C_word *av){
33823 C_word tmp;
33824 C_word t0=av[0];
33825 C_word t1=av[1];
33826 C_word t2;
33827 C_word t3;
33828 C_word t4;
33829 C_word *a;
33830 C_check_for_interrupt;
33831 if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
33832 C_save_and_reclaim((void *)f_27769,c,av);}
33833 a=C_alloc(13);
33834 t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27772,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],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
33835 if(C_truep(C_i_integerp(((C_word*)t0)[3]))){
33836 t3=C_i_exactp(((C_word*)t0)[3]);
33837 if(C_truep(C_i_not(t3))){
33838 /* irregex-core.scm:3902: chicken.base#error */
33839 t4=*((C_word*)lf[30]+1);{
33840 C_word *av2;
33841 if(c >= 5) {
33842   av2=av;
33843 } else {
33844   av2=C_alloc(5);
33845 }
33846 av2[0]=t4;
33847 av2[1]=t2;
33848 av2[2]=lf[411];
33849 av2[3]=lf[412];
33850 av2[4]=((C_word*)t0)[3];
33851 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
33852 else{
33853 t4=t2;{
33854 C_word *av2=av;
33855 av2[0]=t4;
33856 av2[1]=C_SCHEME_UNDEFINED;
33857 f_27772(2,av2);}}}
33858 else{
33859 /* irregex-core.scm:3902: chicken.base#error */
33860 t3=*((C_word*)lf[30]+1);{
33861 C_word *av2;
33862 if(c >= 5) {
33863   av2=av;
33864 } else {
33865   av2=C_alloc(5);
33866 }
33867 av2[0]=t3;
33868 av2[1]=t2;
33869 av2[2]=lf[411];
33870 av2[3]=lf[412];
33871 av2[4]=((C_word*)t0)[3];
33872 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
33873 
33874 /* k27770 in k27767 in k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27772(C_word c,C_word * av)33875 static void C_ccall f_27772(C_word c,C_word *av){
33876 C_word tmp;
33877 C_word t0=av[0];
33878 C_word t1=av[1];
33879 C_word t2;
33880 C_word t3;
33881 C_word t4;
33882 C_word t5;
33883 C_word t6;
33884 C_word t7;
33885 C_word *a;
33886 C_check_for_interrupt;
33887 if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){
33888 C_save_and_reclaim((void *)f_27772,c,av);}
33889 a=C_alloc(13);
33890 t2=lf[285];
33891 t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[285]);
33892 t4=C_SCHEME_UNDEFINED;
33893 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
33894 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_27780,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]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word)li340),tmp=(C_word)a,a+=11,tmp));
33895 t7=((C_word*)t5)[1];
33896 f_27780(t7,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[11],((C_word*)t0)[12]);}
33897 
33898 /* lp in k27770 in k27767 in k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27780(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)33899 static void C_fcall f_27780(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
33900 C_word tmp;
33901 C_word t6;
33902 C_word t7;
33903 C_word *a;
33904 C_check_for_interrupt;
33905 if(C_unlikely(!C_demand(C_calculate_demand(12,0,7)))){
33906 C_save_and_reclaim_args((void *)trf_27780,6,t0,t1,t2,t3,t4,t5);}
33907 a=C_alloc(12);
33908 if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]))){
33909 /* irregex-core.scm:3906: finish */
33910 t6=((C_word*)t0)[3];{
33911 C_word av2[4];
33912 av2[0]=t6;
33913 av2[1]=t1;
33914 av2[2]=t3;
33915 av2[3]=t5;
33916 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
33917 else{
33918 t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27793,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
33919 /* irregex-core.scm:3907: irregex-search/matches */
33920 f_19053(t6,((C_word*)t0)[4],lf[285],((C_word*)t0)[9],t2,t4,((C_word*)t0)[7]);}}
33921 
33922 /* k27791 in lp in k27770 in k27767 in k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27793(C_word c,C_word * av)33923 static void C_ccall f_27793(C_word c,C_word *av){
33924 C_word tmp;
33925 C_word t0=av[0];
33926 C_word t1=av[1];
33927 C_word t2;
33928 C_word t3;
33929 C_word t4;
33930 C_word t5;
33931 C_word t6;
33932 C_word t7;
33933 C_word t8;
33934 C_word *a;
33935 C_check_for_interrupt;
33936 if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
33937 C_save_and_reclaim((void *)f_27793,c,av);}
33938 a=C_alloc(11);
33939 if(C_truep(C_i_not(t1))){
33940 /* irregex-core.scm:3915: finish */
33941 t2=((C_word*)t0)[2];{
33942 C_word *av2;
33943 if(c >= 4) {
33944   av2=av;
33945 } else {
33946   av2=C_alloc(4);
33947 }
33948 av2[0]=t2;
33949 av2[1]=((C_word*)t0)[3];
33950 av2[2]=((C_word*)t0)[4];
33951 av2[3]=((C_word*)t0)[5];
33952 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
33953 else{
33954 t2=C_slot(t1,C_fix(1));
33955 t3=C_slot(t2,C_fix(1));
33956 t4=C_slot(t1,C_fix(1));
33957 t5=C_fixnum_times(C_fix(0),C_fix(4));
33958 t6=C_slot(t4,C_fixnum_plus(C_fix(3),t5));
33959 t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_27828,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t6,a[6]=t3,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);
33960 /* irregex-core.scm:3918: kons */
33961 t8=((C_word*)t0)[11];{
33962 C_word *av2;
33963 if(c >= 5) {
33964   av2=av;
33965 } else {
33966   av2=C_alloc(5);
33967 }
33968 av2[0]=t8;
33969 av2[1]=t7;
33970 av2[2]=((C_word*)t0)[4];
33971 av2[3]=t1;
33972 av2[4]=((C_word*)t0)[5];
33973 ((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}
33974 
33975 /* k27826 in k27791 in lp in k27770 in k27767 in k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27828(C_word c,C_word * av)33976 static void C_ccall f_27828(C_word c,C_word *av){
33977 C_word tmp;
33978 C_word t0=av[0];
33979 C_word t1=av[1];
33980 C_word t2;
33981 C_word t3;
33982 C_word *a;
33983 C_check_for_interrupt;
33984 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
33985 C_save_and_reclaim((void *)f_27828,c,av);}
33986 a=C_alloc(11);
33987 t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_27831,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],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
33988 /* irregex-core.scm:3919: irregex-reset-matches! */
33989 f_7645(t2,((C_word*)t0)[10]);}
33990 
33991 /* k27829 in k27826 in k27791 in lp in k27770 in k27767 in k27758 in k27755 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27831(C_word c,C_word * av)33992 static void C_ccall f_27831(C_word c,C_word *av){
33993 C_word tmp;
33994 C_word t0=av[0];
33995 C_word t1=av[1];
33996 C_word t2;
33997 C_word t3;
33998 C_word t4;
33999 C_word t5;
34000 C_word t6;
34001 C_word t7;
34002 C_word *a;
34003 C_check_for_interrupt;
34004 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
34005 C_save_and_reclaim((void *)f_27831,c,av);}
34006 a=C_alloc(9);
34007 t2=C_slot(((C_word*)t0)[2],C_fix(4));
34008 t3=C_fixnum_and(t2,C_fix(2));
34009 t4=C_eqp(C_fix(2),t3);
34010 if(C_truep(t4)){
34011 /* irregex-core.scm:3922: finish */
34012 t5=((C_word*)t0)[3];{
34013 C_word *av2;
34014 if(c >= 4) {
34015   av2=av;
34016 } else {
34017   av2=C_alloc(4);
34018 }
34019 av2[0]=t5;
34020 av2[1]=((C_word*)t0)[4];
34021 av2[2]=((C_word*)t0)[5];
34022 av2[3]=((C_word*)t0)[6];
34023 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
34024 else{
34025 t5=C_eqp(((C_word*)t0)[5],((C_word*)t0)[7]);
34026 if(C_truep(t5)){
34027 t6=C_a_i_list3(&a,3,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[9]);
34028 /* irregex-core.scm:3925: lp */
34029 t7=((C_word*)((C_word*)t0)[10])[1];
34030 f_27780(t7,((C_word*)t0)[4],t6,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[5],C_fix(1)),((C_word*)t0)[6]);}
34031 else{
34032 t6=C_a_i_list3(&a,3,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[9]);
34033 /* irregex-core.scm:3927: lp */
34034 t7=((C_word*)((C_word*)t0)[10])[1];
34035 f_27780(t7,((C_word*)t0)[4],t6,((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6]);}}}
34036 
34037 /* f_27939 in k27746 in k27743 in k27740 in chicken.irregex#irregex-fold/fast in k18916 in k7761 in k7536 in k7533 */
f_27939(C_word c,C_word * av)34038 static void C_ccall f_27939(C_word c,C_word *av){
34039 C_word tmp;
34040 C_word t0=av[0];
34041 C_word t1=av[1];
34042 C_word t2=av[2];
34043 C_word t3=av[3];
34044 C_word t4;
34045 C_word *a;
34046 if(c!=4) C_bad_argc_2(c,4,t0);
34047 C_check_for_interrupt;
34048 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
34049 C_save_and_reclaim((void *)f_27939,c,av);}
34050 t4=t1;{
34051 C_word *av2=av;
34052 av2[0]=t4;
34053 av2[1]=t3;
34054 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
34055 
34056 /* chicken.irregex#irregex-fold in k18916 in k7761 in k7536 in k7533 */
f_27956(C_word c,C_word * av)34057 static void C_ccall f_27956(C_word c,C_word *av){
34058 C_word tmp;
34059 C_word t0=av[0];
34060 C_word t1=av[1];
34061 C_word t2=av[2];
34062 C_word t3=av[3];
34063 C_word t4;
34064 C_word *a;
34065 if(c<4) C_bad_min_argc_2(c,4,t0);
34066 C_check_for_interrupt;
34067 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
34068 C_save_and_reclaim((void*)f_27956,c,av);}
34069 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
34070 t4=C_build_rest(&a,c,4,av);
34071 C_word t5;
34072 C_word t6;
34073 C_word t7;
34074 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27960,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
34075 t6=C_i_closurep(t3);
34076 if(C_truep(C_i_not(t6))){
34077 /* irregex-core.scm:3930: chicken.base#error */
34078 t7=*((C_word*)lf[30]+1);{
34079 C_word *av2;
34080 if(c >= 5) {
34081   av2=av;
34082 } else {
34083   av2=C_alloc(5);
34084 }
34085 av2[0]=t7;
34086 av2[1]=t5;
34087 av2[2]=lf[411];
34088 av2[3]=lf[416];
34089 av2[4]=t3;
34090 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
34091 else{
34092 t7=t5;{
34093 C_word *av2=av;
34094 av2[0]=t7;
34095 av2[1]=C_SCHEME_UNDEFINED;
34096 f_27960(2,av2);}}}
34097 
34098 /* k27958 in chicken.irregex#irregex-fold in k18916 in k7761 in k7536 in k7533 */
f_27960(C_word c,C_word * av)34099 static void C_ccall f_27960(C_word c,C_word *av){
34100 C_word tmp;
34101 C_word t0=av[0];
34102 C_word t1=av[1];
34103 C_word t2;
34104 C_word t3;
34105 C_word *a;
34106 C_check_for_interrupt;
34107 if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
34108 C_save_and_reclaim((void *)f_27960,c,av);}
34109 a=C_alloc(4);
34110 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27961,a[2]=((C_word*)t0)[2],a[3]=((C_word)li342),tmp=(C_word)a,a+=4,tmp);{
34111 C_word *av2;
34112 if(c >= 6) {
34113   av2=av;
34114 } else {
34115   av2=C_alloc(6);
34116 }
34117 av2[0]=0;
34118 av2[1]=((C_word*)t0)[3];
34119 av2[2]=lf[410];
34120 av2[3]=((C_word*)t0)[4];
34121 av2[4]=t2;
34122 av2[5]=((C_word*)t0)[5];
34123 C_apply(6,av2);}}
34124 
34125 /* kons2 in k27958 in chicken.irregex#irregex-fold in k18916 in k7761 in k7536 in k7533 */
f_27961(C_word c,C_word * av)34126 static void C_ccall f_27961(C_word c,C_word *av){
34127 C_word tmp;
34128 C_word t0=av[0];
34129 C_word t1=av[1];
34130 C_word t2=av[2];
34131 C_word t3=av[3];
34132 C_word t4=av[4];
34133 C_word t5;
34134 C_word t6;
34135 C_word *a;
34136 if(c!=5) C_bad_argc_2(c,5,t0);
34137 C_check_for_interrupt;
34138 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
34139 C_save_and_reclaim((void *)f_27961,c,av);}
34140 a=C_alloc(6);
34141 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27969,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
34142 /* irregex-core.scm:3931: irregex-copy-matches */
34143 f_7654(t5,t3);}
34144 
34145 /* k27967 in kons2 in k27958 in chicken.irregex#irregex-fold in k18916 in k7761 in k7536 in k7533 */
f_27969(C_word c,C_word * av)34146 static void C_ccall f_27969(C_word c,C_word *av){
34147 C_word tmp;
34148 C_word t0=av[0];
34149 C_word t1=av[1];
34150 C_word t2;
34151 C_word *a;
34152 C_check_for_interrupt;
34153 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
34154 C_save_and_reclaim((void *)f_27969,c,av);}
34155 /* irregex-core.scm:3931: kons */
34156 t2=((C_word*)t0)[2];{
34157 C_word *av2;
34158 if(c >= 5) {
34159   av2=av;
34160 } else {
34161   av2=C_alloc(5);
34162 }
34163 av2[0]=t2;
34164 av2[1]=((C_word*)t0)[3];
34165 av2[2]=((C_word*)t0)[4];
34166 av2[3]=t1;
34167 av2[4]=((C_word*)t0)[5];
34168 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
34169 
34170 /* chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_27984(C_word c,C_word * av)34171 static void C_ccall f_27984(C_word c,C_word *av){
34172 C_word tmp;
34173 C_word t0=av[0];
34174 C_word t1=av[1];
34175 C_word t2=av[2];
34176 C_word t3=av[3];
34177 C_word t4=av[4];
34178 C_word t5=av[5];
34179 C_word t6=av[6];
34180 C_word t7;
34181 C_word *a;
34182 if(c<7) C_bad_min_argc_2(c,7,t0);
34183 C_check_for_interrupt;
34184 if(C_unlikely(!C_demand(C_calculate_demand((c-7)*C_SIZEOF_PAIR +8,c,2)))){
34185 C_save_and_reclaim((void*)f_27984,c,av);}
34186 a=C_alloc((c-7)*C_SIZEOF_PAIR+8);
34187 t7=C_build_rest(&a,c,7,av);
34188 C_word t8;
34189 C_word t9;
34190 t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27988,a[2]=t7,a[3]=t6,a[4]=t5,a[5]=t3,a[6]=t1,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
34191 /* irregex-core.scm:3935: irregex */
34192 t9=*((C_word*)lf[217]+1);{
34193 C_word *av2=av;
34194 av2[0]=t9;
34195 av2[1]=t8;
34196 av2[2]=t2;
34197 ((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
34198 
34199 /* k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_27988(C_word c,C_word * av)34200 static void C_ccall f_27988(C_word c,C_word *av){
34201 C_word tmp;
34202 C_word t0=av[0];
34203 C_word t1=av[1];
34204 C_word t2;
34205 C_word t3;
34206 C_word *a;
34207 C_check_for_interrupt;
34208 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
34209 C_save_and_reclaim((void *)f_27988,c,av);}
34210 a=C_alloc(9);
34211 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27991,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],tmp=(C_word)a,a+=9,tmp);
34212 /* irregex-core.scm:3936: irregex-new-matches */
34213 f_7622(t2,t1);}
34214 
34215 /* k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_27991(C_word c,C_word * av)34216 static void C_ccall f_27991(C_word c,C_word *av){
34217 C_word tmp;
34218 C_word t0=av[0];
34219 C_word t1=av[1];
34220 C_word t2;
34221 C_word t3;
34222 C_word t4;
34223 C_word t5;
34224 C_word t6;
34225 C_word t7;
34226 C_word t8;
34227 C_word *a;
34228 C_check_for_interrupt;
34229 if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
34230 C_save_and_reclaim((void *)f_27991,c,av);}
34231 a=C_alloc(13);
34232 t2=C_i_pairp(((C_word*)t0)[2]);
34233 t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE);
34234 t4=(C_truep(t3)?t3:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28159,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp));
34235 t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28000,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t4,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);
34236 t6=C_i_pairp(((C_word*)t0)[2]);
34237 t7=(C_truep(t6)?C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE);
34238 if(C_truep(t7)){
34239 t8=t5;{
34240 C_word *av2=av;
34241 av2[0]=t8;
34242 av2[1]=C_i_cadr(((C_word*)t0)[2]);
34243 f_28000(2,av2);}}
34244 else{
34245 /* irregex-core.scm:3938: g5555 */
34246 t8=C_i_vector_ref(((C_word*)t0)[4],C_fix(2));{
34247 C_word *av2;
34248 if(c >= 3) {
34249   av2=av;
34250 } else {
34251   av2=C_alloc(3);
34252 }
34253 av2[0]=t8;
34254 av2[1]=t5;
34255 av2[2]=((C_word*)t0)[3];
34256 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
34257 
34258 /* k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28000(C_word c,C_word * av)34259 static void C_ccall f_28000(C_word c,C_word *av){
34260 C_word tmp;
34261 C_word t0=av[0];
34262 C_word t1=av[1];
34263 C_word t2;
34264 C_word t3;
34265 C_word t4;
34266 C_word *a;
34267 C_check_for_interrupt;
34268 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
34269 C_save_and_reclaim((void *)f_28000,c,av);}
34270 a=C_alloc(15);
34271 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
34272 t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28006,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]=t2,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[2],a[10]=t1,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp);
34273 if(C_truep(C_i_not(C_i_integerp(t1)))){
34274 /* irregex-core.scm:3942: chicken.base#error */
34275 t4=*((C_word*)lf[30]+1);{
34276 C_word *av2;
34277 if(c >= 5) {
34278   av2=av;
34279 } else {
34280   av2=C_alloc(5);
34281 }
34282 av2[0]=t4;
34283 av2[1]=t3;
34284 av2[2]=lf[418];
34285 av2[3]=lf[419];
34286 av2[4]=t1;
34287 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
34288 else{
34289 t4=t3;{
34290 C_word *av2=av;
34291 av2[0]=t4;
34292 av2[1]=C_SCHEME_UNDEFINED;
34293 f_28006(2,av2);}}}
34294 
34295 /* k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28006(C_word c,C_word * av)34296 static void C_ccall f_28006(C_word c,C_word *av){
34297 C_word tmp;
34298 C_word t0=av[0];
34299 C_word t1=av[1];
34300 C_word t2;
34301 C_word t3;
34302 C_word t4;
34303 C_word t5;
34304 C_word t6;
34305 C_word *a;
34306 C_check_for_interrupt;
34307 if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
34308 C_save_and_reclaim((void *)f_28006,c,av);}
34309 a=C_alloc(12);
34310 t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),((C_word*)t0)[3]);
34311 t3=C_SCHEME_UNDEFINED;
34312 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
34313 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28014,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li345),tmp=(C_word)a,a+=10,tmp));
34314 t6=((C_word*)t4)[1];
34315 f_28014(t6,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}
34316 
34317 /* lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28014(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)34318 static void C_fcall f_28014(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
34319 C_word tmp;
34320 C_word t5;
34321 C_word t6;
34322 C_word *a;
34323 C_check_for_interrupt;
34324 if(C_unlikely(!C_demand(C_calculate_demand(12,0,7)))){
34325 C_save_and_reclaim_args((void *)trf_28014,5,t0,t1,t2,t3,t4);}
34326 a=C_alloc(12);
34327 if(C_truep(C_i_not(t2))){
34328 /* irregex-core.scm:3946: finish */
34329 t5=((C_word*)t0)[2];{
34330 C_word av2[5];
34331 av2[0]=t5;
34332 av2[1]=t1;
34333 av2[2]=t2;
34334 av2[3]=t3;
34335 av2[4]=t4;
34336 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
34337 else{
34338 t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28027,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,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);
34339 /* irregex-core.scm:3947: irregex-search/matches */
34340 f_19053(t5,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[8],t2,t3,((C_word*)t0)[6]);}}
34341 
34342 /* k28025 in lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28027(C_word c,C_word * av)34343 static void C_ccall f_28027(C_word c,C_word *av){
34344 C_word tmp;
34345 C_word t0=av[0];
34346 C_word t1=av[1];
34347 C_word t2;
34348 C_word t3;
34349 C_word t4;
34350 C_word t5;
34351 C_word t6;
34352 C_word t7;
34353 C_word t8;
34354 C_word t9;
34355 C_word t10;
34356 C_word t11;
34357 C_word *a;
34358 C_check_for_interrupt;
34359 if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
34360 C_save_and_reclaim((void *)f_28027,c,av);}
34361 a=C_alloc(9);
34362 if(C_truep(C_i_not(t1))){
34363 /* irregex-core.scm:3949: finish */
34364 t2=((C_word*)t0)[2];{
34365 C_word *av2;
34366 if(c >= 5) {
34367   av2=av;
34368 } else {
34369   av2=C_alloc(5);
34370 }
34371 av2[0]=t2;
34372 av2[1]=((C_word*)t0)[3];
34373 av2[2]=((C_word*)t0)[4];
34374 av2[3]=((C_word*)t0)[5];
34375 av2[4]=((C_word*)t0)[6];
34376 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
34377 else{
34378 t2=C_slot(t1,C_fix(1));
34379 t3=C_slot(t2,C_fix(2));
34380 t4=C_slot(t1,C_fix(1));
34381 t5=C_fixnum_times(C_fix(0),C_fix(4));
34382 t6=C_slot(t4,C_fixnum_plus(C_fix(3),t5));
34383 t7=C_eqp(t3,((C_word*)t0)[4]);
34384 t8=(C_truep(t7)?C_eqp(t6,((C_word*)t0)[5]):C_SCHEME_FALSE);
34385 if(C_truep(t8)){
34386 t9=C_i_vector_ref(((C_word*)t0)[7],C_fix(3));
34387 t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28101,a[2]=t6,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=t3,tmp=(C_word)a,a+=8,tmp);
34388 /* irregex-core.scm:3953: g5570 */
34389 t11=t9;{
34390 C_word *av2;
34391 if(c >= 3) {
34392   av2=av;
34393 } else {
34394   av2=C_alloc(3);
34395 }
34396 av2[0]=t11;
34397 av2[1]=t10;
34398 av2[2]=t3;
34399 ((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
34400 else{
34401 t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28104,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t6,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
34402 /* irregex-core.scm:3957: kons */
34403 t10=((C_word*)t0)[11];{
34404 C_word *av2;
34405 if(c >= 6) {
34406   av2=av;
34407 } else {
34408   av2=C_alloc(6);
34409 }
34410 av2[0]=t10;
34411 av2[1]=t9;
34412 av2[2]=((C_word*)t0)[4];
34413 av2[3]=((C_word*)t0)[5];
34414 av2[4]=t1;
34415 av2[5]=((C_word*)t0)[6];
34416 ((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}}}
34417 
34418 /* k28075 in k28099 in k28025 in lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28077(C_word c,C_word * av)34419 static void C_ccall f_28077(C_word c,C_word *av){
34420 C_word tmp;
34421 C_word t0=av[0];
34422 C_word t1=av[1];
34423 C_word t2;
34424 C_word t3;
34425 C_word t4;
34426 C_word *a;
34427 C_check_for_interrupt;
34428 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
34429 C_save_and_reclaim((void *)f_28077,c,av);}
34430 a=C_alloc(6);
34431 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
34432 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28087,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
34433 /* irregex-core.scm:3955: g5575 */
34434 t4=t2;{
34435 C_word *av2;
34436 if(c >= 3) {
34437   av2=av;
34438 } else {
34439   av2=C_alloc(3);
34440 }
34441 av2[0]=t4;
34442 av2[1]=t3;
34443 av2[2]=t1;
34444 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
34445 
34446 /* k28085 in k28075 in k28099 in k28025 in lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28087(C_word c,C_word * av)34447 static void C_ccall f_28087(C_word c,C_word *av){
34448 C_word tmp;
34449 C_word t0=av[0];
34450 C_word t1=av[1];
34451 C_word t2;
34452 C_word *a;
34453 C_check_for_interrupt;
34454 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
34455 C_save_and_reclaim((void *)f_28087,c,av);}
34456 /* irregex-core.scm:3955: lp */
34457 t2=((C_word*)((C_word*)t0)[2])[1];
34458 f_28014(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);}
34459 
34460 /* k28099 in k28025 in lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28101(C_word c,C_word * av)34461 static void C_ccall f_28101(C_word c,C_word *av){
34462 C_word tmp;
34463 C_word t0=av[0];
34464 C_word t1=av[1];
34465 C_word t2;
34466 C_word t3;
34467 C_word t4;
34468 C_word *a;
34469 C_check_for_interrupt;
34470 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
34471 C_save_and_reclaim((void *)f_28101,c,av);}
34472 a=C_alloc(6);
34473 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){
34474 t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));
34475 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28077,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);
34476 /* irregex-core.scm:3954: g5573 */
34477 t4=t2;{
34478 C_word *av2;
34479 if(c >= 3) {
34480   av2=av;
34481 } else {
34482   av2=C_alloc(3);
34483 }
34484 av2[0]=t4;
34485 av2[1]=t3;
34486 av2[2]=((C_word*)t0)[7];
34487 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
34488 else{
34489 /* irregex-core.scm:3956: lp */
34490 t2=((C_word*)((C_word*)t0)[4])[1];
34491 f_28014(t2,((C_word*)t0)[5],((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[6]);}}
34492 
34493 /* k28102 in k28025 in lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28104(C_word c,C_word * av)34494 static void C_ccall f_28104(C_word c,C_word *av){
34495 C_word tmp;
34496 C_word t0=av[0];
34497 C_word t1=av[1];
34498 C_word t2;
34499 C_word t3;
34500 C_word *a;
34501 C_check_for_interrupt;
34502 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
34503 C_save_and_reclaim((void *)f_28104,c,av);}
34504 a=C_alloc(9);
34505 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28107,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],tmp=(C_word)a,a+=9,tmp);
34506 /* irregex-core.scm:3958: irregex-reset-matches! */
34507 f_7645(t2,((C_word*)t0)[8]);}
34508 
34509 /* k28105 in k28102 in k28025 in lp in k28004 in k27998 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28107(C_word c,C_word * av)34510 static void C_ccall f_28107(C_word c,C_word *av){
34511 C_word tmp;
34512 C_word t0=av[0];
34513 C_word t1=av[1];
34514 C_word t2;
34515 C_word t3;
34516 C_word t4;
34517 C_word t5;
34518 C_word *a;
34519 C_check_for_interrupt;
34520 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
34521 C_save_and_reclaim((void *)f_28107,c,av);}
34522 t2=C_slot(((C_word*)t0)[2],C_fix(4));
34523 t3=C_fixnum_and(t2,C_fix(2));
34524 t4=C_eqp(C_fix(2),t3);
34525 if(C_truep(t4)){
34526 /* irregex-core.scm:3960: finish */
34527 t5=((C_word*)t0)[3];{
34528 C_word *av2;
34529 if(c >= 5) {
34530   av2=av;
34531 } else {
34532   av2=C_alloc(5);
34533 }
34534 av2[0]=t5;
34535 av2[1]=((C_word*)t0)[4];
34536 av2[2]=((C_word*)t0)[5];
34537 av2[3]=((C_word*)t0)[6];
34538 av2[4]=((C_word*)t0)[7];
34539 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
34540 else{
34541 /* irregex-core.scm:3961: lp */
34542 t5=((C_word*)((C_word*)t0)[8])[1];
34543 f_28014(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}
34544 
34545 /* f_28159 in k27989 in k27986 in chicken.irregex#irregex-fold/chunked/fast in k18916 in k7761 in k7536 in k7533 */
f_28159(C_word c,C_word * av)34546 static void C_ccall f_28159(C_word c,C_word *av){
34547 C_word tmp;
34548 C_word t0=av[0];
34549 C_word t1=av[1];
34550 C_word t2=av[2];
34551 C_word t3=av[3];
34552 C_word t4=av[4];
34553 C_word t5;
34554 C_word *a;
34555 if(c!=5) C_bad_argc_2(c,5,t0);
34556 C_check_for_interrupt;
34557 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
34558 C_save_and_reclaim((void *)f_28159,c,av);}
34559 t5=t1;{
34560 C_word *av2=av;
34561 av2[0]=t5;
34562 av2[1]=t4;
34563 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
34564 
34565 /* chicken.irregex#irregex-fold/chunked in k18916 in k7761 in k7536 in k7533 */
f_28166(C_word c,C_word * av)34566 static void C_ccall f_28166(C_word c,C_word *av){
34567 C_word tmp;
34568 C_word t0=av[0];
34569 C_word t1=av[1];
34570 C_word t2=av[2];
34571 C_word t3=av[3];
34572 C_word t4;
34573 C_word *a;
34574 if(c<4) C_bad_min_argc_2(c,4,t0);
34575 C_check_for_interrupt;
34576 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
34577 C_save_and_reclaim((void*)f_28166,c,av);}
34578 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
34579 t4=C_build_rest(&a,c,4,av);
34580 C_word t5;
34581 C_word t6;
34582 C_word t7;
34583 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28170,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
34584 t6=C_i_closurep(t3);
34585 if(C_truep(C_i_not(t6))){
34586 /* irregex-core.scm:3964: chicken.base#error */
34587 t7=*((C_word*)lf[30]+1);{
34588 C_word *av2;
34589 if(c >= 5) {
34590   av2=av;
34591 } else {
34592   av2=C_alloc(5);
34593 }
34594 av2[0]=t7;
34595 av2[1]=t5;
34596 av2[2]=lf[418];
34597 av2[3]=lf[421];
34598 av2[4]=t3;
34599 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
34600 else{
34601 t7=t5;{
34602 C_word *av2=av;
34603 av2[0]=t7;
34604 av2[1]=C_SCHEME_UNDEFINED;
34605 f_28170(2,av2);}}}
34606 
34607 /* k28168 in chicken.irregex#irregex-fold/chunked in k18916 in k7761 in k7536 in k7533 */
f_28170(C_word c,C_word * av)34608 static void C_ccall f_28170(C_word c,C_word *av){
34609 C_word tmp;
34610 C_word t0=av[0];
34611 C_word t1=av[1];
34612 C_word t2;
34613 C_word t3;
34614 C_word *a;
34615 C_check_for_interrupt;
34616 if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
34617 C_save_and_reclaim((void *)f_28170,c,av);}
34618 a=C_alloc(4);
34619 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28171,a[2]=((C_word*)t0)[2],a[3]=((C_word)li347),tmp=(C_word)a,a+=4,tmp);{
34620 C_word *av2;
34621 if(c >= 6) {
34622   av2=av;
34623 } else {
34624   av2=C_alloc(6);
34625 }
34626 av2[0]=0;
34627 av2[1]=((C_word*)t0)[3];
34628 av2[2]=lf[417];
34629 av2[3]=((C_word*)t0)[4];
34630 av2[4]=t2;
34631 av2[5]=((C_word*)t0)[5];
34632 C_apply(6,av2);}}
34633 
34634 /* kons2 in k28168 in chicken.irregex#irregex-fold/chunked in k18916 in k7761 in k7536 in k7533 */
f_28171(C_word c,C_word * av)34635 static void C_ccall f_28171(C_word c,C_word *av){
34636 C_word tmp;
34637 C_word t0=av[0];
34638 C_word t1=av[1];
34639 C_word t2=av[2];
34640 C_word t3=av[3];
34641 C_word t4=av[4];
34642 C_word t5=av[5];
34643 C_word t6;
34644 C_word t7;
34645 C_word *a;
34646 if(c!=6) C_bad_argc_2(c,6,t0);
34647 C_check_for_interrupt;
34648 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
34649 C_save_and_reclaim((void *)f_28171,c,av);}
34650 a=C_alloc(7);
34651 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28179,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
34652 /* irregex-core.scm:3965: irregex-copy-matches */
34653 f_7654(t6,t4);}
34654 
34655 /* k28177 in kons2 in k28168 in chicken.irregex#irregex-fold/chunked in k18916 in k7761 in k7536 in k7533 */
f_28179(C_word c,C_word * av)34656 static void C_ccall f_28179(C_word c,C_word *av){
34657 C_word tmp;
34658 C_word t0=av[0];
34659 C_word t1=av[1];
34660 C_word t2;
34661 C_word *a;
34662 C_check_for_interrupt;
34663 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
34664 C_save_and_reclaim((void *)f_28179,c,av);}
34665 /* irregex-core.scm:3965: kons */
34666 t2=((C_word*)t0)[2];{
34667 C_word *av2;
34668 if(c >= 6) {
34669   av2=av;
34670 } else {
34671   av2=C_alloc(6);
34672 }
34673 av2[0]=t2;
34674 av2[1]=((C_word*)t0)[3];
34675 av2[2]=((C_word*)t0)[4];
34676 av2[3]=((C_word*)t0)[5];
34677 av2[4]=t1;
34678 av2[5]=((C_word*)t0)[6];
34679 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
34680 
34681 /* chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28194(C_word c,C_word * av)34682 static void C_ccall f_28194(C_word c,C_word *av){
34683 C_word tmp;
34684 C_word t0=av[0];
34685 C_word t1=av[1];
34686 C_word t2=av[2];
34687 C_word t3=av[3];
34688 C_word t4;
34689 C_word *a;
34690 if(c<4) C_bad_min_argc_2(c,4,t0);
34691 C_check_for_interrupt;
34692 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
34693 C_save_and_reclaim((void*)f_28194,c,av);}
34694 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
34695 t4=C_build_rest(&a,c,4,av);
34696 C_word t5;
34697 C_word t6;
34698 C_word t7;
34699 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28198,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
34700 t6=C_i_stringp(t3);
34701 if(C_truep(C_i_not(t6))){
34702 /* irregex-core.scm:3969: chicken.base#error */
34703 t7=*((C_word*)lf[30]+1);{
34704 C_word *av2;
34705 if(c >= 5) {
34706   av2=av;
34707 } else {
34708   av2=C_alloc(5);
34709 }
34710 av2[0]=t7;
34711 av2[1]=t5;
34712 av2[2]=lf[424];
34713 av2[3]=lf[425];
34714 av2[4]=t3;
34715 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
34716 else{
34717 t7=t5;{
34718 C_word *av2=av;
34719 av2[0]=t7;
34720 av2[1]=C_SCHEME_UNDEFINED;
34721 f_28198(2,av2);}}}
34722 
34723 /* k28196 in chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28198(C_word c,C_word * av)34724 static void C_ccall f_28198(C_word c,C_word *av){
34725 C_word tmp;
34726 C_word t0=av[0];
34727 C_word t1=av[1];
34728 C_word t2;
34729 C_word t3;
34730 C_word *a;
34731 C_check_for_interrupt;
34732 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
34733 C_save_and_reclaim((void *)f_28198,c,av);}
34734 a=C_alloc(5);
34735 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28201,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);
34736 /* irregex-core.scm:3970: irregex-search */
34737 t3=*((C_word*)lf[286]+1);{
34738 C_word *av2;
34739 if(c >= 4) {
34740   av2=av;
34741 } else {
34742   av2=C_alloc(4);
34743 }
34744 av2[0]=t3;
34745 av2[1]=t2;
34746 av2[2]=((C_word*)t0)[5];
34747 av2[3]=((C_word*)t0)[3];
34748 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
34749 
34750 /* k28199 in k28196 in chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28201(C_word c,C_word * av)34751 static void C_ccall f_28201(C_word c,C_word *av){
34752 C_word tmp;
34753 C_word t0=av[0];
34754 C_word t1=av[1];
34755 C_word t2;
34756 C_word t3;
34757 C_word t4;
34758 C_word t5;
34759 C_word *a;
34760 C_check_for_interrupt;
34761 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
34762 C_save_and_reclaim((void *)f_28201,c,av);}
34763 a=C_alloc(6);
34764 if(C_truep(t1)){
34765 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28215,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);
34766 t3=C_slot(t1,C_fix(1));
34767 t4=C_fixnum_times(C_fix(0),C_fix(4));
34768 /* irregex-core.scm:3973: scheme#substring */
34769 t5=*((C_word*)lf[46]+1);{
34770 C_word *av2;
34771 if(c >= 5) {
34772   av2=av;
34773 } else {
34774   av2=C_alloc(5);
34775 }
34776 av2[0]=t5;
34777 av2[1]=t2;
34778 av2[2]=((C_word*)t0)[3];
34779 av2[3]=C_slot(t3,C_fixnum_plus(C_fix(3),t4));
34780 av2[4]=C_block_size(((C_word*)t0)[3]);
34781 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
34782 else{
34783 t2=((C_word*)t0)[2];{
34784 C_word *av2=av;
34785 av2[0]=t2;
34786 av2[1]=((C_word*)t0)[3];
34787 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
34788 
34789 /* k28213 in k28199 in k28196 in chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28215(C_word c,C_word * av)34790 static void C_ccall f_28215(C_word c,C_word *av){
34791 C_word tmp;
34792 C_word t0=av[0];
34793 C_word t1=av[1];
34794 C_word t2;
34795 C_word t3;
34796 C_word t4;
34797 C_word *a;
34798 C_check_for_interrupt;
34799 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
34800 C_save_and_reclaim((void *)f_28215,c,av);}
34801 a=C_alloc(9);
34802 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28219,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
34803 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28223,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
34804 /* irregex-core.scm:3974: irregex-apply-match */
34805 f_28366(t3,((C_word*)t0)[3],((C_word*)t0)[5]);}
34806 
34807 /* k28217 in k28213 in k28199 in k28196 in chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28219(C_word c,C_word * av)34808 static void C_ccall f_28219(C_word c,C_word *av){
34809 C_word tmp;
34810 C_word t0=av[0];
34811 C_word t1=av[1];
34812 C_word t2;
34813 C_word t3;
34814 C_word *a;
34815 C_check_for_interrupt;
34816 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
34817 C_save_and_reclaim((void *)f_28219,c,av);}
34818 a=C_alloc(3);
34819 t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
34820 /* irregex-core.scm:3972: string-cat-reverse */
34821 f_9108(((C_word*)t0)[3],t2);}
34822 
34823 /* k28221 in k28213 in k28199 in k28196 in chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28223(C_word c,C_word * av)34824 static void C_ccall f_28223(C_word c,C_word *av){
34825 C_word tmp;
34826 C_word t0=av[0];
34827 C_word t1=av[1];
34828 C_word t2;
34829 C_word t3;
34830 C_word t4;
34831 C_word *a;
34832 C_check_for_interrupt;
34833 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
34834 C_save_and_reclaim((void *)f_28223,c,av);}
34835 a=C_alloc(4);
34836 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28231,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
34837 t3=C_slot(((C_word*)t0)[3],C_fix(1));
34838 /* irregex-core.scm:3975: scheme#substring */
34839 t4=*((C_word*)lf[46]+1);{
34840 C_word *av2;
34841 if(c >= 5) {
34842   av2=av;
34843 } else {
34844   av2=C_alloc(5);
34845 }
34846 av2[0]=t4;
34847 av2[1]=t2;
34848 av2[2]=((C_word*)t0)[4];
34849 av2[3]=C_fix(0);
34850 av2[4]=C_slot(t3,C_fix(1));
34851 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
34852 
34853 /* k28229 in k28221 in k28213 in k28199 in k28196 in chicken.irregex#irregex-replace in k18916 in k7761 in k7536 in k7533 */
f_28231(C_word c,C_word * av)34854 static void C_ccall f_28231(C_word c,C_word *av){
34855 C_word tmp;
34856 C_word t0=av[0];
34857 C_word t1=av[1];
34858 C_word t2;
34859 C_word t3;
34860 C_word *a;
34861 C_check_for_interrupt;
34862 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
34863 C_save_and_reclaim((void *)f_28231,c,av);}
34864 a=C_alloc(3);
34865 t2=C_a_i_list1(&a,1,t1);
34866 /* irregex-core.scm:3974: scheme#append */
34867 t3=*((C_word*)lf[73]+1);{
34868 C_word *av2;
34869 if(c >= 4) {
34870   av2=av;
34871 } else {
34872   av2=C_alloc(4);
34873 }
34874 av2[0]=t3;
34875 av2[1]=((C_word*)t0)[2];
34876 av2[2]=((C_word*)t0)[3];
34877 av2[3]=t2;
34878 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
34879 
34880 /* chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28273(C_word c,C_word * av)34881 static void C_ccall f_28273(C_word c,C_word *av){
34882 C_word tmp;
34883 C_word t0=av[0];
34884 C_word t1=av[1];
34885 C_word t2=av[2];
34886 C_word t3=av[3];
34887 C_word t4;
34888 C_word *a;
34889 if(c<4) C_bad_min_argc_2(c,4,t0);
34890 C_check_for_interrupt;
34891 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
34892 C_save_and_reclaim((void*)f_28273,c,av);}
34893 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
34894 t4=C_build_rest(&a,c,4,av);
34895 C_word t5;
34896 C_word t6;
34897 C_word t7;
34898 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28277,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
34899 t6=C_i_stringp(t3);
34900 if(C_truep(C_i_not(t6))){
34901 /* irregex-core.scm:3980: chicken.base#error */
34902 t7=*((C_word*)lf[30]+1);{
34903 C_word *av2;
34904 if(c >= 5) {
34905   av2=av;
34906 } else {
34907   av2=C_alloc(5);
34908 }
34909 av2[0]=t7;
34910 av2[1]=t5;
34911 av2[2]=lf[427];
34912 av2[3]=lf[428];
34913 av2[4]=t3;
34914 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
34915 else{
34916 t7=t5;{
34917 C_word *av2=av;
34918 av2[0]=t7;
34919 av2[1]=C_SCHEME_UNDEFINED;
34920 f_28277(2,av2);}}}
34921 
34922 /* k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28277(C_word c,C_word * av)34923 static void C_ccall f_28277(C_word c,C_word *av){
34924 C_word tmp;
34925 C_word t0=av[0];
34926 C_word t1=av[1];
34927 C_word t2;
34928 C_word t3;
34929 C_word t4;
34930 C_word *a;
34931 C_check_for_interrupt;
34932 if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){
34933 C_save_and_reclaim((void *)f_28277,c,av);}
34934 a=C_alloc(9);
34935 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li350),tmp=(C_word)a,a+=5,tmp);
34936 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28333,a[2]=((C_word*)t0)[3],a[3]=((C_word)li351),tmp=(C_word)a,a+=4,tmp);
34937 /* irregex-core.scm:3981: irregex-fold/fast */
34938 t4=lf[410];{
34939 C_word *av2;
34940 if(c >= 7) {
34941   av2=av;
34942 } else {
34943   av2=C_alloc(7);
34944 }
34945 av2[0]=t4;
34946 av2[1]=((C_word*)t0)[4];
34947 av2[2]=((C_word*)t0)[5];
34948 av2[3]=t2;
34949 av2[4]=C_SCHEME_END_OF_LIST;
34950 av2[5]=((C_word*)t0)[3];
34951 av2[6]=t3;
34952 f_27738(7,av2);}}
34953 
34954 /* a28281 in k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28282(C_word c,C_word * av)34955 static void C_ccall f_28282(C_word c,C_word *av){
34956 C_word tmp;
34957 C_word t0=av[0];
34958 C_word t1=av[1];
34959 C_word t2=av[2];
34960 C_word t3=av[3];
34961 C_word t4=av[4];
34962 C_word t5;
34963 C_word t6;
34964 C_word t7;
34965 C_word t8;
34966 C_word *a;
34967 if(c!=5) C_bad_argc_2(c,5,t0);
34968 C_check_for_interrupt;
34969 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
34970 C_save_and_reclaim((void *)f_28282,c,av);}
34971 a=C_alloc(7);
34972 t5=C_slot(t3,C_fix(1));
34973 t6=C_slot(t5,C_fix(1));
34974 if(C_truep(C_fixnum_greater_or_equal_p(t2,t6))){
34975 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28316,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
34976 /* irregex-core.scm:3986: irregex-apply-match */
34977 f_28366(t7,t3,((C_word*)t0)[2]);}
34978 else{
34979 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28323,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
34980 /* irregex-core.scm:3987: irregex-apply-match */
34981 f_28366(t7,t3,((C_word*)t0)[2]);}}
34982 
34983 /* k28314 in a28281 in k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28316(C_word c,C_word * av)34984 static void C_ccall f_28316(C_word c,C_word *av){
34985 C_word tmp;
34986 C_word t0=av[0];
34987 C_word t1=av[1];
34988 C_word t2;
34989 C_word *a;
34990 C_check_for_interrupt;
34991 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
34992 C_save_and_reclaim((void *)f_28316,c,av);}
34993 /* irregex-core.scm:3986: scheme#append */
34994 t2=*((C_word*)lf[73]+1);{
34995 C_word *av2;
34996 if(c >= 4) {
34997   av2=av;
34998 } else {
34999   av2=C_alloc(4);
35000 }
35001 av2[0]=t2;
35002 av2[1]=((C_word*)t0)[2];
35003 av2[2]=t1;
35004 av2[3]=((C_word*)t0)[3];
35005 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
35006 
35007 /* k28321 in a28281 in k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28323(C_word c,C_word * av)35008 static void C_ccall f_28323(C_word c,C_word *av){
35009 C_word tmp;
35010 C_word t0=av[0];
35011 C_word t1=av[1];
35012 C_word t2;
35013 C_word t3;
35014 C_word *a;
35015 C_check_for_interrupt;
35016 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
35017 C_save_and_reclaim((void *)f_28323,c,av);}
35018 a=C_alloc(5);
35019 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28331,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
35020 /* irregex-core.scm:3988: scheme#substring */
35021 t3=*((C_word*)lf[46]+1);{
35022 C_word *av2;
35023 if(c >= 5) {
35024   av2=av;
35025 } else {
35026   av2=C_alloc(5);
35027 }
35028 av2[0]=t3;
35029 av2[1]=t2;
35030 av2[2]=((C_word*)t0)[4];
35031 av2[3]=((C_word*)t0)[5];
35032 av2[4]=((C_word*)t0)[6];
35033 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
35034 
35035 /* k28329 in k28321 in a28281 in k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28331(C_word c,C_word * av)35036 static void C_ccall f_28331(C_word c,C_word *av){
35037 C_word tmp;
35038 C_word t0=av[0];
35039 C_word t1=av[1];
35040 C_word t2;
35041 C_word t3;
35042 C_word *a;
35043 C_check_for_interrupt;
35044 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
35045 C_save_and_reclaim((void *)f_28331,c,av);}
35046 a=C_alloc(3);
35047 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
35048 /* irregex-core.scm:3987: scheme#append */
35049 t3=*((C_word*)lf[73]+1);{
35050 C_word *av2;
35051 if(c >= 4) {
35052   av2=av;
35053 } else {
35054   av2=C_alloc(4);
35055 }
35056 av2[0]=t3;
35057 av2[1]=((C_word*)t0)[3];
35058 av2[2]=((C_word*)t0)[4];
35059 av2[3]=t2;
35060 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
35061 
35062 /* a28332 in k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28333(C_word c,C_word * av)35063 static void C_ccall f_28333(C_word c,C_word *av){
35064 C_word tmp;
35065 C_word t0=av[0];
35066 C_word t1=av[1];
35067 C_word t2=av[2];
35068 C_word t3=av[3];
35069 C_word t4;
35070 C_word t5;
35071 C_word t6;
35072 C_word *a;
35073 if(c!=4) C_bad_argc_2(c,4,t0);
35074 C_check_for_interrupt;
35075 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
35076 C_save_and_reclaim((void *)f_28333,c,av);}
35077 a=C_alloc(4);
35078 t4=C_i_string_length(((C_word*)t0)[2]);
35079 if(C_truep(C_fixnum_greater_or_equal_p(t2,t4))){
35080 /* irregex-core.scm:3993: string-cat-reverse */
35081 f_9108(t1,t3);}
35082 else{
35083 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28354,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
35084 /* irregex-core.scm:3995: scheme#substring */
35085 t6=*((C_word*)lf[46]+1);{
35086 C_word *av2;
35087 if(c >= 5) {
35088   av2=av;
35089 } else {
35090   av2=C_alloc(5);
35091 }
35092 av2[0]=t6;
35093 av2[1]=t5;
35094 av2[2]=((C_word*)t0)[2];
35095 av2[3]=t2;
35096 av2[4]=t4;
35097 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
35098 
35099 /* k28352 in a28332 in k28275 in chicken.irregex#irregex-replace/all in k18916 in k7761 in k7536 in k7533 */
f_28354(C_word c,C_word * av)35100 static void C_ccall f_28354(C_word c,C_word *av){
35101 C_word tmp;
35102 C_word t0=av[0];
35103 C_word t1=av[1];
35104 C_word t2;
35105 C_word t3;
35106 C_word *a;
35107 C_check_for_interrupt;
35108 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
35109 C_save_and_reclaim((void *)f_28354,c,av);}
35110 a=C_alloc(3);
35111 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
35112 /* irregex-core.scm:3993: string-cat-reverse */
35113 f_9108(((C_word*)t0)[3],t2);}
35114 
35115 /* chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28366(C_word t1,C_word t2,C_word t3)35116 static void C_fcall f_28366(C_word t1,C_word t2,C_word t3){
35117 C_word tmp;
35118 C_word t4;
35119 C_word t5;
35120 C_word t6;
35121 C_word t7;
35122 C_word *a;
35123 C_check_for_interrupt;
35124 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
35125 C_save_and_reclaim_args((void *)trf_28366,3,t1,t2,t3);}
35126 a=C_alloc(7);
35127 t4=C_SCHEME_UNDEFINED;
35128 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
35129 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28372,a[2]=t5,a[3]=t2,a[4]=((C_word)li354),tmp=(C_word)a,a+=5,tmp));
35130 t7=((C_word*)t5)[1];
35131 f_28372(t7,t1,t3,C_SCHEME_END_OF_LIST);}
35132 
35133 /* lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28372(C_word t0,C_word t1,C_word t2,C_word t3)35134 static void C_fcall f_28372(C_word t0,C_word t1,C_word t2,C_word t3){
35135 C_word tmp;
35136 C_word t4;
35137 C_word t5;
35138 C_word t6;
35139 C_word t7;
35140 C_word t8;
35141 C_word t9;
35142 C_word t10;
35143 C_word t11;
35144 C_word t12;
35145 C_word t13;
35146 C_word t14;
35147 C_word t15;
35148 C_word t16;
35149 C_word t17;
35150 C_word t18;
35151 C_word *a;
35152 loop:
35153 C_check_for_interrupt;
35154 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
35155 C_save_and_reclaim_args((void *)trf_28372,4,t0,t1,t2,t3);}
35156 a=C_alloc(7);
35157 if(C_truep(C_i_nullp(t2))){
35158 t4=t1;{
35159 C_word av2[2];
35160 av2[0]=t4;
35161 av2[1]=t3;
35162 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
35163 else{
35164 t4=C_i_car(t2);
35165 if(C_truep(C_i_integerp(t4))){
35166 t5=C_u_i_cdr(t2);
35167 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28399,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
35168 /* irregex-core.scm:4004: irregex-match-substring */
35169 t7=*((C_word*)lf[40]+1);{
35170 C_word av2[4];
35171 av2[0]=t7;
35172 av2[1]=t6;
35173 av2[2]=((C_word*)t0)[3];
35174 av2[3]=C_u_i_car(t2);
35175 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
35176 else{
35177 if(C_truep(C_i_closurep(C_u_i_car(t2)))){
35178 t5=C_u_i_cdr(t2);
35179 t6=C_u_i_car(t2);
35180 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28424,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
35181 /* irregex-core.scm:4006: g5631 */
35182 t8=t6;{
35183 C_word av2[3];
35184 av2[0]=t8;
35185 av2[1]=t7;
35186 av2[2]=((C_word*)t0)[3];
35187 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
35188 else{
35189 if(C_truep(C_i_symbolp(C_u_i_car(t2)))){
35190 t5=C_u_i_car(t2);
35191 t6=C_eqp(t5,lf[430]);
35192 if(C_truep(t6)){
35193 t7=C_u_i_cdr(t2);
35194 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28450,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
35195 t9=C_slot(((C_word*)t0)[3],C_fix(1));
35196 t10=C_slot(t9,C_fix(0));
35197 t11=C_i_car(t10);
35198 t12=C_slot(((C_word*)t0)[3],C_fix(1));
35199 /* irregex-core.scm:4011: scheme#substring */
35200 t13=*((C_word*)lf[46]+1);{
35201 C_word av2[5];
35202 av2[0]=t13;
35203 av2[1]=t8;
35204 av2[2]=t11;
35205 av2[3]=C_fix(0);
35206 av2[4]=C_slot(t12,C_fix(1));
35207 ((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}
35208 else{
35209 t7=C_eqp(t5,lf[431]);
35210 if(C_truep(t7)){
35211 t8=C_slot(((C_word*)t0)[3],C_fix(1));
35212 t9=C_slot(t8,C_fix(0));
35213 t10=C_i_car(t9);
35214 t11=C_u_i_cdr(t2);
35215 t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28514,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t11,tmp=(C_word)a,a+=6,tmp);
35216 t13=C_slot(((C_word*)t0)[3],C_fix(1));
35217 t14=C_fixnum_times(C_fix(0),C_fix(4));
35218 /* irregex-core.scm:4018: scheme#substring */
35219 t15=*((C_word*)lf[46]+1);{
35220 C_word av2[5];
35221 av2[0]=t15;
35222 av2[1]=t12;
35223 av2[2]=t10;
35224 av2[3]=C_slot(t13,C_fixnum_plus(C_fix(3),t14));
35225 av2[4]=C_i_string_length(t10);
35226 ((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}}
35227 else{
35228 t8=C_u_i_car(t2);
35229 t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28576,a[2]=t8,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
35230 /* irregex-core.scm:4024: irregex-match-names */
35231 t10=*((C_word*)lf[19]+1);{
35232 C_word av2[3];
35233 av2[0]=t10;
35234 av2[1]=t9;
35235 av2[2]=((C_word*)t0)[3];
35236 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}
35237 else{
35238 t5=C_u_i_cdr(t2);
35239 t6=C_u_i_car(t2);
35240 t7=C_a_i_cons(&a,2,t6,t3);
35241 /* irregex-core.scm:4029: lp */
35242 t16=t1;
35243 t17=t5;
35244 t18=t7;
35245 t1=t16;
35246 t2=t17;
35247 t3=t18;
35248 goto loop;}}}}}
35249 
35250 /* k28397 in lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28399(C_word c,C_word * av)35251 static void C_ccall f_28399(C_word c,C_word *av){
35252 C_word tmp;
35253 C_word t0=av[0];
35254 C_word t1=av[1];
35255 C_word t2;
35256 C_word t3;
35257 C_word *a;
35258 C_check_for_interrupt;
35259 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
35260 C_save_and_reclaim((void *)f_28399,c,av);}
35261 a=C_alloc(3);
35262 t2=(C_truep(t1)?C_a_i_cons(&a,2,t1,((C_word*)t0)[2]):C_a_i_cons(&a,2,lf[429],((C_word*)t0)[2]));
35263 /* irregex-core.scm:4003: lp */
35264 t3=((C_word*)((C_word*)t0)[3])[1];
35265 f_28372(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
35266 
35267 /* k28422 in lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28424(C_word c,C_word * av)35268 static void C_ccall f_28424(C_word c,C_word *av){
35269 C_word tmp;
35270 C_word t0=av[0];
35271 C_word t1=av[1];
35272 C_word t2;
35273 C_word t3;
35274 C_word *a;
35275 C_check_for_interrupt;
35276 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
35277 C_save_and_reclaim((void *)f_28424,c,av);}
35278 a=C_alloc(3);
35279 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
35280 /* irregex-core.scm:4006: lp */
35281 t3=((C_word*)((C_word*)t0)[3])[1];
35282 f_28372(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
35283 
35284 /* k28448 in lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28450(C_word c,C_word * av)35285 static void C_ccall f_28450(C_word c,C_word *av){
35286 C_word tmp;
35287 C_word t0=av[0];
35288 C_word t1=av[1];
35289 C_word t2;
35290 C_word t3;
35291 C_word *a;
35292 C_check_for_interrupt;
35293 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
35294 C_save_and_reclaim((void *)f_28450,c,av);}
35295 a=C_alloc(3);
35296 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
35297 /* irregex-core.scm:4010: lp */
35298 t3=((C_word*)((C_word*)t0)[3])[1];
35299 f_28372(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
35300 
35301 /* k28512 in lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28514(C_word c,C_word * av)35302 static void C_ccall f_28514(C_word c,C_word *av){
35303 C_word tmp;
35304 C_word t0=av[0];
35305 C_word t1=av[1];
35306 C_word t2;
35307 C_word t3;
35308 C_word *a;
35309 C_check_for_interrupt;
35310 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
35311 C_save_and_reclaim((void *)f_28514,c,av);}
35312 a=C_alloc(3);
35313 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
35314 /* irregex-core.scm:4017: lp */
35315 t3=((C_word*)((C_word*)t0)[3])[1];
35316 f_28372(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
35317 
35318 /* g5658 in k28574 in lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28546(C_word t0,C_word t1,C_word t2)35319 static void C_fcall f_28546(C_word t0,C_word t1,C_word t2){
35320 C_word tmp;
35321 C_word t3;
35322 C_word t4;
35323 C_word t5;
35324 C_word t6;
35325 C_word *a;
35326 C_check_for_interrupt;
35327 if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
35328 C_save_and_reclaim_args((void *)trf_28546,3,t0,t1,t2);}
35329 a=C_alloc(3);
35330 t3=C_i_cdr(t2);
35331 t4=C_i_cdr(((C_word*)t0)[2]);
35332 t5=C_a_i_cons(&a,2,t3,t4);
35333 /* irregex-core.scm:4025: lp */
35334 t6=((C_word*)((C_word*)t0)[3])[1];
35335 f_28372(t6,t1,t5,((C_word*)t0)[4]);}
35336 
35337 /* k28574 in lp in chicken.irregex#irregex-apply-match in k18916 in k7761 in k7536 in k7533 */
f_28576(C_word c,C_word * av)35338 static void C_ccall f_28576(C_word c,C_word *av){
35339 C_word tmp;
35340 C_word t0=av[0];
35341 C_word t1=av[1];
35342 C_word t2;
35343 C_word t3;
35344 C_word t4;
35345 C_word *a;
35346 C_check_for_interrupt;
35347 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
35348 C_save_and_reclaim((void *)f_28576,c,av);}
35349 a=C_alloc(6);
35350 t2=C_i_assq(((C_word*)t0)[2],t1);
35351 if(C_truep(t2)){
35352 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28546,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li353),tmp=(C_word)a,a+=6,tmp);
35353 /* irregex-core.scm:4023: g5658 */
35354 t4=t3;
35355 f_28546(t4,((C_word*)t0)[6],t2);}
35356 else{
35357 /* irregex-core.scm:4027: chicken.base#error */
35358 t3=*((C_word*)lf[30]+1);{
35359 C_word *av2;
35360 if(c >= 4) {
35361   av2=av;
35362 } else {
35363   av2=C_alloc(4);
35364 }
35365 av2[0]=t3;
35366 av2[1]=((C_word*)t0)[6];
35367 av2[2]=lf[432];
35368 av2[3]=C_u_i_car(((C_word*)t0)[3]);
35369 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}
35370 
35371 /* chicken.irregex#irregex-extract in k18916 in k7761 in k7536 in k7533 */
f_28597(C_word c,C_word * av)35372 static void C_ccall f_28597(C_word c,C_word *av){
35373 C_word tmp;
35374 C_word t0=av[0];
35375 C_word t1=av[1];
35376 C_word t2=av[2];
35377 C_word t3=av[3];
35378 C_word t4;
35379 C_word *a;
35380 if(c<4) C_bad_min_argc_2(c,4,t0);
35381 C_check_for_interrupt;
35382 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
35383 C_save_and_reclaim((void*)f_28597,c,av);}
35384 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
35385 t4=C_build_rest(&a,c,4,av);
35386 C_word t5;
35387 C_word t6;
35388 C_word t7;
35389 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28601,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
35390 t6=C_i_stringp(t3);
35391 if(C_truep(C_i_not(t6))){
35392 /* irregex-core.scm:4032: chicken.base#error */
35393 t7=*((C_word*)lf[30]+1);{
35394 C_word *av2;
35395 if(c >= 5) {
35396   av2=av;
35397 } else {
35398   av2=C_alloc(5);
35399 }
35400 av2[0]=t7;
35401 av2[1]=t5;
35402 av2[2]=lf[434];
35403 av2[3]=lf[435];
35404 av2[4]=t3;
35405 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
35406 else{
35407 t7=t5;{
35408 C_word *av2=av;
35409 av2[0]=t7;
35410 av2[1]=C_SCHEME_UNDEFINED;
35411 f_28601(2,av2);}}}
35412 
35413 /* k28599 in chicken.irregex#irregex-extract in k18916 in k7761 in k7536 in k7533 */
f_28601(C_word c,C_word * av)35414 static void C_ccall f_28601(C_word c,C_word *av){
35415 C_word tmp;
35416 C_word t0=av[0];
35417 C_word t1=av[1];
35418 C_word t2;
35419 C_word t3;
35420 C_word t4;
35421 C_word *a;
35422 C_check_for_interrupt;
35423 if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){
35424 C_save_and_reclaim((void *)f_28601,c,av);}
35425 a=C_alloc(6);
35426 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28606,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp);
35427 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28616,a[2]=((C_word)li357),tmp=(C_word)a,a+=3,tmp);{
35428 C_word *av2;
35429 if(c >= 9) {
35430   av2=av;
35431 } else {
35432   av2=C_alloc(9);
35433 }
35434 av2[0]=0;
35435 av2[1]=((C_word*)t0)[2];
35436 av2[2]=lf[410];
35437 av2[3]=((C_word*)t0)[3];
35438 av2[4]=t2;
35439 av2[5]=C_SCHEME_END_OF_LIST;
35440 av2[6]=((C_word*)t0)[4];
35441 av2[7]=t3;
35442 av2[8]=((C_word*)t0)[5];
35443 C_apply(9,av2);}}
35444 
35445 /* a28605 in k28599 in chicken.irregex#irregex-extract in k18916 in k7761 in k7536 in k7533 */
f_28606(C_word c,C_word * av)35446 static void C_ccall f_28606(C_word c,C_word *av){
35447 C_word tmp;
35448 C_word t0=av[0];
35449 C_word t1=av[1];
35450 C_word t2=av[2];
35451 C_word t3=av[3];
35452 C_word t4=av[4];
35453 C_word t5;
35454 C_word t6;
35455 C_word *a;
35456 if(c!=5) C_bad_argc_2(c,5,t0);
35457 C_check_for_interrupt;
35458 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
35459 C_save_and_reclaim((void *)f_28606,c,av);}
35460 a=C_alloc(4);
35461 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28614,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
35462 /* irregex-core.scm:4035: irregex-match-substring */
35463 t6=*((C_word*)lf[40]+1);{
35464 C_word *av2=av;
35465 av2[0]=t6;
35466 av2[1]=t5;
35467 av2[2]=t3;
35468 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
35469 
35470 /* k28612 in a28605 in k28599 in chicken.irregex#irregex-extract in k18916 in k7761 in k7536 in k7533 */
f_28614(C_word c,C_word * av)35471 static void C_ccall f_28614(C_word c,C_word *av){
35472 C_word tmp;
35473 C_word t0=av[0];
35474 C_word t1=av[1];
35475 C_word t2;
35476 C_word *a;
35477 C_check_for_interrupt;
35478 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
35479 C_save_and_reclaim((void *)f_28614,c,av);}
35480 a=C_alloc(3);
35481 t2=((C_word*)t0)[2];{
35482 C_word *av2=av;
35483 av2[0]=t2;
35484 av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
35485 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
35486 
35487 /* a28615 in k28599 in chicken.irregex#irregex-extract in k18916 in k7761 in k7536 in k7533 */
f_28616(C_word c,C_word * av)35488 static void C_ccall f_28616(C_word c,C_word *av){
35489 C_word tmp;
35490 C_word t0=av[0];
35491 C_word t1=av[1];
35492 C_word t2=av[2];
35493 C_word t3=av[3];
35494 C_word t4;
35495 C_word *a;
35496 if(c!=4) C_bad_argc_2(c,4,t0);
35497 C_check_for_interrupt;
35498 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
35499 C_save_and_reclaim((void *)f_28616,c,av);}
35500 /* irregex-core.scm:4038: ##sys#fast-reverse */
35501 t4=*((C_word*)lf[69]+1);{
35502 C_word *av2=av;
35503 av2[0]=t4;
35504 av2[1]=t1;
35505 av2[2]=t3;
35506 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
35507 
35508 /* chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28632(C_word c,C_word * av)35509 static void C_ccall f_28632(C_word c,C_word *av){
35510 C_word tmp;
35511 C_word t0=av[0];
35512 C_word t1=av[1];
35513 C_word t2=av[2];
35514 C_word t3=av[3];
35515 C_word t4;
35516 C_word *a;
35517 if(c<4) C_bad_min_argc_2(c,4,t0);
35518 C_check_for_interrupt;
35519 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +6,c,4)))){
35520 C_save_and_reclaim((void*)f_28632,c,av);}
35521 a=C_alloc((c-4)*C_SIZEOF_PAIR+6);
35522 t4=C_build_rest(&a,c,4,av);
35523 C_word t5;
35524 C_word t6;
35525 C_word t7;
35526 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28636,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
35527 t6=C_i_stringp(t3);
35528 if(C_truep(C_i_not(t6))){
35529 /* irregex-core.scm:4042: chicken.base#error */
35530 t7=*((C_word*)lf[30]+1);{
35531 C_word *av2;
35532 if(c >= 5) {
35533   av2=av;
35534 } else {
35535   av2=C_alloc(5);
35536 }
35537 av2[0]=t7;
35538 av2[1]=t5;
35539 av2[2]=lf[438];
35540 av2[3]=lf[439];
35541 av2[4]=t3;
35542 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
35543 else{
35544 t7=t5;{
35545 C_word *av2=av;
35546 av2[0]=t7;
35547 av2[1]=C_SCHEME_UNDEFINED;
35548 f_28636(2,av2);}}}
35549 
35550 /* k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28636(C_word c,C_word * av)35551 static void C_ccall f_28636(C_word c,C_word *av){
35552 C_word tmp;
35553 C_word t0=av[0];
35554 C_word t1=av[1];
35555 C_word t2;
35556 C_word t3;
35557 C_word t4;
35558 C_word t5;
35559 C_word t6;
35560 C_word *a;
35561 C_check_for_interrupt;
35562 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
35563 C_save_and_reclaim((void *)f_28636,c,av);}
35564 a=C_alloc(6);
35565 t2=C_i_pairp(((C_word*)t0)[2]);
35566 t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_fix(0));
35567 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28642,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
35568 if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
35569 t5=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
35570 t6=t4;
35571 f_28642(t6,(C_truep(t5)?C_i_cadr(((C_word*)t0)[2]):C_i_string_length(((C_word*)t0)[3])));}
35572 else{
35573 t5=t4;
35574 f_28642(t5,C_i_string_length(((C_word*)t0)[3]));}}
35575 
35576 /* k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28642(C_word t0,C_word t1)35577 static void C_fcall f_28642(C_word t0,C_word t1){
35578 C_word tmp;
35579 C_word t2;
35580 C_word t3;
35581 C_word t4;
35582 C_word *a;
35583 C_check_for_interrupt;
35584 if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){
35585 C_save_and_reclaim_args((void *)trf_28642,2,t0,t1);}
35586 a=C_alloc(9);
35587 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28647,a[2]=((C_word*)t0)[2],a[3]=((C_word)li359),tmp=(C_word)a,a+=4,tmp);
35588 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28705,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li361),tmp=(C_word)a,a+=5,tmp);
35589 /* irregex-core.scm:4045: irregex-fold/fast */
35590 t4=lf[410];{
35591 C_word av2[9];
35592 av2[0]=t4;
35593 av2[1]=((C_word*)t0)[3];
35594 av2[2]=((C_word*)t0)[4];
35595 av2[3]=t2;
35596 av2[4]=C_SCHEME_END_OF_LIST;
35597 av2[5]=((C_word*)t0)[2];
35598 av2[6]=t3;
35599 av2[7]=((C_word*)t0)[5];
35600 av2[8]=t1;
35601 f_27738(9,av2);}}
35602 
35603 /* a28646 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28647(C_word c,C_word * av)35604 static void C_ccall f_28647(C_word c,C_word *av){
35605 C_word tmp;
35606 C_word t0=av[0];
35607 C_word t1=av[1];
35608 C_word t2=av[2];
35609 C_word t3=av[3];
35610 C_word t4=av[4];
35611 C_word t5;
35612 C_word t6;
35613 C_word t7;
35614 C_word t8;
35615 C_word t9;
35616 C_word t10;
35617 C_word *a;
35618 if(c!=5) C_bad_argc_2(c,5,t0);
35619 C_check_for_interrupt;
35620 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
35621 C_save_and_reclaim((void *)f_28647,c,av);}
35622 a=C_alloc(4);
35623 t5=C_slot(t3,C_fix(1));
35624 t6=C_slot(t5,C_fix(1));
35625 t7=C_eqp(t2,t6);
35626 if(C_truep(t7)){
35627 t8=t1;{
35628 C_word *av2=av;
35629 av2[0]=t8;
35630 av2[1]=t4;
35631 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
35632 else{
35633 t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28661,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
35634 t9=C_slot(t3,C_fix(1));
35635 /* irregex-core.scm:4052: scheme#substring */
35636 t10=*((C_word*)lf[46]+1);{
35637 C_word *av2=av;
35638 av2[0]=t10;
35639 av2[1]=t8;
35640 av2[2]=((C_word*)t0)[2];
35641 av2[3]=t2;
35642 av2[4]=C_slot(t9,C_fix(1));
35643 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}
35644 
35645 /* k28659 in a28646 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28661(C_word c,C_word * av)35646 static void C_ccall f_28661(C_word c,C_word *av){
35647 C_word tmp;
35648 C_word t0=av[0];
35649 C_word t1=av[1];
35650 C_word t2;
35651 C_word *a;
35652 C_check_for_interrupt;
35653 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
35654 C_save_and_reclaim((void *)f_28661,c,av);}
35655 a=C_alloc(3);
35656 t2=((C_word*)t0)[2];{
35657 C_word *av2=av;
35658 av2[0]=t2;
35659 av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
35660 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
35661 
35662 /* a28704 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28705(C_word c,C_word * av)35663 static void C_ccall f_28705(C_word c,C_word *av){
35664 C_word tmp;
35665 C_word t0=av[0];
35666 C_word t1=av[1];
35667 C_word t2=av[2];
35668 C_word t3=av[3];
35669 C_word t4;
35670 C_word t5;
35671 C_word t6;
35672 C_word t7;
35673 C_word *a;
35674 if(c!=4) C_bad_argc_2(c,4,t0);
35675 C_check_for_interrupt;
35676 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
35677 C_save_and_reclaim((void *)f_28705,c,av);}
35678 a=C_alloc(7);
35679 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28713,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
35680 t5=C_eqp(t2,((C_word*)t0)[2]);
35681 if(C_truep(t5)){
35682 t6=t4;
35683 f_28713(t6,t3);}
35684 else{
35685 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28796,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
35686 /* irregex-core.scm:4056: scheme#substring */
35687 t7=*((C_word*)lf[46]+1);{
35688 C_word *av2;
35689 if(c >= 5) {
35690   av2=av;
35691 } else {
35692   av2=C_alloc(5);
35693 }
35694 av2[0]=t7;
35695 av2[1]=t6;
35696 av2[2]=((C_word*)t0)[3];
35697 av2[3]=t2;
35698 av2[4]=((C_word*)t0)[2];
35699 ((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}
35700 
35701 /* k28711 in a28704 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28713(C_word t0,C_word t1)35702 static void C_fcall f_28713(C_word t0,C_word t1){
35703 C_word tmp;
35704 C_word t2;
35705 C_word t3;
35706 C_word t4;
35707 C_word t5;
35708 C_word *a;
35709 C_check_for_interrupt;
35710 if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
35711 C_save_and_reclaim_args((void *)trf_28713,2,t0,t1);}
35712 a=C_alloc(6);
35713 t2=C_SCHEME_UNDEFINED;
35714 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
35715 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28715,a[2]=t3,a[3]=((C_word)li360),tmp=(C_word)a,a+=4,tmp));
35716 t5=((C_word*)t3)[1];
35717 f_28715(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}
35718 
35719 /* lp in k28711 in a28704 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28715(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)35720 static void C_fcall f_28715(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
35721 C_word tmp;
35722 C_word t5;
35723 C_word t6;
35724 C_word t7;
35725 C_word t8;
35726 C_word t9;
35727 C_word t10;
35728 C_word t11;
35729 C_word t12;
35730 C_word t13;
35731 C_word t14;
35732 C_word t15;
35733 C_word *a;
35734 loop:
35735 C_check_for_interrupt;
35736 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
35737 C_save_and_reclaim_args((void *)trf_28715,5,t0,t1,t2,t3,t4);}
35738 a=C_alloc(8);
35739 if(C_truep(C_i_nullp(t2))){
35740 t5=t1;{
35741 C_word av2[2];
35742 av2[0]=t5;
35743 av2[1]=t3;
35744 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
35745 else{
35746 t5=C_i_car(t2);
35747 if(C_truep(C_charp(t5))){
35748 t6=C_u_i_cdr(t2);
35749 t7=(C_truep(t4)?t4:C_i_nullp(t3));
35750 if(C_truep(t7)){
35751 t8=C_u_i_car(t2);
35752 t9=C_a_i_string(&a,1,t8);
35753 t10=C_a_i_cons(&a,2,t9,t3);
35754 /* irregex-core.scm:4062: lp */
35755 t12=t1;
35756 t13=t6;
35757 t14=t10;
35758 t15=C_SCHEME_TRUE;
35759 t1=t12;
35760 t2=t13;
35761 t3=t14;
35762 t4=t15;
35763 goto loop;}
35764 else{
35765 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28756,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
35766 t9=C_u_i_car(t2);
35767 t10=C_a_i_string(&a,1,t9);
35768 /* irregex-core.scm:4065: scheme#string-append */
35769 t11=*((C_word*)lf[437]+1);{
35770 C_word av2[4];
35771 av2[0]=t11;
35772 av2[1]=t8;
35773 av2[2]=t10;
35774 av2[3]=C_i_car(t3);
35775 ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}
35776 else{
35777 t6=C_u_i_cdr(t2);
35778 t7=C_u_i_car(t2);
35779 t8=C_a_i_cons(&a,2,t7,t3);
35780 /* irregex-core.scm:4068: lp */
35781 t12=t1;
35782 t13=t6;
35783 t14=t8;
35784 t15=C_SCHEME_FALSE;
35785 t1=t12;
35786 t2=t13;
35787 t3=t14;
35788 t4=t15;
35789 goto loop;}}}
35790 
35791 /* k28754 in lp in k28711 in a28704 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28756(C_word c,C_word * av)35792 static void C_ccall f_28756(C_word c,C_word *av){
35793 C_word tmp;
35794 C_word t0=av[0];
35795 C_word t1=av[1];
35796 C_word t2;
35797 C_word t3;
35798 C_word t4;
35799 C_word *a;
35800 C_check_for_interrupt;
35801 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
35802 C_save_and_reclaim((void *)f_28756,c,av);}
35803 a=C_alloc(3);
35804 t2=C_u_i_cdr(((C_word*)t0)[2]);
35805 t3=C_a_i_cons(&a,2,t1,t2);
35806 /* irregex-core.scm:4062: lp */
35807 t4=((C_word*)((C_word*)t0)[3])[1];
35808 f_28715(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,C_SCHEME_TRUE);}
35809 
35810 /* k28794 in a28704 in k28640 in k28634 in chicken.irregex#irregex-split in k18916 in k7761 in k7536 in k7533 */
f_28796(C_word c,C_word * av)35811 static void C_ccall f_28796(C_word c,C_word *av){
35812 C_word tmp;
35813 C_word t0=av[0];
35814 C_word t1=av[1];
35815 C_word t2;
35816 C_word *a;
35817 C_check_for_interrupt;
35818 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
35819 C_save_and_reclaim((void *)f_28796,c,av);}
35820 a=C_alloc(3);
35821 t2=((C_word*)t0)[2];
35822 f_28713(t2,C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));}
35823 
35824 /* chicken.irregex#string-scan-char in k18916 in k7761 in k7536 in k7533 */
f_28830(C_word c,C_word * av)35825 static void C_ccall f_28830(C_word c,C_word *av){
35826 C_word tmp;
35827 C_word t0=av[0];
35828 C_word t1=av[1];
35829 C_word t2=av[2];
35830 C_word t3=av[3];
35831 C_word t4;
35832 C_word *a;
35833 if(c<4) C_bad_min_argc_2(c,4,t0);
35834 C_check_for_interrupt;
35835 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){
35836 C_save_and_reclaim((void*)f_28830,c,av);}
35837 a=C_alloc((c-4)*C_SIZEOF_PAIR+9);
35838 t4=C_build_rest(&a,c,4,av);
35839 C_word t5;
35840 C_word t6;
35841 C_word t7;
35842 C_word t8;
35843 C_word t9;
35844 C_word t10;
35845 C_word t11;
35846 t5=C_i_string_length(t2);
35847 t6=C_i_pairp(t4);
35848 t7=(C_truep(t6)?C_get_rest_arg(c,4,av,4,t0):C_fix(0));
35849 t8=C_SCHEME_UNDEFINED;
35850 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
35851 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28843,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t9,a[6]=((C_word)li363),tmp=(C_word)a,a+=7,tmp));
35852 t11=((C_word*)t9)[1];
35853 f_28843(t11,t1,t7);}
35854 
35855 /* scan in chicken.irregex#string-scan-char in k18916 in k7761 in k7536 in k7533 */
f_28843(C_word t0,C_word t1,C_word t2)35856 static void C_fcall f_28843(C_word t0,C_word t1,C_word t2){
35857 C_word tmp;
35858 C_word t3;
35859 C_word t4;
35860 C_word t5;
35861 C_word t6;
35862 C_word t7;
35863 C_word t8;
35864 C_word t9;
35865 C_word *a;
35866 loop:
35867 C_check_for_interrupt;
35868 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
35869 C_save_and_reclaim_args((void *)trf_28843,3,t0,t1,t2);}
35870 a=C_alloc(5);
35871 t3=C_eqp(t2,((C_word*)t0)[2]);
35872 if(C_truep(t3)){
35873 t4=t1;{
35874 C_word av2[2];
35875 av2[0]=t4;
35876 av2[1]=C_SCHEME_FALSE;
35877 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
35878 else{
35879 t4=C_i_string_ref(((C_word*)t0)[3],t2);
35880 t5=C_eqp(((C_word*)t0)[4],t4);
35881 if(C_truep(t5)){
35882 t6=t1;{
35883 C_word av2[2];
35884 av2[0]=t6;
35885 av2[1]=t2;
35886 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
35887 else{
35888 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
35889 /* irregex-utils.scm:14: scan */
35890 t8=t1;
35891 t9=t6;
35892 t1=t8;
35893 t2=t9;
35894 goto loop;}}}
35895 
35896 /* chicken.irregex#irregex-quote in k18916 in k7761 in k7536 in k7533 */
f_28873(C_word c,C_word * av)35897 static void C_ccall f_28873(C_word c,C_word *av){
35898 C_word tmp;
35899 C_word t0=av[0];
35900 C_word t1=av[1];
35901 C_word t2=av[2];
35902 C_word t3;
35903 C_word t4;
35904 C_word t5;
35905 C_word *a;
35906 if(c!=3) C_bad_argc_2(c,3,t0);
35907 C_check_for_interrupt;
35908 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
35909 C_save_and_reclaim((void *)f_28873,c,av);}
35910 a=C_alloc(6);
35911 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28881,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
35912 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28885,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
35913 /* ##sys#string->list */
35914 t5=*((C_word*)lf[105]+1);{
35915 C_word *av2=av;
35916 av2[0]=t5;
35917 av2[1]=t4;
35918 av2[2]=t2;
35919 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
35920 
35921 /* k28879 in chicken.irregex#irregex-quote in k18916 in k7761 in k7536 in k7533 */
f_28881(C_word c,C_word * av)35922 static void C_ccall f_28881(C_word c,C_word *av){
35923 C_word tmp;
35924 C_word t0=av[0];
35925 C_word t1=av[1];
35926 C_word t2;
35927 C_word *a;
35928 C_check_for_interrupt;
35929 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
35930 C_save_and_reclaim((void *)f_28881,c,av);}
35931 /* ##sys#list->string */
35932 t2=*((C_word*)lf[441]+1);{
35933 C_word *av2;
35934 if(c >= 3) {
35935   av2=av;
35936 } else {
35937   av2=C_alloc(3);
35938 }
35939 av2[0]=t2;
35940 av2[1]=((C_word*)t0)[2];
35941 av2[2]=t1;
35942 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
35943 
35944 /* k28883 in chicken.irregex#irregex-quote in k18916 in k7761 in k7536 in k7533 */
f_28885(C_word c,C_word * av)35945 static void C_ccall f_28885(C_word c,C_word *av){
35946 C_word tmp;
35947 C_word t0=av[0];
35948 C_word t1=av[1];
35949 C_word t2;
35950 C_word t3;
35951 C_word t4;
35952 C_word t5;
35953 C_word *a;
35954 C_check_for_interrupt;
35955 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
35956 C_save_and_reclaim((void *)f_28885,c,av);}
35957 a=C_alloc(6);
35958 t2=C_SCHEME_UNDEFINED;
35959 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
35960 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28887,a[2]=t3,a[3]=((C_word)li365),tmp=(C_word)a,a+=4,tmp));
35961 t5=((C_word*)t3)[1];
35962 f_28887(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);}
35963 
35964 /* loop in k28883 in chicken.irregex#irregex-quote in k18916 in k7761 in k7536 in k7533 */
f_28887(C_word t0,C_word t1,C_word t2,C_word t3)35965 static void C_fcall f_28887(C_word t0,C_word t1,C_word t2,C_word t3){
35966 C_word tmp;
35967 C_word t4;
35968 C_word t5;
35969 C_word t6;
35970 C_word *a;
35971 C_check_for_interrupt;
35972 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
35973 C_save_and_reclaim_args((void *)trf_28887,4,t0,t1,t2,t3);}
35974 a=C_alloc(7);
35975 if(C_truep(C_i_nullp(t2))){
35976 /* irregex-utils.scm:20: ##sys#fast-reverse */
35977 t4=*((C_word*)lf[69]+1);{
35978 C_word av2[3];
35979 av2[0]=t4;
35980 av2[1]=t1;
35981 av2[2]=t3;
35982 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
35983 else{
35984 t4=C_i_car(t2);
35985 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28906,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
35986 /* irregex-utils.scm:22: string-scan-char */
35987 t6=lf[54];{
35988 C_word av2[4];
35989 av2[0]=t6;
35990 av2[1]=t5;
35991 av2[2]=lf[442];
35992 av2[3]=t4;
35993 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}
35994 
35995 /* k28904 in loop in k28883 in chicken.irregex#irregex-quote in k18916 in k7761 in k7536 in k7533 */
f_28906(C_word c,C_word * av)35996 static void C_ccall f_28906(C_word c,C_word *av){
35997 C_word tmp;
35998 C_word t0=av[0];
35999 C_word t1=av[1];
36000 C_word t2;
36001 C_word t3;
36002 C_word t4;
36003 C_word t5;
36004 C_word *a;
36005 C_check_for_interrupt;
36006 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
36007 C_save_and_reclaim((void *)f_28906,c,av);}
36008 a=C_alloc(6);
36009 if(C_truep(t1)){
36010 t2=C_u_i_cdr(((C_word*)t0)[2]);
36011 t3=C_a_i_cons(&a,2,C_make_character(92),((C_word*)t0)[3]);
36012 t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
36013 /* irregex-utils.scm:23: loop */
36014 t5=((C_word*)((C_word*)t0)[5])[1];
36015 f_28887(t5,((C_word*)t0)[6],t2,t4);}
36016 else{
36017 t2=C_u_i_cdr(((C_word*)t0)[2]);
36018 t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]);
36019 /* irregex-utils.scm:24: loop */
36020 t4=((C_word*)((C_word*)t0)[5])[1];
36021 f_28887(t4,((C_word*)t0)[6],t2,t3);}}
36022 
36023 /* chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_28930(C_word c,C_word * av)36024 static void C_ccall f_28930(C_word c,C_word *av){
36025 C_word tmp;
36026 C_word t0=av[0];
36027 C_word t1=av[1];
36028 C_word t2=av[2];
36029 C_word t3;
36030 C_word t4;
36031 C_word t5;
36032 C_word *a;
36033 if(c!=3) C_bad_argc_2(c,3,t0);
36034 C_check_for_interrupt;
36035 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
36036 C_save_and_reclaim((void *)f_28930,c,av);}
36037 a=C_alloc(4);
36038 if(C_truep(C_i_nullp(t2))){
36039 t3=t1;{
36040 C_word *av2=av;
36041 av2[0]=t3;
36042 av2[1]=lf[444];
36043 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
36044 else{
36045 t3=C_i_cdr(t2);
36046 if(C_truep(C_i_nullp(t3))){
36047 t4=t1;{
36048 C_word *av2=av;
36049 av2[0]=t4;
36050 av2[1]=C_u_i_car(t2);
36051 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
36052 else{
36053 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29067,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
36054 /* irregex-utils.scm:42: scheme#make-vector */
36055 t5=*((C_word*)lf[4]+1);{
36056 C_word *av2;
36057 if(c >= 4) {
36058   av2=av;
36059 } else {
36060   av2=C_alloc(4);
36061 }
36062 av2[0]=t5;
36063 av2[1]=t4;
36064 av2[2]=C_fix(256);
36065 av2[3]=C_SCHEME_END_OF_LIST;
36066 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}
36067 
36068 /* k28945 in k29102 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_28947(C_word c,C_word * av)36069 static void C_ccall f_28947(C_word c,C_word *av){
36070 C_word tmp;
36071 C_word t0=av[0];
36072 C_word t1=av[1];
36073 C_word t2;
36074 C_word t3;
36075 C_word *a;
36076 C_check_for_interrupt;
36077 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
36078 C_save_and_reclaim((void *)f_28947,c,av);}
36079 a=C_alloc(9);
36080 if(C_truep(t1)){
36081 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
36082 /* ##sys#list->string */
36083 t3=*((C_word*)lf[441]+1);{
36084 C_word *av2;
36085 if(c >= 3) {
36086   av2=av;
36087 } else {
36088   av2=C_alloc(3);
36089 }
36090 av2[0]=t3;
36091 av2[1]=t2;
36092 av2[2]=((C_word*)t0)[4];
36093 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
36094 else{
36095 t2=C_a_i_cons(&a,2,lf[103],((C_word*)t0)[4]);
36096 t3=((C_word*)t0)[2];{
36097 C_word *av2=av;
36098 av2[0]=t3;
36099 av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[131],t2):t2);
36100 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
36101 
36102 /* k28952 in k28945 in k29102 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_28954(C_word c,C_word * av)36103 static void C_ccall f_28954(C_word c,C_word *av){
36104 C_word tmp;
36105 C_word t0=av[0];
36106 C_word t1=av[1];
36107 C_word t2;
36108 C_word t3;
36109 C_word *a;
36110 C_check_for_interrupt;
36111 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
36112 C_save_and_reclaim((void *)f_28954,c,av);}
36113 a=C_alloc(9);
36114 t2=C_a_i_list1(&a,1,t1);
36115 t3=((C_word*)t0)[2];{
36116 C_word *av2=av;
36117 av2[0]=t3;
36118 av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[131],t2):t2);
36119 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
36120 
36121 /* k28975 in k29145 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_28977(C_word c,C_word * av)36122 static void C_ccall f_28977(C_word c,C_word *av){
36123 C_word tmp;
36124 C_word t0=av[0];
36125 C_word t1=av[1];
36126 C_word t2;
36127 C_word t3;
36128 C_word t4;
36129 C_word t5;
36130 C_word t6;
36131 C_word t7;
36132 C_word t8;
36133 C_word t9;
36134 C_word t10;
36135 C_word *a;
36136 C_check_for_interrupt;
36137 if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
36138 C_save_and_reclaim((void *)f_28977,c,av);}
36139 a=C_alloc(16);
36140 if(C_truep(t1)){
36141 t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
36142 t3=t2;
36143 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
36144 t5=((C_word*)t4)[1];
36145 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28998,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
36146 t7=C_SCHEME_UNDEFINED;
36147 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
36148 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29000,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li367),tmp=(C_word)a,a+=6,tmp));
36149 t10=((C_word*)t8)[1];
36150 f_29000(t10,t6,((C_word*)t0)[3]);}
36151 else{
36152 t2=C_a_i_cons(&a,2,lf[115],((C_word*)t0)[3]);
36153 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]);
36154 /* irregex-utils.scm:51: lp2 */
36155 t4=((C_word*)((C_word*)t0)[5])[1];
36156 f_29084(t4,((C_word*)t0)[6],((C_word*)t0)[7],t3);}}
36157 
36158 /* k28996 in k28975 in k29145 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_28998(C_word c,C_word * av)36159 static void C_ccall f_28998(C_word c,C_word *av){
36160 C_word tmp;
36161 C_word t0=av[0];
36162 C_word t1=av[1];
36163 C_word t2;
36164 C_word *a;
36165 C_check_for_interrupt;
36166 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
36167 C_save_and_reclaim((void *)f_28998,c,av);}{
36168 C_word *av2;
36169 if(c >= 4) {
36170   av2=av;
36171 } else {
36172   av2=C_alloc(4);
36173 }
36174 av2[0]=0;
36175 av2[1]=((C_word*)t0)[2];
36176 av2[2]=*((C_word*)lf[437]+1);
36177 av2[3]=t1;
36178 C_apply(4,av2);}}
36179 
36180 /* map-loop5957 in k28975 in k29145 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29000(C_word t0,C_word t1,C_word t2)36181 static void C_fcall f_29000(C_word t0,C_word t1,C_word t2){
36182 C_word tmp;
36183 C_word t3;
36184 C_word t4;
36185 C_word t5;
36186 C_word t6;
36187 C_word *a;
36188 C_check_for_interrupt;
36189 if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
36190 C_save_and_reclaim_args((void *)trf_29000,3,t0,t1,t2);}
36191 a=C_alloc(11);
36192 if(C_truep(C_i_pairp(t2))){
36193 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29010,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);
36194 t4=C_slot(t2,C_fix(0));
36195 if(C_truep(C_charp(t4))){
36196 t5=C_a_i_string(&a,1,t4);
36197 t6=t3;
36198 f_29010(t6,C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST));}
36199 else{
36200 t5=t3;
36201 f_29010(t5,C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST));}}
36202 else{
36203 t3=t1;{
36204 C_word av2[2];
36205 av2[0]=t3;
36206 av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
36207 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
36208 
36209 /* k29008 in map-loop5957 in k28975 in k29145 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29010(C_word t0,C_word t1)36210 static void C_fcall f_29010(C_word t0,C_word t1){
36211 C_word tmp;
36212 C_word t2;
36213 C_word t3;
36214 C_word t4;
36215 C_word *a;
36216 C_check_for_interrupt;
36217 if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
36218 C_save_and_reclaim_args((void *)trf_29010,2,t0,t1);}
36219 t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1);
36220 t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
36221 t4=((C_word*)((C_word*)t0)[3])[1];
36222 f_29000(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}
36223 
36224 /* a29036 in k29145 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29037(C_word c,C_word * av)36225 static void C_ccall f_29037(C_word c,C_word *av){
36226 C_word tmp;
36227 C_word t0=av[0];
36228 C_word t1=av[1];
36229 C_word t2=av[2];
36230 C_word t3;
36231 C_word t4;
36232 C_word *a;
36233 if(c!=3) C_bad_argc_2(c,3,t0);
36234 C_check_for_interrupt;
36235 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
36236 C_save_and_reclaim((void *)f_29037,c,av);}
36237 t3=C_i_stringp(t2);
36238 t4=t1;{
36239 C_word *av2=av;
36240 av2[0]=t4;
36241 av2[1]=(C_truep(t3)?t3:C_charp(t2));
36242 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
36243 
36244 /* k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29067(C_word c,C_word * av)36245 static void C_ccall f_29067(C_word c,C_word *av){
36246 C_word tmp;
36247 C_word t0=av[0];
36248 C_word t1=av[1];
36249 C_word t2;
36250 C_word t3;
36251 C_word t4;
36252 C_word t5;
36253 C_word *a;
36254 C_check_for_interrupt;
36255 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
36256 C_save_and_reclaim((void *)f_29067,c,av);}
36257 a=C_alloc(7);
36258 t2=C_SCHEME_UNDEFINED;
36259 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
36260 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29072,a[2]=t1,a[3]=t3,a[4]=((C_word)li370),tmp=(C_word)a,a+=5,tmp));
36261 t5=((C_word*)t3)[1];
36262 f_29072(t5,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE);}
36263 
36264 /* lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29072(C_word t0,C_word t1,C_word t2,C_word t3)36265 static void C_fcall f_29072(C_word t0,C_word t1,C_word t2,C_word t3){
36266 C_word tmp;
36267 C_word t4;
36268 C_word t5;
36269 C_word t6;
36270 C_word t7;
36271 C_word t8;
36272 C_word t9;
36273 C_word t10;
36274 C_word t11;
36275 C_word t12;
36276 C_word t13;
36277 C_word *a;
36278 loop:
36279 C_check_for_interrupt;
36280 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
36281 C_save_and_reclaim_args((void *)trf_29072,4,t0,t1,t2,t3);}
36282 a=C_alloc(8);
36283 if(C_truep(C_i_nullp(t2))){
36284 t4=C_SCHEME_UNDEFINED;
36285 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
36286 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29084,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li369),tmp=(C_word)a,a+=6,tmp));
36287 t7=((C_word*)t5)[1];
36288 f_29084(t7,t1,C_fix(0),C_SCHEME_END_OF_LIST);}
36289 else{
36290 t4=C_i_car(t2);
36291 t5=C_i_string_length(t4);
36292 t6=C_eqp(t5,C_fix(0));
36293 if(C_truep(t6)){
36294 /* irregex-utils.scm:60: lp1 */
36295 t11=t1;
36296 t12=C_u_i_cdr(t2);
36297 t13=C_SCHEME_TRUE;
36298 t1=t11;
36299 t2=t12;
36300 t3=t13;
36301 goto loop;}
36302 else{
36303 t7=C_i_string_ref(t4,C_fix(0));
36304 t8=C_fix(C_character_code(t7));
36305 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29183,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
36306 /* irregex-utils.scm:65: scheme#substring */
36307 t10=*((C_word*)lf[46]+1);{
36308 C_word av2[5];
36309 av2[0]=t10;
36310 av2[1]=t9;
36311 av2[2]=t4;
36312 av2[3]=C_fix(1);
36313 av2[4]=t5;
36314 ((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}
36315 
36316 /* lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29084(C_word t0,C_word t1,C_word t2,C_word t3)36317 static void C_fcall f_29084(C_word t0,C_word t1,C_word t2,C_word t3){
36318 C_word tmp;
36319 C_word t4;
36320 C_word t5;
36321 C_word t6;
36322 C_word t7;
36323 C_word t8;
36324 C_word t9;
36325 C_word t10;
36326 C_word t11;
36327 C_word t12;
36328 C_word t13;
36329 C_word *a;
36330 loop:
36331 C_check_for_interrupt;
36332 if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){
36333 C_save_and_reclaim_args((void *)trf_29084,4,t0,t1,t2,t3);}
36334 a=C_alloc(19);
36335 t4=C_eqp(t2,C_fix(256));
36336 if(C_truep(t4)){
36337 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29104,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
36338 /* irregex-utils.scm:47: ##sys#fast-reverse */
36339 t6=*((C_word*)lf[69]+1);{
36340 C_word av2[3];
36341 av2[0]=t6;
36342 av2[1]=t5;
36343 av2[2]=t3;
36344 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
36345 else{
36346 t5=C_make_character(C_unfix(t2));
36347 t6=C_i_vector_ref(((C_word*)t0)[3],t2);
36348 t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
36349 if(C_truep(C_i_nullp(t6))){
36350 /* irregex-utils.scm:51: lp2 */
36351 t11=t1;
36352 t12=t7;
36353 t13=t3;
36354 t1=t11;
36355 t2=t12;
36356 t3=t13;
36357 goto loop;}
36358 else{
36359 if(C_truep(C_i_equalp(t6,lf[446]))){
36360 t8=C_a_i_cons(&a,2,t5,t3);
36361 /* irregex-utils.scm:51: lp2 */
36362 t11=t1;
36363 t12=t7;
36364 t13=t8;
36365 t1=t11;
36366 t2=t12;
36367 t3=t13;
36368 goto loop;}
36369 else{
36370 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29139,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
36371 t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29147,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t7,a[7]=t8,tmp=(C_word)a,a+=8,tmp);
36372 /* irregex-utils.scm:55: irregex-opt */
36373 t10=*((C_word*)lf[443]+1);{
36374 C_word av2[3];
36375 av2[0]=t10;
36376 av2[1]=t9;
36377 av2[2]=t6;
36378 ((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}}
36379 
36380 /* k29102 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29104(C_word c,C_word * av)36381 static void C_ccall f_29104(C_word c,C_word *av){
36382 C_word tmp;
36383 C_word t0=av[0];
36384 C_word t1=av[1];
36385 C_word t2;
36386 C_word t3;
36387 C_word t4;
36388 C_word *a;
36389 C_check_for_interrupt;
36390 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
36391 C_save_and_reclaim((void *)f_29104,c,av);}
36392 a=C_alloc(6);
36393 t2=C_i_cdr(t1);
36394 if(C_truep(C_i_nullp(t2))){
36395 t3=C_u_i_car(t1);
36396 t4=((C_word*)t0)[2];{
36397 C_word *av2=av;
36398 av2[0]=t4;
36399 av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[131],t3):t3);
36400 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
36401 else{
36402 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28947,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
36403 /* irregex-utils.scm:31: every */
36404 f_9337(t3,*((C_word*)lf[445]+1),t1);}}
36405 
36406 /* k29137 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29139(C_word c,C_word * av)36407 static void C_ccall f_29139(C_word c,C_word *av){
36408 C_word tmp;
36409 C_word t0=av[0];
36410 C_word t1=av[1];
36411 C_word t2;
36412 C_word t3;
36413 C_word *a;
36414 C_check_for_interrupt;
36415 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
36416 C_save_and_reclaim((void *)f_29139,c,av);}
36417 a=C_alloc(3);
36418 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
36419 /* irregex-utils.scm:51: lp2 */
36420 t3=((C_word*)((C_word*)t0)[3])[1];
36421 f_29084(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
36422 
36423 /* k29145 in lp2 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29147(C_word c,C_word * av)36424 static void C_ccall f_29147(C_word c,C_word *av){
36425 C_word tmp;
36426 C_word t0=av[0];
36427 C_word t1=av[1];
36428 C_word t2;
36429 C_word t3;
36430 C_word t4;
36431 C_word t5;
36432 C_word t6;
36433 C_word *a;
36434 C_check_for_interrupt;
36435 if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
36436 C_save_and_reclaim((void *)f_29147,c,av);}
36437 a=C_alloc(17);
36438 t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
36439 t3=C_i_cdr(t2);
36440 if(C_truep(C_i_nullp(t3))){
36441 t4=C_u_i_car(t2);
36442 t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]);
36443 /* irregex-utils.scm:51: lp2 */
36444 t6=((C_word*)((C_word*)t0)[4])[1];
36445 f_29084(t6,((C_word*)t0)[5],((C_word*)t0)[6],t5);}
36446 else{
36447 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28977,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
36448 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29037,a[2]=((C_word)li368),tmp=(C_word)a,a+=3,tmp);
36449 /* irregex-utils.scm:35: every */
36450 f_9337(t4,t5,t2);}}
36451 
36452 /* k29181 in lp1 in k29065 in chicken.irregex#irregex-opt in k18916 in k7761 in k7536 in k7533 */
f_29183(C_word c,C_word * av)36453 static void C_ccall f_29183(C_word c,C_word *av){
36454 C_word tmp;
36455 C_word t0=av[0];
36456 C_word t1=av[1];
36457 C_word t2;
36458 C_word t3;
36459 C_word t4;
36460 C_word t5;
36461 C_word *a;
36462 C_check_for_interrupt;
36463 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
36464 C_save_and_reclaim((void *)f_29183,c,av);}
36465 a=C_alloc(3);
36466 t2=C_i_vector_ref(((C_word*)t0)[2],((C_word*)t0)[3]);
36467 t3=C_a_i_cons(&a,2,t1,t2);
36468 t4=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t3);
36469 /* irregex-utils.scm:66: lp1 */
36470 t5=((C_word*)((C_word*)t0)[4])[1];
36471 f_29072(t5,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[6]),((C_word*)t0)[7]);}
36472 
36473 /* chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29197(C_word t1,C_word t2)36474 static void C_fcall f_29197(C_word t1,C_word t2){
36475 C_word tmp;
36476 C_word t3;
36477 C_word t4;
36478 C_word *a;
36479 C_check_for_interrupt;
36480 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
36481 C_save_and_reclaim_args((void *)trf_29197,2,t1,t2);}
36482 a=C_alloc(4);
36483 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29201,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
36484 /* irregex-utils.scm:71: chicken.base#open-output-string */
36485 t4=*((C_word*)lf[451]+1);{
36486 C_word av2[2];
36487 av2[0]=t4;
36488 av2[1]=t3;
36489 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
36490 
36491 /* k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29201(C_word c,C_word * av)36492 static void C_ccall f_29201(C_word c,C_word *av){
36493 C_word tmp;
36494 C_word t0=av[0];
36495 C_word t1=av[1];
36496 C_word t2;
36497 C_word t3;
36498 C_word t4;
36499 C_word t5;
36500 C_word t6;
36501 C_word *a;
36502 C_check_for_interrupt;
36503 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
36504 C_save_and_reclaim((void *)f_29201,c,av);}
36505 a=C_alloc(11);
36506 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29204,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
36507 t3=C_SCHEME_UNDEFINED;
36508 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
36509 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29209,a[2]=t4,a[3]=t1,a[4]=((C_word)li372),tmp=(C_word)a,a+=5,tmp));
36510 t6=((C_word*)t4)[1];
36511 f_29209(t6,t2,((C_word*)t0)[3]);}
36512 
36513 /* k29202 in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29204(C_word c,C_word * av)36514 static void C_ccall f_29204(C_word c,C_word *av){
36515 C_word tmp;
36516 C_word t0=av[0];
36517 C_word t1=av[1];
36518 C_word t2;
36519 C_word *a;
36520 C_check_for_interrupt;
36521 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
36522 C_save_and_reclaim((void *)f_29204,c,av);}
36523 /* irregex-utils.scm:82: chicken.base#get-output-string */
36524 t2=*((C_word*)lf[448]+1);{
36525 C_word *av2;
36526 if(c >= 3) {
36527   av2=av;
36528 } else {
36529   av2=C_alloc(3);
36530 }
36531 av2[0]=t2;
36532 av2[1]=((C_word*)t0)[2];
36533 av2[2]=((C_word*)t0)[3];
36534 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
36535 
36536 /* lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29209(C_word t0,C_word t1,C_word t2)36537 static void C_fcall f_29209(C_word t0,C_word t1,C_word t2){
36538 C_word tmp;
36539 C_word t3;
36540 C_word t4;
36541 C_word t5;
36542 C_word t6;
36543 C_word t7;
36544 C_word t8;
36545 C_word *a;
36546 C_check_for_interrupt;
36547 if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
36548 C_save_and_reclaim_args((void *)trf_29209,3,t0,t1,t2);}
36549 a=C_alloc(16);
36550 if(C_truep(C_i_pairp(t2))){
36551 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29219,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
36552 if(C_truep(C_i_pairp(C_u_i_car(t2)))){
36553 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29230,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
36554 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29252,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
36555 t6=C_i_caar(t2);
36556 t7=C_a_i_string(&a,1,t6);
36557 /* irregex-utils.scm:77: irregex-quote */
36558 t8=*((C_word*)lf[440]+1);{
36559 C_word av2[3];
36560 av2[0]=t8;
36561 av2[1]=t5;
36562 av2[2]=t7;
36563 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
36564 else{
36565 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29267,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
36566 t5=C_u_i_car(t2);
36567 t6=C_a_i_string(&a,1,t5);
36568 /* irregex-utils.scm:80: irregex-quote */
36569 t7=*((C_word*)lf[440]+1);{
36570 C_word av2[3];
36571 av2[0]=t7;
36572 av2[1]=t4;
36573 av2[2]=t6;
36574 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
36575 else{
36576 t3=C_SCHEME_UNDEFINED;
36577 t4=t1;{
36578 C_word av2[2];
36579 av2[0]=t4;
36580 av2[1]=t3;
36581 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
36582 
36583 /* k29217 in lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29219(C_word c,C_word * av)36584 static void C_ccall f_29219(C_word c,C_word *av){
36585 C_word tmp;
36586 C_word t0=av[0];
36587 C_word t1=av[1];
36588 C_word t2;
36589 C_word *a;
36590 C_check_for_interrupt;
36591 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
36592 C_save_and_reclaim((void *)f_29219,c,av);}
36593 /* irregex-utils.scm:81: lp */
36594 t2=((C_word*)((C_word*)t0)[2])[1];
36595 f_29209(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
36596 
36597 /* k29228 in lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29230(C_word c,C_word * av)36598 static void C_ccall f_29230(C_word c,C_word *av){
36599 C_word tmp;
36600 C_word t0=av[0];
36601 C_word t1=av[1];
36602 C_word t2;
36603 C_word t3;
36604 C_word *a;
36605 C_check_for_interrupt;
36606 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
36607 C_save_and_reclaim((void *)f_29230,c,av);}
36608 a=C_alloc(5);
36609 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29233,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);
36610 /* ##sys#write-char/port */
36611 t3=*((C_word*)lf[450]+1);{
36612 C_word *av2;
36613 if(c >= 4) {
36614   av2=av;
36615 } else {
36616   av2=C_alloc(4);
36617 }
36618 av2[0]=t3;
36619 av2[1]=t2;
36620 av2[2]=C_make_character(45);
36621 av2[3]=((C_word*)t0)[3];
36622 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
36623 
36624 /* k29231 in k29228 in lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29233(C_word c,C_word * av)36625 static void C_ccall f_29233(C_word c,C_word *av){
36626 C_word tmp;
36627 C_word t0=av[0];
36628 C_word t1=av[1];
36629 C_word t2;
36630 C_word t3;
36631 C_word t4;
36632 C_word t5;
36633 C_word *a;
36634 C_check_for_interrupt;
36635 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
36636 C_save_and_reclaim((void *)f_29233,c,av);}
36637 a=C_alloc(6);
36638 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
36639 t3=C_i_cdar(((C_word*)t0)[4]);
36640 t4=C_a_i_string(&a,1,t3);
36641 /* irregex-utils.scm:79: irregex-quote */
36642 t5=*((C_word*)lf[440]+1);{
36643 C_word *av2;
36644 if(c >= 3) {
36645   av2=av;
36646 } else {
36647   av2=C_alloc(3);
36648 }
36649 av2[0]=t5;
36650 av2[1]=t2;
36651 av2[2]=t4;
36652 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
36653 
36654 /* k29238 in k29231 in k29228 in lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29240(C_word c,C_word * av)36655 static void C_ccall f_29240(C_word c,C_word *av){
36656 C_word tmp;
36657 C_word t0=av[0];
36658 C_word t1=av[1];
36659 C_word t2;
36660 C_word *a;
36661 C_check_for_interrupt;
36662 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
36663 C_save_and_reclaim((void *)f_29240,c,av);}
36664 /* irregex-utils.scm:79: scheme#display */
36665 t2=*((C_word*)lf[449]+1);{
36666 C_word *av2;
36667 if(c >= 4) {
36668   av2=av;
36669 } else {
36670   av2=C_alloc(4);
36671 }
36672 av2[0]=t2;
36673 av2[1]=((C_word*)t0)[2];
36674 av2[2]=t1;
36675 av2[3]=((C_word*)t0)[3];
36676 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
36677 
36678 /* k29250 in lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29252(C_word c,C_word * av)36679 static void C_ccall f_29252(C_word c,C_word *av){
36680 C_word tmp;
36681 C_word t0=av[0];
36682 C_word t1=av[1];
36683 C_word t2;
36684 C_word *a;
36685 C_check_for_interrupt;
36686 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
36687 C_save_and_reclaim((void *)f_29252,c,av);}
36688 /* irregex-utils.scm:77: scheme#display */
36689 t2=*((C_word*)lf[449]+1);{
36690 C_word *av2;
36691 if(c >= 4) {
36692   av2=av;
36693 } else {
36694   av2=C_alloc(4);
36695 }
36696 av2[0]=t2;
36697 av2[1]=((C_word*)t0)[2];
36698 av2[2]=t1;
36699 av2[3]=((C_word*)t0)[3];
36700 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
36701 
36702 /* k29265 in lp in k29199 in chicken.irregex#cset->string in k18916 in k7761 in k7536 in k7533 */
f_29267(C_word c,C_word * av)36703 static void C_ccall f_29267(C_word c,C_word *av){
36704 C_word tmp;
36705 C_word t0=av[0];
36706 C_word t1=av[1];
36707 C_word t2;
36708 C_word *a;
36709 C_check_for_interrupt;
36710 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
36711 C_save_and_reclaim((void *)f_29267,c,av);}
36712 /* irregex-utils.scm:80: scheme#display */
36713 t2=*((C_word*)lf[449]+1);{
36714 C_word *av2;
36715 if(c >= 4) {
36716   av2=av;
36717 } else {
36718   av2=C_alloc(4);
36719 }
36720 av2[0]=t2;
36721 av2[1]=((C_word*)t0)[2];
36722 av2[2]=t1;
36723 av2[3]=((C_word*)t0)[3];
36724 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
36725 
36726 /* chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29277(C_word c,C_word * av)36727 static void C_ccall f_29277(C_word c,C_word *av){
36728 C_word tmp;
36729 C_word t0=av[0];
36730 C_word t1=av[1];
36731 C_word t2=av[2];
36732 C_word t3;
36733 C_word t4;
36734 C_word *a;
36735 if(c!=3) C_bad_argc_2(c,3,t0);
36736 C_check_for_interrupt;
36737 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
36738 C_save_and_reclaim((void *)f_29277,c,av);}
36739 a=C_alloc(4);
36740 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29281,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
36741 /* irregex-utils.scm:85: chicken.base#open-output-string */
36742 t4=*((C_word*)lf[451]+1);{
36743 C_word *av2=av;
36744 av2[0]=t4;
36745 av2[1]=t3;
36746 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
36747 
36748 /* k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29281(C_word c,C_word * av)36749 static void C_ccall f_29281(C_word c,C_word *av){
36750 C_word tmp;
36751 C_word t0=av[0];
36752 C_word t1=av[1];
36753 C_word t2;
36754 C_word t3;
36755 C_word t4;
36756 C_word t5;
36757 C_word t6;
36758 C_word *a;
36759 C_check_for_interrupt;
36760 if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
36761 C_save_and_reclaim((void *)f_29281,c,av);}
36762 a=C_alloc(12);
36763 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29284,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
36764 t3=C_SCHEME_UNDEFINED;
36765 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
36766 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29289,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li382),tmp=(C_word)a,a+=6,tmp));
36767 t6=((C_word*)t4)[1];
36768 f_29289(t6,t2,((C_word*)t0)[3]);}
36769 
36770 /* k29282 in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29284(C_word c,C_word * av)36771 static void C_ccall f_29284(C_word c,C_word *av){
36772 C_word tmp;
36773 C_word t0=av[0];
36774 C_word t1=av[1];
36775 C_word t2;
36776 C_word *a;
36777 C_check_for_interrupt;
36778 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
36779 C_save_and_reclaim((void *)f_29284,c,av);}
36780 /* irregex-utils.scm:153: chicken.base#get-output-string */
36781 t2=*((C_word*)lf[448]+1);{
36782 C_word *av2;
36783 if(c >= 3) {
36784   av2=av;
36785 } else {
36786   av2=C_alloc(3);
36787 }
36788 av2[0]=t2;
36789 av2[1]=((C_word*)t0)[2];
36790 av2[2]=((C_word*)t0)[3];
36791 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
36792 
36793 /* lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29289(C_word t0,C_word t1,C_word t2)36794 static void C_fcall f_29289(C_word t0,C_word t1,C_word t2){
36795 C_word tmp;
36796 C_word t3;
36797 C_word t4;
36798 C_word t5;
36799 C_word t6;
36800 C_word t7;
36801 C_word t8;
36802 C_word t9;
36803 C_word t10;
36804 C_word t11;
36805 C_word t12;
36806 C_word t13;
36807 C_word t14;
36808 C_word *a;
36809 C_check_for_interrupt;
36810 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
36811 C_save_and_reclaim_args((void *)trf_29289,3,t0,t1,t2);}
36812 a=C_alloc(7);
36813 if(C_truep(C_i_pairp(t2))){
36814 t3=C_u_i_car(t2);
36815 t4=C_eqp(t3,lf[227]);
36816 t5=(C_truep(t4)?t4:C_eqp(t3,lf[115]));
36817 if(C_truep(t5)){
36818 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29312,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
36819 if(C_truep(C_i_pairp(C_u_i_cdr(t2)))){
36820 t7=C_i_cddr(t2);
36821 t8=C_i_pairp(t7);
36822 t9=t6;
36823 f_29312(t9,(C_truep(t8)?C_i_not(C_eqp(t2,((C_word*)t0)[4])):C_SCHEME_FALSE));}
36824 else{
36825 t7=t6;
36826 f_29312(t7,C_SCHEME_FALSE);}}
36827 else{
36828 t6=C_eqp(t3,lf[108]);
36829 if(C_truep(t6)){
36830 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29409,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
36831 /* irregex-utils.scm:96: scheme#display */
36832 t8=*((C_word*)lf[449]+1);{
36833 C_word av2[4];
36834 av2[0]=t8;
36835 av2[1]=t7;
36836 av2[2]=lf[456];
36837 av2[3]=((C_word*)t0)[2];
36838 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
36839 else{
36840 t7=C_eqp(t3,lf[120]);
36841 if(C_truep(t7)){
36842 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29451,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
36843 /* irregex-utils.scm:98: scheme#display */
36844 t9=*((C_word*)lf[449]+1);{
36845 C_word av2[4];
36846 av2[0]=t9;
36847 av2[1]=t8;
36848 av2[2]=lf[459];
36849 av2[3]=((C_word*)t0)[2];
36850 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
36851 else{
36852 t8=C_eqp(t3,lf[103]);
36853 if(C_truep(t8)){
36854 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29505,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
36855 /* irregex-utils.scm:101: scheme#display */
36856 t10=*((C_word*)lf[449]+1);{
36857 C_word av2[4];
36858 av2[0]=t10;
36859 av2[1]=t9;
36860 av2[2]=lf[462];
36861 av2[3]=((C_word*)t0)[2];
36862 ((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
36863 else{
36864 t9=C_eqp(t3,lf[127]);
36865 t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29564,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
36866 if(C_truep(t9)){
36867 t11=t10;
36868 f_29564(t11,t9);}
36869 else{
36870 t11=C_eqp(t3,lf[129]);
36871 if(C_truep(t11)){
36872 t12=t10;
36873 f_29564(t12,t11);}
36874 else{
36875 t12=C_eqp(t3,lf[131]);
36876 if(C_truep(t12)){
36877 t13=t10;
36878 f_29564(t13,t12);}
36879 else{
36880 t13=C_eqp(t3,lf[128]);
36881 t14=t10;
36882 f_29564(t14,(C_truep(t13)?t13:C_eqp(t3,lf[132])));}}}}}}}}
36883 else{
36884 if(C_truep(C_i_symbolp(t2))){
36885 t3=C_eqp(t2,lf[186]);
36886 t4=(C_truep(t3)?t3:C_eqp(t2,lf[195]));
36887 if(C_truep(t4)){
36888 /* irregex-utils.scm:143: scheme#display */
36889 t5=*((C_word*)lf[449]+1);{
36890 C_word av2[4];
36891 av2[0]=t5;
36892 av2[1]=t1;
36893 av2[2]=lf[481];
36894 av2[3]=((C_word*)t0)[2];
36895 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
36896 else{
36897 t5=C_eqp(t2,lf[187]);
36898 t6=(C_truep(t5)?t5:C_eqp(t2,lf[196]));
36899 if(C_truep(t6)){
36900 /* irregex-utils.scm:144: scheme#display */
36901 t7=*((C_word*)lf[449]+1);{
36902 C_word av2[4];
36903 av2[0]=t7;
36904 av2[1]=t1;
36905 av2[2]=lf[482];
36906 av2[3]=((C_word*)t0)[2];
36907 ((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
36908 else{
36909 t7=C_eqp(t2,lf[124]);
36910 t8=(C_truep(t7)?t7:C_eqp(t2,lf[125]));
36911 if(C_truep(t8)){
36912 /* irregex-utils.scm:145: scheme#display */
36913 t9=*((C_word*)lf[449]+1);{
36914 C_word av2[4];
36915 av2[0]=t9;
36916 av2[1]=t1;
36917 av2[2]=lf[483];
36918 av2[3]=((C_word*)t0)[2];
36919 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
36920 else{
36921 /* irregex-utils.scm:146: chicken.base#error */
36922 t9=*((C_word*)lf[30]+1);{
36923 C_word av2[4];
36924 av2[0]=t9;
36925 av2[1]=t1;
36926 av2[2]=lf[484];
36927 av2[3]=t2;
36928 ((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}}
36929 else{
36930 if(C_truep(C_i_stringp(t2))){
36931 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30011,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
36932 /* irregex-utils.scm:148: irregex-quote */
36933 t4=*((C_word*)lf[440]+1);{
36934 C_word av2[3];
36935 av2[0]=t4;
36936 av2[1]=t3;
36937 av2[2]=t2;
36938 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
36939 else{
36940 if(C_truep(C_charp(t2))){
36941 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30024,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
36942 t4=C_a_i_string(&a,1,t2);
36943 /* irregex-utils.scm:150: irregex-quote */
36944 t5=*((C_word*)lf[440]+1);{
36945 C_word av2[3];
36946 av2[0]=t5;
36947 av2[1]=t3;
36948 av2[2]=t4;
36949 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
36950 else{
36951 /* irregex-utils.scm:152: chicken.base#error */
36952 t3=*((C_word*)lf[30]+1);{
36953 C_word av2[4];
36954 av2[0]=t3;
36955 av2[1]=t1;
36956 av2[2]=lf[485];
36957 av2[3]=t2;
36958 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}}
36959 
36960 /* k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29312(C_word t0,C_word t1)36961 static void C_fcall f_29312(C_word t0,C_word t1){
36962 C_word tmp;
36963 C_word t2;
36964 C_word t3;
36965 C_word t4;
36966 C_word t5;
36967 C_word t6;
36968 C_word t7;
36969 C_word *a;
36970 C_check_for_interrupt;
36971 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
36972 C_save_and_reclaim_args((void *)trf_29312,2,t0,t1);}
36973 a=C_alloc(7);
36974 if(C_truep(t1)){
36975 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29315,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);
36976 /* irregex-utils.scm:93: scheme#display */
36977 t3=*((C_word*)lf[449]+1);{
36978 C_word av2[4];
36979 av2[0]=t3;
36980 av2[1]=t2;
36981 av2[2]=lf[454];
36982 av2[3]=((C_word*)t0)[4];
36983 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
36984 else{
36985 t2=C_u_i_cdr(((C_word*)t0)[2]);
36986 t3=C_i_check_list_2(t2,lf[306]);
36987 t4=C_SCHEME_UNDEFINED;
36988 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
36989 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29357,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li375),tmp=(C_word)a,a+=5,tmp));
36990 t7=((C_word*)t5)[1];
36991 f_29357(t7,((C_word*)t0)[3],t2);}}
36992 
36993 /* k29313 in k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29315(C_word c,C_word * av)36994 static void C_ccall f_29315(C_word c,C_word *av){
36995 C_word tmp;
36996 C_word t0=av[0];
36997 C_word t1=av[1];
36998 C_word t2;
36999 C_word t3;
37000 C_word t4;
37001 C_word t5;
37002 C_word t6;
37003 C_word t7;
37004 C_word t8;
37005 C_word *a;
37006 C_check_for_interrupt;
37007 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
37008 C_save_and_reclaim((void *)f_29315,c,av);}
37009 a=C_alloc(11);
37010 t2=C_u_i_cdr(((C_word*)t0)[2]);
37011 t3=C_i_check_list_2(t2,lf[306]);
37012 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29322,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
37013 t5=C_SCHEME_UNDEFINED;
37014 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
37015 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29327,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li374),tmp=(C_word)a,a+=5,tmp));
37016 t8=((C_word*)t6)[1];
37017 f_29327(t8,t4,t2);}
37018 
37019 /* k29320 in k29313 in k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29322(C_word c,C_word * av)37020 static void C_ccall f_29322(C_word c,C_word *av){
37021 C_word tmp;
37022 C_word t0=av[0];
37023 C_word t1=av[1];
37024 C_word t2;
37025 C_word *a;
37026 C_check_for_interrupt;
37027 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37028 C_save_and_reclaim((void *)f_29322,c,av);}
37029 /* irregex-utils.scm:93: scheme#display */
37030 t2=*((C_word*)lf[449]+1);{
37031 C_word *av2;
37032 if(c >= 4) {
37033   av2=av;
37034 } else {
37035   av2=C_alloc(4);
37036 }
37037 av2[0]=t2;
37038 av2[1]=((C_word*)t0)[2];
37039 av2[2]=lf[453];
37040 av2[3]=((C_word*)t0)[3];
37041 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37042 
37043 /* for-each-loop6057 in k29313 in k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29327(C_word t0,C_word t1,C_word t2)37044 static void C_fcall f_29327(C_word t0,C_word t1,C_word t2){
37045 C_word tmp;
37046 C_word t3;
37047 C_word t4;
37048 C_word *a;
37049 C_check_for_interrupt;
37050 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
37051 C_save_and_reclaim_args((void *)trf_29327,3,t0,t1,t2);}
37052 a=C_alloc(5);
37053 if(C_truep(C_i_pairp(t2))){
37054 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29337,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37055 /* irregex-utils.scm:93: g6058 */
37056 t4=((C_word*)((C_word*)t0)[3])[1];
37057 f_29289(t4,t3,C_slot(t2,C_fix(0)));}
37058 else{
37059 t3=C_SCHEME_UNDEFINED;
37060 t4=t1;{
37061 C_word av2[2];
37062 av2[0]=t4;
37063 av2[1]=t3;
37064 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
37065 
37066 /* k29335 in for-each-loop6057 in k29313 in k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29337(C_word c,C_word * av)37067 static void C_ccall f_29337(C_word c,C_word *av){
37068 C_word tmp;
37069 C_word t0=av[0];
37070 C_word t1=av[1];
37071 C_word t2;
37072 C_word *a;
37073 C_check_for_interrupt;
37074 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37075 C_save_and_reclaim((void *)f_29337,c,av);}
37076 t2=((C_word*)((C_word*)t0)[2])[1];
37077 f_29327(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
37078 
37079 /* for-each-loop6076 in k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29357(C_word t0,C_word t1,C_word t2)37080 static void C_fcall f_29357(C_word t0,C_word t1,C_word t2){
37081 C_word tmp;
37082 C_word t3;
37083 C_word t4;
37084 C_word *a;
37085 C_check_for_interrupt;
37086 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
37087 C_save_and_reclaim_args((void *)trf_29357,3,t0,t1,t2);}
37088 a=C_alloc(5);
37089 if(C_truep(C_i_pairp(t2))){
37090 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29367,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37091 /* irregex-utils.scm:94: g6077 */
37092 t4=((C_word*)((C_word*)t0)[3])[1];
37093 f_29289(t4,t3,C_slot(t2,C_fix(0)));}
37094 else{
37095 t3=C_SCHEME_UNDEFINED;
37096 t4=t1;{
37097 C_word av2[2];
37098 av2[0]=t4;
37099 av2[1]=t3;
37100 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
37101 
37102 /* k29365 in for-each-loop6076 in k29310 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29367(C_word c,C_word * av)37103 static void C_ccall f_29367(C_word c,C_word *av){
37104 C_word tmp;
37105 C_word t0=av[0];
37106 C_word t1=av[1];
37107 C_word t2;
37108 C_word *a;
37109 C_check_for_interrupt;
37110 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37111 C_save_and_reclaim((void *)f_29367,c,av);}
37112 t2=((C_word*)((C_word*)t0)[2])[1];
37113 f_29357(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
37114 
37115 /* k29407 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29409(C_word c,C_word * av)37116 static void C_ccall f_29409(C_word c,C_word *av){
37117 C_word tmp;
37118 C_word t0=av[0];
37119 C_word t1=av[1];
37120 C_word t2;
37121 C_word t3;
37122 C_word t4;
37123 C_word t5;
37124 C_word t6;
37125 C_word t7;
37126 C_word t8;
37127 C_word *a;
37128 C_check_for_interrupt;
37129 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
37130 C_save_and_reclaim((void *)f_29409,c,av);}
37131 a=C_alloc(11);
37132 t2=C_u_i_cdr(((C_word*)t0)[2]);
37133 t3=C_i_check_list_2(t2,lf[306]);
37134 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29416,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
37135 t5=C_SCHEME_UNDEFINED;
37136 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
37137 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29421,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li376),tmp=(C_word)a,a+=5,tmp));
37138 t8=((C_word*)t6)[1];
37139 f_29421(t8,t4,t2);}
37140 
37141 /* k29414 in k29407 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29416(C_word c,C_word * av)37142 static void C_ccall f_29416(C_word c,C_word *av){
37143 C_word tmp;
37144 C_word t0=av[0];
37145 C_word t1=av[1];
37146 C_word t2;
37147 C_word *a;
37148 C_check_for_interrupt;
37149 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37150 C_save_and_reclaim((void *)f_29416,c,av);}
37151 /* irregex-utils.scm:96: scheme#display */
37152 t2=*((C_word*)lf[449]+1);{
37153 C_word *av2;
37154 if(c >= 4) {
37155   av2=av;
37156 } else {
37157   av2=C_alloc(4);
37158 }
37159 av2[0]=t2;
37160 av2[1]=((C_word*)t0)[2];
37161 av2[2]=lf[455];
37162 av2[3]=((C_word*)t0)[3];
37163 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37164 
37165 /* for-each-loop6093 in k29407 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29421(C_word t0,C_word t1,C_word t2)37166 static void C_fcall f_29421(C_word t0,C_word t1,C_word t2){
37167 C_word tmp;
37168 C_word t3;
37169 C_word t4;
37170 C_word *a;
37171 C_check_for_interrupt;
37172 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
37173 C_save_and_reclaim_args((void *)trf_29421,3,t0,t1,t2);}
37174 a=C_alloc(5);
37175 if(C_truep(C_i_pairp(t2))){
37176 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29431,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37177 /* irregex-utils.scm:96: g6094 */
37178 t4=((C_word*)((C_word*)t0)[3])[1];
37179 f_29289(t4,t3,C_slot(t2,C_fix(0)));}
37180 else{
37181 t3=C_SCHEME_UNDEFINED;
37182 t4=t1;{
37183 C_word av2[2];
37184 av2[0]=t4;
37185 av2[1]=t3;
37186 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
37187 
37188 /* k29429 in for-each-loop6093 in k29407 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29431(C_word c,C_word * av)37189 static void C_ccall f_29431(C_word c,C_word *av){
37190 C_word tmp;
37191 C_word t0=av[0];
37192 C_word t1=av[1];
37193 C_word t2;
37194 C_word *a;
37195 C_check_for_interrupt;
37196 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37197 C_save_and_reclaim((void *)f_29431,c,av);}
37198 t2=((C_word*)((C_word*)t0)[2])[1];
37199 f_29421(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
37200 
37201 /* k29449 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29451(C_word c,C_word * av)37202 static void C_ccall f_29451(C_word c,C_word *av){
37203 C_word tmp;
37204 C_word t0=av[0];
37205 C_word t1=av[1];
37206 C_word t2;
37207 C_word t3;
37208 C_word *a;
37209 C_check_for_interrupt;
37210 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
37211 C_save_and_reclaim((void *)f_29451,c,av);}
37212 a=C_alloc(6);
37213 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29454,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);
37214 /* irregex-utils.scm:98: scheme#display */
37215 t3=*((C_word*)lf[449]+1);{
37216 C_word *av2;
37217 if(c >= 4) {
37218   av2=av;
37219 } else {
37220   av2=C_alloc(4);
37221 }
37222 av2[0]=t3;
37223 av2[1]=t2;
37224 av2[2]=C_i_cadr(((C_word*)t0)[2]);
37225 av2[3]=((C_word*)t0)[4];
37226 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
37227 
37228 /* k29452 in k29449 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29454(C_word c,C_word * av)37229 static void C_ccall f_29454(C_word c,C_word *av){
37230 C_word tmp;
37231 C_word t0=av[0];
37232 C_word t1=av[1];
37233 C_word t2;
37234 C_word t3;
37235 C_word *a;
37236 C_check_for_interrupt;
37237 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
37238 C_save_and_reclaim((void *)f_29454,c,av);}
37239 a=C_alloc(6);
37240 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29457,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);
37241 /* irregex-utils.scm:98: scheme#display */
37242 t3=*((C_word*)lf[449]+1);{
37243 C_word *av2;
37244 if(c >= 4) {
37245   av2=av;
37246 } else {
37247   av2=C_alloc(4);
37248 }
37249 av2[0]=t3;
37250 av2[1]=t2;
37251 av2[2]=lf[458];
37252 av2[3]=((C_word*)t0)[4];
37253 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
37254 
37255 /* k29455 in k29452 in k29449 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29457(C_word c,C_word * av)37256 static void C_ccall f_29457(C_word c,C_word *av){
37257 C_word tmp;
37258 C_word t0=av[0];
37259 C_word t1=av[1];
37260 C_word t2;
37261 C_word t3;
37262 C_word t4;
37263 C_word t5;
37264 C_word t6;
37265 C_word t7;
37266 C_word t8;
37267 C_word *a;
37268 C_check_for_interrupt;
37269 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
37270 C_save_and_reclaim((void *)f_29457,c,av);}
37271 a=C_alloc(11);
37272 t2=C_i_cddr(((C_word*)t0)[2]);
37273 t3=C_i_check_list_2(t2,lf[306]);
37274 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29466,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
37275 t5=C_SCHEME_UNDEFINED;
37276 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
37277 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29471,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li377),tmp=(C_word)a,a+=5,tmp));
37278 t8=((C_word*)t6)[1];
37279 f_29471(t8,t4,t2);}
37280 
37281 /* k29464 in k29455 in k29452 in k29449 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29466(C_word c,C_word * av)37282 static void C_ccall f_29466(C_word c,C_word *av){
37283 C_word tmp;
37284 C_word t0=av[0];
37285 C_word t1=av[1];
37286 C_word t2;
37287 C_word *a;
37288 C_check_for_interrupt;
37289 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37290 C_save_and_reclaim((void *)f_29466,c,av);}
37291 /* irregex-utils.scm:99: scheme#display */
37292 t2=*((C_word*)lf[449]+1);{
37293 C_word *av2;
37294 if(c >= 4) {
37295   av2=av;
37296 } else {
37297   av2=C_alloc(4);
37298 }
37299 av2[0]=t2;
37300 av2[1]=((C_word*)t0)[2];
37301 av2[2]=lf[457];
37302 av2[3]=((C_word*)t0)[3];
37303 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37304 
37305 /* for-each-loop6112 in k29455 in k29452 in k29449 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29471(C_word t0,C_word t1,C_word t2)37306 static void C_fcall f_29471(C_word t0,C_word t1,C_word t2){
37307 C_word tmp;
37308 C_word t3;
37309 C_word t4;
37310 C_word *a;
37311 C_check_for_interrupt;
37312 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
37313 C_save_and_reclaim_args((void *)trf_29471,3,t0,t1,t2);}
37314 a=C_alloc(5);
37315 if(C_truep(C_i_pairp(t2))){
37316 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29481,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37317 /* irregex-utils.scm:99: g6113 */
37318 t4=((C_word*)((C_word*)t0)[3])[1];
37319 f_29289(t4,t3,C_slot(t2,C_fix(0)));}
37320 else{
37321 t3=C_SCHEME_UNDEFINED;
37322 t4=t1;{
37323 C_word av2[2];
37324 av2[0]=t4;
37325 av2[1]=t3;
37326 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
37327 
37328 /* k29479 in for-each-loop6112 in k29455 in k29452 in k29449 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29481(C_word c,C_word * av)37329 static void C_ccall f_29481(C_word c,C_word *av){
37330 C_word tmp;
37331 C_word t0=av[0];
37332 C_word t1=av[1];
37333 C_word t2;
37334 C_word *a;
37335 C_check_for_interrupt;
37336 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37337 C_save_and_reclaim((void *)f_29481,c,av);}
37338 t2=((C_word*)((C_word*)t0)[2])[1];
37339 f_29471(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
37340 
37341 /* k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29505(C_word c,C_word * av)37342 static void C_ccall f_29505(C_word c,C_word *av){
37343 C_word tmp;
37344 C_word t0=av[0];
37345 C_word t1=av[1];
37346 C_word t2;
37347 C_word t3;
37348 C_word *a;
37349 C_check_for_interrupt;
37350 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
37351 C_save_and_reclaim((void *)f_29505,c,av);}
37352 a=C_alloc(6);
37353 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29508,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);
37354 /* irregex-utils.scm:102: lp */
37355 t3=((C_word*)((C_word*)t0)[2])[1];
37356 f_29289(t3,t2,C_i_cadr(((C_word*)t0)[4]));}
37357 
37358 /* k29506 in k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29508(C_word c,C_word * av)37359 static void C_ccall f_29508(C_word c,C_word *av){
37360 C_word tmp;
37361 C_word t0=av[0];
37362 C_word t1=av[1];
37363 C_word t2;
37364 C_word t3;
37365 C_word t4;
37366 C_word t5;
37367 C_word t6;
37368 C_word t7;
37369 C_word t8;
37370 C_word t9;
37371 C_word *a;
37372 C_check_for_interrupt;
37373 if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
37374 C_save_and_reclaim((void *)f_29508,c,av);}
37375 a=C_alloc(16);
37376 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li378),tmp=(C_word)a,a+=5,tmp);
37377 t3=C_i_cddr(((C_word*)t0)[4]);
37378 t4=C_i_check_list_2(t3,lf[306]);
37379 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29525,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37380 t6=C_SCHEME_UNDEFINED;
37381 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
37382 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29530,a[2]=t7,a[3]=t2,a[4]=((C_word)li379),tmp=(C_word)a,a+=5,tmp));
37383 t9=((C_word*)t7)[1];
37384 f_29530(t9,t5,t3);}
37385 
37386 /* g6134 in k29506 in k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29509(C_word t0,C_word t1,C_word t2)37387 static void C_fcall f_29509(C_word t0,C_word t1,C_word t2){
37388 C_word tmp;
37389 C_word t3;
37390 C_word t4;
37391 C_word *a;
37392 C_check_for_interrupt;
37393 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
37394 C_save_and_reclaim_args((void *)trf_29509,3,t0,t1,t2);}
37395 a=C_alloc(5);
37396 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29513,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37397 /* irregex-utils.scm:103: scheme#display */
37398 t4=*((C_word*)lf[449]+1);{
37399 C_word av2[4];
37400 av2[0]=t4;
37401 av2[1]=t3;
37402 av2[2]=lf[460];
37403 av2[3]=((C_word*)t0)[3];
37404 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
37405 
37406 /* k29511 in g6134 in k29506 in k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29513(C_word c,C_word * av)37407 static void C_ccall f_29513(C_word c,C_word *av){
37408 C_word tmp;
37409 C_word t0=av[0];
37410 C_word t1=av[1];
37411 C_word t2;
37412 C_word *a;
37413 C_check_for_interrupt;
37414 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37415 C_save_and_reclaim((void *)f_29513,c,av);}
37416 /* irregex-utils.scm:103: lp */
37417 t2=((C_word*)((C_word*)t0)[2])[1];
37418 f_29289(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
37419 
37420 /* k29523 in k29506 in k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29525(C_word c,C_word * av)37421 static void C_ccall f_29525(C_word c,C_word *av){
37422 C_word tmp;
37423 C_word t0=av[0];
37424 C_word t1=av[1];
37425 C_word t2;
37426 C_word *a;
37427 C_check_for_interrupt;
37428 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37429 C_save_and_reclaim((void *)f_29525,c,av);}
37430 /* irregex-utils.scm:104: scheme#display */
37431 t2=*((C_word*)lf[449]+1);{
37432 C_word *av2;
37433 if(c >= 4) {
37434   av2=av;
37435 } else {
37436   av2=C_alloc(4);
37437 }
37438 av2[0]=t2;
37439 av2[1]=((C_word*)t0)[2];
37440 av2[2]=lf[461];
37441 av2[3]=((C_word*)t0)[3];
37442 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37443 
37444 /* for-each-loop6133 in k29506 in k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29530(C_word t0,C_word t1,C_word t2)37445 static void C_fcall f_29530(C_word t0,C_word t1,C_word t2){
37446 C_word tmp;
37447 C_word t3;
37448 C_word t4;
37449 C_word *a;
37450 C_check_for_interrupt;
37451 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
37452 C_save_and_reclaim_args((void *)trf_29530,3,t0,t1,t2);}
37453 a=C_alloc(5);
37454 if(C_truep(C_i_pairp(t2))){
37455 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29540,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37456 /* irregex-utils.scm:103: g6134 */
37457 t4=((C_word*)t0)[3];
37458 f_29509(t4,t3,C_slot(t2,C_fix(0)));}
37459 else{
37460 t3=C_SCHEME_UNDEFINED;
37461 t4=t1;{
37462 C_word av2[2];
37463 av2[0]=t4;
37464 av2[1]=t3;
37465 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
37466 
37467 /* k29538 in for-each-loop6133 in k29506 in k29503 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29540(C_word c,C_word * av)37468 static void C_ccall f_29540(C_word c,C_word *av){
37469 C_word tmp;
37470 C_word t0=av[0];
37471 C_word t1=av[1];
37472 C_word t2;
37473 C_word *a;
37474 C_check_for_interrupt;
37475 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37476 C_save_and_reclaim((void *)f_29540,c,av);}
37477 t2=((C_word*)((C_word*)t0)[2])[1];
37478 f_29530(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
37479 
37480 /* k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29564(C_word t0,C_word t1)37481 static void C_fcall f_29564(C_word t0,C_word t1){
37482 C_word tmp;
37483 C_word t2;
37484 C_word t3;
37485 C_word t4;
37486 C_word t5;
37487 C_word t6;
37488 C_word t7;
37489 C_word t8;
37490 C_word *a;
37491 C_check_for_interrupt;
37492 if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
37493 C_save_and_reclaim_args((void *)trf_29564,2,t0,t1);}
37494 a=C_alloc(11);
37495 if(C_truep(t1)){
37496 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29567,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);
37497 t3=C_i_cddr(((C_word*)t0)[3]);
37498 if(C_truep(C_i_pairp(t3))){
37499 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29578,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);
37500 /* irregex-utils.scm:108: scheme#display */
37501 t5=*((C_word*)lf[449]+1);{
37502 C_word av2[4];
37503 av2[0]=t5;
37504 av2[1]=t4;
37505 av2[2]=lf[464];
37506 av2[3]=((C_word*)t0)[4];
37507 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
37508 else{
37509 /* irregex-utils.scm:109: lp */
37510 t4=((C_word*)((C_word*)t0)[5])[1];
37511 f_29289(t4,t2,C_i_cadr(((C_word*)t0)[3]));}}
37512 else{
37513 t2=C_eqp(((C_word*)t0)[6],lf[465]);
37514 if(C_truep(t2)){
37515 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29634,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);
37516 t4=C_i_cadr(((C_word*)t0)[3]);
37517 if(C_truep(C_i_pairp(t4))){
37518 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29664,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
37519 /* irregex-utils.scm:113: scheme#caadr */
37520 t6=*((C_word*)lf[471]+1);{
37521 C_word av2[3];
37522 av2[0]=t6;
37523 av2[1]=t5;
37524 av2[2]=((C_word*)t0)[3];
37525 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
37526 else{
37527 t5=t3;
37528 f_29634(t5,C_SCHEME_FALSE);}}
37529 else{
37530 t3=C_eqp(((C_word*)t0)[6],lf[470]);
37531 if(C_truep(t3)){
37532 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29677,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);
37533 /* irregex-utils.scm:119: scheme#display */
37534 t5=*((C_word*)lf[449]+1);{
37535 C_word av2[4];
37536 av2[0]=t5;
37537 av2[1]=t4;
37538 av2[2]=lf[473];
37539 av2[3]=((C_word*)t0)[4];
37540 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
37541 else{
37542 t4=C_eqp(((C_word*)t0)[6],lf[247]);
37543 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29698,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
37544 if(C_truep(t4)){
37545 t6=t5;
37546 f_29698(t6,t4);}
37547 else{
37548 t6=C_eqp(((C_word*)t0)[6],lf[234]);
37549 if(C_truep(t6)){
37550 t7=t5;
37551 f_29698(t7,t6);}
37552 else{
37553 t7=C_eqp(((C_word*)t0)[6],lf[52]);
37554 t8=t5;
37555 f_29698(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[179])));}}}}}}
37556 
37557 /* k29565 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29567(C_word c,C_word * av)37558 static void C_ccall f_29567(C_word c,C_word *av){
37559 C_word tmp;
37560 C_word t0=av[0];
37561 C_word t1=av[1];
37562 C_word t2;
37563 C_word *a;
37564 C_check_for_interrupt;
37565 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37566 C_save_and_reclaim((void *)f_29567,c,av);}
37567 /* irregex-utils.scm:110: scheme#display */
37568 t2=*((C_word*)lf[449]+1);{
37569 C_word *av2;
37570 if(c >= 4) {
37571   av2=av;
37572 } else {
37573   av2=C_alloc(4);
37574 }
37575 av2[0]=t2;
37576 av2[1]=((C_word*)t0)[2];
37577 av2[2]=C_u_i_car(((C_word*)t0)[3]);
37578 av2[3]=((C_word*)t0)[4];
37579 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37580 
37581 /* k29576 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29578(C_word c,C_word * av)37582 static void C_ccall f_29578(C_word c,C_word *av){
37583 C_word tmp;
37584 C_word t0=av[0];
37585 C_word t1=av[1];
37586 C_word t2;
37587 C_word t3;
37588 C_word t4;
37589 C_word t5;
37590 C_word t6;
37591 C_word t7;
37592 C_word t8;
37593 C_word *a;
37594 C_check_for_interrupt;
37595 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
37596 C_save_and_reclaim((void *)f_29578,c,av);}
37597 a=C_alloc(11);
37598 t2=C_u_i_cdr(((C_word*)t0)[2]);
37599 t3=C_i_check_list_2(t2,lf[306]);
37600 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29585,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
37601 t5=C_SCHEME_UNDEFINED;
37602 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
37603 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29590,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li380),tmp=(C_word)a,a+=5,tmp));
37604 t8=((C_word*)t6)[1];
37605 f_29590(t8,t4,t2);}
37606 
37607 /* k29583 in k29576 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29585(C_word c,C_word * av)37608 static void C_ccall f_29585(C_word c,C_word *av){
37609 C_word tmp;
37610 C_word t0=av[0];
37611 C_word t1=av[1];
37612 C_word t2;
37613 C_word *a;
37614 C_check_for_interrupt;
37615 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37616 C_save_and_reclaim((void *)f_29585,c,av);}
37617 /* irregex-utils.scm:108: scheme#display */
37618 t2=*((C_word*)lf[449]+1);{
37619 C_word *av2;
37620 if(c >= 4) {
37621   av2=av;
37622 } else {
37623   av2=C_alloc(4);
37624 }
37625 av2[0]=t2;
37626 av2[1]=((C_word*)t0)[2];
37627 av2[2]=lf[463];
37628 av2[3]=((C_word*)t0)[3];
37629 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37630 
37631 /* for-each-loop6171 in k29576 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29590(C_word t0,C_word t1,C_word t2)37632 static void C_fcall f_29590(C_word t0,C_word t1,C_word t2){
37633 C_word tmp;
37634 C_word t3;
37635 C_word t4;
37636 C_word *a;
37637 C_check_for_interrupt;
37638 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
37639 C_save_and_reclaim_args((void *)trf_29590,3,t0,t1,t2);}
37640 a=C_alloc(5);
37641 if(C_truep(C_i_pairp(t2))){
37642 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29600,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
37643 /* irregex-utils.scm:108: g6172 */
37644 t4=((C_word*)((C_word*)t0)[3])[1];
37645 f_29289(t4,t3,C_slot(t2,C_fix(0)));}
37646 else{
37647 t3=C_SCHEME_UNDEFINED;
37648 t4=t1;{
37649 C_word av2[2];
37650 av2[0]=t4;
37651 av2[1]=t3;
37652 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
37653 
37654 /* k29598 in for-each-loop6171 in k29576 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29600(C_word c,C_word * av)37655 static void C_ccall f_29600(C_word c,C_word *av){
37656 C_word tmp;
37657 C_word t0=av[0];
37658 C_word t1=av[1];
37659 C_word t2;
37660 C_word *a;
37661 C_check_for_interrupt;
37662 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37663 C_save_and_reclaim((void *)f_29600,c,av);}
37664 t2=((C_word*)((C_word*)t0)[2])[1];
37665 f_29590(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
37666 
37667 /* k29632 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29634(C_word t0,C_word t1)37668 static void C_fcall f_29634(C_word t0,C_word t1){
37669 C_word tmp;
37670 C_word t2;
37671 C_word t3;
37672 C_word *a;
37673 C_check_for_interrupt;
37674 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
37675 C_save_and_reclaim_args((void *)trf_29634,2,t0,t1);}
37676 a=C_alloc(5);
37677 if(C_truep(t1)){
37678 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29637,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);
37679 /* irregex-utils.scm:114: scheme#display */
37680 t3=*((C_word*)lf[449]+1);{
37681 C_word av2[4];
37682 av2[0]=t3;
37683 av2[1]=t2;
37684 av2[2]=lf[468];
37685 av2[3]=((C_word*)t0)[3];
37686 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
37687 else{
37688 /* irregex-utils.scm:117: chicken.base#error */
37689 t2=*((C_word*)lf[30]+1);{
37690 C_word av2[4];
37691 av2[0]=t2;
37692 av2[1]=((C_word*)t0)[2];
37693 av2[2]=lf[469];
37694 av2[3]=((C_word*)t0)[4];
37695 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
37696 
37697 /* k29635 in k29632 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29637(C_word c,C_word * av)37698 static void C_ccall f_29637(C_word c,C_word *av){
37699 C_word tmp;
37700 C_word t0=av[0];
37701 C_word t1=av[1];
37702 C_word t2;
37703 C_word t3;
37704 C_word t4;
37705 C_word t5;
37706 C_word *a;
37707 C_check_for_interrupt;
37708 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
37709 C_save_and_reclaim((void *)f_29637,c,av);}
37710 a=C_alloc(11);
37711 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29640,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37712 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29647,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37713 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29651,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
37714 /* irregex-utils.scm:115: scheme#cdadr */
37715 t5=*((C_word*)lf[467]+1);{
37716 C_word *av2;
37717 if(c >= 3) {
37718   av2=av;
37719 } else {
37720   av2=C_alloc(3);
37721 }
37722 av2[0]=t5;
37723 av2[1]=t4;
37724 av2[2]=((C_word*)t0)[4];
37725 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
37726 
37727 /* k29638 in k29635 in k29632 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29640(C_word c,C_word * av)37728 static void C_ccall f_29640(C_word c,C_word *av){
37729 C_word tmp;
37730 C_word t0=av[0];
37731 C_word t1=av[1];
37732 C_word t2;
37733 C_word *a;
37734 C_check_for_interrupt;
37735 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37736 C_save_and_reclaim((void *)f_29640,c,av);}
37737 /* irregex-utils.scm:116: scheme#display */
37738 t2=*((C_word*)lf[449]+1);{
37739 C_word *av2;
37740 if(c >= 4) {
37741   av2=av;
37742 } else {
37743   av2=C_alloc(4);
37744 }
37745 av2[0]=t2;
37746 av2[1]=((C_word*)t0)[2];
37747 av2[2]=lf[466];
37748 av2[3]=((C_word*)t0)[3];
37749 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37750 
37751 /* k29645 in k29635 in k29632 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29647(C_word c,C_word * av)37752 static void C_ccall f_29647(C_word c,C_word *av){
37753 C_word tmp;
37754 C_word t0=av[0];
37755 C_word t1=av[1];
37756 C_word t2;
37757 C_word *a;
37758 C_check_for_interrupt;
37759 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37760 C_save_and_reclaim((void *)f_29647,c,av);}
37761 /* irregex-utils.scm:115: scheme#display */
37762 t2=*((C_word*)lf[449]+1);{
37763 C_word *av2;
37764 if(c >= 4) {
37765   av2=av;
37766 } else {
37767   av2=C_alloc(4);
37768 }
37769 av2[0]=t2;
37770 av2[1]=((C_word*)t0)[2];
37771 av2[2]=t1;
37772 av2[3]=((C_word*)t0)[3];
37773 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37774 
37775 /* k29649 in k29635 in k29632 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29651(C_word c,C_word * av)37776 static void C_ccall f_29651(C_word c,C_word *av){
37777 C_word tmp;
37778 C_word t0=av[0];
37779 C_word t1=av[1];
37780 C_word t2;
37781 C_word *a;
37782 C_check_for_interrupt;
37783 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
37784 C_save_and_reclaim((void *)f_29651,c,av);}
37785 /* irregex-utils.scm:115: cset->string */
37786 f_29197(((C_word*)t0)[2],t1);}
37787 
37788 /* k29662 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29664(C_word c,C_word * av)37789 static void C_ccall f_29664(C_word c,C_word *av){
37790 C_word tmp;
37791 C_word t0=av[0];
37792 C_word t1=av[1];
37793 C_word t2;
37794 C_word *a;
37795 C_check_for_interrupt;
37796 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
37797 C_save_and_reclaim((void *)f_29664,c,av);}
37798 t2=((C_word*)t0)[2];
37799 f_29634(t2,C_eqp(lf[470],t1));}
37800 
37801 /* k29675 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29677(C_word c,C_word * av)37802 static void C_ccall f_29677(C_word c,C_word *av){
37803 C_word tmp;
37804 C_word t0=av[0];
37805 C_word t1=av[1];
37806 C_word t2;
37807 C_word t3;
37808 C_word t4;
37809 C_word *a;
37810 C_check_for_interrupt;
37811 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
37812 C_save_and_reclaim((void *)f_29677,c,av);}
37813 a=C_alloc(8);
37814 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29680,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37815 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29687,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37816 /* irregex-utils.scm:120: cset->string */
37817 f_29197(t3,C_u_i_cdr(((C_word*)t0)[4]));}
37818 
37819 /* k29678 in k29675 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29680(C_word c,C_word * av)37820 static void C_ccall f_29680(C_word c,C_word *av){
37821 C_word tmp;
37822 C_word t0=av[0];
37823 C_word t1=av[1];
37824 C_word t2;
37825 C_word *a;
37826 C_check_for_interrupt;
37827 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37828 C_save_and_reclaim((void *)f_29680,c,av);}
37829 /* irregex-utils.scm:121: scheme#display */
37830 t2=*((C_word*)lf[449]+1);{
37831 C_word *av2;
37832 if(c >= 4) {
37833   av2=av;
37834 } else {
37835   av2=C_alloc(4);
37836 }
37837 av2[0]=t2;
37838 av2[1]=((C_word*)t0)[2];
37839 av2[2]=lf[472];
37840 av2[3]=((C_word*)t0)[3];
37841 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37842 
37843 /* k29685 in k29675 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29687(C_word c,C_word * av)37844 static void C_ccall f_29687(C_word c,C_word *av){
37845 C_word tmp;
37846 C_word t0=av[0];
37847 C_word t1=av[1];
37848 C_word t2;
37849 C_word *a;
37850 C_check_for_interrupt;
37851 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37852 C_save_and_reclaim((void *)f_29687,c,av);}
37853 /* irregex-utils.scm:120: scheme#display */
37854 t2=*((C_word*)lf[449]+1);{
37855 C_word *av2;
37856 if(c >= 4) {
37857   av2=av;
37858 } else {
37859   av2=C_alloc(4);
37860 }
37861 av2[0]=t2;
37862 av2[1]=((C_word*)t0)[2];
37863 av2[2]=t1;
37864 av2[3]=((C_word*)t0)[3];
37865 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
37866 
37867 /* k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29698(C_word t0,C_word t1)37868 static void C_fcall f_29698(C_word t0,C_word t1){
37869 C_word tmp;
37870 C_word t2;
37871 C_word t3;
37872 C_word t4;
37873 C_word t5;
37874 C_word t6;
37875 C_word *a;
37876 C_check_for_interrupt;
37877 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
37878 C_save_and_reclaim_args((void *)trf_29698,2,t0,t1);}
37879 a=C_alloc(6);
37880 if(C_truep(t1)){
37881 t2=C_eqp(C_make_character(126),C_u_i_car(((C_word*)t0)[2]));
37882 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29707,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
37883 if(C_truep(t2)){
37884 t4=t3;
37885 f_29707(t4,t2);}
37886 else{
37887 t4=C_eqp(lf[247],C_u_i_car(((C_word*)t0)[2]));
37888 if(C_truep(t4)){
37889 t5=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
37890 t6=t3;
37891 f_29707(t6,(C_truep(t5)?C_eqp(lf[124],C_i_cadr(((C_word*)t0)[2])):C_SCHEME_FALSE));}
37892 else{
37893 t5=t3;
37894 f_29707(t5,C_SCHEME_FALSE);}}}
37895 else{
37896 t2=C_eqp(((C_word*)t0)[6],lf[225]);
37897 t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[226]));
37898 if(C_truep(t3)){
37899 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29783,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);
37900 /* irregex-utils.scm:132: scheme#display */
37901 t5=*((C_word*)lf[449]+1);{
37902 C_word av2[4];
37903 av2[0]=t5;
37904 av2[1]=t4;
37905 av2[2]=lf[479];
37906 av2[3]=((C_word*)t0)[4];
37907 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
37908 else{
37909 if(C_truep(C_i_stringp(C_u_i_car(((C_word*)t0)[2])))){
37910 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29847,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37911 /* ##sys#string->list */
37912 t5=*((C_word*)lf[105]+1);{
37913 C_word av2[3];
37914 av2[0]=t5;
37915 av2[1]=t4;
37916 av2[2]=C_u_i_car(((C_word*)t0)[2]);
37917 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
37918 else{
37919 /* irregex-utils.scm:140: chicken.base#error */
37920 t4=*((C_word*)lf[30]+1);{
37921 C_word av2[4];
37922 av2[0]=t4;
37923 av2[1]=((C_word*)t0)[3];
37924 av2[2]=lf[480];
37925 av2[3]=((C_word*)t0)[2];
37926 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}
37927 
37928 /* k29705 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29707(C_word t0,C_word t1)37929 static void C_fcall f_29707(C_word t0,C_word t1){
37930 C_word tmp;
37931 C_word t2;
37932 C_word t3;
37933 C_word *a;
37934 C_check_for_interrupt;
37935 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
37936 C_save_and_reclaim_args((void *)trf_29707,2,t0,t1);}
37937 a=C_alloc(5);
37938 if(C_truep(t1)){
37939 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29710,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);
37940 /* irregex-utils.scm:126: scheme#display */
37941 t3=*((C_word*)lf[449]+1);{
37942 C_word av2[4];
37943 av2[0]=t3;
37944 av2[1]=t2;
37945 av2[2]=lf[475];
37946 av2[3]=((C_word*)t0)[3];
37947 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
37948 else{
37949 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29745,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
37950 /* irregex-utils.scm:130: sre->cset */
37951 f_26492(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}}
37952 
37953 /* k29708 in k29705 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29710(C_word c,C_word * av)37954 static void C_ccall f_29710(C_word c,C_word *av){
37955 C_word tmp;
37956 C_word t0=av[0];
37957 C_word t1=av[1];
37958 C_word t2;
37959 C_word t3;
37960 C_word t4;
37961 C_word t5;
37962 C_word *a;
37963 C_check_for_interrupt;
37964 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
37965 C_save_and_reclaim((void *)f_29710,c,av);}
37966 a=C_alloc(8);
37967 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37968 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29720,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
37969 t4=C_eqp(C_make_character(126),C_u_i_car(((C_word*)t0)[4]));
37970 if(C_truep(t4)){
37971 /* irregex-utils.scm:127: cset->string */
37972 f_29197(t3,C_u_i_cdr(((C_word*)t0)[4]));}
37973 else{
37974 /* irregex-utils.scm:127: cset->string */
37975 f_29197(t3,C_i_cddr(((C_word*)t0)[4]));}}
37976 
37977 /* k29711 in k29708 in k29705 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29713(C_word c,C_word * av)37978 static void C_ccall f_29713(C_word c,C_word *av){
37979 C_word tmp;
37980 C_word t0=av[0];
37981 C_word t1=av[1];
37982 C_word t2;
37983 C_word *a;
37984 C_check_for_interrupt;
37985 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
37986 C_save_and_reclaim((void *)f_29713,c,av);}
37987 /* irregex-utils.scm:128: scheme#display */
37988 t2=*((C_word*)lf[449]+1);{
37989 C_word *av2;
37990 if(c >= 4) {
37991   av2=av;
37992 } else {
37993   av2=C_alloc(4);
37994 }
37995 av2[0]=t2;
37996 av2[1]=((C_word*)t0)[2];
37997 av2[2]=lf[474];
37998 av2[3]=((C_word*)t0)[3];
37999 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
38000 
38001 /* k29718 in k29708 in k29705 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29720(C_word c,C_word * av)38002 static void C_ccall f_29720(C_word c,C_word *av){
38003 C_word tmp;
38004 C_word t0=av[0];
38005 C_word t1=av[1];
38006 C_word t2;
38007 C_word *a;
38008 C_check_for_interrupt;
38009 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
38010 C_save_and_reclaim((void *)f_29720,c,av);}
38011 /* irregex-utils.scm:127: scheme#display */
38012 t2=*((C_word*)lf[449]+1);{
38013 C_word *av2;
38014 if(c >= 4) {
38015   av2=av;
38016 } else {
38017   av2=C_alloc(4);
38018 }
38019 av2[0]=t2;
38020 av2[1]=((C_word*)t0)[2];
38021 av2[2]=t1;
38022 av2[3]=((C_word*)t0)[3];
38023 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
38024 
38025 /* k29743 in k29705 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29745(C_word c,C_word * av)38026 static void C_ccall f_29745(C_word c,C_word *av){
38027 C_word tmp;
38028 C_word t0=av[0];
38029 C_word t1=av[1];
38030 C_word t2;
38031 C_word t3;
38032 C_word *a;
38033 C_check_for_interrupt;
38034 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
38035 C_save_and_reclaim((void *)f_29745,c,av);}
38036 a=C_alloc(3);
38037 t2=C_a_i_cons(&a,2,lf[470],t1);
38038 /* irregex-utils.scm:130: lp */
38039 t3=((C_word*)((C_word*)t0)[2])[1];
38040 f_29289(t3,((C_word*)t0)[3],t2);}
38041 
38042 /* k29781 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29783(C_word c,C_word * av)38043 static void C_ccall f_29783(C_word c,C_word *av){
38044 C_word tmp;
38045 C_word t0=av[0];
38046 C_word t1=av[1];
38047 C_word t2;
38048 C_word t3;
38049 C_word t4;
38050 C_word *a;
38051 C_check_for_interrupt;
38052 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
38053 C_save_and_reclaim((void *)f_29783,c,av);}
38054 a=C_alloc(6);
38055 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29786,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);
38056 t3=C_eqp(C_u_i_car(((C_word*)t0)[2]),lf[225]);
38057 if(C_truep(t3)){
38058 /* irregex-utils.scm:133: scheme#display */
38059 t4=*((C_word*)lf[449]+1);{
38060 C_word *av2;
38061 if(c >= 4) {
38062   av2=av;
38063 } else {
38064   av2=C_alloc(4);
38065 }
38066 av2[0]=t4;
38067 av2[1]=t2;
38068 av2[2]=lf[478];
38069 av2[3]=((C_word*)t0)[4];
38070 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
38071 else{
38072 t4=t2;{
38073 C_word *av2=av;
38074 av2[0]=t4;
38075 av2[1]=C_SCHEME_UNDEFINED;
38076 f_29786(2,av2);}}}
38077 
38078 /* k29784 in k29781 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29786(C_word c,C_word * av)38079 static void C_ccall f_29786(C_word c,C_word *av){
38080 C_word tmp;
38081 C_word t0=av[0];
38082 C_word t1=av[1];
38083 C_word t2;
38084 C_word t3;
38085 C_word *a;
38086 C_check_for_interrupt;
38087 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
38088 C_save_and_reclaim((void *)f_29786,c,av);}
38089 a=C_alloc(6);
38090 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29789,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);
38091 /* irregex-utils.scm:134: scheme#display */
38092 t3=*((C_word*)lf[449]+1);{
38093 C_word *av2;
38094 if(c >= 4) {
38095   av2=av;
38096 } else {
38097   av2=C_alloc(4);
38098 }
38099 av2[0]=t3;
38100 av2[1]=t2;
38101 av2[2]=lf[477];
38102 av2[3]=((C_word*)t0)[4];
38103 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
38104 
38105 /* k29787 in k29784 in k29781 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29789(C_word c,C_word * av)38106 static void C_ccall f_29789(C_word c,C_word *av){
38107 C_word tmp;
38108 C_word t0=av[0];
38109 C_word t1=av[1];
38110 C_word t2;
38111 C_word t3;
38112 C_word t4;
38113 C_word t5;
38114 C_word t6;
38115 C_word t7;
38116 C_word t8;
38117 C_word *a;
38118 C_check_for_interrupt;
38119 if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
38120 C_save_and_reclaim((void *)f_29789,c,av);}
38121 a=C_alloc(11);
38122 t2=C_u_i_cdr(((C_word*)t0)[2]);
38123 t3=C_i_check_list_2(t2,lf[306]);
38124 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29796,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
38125 t5=C_SCHEME_UNDEFINED;
38126 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
38127 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29801,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li381),tmp=(C_word)a,a+=5,tmp));
38128 t8=((C_word*)t6)[1];
38129 f_29801(t8,t4,t2);}
38130 
38131 /* k29794 in k29787 in k29784 in k29781 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29796(C_word c,C_word * av)38132 static void C_ccall f_29796(C_word c,C_word *av){
38133 C_word tmp;
38134 C_word t0=av[0];
38135 C_word t1=av[1];
38136 C_word t2;
38137 C_word *a;
38138 C_check_for_interrupt;
38139 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
38140 C_save_and_reclaim((void *)f_29796,c,av);}
38141 /* irregex-utils.scm:136: scheme#display */
38142 t2=*((C_word*)lf[449]+1);{
38143 C_word *av2;
38144 if(c >= 4) {
38145   av2=av;
38146 } else {
38147   av2=C_alloc(4);
38148 }
38149 av2[0]=t2;
38150 av2[1]=((C_word*)t0)[2];
38151 av2[2]=lf[476];
38152 av2[3]=((C_word*)t0)[3];
38153 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
38154 
38155 /* for-each-loop6226 in k29787 in k29784 in k29781 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29801(C_word t0,C_word t1,C_word t2)38156 static void C_fcall f_29801(C_word t0,C_word t1,C_word t2){
38157 C_word tmp;
38158 C_word t3;
38159 C_word t4;
38160 C_word *a;
38161 C_check_for_interrupt;
38162 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
38163 C_save_and_reclaim_args((void *)trf_29801,3,t0,t1,t2);}
38164 a=C_alloc(5);
38165 if(C_truep(C_i_pairp(t2))){
38166 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29811,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
38167 /* irregex-utils.scm:135: g6227 */
38168 t4=((C_word*)((C_word*)t0)[3])[1];
38169 f_29289(t4,t3,C_slot(t2,C_fix(0)));}
38170 else{
38171 t3=C_SCHEME_UNDEFINED;
38172 t4=t1;{
38173 C_word av2[2];
38174 av2[0]=t4;
38175 av2[1]=t3;
38176 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
38177 
38178 /* k29809 in for-each-loop6226 in k29787 in k29784 in k29781 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29811(C_word c,C_word * av)38179 static void C_ccall f_29811(C_word c,C_word *av){
38180 C_word tmp;
38181 C_word t0=av[0];
38182 C_word t1=av[1];
38183 C_word t2;
38184 C_word *a;
38185 C_check_for_interrupt;
38186 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
38187 C_save_and_reclaim((void *)f_29811,c,av);}
38188 t2=((C_word*)((C_word*)t0)[2])[1];
38189 f_29801(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
38190 
38191 /* k29845 in k29696 in k29562 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_29847(C_word c,C_word * av)38192 static void C_ccall f_29847(C_word c,C_word *av){
38193 C_word tmp;
38194 C_word t0=av[0];
38195 C_word t1=av[1];
38196 C_word t2;
38197 C_word t3;
38198 C_word *a;
38199 C_check_for_interrupt;
38200 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
38201 C_save_and_reclaim((void *)f_29847,c,av);}
38202 a=C_alloc(3);
38203 t2=C_a_i_cons(&a,2,lf[470],t1);
38204 /* irregex-utils.scm:139: lp */
38205 t3=((C_word*)((C_word*)t0)[2])[1];
38206 f_29289(t3,((C_word*)t0)[3],t2);}
38207 
38208 /* k30009 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_30011(C_word c,C_word * av)38209 static void C_ccall f_30011(C_word c,C_word *av){
38210 C_word tmp;
38211 C_word t0=av[0];
38212 C_word t1=av[1];
38213 C_word t2;
38214 C_word *a;
38215 C_check_for_interrupt;
38216 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
38217 C_save_and_reclaim((void *)f_30011,c,av);}
38218 /* irregex-utils.scm:148: scheme#display */
38219 t2=*((C_word*)lf[449]+1);{
38220 C_word *av2;
38221 if(c >= 4) {
38222   av2=av;
38223 } else {
38224   av2=C_alloc(4);
38225 }
38226 av2[0]=t2;
38227 av2[1]=((C_word*)t0)[2];
38228 av2[2]=t1;
38229 av2[3]=((C_word*)t0)[3];
38230 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
38231 
38232 /* k30022 in lp in k29279 in chicken.irregex#sre->string in k18916 in k7761 in k7536 in k7533 */
f_30024(C_word c,C_word * av)38233 static void C_ccall f_30024(C_word c,C_word *av){
38234 C_word tmp;
38235 C_word t0=av[0];
38236 C_word t1=av[1];
38237 C_word t2;
38238 C_word *a;
38239 C_check_for_interrupt;
38240 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
38241 C_save_and_reclaim((void *)f_30024,c,av);}
38242 /* irregex-utils.scm:150: scheme#display */
38243 t2=*((C_word*)lf[449]+1);{
38244 C_word *av2;
38245 if(c >= 4) {
38246   av2=av;
38247 } else {
38248   av2=C_alloc(4);
38249 }
38250 av2[0]=t2;
38251 av2[1]=((C_word*)t0)[2];
38252 av2[2]=t1;
38253 av2[3]=((C_word*)t0)[3];
38254 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
38255 
38256 /* chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30033(C_word c,C_word * av)38257 static void C_ccall f_30033(C_word c,C_word *av){
38258 C_word tmp;
38259 C_word t0=av[0];
38260 C_word t1=av[1];
38261 C_word t2=av[2];
38262 C_word t3;
38263 C_word t4;
38264 C_word t5;
38265 C_word t6;
38266 C_word *a;
38267 if(c!=3) C_bad_argc_2(c,3,t0);
38268 C_check_for_interrupt;
38269 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
38270 C_save_and_reclaim((void *)f_30033,c,av);}
38271 a=C_alloc(6);
38272 t3=C_i_check_string_2(t2,lf[487]);
38273 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30044,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
38274 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30048,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
38275 /* ##sys#string->list */
38276 t6=*((C_word*)lf[105]+1);{
38277 C_word *av2=av;
38278 av2[0]=t6;
38279 av2[1]=t5;
38280 av2[2]=t2;
38281 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
38282 
38283 /* k30042 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30044(C_word c,C_word * av)38284 static void C_ccall f_30044(C_word c,C_word *av){
38285 C_word tmp;
38286 C_word t0=av[0];
38287 C_word t1=av[1];
38288 C_word t2;
38289 C_word *a;
38290 C_check_for_interrupt;
38291 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
38292 C_save_and_reclaim((void *)f_30044,c,av);}
38293 a=C_alloc(3);
38294 t2=((C_word*)t0)[2];{
38295 C_word *av2=av;
38296 av2[0]=t2;
38297 av2[1]=C_a_i_cons(&a,2,lf[227],t1);
38298 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38299 
38300 /* k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30048(C_word c,C_word * av)38301 static void C_ccall f_30048(C_word c,C_word *av){
38302 C_word tmp;
38303 C_word t0=av[0];
38304 C_word t1=av[1];
38305 C_word t2;
38306 C_word t3;
38307 C_word t4;
38308 C_word t5;
38309 C_word *a;
38310 C_check_for_interrupt;
38311 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
38312 C_save_and_reclaim((void *)f_30048,c,av);}
38313 a=C_alloc(6);
38314 t2=C_SCHEME_UNDEFINED;
38315 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
38316 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30050,a[2]=t3,a[3]=((C_word)li385),tmp=(C_word)a,a+=4,tmp));
38317 t5=((C_word*)t3)[1];
38318 f_30050(t5,((C_word*)t0)[2],t1,C_SCHEME_TRUE);}
38319 
38320 /* loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30050(C_word t0,C_word t1,C_word t2,C_word t3)38321 static void C_fcall f_30050(C_word t0,C_word t1,C_word t2,C_word t3){
38322 C_word tmp;
38323 C_word t4;
38324 C_word t5;
38325 C_word t6;
38326 C_word t7;
38327 C_word t8;
38328 C_word t9;
38329 C_word t10;
38330 C_word t11;
38331 C_word t12;
38332 C_word t13;
38333 C_word t14;
38334 C_word t15;
38335 C_word t16;
38336 C_word t17;
38337 C_word t18;
38338 C_word t19;
38339 C_word t20;
38340 C_word *a;
38341 loop:
38342 C_check_for_interrupt;
38343 if(C_unlikely(!C_demand(C_calculate_demand(61,0,4)))){
38344 C_save_and_reclaim_args((void *)trf_30050,4,t0,t1,t2,t3);}
38345 a=C_alloc(61);
38346 if(C_truep(C_i_nullp(t2))){
38347 t4=t1;{
38348 C_word av2[2];
38349 av2[0]=t4;
38350 av2[1]=C_SCHEME_END_OF_LIST;
38351 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
38352 else{
38353 t4=C_i_car(t2);
38354 t5=C_u_i_cdr(t2);
38355 if(C_truep(C_i_char_equalp(t4,C_make_character(42)))){
38356 if(C_truep(t3)){
38357 t6=C_a_i_list(&a,1,lf[488]);
38358 t7=C_a_i_list(&a,2,lf[179],t6);
38359 t8=C_a_i_list(&a,1,lf[489]);
38360 t9=C_a_i_list(&a,2,lf[179],t8);
38361 t10=C_a_i_list(&a,2,lf[127],t9);
38362 t11=C_a_i_list(&a,3,lf[227],t7,t10);
38363 t12=C_a_i_list(&a,1,lf[490]);
38364 t13=C_a_i_list(&a,2,lf[179],t12);
38365 t14=C_a_i_list(&a,2,lf[127],t13);
38366 t15=C_a_i_list(&a,3,lf[103],t11,t14);
38367 t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30081,a[2]=t1,a[3]=t15,tmp=(C_word)a,a+=4,tmp);
38368 /* irregex.scm:241: loop */
38369 t18=t16;
38370 t19=t5;
38371 t20=C_SCHEME_FALSE;
38372 t1=t18;
38373 t2=t19;
38374 t3=t20;
38375 goto loop;}
38376 else{
38377 t6=C_a_i_list(&a,1,lf[491]);
38378 t7=C_a_i_list(&a,2,lf[179],t6);
38379 t8=C_a_i_list(&a,2,lf[127],t7);
38380 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30128,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
38381 /* irregex.scm:242: loop */
38382 t18=t9;
38383 t19=t5;
38384 t20=C_SCHEME_FALSE;
38385 t1=t18;
38386 t2=t19;
38387 t3=t20;
38388 goto loop;}}
38389 else{
38390 if(C_truep(C_u_i_char_equalp(t4,C_make_character(63)))){
38391 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30148,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
38392 /* irregex.scm:243: loop */
38393 t18=t6;
38394 t19=t5;
38395 t20=C_SCHEME_FALSE;
38396 t1=t18;
38397 t2=t19;
38398 t3=t20;
38399 goto loop;}
38400 else{
38401 if(C_truep(C_u_i_char_equalp(t4,C_make_character(91)))){
38402 t6=C_SCHEME_UNDEFINED;
38403 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
38404 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30158,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word)li384),tmp=(C_word)a,a+=5,tmp));
38405 t9=((C_word*)t7)[1];
38406 f_30158(t9,t1,t5,C_SCHEME_END_OF_LIST);}
38407 else{
38408 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30309,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
38409 /* irregex.scm:265: loop */
38410 t18=t6;
38411 t19=t5;
38412 t20=C_u_i_memq(t4,lf[493]);
38413 t1=t18;
38414 t2=t19;
38415 t3=t20;
38416 goto loop;}}}}}
38417 
38418 /* k30079 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30081(C_word c,C_word * av)38419 static void C_ccall f_30081(C_word c,C_word *av){
38420 C_word tmp;
38421 C_word t0=av[0];
38422 C_word t1=av[1];
38423 C_word t2;
38424 C_word *a;
38425 C_check_for_interrupt;
38426 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
38427 C_save_and_reclaim((void *)f_30081,c,av);}
38428 a=C_alloc(3);
38429 t2=((C_word*)t0)[2];{
38430 C_word *av2=av;
38431 av2[0]=t2;
38432 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
38433 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38434 
38435 /* k30126 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30128(C_word c,C_word * av)38436 static void C_ccall f_30128(C_word c,C_word *av){
38437 C_word tmp;
38438 C_word t0=av[0];
38439 C_word t1=av[1];
38440 C_word t2;
38441 C_word *a;
38442 C_check_for_interrupt;
38443 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
38444 C_save_and_reclaim((void *)f_30128,c,av);}
38445 a=C_alloc(3);
38446 t2=((C_word*)t0)[2];{
38447 C_word *av2=av;
38448 av2[0]=t2;
38449 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
38450 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38451 
38452 /* k30146 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30148(C_word c,C_word * av)38453 static void C_ccall f_30148(C_word c,C_word *av){
38454 C_word tmp;
38455 C_word t0=av[0];
38456 C_word t1=av[1];
38457 C_word t2;
38458 C_word *a;
38459 C_check_for_interrupt;
38460 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
38461 C_save_and_reclaim((void *)f_30148,c,av);}
38462 a=C_alloc(3);
38463 t2=((C_word*)t0)[2];{
38464 C_word *av2=av;
38465 av2[0]=t2;
38466 av2[1]=C_a_i_cons(&a,2,lf[124],t1);
38467 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38468 
38469 /* loop2 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30158(C_word t0,C_word t1,C_word t2,C_word t3)38470 static void C_fcall f_30158(C_word t0,C_word t1,C_word t2,C_word t3){
38471 C_word tmp;
38472 C_word t4;
38473 C_word t5;
38474 C_word t6;
38475 C_word t7;
38476 C_word t8;
38477 C_word t9;
38478 C_word t10;
38479 C_word *a;
38480 C_check_for_interrupt;
38481 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
38482 C_save_and_reclaim_args((void *)trf_30158,4,t0,t1,t2,t3);}
38483 a=C_alloc(7);
38484 t4=C_i_pairp(t2);
38485 if(C_truep(C_i_not(t4))){
38486 /* irregex.scm:247: chicken.base#error */
38487 t5=*((C_word*)lf[30]+1);{
38488 C_word av2[5];
38489 av2[0]=t5;
38490 av2[1]=t1;
38491 av2[2]=lf[487];
38492 av2[3]=lf[492];
38493 av2[4]=t3;
38494 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
38495 else{
38496 t5=C_i_car(t2);
38497 if(C_truep(C_i_char_equalp(C_make_character(93),t5))){
38498 t6=C_i_length(t3);
38499 t7=C_fixnum_greaterp(t6,C_fix(1));
38500 t8=(C_truep(t7)?C_a_i_cons(&a,2,lf[103],t3):C_i_car(t3));
38501 t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30185,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
38502 /* irregex.scm:253: loop */
38503 t10=((C_word*)((C_word*)t0)[2])[1];
38504 f_30050(t10,t9,C_u_i_cdr(t2),C_SCHEME_FALSE);}
38505 else{
38506 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30207,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
38507 if(C_truep(C_i_pairp(C_u_i_cdr(t2)))){
38508 t7=C_i_cddr(t2);
38509 if(C_truep(C_i_pairp(t7))){
38510 t8=C_u_i_cdr(t2);
38511 t9=t6;
38512 f_30207(t9,C_i_char_equalp(C_make_character(45),C_u_i_car(t8)));}
38513 else{
38514 t8=t6;
38515 f_30207(t8,C_SCHEME_FALSE);}}
38516 else{
38517 t7=t6;
38518 f_30207(t7,C_SCHEME_FALSE);}}}}
38519 
38520 /* k30183 in loop2 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30185(C_word c,C_word * av)38521 static void C_ccall f_30185(C_word c,C_word *av){
38522 C_word tmp;
38523 C_word t0=av[0];
38524 C_word t1=av[1];
38525 C_word t2;
38526 C_word *a;
38527 C_check_for_interrupt;
38528 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
38529 C_save_and_reclaim((void *)f_30185,c,av);}
38530 a=C_alloc(3);
38531 t2=((C_word*)t0)[2];{
38532 C_word *av2=av;
38533 av2[0]=t2;
38534 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
38535 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38536 
38537 /* k30205 in loop2 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30207(C_word t0,C_word t1)38538 static void C_fcall f_30207(C_word t0,C_word t1){
38539 C_word tmp;
38540 C_word t2;
38541 C_word t3;
38542 C_word t4;
38543 C_word t5;
38544 C_word t6;
38545 C_word t7;
38546 C_word t8;
38547 C_word t9;
38548 C_word *a;
38549 C_check_for_interrupt;
38550 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
38551 C_save_and_reclaim_args((void *)trf_30207,2,t0,t1);}
38552 a=C_alloc(12);
38553 if(C_truep(t1)){
38554 t2=C_i_cdddr(((C_word*)t0)[2]);
38555 t3=C_u_i_car(((C_word*)t0)[2]);
38556 t4=C_u_i_cdr(((C_word*)t0)[2]);
38557 t5=C_u_i_cdr(t4);
38558 t6=C_u_i_car(t5);
38559 t7=C_a_i_list(&a,3,lf[52],t3,t6);
38560 t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]);
38561 /* irregex.scm:257: loop2 */
38562 t9=((C_word*)((C_word*)t0)[4])[1];
38563 f_30158(t9,((C_word*)t0)[5],t2,t8);}
38564 else{
38565 t2=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2]));
38566 t3=(C_truep(t2)?C_i_char_equalp(C_make_character(45),C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE);
38567 if(C_truep(t3)){
38568 t4=C_i_cddr(((C_word*)t0)[2]);
38569 t5=C_u_i_cdr(((C_word*)t0)[2]);
38570 t6=C_u_i_car(t5);
38571 t7=C_a_i_list(&a,2,lf[179],t6);
38572 t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]);
38573 /* irregex.scm:261: loop2 */
38574 t9=((C_word*)((C_word*)t0)[4])[1];
38575 f_30158(t9,((C_word*)t0)[5],t4,t8);}
38576 else{
38577 t4=C_u_i_cdr(((C_word*)t0)[2]);
38578 t5=C_u_i_car(((C_word*)t0)[2]);
38579 t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]);
38580 /* irregex.scm:264: loop2 */
38581 t7=((C_word*)((C_word*)t0)[4])[1];
38582 f_30158(t7,((C_word*)t0)[5],t4,t6);}}}
38583 
38584 /* k30307 in loop in k30046 in chicken.irregex#glob->sre in k18916 in k7761 in k7536 in k7533 */
f_30309(C_word c,C_word * av)38585 static void C_ccall f_30309(C_word c,C_word *av){
38586 C_word tmp;
38587 C_word t0=av[0];
38588 C_word t1=av[1];
38589 C_word t2;
38590 C_word *a;
38591 C_check_for_interrupt;
38592 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
38593 C_save_and_reclaim((void *)f_30309,c,av);}
38594 a=C_alloc(3);
38595 t2=((C_word*)t0)[2];{
38596 C_word *av2=av;
38597 av2[0]=t2;
38598 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
38599 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38600 
38601 /* a30773 in k18916 in k7761 in k7536 in k7533 */
f_30774(C_word c,C_word * av)38602 static void C_ccall f_30774(C_word c,C_word *av){
38603 C_word tmp;
38604 C_word t0=av[0];
38605 C_word t1=av[1];
38606 C_word t2=av[2];
38607 C_word t3;
38608 C_word *a;
38609 if(c<3) C_bad_min_argc_2(c,3,t0);
38610 C_check_for_interrupt;
38611 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +30,c,1)))){
38612 C_save_and_reclaim((void*)f_30774,c,av);}
38613 a=C_alloc((c-3)*C_SIZEOF_PAIR+30);
38614 t3=C_build_rest(&a,c,3,av);
38615 C_word t4;
38616 C_word t5;
38617 C_word t6;
38618 C_word t7;
38619 C_word t8;
38620 t4=C_a_i_cons(&a,2,t2,t3);
38621 t5=C_a_i_cons(&a,2,lf[179],t4);
38622 t6=C_a_i_list(&a,3,lf[115],t2,lf[124]);
38623 t7=C_a_i_list(&a,3,lf[103],t5,t6);
38624 t8=t1;{
38625 C_word *av2=av;
38626 av2[0]=t8;
38627 av2[1]=C_a_i_list(&a,2,lf[127],t7);
38628 ((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
38629 
38630 /* a30935 in k7761 in k7536 in k7533 */
f_30936(C_word c,C_word * av)38631 static void C_ccall f_30936(C_word c,C_word *av){
38632 C_word tmp;
38633 C_word t0=av[0];
38634 C_word t1=av[1];
38635 C_word t2=av[2];
38636 C_word t3;
38637 C_word *a;
38638 if(c!=3) C_bad_argc_2(c,3,t0);
38639 C_check_for_interrupt;
38640 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
38641 C_save_and_reclaim((void *)f_30936,c,av);}
38642 t3=t1;{
38643 C_word *av2=av;
38644 av2[0]=t3;
38645 av2[1]=C_SCHEME_FALSE;
38646 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
38647 
38648 /* a30938 in k7761 in k7536 in k7533 */
f_30939(C_word c,C_word * av)38649 static void C_ccall f_30939(C_word c,C_word *av){
38650 C_word tmp;
38651 C_word t0=av[0];
38652 C_word t1=av[1];
38653 C_word t2=av[2];
38654 C_word t3=av[3];
38655 C_word t4=av[4];
38656 C_word t5=av[5];
38657 C_word t6;
38658 C_word *a;
38659 if(c!=6) C_bad_argc_2(c,6,t0);
38660 C_check_for_interrupt;
38661 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
38662 C_save_and_reclaim((void *)f_30939,c,av);}
38663 /* irregex-core.scm:1963: scheme#substring */
38664 t6=*((C_word*)lf[46]+1);{
38665 C_word *av2=av;
38666 av2[0]=t6;
38667 av2[1]=t1;
38668 av2[2]=C_i_car(t2);
38669 av2[3]=t3;
38670 av2[4]=t5;
38671 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
38672 
38673 /* a30972 in k7536 in k7533 */
f_30973(C_word c,C_word * av)38674 static void C_ccall f_30973(C_word c,C_word *av){
38675 C_word tmp;
38676 C_word t0=av[0];
38677 C_word t1=av[1];
38678 C_word t2=av[2];
38679 C_word t3=av[3];
38680 C_word t4;
38681 C_word t5;
38682 C_word *a;
38683 if(c!=4) C_bad_argc_2(c,4,t0);
38684 C_check_for_interrupt;
38685 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
38686 C_save_and_reclaim((void *)f_30973,c,av);}
38687 a=C_alloc(4);
38688 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30977,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
38689 /* irregex-core.scm:159: irregex-match-num-submatches */
38690 t5=*((C_word*)lf[17]+1);{
38691 C_word *av2=av;
38692 av2[0]=t5;
38693 av2[1]=t4;
38694 av2[2]=t2;
38695 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
38696 
38697 /* k30975 in a30972 in k7536 in k7533 */
f_30977(C_word c,C_word * av)38698 static void C_ccall f_30977(C_word c,C_word *av){
38699 C_word tmp;
38700 C_word t0=av[0];
38701 C_word t1=av[1];
38702 C_word t2;
38703 C_word t3;
38704 C_word *a;
38705 C_check_for_interrupt;
38706 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
38707 C_save_and_reclaim((void *)f_30977,c,av);}
38708 a=C_alloc(5);
38709 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
38710 /* irregex-core.scm:160: scheme#display */
38711 t3=*((C_word*)lf[449]+1);{
38712 C_word *av2;
38713 if(c >= 4) {
38714   av2=av;
38715 } else {
38716   av2=C_alloc(4);
38717 }
38718 av2[0]=t3;
38719 av2[1]=t2;
38720 av2[2]=lf[500];
38721 av2[3]=((C_word*)t0)[3];
38722 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
38723 
38724 /* k30978 in k30975 in a30972 in k7536 in k7533 */
f_30980(C_word c,C_word * av)38725 static void C_ccall f_30980(C_word c,C_word *av){
38726 C_word tmp;
38727 C_word t0=av[0];
38728 C_word t1=av[1];
38729 C_word t2;
38730 C_word t3;
38731 C_word *a;
38732 C_check_for_interrupt;
38733 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
38734 C_save_and_reclaim((void *)f_30980,c,av);}
38735 a=C_alloc(5);
38736 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30983,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);
38737 /* irregex-core.scm:161: scheme#display */
38738 t3=*((C_word*)lf[449]+1);{
38739 C_word *av2;
38740 if(c >= 4) {
38741   av2=av;
38742 } else {
38743   av2=C_alloc(4);
38744 }
38745 av2[0]=t3;
38746 av2[1]=t2;
38747 av2[2]=((C_word*)t0)[4];
38748 av2[3]=((C_word*)t0)[3];
38749 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
38750 
38751 /* k30981 in k30978 in k30975 in a30972 in k7536 in k7533 */
f_30983(C_word c,C_word * av)38752 static void C_ccall f_30983(C_word c,C_word *av){
38753 C_word tmp;
38754 C_word t0=av[0];
38755 C_word t1=av[1];
38756 C_word t2;
38757 C_word t3;
38758 C_word *a;
38759 C_check_for_interrupt;
38760 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
38761 C_save_and_reclaim((void *)f_30983,c,av);}
38762 a=C_alloc(5);
38763 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30986,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);
38764 /* irregex-core.scm:162: scheme#display */
38765 t3=*((C_word*)lf[449]+1);{
38766 C_word *av2;
38767 if(c >= 4) {
38768   av2=av;
38769 } else {
38770   av2=C_alloc(4);
38771 }
38772 av2[0]=t3;
38773 av2[1]=t2;
38774 av2[2]=lf[499];
38775 av2[3]=((C_word*)t0)[3];
38776 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
38777 
38778 /* k30984 in k30981 in k30978 in k30975 in a30972 in k7536 in k7533 */
f_30986(C_word c,C_word * av)38779 static void C_ccall f_30986(C_word c,C_word *av){
38780 C_word tmp;
38781 C_word t0=av[0];
38782 C_word t1=av[1];
38783 C_word t2;
38784 C_word t3;
38785 C_word t4;
38786 C_word t5;
38787 C_word *a;
38788 C_check_for_interrupt;
38789 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
38790 C_save_and_reclaim((void *)f_30986,c,av);}
38791 a=C_alloc(4);
38792 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
38793 t3=C_eqp(((C_word*)t0)[4],C_fix(0));
38794 t4=(C_truep(t3)?t3:C_fixnum_greaterp(((C_word*)t0)[4],C_fix(1)));
38795 if(C_truep(t4)){
38796 /* irregex-core.scm:163: scheme#display */
38797 t5=*((C_word*)lf[449]+1);{
38798 C_word *av2;
38799 if(c >= 4) {
38800   av2=av;
38801 } else {
38802   av2=C_alloc(4);
38803 }
38804 av2[0]=t5;
38805 av2[1]=t2;
38806 av2[2]=lf[498];
38807 av2[3]=((C_word*)t0)[3];
38808 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
38809 else{
38810 /* irregex-core.scm:164: scheme#display */
38811 t5=*((C_word*)lf[449]+1);{
38812 C_word *av2;
38813 if(c >= 4) {
38814   av2=av;
38815 } else {
38816   av2=C_alloc(4);
38817 }
38818 av2[0]=t5;
38819 av2[1]=((C_word*)t0)[2];
38820 av2[2]=lf[497];
38821 av2[3]=((C_word*)t0)[3];
38822 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
38823 
38824 /* k30987 in k30984 in k30981 in k30978 in k30975 in a30972 in k7536 in k7533 */
f_30989(C_word c,C_word * av)38825 static void C_ccall f_30989(C_word c,C_word *av){
38826 C_word tmp;
38827 C_word t0=av[0];
38828 C_word t1=av[1];
38829 C_word t2;
38830 C_word *a;
38831 C_check_for_interrupt;
38832 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
38833 C_save_and_reclaim((void *)f_30989,c,av);}
38834 /* irregex-core.scm:164: scheme#display */
38835 t2=*((C_word*)lf[449]+1);{
38836 C_word *av2;
38837 if(c >= 4) {
38838   av2=av;
38839 } else {
38840   av2=C_alloc(4);
38841 }
38842 av2[0]=t2;
38843 av2[1]=((C_word*)t0)[2];
38844 av2[2]=lf[497];
38845 av2[3]=((C_word*)t0)[3];
38846 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
38847 
38848 /* k7533 */
f_7535(C_word c,C_word * av)38849 static void C_ccall f_7535(C_word c,C_word *av){
38850 C_word tmp;
38851 C_word t0=av[0];
38852 C_word t1=av[1];
38853 C_word t2;
38854 C_word t3;
38855 C_word *a;
38856 C_check_for_interrupt;
38857 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
38858 C_save_and_reclaim((void *)f_7535,c,av);}
38859 a=C_alloc(3);
38860 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7538,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
38861 C_word *av2=av;
38862 av2[0]=C_SCHEME_UNDEFINED;
38863 av2[1]=t2;
38864 C_expand_toplevel(2,av2);}}
38865 
38866 /* k7536 in k7533 */
f_7538(C_word c,C_word * av)38867 static void C_ccall f_7538(C_word c,C_word *av){
38868 C_word tmp;
38869 C_word t0=av[0];
38870 C_word t1=av[1];
38871 C_word t2;
38872 C_word t3;
38873 C_word t4;
38874 C_word t5;
38875 C_word t6;
38876 C_word t7;
38877 C_word t8;
38878 C_word t9;
38879 C_word t10;
38880 C_word t11;
38881 C_word t12;
38882 C_word t13;
38883 C_word t14;
38884 C_word *a;
38885 C_check_for_interrupt;
38886 if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){
38887 C_save_and_reclaim((void *)f_7538,c,av);}
38888 a=C_alloc(36);
38889 t2=C_mutate(&lf[2] /* (set! chicken.irregex#vector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7540,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
38890 t3=C_mutate((C_word*)lf[5]+1 /* (set! chicken.irregex#irregex? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7553,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
38891 t4=C_mutate((C_word*)lf[7]+1 /* (set! chicken.irregex#irregex-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7595,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
38892 t5=C_mutate((C_word*)lf[9]+1 /* (set! chicken.irregex#irregex-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7613,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
38893 t6=C_mutate(&lf[11] /* (set! chicken.irregex#irregex-new-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7622,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
38894 t7=C_mutate(&lf[13] /* (set! chicken.irregex#irregex-reset-matches! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7645,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
38895 t8=C_mutate(&lf[15] /* (set! chicken.irregex#irregex-copy-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7654,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp));
38896 t9=C_mutate((C_word*)lf[16]+1 /* (set! chicken.irregex#irregex-match-data? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7686,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
38897 t10=C_mutate((C_word*)lf[17]+1 /* (set! chicken.irregex#irregex-match-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7692,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
38898 t11=C_mutate((C_word*)lf[19]+1 /* (set! chicken.irregex#irregex-match-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7717,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
38899 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
38900 t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30973,a[2]=((C_word)li389),tmp=(C_word)a,a+=3,tmp);
38901 /* irregex-core.scm:157: chicken.base#set-record-printer! */
38902 t14=*((C_word*)lf[501]+1);{
38903 C_word *av2;
38904 if(c >= 4) {
38905   av2=av;
38906 } else {
38907   av2=C_alloc(4);
38908 }
38909 av2[0]=t14;
38910 av2[1]=t12;
38911 av2[2]=lf[12];
38912 av2[3]=t13;
38913 ((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}
38914 
38915 /* chicken.irregex#vector-copy in k7536 in k7533 */
f_7540(C_word t1,C_word t2)38916 static void C_fcall f_7540(C_word t1,C_word t2){
38917 C_word tmp;
38918 C_word t3;
38919 C_word t4;
38920 C_word *a;
38921 C_check_for_interrupt;
38922 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
38923 C_save_and_reclaim_args((void *)trf_7540,2,t1,t2);}
38924 a=C_alloc(4);
38925 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7544,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
38926 /* irregex-core.scm:89: scheme#make-vector */
38927 t4=*((C_word*)lf[4]+1);{
38928 C_word av2[3];
38929 av2[0]=t4;
38930 av2[1]=t3;
38931 av2[2]=C_i_vector_length(t2);
38932 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
38933 
38934 /* k7542 in chicken.irregex#vector-copy in k7536 in k7533 */
f_7544(C_word c,C_word * av)38935 static void C_ccall f_7544(C_word c,C_word *av){
38936 C_word tmp;
38937 C_word t0=av[0];
38938 C_word t1=av[1];
38939 C_word t2;
38940 C_word t3;
38941 C_word *a;
38942 C_check_for_interrupt;
38943 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
38944 C_save_and_reclaim((void *)f_7544,c,av);}
38945 a=C_alloc(4);
38946 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7547,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
38947 /* irregex-core.scm:90: chicken.base#vector-copy! */
38948 t3=*((C_word*)lf[3]+1);{
38949 C_word *av2;
38950 if(c >= 4) {
38951   av2=av;
38952 } else {
38953   av2=C_alloc(4);
38954 }
38955 av2[0]=t3;
38956 av2[1]=t2;
38957 av2[2]=((C_word*)t0)[3];
38958 av2[3]=t1;
38959 ((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
38960 
38961 /* k7545 in k7542 in chicken.irregex#vector-copy in k7536 in k7533 */
f_7547(C_word c,C_word * av)38962 static void C_ccall f_7547(C_word c,C_word *av){
38963 C_word tmp;
38964 C_word t0=av[0];
38965 C_word t1=av[1];
38966 C_word t2;
38967 C_word *a;
38968 C_check_for_interrupt;
38969 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
38970 C_save_and_reclaim((void *)f_7547,c,av);}
38971 t2=((C_word*)t0)[2];{
38972 C_word *av2=av;
38973 av2[0]=t2;
38974 av2[1]=((C_word*)t0)[3];
38975 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
38976 
38977 /* chicken.irregex#irregex? in k7536 in k7533 */
f_7553(C_word c,C_word * av)38978 static void C_ccall f_7553(C_word c,C_word *av){
38979 C_word tmp;
38980 C_word t0=av[0];
38981 C_word t1=av[1];
38982 C_word t2=av[2];
38983 C_word t3;
38984 C_word *a;
38985 if(c!=3) C_bad_argc_2(c,3,t0);
38986 C_check_for_interrupt;
38987 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
38988 C_save_and_reclaim((void *)f_7553,c,av);}
38989 t3=t1;{
38990 C_word *av2=av;
38991 av2[0]=t3;
38992 av2[1]=C_i_structurep(t2,lf[6]);
38993 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
38994 
38995 /* chicken.irregex#irregex-num-submatches in k7536 in k7533 */
f_7595(C_word c,C_word * av)38996 static void C_ccall f_7595(C_word c,C_word *av){
38997 C_word tmp;
38998 C_word t0=av[0];
38999 C_word t1=av[1];
39000 C_word t2=av[2];
39001 C_word t3;
39002 C_word t4;
39003 C_word *a;
39004 if(c!=3) C_bad_argc_2(c,3,t0);
39005 C_check_for_interrupt;
39006 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39007 C_save_and_reclaim((void *)f_7595,c,av);}
39008 t3=C_i_check_structure_2(t2,lf[6],lf[8]);
39009 t4=t1;{
39010 C_word *av2=av;
39011 av2[0]=t4;
39012 av2[1]=C_slot(t2,C_fix(5));
39013 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
39014 
39015 /* chicken.irregex#irregex-names in k7536 in k7533 */
f_7613(C_word c,C_word * av)39016 static void C_ccall f_7613(C_word c,C_word *av){
39017 C_word tmp;
39018 C_word t0=av[0];
39019 C_word t1=av[1];
39020 C_word t2=av[2];
39021 C_word t3;
39022 C_word t4;
39023 C_word *a;
39024 if(c!=3) C_bad_argc_2(c,3,t0);
39025 C_check_for_interrupt;
39026 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39027 C_save_and_reclaim((void *)f_7613,c,av);}
39028 t3=C_i_check_structure_2(t2,lf[6],lf[10]);
39029 t4=t1;{
39030 C_word *av2=av;
39031 av2[0]=t4;
39032 av2[1]=C_slot(t2,C_fix(7));
39033 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
39034 
39035 /* chicken.irregex#irregex-new-matches in k7536 in k7533 */
f_7622(C_word t1,C_word t2)39036 static void C_fcall f_7622(C_word t1,C_word t2){
39037 C_word tmp;
39038 C_word t3;
39039 C_word t4;
39040 C_word t5;
39041 C_word *a;
39042 C_check_for_interrupt;
39043 if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
39044 C_save_and_reclaim_args((void *)trf_7622,2,t1,t2);}
39045 a=C_alloc(7);
39046 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7630,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
39047 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7643,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
39048 /* irregex-core.scm:122: irregex-num-submatches */
39049 t5=*((C_word*)lf[7]+1);{
39050 C_word av2[3];
39051 av2[0]=t5;
39052 av2[1]=t4;
39053 av2[2]=t2;
39054 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
39055 
39056 /* k7628 in chicken.irregex#irregex-new-matches in k7536 in k7533 */
f_7630(C_word c,C_word * av)39057 static void C_ccall f_7630(C_word c,C_word *av){
39058 C_word tmp;
39059 C_word t0=av[0];
39060 C_word t1=av[1];
39061 C_word t2;
39062 C_word t3;
39063 C_word *a;
39064 C_check_for_interrupt;
39065 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
39066 C_save_and_reclaim((void *)f_7630,c,av);}
39067 a=C_alloc(6);
39068 t2=C_slot(((C_word*)t0)[2],C_fix(7));
39069 t3=((C_word*)t0)[3];{
39070 C_word *av2=av;
39071 av2[0]=t3;
39072 av2[1]=C_a_i_record5(&a,5,lf[12],t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE);
39073 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
39074 
39075 /* k7641 in chicken.irregex#irregex-new-matches in k7536 in k7533 */
f_7643(C_word c,C_word * av)39076 static void C_ccall f_7643(C_word c,C_word *av){
39077 C_word tmp;
39078 C_word t0=av[0];
39079 C_word t1=av[1];
39080 C_word t2;
39081 C_word t3;
39082 C_word t4;
39083 C_word *a;
39084 C_check_for_interrupt;
39085 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
39086 C_save_and_reclaim((void *)f_7643,c,av);}
39087 a=C_alloc(10);
39088 t2=C_a_i_fixnum_plus(&a,2,C_fix(2),t1);
39089 t3=C_s_a_u_i_integer_times(&a,2,C_fix(4),t2);
39090 /* irregex-core.scm:122: scheme#make-vector */
39091 t4=*((C_word*)lf[4]+1);{
39092 C_word *av2;
39093 if(c >= 4) {
39094   av2=av;
39095 } else {
39096   av2=C_alloc(4);
39097 }
39098 av2[0]=t4;
39099 av2[1]=((C_word*)t0)[2];
39100 av2[2]=t3;
39101 av2[3]=C_SCHEME_FALSE;
39102 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
39103 
39104 /* chicken.irregex#irregex-reset-matches! in k7536 in k7533 */
f_7645(C_word t1,C_word t2)39105 static void C_fcall f_7645(C_word t1,C_word t2){
39106 C_word tmp;
39107 C_word t3;
39108 C_word t4;
39109 C_word t5;
39110 C_word *a;
39111 C_check_for_interrupt;
39112 if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
39113 C_save_and_reclaim_args((void *)trf_7645,2,t1,t2);}
39114 a=C_alloc(4);
39115 t3=C_slot(t2,C_fix(1));
39116 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7652,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
39117 /* irregex-core.scm:125: scheme#vector-fill! */
39118 t5=*((C_word*)lf[14]+1);{
39119 C_word av2[4];
39120 av2[0]=t5;
39121 av2[1]=t4;
39122 av2[2]=t3;
39123 av2[3]=C_SCHEME_FALSE;
39124 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
39125 
39126 /* k7650 in chicken.irregex#irregex-reset-matches! in k7536 in k7533 */
f_7652(C_word c,C_word * av)39127 static void C_ccall f_7652(C_word c,C_word *av){
39128 C_word tmp;
39129 C_word t0=av[0];
39130 C_word t1=av[1];
39131 C_word t2;
39132 C_word *a;
39133 C_check_for_interrupt;
39134 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39135 C_save_and_reclaim((void *)f_7652,c,av);}
39136 t2=((C_word*)t0)[2];{
39137 C_word *av2=av;
39138 av2[0]=t2;
39139 av2[1]=((C_word*)t0)[3];
39140 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
39141 
39142 /* chicken.irregex#irregex-copy-matches in k7536 in k7533 */
f_7654(C_word t1,C_word t2)39143 static void C_fcall f_7654(C_word t1,C_word t2){
39144 C_word tmp;
39145 C_word t3;
39146 C_word t4;
39147 C_word *a;
39148 C_check_for_interrupt;
39149 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
39150 C_save_and_reclaim_args((void *)trf_7654,2,t1,t2);}
39151 a=C_alloc(4);
39152 if(C_truep(C_i_structurep(t2,lf[12]))){
39153 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7668,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
39154 /* irregex-core.scm:131: vector-copy */
39155 f_7540(t3,C_slot(t2,C_fix(1)));}
39156 else{
39157 t3=t1;{
39158 C_word av2[2];
39159 av2[0]=t3;
39160 av2[1]=C_SCHEME_FALSE;
39161 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
39162 
39163 /* k7666 in chicken.irregex#irregex-copy-matches in k7536 in k7533 */
f_7668(C_word c,C_word * av)39164 static void C_ccall f_7668(C_word c,C_word *av){
39165 C_word tmp;
39166 C_word t0=av[0];
39167 C_word t1=av[1];
39168 C_word t2;
39169 C_word t3;
39170 C_word t4;
39171 C_word t5;
39172 C_word *a;
39173 C_check_for_interrupt;
39174 if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
39175 C_save_and_reclaim((void *)f_7668,c,av);}
39176 a=C_alloc(6);
39177 t2=C_slot(((C_word*)t0)[2],C_fix(2));
39178 t3=C_slot(((C_word*)t0)[2],C_fix(3));
39179 t4=C_slot(((C_word*)t0)[2],C_fix(4));
39180 t5=((C_word*)t0)[3];{
39181 C_word *av2=av;
39182 av2[0]=t5;
39183 av2[1]=C_a_i_record5(&a,5,lf[12],t1,t2,t3,t4);
39184 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
39185 
39186 /* chicken.irregex#irregex-match-data? in k7536 in k7533 */
f_7686(C_word c,C_word * av)39187 static void C_ccall f_7686(C_word c,C_word *av){
39188 C_word tmp;
39189 C_word t0=av[0];
39190 C_word t1=av[1];
39191 C_word t2=av[2];
39192 C_word t3;
39193 C_word *a;
39194 if(c!=3) C_bad_argc_2(c,3,t0);
39195 C_check_for_interrupt;
39196 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39197 C_save_and_reclaim((void *)f_7686,c,av);}
39198 t3=t1;{
39199 C_word *av2=av;
39200 av2[0]=t3;
39201 av2[1]=C_i_structurep(t2,lf[12]);
39202 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
39203 
39204 /* chicken.irregex#irregex-match-num-submatches in k7536 in k7533 */
f_7692(C_word c,C_word * av)39205 static void C_ccall f_7692(C_word c,C_word *av){
39206 C_word tmp;
39207 C_word t0=av[0];
39208 C_word t1=av[1];
39209 C_word t2=av[2];
39210 C_word t3;
39211 C_word t4;
39212 C_word t5;
39213 C_word t6;
39214 C_word t7;
39215 C_word *a;
39216 if(c!=3) C_bad_argc_2(c,3,t0);
39217 C_check_for_interrupt;
39218 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
39219 C_save_and_reclaim((void *)f_7692,c,av);}
39220 a=C_alloc(5);
39221 t3=C_i_check_structure_2(t2,lf[12],lf[18]);
39222 t4=C_slot(t2,C_fix(1));
39223 t5=C_block_size(t4);
39224 t6=C_fixnum_divide(t5,C_fix(4));
39225 t7=t1;{
39226 C_word *av2=av;
39227 av2[0]=t7;
39228 av2[1]=C_a_i_fixnum_difference(&a,2,t6,C_fix(2));
39229 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
39230 
39231 /* chicken.irregex#irregex-match-names in k7536 in k7533 */
f_7717(C_word c,C_word * av)39232 static void C_ccall f_7717(C_word c,C_word *av){
39233 C_word tmp;
39234 C_word t0=av[0];
39235 C_word t1=av[1];
39236 C_word t2=av[2];
39237 C_word t3;
39238 C_word t4;
39239 C_word *a;
39240 if(c!=3) C_bad_argc_2(c,3,t0);
39241 C_check_for_interrupt;
39242 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39243 C_save_and_reclaim((void *)f_7717,c,av);}
39244 t3=C_i_check_structure_2(t2,lf[12],lf[20]);
39245 t4=t1;{
39246 C_word *av2=av;
39247 av2[0]=t4;
39248 av2[1]=C_slot(t2,C_fix(2));
39249 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
39250 
39251 /* k7761 in k7536 in k7533 */
f_7763(C_word c,C_word * av)39252 static void C_ccall f_7763(C_word c,C_word *av){
39253 C_word tmp;
39254 C_word t0=av[0];
39255 C_word t1=av[1];
39256 C_word t2;
39257 C_word t3;
39258 C_word t4;
39259 C_word t5;
39260 C_word t6;
39261 C_word t7;
39262 C_word t8;
39263 C_word t9;
39264 C_word t10;
39265 C_word t11;
39266 C_word t12;
39267 C_word t13;
39268 C_word t14;
39269 C_word t15;
39270 C_word t16;
39271 C_word t17;
39272 C_word t18;
39273 C_word t19;
39274 C_word t20;
39275 C_word t21;
39276 C_word t22;
39277 C_word t23;
39278 C_word t24;
39279 C_word t25;
39280 C_word t26;
39281 C_word t27;
39282 C_word t28;
39283 C_word t29;
39284 C_word t30;
39285 C_word t31;
39286 C_word t32;
39287 C_word t33;
39288 C_word t34;
39289 C_word t35;
39290 C_word t36;
39291 C_word t37;
39292 C_word t38;
39293 C_word t39;
39294 C_word t40;
39295 C_word t41;
39296 C_word t42;
39297 C_word t43;
39298 C_word t44;
39299 C_word t45;
39300 C_word t46;
39301 C_word t47;
39302 C_word t48;
39303 C_word t49;
39304 C_word t50;
39305 C_word t51;
39306 C_word t52;
39307 C_word t53;
39308 C_word t54;
39309 C_word t55;
39310 C_word t56;
39311 C_word t57;
39312 C_word t58;
39313 C_word t59;
39314 C_word t60;
39315 C_word t61;
39316 C_word t62;
39317 C_word t63;
39318 C_word t64;
39319 C_word t65;
39320 C_word t66;
39321 C_word t67;
39322 C_word t68;
39323 C_word *a;
39324 C_check_for_interrupt;
39325 if(C_unlikely(!C_demand(C_calculate_demand(216,c,6)))){
39326 C_save_and_reclaim((void *)f_7763,c,av);}
39327 a=C_alloc(216);
39328 t2=C_mutate((C_word*)lf[21]+1 /* (set! chicken.irregex#irregex-match-start-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7778,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp));
39329 t3=C_mutate((C_word*)lf[24]+1 /* (set! chicken.irregex#irregex-match-start-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7803,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
39330 t4=C_mutate((C_word*)lf[26]+1 /* (set! chicken.irregex#irregex-match-end-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7832,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
39331 t5=C_mutate((C_word*)lf[28]+1 /* (set! chicken.irregex#irregex-match-end-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7861,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp));
39332 t6=C_mutate(&lf[22] /* (set! chicken.irregex#irregex-match-numeric-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7954,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
39333 t7=C_mutate((C_word*)lf[36]+1 /* (set! chicken.irregex#irregex-match-valid-index? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8138,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
39334 t8=C_mutate((C_word*)lf[40]+1 /* (set! chicken.irregex#irregex-match-substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8201,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
39335 t9=C_mutate((C_word*)lf[42]+1 /* (set! chicken.irregex#irregex-match-subchunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8282,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp));
39336 t10=C_mutate((C_word*)lf[45]+1 /* (set! chicken.irregex#make-irregex-chunker ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8372,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp));
39337 t11=C_mutate(&lf[50] /* (set! chicken.irregex#chunker-prev-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8640,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp));
39338 t12=C_mutate(&lf[51] /* (set! chicken.irregex#chunker-next-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8670,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
39339 t13=C_a_i_list(&a,5,lf[52],C_make_character(0),C_make_character(55295),C_make_character(57344),C_make_character(1114111));
39340 t14=C_mutate(&lf[53] /* (set! chicken.irregex#*all-chars* ...) */,t13);
39341 t15=C_mutate(&lf[54] /* (set! chicken.irregex#string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8817,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp));
39342 t16=C_mutate(&lf[47] /* (set! chicken.irregex#string-cat-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9108,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp));
39343 t17=C_mutate(&lf[57] /* (set! chicken.irregex#zero-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9158,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp));
39344 t18=C_mutate(&lf[58] /* (set! chicken.irregex#find ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9195,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp));
39345 t19=C_mutate(&lf[59] /* (set! chicken.irregex#last ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9256,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp));
39346 t20=C_mutate(&lf[61] /* (set! chicken.irregex#any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9294,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp));
39347 t21=C_mutate(&lf[62] /* (set! chicken.irregex#every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9337,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp));
39348 t22=C_mutate(&lf[56] /* (set! chicken.irregex#fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9382,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
39349 t23=C_mutate(&lf[63] /* (set! chicken.irregex#flag-join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9712,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp));
39350 t24=C_mutate(&lf[64] /* (set! chicken.irregex#flag-clear ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9721,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp));
39351 t25=C_a_i_list1(&a,1,lf[65]);
39352 t26=C_mutate(&lf[66] /* (set! chicken.irregex#close-token ...) */,t25);
39353 t27=C_mutate(&lf[67] /* (set! chicken.irregex#with-read-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9739,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp));
39354 t28=C_mutate(&lf[89] /* (set! chicken.irregex#symbol-list->flags ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10332,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp));
39355 t29=C_mutate((C_word*)lf[101]+1 /* (set! chicken.irregex#maybe-string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10455,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp));
39356 t30=C_mutate((C_word*)lf[102]+1 /* (set! chicken.irregex#string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10467,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp));
39357 t31=C_a_i_cons(&a,2,C_make_character(110),C_make_character(10));
39358 t32=C_a_i_cons(&a,2,C_make_character(114),C_make_character(13));
39359 t33=C_a_i_cons(&a,2,C_make_character(116),C_make_character(9));
39360 t34=C_a_i_cons(&a,2,C_make_character(97),C_make_character(7));
39361 t35=C_a_i_cons(&a,2,C_make_character(101),C_make_character(27));
39362 t36=C_a_i_cons(&a,2,C_make_character(102),C_make_character(12));
39363 t37=C_a_i_list(&a,6,t31,t32,t33,t34,t35,t36);
39364 t38=C_mutate(&lf[168] /* (set! chicken.irregex#posix-escape-sequences ...) */,t37);
39365 t39=C_mutate(&lf[169] /* (set! chicken.irregex#string-parse-hex-escape ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13295,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp));
39366 t40=C_mutate(&lf[204] /* (set! chicken.irregex#high-char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14008,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp));
39367 t41=C_mutate(&lf[106] /* (set! chicken.irregex#utf8-string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14029,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp));
39368 t42=C_mutate(&lf[206] /* (set! chicken.irregex#utf8-lowest-digit-of-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14262,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp));
39369 t43=C_mutate(&lf[208] /* (set! chicken.irregex#char->utf8-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14338,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp));
39370 t44=C_mutate(&lf[210] /* (set! chicken.irregex#unicode-range-helper ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14614,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp));
39371 t45=C_mutate(&lf[212] /* (set! chicken.irregex#unicode-range-up-from ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14752,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp));
39372 t46=C_mutate(&lf[213] /* (set! chicken.irregex#unicode-range-up-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14891,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp));
39373 t47=C_mutate(&lf[214] /* (set! chicken.irregex#cset->utf8-pattern ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15469,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp));
39374 t48=C_mutate((C_word*)lf[217]+1 /* (set! chicken.irregex#irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16036,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp));
39375 t49=C_mutate((C_word*)lf[219]+1 /* (set! chicken.irregex#string->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16164,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp));
39376 t50=C_mutate((C_word*)lf[220]+1 /* (set! chicken.irregex#sre->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16174,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp));
39377 t51=C_mutate(&lf[139] /* (set! chicken.irregex#sre-empty? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16307,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp));
39378 t52=C_mutate(&lf[277] /* (set! chicken.irregex#sre-any? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16474,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp));
39379 t53=C_mutate(&lf[136] /* (set! chicken.irregex#sre-repeater? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16575,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp));
39380 t54=C_mutate(&lf[279] /* (set! chicken.irregex#sre-bos? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16620,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp));
39381 t55=C_mutate(&lf[271] /* (set! chicken.irregex#sre-searcher? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16709,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp));
39382 t56=C_mutate(&lf[253] /* (set! chicken.irregex#sre-consumer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16826,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp));
39383 t57=C_mutate(&lf[280] /* (set! chicken.irregex#sre-has-submatches? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16943,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp));
39384 t58=C_mutate(&lf[224] /* (set! chicken.irregex#sre-count-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16982,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp));
39385 t59=C_mutate(&lf[104] /* (set! chicken.irregex#sre-sequence ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18191,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp));
39386 t60=C_mutate(&lf[107] /* (set! chicken.irregex#sre-alternate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18214,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp));
39387 t61=C_mutate(&lf[283] /* (set! chicken.irregex#sre-strip-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18237,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp));
39388 t62=C_mutate(&lf[252] /* (set! chicken.irregex#sre-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18418,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp));
39389 t63=C_mutate(&lf[284] /* (set! chicken.irregex#sre-sequence-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18704,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp));
39390 t64=C_mutate(&lf[270] /* (set! chicken.irregex#sre-remove-initial-bos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18736,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp));
39391 t65=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18918,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
39392 t66=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30936,a[2]=((C_word)li387),tmp=(C_word)a,a+=3,tmp);
39393 t67=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30939,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp);
39394 /* irregex-core.scm:1958: make-irregex-chunker */
39395 t68=*((C_word*)lf[45]+1);{
39396 C_word *av2;
39397 if(c >= 7) {
39398   av2=av;
39399 } else {
39400   av2=C_alloc(7);
39401 }
39402 av2[0]=t68;
39403 av2[1]=t65;
39404 av2[2]=t66;
39405 av2[3]=*((C_word*)lf[494]+1);
39406 av2[4]=*((C_word*)lf[495]+1);
39407 av2[5]=*((C_word*)lf[496]+1);
39408 av2[6]=t67;
39409 ((C_proc)(void*)(*((C_word*)t68+1)))(7,av2);}}
39410 
39411 /* k7774 in k8140 in chicken.irregex#irregex-match-valid-index? in k7761 in k7536 in k7533 */
f_7776(C_word c,C_word * av)39412 static void C_ccall f_7776(C_word c,C_word *av){
39413 C_word tmp;
39414 C_word t0=av[0];
39415 C_word t1=av[1];
39416 C_word t2;
39417 C_word t3;
39418 C_word *a;
39419 C_check_for_interrupt;
39420 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39421 C_save_and_reclaim((void *)f_7776,c,av);}
39422 t2=C_i_assq(((C_word*)t0)[2],t1);
39423 t3=((C_word*)t0)[3];{
39424 C_word *av2=av;
39425 av2[0]=t3;
39426 av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE);
39427 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
39428 
39429 /* chicken.irregex#irregex-match-start-chunk in k7761 in k7536 in k7533 */
f_7778(C_word c,C_word * av)39430 static void C_ccall f_7778(C_word c,C_word *av){
39431 C_word tmp;
39432 C_word t0=av[0];
39433 C_word t1=av[1];
39434 C_word t2=av[2];
39435 C_word t3;
39436 C_word *a;
39437 if(c<3) C_bad_min_argc_2(c,3,t0);
39438 C_check_for_interrupt;
39439 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
39440 C_save_and_reclaim((void*)f_7778,c,av);}
39441 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
39442 t3=C_build_rest(&a,c,3,av);
39443 C_word t4;
39444 C_word t5;
39445 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7782,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
39446 /* irregex-core.scm:232: irregex-match-numeric-index */
39447 f_7954(t4,lf[23],t2,t3);}
39448 
39449 /* k7780 in chicken.irregex#irregex-match-start-chunk in k7761 in k7536 in k7533 */
f_7782(C_word c,C_word * av)39450 static void C_ccall f_7782(C_word c,C_word *av){
39451 C_word tmp;
39452 C_word t0=av[0];
39453 C_word t1=av[1];
39454 C_word t2;
39455 C_word *a;
39456 C_check_for_interrupt;
39457 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39458 C_save_and_reclaim((void *)f_7782,c,av);}
39459 t2=((C_word*)t0)[2];{
39460 C_word *av2=av;
39461 av2[0]=t2;
39462 av2[1]=(C_truep(t1)?C_slot(C_slot(((C_word*)t0)[3],C_fix(1)),C_fixnum_times(t1,C_fix(4))):C_SCHEME_FALSE);
39463 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
39464 
39465 /* chicken.irregex#irregex-match-start-index in k7761 in k7536 in k7533 */
f_7803(C_word c,C_word * av)39466 static void C_ccall f_7803(C_word c,C_word *av){
39467 C_word tmp;
39468 C_word t0=av[0];
39469 C_word t1=av[1];
39470 C_word t2=av[2];
39471 C_word t3;
39472 C_word *a;
39473 if(c<3) C_bad_min_argc_2(c,3,t0);
39474 C_check_for_interrupt;
39475 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
39476 C_save_and_reclaim((void*)f_7803,c,av);}
39477 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
39478 t3=C_build_rest(&a,c,3,av);
39479 C_word t4;
39480 C_word t5;
39481 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7807,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
39482 /* irregex-core.scm:235: irregex-match-numeric-index */
39483 f_7954(t4,lf[25],t2,t3);}
39484 
39485 /* k7805 in chicken.irregex#irregex-match-start-index in k7761 in k7536 in k7533 */
f_7807(C_word c,C_word * av)39486 static void C_ccall f_7807(C_word c,C_word *av){
39487 C_word tmp;
39488 C_word t0=av[0];
39489 C_word t1=av[1];
39490 C_word t2;
39491 C_word t3;
39492 C_word t4;
39493 C_word *a;
39494 C_check_for_interrupt;
39495 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39496 C_save_and_reclaim((void *)f_7807,c,av);}
39497 if(C_truep(t1)){
39498 t2=C_slot(((C_word*)t0)[2],C_fix(1));
39499 t3=C_fixnum_times(t1,C_fix(4));
39500 t4=((C_word*)t0)[3];{
39501 C_word *av2=av;
39502 av2[0]=t4;
39503 av2[1]=C_slot(t2,C_fixnum_plus(C_fix(1),t3));
39504 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
39505 else{
39506 t2=((C_word*)t0)[3];{
39507 C_word *av2=av;
39508 av2[0]=t2;
39509 av2[1]=C_SCHEME_FALSE;
39510 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
39511 
39512 /* chicken.irregex#irregex-match-end-chunk in k7761 in k7536 in k7533 */
f_7832(C_word c,C_word * av)39513 static void C_ccall f_7832(C_word c,C_word *av){
39514 C_word tmp;
39515 C_word t0=av[0];
39516 C_word t1=av[1];
39517 C_word t2=av[2];
39518 C_word t3;
39519 C_word *a;
39520 if(c<3) C_bad_min_argc_2(c,3,t0);
39521 C_check_for_interrupt;
39522 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
39523 C_save_and_reclaim((void*)f_7832,c,av);}
39524 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
39525 t3=C_build_rest(&a,c,3,av);
39526 C_word t4;
39527 C_word t5;
39528 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7836,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
39529 /* irregex-core.scm:238: irregex-match-numeric-index */
39530 f_7954(t4,lf[27],t2,t3);}
39531 
39532 /* k7834 in chicken.irregex#irregex-match-end-chunk in k7761 in k7536 in k7533 */
f_7836(C_word c,C_word * av)39533 static void C_ccall f_7836(C_word c,C_word *av){
39534 C_word tmp;
39535 C_word t0=av[0];
39536 C_word t1=av[1];
39537 C_word t2;
39538 C_word t3;
39539 C_word t4;
39540 C_word *a;
39541 C_check_for_interrupt;
39542 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39543 C_save_and_reclaim((void *)f_7836,c,av);}
39544 if(C_truep(t1)){
39545 t2=C_slot(((C_word*)t0)[2],C_fix(1));
39546 t3=C_fixnum_times(t1,C_fix(4));
39547 t4=((C_word*)t0)[3];{
39548 C_word *av2=av;
39549 av2[0]=t4;
39550 av2[1]=C_slot(t2,C_fixnum_plus(C_fix(2),t3));
39551 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
39552 else{
39553 t2=((C_word*)t0)[3];{
39554 C_word *av2=av;
39555 av2[0]=t2;
39556 av2[1]=C_SCHEME_FALSE;
39557 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
39558 
39559 /* chicken.irregex#irregex-match-end-index in k7761 in k7536 in k7533 */
f_7861(C_word c,C_word * av)39560 static void C_ccall f_7861(C_word c,C_word *av){
39561 C_word tmp;
39562 C_word t0=av[0];
39563 C_word t1=av[1];
39564 C_word t2=av[2];
39565 C_word t3;
39566 C_word *a;
39567 if(c<3) C_bad_min_argc_2(c,3,t0);
39568 C_check_for_interrupt;
39569 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
39570 C_save_and_reclaim((void*)f_7861,c,av);}
39571 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
39572 t3=C_build_rest(&a,c,3,av);
39573 C_word t4;
39574 C_word t5;
39575 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7865,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
39576 /* irregex-core.scm:241: irregex-match-numeric-index */
39577 f_7954(t4,lf[29],t2,t3);}
39578 
39579 /* k7863 in chicken.irregex#irregex-match-end-index in k7761 in k7536 in k7533 */
f_7865(C_word c,C_word * av)39580 static void C_ccall f_7865(C_word c,C_word *av){
39581 C_word tmp;
39582 C_word t0=av[0];
39583 C_word t1=av[1];
39584 C_word t2;
39585 C_word t3;
39586 C_word t4;
39587 C_word *a;
39588 C_check_for_interrupt;
39589 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
39590 C_save_and_reclaim((void *)f_7865,c,av);}
39591 if(C_truep(t1)){
39592 t2=C_slot(((C_word*)t0)[2],C_fix(1));
39593 t3=C_fixnum_times(t1,C_fix(4));
39594 t4=((C_word*)t0)[3];{
39595 C_word *av2=av;
39596 av2[0]=t4;
39597 av2[1]=C_slot(t2,C_fixnum_plus(C_fix(3),t3));
39598 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
39599 else{
39600 t2=((C_word*)t0)[3];{
39601 C_word *av2=av;
39602 av2[0]=t2;
39603 av2[1]=C_SCHEME_FALSE;
39604 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
39605 
39606 /* chicken.irregex#irregex-match-numeric-index in k7761 in k7536 in k7533 */
f_7954(C_word t1,C_word t2,C_word t3,C_word t4)39607 static void C_fcall f_7954(C_word t1,C_word t2,C_word t3,C_word t4){
39608 C_word tmp;
39609 C_word t5;
39610 C_word t6;
39611 C_word *a;
39612 C_check_for_interrupt;
39613 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
39614 C_save_and_reclaim_args((void *)trf_7954,4,t1,t2,t3,t4);}
39615 a=C_alloc(6);
39616 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8136,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
39617 /* irregex-core.scm:268: irregex-match-data? */
39618 t6=*((C_word*)lf[16]+1);{
39619 C_word av2[3];
39620 av2[0]=t6;
39621 av2[1]=t5;
39622 av2[2]=t3;
39623 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
39624 
39625 /* k8020 in k8134 in chicken.irregex#irregex-match-numeric-index in k7761 in k7536 in k7533 */
f_8022(C_word t0,C_word t1)39626 static void C_fcall f_8022(C_word t0,C_word t1){
39627 C_word tmp;
39628 C_word t2;
39629 C_word t3;
39630 C_word t4;
39631 C_word t5;
39632 C_word t6;
39633 C_word *a;
39634 C_check_for_interrupt;
39635 if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
39636 C_save_and_reclaim_args((void *)trf_8022,2,t0,t1);}
39637 if(C_truep(t1)){
39638 t2=C_slot(((C_word*)t0)[2],C_fix(1));
39639 t3=C_fixnum_times(((C_word*)t0)[3],C_fix(4));
39640 t4=C_fixnum_plus(C_fix(1),t3);
39641 t5=C_slot(t2,t4);
39642 t6=((C_word*)t0)[4];{
39643 C_word av2[2];
39644 av2[0]=t6;
39645 av2[1]=(C_truep(t5)?((C_word*)t0)[3]:C_SCHEME_FALSE);
39646 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
39647 else{
39648 /* irregex-core.scm:279: chicken.base#error */
39649 t2=*((C_word*)lf[30]+1);{
39650 C_word av2[6];
39651 av2[0]=t2;
39652 av2[1]=((C_word*)t0)[4];
39653 av2[2]=((C_word*)t0)[5];
39654 av2[3]=lf[33];
39655 av2[4]=((C_word*)t0)[2];
39656 av2[5]=((C_word*)t0)[3];
39657 ((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}
39658 
39659 /* k8062 in k8134 in chicken.irregex#irregex-match-numeric-index in k7761 in k7536 in k7533 */
f_8064(C_word c,C_word * av)39660 static void C_ccall f_8064(C_word c,C_word *av){
39661 C_word tmp;
39662 C_word t0=av[0];
39663 C_word t1=av[1];
39664 C_word t2;
39665 C_word t3;
39666 C_word t4;
39667 C_word t5;
39668 C_word *a;
39669 C_check_for_interrupt;
39670 if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
39671 C_save_and_reclaim((void *)f_8064,c,av);}
39672 a=C_alloc(9);
39673 t2=C_SCHEME_UNDEFINED;
39674 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
39675 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8066,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)li14),tmp=(C_word)a,a+=7,tmp));
39676 t5=((C_word*)t3)[1];
39677 f_8066(t5,((C_word*)t0)[5],t1,C_SCHEME_TRUE);}
39678 
39679 /* lp in k8062 in k8134 in chicken.irregex#irregex-match-numeric-index in k7761 in k7536 in k7533 */
f_8066(C_word t0,C_word t1,C_word t2,C_word t3)39680 static void C_fcall f_8066(C_word t0,C_word t1,C_word t2,C_word t3){
39681 C_word tmp;
39682 C_word t4;
39683 C_word t5;
39684 C_word t6;
39685 C_word t7;
39686 C_word t8;
39687 C_word t9;
39688 C_word t10;
39689 C_word t11;
39690 C_word t12;
39691 C_word t13;
39692 C_word *a;
39693 loop:
39694 C_check_for_interrupt;
39695 if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
39696 C_save_and_reclaim_args((void *)trf_8066,4,t0,t1,t2,t3);}
39697 if(C_truep(C_i_nullp(t2))){
39698 if(C_truep(t3)){
39699 /* irregex-core.scm:286: chicken.base#error */
39700 t4=*((C_word*)lf[30]+1);{
39701 C_word av2[5];
39702 av2[0]=t4;
39703 av2[1]=t1;
39704 av2[2]=((C_word*)t0)[2];
39705 av2[3]=lf[35];
39706 av2[4]=((C_word*)t0)[3];
39707 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
39708 else{
39709 t4=t1;{
39710 C_word av2[2];
39711 av2[0]=t4;
39712 av2[1]=C_SCHEME_FALSE;
39713 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
39714 else{
39715 t4=C_i_caar(t2);
39716 t5=C_eqp(((C_word*)t0)[3],t4);
39717 if(C_truep(t5)){
39718 t6=C_u_i_car(t2);
39719 t7=C_u_i_cdr(t6);
39720 t8=C_slot(((C_word*)t0)[4],C_fix(1));
39721 t9=C_fixnum_times(t7,C_fix(4));
39722 if(C_truep(C_slot(t8,t9))){
39723 t10=t1;{
39724 C_word av2[2];
39725 av2[0]=t10;
39726 av2[1]=C_i_cdar(t2);
39727 ((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
39728 else{
39729 /* irregex-core.scm:290: lp */
39730 t11=t1;
39731 t12=C_u_i_cdr(t2);
39732 t13=C_SCHEME_FALSE;
39733 t1=t11;
39734 t2=t12;
39735 t3=t13;
39736 goto loop;}}
39737 else{
39738 /* irregex-core.scm:291: lp */
39739 t11=t1;
39740 t12=C_u_i_cdr(t2);
39741 t13=t3;
39742 t1=t11;
39743 t2=t12;
39744 t3=t13;
39745 goto loop;}}}
39746 
39747 /* k8134 in chicken.irregex#irregex-match-numeric-index in k7761 in k7536 in k7533 */
f_8136(C_word c,C_word * av)39748 static void C_ccall f_8136(C_word c,C_word *av){
39749 C_word tmp;
39750 C_word t0=av[0];
39751 C_word t1=av[1];
39752 C_word t2;
39753 C_word t3;
39754 C_word t4;
39755 C_word t5;
39756 C_word t6;
39757 C_word t7;
39758 C_word t8;
39759 C_word t9;
39760 C_word t10;
39761 C_word t11;
39762 C_word *a;
39763 C_check_for_interrupt;
39764 if(C_unlikely(!C_demand(C_calculate_demand(11,c,6)))){
39765 C_save_and_reclaim((void *)f_8136,c,av);}
39766 a=C_alloc(11);
39767 if(C_truep(C_i_not(t1))){
39768 /* irregex-core.scm:269: chicken.base#error */
39769 t2=*((C_word*)lf[30]+1);{
39770 C_word *av2;
39771 if(c >= 5) {
39772   av2=av;
39773 } else {
39774   av2=C_alloc(5);
39775 }
39776 av2[0]=t2;
39777 av2[1]=((C_word*)t0)[2];
39778 av2[2]=((C_word*)t0)[3];
39779 av2[3]=lf[31];
39780 av2[4]=((C_word*)t0)[4];
39781 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
39782 else{
39783 t2=C_i_pairp(((C_word*)t0)[5]);
39784 if(C_truep(C_i_not(t2))){
39785 t3=((C_word*)t0)[2];{
39786 C_word *av2=av;
39787 av2[0]=t3;
39788 av2[1]=C_fix(0);
39789 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
39790 else{
39791 t3=C_i_cdr(((C_word*)t0)[5]);
39792 if(C_truep(C_i_pairp(t3))){{
39793 C_word *av2;
39794 if(c >= 7) {
39795   av2=av;
39796 } else {
39797   av2=C_alloc(7);
39798 }
39799 av2[0]=0;
39800 av2[1]=((C_word*)t0)[2];
39801 av2[2]=*((C_word*)lf[30]+1);
39802 av2[3]=((C_word*)t0)[3];
39803 av2[4]=lf[32];
39804 av2[5]=((C_word*)t0)[4];
39805 av2[6]=((C_word*)t0)[5];
39806 C_apply(7,av2);}}
39807 else{
39808 t4=C_u_i_car(((C_word*)t0)[5]);
39809 if(C_truep(C_i_numberp(t4))){
39810 t5=(C_truep(C_i_integerp(t4))?C_i_exactp(t4):C_SCHEME_FALSE);
39811 if(C_truep(t5)){
39812 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8022,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
39813 t7=C_slot(((C_word*)t0)[4],C_fix(1));
39814 if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(0)))){
39815 t8=C_fixnum_times(t4,C_fix(4));
39816 t9=C_block_size(t7);
39817 t10=C_a_i_fixnum_difference(&a,2,t9,C_fix(4));
39818 t11=t6;
39819 f_8022(t11,C_fixnum_lessp(t8,t10));}
39820 else{
39821 t8=t6;
39822 f_8022(t8,C_SCHEME_FALSE);}}
39823 else{
39824 /* irregex-core.scm:280: chicken.base#error */
39825 t6=*((C_word*)lf[30]+1);{
39826 C_word *av2;
39827 if(c >= 5) {
39828   av2=av;
39829 } else {
39830   av2=C_alloc(5);
39831 }
39832 av2[0]=t6;
39833 av2[1]=((C_word*)t0)[2];
39834 av2[2]=((C_word*)t0)[3];
39835 av2[3]=lf[34];
39836 av2[4]=t4;
39837 ((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
39838 else{
39839 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8064,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
39840 /* irregex-core.scm:281: irregex-match-names */
39841 t6=*((C_word*)lf[19]+1);{
39842 C_word *av2;
39843 if(c >= 3) {
39844   av2=av;
39845 } else {
39846   av2=C_alloc(3);
39847 }
39848 av2[0]=t6;
39849 av2[1]=t5;
39850 av2[2]=((C_word*)t0)[4];
39851 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}
39852 
39853 /* chicken.irregex#irregex-match-valid-index? in k7761 in k7536 in k7533 */
f_8138(C_word c,C_word * av)39854 static void C_ccall f_8138(C_word c,C_word *av){
39855 C_word tmp;
39856 C_word t0=av[0];
39857 C_word t1=av[1];
39858 C_word t2=av[2];
39859 C_word t3=av[3];
39860 C_word t4;
39861 C_word t5;
39862 C_word t6;
39863 C_word *a;
39864 if(c!=4) C_bad_argc_2(c,4,t0);
39865 C_check_for_interrupt;
39866 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
39867 C_save_and_reclaim((void *)f_8138,c,av);}
39868 a=C_alloc(9);
39869 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8142,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
39870 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8199,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
39871 /* irregex-core.scm:294: irregex-match-data? */
39872 t6=*((C_word*)lf[16]+1);{
39873 C_word *av2=av;
39874 av2[0]=t6;
39875 av2[1]=t5;
39876 av2[2]=t2;
39877 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
39878 
39879 /* k8140 in chicken.irregex#irregex-match-valid-index? in k7761 in k7536 in k7533 */
f_8142(C_word c,C_word * av)39880 static void C_ccall f_8142(C_word c,C_word *av){
39881 C_word tmp;
39882 C_word t0=av[0];
39883 C_word t1=av[1];
39884 C_word t2;
39885 C_word t3;
39886 C_word t4;
39887 C_word t5;
39888 C_word t6;
39889 C_word t7;
39890 C_word *a;
39891 C_check_for_interrupt;
39892 if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
39893 C_save_and_reclaim((void *)f_8142,c,av);}
39894 a=C_alloc(5);
39895 if(C_truep(C_i_integerp(((C_word*)t0)[2]))){
39896 t2=C_i_exactp(((C_word*)t0)[2]);
39897 if(C_truep(C_i_not(t2))){
39898 /* irregex-core.scm:298: chicken.base#error */
39899 t3=*((C_word*)lf[30]+1);{
39900 C_word *av2;
39901 if(c >= 5) {
39902   av2=av;
39903 } else {
39904   av2=C_alloc(5);
39905 }
39906 av2[0]=t3;
39907 av2[1]=((C_word*)t0)[3];
39908 av2[2]=lf[37];
39909 av2[3]=lf[38];
39910 av2[4]=((C_word*)t0)[2];
39911 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
39912 else{
39913 t3=C_slot(((C_word*)t0)[4],C_fix(1));
39914 if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(0)))){
39915 t4=C_fixnum_times(((C_word*)t0)[2],C_fix(4));
39916 t5=C_block_size(t3);
39917 t6=C_a_i_fixnum_difference(&a,2,t5,C_fix(4));
39918 t7=((C_word*)t0)[3];{
39919 C_word *av2=av;
39920 av2[0]=t7;
39921 av2[1]=C_fixnum_lessp(t4,t6);
39922 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
39923 else{
39924 t4=((C_word*)t0)[3];{
39925 C_word *av2=av;
39926 av2[0]=t4;
39927 av2[1]=C_SCHEME_FALSE;
39928 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
39929 else{
39930 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7776,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
39931 /* irregex-core.scm:227: irregex-match-names */
39932 t3=*((C_word*)lf[19]+1);{
39933 C_word *av2;
39934 if(c >= 3) {
39935   av2=av;
39936 } else {
39937   av2=C_alloc(3);
39938 }
39939 av2[0]=t3;
39940 av2[1]=t2;
39941 av2[2]=((C_word*)t0)[4];
39942 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
39943 
39944 /* k8197 in chicken.irregex#irregex-match-valid-index? in k7761 in k7536 in k7533 */
f_8199(C_word c,C_word * av)39945 static void C_ccall f_8199(C_word c,C_word *av){
39946 C_word tmp;
39947 C_word t0=av[0];
39948 C_word t1=av[1];
39949 C_word t2;
39950 C_word *a;
39951 C_check_for_interrupt;
39952 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
39953 C_save_and_reclaim((void *)f_8199,c,av);}
39954 if(C_truep(C_i_not(t1))){
39955 /* irregex-core.scm:295: chicken.base#error */
39956 t2=*((C_word*)lf[30]+1);{
39957 C_word *av2;
39958 if(c >= 5) {
39959   av2=av;
39960 } else {
39961   av2=C_alloc(5);
39962 }
39963 av2[0]=t2;
39964 av2[1]=((C_word*)t0)[2];
39965 av2[2]=lf[37];
39966 av2[3]=lf[39];
39967 av2[4]=((C_word*)t0)[3];
39968 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
39969 else{
39970 t2=((C_word*)t0)[2];{
39971 C_word *av2=av;
39972 av2[0]=t2;
39973 av2[1]=C_SCHEME_UNDEFINED;
39974 f_8142(2,av2);}}}
39975 
39976 /* chicken.irregex#irregex-match-substring in k7761 in k7536 in k7533 */
f_8201(C_word c,C_word * av)39977 static void C_ccall f_8201(C_word c,C_word *av){
39978 C_word tmp;
39979 C_word t0=av[0];
39980 C_word t1=av[1];
39981 C_word t2=av[2];
39982 C_word t3;
39983 C_word *a;
39984 if(c<3) C_bad_min_argc_2(c,3,t0);
39985 C_check_for_interrupt;
39986 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
39987 C_save_and_reclaim((void*)f_8201,c,av);}
39988 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
39989 t3=C_build_rest(&a,c,3,av);
39990 C_word t4;
39991 C_word t5;
39992 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8205,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
39993 /* irregex-core.scm:303: irregex-match-numeric-index */
39994 f_7954(t4,lf[41],t2,t3);}
39995 
39996 /* k8203 in chicken.irregex#irregex-match-substring in k7761 in k7536 in k7533 */
f_8205(C_word c,C_word * av)39997 static void C_ccall f_8205(C_word c,C_word *av){
39998 C_word tmp;
39999 C_word t0=av[0];
40000 C_word t1=av[1];
40001 C_word t2;
40002 C_word t3;
40003 C_word t4;
40004 C_word t5;
40005 C_word t6;
40006 C_word t7;
40007 C_word t8;
40008 C_word t9;
40009 C_word t10;
40010 C_word t11;
40011 C_word t12;
40012 C_word t13;
40013 C_word t14;
40014 C_word t15;
40015 C_word t16;
40016 C_word t17;
40017 C_word *a;
40018 C_check_for_interrupt;
40019 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
40020 C_save_and_reclaim((void *)f_8205,c,av);}
40021 t2=C_slot(((C_word*)t0)[2],C_fix(3));
40022 if(C_truep(t1)){
40023 t3=C_i_vector_ref(t2,C_fix(4));
40024 t4=C_slot(((C_word*)t0)[2],C_fix(1));
40025 t5=C_fixnum_times(t1,C_fix(4));
40026 t6=C_slot(t4,t5);
40027 t7=C_slot(((C_word*)t0)[2],C_fix(1));
40028 t8=C_fixnum_times(t1,C_fix(4));
40029 t9=C_fixnum_plus(C_fix(1),t8);
40030 t10=C_slot(t7,t9);
40031 t11=C_slot(((C_word*)t0)[2],C_fix(1));
40032 t12=C_fixnum_times(t1,C_fix(4));
40033 t13=C_fixnum_plus(C_fix(2),t12);
40034 t14=C_slot(t11,t13);
40035 t15=C_slot(((C_word*)t0)[2],C_fix(1));
40036 t16=C_fixnum_times(t1,C_fix(4));
40037 /* irregex-core.scm:305: g895 */
40038 t17=t3;{
40039 C_word *av2;
40040 if(c >= 6) {
40041   av2=av;
40042 } else {
40043   av2=C_alloc(6);
40044 }
40045 av2[0]=t17;
40046 av2[1]=((C_word*)t0)[3];
40047 av2[2]=t6;
40048 av2[3]=t10;
40049 av2[4]=t14;
40050 av2[5]=C_slot(t15,C_fixnum_plus(C_fix(3),t16));
40051 ((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}}
40052 else{
40053 t3=((C_word*)t0)[3];{
40054 C_word *av2=av;
40055 av2[0]=t3;
40056 av2[1]=C_SCHEME_FALSE;
40057 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
40058 
40059 /* chicken.irregex#irregex-match-subchunk in k7761 in k7536 in k7533 */
f_8282(C_word c,C_word * av)40060 static void C_ccall f_8282(C_word c,C_word *av){
40061 C_word tmp;
40062 C_word t0=av[0];
40063 C_word t1=av[1];
40064 C_word t2=av[2];
40065 C_word t3;
40066 C_word *a;
40067 if(c<3) C_bad_min_argc_2(c,3,t0);
40068 C_check_for_interrupt;
40069 if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +4,c,4)))){
40070 C_save_and_reclaim((void*)f_8282,c,av);}
40071 a=C_alloc((c-3)*C_SIZEOF_PAIR+4);
40072 t3=C_build_rest(&a,c,3,av);
40073 C_word t4;
40074 C_word t5;
40075 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8286,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
40076 /* irregex-core.scm:313: irregex-match-numeric-index */
40077 f_7954(t4,lf[44],t2,t3);}
40078 
40079 /* k8284 in chicken.irregex#irregex-match-subchunk in k7761 in k7536 in k7533 */
f_8286(C_word c,C_word * av)40080 static void C_ccall f_8286(C_word c,C_word *av){
40081 C_word tmp;
40082 C_word t0=av[0];
40083 C_word t1=av[1];
40084 C_word t2;
40085 C_word t3;
40086 C_word t4;
40087 C_word t5;
40088 C_word t6;
40089 C_word t7;
40090 C_word t8;
40091 C_word t9;
40092 C_word t10;
40093 C_word t11;
40094 C_word t12;
40095 C_word t13;
40096 C_word t14;
40097 C_word t15;
40098 C_word t16;
40099 C_word t17;
40100 C_word *a;
40101 C_check_for_interrupt;
40102 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
40103 C_save_and_reclaim((void *)f_8286,c,av);}
40104 t2=C_slot(((C_word*)t0)[2],C_fix(3));
40105 t3=C_i_vector_ref(t2,C_fix(5));
40106 if(C_truep(C_i_not(t3))){
40107 /* irregex-core.scm:317: chicken.base#error */
40108 t4=*((C_word*)lf[30]+1);{
40109 C_word *av2;
40110 if(c >= 5) {
40111   av2=av;
40112 } else {
40113   av2=C_alloc(5);
40114 }
40115 av2[0]=t4;
40116 av2[1]=((C_word*)t0)[3];
40117 av2[2]=lf[43];
40118 av2[3]=((C_word*)t0)[2];
40119 av2[4]=t1;
40120 ((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
40121 else{
40122 if(C_truep(t1)){
40123 t4=C_slot(((C_word*)t0)[2],C_fix(1));
40124 t5=C_fixnum_times(t1,C_fix(4));
40125 t6=C_slot(t4,t5);
40126 t7=C_slot(((C_word*)t0)[2],C_fix(1));
40127 t8=C_fixnum_times(t1,C_fix(4));
40128 t9=C_fixnum_plus(C_fix(1),t8);
40129 t10=C_slot(t7,t9);
40130 t11=C_slot(((C_word*)t0)[2],C_fix(1));
40131 t12=C_fixnum_times(t1,C_fix(4));
40132 t13=C_fixnum_plus(C_fix(2),t12);
40133 t14=C_slot(t11,t13);
40134 t15=C_slot(((C_word*)t0)[2],C_fix(1));
40135 t16=C_fixnum_times(t1,C_fix(4));
40136 /* irregex-core.scm:318: get-subchunk */
40137 t17=t3;{
40138 C_word *av2;
40139 if(c >= 6) {
40140   av2=av;
40141 } else {
40142   av2=C_alloc(6);
40143 }
40144 av2[0]=t17;
40145 av2[1]=((C_word*)t0)[3];
40146 av2[2]=t6;
40147 av2[3]=t10;
40148 av2[4]=t14;
40149 av2[5]=C_slot(t15,C_fixnum_plus(C_fix(3),t16));
40150 ((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}}
40151 else{
40152 t4=((C_word*)t0)[3];{
40153 C_word *av2=av;
40154 av2[0]=t4;
40155 av2[1]=C_SCHEME_FALSE;
40156 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
40157 
40158 /* chicken.irregex#make-irregex-chunker in k7761 in k7536 in k7533 */
f_8372(C_word c,C_word * av)40159 static void C_ccall f_8372(C_word c,C_word *av){
40160 C_word tmp;
40161 C_word t0=av[0];
40162 C_word t1=av[1];
40163 C_word t2=av[2];
40164 C_word t3=av[3];
40165 C_word t4;
40166 C_word *a;
40167 if(c<4) C_bad_min_argc_2(c,4,t0);
40168 C_check_for_interrupt;
40169 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +33,c,6)))){
40170 C_save_and_reclaim((void*)f_8372,c,av);}
40171 a=C_alloc((c-4)*C_SIZEOF_PAIR+33);
40172 t4=C_build_rest(&a,c,4,av);
40173 C_word t5;
40174 C_word t6;
40175 C_word t7;
40176 C_word t8;
40177 C_word t9;
40178 C_word t10;
40179 C_word t11;
40180 C_word t12;
40181 C_word t13;
40182 C_word t14;
40183 C_word t15;
40184 C_word t16;
40185 C_word t17;
40186 C_word t18;
40187 C_word t19;
40188 C_word t20;
40189 C_word t21;
40190 C_word t22;
40191 C_word t23;
40192 C_word t24;
40193 C_word t25;
40194 t5=C_i_pairp(t4);
40195 t6=(C_truep(t5)?C_get_rest_arg(c,4,av,4,t0):C_SCHEME_FALSE);
40196 t7=(C_truep(t6)?t6:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8564,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
40197 t8=C_i_pairp(t4);
40198 t9=(C_truep(t8)?C_i_cdr(t4):t4);
40199 t10=C_i_pairp(t9);
40200 t11=(C_truep(t10)?C_u_i_car(t9):C_SCHEME_FALSE);
40201 t12=(C_truep(t11)?t11:(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8547,a[2]=t3,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp));
40202 t13=C_i_pairp(t9);
40203 t14=(C_truep(t13)?C_u_i_cdr(t9):t9);
40204 t15=C_i_pairp(t14);
40205 t16=(C_truep(t15)?C_u_i_car(t14):C_SCHEME_FALSE);
40206 t17=(C_truep(t16)?t16:(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8446,a[2]=t3,a[3]=t7,a[4]=t12,a[5]=t2,a[6]=((C_word)li22),tmp=(C_word)a,a+=7,tmp));
40207 t18=C_i_pairp(t14);
40208 t19=(C_truep(t18)?C_u_i_cdr(t14):t14);
40209 t20=C_i_pairp(t19);
40210 t21=(C_truep(t20)?C_u_i_car(t19):C_SCHEME_FALSE);
40211 t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8406,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t7,a[6]=t12,a[7]=t17,a[8]=t21,tmp=(C_word)a,a+=9,tmp);
40212 t23=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8412,a[2]=t22,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t7,a[7]=t12,a[8]=t17,a[9]=t21,tmp=(C_word)a,a+=10,tmp);
40213 if(C_truep(C_i_closurep(t2))){
40214 if(C_truep(C_i_closurep(t3))){
40215 t24=C_i_closurep(t7);
40216 t25=t23;
40217 f_8412(t25,(C_truep(t24)?C_i_not(C_i_closurep(t17)):C_SCHEME_TRUE));}
40218 else{
40219 t24=t23;
40220 f_8412(t24,C_SCHEME_TRUE);}}
40221 else{
40222 t24=t23;
40223 f_8412(t24,C_SCHEME_TRUE);}}
40224 
40225 /* k8404 in chicken.irregex#make-irregex-chunker in k7761 in k7536 in k7533 */
f_8406(C_word c,C_word * av)40226 static void C_ccall f_8406(C_word c,C_word *av){
40227 C_word tmp;
40228 C_word t0=av[0];
40229 C_word t1=av[1];
40230 C_word t2;
40231 C_word *a;
40232 C_check_for_interrupt;
40233 if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
40234 C_save_and_reclaim((void *)f_8406,c,av);}
40235 a=C_alloc(7);
40236 t2=((C_word*)t0)[2];{
40237 C_word *av2=av;
40238 av2[0]=t2;
40239 av2[1]=C_a_i_vector6(&a,6,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);
40240 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
40241 
40242 /* k8410 in chicken.irregex#make-irregex-chunker in k7761 in k7536 in k7533 */
f_8412(C_word t0,C_word t1)40243 static void C_fcall f_8412(C_word t0,C_word t1){
40244 C_word tmp;
40245 C_word t2;
40246 C_word *a;
40247 C_check_for_interrupt;
40248 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
40249 C_save_and_reclaim_args((void *)trf_8412,2,t0,t1);}
40250 a=C_alloc(7);
40251 if(C_truep(t1)){
40252 /* irregex-core.scm:356: chicken.base#error */
40253 t2=*((C_word*)lf[30]+1);{
40254 C_word av2[4];
40255 av2[0]=t2;
40256 av2[1]=((C_word*)t0)[2];
40257 av2[2]=lf[48];
40258 av2[3]=lf[49];
40259 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
40260 else{
40261 t2=((C_word*)t0)[3];{
40262 C_word av2[2];
40263 av2[0]=t2;
40264 av2[1]=C_a_i_vector6(&a,6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);
40265 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
40266 
40267 /* f_8446 in chicken.irregex#make-irregex-chunker in k7761 in k7536 in k7533 */
f_8446(C_word c,C_word * av)40268 static void C_ccall f_8446(C_word c,C_word *av){
40269 C_word tmp;
40270 C_word t0=av[0];
40271 C_word t1=av[1];
40272 C_word t2=av[2];
40273 C_word t3=av[3];
40274 C_word t4=av[4];
40275 C_word t5=av[5];
40276 C_word t6;
40277 C_word t7;
40278 C_word t8;
40279 C_word *a;
40280 if(c!=6) C_bad_argc_2(c,6,t0);
40281 C_check_for_interrupt;
40282 if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
40283 C_save_and_reclaim((void *)f_8446,c,av);}
40284 a=C_alloc(11);
40285 t6=C_eqp(t2,t4);
40286 if(C_truep(t6)){
40287 t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8460,a[2]=t1,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
40288 /* irregex-core.scm:336: get-str */
40289 t8=((C_word*)t0)[2];{
40290 C_word *av2=av;
40291 av2[0]=t8;
40292 av2[1]=t7;
40293 av2[2]=t2;
40294 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
40295 else{
40296 t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8467,a[2]=t4,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=t3,a[10]=t2,tmp=(C_word)a,a+=11,tmp);
40297 /* irregex-core.scm:337: get-next */
40298 t8=((C_word*)t0)[5];{
40299 C_word *av2=av;
40300 av2[0]=t8;
40301 av2[1]=t7;
40302 av2[2]=t2;
40303 ((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
40304 
40305 /* k8458 */
f_8460(C_word c,C_word * av)40306 static void C_ccall f_8460(C_word c,C_word *av){
40307 C_word tmp;
40308 C_word t0=av[0];
40309 C_word t1=av[1];
40310 C_word t2;
40311 C_word *a;
40312 C_check_for_interrupt;
40313 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
40314 C_save_and_reclaim((void *)f_8460,c,av);}
40315 /* irregex-core.scm:336: scheme#substring */
40316 t2=*((C_word*)lf[46]+1);{
40317 C_word *av2;
40318 if(c >= 5) {
40319   av2=av;
40320 } else {
40321   av2=C_alloc(5);
40322 }
40323 av2[0]=t2;
40324 av2[1]=((C_word*)t0)[2];
40325 av2[2]=t1;
40326 av2[3]=((C_word*)t0)[3];
40327 av2[4]=((C_word*)t0)[4];
40328 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
40329 
40330 /* k8465 */
f_8467(C_word c,C_word * av)40331 static void C_ccall f_8467(C_word c,C_word *av){
40332 C_word tmp;
40333 C_word t0=av[0];
40334 C_word t1=av[1];
40335 C_word t2;
40336 C_word t3;
40337 C_word t4;
40338 C_word *a;
40339 C_check_for_interrupt;
40340 if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
40341 C_save_and_reclaim((void *)f_8467,c,av);}
40342 a=C_alloc(16);
40343 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8530,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]=t1,tmp=(C_word)a,a+=10,tmp);
40344 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8534,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
40345 /* irregex-core.scm:338: get-str */
40346 t4=((C_word*)t0)[5];{
40347 C_word *av2;
40348 if(c >= 3) {
40349   av2=av;
40350 } else {
40351   av2=C_alloc(3);
40352 }
40353 av2[0]=t4;
40354 av2[1]=t3;
40355 av2[2]=((C_word*)t0)[10];
40356 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40357 
40358 /* loop in k8528 in k8465 */
f_8473(C_word t0,C_word t1,C_word t2,C_word t3)40359 static void C_fcall f_8473(C_word t0,C_word t1,C_word t2,C_word t3){
40360 C_word tmp;
40361 C_word t4;
40362 C_word t5;
40363 C_word t6;
40364 C_word t7;
40365 C_word *a;
40366 C_check_for_interrupt;
40367 if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
40368 C_save_and_reclaim_args((void *)trf_8473,4,t0,t1,t2,t3);}
40369 a=C_alloc(10);
40370 t4=C_eqp(t2,((C_word*)t0)[2]);
40371 if(C_truep(t4)){
40372 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8491,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
40373 t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8495,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
40374 /* irregex-core.scm:343: get-str */
40375 t7=((C_word*)t0)[5];{
40376 C_word av2[3];
40377 av2[0]=t7;
40378 av2[1]=t6;
40379 av2[2]=t2;
40380 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
40381 else{
40382 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8506,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=((C_word*)t0)[7],a[6]=t2,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
40383 /* irregex-core.scm:347: get-next */
40384 t6=((C_word*)t0)[8];{
40385 C_word av2[3];
40386 av2[0]=t6;
40387 av2[1]=t5;
40388 av2[2]=t2;
40389 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
40390 
40391 /* k8489 in loop in k8528 in k8465 */
f_8491(C_word c,C_word * av)40392 static void C_ccall f_8491(C_word c,C_word *av){
40393 C_word tmp;
40394 C_word t0=av[0];
40395 C_word t1=av[1];
40396 C_word t2;
40397 C_word t3;
40398 C_word *a;
40399 C_check_for_interrupt;
40400 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
40401 C_save_and_reclaim((void *)f_8491,c,av);}
40402 a=C_alloc(3);
40403 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
40404 /* irregex-core.scm:342: string-cat-reverse */
40405 f_9108(((C_word*)t0)[3],t2);}
40406 
40407 /* k8493 in loop in k8528 in k8465 */
f_8495(C_word c,C_word * av)40408 static void C_ccall f_8495(C_word c,C_word *av){
40409 C_word tmp;
40410 C_word t0=av[0];
40411 C_word t1=av[1];
40412 C_word t2;
40413 C_word t3;
40414 C_word *a;
40415 C_check_for_interrupt;
40416 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
40417 C_save_and_reclaim((void *)f_8495,c,av);}
40418 a=C_alloc(5);
40419 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8499,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
40420 /* irregex-core.scm:344: get-start */
40421 t3=((C_word*)t0)[4];{
40422 C_word *av2;
40423 if(c >= 3) {
40424   av2=av;
40425 } else {
40426   av2=C_alloc(3);
40427 }
40428 av2[0]=t3;
40429 av2[1]=t2;
40430 av2[2]=((C_word*)t0)[5];
40431 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
40432 
40433 /* k8497 in k8493 in loop in k8528 in k8465 */
f_8499(C_word c,C_word * av)40434 static void C_ccall f_8499(C_word c,C_word *av){
40435 C_word tmp;
40436 C_word t0=av[0];
40437 C_word t1=av[1];
40438 C_word t2;
40439 C_word *a;
40440 C_check_for_interrupt;
40441 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
40442 C_save_and_reclaim((void *)f_8499,c,av);}
40443 /* irregex-core.scm:343: scheme#substring */
40444 t2=*((C_word*)lf[46]+1);{
40445 C_word *av2;
40446 if(c >= 5) {
40447   av2=av;
40448 } else {
40449   av2=C_alloc(5);
40450 }
40451 av2[0]=t2;
40452 av2[1]=((C_word*)t0)[2];
40453 av2[2]=((C_word*)t0)[3];
40454 av2[3]=t1;
40455 av2[4]=((C_word*)t0)[4];
40456 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
40457 
40458 /* k8504 in loop in k8528 in k8465 */
f_8506(C_word c,C_word * av)40459 static void C_ccall f_8506(C_word c,C_word *av){
40460 C_word tmp;
40461 C_word t0=av[0];
40462 C_word t1=av[1];
40463 C_word t2;
40464 C_word t3;
40465 C_word t4;
40466 C_word *a;
40467 C_check_for_interrupt;
40468 if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
40469 C_save_and_reclaim((void *)f_8506,c,av);}
40470 a=C_alloc(12);
40471 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8514,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
40472 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8518,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
40473 /* irregex-core.scm:348: get-str */
40474 t4=((C_word*)t0)[8];{
40475 C_word *av2;
40476 if(c >= 3) {
40477   av2=av;
40478 } else {
40479   av2=C_alloc(3);
40480 }
40481 av2[0]=t4;
40482 av2[1]=t3;
40483 av2[2]=((C_word*)t0)[6];
40484 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40485 
40486 /* k8512 in k8504 in loop in k8528 in k8465 */
f_8514(C_word c,C_word * av)40487 static void C_ccall f_8514(C_word c,C_word *av){
40488 C_word tmp;
40489 C_word t0=av[0];
40490 C_word t1=av[1];
40491 C_word t2;
40492 C_word t3;
40493 C_word *a;
40494 C_check_for_interrupt;
40495 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
40496 C_save_and_reclaim((void *)f_8514,c,av);}
40497 a=C_alloc(3);
40498 t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
40499 /* irregex-core.scm:347: loop */
40500 t3=((C_word*)((C_word*)t0)[3])[1];
40501 f_8473(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}
40502 
40503 /* k8516 in k8504 in loop in k8528 in k8465 */
f_8518(C_word c,C_word * av)40504 static void C_ccall f_8518(C_word c,C_word *av){
40505 C_word tmp;
40506 C_word t0=av[0];
40507 C_word t1=av[1];
40508 C_word t2;
40509 C_word t3;
40510 C_word *a;
40511 C_check_for_interrupt;
40512 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
40513 C_save_and_reclaim((void *)f_8518,c,av);}
40514 a=C_alloc(6);
40515 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8522,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);
40516 /* irregex-core.scm:349: get-start */
40517 t3=((C_word*)t0)[5];{
40518 C_word *av2;
40519 if(c >= 3) {
40520   av2=av;
40521 } else {
40522   av2=C_alloc(3);
40523 }
40524 av2[0]=t3;
40525 av2[1]=t2;
40526 av2[2]=((C_word*)t0)[4];
40527 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
40528 
40529 /* k8520 in k8516 in k8504 in loop in k8528 in k8465 */
f_8522(C_word c,C_word * av)40530 static void C_ccall f_8522(C_word c,C_word *av){
40531 C_word tmp;
40532 C_word t0=av[0];
40533 C_word t1=av[1];
40534 C_word t2;
40535 C_word t3;
40536 C_word *a;
40537 C_check_for_interrupt;
40538 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
40539 C_save_and_reclaim((void *)f_8522,c,av);}
40540 a=C_alloc(5);
40541 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8526,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
40542 /* irregex-core.scm:350: get-end */
40543 t3=((C_word*)t0)[4];{
40544 C_word *av2;
40545 if(c >= 3) {
40546   av2=av;
40547 } else {
40548   av2=C_alloc(3);
40549 }
40550 av2[0]=t3;
40551 av2[1]=t2;
40552 av2[2]=((C_word*)t0)[5];
40553 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
40554 
40555 /* k8524 in k8520 in k8516 in k8504 in loop in k8528 in k8465 */
f_8526(C_word c,C_word * av)40556 static void C_ccall f_8526(C_word c,C_word *av){
40557 C_word tmp;
40558 C_word t0=av[0];
40559 C_word t1=av[1];
40560 C_word t2;
40561 C_word *a;
40562 C_check_for_interrupt;
40563 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
40564 C_save_and_reclaim((void *)f_8526,c,av);}
40565 /* irregex-core.scm:348: scheme#substring */
40566 t2=*((C_word*)lf[46]+1);{
40567 C_word *av2;
40568 if(c >= 5) {
40569   av2=av;
40570 } else {
40571   av2=C_alloc(5);
40572 }
40573 av2[0]=t2;
40574 av2[1]=((C_word*)t0)[2];
40575 av2[2]=((C_word*)t0)[3];
40576 av2[3]=((C_word*)t0)[4];
40577 av2[4]=t1;
40578 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
40579 
40580 /* k8528 in k8465 */
f_8530(C_word c,C_word * av)40581 static void C_ccall f_8530(C_word c,C_word *av){
40582 C_word tmp;
40583 C_word t0=av[0];
40584 C_word t1=av[1];
40585 C_word t2;
40586 C_word t3;
40587 C_word t4;
40588 C_word t5;
40589 C_word t6;
40590 C_word *a;
40591 C_check_for_interrupt;
40592 if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
40593 C_save_and_reclaim((void *)f_8530,c,av);}
40594 a=C_alloc(15);
40595 t2=C_a_i_list1(&a,1,t1);
40596 t3=C_SCHEME_UNDEFINED;
40597 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
40598 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8473,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]=t4,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li21),tmp=(C_word)a,a+=10,tmp));
40599 t6=((C_word*)t4)[1];
40600 f_8473(t6,((C_word*)t0)[8],((C_word*)t0)[9],t2);}
40601 
40602 /* k8532 in k8465 */
f_8534(C_word c,C_word * av)40603 static void C_ccall f_8534(C_word c,C_word *av){
40604 C_word tmp;
40605 C_word t0=av[0];
40606 C_word t1=av[1];
40607 C_word t2;
40608 C_word t3;
40609 C_word *a;
40610 C_check_for_interrupt;
40611 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
40612 C_save_and_reclaim((void *)f_8534,c,av);}
40613 a=C_alloc(5);
40614 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8538,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
40615 /* irregex-core.scm:340: get-end */
40616 t3=((C_word*)t0)[4];{
40617 C_word *av2;
40618 if(c >= 3) {
40619   av2=av;
40620 } else {
40621   av2=C_alloc(3);
40622 }
40623 av2[0]=t3;
40624 av2[1]=t2;
40625 av2[2]=((C_word*)t0)[5];
40626 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
40627 
40628 /* k8536 in k8532 in k8465 */
f_8538(C_word c,C_word * av)40629 static void C_ccall f_8538(C_word c,C_word *av){
40630 C_word tmp;
40631 C_word t0=av[0];
40632 C_word t1=av[1];
40633 C_word t2;
40634 C_word *a;
40635 C_check_for_interrupt;
40636 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
40637 C_save_and_reclaim((void *)f_8538,c,av);}
40638 /* irregex-core.scm:338: scheme#substring */
40639 t2=*((C_word*)lf[46]+1);{
40640 C_word *av2;
40641 if(c >= 5) {
40642   av2=av;
40643 } else {
40644   av2=C_alloc(5);
40645 }
40646 av2[0]=t2;
40647 av2[1]=((C_word*)t0)[2];
40648 av2[2]=((C_word*)t0)[3];
40649 av2[3]=((C_word*)t0)[4];
40650 av2[4]=t1;
40651 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
40652 
40653 /* f_8547 in chicken.irregex#make-irregex-chunker in k7761 in k7536 in k7533 */
f_8547(C_word c,C_word * av)40654 static void C_ccall f_8547(C_word c,C_word *av){
40655 C_word tmp;
40656 C_word t0=av[0];
40657 C_word t1=av[1];
40658 C_word t2=av[2];
40659 C_word t3;
40660 C_word t4;
40661 C_word *a;
40662 if(c!=3) C_bad_argc_2(c,3,t0);
40663 C_check_for_interrupt;
40664 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
40665 C_save_and_reclaim((void *)f_8547,c,av);}
40666 a=C_alloc(3);
40667 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8555,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
40668 /* irregex-core.scm:330: get-str */
40669 t4=((C_word*)t0)[2];{
40670 C_word *av2=av;
40671 av2[0]=t4;
40672 av2[1]=t3;
40673 av2[2]=t2;
40674 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40675 
40676 /* k8553 */
f_8555(C_word c,C_word * av)40677 static void C_ccall f_8555(C_word c,C_word *av){
40678 C_word tmp;
40679 C_word t0=av[0];
40680 C_word t1=av[1];
40681 C_word t2;
40682 C_word *a;
40683 C_check_for_interrupt;
40684 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
40685 C_save_and_reclaim((void *)f_8555,c,av);}
40686 t2=((C_word*)t0)[2];{
40687 C_word *av2=av;
40688 av2[0]=t2;
40689 av2[1]=C_i_string_length(t1);
40690 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
40691 
40692 /* f_8564 in chicken.irregex#make-irregex-chunker in k7761 in k7536 in k7533 */
f_8564(C_word c,C_word * av)40693 static void C_ccall f_8564(C_word c,C_word *av){
40694 C_word tmp;
40695 C_word t0=av[0];
40696 C_word t1=av[1];
40697 C_word t2=av[2];
40698 C_word t3;
40699 C_word *a;
40700 if(c!=3) C_bad_argc_2(c,3,t0);
40701 C_check_for_interrupt;
40702 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
40703 C_save_and_reclaim((void *)f_8564,c,av);}
40704 t3=t1;{
40705 C_word *av2=av;
40706 av2[0]=t3;
40707 av2[1]=C_fix(0);
40708 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
40709 
40710 /* lp in chicken.irregex#chunker-prev-char in k7761 in k7536 in k7533 */
f_8622(C_word t0,C_word t1,C_word t2)40711 static void C_fcall f_8622(C_word t0,C_word t1,C_word t2){
40712 C_word tmp;
40713 C_word t3;
40714 C_word t4;
40715 C_word *a;
40716 C_check_for_interrupt;
40717 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
40718 C_save_and_reclaim_args((void *)trf_8622,3,t0,t1,t2);}
40719 a=C_alloc(6);
40720 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8626,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);
40721 /* irregex-core.scm:371: get-next */
40722 t4=((C_word*)t0)[4];{
40723 C_word av2[3];
40724 av2[0]=t4;
40725 av2[1]=t3;
40726 av2[2]=t2;
40727 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40728 
40729 /* k8624 in lp in chicken.irregex#chunker-prev-char in k7761 in k7536 in k7533 */
f_8626(C_word c,C_word * av)40730 static void C_ccall f_8626(C_word c,C_word *av){
40731 C_word tmp;
40732 C_word t0=av[0];
40733 C_word t1=av[1];
40734 C_word t2;
40735 C_word t3;
40736 C_word *a;
40737 C_check_for_interrupt;
40738 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
40739 C_save_and_reclaim((void *)f_8626,c,av);}
40740 t2=C_eqp(t1,((C_word*)t0)[2]);
40741 if(C_truep(t2)){
40742 t3=((C_word*)t0)[3];{
40743 C_word *av2=av;
40744 av2[0]=t3;
40745 av2[1]=((C_word*)t0)[4];
40746 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
40747 else{
40748 if(C_truep(t1)){
40749 /* irregex-core.scm:374: lp */
40750 t3=((C_word*)((C_word*)t0)[5])[1];
40751 f_8622(t3,((C_word*)t0)[3],t1);}
40752 else{
40753 t3=((C_word*)t0)[3];{
40754 C_word *av2=av;
40755 av2[0]=t3;
40756 av2[1]=C_SCHEME_FALSE;
40757 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}
40758 
40759 /* chicken.irregex#chunker-prev-char in k7761 in k7536 in k7533 */
f_8640(C_word t1,C_word t2,C_word t3,C_word t4)40760 static void C_fcall f_8640(C_word t1,C_word t2,C_word t3,C_word t4){
40761 C_word tmp;
40762 C_word t5;
40763 C_word t6;
40764 C_word t7;
40765 C_word t8;
40766 C_word t9;
40767 C_word t10;
40768 C_word t11;
40769 C_word *a;
40770 C_check_for_interrupt;
40771 if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
40772 C_save_and_reclaim_args((void *)trf_8640,4,t1,t2,t3,t4);}
40773 a=C_alloc(12);
40774 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8644,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
40775 t6=C_eqp(t3,t4);
40776 if(C_truep(t6)){
40777 t7=t5;{
40778 C_word av2[2];
40779 av2[0]=t7;
40780 av2[1]=C_SCHEME_FALSE;
40781 f_8644(2,av2);}}
40782 else{
40783 t7=C_i_vector_ref(t2,C_fix(0));
40784 t8=C_SCHEME_UNDEFINED;
40785 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
40786 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8622,a[2]=t4,a[3]=t9,a[4]=t7,a[5]=((C_word)li24),tmp=(C_word)a,a+=6,tmp));
40787 t11=((C_word*)t9)[1];
40788 f_8622(t11,t5,t3);}}
40789 
40790 /* k8642 in chicken.irregex#chunker-prev-char in k7761 in k7536 in k7533 */
f_8644(C_word c,C_word * av)40791 static void C_ccall f_8644(C_word c,C_word *av){
40792 C_word tmp;
40793 C_word t0=av[0];
40794 C_word t1=av[1];
40795 C_word t2;
40796 C_word t3;
40797 C_word t4;
40798 C_word *a;
40799 C_check_for_interrupt;
40800 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
40801 C_save_and_reclaim((void *)f_8644,c,av);}
40802 a=C_alloc(5);
40803 if(C_truep(t1)){
40804 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
40805 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
40806 /* irregex-core.scm:379: g994 */
40807 t4=t2;{
40808 C_word *av2;
40809 if(c >= 3) {
40810   av2=av;
40811 } else {
40812   av2=C_alloc(3);
40813 }
40814 av2[0]=t4;
40815 av2[1]=t3;
40816 av2[2]=t1;
40817 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40818 else{
40819 t2=((C_word*)t0)[3];{
40820 C_word *av2=av;
40821 av2[0]=t2;
40822 av2[1]=C_SCHEME_FALSE;
40823 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
40824 
40825 /* k8655 in k8642 in chicken.irregex#chunker-prev-char in k7761 in k7536 in k7533 */
f_8657(C_word c,C_word * av)40826 static void C_ccall f_8657(C_word c,C_word *av){
40827 C_word tmp;
40828 C_word t0=av[0];
40829 C_word t1=av[1];
40830 C_word t2;
40831 C_word t3;
40832 C_word t4;
40833 C_word *a;
40834 C_check_for_interrupt;
40835 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
40836 C_save_and_reclaim((void *)f_8657,c,av);}
40837 a=C_alloc(4);
40838 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));
40839 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8668,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
40840 /* irregex-core.scm:380: g996 */
40841 t4=t2;{
40842 C_word *av2;
40843 if(c >= 3) {
40844   av2=av;
40845 } else {
40846   av2=C_alloc(3);
40847 }
40848 av2[0]=t4;
40849 av2[1]=t3;
40850 av2[2]=((C_word*)t0)[4];
40851 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40852 
40853 /* k8666 in k8655 in k8642 in chicken.irregex#chunker-prev-char in k7761 in k7536 in k7533 */
f_8668(C_word c,C_word * av)40854 static void C_ccall f_8668(C_word c,C_word *av){
40855 C_word tmp;
40856 C_word t0=av[0];
40857 C_word t1=av[1];
40858 C_word t2;
40859 C_word *a;
40860 C_check_for_interrupt;
40861 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
40862 C_save_and_reclaim((void *)f_8668,c,av);}
40863 t2=((C_word*)t0)[2];{
40864 C_word *av2=av;
40865 av2[0]=t2;
40866 av2[1]=C_i_string_ref(((C_word*)t0)[3],C_fixnum_difference(t1,C_fix(1)));
40867 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
40868 
40869 /* chicken.irregex#chunker-next-char in k7761 in k7536 in k7533 */
f_8670(C_word t1,C_word t2,C_word t3)40870 static void C_fcall f_8670(C_word t1,C_word t2,C_word t3){
40871 C_word tmp;
40872 C_word t4;
40873 C_word t5;
40874 C_word t6;
40875 C_word *a;
40876 C_check_for_interrupt;
40877 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
40878 C_save_and_reclaim_args((void *)trf_8670,3,t1,t2,t3);}
40879 a=C_alloc(4);
40880 t4=C_i_vector_ref(t2,C_fix(0));
40881 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8677,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
40882 /* irregex-core.scm:383: g1002 */
40883 t6=t4;{
40884 C_word av2[3];
40885 av2[0]=t6;
40886 av2[1]=t5;
40887 av2[2]=t3;
40888 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
40889 
40890 /* k8675 in chicken.irregex#chunker-next-char in k7761 in k7536 in k7533 */
f_8677(C_word c,C_word * av)40891 static void C_ccall f_8677(C_word c,C_word *av){
40892 C_word tmp;
40893 C_word t0=av[0];
40894 C_word t1=av[1];
40895 C_word t2;
40896 C_word t3;
40897 C_word t4;
40898 C_word *a;
40899 C_check_for_interrupt;
40900 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
40901 C_save_and_reclaim((void *)f_8677,c,av);}
40902 a=C_alloc(5);
40903 if(C_truep(t1)){
40904 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1));
40905 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
40906 /* irregex-core.scm:385: g1005 */
40907 t4=t2;{
40908 C_word *av2;
40909 if(c >= 3) {
40910   av2=av;
40911 } else {
40912   av2=C_alloc(3);
40913 }
40914 av2[0]=t4;
40915 av2[1]=t3;
40916 av2[2]=t1;
40917 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40918 else{
40919 t2=((C_word*)t0)[3];{
40920 C_word *av2=av;
40921 av2[0]=t2;
40922 av2[1]=C_SCHEME_FALSE;
40923 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
40924 
40925 /* k8688 in k8675 in chicken.irregex#chunker-next-char in k7761 in k7536 in k7533 */
f_8690(C_word c,C_word * av)40926 static void C_ccall f_8690(C_word c,C_word *av){
40927 C_word tmp;
40928 C_word t0=av[0];
40929 C_word t1=av[1];
40930 C_word t2;
40931 C_word t3;
40932 C_word t4;
40933 C_word *a;
40934 C_check_for_interrupt;
40935 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
40936 C_save_and_reclaim((void *)f_8690,c,av);}
40937 a=C_alloc(4);
40938 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));
40939 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8697,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
40940 /* irregex-core.scm:385: g1007 */
40941 t4=t2;{
40942 C_word *av2;
40943 if(c >= 3) {
40944   av2=av;
40945 } else {
40946   av2=C_alloc(3);
40947 }
40948 av2[0]=t4;
40949 av2[1]=t3;
40950 av2[2]=((C_word*)t0)[4];
40951 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40952 
40953 /* k8695 in k8688 in k8675 in chicken.irregex#chunker-next-char in k7761 in k7536 in k7533 */
f_8697(C_word c,C_word * av)40954 static void C_ccall f_8697(C_word c,C_word *av){
40955 C_word tmp;
40956 C_word t0=av[0];
40957 C_word t1=av[1];
40958 C_word t2;
40959 C_word *a;
40960 C_check_for_interrupt;
40961 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
40962 C_save_and_reclaim((void *)f_8697,c,av);}
40963 t2=((C_word*)t0)[2];{
40964 C_word *av2=av;
40965 av2[0]=t2;
40966 av2[1]=C_i_string_ref(((C_word*)t0)[3],t1);
40967 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
40968 
40969 /* a8735 */
f_8736(C_word c,C_word * av)40970 static void C_ccall f_8736(C_word c,C_word *av){
40971 C_word tmp;
40972 C_word t0=av[0];
40973 C_word t1=av[1];
40974 C_word t2=av[2];
40975 C_word t3;
40976 C_word t4;
40977 C_word *a;
40978 if(c!=3) C_bad_argc_2(c,3,t0);
40979 C_check_for_interrupt;
40980 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
40981 C_save_and_reclaim((void *)f_8736,c,av);}
40982 t3=C_eqp(t2,((C_word*)t0)[2]);
40983 if(C_truep(C_i_not(t3))){
40984 /* irregex-core.scm:400: g1024 */
40985 t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));{
40986 C_word *av2=av;
40987 av2[0]=t4;
40988 av2[1]=t1;
40989 av2[2]=t2;
40990 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
40991 else{
40992 t4=t1;{
40993 C_word *av2=av;
40994 av2[0]=t4;
40995 av2[1]=C_SCHEME_FALSE;
40996 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
40997 
40998 /* a8762 */
f_8763(C_word c,C_word * av)40999 static void C_ccall f_8763(C_word c,C_word *av){
41000 C_word tmp;
41001 C_word t0=av[0];
41002 C_word t1=av[1];
41003 C_word t2=av[2];
41004 C_word t3;
41005 C_word t4;
41006 C_word t5;
41007 C_word t6;
41008 C_word *a;
41009 if(c!=3) C_bad_argc_2(c,3,t0);
41010 C_check_for_interrupt;
41011 if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
41012 C_save_and_reclaim((void *)f_8763,c,av);}
41013 a=C_alloc(7);
41014 t3=C_eqp(t2,((C_word*)t0)[2]);
41015 if(C_truep(t3)){
41016 if(C_truep(t3)){
41017 t4=t1;{
41018 C_word *av2=av;
41019 av2[0]=t4;
41020 av2[1]=((C_word*)t0)[3];
41021 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41022 else{
41023 /* irregex-core.scm:408: g1035 */
41024 t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(3));{
41025 C_word *av2=av;
41026 av2[0]=t4;
41027 av2[1]=t1;
41028 av2[2]=t2;
41029 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
41030 else{
41031 t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(0));
41032 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8802,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
41033 /* irregex-core.scm:409: g1031 */
41034 t6=t4;{
41035 C_word *av2=av;
41036 av2[0]=t6;
41037 av2[1]=t5;
41038 av2[2]=t2;
41039 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
41040 
41041 /* k8793 in k8800 in a8762 */
f_8795(C_word c,C_word * av)41042 static void C_ccall f_8795(C_word c,C_word *av){
41043 C_word tmp;
41044 C_word t0=av[0];
41045 C_word t1=av[1];
41046 C_word t2;
41047 C_word *a;
41048 C_check_for_interrupt;
41049 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
41050 C_save_and_reclaim((void *)f_8795,c,av);}
41051 if(C_truep(C_i_not(t1))){
41052 t2=((C_word*)t0)[2];{
41053 C_word *av2=av;
41054 av2[0]=t2;
41055 av2[1]=((C_word*)t0)[3];
41056 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
41057 else{
41058 /* irregex-core.scm:408: g1035 */
41059 t2=C_i_vector_ref(((C_word*)t0)[4],C_fix(3));{
41060 C_word *av2;
41061 if(c >= 3) {
41062   av2=av;
41063 } else {
41064   av2=C_alloc(3);
41065 }
41066 av2[0]=t2;
41067 av2[1]=((C_word*)t0)[2];
41068 av2[2]=((C_word*)t0)[5];
41069 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}
41070 
41071 /* k8800 in a8762 */
f_8802(C_word c,C_word * av)41072 static void C_ccall f_8802(C_word c,C_word *av){
41073 C_word tmp;
41074 C_word t0=av[0];
41075 C_word t1=av[1];
41076 C_word t2;
41077 C_word t3;
41078 C_word t4;
41079 C_word *a;
41080 C_check_for_interrupt;
41081 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
41082 C_save_and_reclaim((void *)f_8802,c,av);}
41083 a=C_alloc(6);
41084 if(C_truep(C_i_not(t1))){
41085 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0));
41086 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8795,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
41087 /* irregex-core.scm:410: g1033 */
41088 t4=t2;{
41089 C_word *av2;
41090 if(c >= 3) {
41091   av2=av;
41092 } else {
41093   av2=C_alloc(3);
41094 }
41095 av2[0]=t4;
41096 av2[1]=t3;
41097 av2[2]=((C_word*)t0)[6];
41098 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
41099 else{
41100 /* irregex-core.scm:408: g1035 */
41101 t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));{
41102 C_word *av2;
41103 if(c >= 3) {
41104   av2=av;
41105 } else {
41106   av2=C_alloc(3);
41107 }
41108 av2[0]=t2;
41109 av2[1]=((C_word*)t0)[3];
41110 av2[2]=((C_word*)t0)[5];
41111 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}}
41112 
41113 /* chicken.irregex#string-scan-char in k7761 in k7536 in k7533 */
f_8817(C_word c,C_word * av)41114 static void C_ccall f_8817(C_word c,C_word *av){
41115 C_word tmp;
41116 C_word t0=av[0];
41117 C_word t1=av[1];
41118 C_word t2=av[2];
41119 C_word t3=av[3];
41120 C_word t4;
41121 C_word *a;
41122 if(c<4) C_bad_min_argc_2(c,4,t0);
41123 C_check_for_interrupt;
41124 if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){
41125 C_save_and_reclaim((void*)f_8817,c,av);}
41126 a=C_alloc((c-4)*C_SIZEOF_PAIR+9);
41127 t4=C_build_rest(&a,c,4,av);
41128 C_word t5;
41129 C_word t6;
41130 C_word t7;
41131 C_word t8;
41132 C_word t9;
41133 C_word t10;
41134 C_word t11;
41135 t5=C_i_string_length(t2);
41136 t6=C_i_pairp(t4);
41137 t7=(C_truep(t6)?C_get_rest_arg(c,4,av,4,t0):C_fix(0));
41138 t8=C_SCHEME_UNDEFINED;
41139 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
41140 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8830,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t9,a[6]=((C_word)li27),tmp=(C_word)a,a+=7,tmp));
41141 t11=((C_word*)t9)[1];
41142 f_8830(t11,t1,t7);}
41143 
41144 /* scan in chicken.irregex#string-scan-char in k7761 in k7536 in k7533 */
f_8830(C_word t0,C_word t1,C_word t2)41145 static void C_fcall f_8830(C_word t0,C_word t1,C_word t2){
41146 C_word tmp;
41147 C_word t3;
41148 C_word t4;
41149 C_word t5;
41150 C_word t6;
41151 C_word t7;
41152 C_word t8;
41153 C_word t9;
41154 C_word *a;
41155 loop:
41156 C_check_for_interrupt;
41157 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
41158 C_save_and_reclaim_args((void *)trf_8830,3,t0,t1,t2);}
41159 a=C_alloc(5);
41160 t3=C_eqp(t2,((C_word*)t0)[2]);
41161 if(C_truep(t3)){
41162 t4=t1;{
41163 C_word av2[2];
41164 av2[0]=t4;
41165 av2[1]=C_SCHEME_FALSE;
41166 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41167 else{
41168 t4=C_i_string_ref(((C_word*)t0)[3],t2);
41169 t5=C_eqp(((C_word*)t0)[4],t4);
41170 if(C_truep(t5)){
41171 t6=t1;{
41172 C_word av2[2];
41173 av2[0]=t6;
41174 av2[1]=t2;
41175 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
41176 else{
41177 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
41178 /* irregex-core.scm:437: scan */
41179 t8=t1;
41180 t9=t6;
41181 t1=t8;
41182 t2=t9;
41183 goto loop;}}}
41184 
41185 /* scan in chicken.irregex#string-parse-hex-escape in k7761 in k7536 in k7533 */
f_8873(C_word t0,C_word t1,C_word t2)41186 static void C_fcall f_8873(C_word t0,C_word t1,C_word t2){
41187 C_word tmp;
41188 C_word t3;
41189 C_word t4;
41190 C_word t5;
41191 C_word t6;
41192 C_word t7;
41193 C_word t8;
41194 C_word t9;
41195 C_word *a;
41196 loop:
41197 C_check_for_interrupt;
41198 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
41199 C_save_and_reclaim_args((void *)trf_8873,3,t0,t1,t2);}
41200 a=C_alloc(5);
41201 t3=C_eqp(t2,((C_word*)t0)[2]);
41202 if(C_truep(t3)){
41203 t4=t1;{
41204 C_word av2[2];
41205 av2[0]=t4;
41206 av2[1]=C_SCHEME_FALSE;
41207 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41208 else{
41209 t4=C_i_string_ref(((C_word*)t0)[3],t2);
41210 t5=C_eqp(C_make_character(125),t4);
41211 if(C_truep(t5)){
41212 t6=t1;{
41213 C_word av2[2];
41214 av2[0]=t6;
41215 av2[1]=t2;
41216 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
41217 else{
41218 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
41219 /* irregex-core.scm:445: scan */
41220 t8=t1;
41221 t9=t6;
41222 t1=t8;
41223 t2=t9;
41224 goto loop;}}}
41225 
41226 /* scan in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_8930(C_word t0,C_word t1,C_word t2)41227 static void C_fcall f_8930(C_word t0,C_word t1,C_word t2){
41228 C_word tmp;
41229 C_word t3;
41230 C_word t4;
41231 C_word t5;
41232 C_word t6;
41233 C_word t7;
41234 C_word t8;
41235 C_word t9;
41236 C_word *a;
41237 loop:
41238 C_check_for_interrupt;
41239 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
41240 C_save_and_reclaim_args((void *)trf_8930,3,t0,t1,t2);}
41241 a=C_alloc(5);
41242 t3=C_eqp(t2,((C_word*)t0)[2]);
41243 if(C_truep(t3)){
41244 t4=t1;{
41245 C_word av2[2];
41246 av2[0]=t4;
41247 av2[1]=C_SCHEME_FALSE;
41248 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41249 else{
41250 t4=C_i_string_ref(((C_word*)t0)[3],t2);
41251 t5=C_u_i_char_numericp(t4);
41252 if(C_truep(C_i_not(t5))){
41253 t6=t1;{
41254 C_word av2[2];
41255 av2[0]=t6;
41256 av2[1]=t2;
41257 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
41258 else{
41259 t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
41260 /* irregex-core.scm:452: scan */
41261 t8=t1;
41262 t9=t6;
41263 t1=t8;
41264 t2=t9;
41265 goto loop;}}}
41266 
41267 /* lp in k12196 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_8968(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4)41268 static void C_fcall f_8968(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
41269 C_word tmp;
41270 C_word t5;
41271 C_word t6;
41272 C_word t7;
41273 C_word t8;
41274 C_word t9;
41275 C_word t10;
41276 C_word t11;
41277 C_word t12;
41278 C_word t13;
41279 C_word t14;
41280 C_word t15;
41281 C_word *a;
41282 loop:
41283 C_check_for_interrupt;
41284 if(C_unlikely(!C_demand(C_calculate_demand(23,0,4)))){
41285 C_save_and_reclaim_args((void *)trf_8968,5,t0,t1,t2,t3,t4);}
41286 a=C_alloc(23);
41287 t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8971,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=((C_word)li83),tmp=(C_word)a,a+=7,tmp);
41288 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[3]))){
41289 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8992,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
41290 /* irregex-core.scm:458: collect */
41291 t7=t5;
41292 f_8971(t7,t6);}
41293 else{
41294 t6=C_i_string_ref(((C_word*)t0)[2],t2);
41295 t7=C_eqp(C_make_character(44),t6);
41296 if(C_truep(t7)){
41297 t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
41298 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
41299 t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9011,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,a[5]=t9,tmp=(C_word)a,a+=6,tmp);
41300 /* irregex-core.scm:459: collect */
41301 t11=t5;
41302 f_8971(t11,t10);}
41303 else{
41304 t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
41305 /* irregex-core.scm:460: lp */
41306 t12=t1;
41307 t13=t8;
41308 t14=t3;
41309 t15=t4;
41310 t1=t12;
41311 t2=t13;
41312 t3=t14;
41313 t4=t15;
41314 goto loop;}}}
41315 
41316 /* collect in lp in k12196 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_8971(C_word t0,C_word t1)41317 static void C_fcall f_8971(C_word t0,C_word t1){
41318 C_word tmp;
41319 C_word t2;
41320 C_word t3;
41321 C_word *a;
41322 C_check_for_interrupt;
41323 if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
41324 C_save_and_reclaim_args((void *)trf_8971,2,t0,t1);}
41325 a=C_alloc(4);
41326 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8979,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
41327 /* irregex-core.scm:457: scheme#substring */
41328 t3=*((C_word*)lf[46]+1);{
41329 C_word av2[5];
41330 av2[0]=t3;
41331 av2[1]=t2;
41332 av2[2]=((C_word*)t0)[3];
41333 av2[3]=((C_word*)t0)[4];
41334 av2[4]=((C_word*)t0)[5];
41335 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
41336 
41337 /* k8977 in collect in lp in k12196 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_8979(C_word c,C_word * av)41338 static void C_ccall f_8979(C_word c,C_word *av){
41339 C_word tmp;
41340 C_word t0=av[0];
41341 C_word t1=av[1];
41342 C_word t2;
41343 C_word *a;
41344 C_check_for_interrupt;
41345 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
41346 C_save_and_reclaim((void *)f_8979,c,av);}
41347 a=C_alloc(3);
41348 t2=((C_word*)t0)[2];{
41349 C_word *av2=av;
41350 av2[0]=t2;
41351 av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
41352 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
41353 
41354 /* k8990 in lp in k12196 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_8992(C_word c,C_word * av)41355 static void C_ccall f_8992(C_word c,C_word *av){
41356 C_word tmp;
41357 C_word t0=av[0];
41358 C_word t1=av[1];
41359 C_word t2;
41360 C_word *a;
41361 C_check_for_interrupt;
41362 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
41363 C_save_and_reclaim((void *)f_8992,c,av);}
41364 /* irregex-core.scm:458: ##sys#fast-reverse */
41365 t2=*((C_word*)lf[69]+1);{
41366 C_word *av2;
41367 if(c >= 3) {
41368   av2=av;
41369 } else {
41370   av2=C_alloc(3);
41371 }
41372 av2[0]=t2;
41373 av2[1]=((C_word*)t0)[2];
41374 av2[2]=t1;
41375 ((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
41376 
41377 /* k9009 in lp in k12196 in k12068 in k12052 in k12043 in lp in k10475 in k10469 in chicken.irregex#string->sre in k7761 in k7536 in k7533 */
f_9011(C_word c,C_word * av)41378 static void C_ccall f_9011(C_word c,C_word *av){
41379 C_word tmp;
41380 C_word t0=av[0];
41381 C_word t1=av[1];
41382 C_word t2;
41383 C_word *a;
41384 C_check_for_interrupt;
41385 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
41386 C_save_and_reclaim((void *)f_9011,c,av);}
41387 /* irregex-core.scm:459: lp */
41388 t2=((C_word*)((C_word*)t0)[2])[1];
41389 f_8968(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}
41390 
41391 /* chicken.irregex#string-cat-reverse in k7761 in k7536 in k7533 */
f_9108(C_word t1,C_word t2)41392 static void C_fcall f_9108(C_word t1,C_word t2){
41393 C_word tmp;
41394 C_word t3;
41395 C_word t4;
41396 C_word t5;
41397 C_word *a;
41398 C_check_for_interrupt;
41399 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
41400 C_save_and_reclaim_args((void *)trf_9108,2,t1,t2);}
41401 a=C_alloc(7);
41402 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9116,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
41403 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9118,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp);
41404 /* irregex-core.scm:484: fold */
41405 f_9382(t3,t4,C_fix(0),t2);}
41406 
41407 /* k9114 in chicken.irregex#string-cat-reverse in k7761 in k7536 in k7533 */
f_9116(C_word c,C_word * av)41408 static void C_ccall f_9116(C_word c,C_word *av){
41409 C_word tmp;
41410 C_word t0=av[0];
41411 C_word t1=av[1];
41412 C_word t2;
41413 C_word t3;
41414 C_word *a;
41415 C_check_for_interrupt;
41416 if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
41417 C_save_and_reclaim((void *)f_9116,c,av);}
41418 a=C_alloc(5);
41419 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9132,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
41420 /* irregex-core.scm:488: scheme#make-string */
41421 t3=*((C_word*)lf[55]+1);{
41422 C_word *av2;
41423 if(c >= 3) {
41424   av2=av;
41425 } else {
41426   av2=C_alloc(3);
41427 }
41428 av2[0]=t3;
41429 av2[1]=t2;
41430 av2[2]=t1;
41431 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
41432 
41433 /* a9117 in chicken.irregex#string-cat-reverse in k7761 in k7536 in k7533 */
f_9118(C_word c,C_word * av)41434 static void C_ccall f_9118(C_word c,C_word *av){
41435 C_word tmp;
41436 C_word t0=av[0];
41437 C_word t1=av[1];
41438 C_word t2=av[2];
41439 C_word t3=av[3];
41440 C_word t4;
41441 C_word *a;
41442 if(c!=4) C_bad_argc_2(c,4,t0);
41443 C_check_for_interrupt;
41444 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
41445 C_save_and_reclaim((void *)f_9118,c,av);}
41446 t4=t1;{
41447 C_word *av2=av;
41448 av2[0]=t4;
41449 av2[1]=C_fixnum_plus(C_i_string_length(t2),t3);
41450 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41451 
41452 /* k9130 in k9114 in chicken.irregex#string-cat-reverse in k7761 in k7536 in k7533 */
f_9132(C_word c,C_word * av)41453 static void C_ccall f_9132(C_word c,C_word *av){
41454 C_word tmp;
41455 C_word t0=av[0];
41456 C_word t1=av[1];
41457 C_word t2;
41458 C_word t3;
41459 C_word t4;
41460 C_word *a;
41461 C_check_for_interrupt;
41462 if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
41463 C_save_and_reclaim((void *)f_9132,c,av);}
41464 a=C_alloc(4);
41465 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9137,a[2]=t1,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp);
41466 t3=(
41467   f_9137(t2,((C_word*)t0)[2],((C_word*)t0)[3])
41468 );
41469 t4=((C_word*)t0)[4];{
41470 C_word *av2=av;
41471 av2[0]=t4;
41472 av2[1]=t1;
41473 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41474 
41475 /* lp in k9130 in k9114 in chicken.irregex#string-cat-reverse in k7761 in k7536 in k7533 */
f_9137(C_word t0,C_word t1,C_word t2)41476 static C_word C_fcall f_9137(C_word t0,C_word t1,C_word t2){
41477 C_word tmp;
41478 C_word t3;
41479 C_word t4;
41480 C_word t5;
41481 C_word t6;
41482 C_word t7;
41483 C_word t8;
41484 C_word t9;
41485 C_stack_overflow_check;
41486 loop:{}
41487 if(C_truep(C_i_pairp(t2))){
41488 t3=C_u_i_car(t2);
41489 t4=C_i_string_length(t3);
41490 t5=C_fixnum_difference(t1,t4);
41491 t6=C_substring_copy(t3,((C_word*)t0)[2],C_fix(0),t4,t5);
41492 t8=t5;
41493 t9=C_u_i_cdr(t2);
41494 t1=t8;
41495 t2=t9;
41496 goto loop;}
41497 else{
41498 t3=C_SCHEME_UNDEFINED;
41499 return(t3);}}
41500 
41501 /* chicken.irregex#zero-to in k7761 in k7536 in k7533 */
f_9158(C_word t1,C_word t2)41502 static void C_fcall f_9158(C_word t1,C_word t2){
41503 C_word tmp;
41504 C_word t3;
41505 C_word t4;
41506 C_word t5;
41507 C_word t6;
41508 C_word t7;
41509 C_word *a;
41510 C_check_for_interrupt;
41511 if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
41512 C_save_and_reclaim_args((void *)trf_9158,2,t1,t2);}
41513 a=C_alloc(6);
41514 if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){
41515 t3=t1;{
41516 C_word av2[2];
41517 av2[0]=t3;
41518 av2[1]=C_SCHEME_END_OF_LIST;
41519 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
41520 else{
41521 t3=C_fixnum_difference(t2,C_fix(1));
41522 t4=C_SCHEME_UNDEFINED;
41523 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
41524 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9174,a[2]=t5,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp));
41525 t7=((C_word*)t5)[1];
41526 f_9174(t7,t1,t3,C_SCHEME_END_OF_LIST);}}
41527 
41528 /* lp in chicken.irregex#zero-to in k7761 in k7536 in k7533 */
f_9174(C_word t0,C_word t1,C_word t2,C_word t3)41529 static void C_fcall f_9174(C_word t0,C_word t1,C_word t2,C_word t3){
41530 C_word tmp;
41531 C_word t4;
41532 C_word t5;
41533 C_word t6;
41534 C_word t7;
41535 C_word t8;
41536 C_word t9;
41537 C_word *a;
41538 loop:
41539 C_check_for_interrupt;
41540 if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
41541 C_save_and_reclaim_args((void *)trf_9174,4,t0,t1,t2,t3);}
41542 a=C_alloc(3);
41543 if(C_truep(C_i_zerop(t2))){
41544 t4=t1;{
41545 C_word av2[2];
41546 av2[0]=t4;
41547 av2[1]=C_a_i_cons(&a,2,C_fix(0),t3);
41548 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41549 else{
41550 t4=C_fixnum_difference(t2,C_fix(1));
41551 t5=C_a_i_cons(&a,2,t2,t3);
41552 /* irregex-core.scm:506: lp */
41553 t7=t1;
41554 t8=t4;
41555 t9=t5;
41556 t1=t7;
41557 t2=t8;
41558 t3=t9;
41559 goto loop;}}
41560 
41561 /* chicken.irregex#find in k7761 in k7536 in k7533 */
f_9195(C_word t1,C_word t2,C_word t3)41562 static void C_fcall f_9195(C_word t1,C_word t2,C_word t3){
41563 C_word tmp;
41564 C_word t4;
41565 C_word t5;
41566 C_word t6;
41567 C_word t7;
41568 C_word *a;
41569 C_check_for_interrupt;
41570 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
41571 C_save_and_reclaim_args((void *)trf_9195,3,t1,t2,t3);}
41572 a=C_alloc(7);
41573 t4=C_SCHEME_UNDEFINED;
41574 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
41575 t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9201,a[2]=t5,a[3]=t2,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp));
41576 t7=((C_word*)t5)[1];
41577 f_9201(t7,t1,t3);}
41578 
41579 /* lp in chicken.irregex#find in k7761 in k7536 in k7533 */
f_9201(C_word t0,C_word t1,C_word t2)41580 static void C_fcall f_9201(C_word t0,C_word t1,C_word t2){
41581 C_word tmp;
41582 C_word t3;
41583 C_word t4;
41584 C_word *a;
41585 C_check_for_interrupt;
41586 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
41587 C_save_and_reclaim_args((void *)trf_9201,3,t0,t1,t2);}
41588 a=C_alloc(5);
41589 if(C_truep(C_i_nullp(t2))){
41590 t3=t1;{
41591 C_word av2[2];
41592 av2[0]=t3;
41593 av2[1]=C_SCHEME_FALSE;
41594 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
41595 else{
41596 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9214,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
41597 /* irregex-core.scm:513: pred */
41598 t4=((C_word*)t0)[3];{
41599 C_word av2[3];
41600 av2[0]=t4;
41601 av2[1]=t3;
41602 av2[2]=C_i_car(t2);
41603 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}
41604 
41605 /* k9212 in lp in chicken.irregex#find in k7761 in k7536 in k7533 */
f_9214(C_word c,C_word * av)41606 static void C_ccall f_9214(C_word c,C_word *av){
41607 C_word tmp;
41608 C_word t0=av[0];
41609 C_word t1=av[1];
41610 C_word t2;
41611 C_word *a;
41612 C_check_for_interrupt;
41613 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
41614 C_save_and_reclaim((void *)f_9214,c,av);}
41615 if(C_truep(t1)){
41616 t2=((C_word*)t0)[2];{
41617 C_word *av2=av;
41618 av2[0]=t2;
41619 av2[1]=C_u_i_car(((C_word*)t0)[3]);
41620 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
41621 else{
41622 /* irregex-core.scm:514: lp */
41623 t2=((C_word*)((C_word*)t0)[4])[1];
41624 f_9201(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]));}}
41625 
41626 /* chicken.irregex#last in k7761 in k7536 in k7533 */
f_9256(C_word t1,C_word t2)41627 static void C_fcall f_9256(C_word t1,C_word t2){
41628 C_word tmp;
41629 C_word t3;
41630 C_word t4;
41631 C_word t5;
41632 C_word *a;
41633 C_check_for_interrupt;
41634 if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
41635 C_save_and_reclaim_args((void *)trf_9256,2,t1,t2);}
41636 a=C_alloc(3);
41637 t3=C_i_pairp(t2);
41638 if(C_truep(C_i_not(t3))){
41639 /* irregex-core.scm:524: chicken.base#error */
41640 t4=*((C_word*)lf[30]+1);{
41641 C_word av2[3];
41642 av2[0]=t4;
41643 av2[1]=t1;
41644 av2[2]=lf[60];
41645 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
41646 else{
41647 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9271,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp);
41648 t5=t1;{
41649 C_word av2[2];
41650 av2[0]=t5;
41651 av2[1]=(
41652   f_9271(t2)
41653 );
41654 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
41655 
41656 /* lp in chicken.irregex#last in k7761 in k7536 in k7533 */
f_9271(C_word t1)41657 static C_word C_fcall f_9271(C_word t1){
41658 C_word tmp;
41659 C_word t2;
41660 C_word t3;
41661 C_word t4;
41662 C_stack_overflow_check;
41663 loop:{}
41664 t2=C_i_cdr(t1);
41665 if(C_truep(C_i_pairp(t2))){
41666 t4=C_u_i_cdr(t1);
41667 t1=t4;
41668 goto loop;}
41669 else{
41670 return(C_u_i_car(t1));}}
41671 
41672 /* chicken.irregex#any in k7761 in k7536 in k7533 */
f_9294(C_word t1,C_word t2,C_word t3)41673 static void C_fcall f_9294(C_word t1,C_word t2,C_word t3){
41674 C_word tmp;
41675 C_word t4;
41676 C_word t5;
41677 C_word t6;
41678 C_word t7;
41679 C_word t8;
41680 C_word t9;
41681 C_word *a;
41682 C_check_for_interrupt;
41683 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
41684 C_save_and_reclaim_args((void *)trf_9294,3,t1,t2,t3);}
41685 a=C_alloc(7);
41686 if(C_truep(C_i_pairp(t3))){
41687 t4=C_u_i_car(t3);
41688 t5=C_u_i_cdr(t3);
41689 t6=C_SCHEME_UNDEFINED;
41690 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
41691 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9310,a[2]=t2,a[3]=t7,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp));
41692 t9=((C_word*)t7)[1];
41693 f_9310(t9,t1,t4,t5);}
41694 else{
41695 t4=t1;{
41696 C_word av2[2];
41697 av2[0]=t4;
41698 av2[1]=C_SCHEME_FALSE;
41699 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
41700 
41701 /* lp in chicken.irregex#any in k7761 in k7536 in k7533 */
f_9310(C_word t0,C_word t1,C_word t2,C_word t3)41702 static void C_fcall f_9310(C_word t0,C_word t1,C_word t2,C_word t3){
41703 C_word tmp;
41704 C_word t4;
41705 C_word t5;
41706 C_word *a;
41707 C_check_for_interrupt;
41708 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
41709 C_save_and_reclaim_args((void *)trf_9310,4,t0,t1,t2,t3);}
41710 a=C_alloc(5);
41711 if(C_truep(C_i_nullp(t3))){
41712 /* irregex-core.scm:534: pred */
41713 t4=((C_word*)t0)[2];{
41714 C_word av2[3];
41715 av2[0]=t4;
41716 av2[1]=t1;
41717 av2[2]=t2;
41718 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
41719 else{
41720 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9323,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
41721 /* irregex-core.scm:535: pred */
41722 t5=((C_word*)t0)[2];{
41723 C_word av2[3];
41724 av2[0]=t5;
41725 av2[1]=t4;
41726 av2[2]=t2;
41727 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
41728 
41729 /* k9321 in lp in chicken.irregex#any in k7761 in k7536 in k7533 */
f_9323(C_word c,C_word * av)41730 static void C_ccall f_9323(C_word c,C_word *av){
41731 C_word tmp;
41732 C_word t0=av[0];
41733 C_word t1=av[1];
41734 C_word t2;
41735 C_word *a;
41736 C_check_for_interrupt;
41737 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
41738 C_save_and_reclaim((void *)f_9323,c,av);}
41739 if(C_truep(t1)){
41740 t2=((C_word*)t0)[2];{
41741 C_word *av2=av;
41742 av2[0]=t2;
41743 av2[1]=t1;
41744 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
41745 else{
41746 /* irregex-core.scm:535: lp */
41747 t2=((C_word*)((C_word*)t0)[3])[1];
41748 f_9310(t2,((C_word*)t0)[2],C_i_car(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[4]));}}
41749 
41750 /* chicken.irregex#every in k7761 in k7536 in k7533 */
f_9337(C_word t1,C_word t2,C_word t3)41751 static void C_fcall f_9337(C_word t1,C_word t2,C_word t3){
41752 C_word tmp;
41753 C_word t4;
41754 C_word t5;
41755 C_word t6;
41756 C_word t7;
41757 C_word t8;
41758 C_word t9;
41759 C_word t10;
41760 C_word *a;
41761 C_check_for_interrupt;
41762 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
41763 C_save_and_reclaim_args((void *)trf_9337,3,t1,t2,t3);}
41764 a=C_alloc(7);
41765 t4=C_i_nullp(t3);
41766 if(C_truep(t4)){
41767 t5=t1;{
41768 C_word av2[2];
41769 av2[0]=t5;
41770 av2[1]=t4;
41771 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
41772 else{
41773 t5=C_i_car(t3);
41774 t6=C_u_i_cdr(t3);
41775 t7=C_SCHEME_UNDEFINED;
41776 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
41777 t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9355,a[2]=t2,a[3]=t8,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp));
41778 t10=((C_word*)t8)[1];
41779 f_9355(t10,t1,t5,t6);}}
41780 
41781 /* lp in chicken.irregex#every in k7761 in k7536 in k7533 */
f_9355(C_word t0,C_word t1,C_word t2,C_word t3)41782 static void C_fcall f_9355(C_word t0,C_word t1,C_word t2,C_word t3){
41783 C_word tmp;
41784 C_word t4;
41785 C_word t5;
41786 C_word *a;
41787 C_check_for_interrupt;
41788 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
41789 C_save_and_reclaim_args((void *)trf_9355,4,t0,t1,t2,t3);}
41790 a=C_alloc(5);
41791 if(C_truep(C_i_nullp(t3))){
41792 /* irregex-core.scm:541: pred */
41793 t4=((C_word*)t0)[2];{
41794 C_word av2[3];
41795 av2[0]=t4;
41796 av2[1]=t1;
41797 av2[2]=t2;
41798 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
41799 else{
41800 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9371,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
41801 /* irregex-core.scm:542: pred */
41802 t5=((C_word*)t0)[2];{
41803 C_word av2[3];
41804 av2[0]=t5;
41805 av2[1]=t4;
41806 av2[2]=t2;
41807 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}
41808 
41809 /* k9369 in lp in chicken.irregex#every in k7761 in k7536 in k7533 */
f_9371(C_word c,C_word * av)41810 static void C_ccall f_9371(C_word c,C_word *av){
41811 C_word tmp;
41812 C_word t0=av[0];
41813 C_word t1=av[1];
41814 C_word t2;
41815 C_word *a;
41816 C_check_for_interrupt;
41817 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
41818 C_save_and_reclaim((void *)f_9371,c,av);}
41819 if(C_truep(t1)){
41820 /* irregex-core.scm:542: lp */
41821 t2=((C_word*)((C_word*)t0)[2])[1];
41822 f_9355(t2,((C_word*)t0)[3],C_i_car(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[4]));}
41823 else{
41824 t2=((C_word*)t0)[3];{
41825 C_word *av2=av;
41826 av2[0]=t2;
41827 av2[1]=C_SCHEME_FALSE;
41828 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
41829 
41830 /* chicken.irregex#fold in k7761 in k7536 in k7533 */
f_9382(C_word t1,C_word t2,C_word t3,C_word t4)41831 static void C_fcall f_9382(C_word t1,C_word t2,C_word t3,C_word t4){
41832 C_word tmp;
41833 C_word t5;
41834 C_word t6;
41835 C_word t7;
41836 C_word t8;
41837 C_word *a;
41838 C_check_for_interrupt;
41839 if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
41840 C_save_and_reclaim_args((void *)trf_9382,4,t1,t2,t3,t4);}
41841 a=C_alloc(7);
41842 t5=C_SCHEME_UNDEFINED;
41843 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
41844 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9388,a[2]=t6,a[3]=t2,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp));
41845 t8=((C_word*)t6)[1];
41846 f_9388(t8,t1,t4,t3);}
41847 
41848 /* lp in chicken.irregex#fold in k7761 in k7536 in k7533 */
f_9388(C_word t0,C_word t1,C_word t2,C_word t3)41849 static void C_fcall f_9388(C_word t0,C_word t1,C_word t2,C_word t3){
41850 C_word tmp;
41851 C_word t4;
41852 C_word t5;
41853 C_word t6;
41854 C_word *a;
41855 C_check_for_interrupt;
41856 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
41857 C_save_and_reclaim_args((void *)trf_9388,4,t0,t1,t2,t3);}
41858 a=C_alloc(5);
41859 if(C_truep(C_i_nullp(t2))){
41860 t4=t1;{
41861 C_word av2[2];
41862 av2[0]=t4;
41863 av2[1]=t3;
41864 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41865 else{
41866 t4=C_i_cdr(t2);
41867 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9406,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
41868 /* irregex-core.scm:548: kons */
41869 t6=((C_word*)t0)[3];{
41870 C_word av2[4];
41871 av2[0]=t6;
41872 av2[1]=t5;
41873 av2[2]=C_u_i_car(t2);
41874 av2[3]=t3;
41875 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}
41876 
41877 /* k9404 in lp in chicken.irregex#fold in k7761 in k7536 in k7533 */
f_9406(C_word c,C_word * av)41878 static void C_ccall f_9406(C_word c,C_word *av){
41879 C_word tmp;
41880 C_word t0=av[0];
41881 C_word t1=av[1];
41882 C_word t2;
41883 C_word *a;
41884 C_check_for_interrupt;
41885 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
41886 C_save_and_reclaim((void *)f_9406,c,av);}
41887 /* irregex-core.scm:548: lp */
41888 t2=((C_word*)((C_word*)t0)[2])[1];
41889 f_9388(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
41890 
41891 /* chicken.irregex#flag-join in k7761 in k7536 in k7533 */
f_9712(C_word c,C_word * av)41892 static void C_ccall f_9712(C_word c,C_word *av){
41893 C_word tmp;
41894 C_word t0=av[0];
41895 C_word t1=av[1];
41896 C_word t2=av[2];
41897 C_word t3=av[3];
41898 C_word t4;
41899 C_word *a;
41900 if(c!=4) C_bad_argc_2(c,4,t0);
41901 C_check_for_interrupt;
41902 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
41903 C_save_and_reclaim((void *)f_9712,c,av);}
41904 t4=t1;{
41905 C_word *av2=av;
41906 av2[0]=t4;
41907 av2[1]=(C_truep(t3)?C_fixnum_or(t2,t3):t2);
41908 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41909 
41910 /* chicken.irregex#flag-clear in k7761 in k7536 in k7533 */
f_9721(C_word c,C_word * av)41911 static void C_ccall f_9721(C_word c,C_word *av){
41912 C_word tmp;
41913 C_word t0=av[0];
41914 C_word t1=av[1];
41915 C_word t2=av[2];
41916 C_word t3=av[3];
41917 C_word t4;
41918 C_word *a;
41919 if(c!=4) C_bad_argc_2(c,4,t0);
41920 C_check_for_interrupt;
41921 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
41922 C_save_and_reclaim((void *)f_9721,c,av);}
41923 t4=t1;{
41924 C_word *av2=av;
41925 av2[0]=t4;
41926 av2[1]=C_fixnum_and(t2,C_fixnum_not(t3));
41927 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
41928 
41929 /* chicken.irregex#with-read-from-string in k7761 in k7536 in k7533 */
f_9739(C_word t1,C_word t2,C_word t3,C_word t4)41930 static void C_fcall f_9739(C_word t1,C_word t2,C_word t3,C_word t4){
41931 C_word tmp;
41932 C_word t5;
41933 C_word t6;
41934 C_word t7;
41935 C_word t8;
41936 C_word t9;
41937 C_word t10;
41938 C_word t11;
41939 C_word t12;
41940 C_word t13;
41941 C_word *a;
41942 C_check_for_interrupt;
41943 if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){
41944 C_save_and_reclaim_args((void *)trf_9739,4,t1,t2,t3,t4);}
41945 a=C_alloc(15);
41946 t5=C_SCHEME_UNDEFINED;
41947 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
41948 t7=C_SCHEME_UNDEFINED;
41949 t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
41950 t9=C_i_string_length(t2);
41951 t10=C_set_block_item(t6,0,t9);
41952 t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9746,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp));
41953 t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10311,a[2]=t2,a[3]=t4,a[4]=((C_word)li59),tmp=(C_word)a,a+=5,tmp);
41954 /* irregex-core.scm:714: read */
41955 t13=((C_word*)t8)[1];
41956 f_9746(t13,t1,t3,t12);}
41957 
41958 /* f_9746 in chicken.irregex#with-read-from-string in k7761 in k7536 in k7533 */
f_9746(C_word t0,C_word t1,C_word t2,C_word t3)41959 static void C_fcall f_9746(C_word t0,C_word t1,C_word t2,C_word t3){
41960 C_word tmp;
41961 C_word t4;
41962 C_word t5;
41963 C_word t6;
41964 C_word t7;
41965 C_word t8;
41966 C_word t9;
41967 C_word t10;
41968 C_word t11;
41969 C_word t12;
41970 C_word t13;
41971 C_word t14;
41972 C_word t15;
41973 C_word t16;
41974 C_word t17;
41975 C_word t18;
41976 C_word t19;
41977 C_word t20;
41978 C_word t21;
41979 C_word t22;
41980 C_word t23;
41981 C_word t24;
41982 C_word t25;
41983 C_word t26;
41984 C_word t27;
41985 C_word t28;
41986 C_word t29;
41987 C_word t30;
41988 C_word t31;
41989 C_word t32;
41990 C_word t33;
41991 C_word t34;
41992 C_word t35;
41993 C_word t36;
41994 C_word t37;
41995 C_word t38;
41996 C_word t39;
41997 C_word t40;
41998 C_word t41;
41999 C_word t42;
42000 C_word t43;
42001 C_word *a;
42002 loop:
42003 C_check_for_interrupt;
42004 if(C_unlikely(!C_demand(C_calculate_demand(19,0,5)))){
42005 C_save_and_reclaim_args((void *)trf_9746,4,t0,t1,t2,t3);}
42006 a=C_alloc(19);
42007 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]))){
42008 /* irregex-core.scm:631: chicken.base#error */
42009 t4=*((C_word*)lf[30]+1);{
42010 C_word av2[4];
42011 av2[0]=t4;
42012 av2[1]=t1;
42013 av2[2]=lf[68];
42014 av2[3]=((C_word*)t0)[3];
42015 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
42016 else{
42017 t4=C_i_string_ref(((C_word*)t0)[3],t2);
42018 switch(t4){
42019 case C_make_character(40):
42020 t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42021 t6=C_SCHEME_UNDEFINED;
42022 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
42023 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9773,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=((C_word)li49),tmp=(C_word)a,a+=7,tmp));
42024 t9=((C_word*)t7)[1];
42025 f_9773(t9,t1,t5,C_SCHEME_END_OF_LIST);
42026 case C_make_character(41):
42027 t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42028 /* irregex-core.scm:655: k */
42029 t6=t3;{
42030 C_word av2[4];
42031 av2[0]=t6;
42032 av2[1]=t1;
42033 av2[2]=lf[66];
42034 av2[3]=t5;
42035 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}
42036 case C_make_character(59):
42037 t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42038 t6=C_SCHEME_UNDEFINED;
42039 t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
42040 t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9887,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t7,a[7]=((C_word)li50),tmp=(C_word)a,a+=8,tmp));
42041 t9=((C_word*)t7)[1];
42042 f_9887(t9,t1,t5);
42043 default:
42044 t5=C_eqp(t4,C_make_character(39));
42045 t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(96)));
42046 if(C_truep(t6)){
42047 t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42048 t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9936,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp);
42049 /* irregex-core.scm:662: read */
42050 t41=t1;
42051 t42=t7;
42052 t43=t8;
42053 t1=t41;
42054 t2=t42;
42055 t3=t43;
42056 goto loop;}
42057 else{
42058 switch(t4){
42059 case C_make_character(44):
42060 t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9964,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
42061 t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42062 if(C_truep(C_fixnum_lessp(t8,((C_word*)((C_word*)t0)[2])[1]))){
42063 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42064 t10=t7;
42065 f_9964(t10,C_eqp(C_make_character(64),C_i_string_ref(((C_word*)t0)[3],t9)));}
42066 else{
42067 t9=t7;
42068 f_9964(t9,C_SCHEME_FALSE);}
42069 case C_make_character(34):
42070 t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42071 t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42072 t9=C_SCHEME_UNDEFINED;
42073 t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
42074 t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10021,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t10,a[6]=((C_word)li54),tmp=(C_word)a,a+=7,tmp));
42075 t12=((C_word*)t10)[1];
42076 f_10021(t12,t1,t7,t8,C_SCHEME_END_OF_LIST);
42077 case C_make_character(35):
42078 t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42079 t8=C_i_string_ref(((C_word*)t0)[3],t7);
42080 switch(t8){
42081 case C_make_character(59):
42082 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
42083 t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10122,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp);
42084 /* irregex-core.scm:684: read */
42085 t41=t1;
42086 t42=t9;
42087 t43=t10;
42088 t1=t41;
42089 t2=t42;
42090 t3=t43;
42091 goto loop;
42092 case C_make_character(92):
42093 t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
42094 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10140,a[2]=t3,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp);
42095 /* irregex-core.scm:686: read */
42096 t41=t1;
42097 t42=t9;
42098 t43=t10;
42099 t1=t41;
42100 t2=t42;
42101 t3=t43;
42102 goto loop;
42103 default:
42104 t9=C_eqp(t8,C_make_character(116));
42105 t10=(C_truep(t9)?t9:C_eqp(t8,C_make_character(102)));
42106 if(C_truep(t10)){
42107 t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42108 t12=C_i_string_ref(((C_word*)t0)[3],t11);
42109 t13=C_eqp(C_make_character(116),t12);
42110 t14=C_a_i_fixnum_plus(&a,2,t2,C_fix(2));
42111 /* irregex-core.scm:697: k */
42112 t15=t3;{
42113 C_word av2[4];
42114 av2[0]=t15;
42115 av2[1]=t1;
42116 av2[2]=t13;
42117 av2[3]=t14;
42118 ((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}
42119 else{
42120 /* irregex-core.scm:699: chicken.base#error */
42121 t11=*((C_word*)lf[30]+1);{
42122 C_word av2[4];
42123 av2[0]=t11;
42124 av2[1]=t1;
42125 av2[2]=lf[83];
42126 av2[3]=t2;
42127 ((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}
42128 default:
42129 if(C_truep(C_u_i_char_whitespacep(C_i_string_ref(((C_word*)t0)[3],t2)))){
42130 t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42131 /* irregex-core.scm:703: read */
42132 t41=t1;
42133 t42=t7;
42134 t43=t3;
42135 t1=t41;
42136 t2=t42;
42137 t3=t43;
42138 goto loop;}
42139 else{
42140 t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
42141 t8=C_SCHEME_UNDEFINED;
42142 t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
42143 t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10240,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t9,a[7]=((C_word)li57),tmp=(C_word)a,a+=8,tmp));
42144 t11=((C_word*)t9)[1];
42145 f_10240(t11,t1,t7);}}}}}}
42146 
42147 /* lp */
f_9773(C_word t0,C_word t1,C_word t2,C_word t3)42148 static void C_fcall f_9773(C_word t0,C_word t1,C_word t2,C_word t3){
42149 C_word tmp;
42150 C_word t4;
42151 C_word t5;
42152 C_word *a;
42153 C_check_for_interrupt;
42154 if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
42155 C_save_and_reclaim_args((void *)trf_9773,4,t0,t1,t2,t3);}
42156 a=C_alloc(8);
42157 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9779,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)li48),tmp=(C_word)a,a+=8,tmp);
42158 /* irregex-core.scm:636: read */
42159 t5=((C_word*)((C_word*)t0)[4])[1];
42160 f_9746(t5,t1,t2,t4);}
42161 
42162 /* a9778 in lp */
f_9779(C_word c,C_word * av)42163 static void C_ccall f_9779(C_word c,C_word *av){
42164 C_word tmp;
42165 C_word t0=av[0];
42166 C_word t1=av[1];
42167 C_word t2=av[2];
42168 C_word t3=av[3];
42169 C_word t4;
42170 C_word t5;
42171 C_word t6;
42172 C_word t7;
42173 C_word *a;
42174 if(c!=4) C_bad_argc_2(c,4,t0);
42175 C_check_for_interrupt;
42176 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
42177 C_save_and_reclaim((void *)f_9779,c,av);}
42178 a=C_alloc(7);
42179 t4=C_eqp(t2,lf[66]);
42180 if(C_truep(t4)){
42181 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9793,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
42182 /* irregex-core.scm:641: ##sys#fast-reverse */
42183 t6=*((C_word*)lf[69]+1);{
42184 C_word *av2=av;
42185 av2[0]=t6;
42186 av2[1]=t5;
42187 av2[2]=((C_word*)t0)[3];
42188 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
42189 else{
42190 t5=C_eqp(t2,lf[70]);
42191 if(C_truep(t5)){
42192 if(C_truep(C_i_nullp(((C_word*)t0)[3]))){
42193 /* irregex-core.scm:644: chicken.base#error */
42194 t6=*((C_word*)lf[30]+1);{
42195 C_word *av2=av;
42196 av2[0]=t6;
42197 av2[1]=t1;
42198 av2[2]=lf[71];
42199 av2[3]=((C_word*)t0)[4];
42200 ((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
42201 else{
42202 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9813,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word)li47),tmp=(C_word)a,a+=7,tmp);
42203 /* irregex-core.scm:645: read */
42204 t7=((C_word*)((C_word*)t0)[5])[1];
42205 f_9746(t7,t1,t3,t6);}}
42206 else{
42207 t6=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
42208 /* irregex-core.scm:653: lp */
42209 t7=((C_word*)((C_word*)t0)[6])[1];
42210 f_9773(t7,t1,t3,t6);}}}
42211 
42212 /* k9791 in a9778 in lp */
f_9793(C_word c,C_word * av)42213 static void C_ccall f_9793(C_word c,C_word *av){
42214 C_word tmp;
42215 C_word t0=av[0];
42216 C_word t1=av[1];
42217 C_word t2;
42218 C_word *a;
42219 C_check_for_interrupt;
42220 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
42221 C_save_and_reclaim((void *)f_9793,c,av);}
42222 /* irregex-core.scm:641: k */
42223 t2=((C_word*)t0)[2];{
42224 C_word *av2;
42225 if(c >= 4) {
42226   av2=av;
42227 } else {
42228   av2=C_alloc(4);
42229 }
42230 av2[0]=t2;
42231 av2[1]=((C_word*)t0)[3];
42232 av2[2]=t1;
42233 av2[3]=((C_word*)t0)[4];
42234 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
42235 
42236 /* a9812 in a9778 in lp */
f_9813(C_word c,C_word * av)42237 static void C_ccall f_9813(C_word c,C_word *av){
42238 C_word tmp;
42239 C_word t0=av[0];
42240 C_word t1=av[1];
42241 C_word t2=av[2];
42242 C_word t3=av[3];
42243 C_word t4;
42244 C_word t5;
42245 C_word *a;
42246 if(c!=4) C_bad_argc_2(c,4,t0);
42247 C_check_for_interrupt;
42248 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
42249 C_save_and_reclaim((void *)f_9813,c,av);}
42250 a=C_alloc(7);
42251 t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word)li46),tmp=(C_word)a,a+=7,tmp);
42252 /* irregex-core.scm:646: read */
42253 t5=((C_word*)((C_word*)t0)[5])[1];
42254 f_9746(t5,t1,t3,t4);}
42255 
42256 /* a9818 in a9812 in a9778 in lp */
f_9819(C_word c,C_word * av)42257 static void C_ccall f_9819(C_word c,C_word *av){
42258 C_word tmp;
42259 C_word t0=av[0];
42260 C_word t1=av[1];
42261 C_word t2=av[2];
42262 C_word t3=av[3];
42263 C_word t4;
42264 C_word t5;
42265 C_word t6;
42266 C_word t7;
42267 C_word *a;
42268 if(c!=4) C_bad_argc_2(c,4,t0);
42269 C_check_for_interrupt;
42270 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
42271 C_save_and_reclaim((void *)f_9819,c,av);}
42272 a=C_alloc(10);
42273 t4=C_eqp(t2,lf[66]);
42274 if(C_truep(C_i_not(t4))){
42275 /* irregex-core.scm:648: chicken.base#error */
42276 t5=*((C_word*)lf[30]+1);{
42277 C_word *av2=av;
42278 av2[0]=t5;
42279 av2[1]=t1;
42280 av2[2]=lf[72];
42281 av2[3]=((C_word*)t0)[2];
42282 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
42283 else{
42284 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9836,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
42285 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9840,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
42286 /* irregex-core.scm:649: ##sys#fast-reverse */
42287 t7=*((C_word*)lf[69]+1);{
42288 C_word *av2=av;
42289 av2[0]=t7;
42290 av2[1]=t6;
42291 av2[2]=C_i_cdr(((C_word*)t0)[4]);
42292 ((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
42293 
42294 /* k9834 in a9818 in a9812 in a9778 in lp */
f_9836(C_word c,C_word * av)42295 static void C_ccall f_9836(C_word c,C_word *av){
42296 C_word tmp;
42297 C_word t0=av[0];
42298 C_word t1=av[1];
42299 C_word t2;
42300 C_word *a;
42301 C_check_for_interrupt;
42302 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
42303 C_save_and_reclaim((void *)f_9836,c,av);}
42304 /* irregex-core.scm:649: k */
42305 t2=((C_word*)t0)[2];{
42306 C_word *av2;
42307 if(c >= 4) {
42308   av2=av;
42309 } else {
42310   av2=C_alloc(4);
42311 }
42312 av2[0]=t2;
42313 av2[1]=((C_word*)t0)[3];
42314 av2[2]=t1;
42315 av2[3]=((C_word*)t0)[4];
42316 ((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
42317 
42318 /* k9838 in a9818 in a9812 in a9778 in lp */
f_9840(C_word c,C_word * av)42319 static void C_ccall f_9840(C_word c,C_word *av){
42320 C_word tmp;
42321 C_word t0=av[0];
42322 C_word t1=av[1];
42323 C_word t2;
42324 C_word t3;
42325 C_word t4;
42326 C_word *a;
42327 C_check_for_interrupt;
42328 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
42329 C_save_and_reclaim((void *)f_9840,c,av);}
42330 a=C_alloc(3);
42331 t2=C_u_i_car(((C_word*)t0)[2]);
42332 t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]);
42333 /* irregex-core.scm:649: scheme#append */
42334 t4=*((C_word*)lf[73]+1);{
42335 C_word *av2;
42336 if(c >= 4) {
42337   av2=av;
42338 } else {
42339   av2=C_alloc(4);
42340 }
42341 av2[0]=t4;
42342 av2[1]=((C_word*)t0)[4];
42343 av2[2]=t1;
42344 av2[3]=t3;
42345 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
42346 
42347 /* skip */
f_9887(C_word t0,C_word t1,C_word t2)42348 static void C_fcall f_9887(C_word t0,C_word t1,C_word t2){
42349 C_word tmp;
42350 C_word t3;
42351 C_word t4;
42352 C_word t5;
42353 C_word t6;
42354 C_word t7;
42355 C_word *a;
42356 loop:
42357 C_check_for_interrupt;
42358 if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
42359 C_save_and_reclaim_args((void *)trf_9887,3,t0,t1,t2);}
42360 t3=C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]);
42361 t4=(C_truep(t3)?t3:C_eqp(C_make_character(10),C_i_string_ref(((C_word*)t0)[3],t2)));
42362 if(C_truep(t4)){
42363 /* irregex-core.scm:659: read */
42364 t5=((C_word*)((C_word*)t0)[4])[1];
42365 f_9746(t5,t1,C_fixnum_plus(t2,C_fix(1)),((C_word*)t0)[5]);}
42366 else{
42367 /* irregex-core.scm:660: skip */
42368 t6=t1;
42369 t7=C_fixnum_plus(t2,C_fix(1));
42370 t1=t6;
42371 t2=t7;
42372 goto loop;}}
42373 
42374 /* a9935 */
f_9936(C_word c,C_word * av)42375 static void C_ccall f_9936(C_word c,C_word *av){
42376 C_word tmp;
42377 C_word t0=av[0];
42378 C_word t1=av[1];
42379 C_word t2=av[2];
42380 C_word t3=av[3];
42381 C_word t4;
42382 C_word t5;
42383 C_word t6;
42384 C_word t7;
42385 C_word t8;
42386 C_word *a;
42387 if(c!=4) C_bad_argc_2(c,4,t0);
42388 C_check_for_interrupt;
42389 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
42390 C_save_and_reclaim((void *)f_9936,c,av);}
42391 a=C_alloc(6);
42392 t4=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]);
42393 t5=C_eqp(C_make_character(39),t4);
42394 t6=(C_truep(t5)?lf[74]:lf[75]);
42395 t7=C_a_i_list2(&a,2,t6,t2);
42396 /* irregex-core.scm:665: k */
42397 t8=((C_word*)t0)[4];{
42398 C_word *av2=av;
42399 av2[0]=t8;
42400 av2[1]=t1;
42401 av2[2]=t7;
42402 av2[3]=t3;
42403 ((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
42404 
42405 /* k9962 */
f_9964(C_word t0,C_word t1)42406 static void C_fcall f_9964(C_word t0,C_word t1){
42407 C_word tmp;
42408 C_word t2;
42409 C_word t3;
42410 C_word t4;
42411 C_word t5;
42412 C_word *a;
42413 C_check_for_interrupt;
42414 if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
42415 C_save_and_reclaim_args((void *)trf_9964,2,t0,t1);}
42416 a=C_alloc(10);
42417 t2=(C_truep(t1)?lf[76]:lf[77]);
42418 t3=(C_truep(t1)?C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)):C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)));
42419 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9975,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp);
42420 /* irregex-core.scm:670: read */
42421 t5=((C_word*)((C_word*)t0)[4])[1];
42422 f_9746(t5,((C_word*)t0)[5],t3,t4);}
42423 
42424 /* a9974 in k9962 */
f_9975(C_word c,C_word * av)42425 static void C_ccall f_9975(C_word c,C_word *av){
42426 C_word tmp;
42427 C_word t0=av[0];
42428 C_word t1=av[1];
42429 C_word t2=av[2];
42430 C_word t3=av[3];
42431 C_word t4;
42432 C_word t5;
42433 C_word *a;
42434 if(c!=4) C_bad_argc_2(c,4,t0);
42435 C_check_for_interrupt;
42436 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
42437 C_save_and_reclaim((void *)f_9975,c,av);}
42438 a=C_alloc(6);
42439 t4=C_a_i_list2(&a,2,((C_word*)t0)[2],t2);
42440 /* irregex-core.scm:670: k */
42441 t5=((C_word*)t0)[3];{
42442 C_word *av2=av;
42443 av2[0]=t5;
42444 av2[1]=t1;
42445 av2[2]=t4;
42446 av2[3]=t3;
42447 ((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
42448 
42449 /* toplevel */
42450 static C_TLS int toplevel_initialized=0;
42451 
C_irregex_toplevel(C_word c,C_word * av)42452 void C_ccall C_irregex_toplevel(C_word c,C_word *av){
42453 C_word tmp;
42454 C_word t0=av[0];
42455 C_word t1=av[1];
42456 C_word t2;
42457 C_word t3;
42458 C_word t4;
42459 C_word t5;
42460 C_word *a;
42461 if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
42462 else C_toplevel_entry(C_text("irregex"));
42463 C_check_nursery_minimum(C_calculate_demand(19,c,2));
42464 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
42465 C_save_and_reclaim((void*)C_irregex_toplevel,c,av);}
42466 toplevel_initialized=1;
42467 if(C_unlikely(!C_demand_2(2387))){
42468 C_save(t1);
42469 C_rereclaim2(2387*sizeof(C_word),1);
42470 t1=C_restore;}
42471 a=C_alloc(19);
42472 C_initialize_lf(lf,502);
42473 lf[0]=C_h_intern(&lf[0],7, C_text("irregex"));
42474 lf[1]=C_h_intern(&lf[1],16, C_text("chicken.irregex#"));
42475 lf[3]=C_h_intern(&lf[3],25, C_text("chicken.base#vector-copy!"));
42476 lf[4]=C_h_intern(&lf[4],18, C_text("scheme#make-vector"));
42477 lf[5]=C_h_intern(&lf[5],24, C_text("chicken.irregex#irregex\077"));
42478 lf[6]=C_h_intern(&lf[6],6, C_text("regexp"));
42479 lf[7]=C_h_intern(&lf[7],38, C_text("chicken.irregex#irregex-num-submatches"));
42480 lf[8]=C_h_intern(&lf[8],22, C_text("irregex-num-submatches"));
42481 lf[9]=C_h_intern(&lf[9],29, C_text("chicken.irregex#irregex-names"));
42482 lf[10]=C_h_intern(&lf[10],13, C_text("irregex-names"));
42483 lf[12]=C_h_intern(&lf[12],12, C_text("regexp-match"));
42484 lf[14]=C_h_intern(&lf[14],19, C_text("scheme#vector-fill!"));
42485 lf[16]=C_h_intern(&lf[16],35, C_text("chicken.irregex#irregex-match-data\077"));
42486 lf[17]=C_h_intern(&lf[17],44, C_text("chicken.irregex#irregex-match-num-submatches"));
42487 lf[18]=C_h_intern(&lf[18],28, C_text("irregex-match-num-submatches"));
42488 lf[19]=C_h_intern(&lf[19],35, C_text("chicken.irregex#irregex-match-names"));
42489 lf[20]=C_h_intern(&lf[20],19, C_text("irregex-match-names"));
42490 lf[21]=C_h_intern(&lf[21],41, C_text("chicken.irregex#irregex-match-start-chunk"));
42491 lf[23]=C_h_intern(&lf[23],25, C_text("irregex-match-start-chunk"));
42492 lf[24]=C_h_intern(&lf[24],41, C_text("chicken.irregex#irregex-match-start-index"));
42493 lf[25]=C_h_intern(&lf[25],25, C_text("irregex-match-start-index"));
42494 lf[26]=C_h_intern(&lf[26],39, C_text("chicken.irregex#irregex-match-end-chunk"));
42495 lf[27]=C_h_intern(&lf[27],23, C_text("irregex-match-end-chunk"));
42496 lf[28]=C_h_intern(&lf[28],39, C_text("chicken.irregex#irregex-match-end-index"));
42497 lf[29]=C_h_intern(&lf[29],23, C_text("irregex-match-end-index"));
42498 lf[30]=C_h_intern(&lf[30],18, C_text("chicken.base#error"));
42499 lf[31]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not match data"));
42500 lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022too many arguments"));
42501 lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021not a valid index"));
42502 lf[34]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42503 lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022unknown match name"));
42504 lf[36]=C_h_intern(&lf[36],42, C_text("chicken.irregex#irregex-match-valid-index\077"));
42505 lf[37]=C_h_intern(&lf[37],26, C_text("irregex-match-valid-index\077"));
42506 lf[38]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42507 lf[39]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not match data"));
42508 lf[40]=C_h_intern(&lf[40],39, C_text("chicken.irregex#irregex-match-substring"));
42509 lf[41]=C_h_intern(&lf[41],23, C_text("irregex-match-substring"));
42510 lf[42]=C_h_intern(&lf[42],38, C_text("chicken.irregex#irregex-match-subchunk"));
42511 lf[43]=C_decode_literal(C_heaptop,C_text("\376B\000\0000this chunk type does not support match subchunks"));
42512 lf[44]=C_h_intern(&lf[44],22, C_text("irregex-match-subchunk"));
42513 lf[45]=C_h_intern(&lf[45],36, C_text("chicken.irregex#make-irregex-chunker"));
42514 lf[46]=C_h_intern(&lf[46],16, C_text("scheme#substring"));
42515 lf[48]=C_h_intern(&lf[48],20, C_text("make-irregex-chunker"));
42516 lf[49]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023expected a procdure"));
42517 lf[52]=C_h_intern(&lf[52],1, C_text("/"));
42518 lf[55]=C_h_intern(&lf[55],18, C_text("scheme#make-string"));
42519 lf[60]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035can\047t take last of empty list"));
42520 lf[65]=C_h_intern(&lf[65],5, C_text("close"));
42521 lf[68]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031unterminated embedded SRE"));
42522 lf[69]=C_h_intern(&lf[69],18, C_text("##sys#fast-reverse"));
42523 lf[70]=C_h_intern(&lf[70],1, C_text("."));
42524 lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017bad dotted form"));
42525 lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017bad dotted form"));
42526 lf[73]=C_h_intern(&lf[73],13, C_text("scheme#append"));
42527 lf[74]=C_h_intern(&lf[74],5, C_text("quote"));
42528 lf[75]=C_h_intern(&lf[75],10, C_text("quasiquote"));
42529 lf[76]=C_h_intern(&lf[76],15, C_text("uquote-splicing"));
42530 lf[77]=C_h_intern(&lf[77],7, C_text("unquote"));
42531 lf[78]=C_decode_literal(C_heaptop,C_text("\376B\000\000#unterminated string in embedded SRE"));
42532 lf[79]=C_h_intern(&lf[79],5, C_text("space"));
42533 lf[80]=C_h_intern(&lf[80],7, C_text("newline"));
42534 lf[81]=C_h_intern(&lf[81],20, C_text("##sys#number->string"));
42535 lf[82]=C_h_intern(&lf[82],21, C_text("scheme#symbol->string"));
42536 lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad # syntax in simplified SRE"));
42537 lf[84]=C_h_intern(&lf[84],21, C_text("scheme#string->symbol"));
42538 lf[85]=C_h_intern(&lf[85],21, C_text("scheme#string->number"));
42539 lf[86]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000;\376\003\000\000\002\376\377\012\000\000(\376\003\000\000\002\376\377\012\000\000)\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000#\376\003\000\000\002\376\377\012\000\000\134\376\377\016"));
42540 lf[87]=C_h_intern(&lf[87],11, C_text("close-token"));
42541 lf[88]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025unexpected \047)\047 in SRE"));
42542 lf[90]=C_h_intern(&lf[90],1, C_text("i"));
42543 lf[91]=C_h_intern(&lf[91],1, C_text("m"));
42544 lf[92]=C_h_intern(&lf[92],10, C_text("multi-line"));
42545 lf[93]=C_h_intern(&lf[93],1, C_text("s"));
42546 lf[94]=C_h_intern(&lf[94],11, C_text("single-line"));
42547 lf[95]=C_h_intern(&lf[95],1, C_text("x"));
42548 lf[96]=C_h_intern(&lf[96],12, C_text("ignore-space"));
42549 lf[97]=C_h_intern(&lf[97],1, C_text("u"));
42550 lf[98]=C_h_intern(&lf[98],4, C_text("utf8"));
42551 lf[99]=C_h_intern(&lf[99],2, C_text("ci"));
42552 lf[100]=C_h_intern(&lf[100],16, C_text("case-insensitive"));
42553 lf[101]=C_h_intern(&lf[101],33, C_text("chicken.irregex#maybe-string->sre"));
42554 lf[102]=C_h_intern(&lf[102],27, C_text("chicken.irregex#string->sre"));
42555 lf[103]=C_h_intern(&lf[103],2, C_text("or"));
42556 lf[105]=C_h_intern(&lf[105],18, C_text("##sys#string->list"));
42557 lf[108]=C_h_intern(&lf[108],8, C_text("submatch"));
42558 lf[109]=C_h_intern(&lf[109],2, C_text("if"));
42559 lf[110]=C_h_intern(&lf[110],7, C_text("epsilon"));
42560 lf[111]=C_h_intern(&lf[111],10, C_text("look-ahead"));
42561 lf[112]=C_h_intern(&lf[112],14, C_text("neg-look-ahead"));
42562 lf[113]=C_h_intern(&lf[113],11, C_text("look-behind"));
42563 lf[114]=C_h_intern(&lf[114],15, C_text("neg-look-behind"));
42564 lf[115]=C_h_intern(&lf[115],3, C_text("seq"));
42565 lf[116]=C_h_intern(&lf[116],13, C_text("scheme#cddadr"));
42566 lf[117]=C_h_intern(&lf[117],13, C_text("scheme#cadadr"));
42567 lf[118]=C_h_intern(&lf[118],12, C_text("##sys#append"));
42568 lf[119]=C_h_intern(&lf[119],2, C_text("=>"));
42569 lf[120]=C_h_intern(&lf[120],14, C_text("submatch-named"));
42570 lf[121]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001=>\376\003\000\000\002\376\001\000\000\016\001submatch-named\376\377\016"));
42571 lf[122]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001atomic\376\003\000\000\002\376\001\000\000\002\001if\376\003\000\000\002\376\001\000\000\012\001look-ahead\376\003\000\000\002\376\001\000\000\016\001neg-look-ahead\376\003\000\000"
42572 "\002\376\001\000\000\013\001look-behind\376\003\000\000\002\376\001\000\000\017\001neg-look-behind\376\003\000\000\002\376\001\000\000\002\001=>\376\003\000\000\002\376\001\000\000\016\001submatch-nam"
42573 "ed\376\003\000\000\002\376\001\000\000\006\001w/utf8\376\003\000\000\002\376\001\000\000\010\001w/noutf8\376\377\016"));
42574 lf[123]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp"));
42575 lf[124]=C_h_intern(&lf[124],3, C_text("any"));
42576 lf[125]=C_h_intern(&lf[125],4, C_text("nonl"));
42577 lf[126]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034\077 can\047t follow empty pattern"));
42578 lf[127]=C_h_intern(&lf[127],1, C_text("\052"));
42579 lf[128]=C_h_intern(&lf[128],2, C_text("\052\077"));
42580 lf[129]=C_h_intern(&lf[129],1, C_text("+"));
42581 lf[130]=C_h_intern(&lf[130],3, C_text("\052\052\077"));
42582 lf[131]=C_h_intern(&lf[131],1, C_text("\077"));
42583 lf[132]=C_h_intern(&lf[132],2, C_text("\077\077"));
42584 lf[133]=C_h_intern(&lf[133],2, C_text("\052\052"));
42585 lf[134]=C_h_intern(&lf[134],1, C_text("="));
42586 lf[135]=C_h_intern(&lf[135],2, C_text(">="));
42587 lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000)duplicate repetition (e.g. \052\052) in pattern"));
42588 lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000%can\047t repeat empty pattern (e.g. ()\052)"));
42589 lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp"));
42590 lf[141]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\077\376\003\000\000\002\376\377\012\000\000\052\376\377\016"));
42591 lf[142]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp"));
42592 lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unterminated (\052\047...) SRE escape"));
42593 lf[144]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047bad regexp syntax: (\052FOO) not supported"));
42594 lf[145]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001look-ahead\376\377\016"));
42595 lf[146]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001neg-look-ahead\376\377\016"));
42596 lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp"));
42597 lf[148]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001look-behind\376\377\016"));
42598 lf[149]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\017\001neg-look-behind\376\377\016"));
42599 lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024invalid (\077< sequence"));
42600 lf[151]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001atomic\376\377\016"));
42601 lf[152]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042unterminated parenthesis in regexp"));
42602 lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid conditional reference"));
42603 lf[154]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001if\376\377\016"));
42604 lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036unsupported Perl-style cluster"));
42605 lf[156]=C_h_intern(&lf[156],6, C_text("w/utf8"));
42606 lf[157]=C_h_intern(&lf[157],8, C_text("w/noutf8"));
42607 lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022incomplete cluster"));
42608 lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036unknown regex cluster modifier"));
42609 lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026too many )\047s in regexp"));
42610 lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023incomplete char set"));
42611 lf[163]=C_h_intern(&lf[163],19, C_text("scheme#vector->list"));
42612 lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014bad char-set"));
42613 lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032inverted range in char-set"));
42614 lf[170]=C_decode_literal(C_heaptop,C_text("\376\000\000\001\000\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000"
42615 "\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376"
42616 "\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000"
42617 "\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001"
42618 "\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001"
42619 "\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000"
42620 "\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377"
42621 "\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000"
42622 "\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376"
42623 "\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000"
42624 "\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001"
42625 "\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001"
42626 "\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000"
42627 "\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377"
42628 "\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000"
42629 "\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376"
42630 "\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\002\376\377\001\000"
42631 "\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002"
42632 "\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001"
42633 "\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000"
42634 "\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377"
42635 "\001\000\000\000\003\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\005\376\377\001\000\000\000\005\376\377\001\000\000"
42636 "\000\005\376\377\001\000\000\000\005\376\377\001\000\000\000\006\376\377\001\000\000\000\006\376\377\001\000\000\000\000\376\377\001\000\000\000\000"));
42637 lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032incomplete character class"));
42638 lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000!collating sequences not supported"));
42639 lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034{ can\047t follow empty pattern"));
42640 lf[175]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid {n} repetition syntax"));
42641 lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
42642 lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032incomplete escape sequence"));
42643 lf[178]=C_h_intern(&lf[178],7, C_text("numeric"));
42644 lf[179]=C_h_intern(&lf[179],1, C_text("~"));
42645 lf[180]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_"));
42646 lf[181]=C_h_intern(&lf[181],12, C_text("alphanumeric"));
42647 lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_"));
42648 lf[183]=C_h_intern(&lf[183],3, C_text("bow"));
42649 lf[184]=C_h_intern(&lf[184],3, C_text("eow"));
42650 lf[185]=C_h_intern(&lf[185],3, C_text("nwb"));
42651 lf[186]=C_h_intern(&lf[186],3, C_text("bos"));
42652 lf[187]=C_h_intern(&lf[187],3, C_text("eos"));
42653 lf[188]=C_h_intern(&lf[188],5, C_text("reset"));
42654 lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000<\376\003\000\000\002\376\377\012\000\000{\376\003\000\000\002\376\377\012\000\000\047\376\377\016"));
42655 lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036bad \134k usage, expected \134k<...>"));
42656 lf[191]=C_h_intern(&lf[191],10, C_text("backref-ci"));
42657 lf[192]=C_h_intern(&lf[192],7, C_text("backref"));
42658 lf[193]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032unterminated named backref"));
42659 lf[194]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027unknown escape sequence"));
42660 lf[195]=C_h_intern(&lf[195],3, C_text("bol"));
42661 lf[196]=C_h_intern(&lf[196],3, C_text("eol"));
42662 lf[197]=C_h_intern(&lf[197],11, C_text("string->sre"));
42663 lf[198]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021expected a string"));
42664 lf[199]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025incomplete hex escape"));
42665 lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033incomplete hex brace escape"));
42666 lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024bad hex brace escape"));
42667 lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025incomplete hex escape"));
42668 lf[203]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016bad hex escape"));
42669 lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid utf8 length"));
42670 lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid utf8 length"));
42671 lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unicode codepoint out of range:"));
42672 lf[211]=C_h_intern(&lf[211],3, C_text("map"));
42673 lf[215]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid utf8 length"));
42674 lf[217]=C_h_intern(&lf[217],23, C_text("chicken.irregex#irregex"));
42675 lf[218]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\013\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\001\000\000\000\000"));
42676 lf[219]=C_h_intern(&lf[219],31, C_text("chicken.irregex#string->irregex"));
42677 lf[220]=C_h_intern(&lf[220],28, C_text("chicken.irregex#sre->irregex"));
42678 lf[221]=C_h_intern(&lf[221],5, C_text("small"));
42679 lf[222]=C_h_intern(&lf[222],4, C_text("fast"));
42680 lf[225]=C_h_intern(&lf[225],6, C_text("w/case"));
42681 lf[226]=C_h_intern(&lf[226],8, C_text("w/nocase"));
42682 lf[227]=C_h_intern(&lf[227],1, C_text(":"));
42683 lf[228]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024invalid sre: empty \052"));
42684 lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid sre: empty \052\077"));
42685 lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024invalid sre: empty +"));
42686 lf[231]=C_h_intern(&lf[231],4, C_text("word"));
42687 lf[232]=C_h_intern(&lf[232],5, C_text("word+"));
42688 lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001_"));
42689 lf[234]=C_h_intern(&lf[234],1, C_text("&"));
42690 lf[235]=C_h_intern(&lf[235],12, C_text("posix-string"));
42691 lf[236]=C_h_intern(&lf[236],10, C_text("scheme#not"));
42692 lf[237]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\003\001any\376\377\016"));
42693 lf[238]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001eos\376\377\016"));
42694 lf[239]=C_h_intern(&lf[239],6, C_text("atomic"));
42695 lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037unknown named backref in SRE IF"));
42696 lf[241]=C_h_intern(&lf[241],18, C_text("scheme#string-ci=\077"));
42697 lf[242]=C_h_intern(&lf[242],15, C_text("scheme#string=\077"));
42698 lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025unknown backreference"));
42699 lf[244]=C_h_intern(&lf[244],3, C_text("dsm"));
42700 lf[245]=C_h_intern(&lf[245],1, C_text("$"));
42701 lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027unknown regexp operator"));
42702 lf[247]=C_h_intern(&lf[247],1, C_text("-"));
42703 lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unknown regexp"));
42704 lf[250]=C_h_intern(&lf[250],16, C_text("scheme#char-ci=\077"));
42705 lf[251]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unknown regexp"));
42706 lf[254]=C_h_intern(&lf[254],10, C_text("scheme#max"));
42707 lf[255]=C_h_intern(&lf[255],10, C_text("scheme#min"));
42708 lf[256]=C_h_intern(&lf[256],10, C_text("sre-length"));
42709 lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid backreference"));
42710 lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035invalid forward backreference"));
42711 lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025unknown backreference"));
42712 lf[260]=C_h_intern(&lf[260],3, C_text(">=\077"));
42713 lf[261]=C_h_intern(&lf[261],17, C_text("sre-length-ranges"));
42714 lf[262]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unknown sre operator"));
42715 lf[263]=C_h_intern(&lf[263],2, C_text("=\077"));
42716 lf[264]=C_h_intern(&lf[264],6, C_text("commit"));
42717 lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013unknown sre"));
42718 lf[266]=C_h_intern(&lf[266],11, C_text("scheme#cons"));
42719 lf[269]=C_h_intern(&lf[269],9, C_text("backtrack"));
42720 lf[272]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\003\001any\376\377\016"));
42721 lf[273]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\004\001nonl\376\377\016"));
42722 lf[274]=C_h_intern(&lf[274],8, C_text("utf8-any"));
42723 lf[275]=C_h_intern(&lf[275],9, C_text("utf8-nonl"));
42724 lf[276]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001epsilon\376\003\000\000\002\376\001\000\000\003\001bos\376\003\000\000\002\376\001\000\000\003\001eos\376\003\000\000\002\376\001\000\000\003\001bol\376\003\000\000\002\376\001\000\000\003\001eol\376\003\000\000\002\376"
42725 "\001\000\000\003\001bow\376\003\000\000\002\376\001\000\000\003\001eow\376\003\000\000\002\376\001\000\000\006\001commit\376\377\016"));
42726 lf[278]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\001\001+\376\377\016"));
42727 lf[281]=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\001submatch\376\003\000\000\002\376\001\000\000\002\001=>\376\003\000\000\002\376\001\000\000\016\001submatch-named\376\377\016"));
42728 lf[282]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001or\376\377\016"));
42729 lf[286]=C_h_intern(&lf[286],30, C_text("chicken.irregex#irregex-search"));
42730 lf[287]=C_h_intern(&lf[287],38, C_text("chicken.irregex#irregex-search/chunked"));
42731 lf[288]=C_h_intern(&lf[288],14, C_text("irregex-search"));
42732 lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42733 lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42734 lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42735 lf[293]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not an integer"));
42736 lf[294]=C_h_intern(&lf[294],11, C_text("irregex-dfa"));
42737 lf[297]=C_h_intern(&lf[297],11, C_text("irregex-nfa"));
42738 lf[298]=C_h_intern(&lf[298],29, C_text("chicken.irregex#irregex-match"));
42739 lf[299]=C_h_intern(&lf[299],37, C_text("chicken.irregex#irregex-match/chunked"));
42740 lf[300]=C_h_intern(&lf[300],13, C_text("irregex-match"));
42741 lf[301]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42742 lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42743 lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42744 lf[304]=C_h_intern(&lf[304],30, C_text("chicken.irregex#irregex-match\077"));
42745 lf[306]=C_h_intern(&lf[306],8, C_text("for-each"));
42746 lf[307]=C_h_intern(&lf[307],10, C_text("alphabetic"));
42747 lf[308]=C_h_intern(&lf[308],5, C_text("alpha"));
42748 lf[309]=C_h_intern(&lf[309],8, C_text("alphanum"));
42749 lf[310]=C_h_intern(&lf[310],5, C_text("alnum"));
42750 lf[311]=C_h_intern(&lf[311],10, C_text("lower-case"));
42751 lf[312]=C_h_intern(&lf[312],5, C_text("lower"));
42752 lf[313]=C_h_intern(&lf[313],10, C_text("upper-case"));
42753 lf[314]=C_h_intern(&lf[314],5, C_text("upper"));
42754 lf[315]=C_h_intern(&lf[315],3, C_text("num"));
42755 lf[316]=C_h_intern(&lf[316],5, C_text("digit"));
42756 lf[317]=C_h_intern(&lf[317],11, C_text("punctuation"));
42757 lf[318]=C_h_intern(&lf[318],5, C_text("punct"));
42758 lf[319]=C_h_intern(&lf[319],7, C_text("graphic"));
42759 lf[320]=C_h_intern(&lf[320],5, C_text("graph"));
42760 lf[321]=C_h_intern(&lf[321],5, C_text("blank"));
42761 lf[322]=C_h_intern(&lf[322],10, C_text("whitespace"));
42762 lf[323]=C_h_intern(&lf[323],5, C_text("white"));
42763 lf[324]=C_h_intern(&lf[324],8, C_text("printing"));
42764 lf[325]=C_h_intern(&lf[325],5, C_text("print"));
42765 lf[326]=C_h_intern(&lf[326],7, C_text("control"));
42766 lf[327]=C_h_intern(&lf[327],5, C_text("cntrl"));
42767 lf[328]=C_h_intern(&lf[328],9, C_text("hex-digit"));
42768 lf[329]=C_h_intern(&lf[329],6, C_text("xdigit"));
42769 lf[330]=C_h_intern(&lf[330],5, C_text("ascii"));
42770 lf[331]=C_h_intern(&lf[331],10, C_text("ascii-nonl"));
42771 lf[332]=C_h_intern(&lf[332],14, C_text("utf8-tail-char"));
42772 lf[333]=C_h_intern(&lf[333],11, C_text("utf8-2-char"));
42773 lf[334]=C_h_intern(&lf[334],11, C_text("utf8-3-char"));
42774 lf[335]=C_h_intern(&lf[335],11, C_text("utf8-4-char"));
42775 lf[336]=C_h_intern(&lf[336],7, C_text("integer"));
42776 lf[337]=C_h_intern(&lf[337],4, C_text("real"));
42777 lf[338]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016!$%&\052/:<=>\077^_~"));
42778 lf[339]=C_h_intern(&lf[339],14, C_text("symbol-initial"));
42779 lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004+-.@"));
42780 lf[341]=C_h_intern(&lf[341],17, C_text("symbol-subsequent"));
42781 lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002+-"));
42782 lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001."));
42783 lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002.."));
42784 lf[345]=C_h_intern(&lf[345],6, C_text("symbol"));
42785 lf[346]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;"));
42786 lf[347]=C_h_intern(&lf[347],10, C_text("sexp-space"));
42787 lf[348]=C_h_intern(&lf[348],6, C_text("escape"));
42788 lf[349]=C_h_intern(&lf[349],6, C_text("string"));
42789 lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\00212"));
42790 lf[351]=C_h_intern(&lf[351],10, C_text("ipv4-digit"));
42791 lf[352]=C_h_intern(&lf[352],12, C_text("ipv4-address"));
42792 lf[353]=C_h_intern(&lf[353],12, C_text("ipv6-address"));
42793 lf[354]=C_h_intern(&lf[354],10, C_text("ip-address"));
42794 lf[355]=C_h_intern(&lf[355],11, C_text("domain-atom"));
42795 lf[356]=C_h_intern(&lf[356],6, C_text("domain"));
42796 lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004arpa"));
42797 lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003com"));
42798 lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003gov"));
42799 lf[360]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003mil"));
42800 lf[361]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003net"));
42801 lf[362]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003org"));
42802 lf[363]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003edu"));
42803 lf[364]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004aero"));
42804 lf[365]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003biz"));
42805 lf[366]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004coop"));
42806 lf[367]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004info"));
42807 lf[368]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006museum"));
42808 lf[369]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004name"));
42809 lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003pro"));
42810 lf[371]=C_h_intern(&lf[371],16, C_text("top-level-domain"));
42811 lf[372]=C_h_intern(&lf[372],13, C_text("domain/common"));
42812 lf[373]=C_h_intern(&lf[373],16, C_text("email-local-part"));
42813 lf[374]=C_h_intern(&lf[374],5, C_text("email"));
42814 lf[375]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%"));
42815 lf[376]=C_h_intern(&lf[376],8, C_text("url-char"));
42816 lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001%"));
42817 lf[378]=C_h_intern(&lf[378],14, C_text("url-final-char"));
42818 lf[379]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001s"));
42819 lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:"));
42820 lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/"));
42821 lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\077"));
42822 lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001#"));
42823 lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001/"));
42824 lf[385]=C_h_intern(&lf[385],8, C_text("http-url"));
42825 lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004http"));
42826 lf[387]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003://"));
42827 lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
42828 lf[392]=C_h_intern(&lf[392],12, C_text("scheme#cadar"));
42829 lf[393]=C_h_intern(&lf[393],12, C_text("scheme#cddar"));
42830 lf[394]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001epsilon\376\377\016"));
42831 lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034non-procedure in op position"));
42832 lf[401]=C_h_intern(&lf[401],13, C_text("scheme#caddar"));
42833 lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000!not a valid sre char-set operator"));
42834 lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030not a valid sre char-set"));
42835 lf[409]=C_h_intern(&lf[409],19, C_text("scheme#list->vector"));
42836 lf[411]=C_h_intern(&lf[411],12, C_text("irregex-fold"));
42837 lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42838 lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024not an exact integer"));
42839 lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42840 lf[415]=C_h_intern(&lf[415],28, C_text("chicken.irregex#irregex-fold"));
42841 lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017not a procedure"));
42842 lf[418]=C_h_intern(&lf[418],20, C_text("irregex-fold/chunked"));
42843 lf[419]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016not an integer"));
42844 lf[420]=C_h_intern(&lf[420],36, C_text("chicken.irregex#irregex-fold/chunked"));
42845 lf[421]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017not a procedure"));
42846 lf[422]=C_h_intern(&lf[422],31, C_text("chicken.irregex#irregex-replace"));
42847 lf[424]=C_h_intern(&lf[424],15, C_text("irregex-replace"));
42848 lf[425]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42849 lf[426]=C_h_intern(&lf[426],35, C_text("chicken.irregex#irregex-replace/all"));
42850 lf[427]=C_h_intern(&lf[427],19, C_text("irregex-replace/all"));
42851 lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42852 lf[429]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
42853 lf[430]=C_h_intern(&lf[430],3, C_text("pre"));
42854 lf[431]=C_h_intern(&lf[431],4, C_text("post"));
42855 lf[432]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031unknown match replacement"));
42856 lf[433]=C_h_intern(&lf[433],31, C_text("chicken.irregex#irregex-extract"));
42857 lf[434]=C_h_intern(&lf[434],15, C_text("irregex-extract"));
42858 lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42859 lf[436]=C_h_intern(&lf[436],29, C_text("chicken.irregex#irregex-split"));
42860 lf[437]=C_h_intern(&lf[437],20, C_text("scheme#string-append"));
42861 lf[438]=C_h_intern(&lf[438],13, C_text("irregex-split"));
42862 lf[439]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014not a string"));
42863 lf[440]=C_h_intern(&lf[440],29, C_text("chicken.irregex#irregex-quote"));
42864 lf[441]=C_h_intern(&lf[441],18, C_text("##sys#list->string"));
42865 lf[442]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\134|[](){}.\052+\077^$#"));
42866 lf[443]=C_h_intern(&lf[443],27, C_text("chicken.irregex#irregex-opt"));
42867 lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
42868 lf[445]=C_h_intern(&lf[445],12, C_text("scheme#char\077"));
42869 lf[446]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376B\000\000\000\376\377\016"));
42870 lf[448]=C_h_intern(&lf[448],30, C_text("chicken.base#get-output-string"));
42871 lf[449]=C_h_intern(&lf[449],14, C_text("scheme#display"));
42872 lf[450]=C_h_intern(&lf[450],21, C_text("##sys#write-char/port"));
42873 lf[451]=C_h_intern(&lf[451],31, C_text("chicken.base#open-output-string"));
42874 lf[452]=C_h_intern(&lf[452],27, C_text("chicken.irregex#sre->string"));
42875 lf[453]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
42876 lf[454]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077:"));
42877 lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
42878 lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001("));
42879 lf[457]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
42880 lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001>"));
42881 lf[459]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077<"));
42882 lf[460]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001|"));
42883 lf[461]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
42884 lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077:"));
42885 lf[463]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
42886 lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003(\077:"));
42887 lf[465]=C_h_intern(&lf[465],3, C_text("not"));
42888 lf[466]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
42889 lf[467]=C_h_intern(&lf[467],12, C_text("scheme#cdadr"));
42890 lf[468]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002[^"));
42891 lf[469]=C_decode_literal(C_heaptop,C_text("\376B\000\000(can\047t represent general \047not\047 in strings"));
42892 lf[470]=C_h_intern(&lf[470],4, C_text("cset"));
42893 lf[471]=C_h_intern(&lf[471],12, C_text("scheme#caadr"));
42894 lf[472]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
42895 lf[473]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001["));
42896 lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
42897 lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002[^"));
42898 lf[476]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
42899 lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001:"));
42900 lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001-"));
42901 lf[479]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002(\077"));
42902 lf[480]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unknown sre operator"));
42903 lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001^"));
42904 lf[482]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001$"));
42905 lf[483]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001."));
42906 lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022unknown sre symbol"));
42907 lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023unknown sre pattern"));
42908 lf[486]=C_h_intern(&lf[486],25, C_text("chicken.irregex#glob->sre"));
42909 lf[487]=C_h_intern(&lf[487],9, C_text("glob->sre"));
42910 lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003./\134"));
42911 lf[489]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\134"));
42912 lf[490]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003./\134"));
42913 lf[491]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\134"));
42914 lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unexpected end of character class"));
42915 lf[493]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000/\376\377\016"));
42916 lf[494]=C_h_intern(&lf[494],10, C_text("scheme#car"));
42917 lf[495]=C_h_intern(&lf[495],11, C_text("scheme#cadr"));
42918 lf[496]=C_h_intern(&lf[496],12, C_text("scheme#caddr"));
42919 lf[497]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)>"));
42920 lf[498]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002es"));
42921 lf[499]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 submatch"));
42922 lf[500]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020#<regexp-match ("));
42923 lf[501]=C_h_intern(&lf[501],32, C_text("chicken.base#set-record-printer!"));
42924 C_register_lf2(lf,502,create_ptable());{}
42925 t2=C_a_i_provide(&a,1,lf[0]);
42926 t3=C_a_i_provide(&a,1,lf[1]);
42927 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7535,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
42928 C_word *av2=av;
42929 av2[0]=C_SCHEME_UNDEFINED;
42930 av2[1]=t4;
42931 C_library_toplevel(2,av2);}}
42932 
42933 #ifdef C_ENABLE_PTABLES
42934 static C_PTABLE_ENTRY ptable[1211] = {
42935 {C_text("f33619:irregex_2escm"),(void*)f33619},
42936 {C_text("f33623:irregex_2escm"),(void*)f33623},
42937 {C_text("f_10021:irregex_2escm"),(void*)f_10021},
42938 {C_text("f_10024:irregex_2escm"),(void*)f_10024},
42939 {C_text("f_10038:irregex_2escm"),(void*)f_10038},
42940 {C_text("f_10063:irregex_2escm"),(void*)f_10063},
42941 {C_text("f_10070:irregex_2escm"),(void*)f_10070},
42942 {C_text("f_10089:irregex_2escm"),(void*)f_10089},
42943 {C_text("f_10122:irregex_2escm"),(void*)f_10122},
42944 {C_text("f_10140:irregex_2escm"),(void*)f_10140},
42945 {C_text("f_10160:irregex_2escm"),(void*)f_10160},
42946 {C_text("f_10240:irregex_2escm"),(void*)f_10240},
42947 {C_text("f_10250:irregex_2escm"),(void*)f_10250},
42948 {C_text("f_10253:irregex_2escm"),(void*)f_10253},
42949 {C_text("f_10260:irregex_2escm"),(void*)f_10260},
42950 {C_text("f_10263:irregex_2escm"),(void*)f_10263},
42951 {C_text("f_10311:irregex_2escm"),(void*)f_10311},
42952 {C_text("f_10332:irregex_2escm"),(void*)f_10332},
42953 {C_text("f_10338:irregex_2escm"),(void*)f_10338},
42954 {C_text("f_10356:irregex_2escm"),(void*)f_10356},
42955 {C_text("f_10367:irregex_2escm"),(void*)f_10367},
42956 {C_text("f_10455:irregex_2escm"),(void*)f_10455},
42957 {C_text("f_10467:irregex_2escm"),(void*)f_10467},
42958 {C_text("f_10471:irregex_2escm"),(void*)f_10471},
42959 {C_text("f_10477:irregex_2escm"),(void*)f_10477},
42960 {C_text("f_10482:irregex_2escm"),(void*)f_10482},
42961 {C_text("f_10485:irregex_2escm"),(void*)f_10485},
42962 {C_text("f_10507:irregex_2escm"),(void*)f_10507},
42963 {C_text("f_10524:irregex_2escm"),(void*)f_10524},
42964 {C_text("f_10527:irregex_2escm"),(void*)f_10527},
42965 {C_text("f_10529:irregex_2escm"),(void*)f_10529},
42966 {C_text("f_10563:irregex_2escm"),(void*)f_10563},
42967 {C_text("f_10577:irregex_2escm"),(void*)f_10577},
42968 {C_text("f_10581:irregex_2escm"),(void*)f_10581},
42969 {C_text("f_10583:irregex_2escm"),(void*)f_10583},
42970 {C_text("f_10590:irregex_2escm"),(void*)f_10590},
42971 {C_text("f_10599:irregex_2escm"),(void*)f_10599},
42972 {C_text("f_10619:irregex_2escm"),(void*)f_10619},
42973 {C_text("f_10623:irregex_2escm"),(void*)f_10623},
42974 {C_text("f_10627:irregex_2escm"),(void*)f_10627},
42975 {C_text("f_10655:irregex_2escm"),(void*)f_10655},
42976 {C_text("f_10659:irregex_2escm"),(void*)f_10659},
42977 {C_text("f_10662:irregex_2escm"),(void*)f_10662},
42978 {C_text("f_10665:irregex_2escm"),(void*)f_10665},
42979 {C_text("f_10668:irregex_2escm"),(void*)f_10668},
42980 {C_text("f_10673:irregex_2escm"),(void*)f_10673},
42981 {C_text("f_10676:irregex_2escm"),(void*)f_10676},
42982 {C_text("f_10746:irregex_2escm"),(void*)f_10746},
42983 {C_text("f_10762:irregex_2escm"),(void*)f_10762},
42984 {C_text("f_10838:irregex_2escm"),(void*)f_10838},
42985 {C_text("f_10849:irregex_2escm"),(void*)f_10849},
42986 {C_text("f_10863:irregex_2escm"),(void*)f_10863},
42987 {C_text("f_10885:irregex_2escm"),(void*)f_10885},
42988 {C_text("f_10888:irregex_2escm"),(void*)f_10888},
42989 {C_text("f_10900:irregex_2escm"),(void*)f_10900},
42990 {C_text("f_10960:irregex_2escm"),(void*)f_10960},
42991 {C_text("f_10989:irregex_2escm"),(void*)f_10989},
42992 {C_text("f_11120:irregex_2escm"),(void*)f_11120},
42993 {C_text("f_11126:irregex_2escm"),(void*)f_11126},
42994 {C_text("f_11141:irregex_2escm"),(void*)f_11141},
42995 {C_text("f_11212:irregex_2escm"),(void*)f_11212},
42996 {C_text("f_11242:irregex_2escm"),(void*)f_11242},
42997 {C_text("f_11252:irregex_2escm"),(void*)f_11252},
42998 {C_text("f_11274:irregex_2escm"),(void*)f_11274},
42999 {C_text("f_11309:irregex_2escm"),(void*)f_11309},
43000 {C_text("f_11324:irregex_2escm"),(void*)f_11324},
43001 {C_text("f_11350:irregex_2escm"),(void*)f_11350},
43002 {C_text("f_11373:irregex_2escm"),(void*)f_11373},
43003 {C_text("f_11396:irregex_2escm"),(void*)f_11396},
43004 {C_text("f_11438:irregex_2escm"),(void*)f_11438},
43005 {C_text("f_11461:irregex_2escm"),(void*)f_11461},
43006 {C_text("f_11464:irregex_2escm"),(void*)f_11464},
43007 {C_text("f_11490:irregex_2escm"),(void*)f_11490},
43008 {C_text("f_11494:irregex_2escm"),(void*)f_11494},
43009 {C_text("f_11498:irregex_2escm"),(void*)f_11498},
43010 {C_text("f_11550:irregex_2escm"),(void*)f_11550},
43011 {C_text("f_11575:irregex_2escm"),(void*)f_11575},
43012 {C_text("f_11578:irregex_2escm"),(void*)f_11578},
43013 {C_text("f_11608:irregex_2escm"),(void*)f_11608},
43014 {C_text("f_11612:irregex_2escm"),(void*)f_11612},
43015 {C_text("f_11627:irregex_2escm"),(void*)f_11627},
43016 {C_text("f_11630:irregex_2escm"),(void*)f_11630},
43017 {C_text("f_11651:irregex_2escm"),(void*)f_11651},
43018 {C_text("f_11655:irregex_2escm"),(void*)f_11655},
43019 {C_text("f_11678:irregex_2escm"),(void*)f_11678},
43020 {C_text("f_11709:irregex_2escm"),(void*)f_11709},
43021 {C_text("f_11712:irregex_2escm"),(void*)f_11712},
43022 {C_text("f_11721:irregex_2escm"),(void*)f_11721},
43023 {C_text("f_11865:irregex_2escm"),(void*)f_11865},
43024 {C_text("f_11896:irregex_2escm"),(void*)f_11896},
43025 {C_text("f_11987:irregex_2escm"),(void*)f_11987},
43026 {C_text("f_12002:irregex_2escm"),(void*)f_12002},
43027 {C_text("f_12022:irregex_2escm"),(void*)f_12022},
43028 {C_text("f_12026:irregex_2escm"),(void*)f_12026},
43029 {C_text("f_12045:irregex_2escm"),(void*)f_12045},
43030 {C_text("f_12054:irregex_2escm"),(void*)f_12054},
43031 {C_text("f_12070:irregex_2escm"),(void*)f_12070},
43032 {C_text("f_12073:irregex_2escm"),(void*)f_12073},
43033 {C_text("f_12076:irregex_2escm"),(void*)f_12076},
43034 {C_text("f_12079:irregex_2escm"),(void*)f_12079},
43035 {C_text("f_12088:irregex_2escm"),(void*)f_12088},
43036 {C_text("f_12198:irregex_2escm"),(void*)f_12198},
43037 {C_text("f_12274:irregex_2escm"),(void*)f_12274},
43038 {C_text("f_12301:irregex_2escm"),(void*)f_12301},
43039 {C_text("f_12324:irregex_2escm"),(void*)f_12324},
43040 {C_text("f_12351:irregex_2escm"),(void*)f_12351},
43041 {C_text("f_12378:irregex_2escm"),(void*)f_12378},
43042 {C_text("f_12409:irregex_2escm"),(void*)f_12409},
43043 {C_text("f_12444:irregex_2escm"),(void*)f_12444},
43044 {C_text("f_12467:irregex_2escm"),(void*)f_12467},
43045 {C_text("f_12490:irregex_2escm"),(void*)f_12490},
43046 {C_text("f_12521:irregex_2escm"),(void*)f_12521},
43047 {C_text("f_12544:irregex_2escm"),(void*)f_12544},
43048 {C_text("f_12567:irregex_2escm"),(void*)f_12567},
43049 {C_text("f_12590:irregex_2escm"),(void*)f_12590},
43050 {C_text("f_12613:irregex_2escm"),(void*)f_12613},
43051 {C_text("f_12636:irregex_2escm"),(void*)f_12636},
43052 {C_text("f_12647:irregex_2escm"),(void*)f_12647},
43053 {C_text("f_12667:irregex_2escm"),(void*)f_12667},
43054 {C_text("f_12671:irregex_2escm"),(void*)f_12671},
43055 {C_text("f_12695:irregex_2escm"),(void*)f_12695},
43056 {C_text("f_12698:irregex_2escm"),(void*)f_12698},
43057 {C_text("f_12701:irregex_2escm"),(void*)f_12701},
43058 {C_text("f_12736:irregex_2escm"),(void*)f_12736},
43059 {C_text("f_12740:irregex_2escm"),(void*)f_12740},
43060 {C_text("f_12767:irregex_2escm"),(void*)f_12767},
43061 {C_text("f_12775:irregex_2escm"),(void*)f_12775},
43062 {C_text("f_12835:irregex_2escm"),(void*)f_12835},
43063 {C_text("f_12878:irregex_2escm"),(void*)f_12878},
43064 {C_text("f_12890:irregex_2escm"),(void*)f_12890},
43065 {C_text("f_12899:irregex_2escm"),(void*)f_12899},
43066 {C_text("f_12919:irregex_2escm"),(void*)f_12919},
43067 {C_text("f_12923:irregex_2escm"),(void*)f_12923},
43068 {C_text("f_12927:irregex_2escm"),(void*)f_12927},
43069 {C_text("f_12979:irregex_2escm"),(void*)f_12979},
43070 {C_text("f_12995:irregex_2escm"),(void*)f_12995},
43071 {C_text("f_13059:irregex_2escm"),(void*)f_13059},
43072 {C_text("f_13085:irregex_2escm"),(void*)f_13085},
43073 {C_text("f_13114:irregex_2escm"),(void*)f_13114},
43074 {C_text("f_13142:irregex_2escm"),(void*)f_13142},
43075 {C_text("f_13163:irregex_2escm"),(void*)f_13163},
43076 {C_text("f_13181:irregex_2escm"),(void*)f_13181},
43077 {C_text("f_13295:irregex_2escm"),(void*)f_13295},
43078 {C_text("f_13314:irregex_2escm"),(void*)f_13314},
43079 {C_text("f_13326:irregex_2escm"),(void*)f_13326},
43080 {C_text("f_13329:irregex_2escm"),(void*)f_13329},
43081 {C_text("f_13360:irregex_2escm"),(void*)f_13360},
43082 {C_text("f_13363:irregex_2escm"),(void*)f_13363},
43083 {C_text("f_13404:irregex_2escm"),(void*)f_13404},
43084 {C_text("f_13439:irregex_2escm"),(void*)f_13439},
43085 {C_text("f_13449:irregex_2escm"),(void*)f_13449},
43086 {C_text("f_13456:irregex_2escm"),(void*)f_13456},
43087 {C_text("f_13477:irregex_2escm"),(void*)f_13477},
43088 {C_text("f_13487:irregex_2escm"),(void*)f_13487},
43089 {C_text("f_13504:irregex_2escm"),(void*)f_13504},
43090 {C_text("f_13521:irregex_2escm"),(void*)f_13521},
43091 {C_text("f_13532:irregex_2escm"),(void*)f_13532},
43092 {C_text("f_13533:irregex_2escm"),(void*)f_13533},
43093 {C_text("f_13554:irregex_2escm"),(void*)f_13554},
43094 {C_text("f_13566:irregex_2escm"),(void*)f_13566},
43095 {C_text("f_13576:irregex_2escm"),(void*)f_13576},
43096 {C_text("f_13679:irregex_2escm"),(void*)f_13679},
43097 {C_text("f_13688:irregex_2escm"),(void*)f_13688},
43098 {C_text("f_13694:irregex_2escm"),(void*)f_13694},
43099 {C_text("f_13697:irregex_2escm"),(void*)f_13697},
43100 {C_text("f_13707:irregex_2escm"),(void*)f_13707},
43101 {C_text("f_13714:irregex_2escm"),(void*)f_13714},
43102 {C_text("f_13718:irregex_2escm"),(void*)f_13718},
43103 {C_text("f_13762:irregex_2escm"),(void*)f_13762},
43104 {C_text("f_13801:irregex_2escm"),(void*)f_13801},
43105 {C_text("f_13811:irregex_2escm"),(void*)f_13811},
43106 {C_text("f_13815:irregex_2escm"),(void*)f_13815},
43107 {C_text("f_13819:irregex_2escm"),(void*)f_13819},
43108 {C_text("f_13834:irregex_2escm"),(void*)f_13834},
43109 {C_text("f_13842:irregex_2escm"),(void*)f_13842},
43110 {C_text("f_13846:irregex_2escm"),(void*)f_13846},
43111 {C_text("f_13865:irregex_2escm"),(void*)f_13865},
43112 {C_text("f_13918:irregex_2escm"),(void*)f_13918},
43113 {C_text("f_13932:irregex_2escm"),(void*)f_13932},
43114 {C_text("f_13936:irregex_2escm"),(void*)f_13936},
43115 {C_text("f_13940:irregex_2escm"),(void*)f_13940},
43116 {C_text("f_13950:irregex_2escm"),(void*)f_13950},
43117 {C_text("f_14008:irregex_2escm"),(void*)f_14008},
43118 {C_text("f_14029:irregex_2escm"),(void*)f_14029},
43119 {C_text("f_14032:irregex_2escm"),(void*)f_14032},
43120 {C_text("f_14224:irregex_2escm"),(void*)f_14224},
43121 {C_text("f_14262:irregex_2escm"),(void*)f_14262},
43122 {C_text("f_14338:irregex_2escm"),(void*)f_14338},
43123 {C_text("f_14479:irregex_2escm"),(void*)f_14479},
43124 {C_text("f_14482:irregex_2escm"),(void*)f_14482},
43125 {C_text("f_14503:irregex_2escm"),(void*)f_14503},
43126 {C_text("f_14508:irregex_2escm"),(void*)f_14508},
43127 {C_text("f_14540:irregex_2escm"),(void*)f_14540},
43128 {C_text("f_14565:irregex_2escm"),(void*)f_14565},
43129 {C_text("f_14569:irregex_2escm"),(void*)f_14569},
43130 {C_text("f_14580:irregex_2escm"),(void*)f_14580},
43131 {C_text("f_14588:irregex_2escm"),(void*)f_14588},
43132 {C_text("f_14614:irregex_2escm"),(void*)f_14614},
43133 {C_text("f_14644:irregex_2escm"),(void*)f_14644},
43134 {C_text("f_14654:irregex_2escm"),(void*)f_14654},
43135 {C_text("f_14662:irregex_2escm"),(void*)f_14662},
43136 {C_text("f_14678:irregex_2escm"),(void*)f_14678},
43137 {C_text("f_14680:irregex_2escm"),(void*)f_14680},
43138 {C_text("f_14716:irregex_2escm"),(void*)f_14716},
43139 {C_text("f_14752:irregex_2escm"),(void*)f_14752},
43140 {C_text("f_14772:irregex_2escm"),(void*)f_14772},
43141 {C_text("f_14774:irregex_2escm"),(void*)f_14774},
43142 {C_text("f_14806:irregex_2escm"),(void*)f_14806},
43143 {C_text("f_14813:irregex_2escm"),(void*)f_14813},
43144 {C_text("f_14819:irregex_2escm"),(void*)f_14819},
43145 {C_text("f_14835:irregex_2escm"),(void*)f_14835},
43146 {C_text("f_14837:irregex_2escm"),(void*)f_14837},
43147 {C_text("f_14877:irregex_2escm"),(void*)f_14877},
43148 {C_text("f_14883:irregex_2escm"),(void*)f_14883},
43149 {C_text("f_14891:irregex_2escm"),(void*)f_14891},
43150 {C_text("f_14911:irregex_2escm"),(void*)f_14911},
43151 {C_text("f_14913:irregex_2escm"),(void*)f_14913},
43152 {C_text("f_14945:irregex_2escm"),(void*)f_14945},
43153 {C_text("f_14952:irregex_2escm"),(void*)f_14952},
43154 {C_text("f_14958:irregex_2escm"),(void*)f_14958},
43155 {C_text("f_14974:irregex_2escm"),(void*)f_14974},
43156 {C_text("f_14976:irregex_2escm"),(void*)f_14976},
43157 {C_text("f_15016:irregex_2escm"),(void*)f_15016},
43158 {C_text("f_15022:irregex_2escm"),(void*)f_15022},
43159 {C_text("f_15041:irregex_2escm"),(void*)f_15041},
43160 {C_text("f_15050:irregex_2escm"),(void*)f_15050},
43161 {C_text("f_15062:irregex_2escm"),(void*)f_15062},
43162 {C_text("f_15074:irregex_2escm"),(void*)f_15074},
43163 {C_text("f_15080:irregex_2escm"),(void*)f_15080},
43164 {C_text("f_15082:irregex_2escm"),(void*)f_15082},
43165 {C_text("f_15130:irregex_2escm"),(void*)f_15130},
43166 {C_text("f_15138:irregex_2escm"),(void*)f_15138},
43167 {C_text("f_15145:irregex_2escm"),(void*)f_15145},
43168 {C_text("f_15151:irregex_2escm"),(void*)f_15151},
43169 {C_text("f_15183:irregex_2escm"),(void*)f_15183},
43170 {C_text("f_15185:irregex_2escm"),(void*)f_15185},
43171 {C_text("f_15235:irregex_2escm"),(void*)f_15235},
43172 {C_text("f_15253:irregex_2escm"),(void*)f_15253},
43173 {C_text("f_15278:irregex_2escm"),(void*)f_15278},
43174 {C_text("f_15321:irregex_2escm"),(void*)f_15321},
43175 {C_text("f_15323:irregex_2escm"),(void*)f_15323},
43176 {C_text("f_15412:irregex_2escm"),(void*)f_15412},
43177 {C_text("f_15414:irregex_2escm"),(void*)f_15414},
43178 {C_text("f_15469:irregex_2escm"),(void*)f_15469},
43179 {C_text("f_15477:irregex_2escm"),(void*)f_15477},
43180 {C_text("f_15479:irregex_2escm"),(void*)f_15479},
43181 {C_text("f_15493:irregex_2escm"),(void*)f_15493},
43182 {C_text("f_15497:irregex_2escm"),(void*)f_15497},
43183 {C_text("f_15515:irregex_2escm"),(void*)f_15515},
43184 {C_text("f_15524:irregex_2escm"),(void*)f_15524},
43185 {C_text("f_15539:irregex_2escm"),(void*)f_15539},
43186 {C_text("f_15591:irregex_2escm"),(void*)f_15591},
43187 {C_text("f_15594:irregex_2escm"),(void*)f_15594},
43188 {C_text("f_15651:irregex_2escm"),(void*)f_15651},
43189 {C_text("f_15662:irregex_2escm"),(void*)f_15662},
43190 {C_text("f_15664:irregex_2escm"),(void*)f_15664},
43191 {C_text("f_15689:irregex_2escm"),(void*)f_15689},
43192 {C_text("f_15712:irregex_2escm"),(void*)f_15712},
43193 {C_text("f_15723:irregex_2escm"),(void*)f_15723},
43194 {C_text("f_15725:irregex_2escm"),(void*)f_15725},
43195 {C_text("f_15750:irregex_2escm"),(void*)f_15750},
43196 {C_text("f_15766:irregex_2escm"),(void*)f_15766},
43197 {C_text("f_15775:irregex_2escm"),(void*)f_15775},
43198 {C_text("f_15781:irregex_2escm"),(void*)f_15781},
43199 {C_text("f_15791:irregex_2escm"),(void*)f_15791},
43200 {C_text("f_15798:irregex_2escm"),(void*)f_15798},
43201 {C_text("f_15833:irregex_2escm"),(void*)f_15833},
43202 {C_text("f_15835:irregex_2escm"),(void*)f_15835},
43203 {C_text("f_15860:irregex_2escm"),(void*)f_15860},
43204 {C_text("f_15889:irregex_2escm"),(void*)f_15889},
43205 {C_text("f_15891:irregex_2escm"),(void*)f_15891},
43206 {C_text("f_15916:irregex_2escm"),(void*)f_15916},
43207 {C_text("f_15974:irregex_2escm"),(void*)f_15974},
43208 {C_text("f_15984:irregex_2escm"),(void*)f_15984},
43209 {C_text("f_15987:irregex_2escm"),(void*)f_15987},
43210 {C_text("f_15989:irregex_2escm"),(void*)f_15989},
43211 {C_text("f_16036:irregex_2escm"),(void*)f_16036},
43212 {C_text("f_16043:irregex_2escm"),(void*)f_16043},
43213 {C_text("f_16097:irregex_2escm"),(void*)f_16097},
43214 {C_text("f_16164:irregex_2escm"),(void*)f_16164},
43215 {C_text("f_16172:irregex_2escm"),(void*)f_16172},
43216 {C_text("f_16174:irregex_2escm"),(void*)f_16174},
43217 {C_text("f_16178:irregex_2escm"),(void*)f_16178},
43218 {C_text("f_16181:irregex_2escm"),(void*)f_16181},
43219 {C_text("f_16184:irregex_2escm"),(void*)f_16184},
43220 {C_text("f_16187:irregex_2escm"),(void*)f_16187},
43221 {C_text("f_16193:irregex_2escm"),(void*)f_16193},
43222 {C_text("f_16196:irregex_2escm"),(void*)f_16196},
43223 {C_text("f_16199:irregex_2escm"),(void*)f_16199},
43224 {C_text("f_16202:irregex_2escm"),(void*)f_16202},
43225 {C_text("f_16205:irregex_2escm"),(void*)f_16205},
43226 {C_text("f_16220:irregex_2escm"),(void*)f_16220},
43227 {C_text("f_16234:irregex_2escm"),(void*)f_16234},
43228 {C_text("f_16239:irregex_2escm"),(void*)f_16239},
43229 {C_text("f_16265:irregex_2escm"),(void*)f_16265},
43230 {C_text("f_16269:irregex_2escm"),(void*)f_16269},
43231 {C_text("f_16307:irregex_2escm"),(void*)f_16307},
43232 {C_text("f_16324:irregex_2escm"),(void*)f_16324},
43233 {C_text("f_16367:irregex_2escm"),(void*)f_16367},
43234 {C_text("f_16474:irregex_2escm"),(void*)f_16474},
43235 {C_text("f_16497:irregex_2escm"),(void*)f_16497},
43236 {C_text("f_16575:irregex_2escm"),(void*)f_16575},
43237 {C_text("f_16620:irregex_2escm"),(void*)f_16620},
43238 {C_text("f_16637:irregex_2escm"),(void*)f_16637},
43239 {C_text("f_16709:irregex_2escm"),(void*)f_16709},
43240 {C_text("f_16713:irregex_2escm"),(void*)f_16713},
43241 {C_text("f_16750:irregex_2escm"),(void*)f_16750},
43242 {C_text("f_16826:irregex_2escm"),(void*)f_16826},
43243 {C_text("f_16830:irregex_2escm"),(void*)f_16830},
43244 {C_text("f_16867:irregex_2escm"),(void*)f_16867},
43245 {C_text("f_16880:irregex_2escm"),(void*)f_16880},
43246 {C_text("f_16943:irregex_2escm"),(void*)f_16943},
43247 {C_text("f_16969:irregex_2escm"),(void*)f_16969},
43248 {C_text("f_16982:irregex_2escm"),(void*)f_16982},
43249 {C_text("f_16988:irregex_2escm"),(void*)f_16988},
43250 {C_text("f_17009:irregex_2escm"),(void*)f_17009},
43251 {C_text("f_17015:irregex_2escm"),(void*)f_17015},
43252 {C_text("f_17045:irregex_2escm"),(void*)f_17045},
43253 {C_text("f_17082:irregex_2escm"),(void*)f_17082},
43254 {C_text("f_17085:irregex_2escm"),(void*)f_17085},
43255 {C_text("f_17092:irregex_2escm"),(void*)f_17092},
43256 {C_text("f_17094:irregex_2escm"),(void*)f_17094},
43257 {C_text("f_17097:irregex_2escm"),(void*)f_17097},
43258 {C_text("f_17137:irregex_2escm"),(void*)f_17137},
43259 {C_text("f_17153:irregex_2escm"),(void*)f_17153},
43260 {C_text("f_17166:irregex_2escm"),(void*)f_17166},
43261 {C_text("f_17173:irregex_2escm"),(void*)f_17173},
43262 {C_text("f_17206:irregex_2escm"),(void*)f_17206},
43263 {C_text("f_17236:irregex_2escm"),(void*)f_17236},
43264 {C_text("f_17251:irregex_2escm"),(void*)f_17251},
43265 {C_text("f_17288:irregex_2escm"),(void*)f_17288},
43266 {C_text("f_17304:irregex_2escm"),(void*)f_17304},
43267 {C_text("f_17308:irregex_2escm"),(void*)f_17308},
43268 {C_text("f_17321:irregex_2escm"),(void*)f_17321},
43269 {C_text("f_17344:irregex_2escm"),(void*)f_17344},
43270 {C_text("f_17347:irregex_2escm"),(void*)f_17347},
43271 {C_text("f_17354:irregex_2escm"),(void*)f_17354},
43272 {C_text("f_17356:irregex_2escm"),(void*)f_17356},
43273 {C_text("f_17370:irregex_2escm"),(void*)f_17370},
43274 {C_text("f_17384:irregex_2escm"),(void*)f_17384},
43275 {C_text("f_17409:irregex_2escm"),(void*)f_17409},
43276 {C_text("f_17413:irregex_2escm"),(void*)f_17413},
43277 {C_text("f_17490:irregex_2escm"),(void*)f_17490},
43278 {C_text("f_17503:irregex_2escm"),(void*)f_17503},
43279 {C_text("f_17539:irregex_2escm"),(void*)f_17539},
43280 {C_text("f_17548:irregex_2escm"),(void*)f_17548},
43281 {C_text("f_17648:irregex_2escm"),(void*)f_17648},
43282 {C_text("f_17657:irregex_2escm"),(void*)f_17657},
43283 {C_text("f_17675:irregex_2escm"),(void*)f_17675},
43284 {C_text("f_17678:irregex_2escm"),(void*)f_17678},
43285 {C_text("f_17696:irregex_2escm"),(void*)f_17696},
43286 {C_text("f_17743:irregex_2escm"),(void*)f_17743},
43287 {C_text("f_17817:irregex_2escm"),(void*)f_17817},
43288 {C_text("f_17845:irregex_2escm"),(void*)f_17845},
43289 {C_text("f_17870:irregex_2escm"),(void*)f_17870},
43290 {C_text("f_17889:irregex_2escm"),(void*)f_17889},
43291 {C_text("f_17910:irregex_2escm"),(void*)f_17910},
43292 {C_text("f_17920:irregex_2escm"),(void*)f_17920},
43293 {C_text("f_17928:irregex_2escm"),(void*)f_17928},
43294 {C_text("f_18159:irregex_2escm"),(void*)f_18159},
43295 {C_text("f_18182:irregex_2escm"),(void*)f_18182},
43296 {C_text("f_18191:irregex_2escm"),(void*)f_18191},
43297 {C_text("f_18214:irregex_2escm"),(void*)f_18214},
43298 {C_text("f_18237:irregex_2escm"),(void*)f_18237},
43299 {C_text("f_18310:irregex_2escm"),(void*)f_18310},
43300 {C_text("f_18335:irregex_2escm"),(void*)f_18335},
43301 {C_text("f_18370:irregex_2escm"),(void*)f_18370},
43302 {C_text("f_18393:irregex_2escm"),(void*)f_18393},
43303 {C_text("f_18397:irregex_2escm"),(void*)f_18397},
43304 {C_text("f_18418:irregex_2escm"),(void*)f_18418},
43305 {C_text("f_18520:irregex_2escm"),(void*)f_18520},
43306 {C_text("f_18704:irregex_2escm"),(void*)f_18704},
43307 {C_text("f_18726:irregex_2escm"),(void*)f_18726},
43308 {C_text("f_18732:irregex_2escm"),(void*)f_18732},
43309 {C_text("f_18736:irregex_2escm"),(void*)f_18736},
43310 {C_text("f_18753:irregex_2escm"),(void*)f_18753},
43311 {C_text("f_18786:irregex_2escm"),(void*)f_18786},
43312 {C_text("f_18823:irregex_2escm"),(void*)f_18823},
43313 {C_text("f_18825:irregex_2escm"),(void*)f_18825},
43314 {C_text("f_18850:irregex_2escm"),(void*)f_18850},
43315 {C_text("f_18918:irregex_2escm"),(void*)f_18918},
43316 {C_text("f_18920:irregex_2escm"),(void*)f_18920},
43317 {C_text("f_18924:irregex_2escm"),(void*)f_18924},
43318 {C_text("f_18933:irregex_2escm"),(void*)f_18933},
43319 {C_text("f_18939:irregex_2escm"),(void*)f_18939},
43320 {C_text("f_18942:irregex_2escm"),(void*)f_18942},
43321 {C_text("f_19010:irregex_2escm"),(void*)f_19010},
43322 {C_text("f_19014:irregex_2escm"),(void*)f_19014},
43323 {C_text("f_19017:irregex_2escm"),(void*)f_19017},
43324 {C_text("f_19020:irregex_2escm"),(void*)f_19020},
43325 {C_text("f_19023:irregex_2escm"),(void*)f_19023},
43326 {C_text("f_19053:irregex_2escm"),(void*)f_19053},
43327 {C_text("f_19072:irregex_2escm"),(void*)f_19072},
43328 {C_text("f_19097:irregex_2escm"),(void*)f_19097},
43329 {C_text("f_19114:irregex_2escm"),(void*)f_19114},
43330 {C_text("f_19118:irregex_2escm"),(void*)f_19118},
43331 {C_text("f_19123:irregex_2escm"),(void*)f_19123},
43332 {C_text("f_19130:irregex_2escm"),(void*)f_19130},
43333 {C_text("f_19153:irregex_2escm"),(void*)f_19153},
43334 {C_text("f_19163:irregex_2escm"),(void*)f_19163},
43335 {C_text("f_19184:irregex_2escm"),(void*)f_19184},
43336 {C_text("f_19202:irregex_2escm"),(void*)f_19202},
43337 {C_text("f_19208:irregex_2escm"),(void*)f_19208},
43338 {C_text("f_19222:irregex_2escm"),(void*)f_19222},
43339 {C_text("f_19228:irregex_2escm"),(void*)f_19228},
43340 {C_text("f_19235:irregex_2escm"),(void*)f_19235},
43341 {C_text("f_19265:irregex_2escm"),(void*)f_19265},
43342 {C_text("f_19278:irregex_2escm"),(void*)f_19278},
43343 {C_text("f_19285:irregex_2escm"),(void*)f_19285},
43344 {C_text("f_19292:irregex_2escm"),(void*)f_19292},
43345 {C_text("f_19294:irregex_2escm"),(void*)f_19294},
43346 {C_text("f_19302:irregex_2escm"),(void*)f_19302},
43347 {C_text("f_19306:irregex_2escm"),(void*)f_19306},
43348 {C_text("f_19315:irregex_2escm"),(void*)f_19315},
43349 {C_text("f_19321:irregex_2escm"),(void*)f_19321},
43350 {C_text("f_19324:irregex_2escm"),(void*)f_19324},
43351 {C_text("f_19392:irregex_2escm"),(void*)f_19392},
43352 {C_text("f_19396:irregex_2escm"),(void*)f_19396},
43353 {C_text("f_19399:irregex_2escm"),(void*)f_19399},
43354 {C_text("f_19414:irregex_2escm"),(void*)f_19414},
43355 {C_text("f_19437:irregex_2escm"),(void*)f_19437},
43356 {C_text("f_19448:irregex_2escm"),(void*)f_19448},
43357 {C_text("f_19484:irregex_2escm"),(void*)f_19484},
43358 {C_text("f_19494:irregex_2escm"),(void*)f_19494},
43359 {C_text("f_19500:irregex_2escm"),(void*)f_19500},
43360 {C_text("f_19506:irregex_2escm"),(void*)f_19506},
43361 {C_text("f_19516:irregex_2escm"),(void*)f_19516},
43362 {C_text("f_19518:irregex_2escm"),(void*)f_19518},
43363 {C_text("f_19528:irregex_2escm"),(void*)f_19528},
43364 {C_text("f_19547:irregex_2escm"),(void*)f_19547},
43365 {C_text("f_19560:irregex_2escm"),(void*)f_19560},
43366 {C_text("f_19592:irregex_2escm"),(void*)f_19592},
43367 {C_text("f_19615:irregex_2escm"),(void*)f_19615},
43368 {C_text("f_19620:irregex_2escm"),(void*)f_19620},
43369 {C_text("f_19627:irregex_2escm"),(void*)f_19627},
43370 {C_text("f_19678:irregex_2escm"),(void*)f_19678},
43371 {C_text("f_19685:irregex_2escm"),(void*)f_19685},
43372 {C_text("f_19688:irregex_2escm"),(void*)f_19688},
43373 {C_text("f_19693:irregex_2escm"),(void*)f_19693},
43374 {C_text("f_19745:irregex_2escm"),(void*)f_19745},
43375 {C_text("f_19760:irregex_2escm"),(void*)f_19760},
43376 {C_text("f_19796:irregex_2escm"),(void*)f_19796},
43377 {C_text("f_19806:irregex_2escm"),(void*)f_19806},
43378 {C_text("f_19816:irregex_2escm"),(void*)f_19816},
43379 {C_text("f_19818:irregex_2escm"),(void*)f_19818},
43380 {C_text("f_19876:irregex_2escm"),(void*)f_19876},
43381 {C_text("f_19904:irregex_2escm"),(void*)f_19904},
43382 {C_text("f_19908:irregex_2escm"),(void*)f_19908},
43383 {C_text("f_19913:irregex_2escm"),(void*)f_19913},
43384 {C_text("f_19933:irregex_2escm"),(void*)f_19933},
43385 {C_text("f_19935:irregex_2escm"),(void*)f_19935},
43386 {C_text("f_19960:irregex_2escm"),(void*)f_19960},
43387 {C_text("f_19972:irregex_2escm"),(void*)f_19972},
43388 {C_text("f_19975:irregex_2escm"),(void*)f_19975},
43389 {C_text("f_19988:irregex_2escm"),(void*)f_19988},
43390 {C_text("f_19992:irregex_2escm"),(void*)f_19992},
43391 {C_text("f_19995:irregex_2escm"),(void*)f_19995},
43392 {C_text("f_20000:irregex_2escm"),(void*)f_20000},
43393 {C_text("f_20010:irregex_2escm"),(void*)f_20010},
43394 {C_text("f_20013:irregex_2escm"),(void*)f_20013},
43395 {C_text("f_20023:irregex_2escm"),(void*)f_20023},
43396 {C_text("f_20058:irregex_2escm"),(void*)f_20058},
43397 {C_text("f_20110:irregex_2escm"),(void*)f_20110},
43398 {C_text("f_20122:irregex_2escm"),(void*)f_20122},
43399 {C_text("f_20146:irregex_2escm"),(void*)f_20146},
43400 {C_text("f_20147:irregex_2escm"),(void*)f_20147},
43401 {C_text("f_20176:irregex_2escm"),(void*)f_20176},
43402 {C_text("f_20185:irregex_2escm"),(void*)f_20185},
43403 {C_text("f_20199:irregex_2escm"),(void*)f_20199},
43404 {C_text("f_20218:irregex_2escm"),(void*)f_20218},
43405 {C_text("f_20226:irregex_2escm"),(void*)f_20226},
43406 {C_text("f_20236:irregex_2escm"),(void*)f_20236},
43407 {C_text("f_20249:irregex_2escm"),(void*)f_20249},
43408 {C_text("f_20274:irregex_2escm"),(void*)f_20274},
43409 {C_text("f_20283:irregex_2escm"),(void*)f_20283},
43410 {C_text("f_20319:irregex_2escm"),(void*)f_20319},
43411 {C_text("f_20322:irregex_2escm"),(void*)f_20322},
43412 {C_text("f_20361:irregex_2escm"),(void*)f_20361},
43413 {C_text("f_20364:irregex_2escm"),(void*)f_20364},
43414 {C_text("f_20389:irregex_2escm"),(void*)f_20389},
43415 {C_text("f_20429:irregex_2escm"),(void*)f_20429},
43416 {C_text("f_20457:irregex_2escm"),(void*)f_20457},
43417 {C_text("f_20582:irregex_2escm"),(void*)f_20582},
43418 {C_text("f_20616:irregex_2escm"),(void*)f_20616},
43419 {C_text("f_20757:irregex_2escm"),(void*)f_20757},
43420 {C_text("f_20761:irregex_2escm"),(void*)f_20761},
43421 {C_text("f_20764:irregex_2escm"),(void*)f_20764},
43422 {C_text("f_20766:irregex_2escm"),(void*)f_20766},
43423 {C_text("f_20769:irregex_2escm"),(void*)f_20769},
43424 {C_text("f_20779:irregex_2escm"),(void*)f_20779},
43425 {C_text("f_20783:irregex_2escm"),(void*)f_20783},
43426 {C_text("f_20792:irregex_2escm"),(void*)f_20792},
43427 {C_text("f_20795:irregex_2escm"),(void*)f_20795},
43428 {C_text("f_20804:irregex_2escm"),(void*)f_20804},
43429 {C_text("f_20840:irregex_2escm"),(void*)f_20840},
43430 {C_text("f_20851:irregex_2escm"),(void*)f_20851},
43431 {C_text("f_20857:irregex_2escm"),(void*)f_20857},
43432 {C_text("f_20874:irregex_2escm"),(void*)f_20874},
43433 {C_text("f_20907:irregex_2escm"),(void*)f_20907},
43434 {C_text("f_20913:irregex_2escm"),(void*)f_20913},
43435 {C_text("f_20920:irregex_2escm"),(void*)f_20920},
43436 {C_text("f_20931:irregex_2escm"),(void*)f_20931},
43437 {C_text("f_20945:irregex_2escm"),(void*)f_20945},
43438 {C_text("f_20963:irregex_2escm"),(void*)f_20963},
43439 {C_text("f_20988:irregex_2escm"),(void*)f_20988},
43440 {C_text("f_21015:irregex_2escm"),(void*)f_21015},
43441 {C_text("f_21046:irregex_2escm"),(void*)f_21046},
43442 {C_text("f_21053:irregex_2escm"),(void*)f_21053},
43443 {C_text("f_21065:irregex_2escm"),(void*)f_21065},
43444 {C_text("f_21095:irregex_2escm"),(void*)f_21095},
43445 {C_text("f_21109:irregex_2escm"),(void*)f_21109},
43446 {C_text("f_21112:irregex_2escm"),(void*)f_21112},
43447 {C_text("f_21118:irregex_2escm"),(void*)f_21118},
43448 {C_text("f_21132:irregex_2escm"),(void*)f_21132},
43449 {C_text("f_21156:irregex_2escm"),(void*)f_21156},
43450 {C_text("f_21159:irregex_2escm"),(void*)f_21159},
43451 {C_text("f_21166:irregex_2escm"),(void*)f_21166},
43452 {C_text("f_21183:irregex_2escm"),(void*)f_21183},
43453 {C_text("f_21199:irregex_2escm"),(void*)f_21199},
43454 {C_text("f_21202:irregex_2escm"),(void*)f_21202},
43455 {C_text("f_21205:irregex_2escm"),(void*)f_21205},
43456 {C_text("f_21211:irregex_2escm"),(void*)f_21211},
43457 {C_text("f_21221:irregex_2escm"),(void*)f_21221},
43458 {C_text("f_21225:irregex_2escm"),(void*)f_21225},
43459 {C_text("f_21236:irregex_2escm"),(void*)f_21236},
43460 {C_text("f_21240:irregex_2escm"),(void*)f_21240},
43461 {C_text("f_21244:irregex_2escm"),(void*)f_21244},
43462 {C_text("f_21252:irregex_2escm"),(void*)f_21252},
43463 {C_text("f_21260:irregex_2escm"),(void*)f_21260},
43464 {C_text("f_21275:irregex_2escm"),(void*)f_21275},
43465 {C_text("f_21281:irregex_2escm"),(void*)f_21281},
43466 {C_text("f_21295:irregex_2escm"),(void*)f_21295},
43467 {C_text("f_21309:irregex_2escm"),(void*)f_21309},
43468 {C_text("f_21315:irregex_2escm"),(void*)f_21315},
43469 {C_text("f_21318:irregex_2escm"),(void*)f_21318},
43470 {C_text("f_21345:irregex_2escm"),(void*)f_21345},
43471 {C_text("f_21349:irregex_2escm"),(void*)f_21349},
43472 {C_text("f_21369:irregex_2escm"),(void*)f_21369},
43473 {C_text("f_21375:irregex_2escm"),(void*)f_21375},
43474 {C_text("f_21378:irregex_2escm"),(void*)f_21378},
43475 {C_text("f_21381:irregex_2escm"),(void*)f_21381},
43476 {C_text("f_21397:irregex_2escm"),(void*)f_21397},
43477 {C_text("f_21405:irregex_2escm"),(void*)f_21405},
43478 {C_text("f_21417:irregex_2escm"),(void*)f_21417},
43479 {C_text("f_21447:irregex_2escm"),(void*)f_21447},
43480 {C_text("f_21453:irregex_2escm"),(void*)f_21453},
43481 {C_text("f_21456:irregex_2escm"),(void*)f_21456},
43482 {C_text("f_21459:irregex_2escm"),(void*)f_21459},
43483 {C_text("f_21475:irregex_2escm"),(void*)f_21475},
43484 {C_text("f_21483:irregex_2escm"),(void*)f_21483},
43485 {C_text("f_21491:irregex_2escm"),(void*)f_21491},
43486 {C_text("f_21495:irregex_2escm"),(void*)f_21495},
43487 {C_text("f_21514:irregex_2escm"),(void*)f_21514},
43488 {C_text("f_21532:irregex_2escm"),(void*)f_21532},
43489 {C_text("f_21660:irregex_2escm"),(void*)f_21660},
43490 {C_text("f_21666:irregex_2escm"),(void*)f_21666},
43491 {C_text("f_21669:irregex_2escm"),(void*)f_21669},
43492 {C_text("f_21677:irregex_2escm"),(void*)f_21677},
43493 {C_text("f_21716:irregex_2escm"),(void*)f_21716},
43494 {C_text("f_21751:irregex_2escm"),(void*)f_21751},
43495 {C_text("f_21758:irregex_2escm"),(void*)f_21758},
43496 {C_text("f_21784:irregex_2escm"),(void*)f_21784},
43497 {C_text("f_21880:irregex_2escm"),(void*)f_21880},
43498 {C_text("f_21884:irregex_2escm"),(void*)f_21884},
43499 {C_text("f_21897:irregex_2escm"),(void*)f_21897},
43500 {C_text("f_21909:irregex_2escm"),(void*)f_21909},
43501 {C_text("f_21913:irregex_2escm"),(void*)f_21913},
43502 {C_text("f_21920:irregex_2escm"),(void*)f_21920},
43503 {C_text("f_21926:irregex_2escm"),(void*)f_21926},
43504 {C_text("f_21930:irregex_2escm"),(void*)f_21930},
43505 {C_text("f_21933:irregex_2escm"),(void*)f_21933},
43506 {C_text("f_21935:irregex_2escm"),(void*)f_21935},
43507 {C_text("f_21942:irregex_2escm"),(void*)f_21942},
43508 {C_text("f_21949:irregex_2escm"),(void*)f_21949},
43509 {C_text("f_21984:irregex_2escm"),(void*)f_21984},
43510 {C_text("f_21997:irregex_2escm"),(void*)f_21997},
43511 {C_text("f_22098:irregex_2escm"),(void*)f_22098},
43512 {C_text("f_22104:irregex_2escm"),(void*)f_22104},
43513 {C_text("f_22110:irregex_2escm"),(void*)f_22110},
43514 {C_text("f_22163:irregex_2escm"),(void*)f_22163},
43515 {C_text("f_22234:irregex_2escm"),(void*)f_22234},
43516 {C_text("f_22287:irregex_2escm"),(void*)f_22287},
43517 {C_text("f_22296:irregex_2escm"),(void*)f_22296},
43518 {C_text("f_22316:irregex_2escm"),(void*)f_22316},
43519 {C_text("f_22345:irregex_2escm"),(void*)f_22345},
43520 {C_text("f_22369:irregex_2escm"),(void*)f_22369},
43521 {C_text("f_22376:irregex_2escm"),(void*)f_22376},
43522 {C_text("f_22379:irregex_2escm"),(void*)f_22379},
43523 {C_text("f_22382:irregex_2escm"),(void*)f_22382},
43524 {C_text("f_22385:irregex_2escm"),(void*)f_22385},
43525 {C_text("f_22401:irregex_2escm"),(void*)f_22401},
43526 {C_text("f_22418:irregex_2escm"),(void*)f_22418},
43527 {C_text("f_22453:irregex_2escm"),(void*)f_22453},
43528 {C_text("f_22457:irregex_2escm"),(void*)f_22457},
43529 {C_text("f_22485:irregex_2escm"),(void*)f_22485},
43530 {C_text("f_22488:irregex_2escm"),(void*)f_22488},
43531 {C_text("f_22494:irregex_2escm"),(void*)f_22494},
43532 {C_text("f_22580:irregex_2escm"),(void*)f_22580},
43533 {C_text("f_22583:irregex_2escm"),(void*)f_22583},
43534 {C_text("f_22588:irregex_2escm"),(void*)f_22588},
43535 {C_text("f_22598:irregex_2escm"),(void*)f_22598},
43536 {C_text("f_22601:irregex_2escm"),(void*)f_22601},
43537 {C_text("f_22621:irregex_2escm"),(void*)f_22621},
43538 {C_text("f_22629:irregex_2escm"),(void*)f_22629},
43539 {C_text("f_22662:irregex_2escm"),(void*)f_22662},
43540 {C_text("f_22664:irregex_2escm"),(void*)f_22664},
43541 {C_text("f_22689:irregex_2escm"),(void*)f_22689},
43542 {C_text("f_22702:irregex_2escm"),(void*)f_22702},
43543 {C_text("f_22741:irregex_2escm"),(void*)f_22741},
43544 {C_text("f_22756:irregex_2escm"),(void*)f_22756},
43545 {C_text("f_22777:irregex_2escm"),(void*)f_22777},
43546 {C_text("f_22795:irregex_2escm"),(void*)f_22795},
43547 {C_text("f_22804:irregex_2escm"),(void*)f_22804},
43548 {C_text("f_22818:irregex_2escm"),(void*)f_22818},
43549 {C_text("f_22822:irregex_2escm"),(void*)f_22822},
43550 {C_text("f_22825:irregex_2escm"),(void*)f_22825},
43551 {C_text("f_22831:irregex_2escm"),(void*)f_22831},
43552 {C_text("f_22834:irregex_2escm"),(void*)f_22834},
43553 {C_text("f_22837:irregex_2escm"),(void*)f_22837},
43554 {C_text("f_22854:irregex_2escm"),(void*)f_22854},
43555 {C_text("f_22926:irregex_2escm"),(void*)f_22926},
43556 {C_text("f_22930:irregex_2escm"),(void*)f_22930},
43557 {C_text("f_22934:irregex_2escm"),(void*)f_22934},
43558 {C_text("f_22936:irregex_2escm"),(void*)f_22936},
43559 {C_text("f_22959:irregex_2escm"),(void*)f_22959},
43560 {C_text("f_22988:irregex_2escm"),(void*)f_22988},
43561 {C_text("f_22992:irregex_2escm"),(void*)f_22992},
43562 {C_text("f_23016:irregex_2escm"),(void*)f_23016},
43563 {C_text("f_23044:irregex_2escm"),(void*)f_23044},
43564 {C_text("f_23054:irregex_2escm"),(void*)f_23054},
43565 {C_text("f_23064:irregex_2escm"),(void*)f_23064},
43566 {C_text("f_23069:irregex_2escm"),(void*)f_23069},
43567 {C_text("f_23084:irregex_2escm"),(void*)f_23084},
43568 {C_text("f_23104:irregex_2escm"),(void*)f_23104},
43569 {C_text("f_23127:irregex_2escm"),(void*)f_23127},
43570 {C_text("f_23159:irregex_2escm"),(void*)f_23159},
43571 {C_text("f_23166:irregex_2escm"),(void*)f_23166},
43572 {C_text("f_23168:irregex_2escm"),(void*)f_23168},
43573 {C_text("f_23192:irregex_2escm"),(void*)f_23192},
43574 {C_text("f_23236:irregex_2escm"),(void*)f_23236},
43575 {C_text("f_23249:irregex_2escm"),(void*)f_23249},
43576 {C_text("f_23263:irregex_2escm"),(void*)f_23263},
43577 {C_text("f_23290:irregex_2escm"),(void*)f_23290},
43578 {C_text("f_23371:irregex_2escm"),(void*)f_23371},
43579 {C_text("f_23387:irregex_2escm"),(void*)f_23387},
43580 {C_text("f_23397:irregex_2escm"),(void*)f_23397},
43581 {C_text("f_23406:irregex_2escm"),(void*)f_23406},
43582 {C_text("f_23446:irregex_2escm"),(void*)f_23446},
43583 {C_text("f_23449:irregex_2escm"),(void*)f_23449},
43584 {C_text("f_23472:irregex_2escm"),(void*)f_23472},
43585 {C_text("f_23488:irregex_2escm"),(void*)f_23488},
43586 {C_text("f_23495:irregex_2escm"),(void*)f_23495},
43587 {C_text("f_23515:irregex_2escm"),(void*)f_23515},
43588 {C_text("f_23535:irregex_2escm"),(void*)f_23535},
43589 {C_text("f_23538:irregex_2escm"),(void*)f_23538},
43590 {C_text("f_23539:irregex_2escm"),(void*)f_23539},
43591 {C_text("f_23545:irregex_2escm"),(void*)f_23545},
43592 {C_text("f_23561:irregex_2escm"),(void*)f_23561},
43593 {C_text("f_23689:irregex_2escm"),(void*)f_23689},
43594 {C_text("f_23708:irregex_2escm"),(void*)f_23708},
43595 {C_text("f_23731:irregex_2escm"),(void*)f_23731},
43596 {C_text("f_23732:irregex_2escm"),(void*)f_23732},
43597 {C_text("f_23738:irregex_2escm"),(void*)f_23738},
43598 {C_text("f_23757:irregex_2escm"),(void*)f_23757},
43599 {C_text("f_23758:irregex_2escm"),(void*)f_23758},
43600 {C_text("f_23764:irregex_2escm"),(void*)f_23764},
43601 {C_text("f_23786:irregex_2escm"),(void*)f_23786},
43602 {C_text("f_23792:irregex_2escm"),(void*)f_23792},
43603 {C_text("f_23793:irregex_2escm"),(void*)f_23793},
43604 {C_text("f_23799:irregex_2escm"),(void*)f_23799},
43605 {C_text("f_23831:irregex_2escm"),(void*)f_23831},
43606 {C_text("f_23837:irregex_2escm"),(void*)f_23837},
43607 {C_text("f_23839:irregex_2escm"),(void*)f_23839},
43608 {C_text("f_23845:irregex_2escm"),(void*)f_23845},
43609 {C_text("f_23855:irregex_2escm"),(void*)f_23855},
43610 {C_text("f_23861:irregex_2escm"),(void*)f_23861},
43611 {C_text("f_23885:irregex_2escm"),(void*)f_23885},
43612 {C_text("f_23891:irregex_2escm"),(void*)f_23891},
43613 {C_text("f_23898:irregex_2escm"),(void*)f_23898},
43614 {C_text("f_23904:irregex_2escm"),(void*)f_23904},
43615 {C_text("f_23987:irregex_2escm"),(void*)f_23987},
43616 {C_text("f_23990:irregex_2escm"),(void*)f_23990},
43617 {C_text("f_23991:irregex_2escm"),(void*)f_23991},
43618 {C_text("f_24004:irregex_2escm"),(void*)f_24004},
43619 {C_text("f_24010:irregex_2escm"),(void*)f_24010},
43620 {C_text("f_24023:irregex_2escm"),(void*)f_24023},
43621 {C_text("f_24028:irregex_2escm"),(void*)f_24028},
43622 {C_text("f_24059:irregex_2escm"),(void*)f_24059},
43623 {C_text("f_24063:irregex_2escm"),(void*)f_24063},
43624 {C_text("f_24068:irregex_2escm"),(void*)f_24068},
43625 {C_text("f_24139:irregex_2escm"),(void*)f_24139},
43626 {C_text("f_24142:irregex_2escm"),(void*)f_24142},
43627 {C_text("f_24143:irregex_2escm"),(void*)f_24143},
43628 {C_text("f_24156:irregex_2escm"),(void*)f_24156},
43629 {C_text("f_24162:irregex_2escm"),(void*)f_24162},
43630 {C_text("f_24172:irregex_2escm"),(void*)f_24172},
43631 {C_text("f_24184:irregex_2escm"),(void*)f_24184},
43632 {C_text("f_24197:irregex_2escm"),(void*)f_24197},
43633 {C_text("f_24218:irregex_2escm"),(void*)f_24218},
43634 {C_text("f_24228:irregex_2escm"),(void*)f_24228},
43635 {C_text("f_24232:irregex_2escm"),(void*)f_24232},
43636 {C_text("f_24238:irregex_2escm"),(void*)f_24238},
43637 {C_text("f_24310:irregex_2escm"),(void*)f_24310},
43638 {C_text("f_24360:irregex_2escm"),(void*)f_24360},
43639 {C_text("f_24373:irregex_2escm"),(void*)f_24373},
43640 {C_text("f_24374:irregex_2escm"),(void*)f_24374},
43641 {C_text("f_24381:irregex_2escm"),(void*)f_24381},
43642 {C_text("f_24389:irregex_2escm"),(void*)f_24389},
43643 {C_text("f_24396:irregex_2escm"),(void*)f_24396},
43644 {C_text("f_24408:irregex_2escm"),(void*)f_24408},
43645 {C_text("f_24409:irregex_2escm"),(void*)f_24409},
43646 {C_text("f_24416:irregex_2escm"),(void*)f_24416},
43647 {C_text("f_24424:irregex_2escm"),(void*)f_24424},
43648 {C_text("f_24431:irregex_2escm"),(void*)f_24431},
43649 {C_text("f_24446:irregex_2escm"),(void*)f_24446},
43650 {C_text("f_24447:irregex_2escm"),(void*)f_24447},
43651 {C_text("f_24451:irregex_2escm"),(void*)f_24451},
43652 {C_text("f_24457:irregex_2escm"),(void*)f_24457},
43653 {C_text("f_24464:irregex_2escm"),(void*)f_24464},
43654 {C_text("f_24473:irregex_2escm"),(void*)f_24473},
43655 {C_text("f_24483:irregex_2escm"),(void*)f_24483},
43656 {C_text("f_24487:irregex_2escm"),(void*)f_24487},
43657 {C_text("f_24492:irregex_2escm"),(void*)f_24492},
43658 {C_text("f_24509:irregex_2escm"),(void*)f_24509},
43659 {C_text("f_24518:irregex_2escm"),(void*)f_24518},
43660 {C_text("f_24529:irregex_2escm"),(void*)f_24529},
43661 {C_text("f_24530:irregex_2escm"),(void*)f_24530},
43662 {C_text("f_24534:irregex_2escm"),(void*)f_24534},
43663 {C_text("f_24545:irregex_2escm"),(void*)f_24545},
43664 {C_text("f_24552:irregex_2escm"),(void*)f_24552},
43665 {C_text("f_24564:irregex_2escm"),(void*)f_24564},
43666 {C_text("f_24567:irregex_2escm"),(void*)f_24567},
43667 {C_text("f_24570:irregex_2escm"),(void*)f_24570},
43668 {C_text("f_24579:irregex_2escm"),(void*)f_24579},
43669 {C_text("f_24582:irregex_2escm"),(void*)f_24582},
43670 {C_text("f_24583:irregex_2escm"),(void*)f_24583},
43671 {C_text("f_24640:irregex_2escm"),(void*)f_24640},
43672 {C_text("f_24641:irregex_2escm"),(void*)f_24641},
43673 {C_text("f_24647:irregex_2escm"),(void*)f_24647},
43674 {C_text("f_24683:irregex_2escm"),(void*)f_24683},
43675 {C_text("f_24688:irregex_2escm"),(void*)f_24688},
43676 {C_text("f_24720:irregex_2escm"),(void*)f_24720},
43677 {C_text("f_24723:irregex_2escm"),(void*)f_24723},
43678 {C_text("f_24724:irregex_2escm"),(void*)f_24724},
43679 {C_text("f_24728:irregex_2escm"),(void*)f_24728},
43680 {C_text("f_24746:irregex_2escm"),(void*)f_24746},
43681 {C_text("f_24759:irregex_2escm"),(void*)f_24759},
43682 {C_text("f_24773:irregex_2escm"),(void*)f_24773},
43683 {C_text("f_24777:irregex_2escm"),(void*)f_24777},
43684 {C_text("f_24791:irregex_2escm"),(void*)f_24791},
43685 {C_text("f_24797:irregex_2escm"),(void*)f_24797},
43686 {C_text("f_24810:irregex_2escm"),(void*)f_24810},
43687 {C_text("f_24817:irregex_2escm"),(void*)f_24817},
43688 {C_text("f_24824:irregex_2escm"),(void*)f_24824},
43689 {C_text("f_24846:irregex_2escm"),(void*)f_24846},
43690 {C_text("f_24850:irregex_2escm"),(void*)f_24850},
43691 {C_text("f_24937:irregex_2escm"),(void*)f_24937},
43692 {C_text("f_24938:irregex_2escm"),(void*)f_24938},
43693 {C_text("f_24986:irregex_2escm"),(void*)f_24986},
43694 {C_text("f_25046:irregex_2escm"),(void*)f_25046},
43695 {C_text("f_25081:irregex_2escm"),(void*)f_25081},
43696 {C_text("f_25281:irregex_2escm"),(void*)f_25281},
43697 {C_text("f_25301:irregex_2escm"),(void*)f_25301},
43698 {C_text("f_25310:irregex_2escm"),(void*)f_25310},
43699 {C_text("f_25316:irregex_2escm"),(void*)f_25316},
43700 {C_text("f_25322:irregex_2escm"),(void*)f_25322},
43701 {C_text("f_25339:irregex_2escm"),(void*)f_25339},
43702 {C_text("f_25376:irregex_2escm"),(void*)f_25376},
43703 {C_text("f_25385:irregex_2escm"),(void*)f_25385},
43704 {C_text("f_25391:irregex_2escm"),(void*)f_25391},
43705 {C_text("f_25397:irregex_2escm"),(void*)f_25397},
43706 {C_text("f_25431:irregex_2escm"),(void*)f_25431},
43707 {C_text("f_25461:irregex_2escm"),(void*)f_25461},
43708 {C_text("f_25468:irregex_2escm"),(void*)f_25468},
43709 {C_text("f_25505:irregex_2escm"),(void*)f_25505},
43710 {C_text("f_25512:irregex_2escm"),(void*)f_25512},
43711 {C_text("f_25519:irregex_2escm"),(void*)f_25519},
43712 {C_text("f_25528:irregex_2escm"),(void*)f_25528},
43713 {C_text("f_25547:irregex_2escm"),(void*)f_25547},
43714 {C_text("f_25564:irregex_2escm"),(void*)f_25564},
43715 {C_text("f_25571:irregex_2escm"),(void*)f_25571},
43716 {C_text("f_25592:irregex_2escm"),(void*)f_25592},
43717 {C_text("f_25612:irregex_2escm"),(void*)f_25612},
43718 {C_text("f_25619:irregex_2escm"),(void*)f_25619},
43719 {C_text("f_25626:irregex_2escm"),(void*)f_25626},
43720 {C_text("f_25645:irregex_2escm"),(void*)f_25645},
43721 {C_text("f_25652:irregex_2escm"),(void*)f_25652},
43722 {C_text("f_25659:irregex_2escm"),(void*)f_25659},
43723 {C_text("f_25682:irregex_2escm"),(void*)f_25682},
43724 {C_text("f_25703:irregex_2escm"),(void*)f_25703},
43725 {C_text("f_25710:irregex_2escm"),(void*)f_25710},
43726 {C_text("f_25717:irregex_2escm"),(void*)f_25717},
43727 {C_text("f_25724:irregex_2escm"),(void*)f_25724},
43728 {C_text("f_25733:irregex_2escm"),(void*)f_25733},
43729 {C_text("f_25753:irregex_2escm"),(void*)f_25753},
43730 {C_text("f_25769:irregex_2escm"),(void*)f_25769},
43731 {C_text("f_25786:irregex_2escm"),(void*)f_25786},
43732 {C_text("f_25806:irregex_2escm"),(void*)f_25806},
43733 {C_text("f_25810:irregex_2escm"),(void*)f_25810},
43734 {C_text("f_25813:irregex_2escm"),(void*)f_25813},
43735 {C_text("f_25819:irregex_2escm"),(void*)f_25819},
43736 {C_text("f_25864:irregex_2escm"),(void*)f_25864},
43737 {C_text("f_25928:irregex_2escm"),(void*)f_25928},
43738 {C_text("f_25945:irregex_2escm"),(void*)f_25945},
43739 {C_text("f_25947:irregex_2escm"),(void*)f_25947},
43740 {C_text("f_25957:irregex_2escm"),(void*)f_25957},
43741 {C_text("f_25963:irregex_2escm"),(void*)f_25963},
43742 {C_text("f_25969:irregex_2escm"),(void*)f_25969},
43743 {C_text("f_25985:irregex_2escm"),(void*)f_25985},
43744 {C_text("f_25991:irregex_2escm"),(void*)f_25991},
43745 {C_text("f_26013:irregex_2escm"),(void*)f_26013},
43746 {C_text("f_26027:irregex_2escm"),(void*)f_26027},
43747 {C_text("f_26044:irregex_2escm"),(void*)f_26044},
43748 {C_text("f_26046:irregex_2escm"),(void*)f_26046},
43749 {C_text("f_26056:irregex_2escm"),(void*)f_26056},
43750 {C_text("f_26062:irregex_2escm"),(void*)f_26062},
43751 {C_text("f_26068:irregex_2escm"),(void*)f_26068},
43752 {C_text("f_26084:irregex_2escm"),(void*)f_26084},
43753 {C_text("f_26142:irregex_2escm"),(void*)f_26142},
43754 {C_text("f_26168:irregex_2escm"),(void*)f_26168},
43755 {C_text("f_26170:irregex_2escm"),(void*)f_26170},
43756 {C_text("f_26183:irregex_2escm"),(void*)f_26183},
43757 {C_text("f_26202:irregex_2escm"),(void*)f_26202},
43758 {C_text("f_26211:irregex_2escm"),(void*)f_26211},
43759 {C_text("f_26217:irregex_2escm"),(void*)f_26217},
43760 {C_text("f_26223:irregex_2escm"),(void*)f_26223},
43761 {C_text("f_26229:irregex_2escm"),(void*)f_26229},
43762 {C_text("f_26381:irregex_2escm"),(void*)f_26381},
43763 {C_text("f_26393:irregex_2escm"),(void*)f_26393},
43764 {C_text("f_26443:irregex_2escm"),(void*)f_26443},
43765 {C_text("f_26461:irregex_2escm"),(void*)f_26461},
43766 {C_text("f_26472:irregex_2escm"),(void*)f_26472},
43767 {C_text("f_26478:irregex_2escm"),(void*)f_26478},
43768 {C_text("f_26490:irregex_2escm"),(void*)f_26490},
43769 {C_text("f_26492:irregex_2escm"),(void*)f_26492},
43770 {C_text("f_26502:irregex_2escm"),(void*)f_26502},
43771 {C_text("f_26505:irregex_2escm"),(void*)f_26505},
43772 {C_text("f_26531:irregex_2escm"),(void*)f_26531},
43773 {C_text("f_26552:irregex_2escm"),(void*)f_26552},
43774 {C_text("f_26556:irregex_2escm"),(void*)f_26556},
43775 {C_text("f_26569:irregex_2escm"),(void*)f_26569},
43776 {C_text("f_26571:irregex_2escm"),(void*)f_26571},
43777 {C_text("f_26596:irregex_2escm"),(void*)f_26596},
43778 {C_text("f_26620:irregex_2escm"),(void*)f_26620},
43779 {C_text("f_26633:irregex_2escm"),(void*)f_26633},
43780 {C_text("f_26635:irregex_2escm"),(void*)f_26635},
43781 {C_text("f_26660:irregex_2escm"),(void*)f_26660},
43782 {C_text("f_26682:irregex_2escm"),(void*)f_26682},
43783 {C_text("f_26690:irregex_2escm"),(void*)f_26690},
43784 {C_text("f_26703:irregex_2escm"),(void*)f_26703},
43785 {C_text("f_26705:irregex_2escm"),(void*)f_26705},
43786 {C_text("f_26730:irregex_2escm"),(void*)f_26730},
43787 {C_text("f_26750:irregex_2escm"),(void*)f_26750},
43788 {C_text("f_26760:irregex_2escm"),(void*)f_26760},
43789 {C_text("f_26775:irregex_2escm"),(void*)f_26775},
43790 {C_text("f_26788:irregex_2escm"),(void*)f_26788},
43791 {C_text("f_26790:irregex_2escm"),(void*)f_26790},
43792 {C_text("f_26815:irregex_2escm"),(void*)f_26815},
43793 {C_text("f_26937:irregex_2escm"),(void*)f_26937},
43794 {C_text("f_26939:irregex_2escm"),(void*)f_26939},
43795 {C_text("f_26957:irregex_2escm"),(void*)f_26957},
43796 {C_text("f_26959:irregex_2escm"),(void*)f_26959},
43797 {C_text("f_26992:irregex_2escm"),(void*)f_26992},
43798 {C_text("f_27044:irregex_2escm"),(void*)f_27044},
43799 {C_text("f_27080:irregex_2escm"),(void*)f_27080},
43800 {C_text("f_27088:irregex_2escm"),(void*)f_27088},
43801 {C_text("f_27092:irregex_2escm"),(void*)f_27092},
43802 {C_text("f_27094:irregex_2escm"),(void*)f_27094},
43803 {C_text("f_27108:irregex_2escm"),(void*)f_27108},
43804 {C_text("f_27112:irregex_2escm"),(void*)f_27112},
43805 {C_text("f_27116:irregex_2escm"),(void*)f_27116},
43806 {C_text("f_27129:irregex_2escm"),(void*)f_27129},
43807 {C_text("f_27133:irregex_2escm"),(void*)f_27133},
43808 {C_text("f_27137:irregex_2escm"),(void*)f_27137},
43809 {C_text("f_27275:irregex_2escm"),(void*)f_27275},
43810 {C_text("f_27283:irregex_2escm"),(void*)f_27283},
43811 {C_text("f_27287:irregex_2escm"),(void*)f_27287},
43812 {C_text("f_27289:irregex_2escm"),(void*)f_27289},
43813 {C_text("f_27303:irregex_2escm"),(void*)f_27303},
43814 {C_text("f_27316:irregex_2escm"),(void*)f_27316},
43815 {C_text("f_27320:irregex_2escm"),(void*)f_27320},
43816 {C_text("f_27366:irregex_2escm"),(void*)f_27366},
43817 {C_text("f_27369:irregex_2escm"),(void*)f_27369},
43818 {C_text("f_27376:irregex_2escm"),(void*)f_27376},
43819 {C_text("f_27471:irregex_2escm"),(void*)f_27471},
43820 {C_text("f_27479:irregex_2escm"),(void*)f_27479},
43821 {C_text("f_27483:irregex_2escm"),(void*)f_27483},
43822 {C_text("f_27485:irregex_2escm"),(void*)f_27485},
43823 {C_text("f_27502:irregex_2escm"),(void*)f_27502},
43824 {C_text("f_27597:irregex_2escm"),(void*)f_27597},
43825 {C_text("f_27605:irregex_2escm"),(void*)f_27605},
43826 {C_text("f_27607:irregex_2escm"),(void*)f_27607},
43827 {C_text("f_27615:irregex_2escm"),(void*)f_27615},
43828 {C_text("f_27617:irregex_2escm"),(void*)f_27617},
43829 {C_text("f_27631:irregex_2escm"),(void*)f_27631},
43830 {C_text("f_27637:irregex_2escm"),(void*)f_27637},
43831 {C_text("f_27646:irregex_2escm"),(void*)f_27646},
43832 {C_text("f_27650:irregex_2escm"),(void*)f_27650},
43833 {C_text("f_27654:irregex_2escm"),(void*)f_27654},
43834 {C_text("f_27658:irregex_2escm"),(void*)f_27658},
43835 {C_text("f_27682:irregex_2escm"),(void*)f_27682},
43836 {C_text("f_27692:irregex_2escm"),(void*)f_27692},
43837 {C_text("f_27701:irregex_2escm"),(void*)f_27701},
43838 {C_text("f_27705:irregex_2escm"),(void*)f_27705},
43839 {C_text("f_27709:irregex_2escm"),(void*)f_27709},
43840 {C_text("f_27713:irregex_2escm"),(void*)f_27713},
43841 {C_text("f_27723:irregex_2escm"),(void*)f_27723},
43842 {C_text("f_27738:irregex_2escm"),(void*)f_27738},
43843 {C_text("f_27742:irregex_2escm"),(void*)f_27742},
43844 {C_text("f_27745:irregex_2escm"),(void*)f_27745},
43845 {C_text("f_27748:irregex_2escm"),(void*)f_27748},
43846 {C_text("f_27757:irregex_2escm"),(void*)f_27757},
43847 {C_text("f_27760:irregex_2escm"),(void*)f_27760},
43848 {C_text("f_27769:irregex_2escm"),(void*)f_27769},
43849 {C_text("f_27772:irregex_2escm"),(void*)f_27772},
43850 {C_text("f_27780:irregex_2escm"),(void*)f_27780},
43851 {C_text("f_27793:irregex_2escm"),(void*)f_27793},
43852 {C_text("f_27828:irregex_2escm"),(void*)f_27828},
43853 {C_text("f_27831:irregex_2escm"),(void*)f_27831},
43854 {C_text("f_27939:irregex_2escm"),(void*)f_27939},
43855 {C_text("f_27956:irregex_2escm"),(void*)f_27956},
43856 {C_text("f_27960:irregex_2escm"),(void*)f_27960},
43857 {C_text("f_27961:irregex_2escm"),(void*)f_27961},
43858 {C_text("f_27969:irregex_2escm"),(void*)f_27969},
43859 {C_text("f_27984:irregex_2escm"),(void*)f_27984},
43860 {C_text("f_27988:irregex_2escm"),(void*)f_27988},
43861 {C_text("f_27991:irregex_2escm"),(void*)f_27991},
43862 {C_text("f_28000:irregex_2escm"),(void*)f_28000},
43863 {C_text("f_28006:irregex_2escm"),(void*)f_28006},
43864 {C_text("f_28014:irregex_2escm"),(void*)f_28014},
43865 {C_text("f_28027:irregex_2escm"),(void*)f_28027},
43866 {C_text("f_28077:irregex_2escm"),(void*)f_28077},
43867 {C_text("f_28087:irregex_2escm"),(void*)f_28087},
43868 {C_text("f_28101:irregex_2escm"),(void*)f_28101},
43869 {C_text("f_28104:irregex_2escm"),(void*)f_28104},
43870 {C_text("f_28107:irregex_2escm"),(void*)f_28107},
43871 {C_text("f_28159:irregex_2escm"),(void*)f_28159},
43872 {C_text("f_28166:irregex_2escm"),(void*)f_28166},
43873 {C_text("f_28170:irregex_2escm"),(void*)f_28170},
43874 {C_text("f_28171:irregex_2escm"),(void*)f_28171},
43875 {C_text("f_28179:irregex_2escm"),(void*)f_28179},
43876 {C_text("f_28194:irregex_2escm"),(void*)f_28194},
43877 {C_text("f_28198:irregex_2escm"),(void*)f_28198},
43878 {C_text("f_28201:irregex_2escm"),(void*)f_28201},
43879 {C_text("f_28215:irregex_2escm"),(void*)f_28215},
43880 {C_text("f_28219:irregex_2escm"),(void*)f_28219},
43881 {C_text("f_28223:irregex_2escm"),(void*)f_28223},
43882 {C_text("f_28231:irregex_2escm"),(void*)f_28231},
43883 {C_text("f_28273:irregex_2escm"),(void*)f_28273},
43884 {C_text("f_28277:irregex_2escm"),(void*)f_28277},
43885 {C_text("f_28282:irregex_2escm"),(void*)f_28282},
43886 {C_text("f_28316:irregex_2escm"),(void*)f_28316},
43887 {C_text("f_28323:irregex_2escm"),(void*)f_28323},
43888 {C_text("f_28331:irregex_2escm"),(void*)f_28331},
43889 {C_text("f_28333:irregex_2escm"),(void*)f_28333},
43890 {C_text("f_28354:irregex_2escm"),(void*)f_28354},
43891 {C_text("f_28366:irregex_2escm"),(void*)f_28366},
43892 {C_text("f_28372:irregex_2escm"),(void*)f_28372},
43893 {C_text("f_28399:irregex_2escm"),(void*)f_28399},
43894 {C_text("f_28424:irregex_2escm"),(void*)f_28424},
43895 {C_text("f_28450:irregex_2escm"),(void*)f_28450},
43896 {C_text("f_28514:irregex_2escm"),(void*)f_28514},
43897 {C_text("f_28546:irregex_2escm"),(void*)f_28546},
43898 {C_text("f_28576:irregex_2escm"),(void*)f_28576},
43899 {C_text("f_28597:irregex_2escm"),(void*)f_28597},
43900 {C_text("f_28601:irregex_2escm"),(void*)f_28601},
43901 {C_text("f_28606:irregex_2escm"),(void*)f_28606},
43902 {C_text("f_28614:irregex_2escm"),(void*)f_28614},
43903 {C_text("f_28616:irregex_2escm"),(void*)f_28616},
43904 {C_text("f_28632:irregex_2escm"),(void*)f_28632},
43905 {C_text("f_28636:irregex_2escm"),(void*)f_28636},
43906 {C_text("f_28642:irregex_2escm"),(void*)f_28642},
43907 {C_text("f_28647:irregex_2escm"),(void*)f_28647},
43908 {C_text("f_28661:irregex_2escm"),(void*)f_28661},
43909 {C_text("f_28705:irregex_2escm"),(void*)f_28705},
43910 {C_text("f_28713:irregex_2escm"),(void*)f_28713},
43911 {C_text("f_28715:irregex_2escm"),(void*)f_28715},
43912 {C_text("f_28756:irregex_2escm"),(void*)f_28756},
43913 {C_text("f_28796:irregex_2escm"),(void*)f_28796},
43914 {C_text("f_28830:irregex_2escm"),(void*)f_28830},
43915 {C_text("f_28843:irregex_2escm"),(void*)f_28843},
43916 {C_text("f_28873:irregex_2escm"),(void*)f_28873},
43917 {C_text("f_28881:irregex_2escm"),(void*)f_28881},
43918 {C_text("f_28885:irregex_2escm"),(void*)f_28885},
43919 {C_text("f_28887:irregex_2escm"),(void*)f_28887},
43920 {C_text("f_28906:irregex_2escm"),(void*)f_28906},
43921 {C_text("f_28930:irregex_2escm"),(void*)f_28930},
43922 {C_text("f_28947:irregex_2escm"),(void*)f_28947},
43923 {C_text("f_28954:irregex_2escm"),(void*)f_28954},
43924 {C_text("f_28977:irregex_2escm"),(void*)f_28977},
43925 {C_text("f_28998:irregex_2escm"),(void*)f_28998},
43926 {C_text("f_29000:irregex_2escm"),(void*)f_29000},
43927 {C_text("f_29010:irregex_2escm"),(void*)f_29010},
43928 {C_text("f_29037:irregex_2escm"),(void*)f_29037},
43929 {C_text("f_29067:irregex_2escm"),(void*)f_29067},
43930 {C_text("f_29072:irregex_2escm"),(void*)f_29072},
43931 {C_text("f_29084:irregex_2escm"),(void*)f_29084},
43932 {C_text("f_29104:irregex_2escm"),(void*)f_29104},
43933 {C_text("f_29139:irregex_2escm"),(void*)f_29139},
43934 {C_text("f_29147:irregex_2escm"),(void*)f_29147},
43935 {C_text("f_29183:irregex_2escm"),(void*)f_29183},
43936 {C_text("f_29197:irregex_2escm"),(void*)f_29197},
43937 {C_text("f_29201:irregex_2escm"),(void*)f_29201},
43938 {C_text("f_29204:irregex_2escm"),(void*)f_29204},
43939 {C_text("f_29209:irregex_2escm"),(void*)f_29209},
43940 {C_text("f_29219:irregex_2escm"),(void*)f_29219},
43941 {C_text("f_29230:irregex_2escm"),(void*)f_29230},
43942 {C_text("f_29233:irregex_2escm"),(void*)f_29233},
43943 {C_text("f_29240:irregex_2escm"),(void*)f_29240},
43944 {C_text("f_29252:irregex_2escm"),(void*)f_29252},
43945 {C_text("f_29267:irregex_2escm"),(void*)f_29267},
43946 {C_text("f_29277:irregex_2escm"),(void*)f_29277},
43947 {C_text("f_29281:irregex_2escm"),(void*)f_29281},
43948 {C_text("f_29284:irregex_2escm"),(void*)f_29284},
43949 {C_text("f_29289:irregex_2escm"),(void*)f_29289},
43950 {C_text("f_29312:irregex_2escm"),(void*)f_29312},
43951 {C_text("f_29315:irregex_2escm"),(void*)f_29315},
43952 {C_text("f_29322:irregex_2escm"),(void*)f_29322},
43953 {C_text("f_29327:irregex_2escm"),(void*)f_29327},
43954 {C_text("f_29337:irregex_2escm"),(void*)f_29337},
43955 {C_text("f_29357:irregex_2escm"),(void*)f_29357},
43956 {C_text("f_29367:irregex_2escm"),(void*)f_29367},
43957 {C_text("f_29409:irregex_2escm"),(void*)f_29409},
43958 {C_text("f_29416:irregex_2escm"),(void*)f_29416},
43959 {C_text("f_29421:irregex_2escm"),(void*)f_29421},
43960 {C_text("f_29431:irregex_2escm"),(void*)f_29431},
43961 {C_text("f_29451:irregex_2escm"),(void*)f_29451},
43962 {C_text("f_29454:irregex_2escm"),(void*)f_29454},
43963 {C_text("f_29457:irregex_2escm"),(void*)f_29457},
43964 {C_text("f_29466:irregex_2escm"),(void*)f_29466},
43965 {C_text("f_29471:irregex_2escm"),(void*)f_29471},
43966 {C_text("f_29481:irregex_2escm"),(void*)f_29481},
43967 {C_text("f_29505:irregex_2escm"),(void*)f_29505},
43968 {C_text("f_29508:irregex_2escm"),(void*)f_29508},
43969 {C_text("f_29509:irregex_2escm"),(void*)f_29509},
43970 {C_text("f_29513:irregex_2escm"),(void*)f_29513},
43971 {C_text("f_29525:irregex_2escm"),(void*)f_29525},
43972 {C_text("f_29530:irregex_2escm"),(void*)f_29530},
43973 {C_text("f_29540:irregex_2escm"),(void*)f_29540},
43974 {C_text("f_29564:irregex_2escm"),(void*)f_29564},
43975 {C_text("f_29567:irregex_2escm"),(void*)f_29567},
43976 {C_text("f_29578:irregex_2escm"),(void*)f_29578},
43977 {C_text("f_29585:irregex_2escm"),(void*)f_29585},
43978 {C_text("f_29590:irregex_2escm"),(void*)f_29590},
43979 {C_text("f_29600:irregex_2escm"),(void*)f_29600},
43980 {C_text("f_29634:irregex_2escm"),(void*)f_29634},
43981 {C_text("f_29637:irregex_2escm"),(void*)f_29637},
43982 {C_text("f_29640:irregex_2escm"),(void*)f_29640},
43983 {C_text("f_29647:irregex_2escm"),(void*)f_29647},
43984 {C_text("f_29651:irregex_2escm"),(void*)f_29651},
43985 {C_text("f_29664:irregex_2escm"),(void*)f_29664},
43986 {C_text("f_29677:irregex_2escm"),(void*)f_29677},
43987 {C_text("f_29680:irregex_2escm"),(void*)f_29680},
43988 {C_text("f_29687:irregex_2escm"),(void*)f_29687},
43989 {C_text("f_29698:irregex_2escm"),(void*)f_29698},
43990 {C_text("f_29707:irregex_2escm"),(void*)f_29707},
43991 {C_text("f_29710:irregex_2escm"),(void*)f_29710},
43992 {C_text("f_29713:irregex_2escm"),(void*)f_29713},
43993 {C_text("f_29720:irregex_2escm"),(void*)f_29720},
43994 {C_text("f_29745:irregex_2escm"),(void*)f_29745},
43995 {C_text("f_29783:irregex_2escm"),(void*)f_29783},
43996 {C_text("f_29786:irregex_2escm"),(void*)f_29786},
43997 {C_text("f_29789:irregex_2escm"),(void*)f_29789},
43998 {C_text("f_29796:irregex_2escm"),(void*)f_29796},
43999 {C_text("f_29801:irregex_2escm"),(void*)f_29801},
44000 {C_text("f_29811:irregex_2escm"),(void*)f_29811},
44001 {C_text("f_29847:irregex_2escm"),(void*)f_29847},
44002 {C_text("f_30011:irregex_2escm"),(void*)f_30011},
44003 {C_text("f_30024:irregex_2escm"),(void*)f_30024},
44004 {C_text("f_30033:irregex_2escm"),(void*)f_30033},
44005 {C_text("f_30044:irregex_2escm"),(void*)f_30044},
44006 {C_text("f_30048:irregex_2escm"),(void*)f_30048},
44007 {C_text("f_30050:irregex_2escm"),(void*)f_30050},
44008 {C_text("f_30081:irregex_2escm"),(void*)f_30081},
44009 {C_text("f_30128:irregex_2escm"),(void*)f_30128},
44010 {C_text("f_30148:irregex_2escm"),(void*)f_30148},
44011 {C_text("f_30158:irregex_2escm"),(void*)f_30158},
44012 {C_text("f_30185:irregex_2escm"),(void*)f_30185},
44013 {C_text("f_30207:irregex_2escm"),(void*)f_30207},
44014 {C_text("f_30309:irregex_2escm"),(void*)f_30309},
44015 {C_text("f_30774:irregex_2escm"),(void*)f_30774},
44016 {C_text("f_30936:irregex_2escm"),(void*)f_30936},
44017 {C_text("f_30939:irregex_2escm"),(void*)f_30939},
44018 {C_text("f_30973:irregex_2escm"),(void*)f_30973},
44019 {C_text("f_30977:irregex_2escm"),(void*)f_30977},
44020 {C_text("f_30980:irregex_2escm"),(void*)f_30980},
44021 {C_text("f_30983:irregex_2escm"),(void*)f_30983},
44022 {C_text("f_30986:irregex_2escm"),(void*)f_30986},
44023 {C_text("f_30989:irregex_2escm"),(void*)f_30989},
44024 {C_text("f_7535:irregex_2escm"),(void*)f_7535},
44025 {C_text("f_7538:irregex_2escm"),(void*)f_7538},
44026 {C_text("f_7540:irregex_2escm"),(void*)f_7540},
44027 {C_text("f_7544:irregex_2escm"),(void*)f_7544},
44028 {C_text("f_7547:irregex_2escm"),(void*)f_7547},
44029 {C_text("f_7553:irregex_2escm"),(void*)f_7553},
44030 {C_text("f_7595:irregex_2escm"),(void*)f_7595},
44031 {C_text("f_7613:irregex_2escm"),(void*)f_7613},
44032 {C_text("f_7622:irregex_2escm"),(void*)f_7622},
44033 {C_text("f_7630:irregex_2escm"),(void*)f_7630},
44034 {C_text("f_7643:irregex_2escm"),(void*)f_7643},
44035 {C_text("f_7645:irregex_2escm"),(void*)f_7645},
44036 {C_text("f_7652:irregex_2escm"),(void*)f_7652},
44037 {C_text("f_7654:irregex_2escm"),(void*)f_7654},
44038 {C_text("f_7668:irregex_2escm"),(void*)f_7668},
44039 {C_text("f_7686:irregex_2escm"),(void*)f_7686},
44040 {C_text("f_7692:irregex_2escm"),(void*)f_7692},
44041 {C_text("f_7717:irregex_2escm"),(void*)f_7717},
44042 {C_text("f_7763:irregex_2escm"),(void*)f_7763},
44043 {C_text("f_7776:irregex_2escm"),(void*)f_7776},
44044 {C_text("f_7778:irregex_2escm"),(void*)f_7778},
44045 {C_text("f_7782:irregex_2escm"),(void*)f_7782},
44046 {C_text("f_7803:irregex_2escm"),(void*)f_7803},
44047 {C_text("f_7807:irregex_2escm"),(void*)f_7807},
44048 {C_text("f_7832:irregex_2escm"),(void*)f_7832},
44049 {C_text("f_7836:irregex_2escm"),(void*)f_7836},
44050 {C_text("f_7861:irregex_2escm"),(void*)f_7861},
44051 {C_text("f_7865:irregex_2escm"),(void*)f_7865},
44052 {C_text("f_7954:irregex_2escm"),(void*)f_7954},
44053 {C_text("f_8022:irregex_2escm"),(void*)f_8022},
44054 {C_text("f_8064:irregex_2escm"),(void*)f_8064},
44055 {C_text("f_8066:irregex_2escm"),(void*)f_8066},
44056 {C_text("f_8136:irregex_2escm"),(void*)f_8136},
44057 {C_text("f_8138:irregex_2escm"),(void*)f_8138},
44058 {C_text("f_8142:irregex_2escm"),(void*)f_8142},
44059 {C_text("f_8199:irregex_2escm"),(void*)f_8199},
44060 {C_text("f_8201:irregex_2escm"),(void*)f_8201},
44061 {C_text("f_8205:irregex_2escm"),(void*)f_8205},
44062 {C_text("f_8282:irregex_2escm"),(void*)f_8282},
44063 {C_text("f_8286:irregex_2escm"),(void*)f_8286},
44064 {C_text("f_8372:irregex_2escm"),(void*)f_8372},
44065 {C_text("f_8406:irregex_2escm"),(void*)f_8406},
44066 {C_text("f_8412:irregex_2escm"),(void*)f_8412},
44067 {C_text("f_8446:irregex_2escm"),(void*)f_8446},
44068 {C_text("f_8460:irregex_2escm"),(void*)f_8460},
44069 {C_text("f_8467:irregex_2escm"),(void*)f_8467},
44070 {C_text("f_8473:irregex_2escm"),(void*)f_8473},
44071 {C_text("f_8491:irregex_2escm"),(void*)f_8491},
44072 {C_text("f_8495:irregex_2escm"),(void*)f_8495},
44073 {C_text("f_8499:irregex_2escm"),(void*)f_8499},
44074 {C_text("f_8506:irregex_2escm"),(void*)f_8506},
44075 {C_text("f_8514:irregex_2escm"),(void*)f_8514},
44076 {C_text("f_8518:irregex_2escm"),(void*)f_8518},
44077 {C_text("f_8522:irregex_2escm"),(void*)f_8522},
44078 {C_text("f_8526:irregex_2escm"),(void*)f_8526},
44079 {C_text("f_8530:irregex_2escm"),(void*)f_8530},
44080 {C_text("f_8534:irregex_2escm"),(void*)f_8534},
44081 {C_text("f_8538:irregex_2escm"),(void*)f_8538},
44082 {C_text("f_8547:irregex_2escm"),(void*)f_8547},
44083 {C_text("f_8555:irregex_2escm"),(void*)f_8555},
44084 {C_text("f_8564:irregex_2escm"),(void*)f_8564},
44085 {C_text("f_8622:irregex_2escm"),(void*)f_8622},
44086 {C_text("f_8626:irregex_2escm"),(void*)f_8626},
44087 {C_text("f_8640:irregex_2escm"),(void*)f_8640},
44088 {C_text("f_8644:irregex_2escm"),(void*)f_8644},
44089 {C_text("f_8657:irregex_2escm"),(void*)f_8657},
44090 {C_text("f_8668:irregex_2escm"),(void*)f_8668},
44091 {C_text("f_8670:irregex_2escm"),(void*)f_8670},
44092 {C_text("f_8677:irregex_2escm"),(void*)f_8677},
44093 {C_text("f_8690:irregex_2escm"),(void*)f_8690},
44094 {C_text("f_8697:irregex_2escm"),(void*)f_8697},
44095 {C_text("f_8736:irregex_2escm"),(void*)f_8736},
44096 {C_text("f_8763:irregex_2escm"),(void*)f_8763},
44097 {C_text("f_8795:irregex_2escm"),(void*)f_8795},
44098 {C_text("f_8802:irregex_2escm"),(void*)f_8802},
44099 {C_text("f_8817:irregex_2escm"),(void*)f_8817},
44100 {C_text("f_8830:irregex_2escm"),(void*)f_8830},
44101 {C_text("f_8873:irregex_2escm"),(void*)f_8873},
44102 {C_text("f_8930:irregex_2escm"),(void*)f_8930},
44103 {C_text("f_8968:irregex_2escm"),(void*)f_8968},
44104 {C_text("f_8971:irregex_2escm"),(void*)f_8971},
44105 {C_text("f_8979:irregex_2escm"),(void*)f_8979},
44106 {C_text("f_8992:irregex_2escm"),(void*)f_8992},
44107 {C_text("f_9011:irregex_2escm"),(void*)f_9011},
44108 {C_text("f_9108:irregex_2escm"),(void*)f_9108},
44109 {C_text("f_9116:irregex_2escm"),(void*)f_9116},
44110 {C_text("f_9118:irregex_2escm"),(void*)f_9118},
44111 {C_text("f_9132:irregex_2escm"),(void*)f_9132},
44112 {C_text("f_9137:irregex_2escm"),(void*)f_9137},
44113 {C_text("f_9158:irregex_2escm"),(void*)f_9158},
44114 {C_text("f_9174:irregex_2escm"),(void*)f_9174},
44115 {C_text("f_9195:irregex_2escm"),(void*)f_9195},
44116 {C_text("f_9201:irregex_2escm"),(void*)f_9201},
44117 {C_text("f_9214:irregex_2escm"),(void*)f_9214},
44118 {C_text("f_9256:irregex_2escm"),(void*)f_9256},
44119 {C_text("f_9271:irregex_2escm"),(void*)f_9271},
44120 {C_text("f_9294:irregex_2escm"),(void*)f_9294},
44121 {C_text("f_9310:irregex_2escm"),(void*)f_9310},
44122 {C_text("f_9323:irregex_2escm"),(void*)f_9323},
44123 {C_text("f_9337:irregex_2escm"),(void*)f_9337},
44124 {C_text("f_9355:irregex_2escm"),(void*)f_9355},
44125 {C_text("f_9371:irregex_2escm"),(void*)f_9371},
44126 {C_text("f_9382:irregex_2escm"),(void*)f_9382},
44127 {C_text("f_9388:irregex_2escm"),(void*)f_9388},
44128 {C_text("f_9406:irregex_2escm"),(void*)f_9406},
44129 {C_text("f_9712:irregex_2escm"),(void*)f_9712},
44130 {C_text("f_9721:irregex_2escm"),(void*)f_9721},
44131 {C_text("f_9739:irregex_2escm"),(void*)f_9739},
44132 {C_text("f_9746:irregex_2escm"),(void*)f_9746},
44133 {C_text("f_9773:irregex_2escm"),(void*)f_9773},
44134 {C_text("f_9779:irregex_2escm"),(void*)f_9779},
44135 {C_text("f_9793:irregex_2escm"),(void*)f_9793},
44136 {C_text("f_9813:irregex_2escm"),(void*)f_9813},
44137 {C_text("f_9819:irregex_2escm"),(void*)f_9819},
44138 {C_text("f_9836:irregex_2escm"),(void*)f_9836},
44139 {C_text("f_9840:irregex_2escm"),(void*)f_9840},
44140 {C_text("f_9887:irregex_2escm"),(void*)f_9887},
44141 {C_text("f_9936:irregex_2escm"),(void*)f_9936},
44142 {C_text("f_9964:irregex_2escm"),(void*)f_9964},
44143 {C_text("f_9975:irregex_2escm"),(void*)f_9975},
44144 {C_text("toplevel:irregex_2escm"),(void*)C_irregex_toplevel},
44145 {NULL,NULL}};
44146 #endif
44147 
create_ptable(void)44148 static C_PTABLE_ENTRY *create_ptable(void){
44149 #ifdef C_ENABLE_PTABLES
44150 return ptable;
44151 #else
44152 return NULL;
44153 #endif
44154 }
44155 
44156 /*
44157 o|hiding unexported module binding: chicken.irregex#d
44158 o|hiding unexported module binding: chicken.irregex#define-alias
44159 o|hiding unexported module binding: chicken.irregex#build-cache
44160 o|hiding unexported module binding: chicken.irregex#vector-copy
44161 o|hiding unexported module binding: chicken.irregex#irregex-dfa
44162 o|hiding unexported module binding: chicken.irregex#irregex-dfa/search
44163 o|hiding unexported module binding: chicken.irregex#irregex-nfa
44164 o|hiding unexported module binding: chicken.irregex#irregex-flags
44165 o|hiding unexported module binding: chicken.irregex#irregex-lengths
44166 o|hiding unexported module binding: chicken.irregex#irregex-new-matches
44167 o|hiding unexported module binding: chicken.irregex#irregex-reset-matches!
44168 o|hiding unexported module binding: chicken.irregex#irregex-copy-matches
44169 o|hiding unexported module binding: chicken.irregex#irregex-match-chunker
44170 o|hiding unexported module binding: chicken.irregex#irregex-match-chunker-set!
44171 o|hiding unexported module binding: chicken.irregex#%irregex-match-end-index
44172 o|hiding unexported module binding: chicken.irregex#%irregex-match-fail
44173 o|hiding unexported module binding: chicken.irregex#%irregex-match-fail-set!
44174 o|hiding unexported module binding: chicken.irregex#irregex-match-valid-named-index?
44175 o|hiding unexported module binding: chicken.irregex#irregex-match-start-chunk-set!
44176 o|hiding unexported module binding: chicken.irregex#irregex-match-start-index-set!
44177 o|hiding unexported module binding: chicken.irregex#irregex-match-end-chunk-set!
44178 o|hiding unexported module binding: chicken.irregex#irregex-match-end-index-set!
44179 o|hiding unexported module binding: chicken.irregex#irregex-match-chunk&index-from-tag-set!
44180 o|hiding unexported module binding: chicken.irregex#irregex-match-numeric-index
44181 o|hiding unexported module binding: chicken.irregex#chunker-get-next
44182 o|hiding unexported module binding: chicken.irregex#chunker-get-str
44183 o|hiding unexported module binding: chicken.irregex#chunker-get-start
44184 o|hiding unexported module binding: chicken.irregex#chunker-get-end
44185 o|hiding unexported module binding: chicken.irregex#chunker-get-substring
44186 o|hiding unexported module binding: chicken.irregex#chunker-get-subchunk
44187 o|hiding unexported module binding: chicken.irregex#chunker-prev-chunk
44188 o|hiding unexported module binding: chicken.irregex#chunker-prev-char
44189 o|hiding unexported module binding: chicken.irregex#chunker-next-char
44190 o|hiding unexported module binding: chicken.irregex#chunk-before?
44191 o|hiding unexported module binding: chicken.irregex#wrap-end-chunker
44192 o|hiding unexported module binding: chicken.irregex#*all-chars*
44193 o|hiding unexported module binding: chicken.irregex#*allow-utf8-mode?*
44194 o|hiding unexported module binding: chicken.irregex#string-scan-char
44195 o|hiding unexported module binding: chicken.irregex#string-scan-char-escape
44196 o|hiding unexported module binding: chicken.irregex#string-scan-pred
44197 o|hiding unexported module binding: chicken.irregex#string-split-char
44198 o|hiding unexported module binding: chicken.irregex#char-alphanumeric?
44199 o|hiding unexported module binding: chicken.irregex#%substring=?
44200 o|hiding unexported module binding: chicken.irregex#%%string-copy!
44201 o|hiding unexported module binding: chicken.irregex#string-cat-reverse
44202 o|hiding unexported module binding: chicken.irregex#string-cat-reverse/aux
44203 o|hiding unexported module binding: chicken.irregex#zero-to
44204 o|hiding unexported module binding: chicken.irregex#find
44205 o|hiding unexported module binding: chicken.irregex#find-tail
44206 o|hiding unexported module binding: chicken.irregex#last
44207 o|hiding unexported module binding: chicken.irregex#any
44208 o|hiding unexported module binding: chicken.irregex#every
44209 o|hiding unexported module binding: chicken.irregex#fold
44210 o|hiding unexported module binding: chicken.irregex#filter
44211 o|hiding unexported module binding: chicken.irregex#remove
44212 o|hiding unexported module binding: chicken.irregex#bit-shr
44213 o|hiding unexported module binding: chicken.irregex#bit-shl
44214 o|hiding unexported module binding: chicken.irregex#bit-not
44215 o|hiding unexported module binding: chicken.irregex#bit-ior
44216 o|hiding unexported module binding: chicken.irregex#bit-and
44217 o|hiding unexported module binding: chicken.irregex#integer-log
44218 o|hiding unexported module binding: chicken.irregex#flag-set?
44219 o|hiding unexported module binding: chicken.irregex#flag-join
44220 o|hiding unexported module binding: chicken.irregex#flag-clear
44221 o|hiding unexported module binding: chicken.irregex#~none
44222 o|hiding unexported module binding: chicken.irregex#~searcher?
44223 o|hiding unexported module binding: chicken.irregex#~consumer?
44224 o|hiding unexported module binding: chicken.irregex#close-token
44225 o|hiding unexported module binding: chicken.irregex#dot-token
44226 o|hiding unexported module binding: chicken.irregex#with-read-from-string
44227 o|hiding unexported module binding: chicken.irregex#~save?
44228 o|hiding unexported module binding: chicken.irregex#~case-insensitive?
44229 o|hiding unexported module binding: chicken.irregex#~multi-line?
44230 o|hiding unexported module binding: chicken.irregex#~single-line?
44231 o|hiding unexported module binding: chicken.irregex#~ignore-space?
44232 o|hiding unexported module binding: chicken.irregex#~utf8?
44233 o|hiding unexported module binding: chicken.irregex#symbol-list->flags
44234 o|hiding unexported module binding: chicken.irregex#posix-escape-sequences
44235 o|hiding unexported module binding: chicken.irregex#char-altcase
44236 o|hiding unexported module binding: chicken.irregex#char-mirror
44237 o|hiding unexported module binding: chicken.irregex#string-parse-hex-escape
44238 o|hiding unexported module binding: chicken.irregex#string-parse-cset
44239 o|hiding unexported module binding: chicken.irregex#high-char?
44240 o|hiding unexported module binding: chicken.irregex#utf8-start-char->length
44241 o|hiding unexported module binding: chicken.irregex#utf8-string-ref
44242 o|hiding unexported module binding: chicken.irregex#utf8-backup-to-initial-char
44243 o|hiding unexported module binding: chicken.irregex#utf8-lowest-digit-of-length
44244 o|hiding unexported module binding: chicken.irregex#utf8-highest-digit-of-length
44245 o|hiding unexported module binding: chicken.irregex#char->utf8-list
44246 o|hiding unexported module binding: chicken.irregex#unicode-range->utf8-pattern
44247 o|hiding unexported module binding: chicken.irregex#unicode-range-helper
44248 o|hiding unexported module binding: chicken.irregex#unicode-range-up-from
44249 o|hiding unexported module binding: chicken.irregex#unicode-range-up-to
44250 o|hiding unexported module binding: chicken.irregex#unicode-range-climb-digits
44251 o|hiding unexported module binding: chicken.irregex#unicode-range-middle
44252 o|hiding unexported module binding: chicken.irregex#cset->utf8-pattern
44253 o|hiding unexported module binding: chicken.irregex#sre-adjust-utf8
44254 o|hiding unexported module binding: chicken.irregex#cached
44255 o|hiding unexported module binding: chicken.irregex#sre-empty?
44256 o|hiding unexported module binding: chicken.irregex#sre-any?
44257 o|hiding unexported module binding: chicken.irregex#sre-repeater?
44258 o|hiding unexported module binding: chicken.irregex#sre-bos?
44259 o|hiding unexported module binding: chicken.irregex#sre-searcher?
44260 o|hiding unexported module binding: chicken.irregex#sre-consumer?
44261 o|hiding unexported module binding: chicken.irregex#sre-has-submatches?
44262 o|hiding unexported module binding: chicken.irregex#sre-count-submatches
44263 o|hiding unexported module binding: chicken.irregex#sre-length-ranges
44264 o|hiding unexported module binding: chicken.irregex#sre-sequence
44265 o|hiding unexported module binding: chicken.irregex#sre-alternate
44266 o|hiding unexported module binding: chicken.irregex#sre-strip-submatches
44267 o|hiding unexported module binding: chicken.irregex#sre-flatten-ranges
44268 o|hiding unexported module binding: chicken.irregex#sre-names
44269 o|hiding unexported module binding: chicken.irregex#sre-sequence-names
44270 o|hiding unexported module binding: chicken.irregex#sre-remove-initial-bos
44271 o|hiding unexported module binding: chicken.irregex#irregex-basic-string-chunker
44272 o|hiding unexported module binding: chicken.irregex#irregex-search/matches
44273 o|hiding unexported module binding: chicken.irregex#irregex-search/backtrack
44274 o|hiding unexported module binding: chicken.irregex#dfa-init-state
44275 o|hiding unexported module binding: chicken.irregex#dfa-next-state
44276 o|hiding unexported module binding: chicken.irregex#dfa-cell-commands
44277 o|hiding unexported module binding: chicken.irregex#dfa-finalizer
44278 o|hiding unexported module binding: chicken.irregex#dfa-match/shortest
44279 o|hiding unexported module binding: chicken.irregex#finalize!
44280 o|hiding unexported module binding: chicken.irregex#make-initial-memory
44281 o|hiding unexported module binding: chicken.irregex#dfa-match/longest
44282 o|hiding unexported module binding: chicken.irregex#sre-named-definitions
44283 o|hiding unexported module binding: chicken.irregex#*nfa-presize*
44284 o|hiding unexported module binding: chicken.irregex#*nfa-num-fields*
44285 o|hiding unexported module binding: chicken.irregex#nfa-num-states
44286 o|hiding unexported module binding: chicken.irregex#nfa-start-state
44287 o|hiding unexported module binding: chicken.irregex#nfa-num-tags
44288 o|hiding unexported module binding: chicken.irregex#nfa-highest-map-index
44289 o|hiding unexported module binding: chicken.irregex#nfa-set-highest-map-index!
44290 o|hiding unexported module binding: chicken.irregex#nfa-get-state-trans
44291 o|hiding unexported module binding: chicken.irregex#nfa-set-state-trans!
44292 o|hiding unexported module binding: chicken.irregex#nfa-get-epsilons
44293 o|hiding unexported module binding: chicken.irregex#nfa-set-epsilons!
44294 o|hiding unexported module binding: chicken.irregex#nfa-add-epsilon!
44295 o|hiding unexported module binding: chicken.irregex#nfa-get-reorder-commands
44296 o|hiding unexported module binding: chicken.irregex#nfa-set-reorder-commands!
44297 o|hiding unexported module binding: chicken.irregex#nfa-get-closure
44298 o|hiding unexported module binding: chicken.irregex#nfa-add-closure!
44299 o|hiding unexported module binding: chicken.irregex#sre->nfa
44300 o|hiding unexported module binding: chicken.irregex#*mst-first-state-index*
44301 o|hiding unexported module binding: chicken.irregex#mst-mappings-summary
44302 o|hiding unexported module binding: chicken.irregex#mst-num-states
44303 o|hiding unexported module binding: chicken.irregex#mst-num-states-set!
44304 o|hiding unexported module binding: chicken.irregex#mst-hash
44305 o|hiding unexported module binding: chicken.irregex#mst-hash-set!
44306 o|hiding unexported module binding: chicken.irregex#mst-state-mappings
44307 o|hiding unexported module binding: chicken.irregex#mst-state-mappings-set!
44308 o|hiding unexported module binding: chicken.irregex#make-mst
44309 o|hiding unexported module binding: chicken.irregex#mst-copy
44310 o|hiding unexported module binding: chicken.irregex#nfa-state->mst
44311 o|hiding unexported module binding: chicken.irregex#mst-add!
44312 o|hiding unexported module binding: chicken.irregex#mst-add/fast!
44313 o|hiding unexported module binding: chicken.irregex#mst-add-tagged!
44314 o|hiding unexported module binding: chicken.irregex#mst-same-states?
44315 o|hiding unexported module binding: chicken.irregex#mst-fold
44316 o|hiding unexported module binding: chicken.irregex#next-index-for-tag!
44317 o|hiding unexported module binding: chicken.irregex#nfa->dfa
44318 o|hiding unexported module binding: chicken.irregex#dfa-renumber
44319 o|hiding unexported module binding: chicken.irregex#get-distinct-transitions
44320 o|hiding unexported module binding: chicken.irregex#nfa-epsilon-closure-internal
44321 o|hiding unexported module binding: chicken.irregex#nfa-epsilon-closure
44322 o|hiding unexported module binding: chicken.irregex#tag-set-commands-for-closure
44323 o|hiding unexported module binding: chicken.irregex#find-reorder-commands-internal
44324 o|hiding unexported module binding: chicken.irregex#find-reorder-commands
44325 o|hiding unexported module binding: chicken.irregex#sre->procedure
44326 o|hiding unexported module binding: chicken.irregex#sre-cset->procedure
44327 o|hiding unexported module binding: chicken.irregex#make-cset
44328 o|hiding unexported module binding: chicken.irregex#range->cset
44329 o|hiding unexported module binding: chicken.irregex#char->cset
44330 o|hiding unexported module binding: chicken.irregex#cset-empty?
44331 o|hiding unexported module binding: chicken.irregex#maybe-cset->char
44332 o|hiding unexported module binding: chicken.irregex#cset=?
44333 o|hiding unexported module binding: chicken.irregex#cset-size
44334 o|hiding unexported module binding: chicken.irregex#cset->plist
44335 o|hiding unexported module binding: chicken.irregex#plist->cset
44336 o|hiding unexported module binding: chicken.irregex#string->cset
44337 o|hiding unexported module binding: chicken.irregex#sre->cset
44338 o|hiding unexported module binding: chicken.irregex#cset->sre
44339 o|hiding unexported module binding: chicken.irregex#cset-contains?
44340 o|hiding unexported module binding: chicken.irregex#char-ranges-union
44341 o|hiding unexported module binding: chicken.irregex#cset-union
44342 o|hiding unexported module binding: chicken.irregex#cset-adjoin
44343 o|hiding unexported module binding: chicken.irregex#next-char
44344 o|hiding unexported module binding: chicken.irregex#prev-char
44345 o|hiding unexported module binding: chicken.irregex#cset-difference
44346 o|hiding unexported module binding: chicken.irregex#min-char
44347 o|hiding unexported module binding: chicken.irregex#max-char
44348 o|hiding unexported module binding: chicken.irregex#cset-intersection
44349 o|hiding unexported module binding: chicken.irregex#cset-complement
44350 o|hiding unexported module binding: chicken.irregex#cset-case-insensitive
44351 o|hiding unexported module binding: chicken.irregex#irregex-fold/fast
44352 o|hiding unexported module binding: chicken.irregex#irregex-fold/chunked/fast
44353 o|hiding unexported module binding: chicken.irregex#irregex-apply-match
44354 o|hiding unexported module binding: chicken.irregex#rx-special-chars
44355 o|hiding unexported module binding: chicken.irregex#string-scan-char
44356 o|hiding unexported module binding: chicken.irregex#cset->string
44357 S|applied compiler syntax:
44358 S|  irregex-match-chunk&index-from-tag-set!		1
44359 S|  scheme#for-each		12
44360 S|  irregex-match-end-index-set!		7
44361 S|  irregex-match-end-chunk-set!		7
44362 S|  irregex-match-start-index-set!		7
44363 S|  irregex-match-start-chunk-set!		7
44364 S|  make-irregex		2
44365 S|  scheme#map		24
44366 S|  bit-not		1
44367 S|  bit-shr		10
44368 S|  bit-shl		11
44369 S|  bit-and		18
44370 S|  bit-ior		11
44371 S|  %%string-copy!		1
44372 S|  scheme#reverse		35
44373 S|  make-irregex-match		1
44374 o|eliminated procedure checks: 537
44375 o|eliminated procedure checks: 1
44376 o|folded constant expression: (scheme#integer->char (quote 0))
44377 o|folded constant expression: (scheme#integer->char (quote 55295))
44378 o|folded constant expression: (scheme#integer->char (quote 57344))
44379 o|folded constant expression: (scheme#integer->char (quote 1114111))
44380 o|folded constant expression: (scheme#string->symbol (quote "."))
44381 o|folded constant expression: (scheme#char->integer (quote #\newline))
44382 o|folded constant expression: (scheme#+ (quote 10) (quote 3))
44383 o|folded constant expression: (scheme#integer->char (quote 13))
44384 o|folded constant expression: (scheme#char->integer (quote #\newline))
44385 o|folded constant expression: (scheme#- (quote 10) (quote 1))
44386 o|folded constant expression: (scheme#integer->char (quote 9))
44387 o|folded constant expression: (scheme#char->integer (quote #\newline))
44388 o|folded constant expression: (scheme#- (quote 10) (quote 3))
44389 o|folded constant expression: (scheme#integer->char (quote 7))
44390 o|folded constant expression: (scheme#char->integer (quote #\newline))
44391 o|folded constant expression: (scheme#+ (quote 10) (quote 17))
44392 o|folded constant expression: (scheme#integer->char (quote 27))
44393 o|folded constant expression: (scheme#char->integer (quote #\newline))
44394 o|folded constant expression: (scheme#+ (quote 10) (quote 2))
44395 o|folded constant expression: (scheme#integer->char (quote 12))
44396 o|folded constant expression: (scheme#integer->char (quote 128))
44397 o|folded constant expression: (scheme#integer->char (quote 255))
44398 o|folded constant expression: (scheme#integer->char (quote 255))
44399 o|folded constant expression: (scheme#integer->char (quote 255))
44400 o|folded constant expression: (scheme#integer->char (quote 128))
44401 o|folded constant expression: (scheme#integer->char (quote 128))
44402 o|folded constant expression: (scheme#integer->char (quote 128))
44403 o|folded constant expression: (scheme#integer->char (quote 255))
44404 o|folded constant expression: (scheme#integer->char (quote 128))
44405 o|folded constant expression: (scheme#integer->char (quote 255))
44406 o|folded constant expression: (scheme#integer->char (quote 128))
44407 o|folded constant expression: (scheme#integer->char (quote 255))
44408 o|folded constant expression: (scheme#integer->char (quote 128))
44409 o|folded constant expression: (scheme#integer->char (quote 255))
44410 o|eliminated procedure checks: 1
44411 o|eliminated procedure checks: 1
44412 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44413 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44414 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
44415 o|eliminated procedure checks: 1
44416 o|eliminated procedure checks: 1
44417 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44418 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44419 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
44420 o|eliminated procedure checks: 1
44421 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44422 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44423 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
44424 o|eliminated procedure checks: 1
44425 o|eliminated procedure checks: 1
44426 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44427 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44428 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
44429 o|eliminated procedure checks: 1
44430 o|folded constant expression: (scheme#char->integer (quote #\space))
44431 o|folded constant expression: (scheme#- (quote 32) (quote 23))
44432 o|folded constant expression: (scheme#integer->char (quote 9))
44433 o|folded constant expression: (scheme#char->integer (quote #\space))
44434 o|folded constant expression: (scheme#- (quote 32) (quote 32))
44435 o|folded constant expression: (scheme#integer->char (quote 0))
44436 o|folded constant expression: (scheme#char->integer (quote #\space))
44437 o|folded constant expression: (scheme#- (quote 32) (quote 1))
44438 o|folded constant expression: (scheme#integer->char (quote 31))
44439 o|folded constant expression: (scheme#char->integer (quote #\space))
44440 o|folded constant expression: (scheme#- (quote 32) (quote 32))
44441 o|folded constant expression: (scheme#integer->char (quote 0))
44442 o|folded constant expression: (scheme#char->integer (quote #\space))
44443 o|folded constant expression: (scheme#+ (quote 32) (quote 95))
44444 o|folded constant expression: (scheme#integer->char (quote 127))
44445 o|folded constant expression: (scheme#char->integer (quote #\space))
44446 o|folded constant expression: (scheme#- (quote 32) (quote 32))
44447 o|folded constant expression: (scheme#integer->char (quote 0))
44448 o|folded constant expression: (scheme#char->integer (quote #\newline))
44449 o|folded constant expression: (scheme#- (quote 10) (quote 1))
44450 o|folded constant expression: (scheme#integer->char (quote 9))
44451 o|folded constant expression: (scheme#char->integer (quote #\newline))
44452 o|folded constant expression: (scheme#+ (quote 10) (quote 1))
44453 o|folded constant expression: (scheme#integer->char (quote 11))
44454 o|folded constant expression: (scheme#char->integer (quote #\space))
44455 o|folded constant expression: (scheme#+ (quote 32) (quote 95))
44456 o|folded constant expression: (scheme#integer->char (quote 127))
44457 o|folded constant expression: (scheme#char->integer (quote #\newline))
44458 o|folded constant expression: (scheme#+ (quote 10) (quote 3))
44459 o|folded constant expression: (scheme#integer->char (quote 13))
44460 o|folded constant expression: (scheme#char->integer (quote #\newline))
44461 o|folded constant expression: (scheme#+ (quote 10) (quote 3))
44462 o|folded constant expression: (scheme#integer->char (quote 13))
44463 o|folded constant expression: (scheme#char->integer (quote #\space))
44464 o|folded constant expression: (scheme#+ (quote 32) (quote 96))
44465 o|folded constant expression: (scheme#integer->char (quote 128))
44466 o|folded constant expression: (scheme#char->integer (quote #\space))
44467 o|folded constant expression: (scheme#+ (quote 32) (quote 161))
44468 o|folded constant expression: (scheme#integer->char (quote 193))
44469 o|folded constant expression: (scheme#char->integer (quote #\space))
44470 o|folded constant expression: (scheme#+ (quote 32) (quote 162))
44471 o|folded constant expression: (scheme#integer->char (quote 194))
44472 o|folded constant expression: (scheme#char->integer (quote #\space))
44473 o|folded constant expression: (scheme#+ (quote 32) (quote 191))
44474 o|folded constant expression: (scheme#integer->char (quote 223))
44475 o|folded constant expression: (scheme#char->integer (quote #\space))
44476 o|folded constant expression: (scheme#+ (quote 32) (quote 192))
44477 o|folded constant expression: (scheme#integer->char (quote 224))
44478 o|folded constant expression: (scheme#char->integer (quote #\space))
44479 o|folded constant expression: (scheme#+ (quote 32) (quote 207))
44480 o|folded constant expression: (scheme#integer->char (quote 239))
44481 o|folded constant expression: (scheme#char->integer (quote #\space))
44482 o|folded constant expression: (scheme#+ (quote 32) (quote 208))
44483 o|folded constant expression: (scheme#integer->char (quote 240))
44484 o|folded constant expression: (scheme#char->integer (quote #\space))
44485 o|folded constant expression: (scheme#+ (quote 32) (quote 215))
44486 o|folded constant expression: (scheme#integer->char (quote 247))
44487 o|eliminated procedure checks: 1
44488 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44489 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44490 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
44491 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44492 o|folded constant expression: (scheme#+ (quote 2) (quote 0))
44493 o|folded constant expression: (scheme#* (quote 0) (quote 4))
44494 o|folded constant expression: (scheme#+ (quote 3) (quote 0))
44495 o|eliminated procedure checks: 1
44496 o|eliminated procedure checks: 1
44497 o|specializations:
44498 o|  1 (scheme#> fixnum fixnum)
44499 o|  1 (scheme#> integer integer)
44500 o|  1 (scheme#< integer integer)
44501 o|  1 (scheme#char<? char char)
44502 o|  2 (scheme#char<=? char char)
44503 o|  2 (scheme#zero? integer)
44504 o|  1 (scheme#eqv? * *)
44505 o|  1 (scheme#set-car! pair *)
44506 o|  1 (scheme#equal? (or eof null fixnum char boolean symbol keyword) *)
44507 o|  1 (scheme#caar (pair pair *))
44508 o|  1 (scheme#quotient fixnum fixnum)
44509 o|  1 (chicken.irregex#irregex-nfa (struct regexp))
44510 o|  1 (chicken.irregex#irregex-dfa/search (struct regexp))
44511 o|  4 (chicken.irregex#irregex-dfa (struct regexp))
44512 o|  4 (chicken.irregex#irregex-flags (struct regexp))
44513 o|  2 (scheme#string-length string)
44514 o|  3 (scheme#cdddr (pair * (pair * pair)))
44515 o|  5 (scheme#caddr (pair * (pair * pair)))
44516 o|  3 (scheme#vector-length vector)
44517 o|  31 (scheme#cadr (pair * pair))
44518 o|  2 (scheme#- integer integer)
44519 o|  2 (scheme#= fixnum fixnum)
44520 o|  2 (scheme#length list)
44521 o|  1 (scheme#>= fixnum fixnum)
44522 o|  1 (scheme#< fixnum fixnum)
44523 o|  5 (scheme#<= fixnum fixnum)
44524 o|  7 (scheme#>= integer integer)
44525 o|  6 (scheme#cddr (pair * pair))
44526 o|  17 (scheme#memq * list)
44527 o|  4 (##sys#check-list (or pair list) *)
44528 o|  3 (scheme#memv (or symbol keyword procedure eof null fixnum char boolean) list)
44529 o|  3 (scheme#string-ref string fixnum)
44530 o|  1 (scheme#number->string *)
44531 o|  128 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *)
44532 o|  6 (scheme#+ integer integer)
44533 o|  7 (scheme#* fixnum fixnum)
44534 o|  4 (scheme#odd? *)
44535 o|  13 (scheme#zero? *)
44536 o|  4 (scheme#char=? char char)
44537 o|  264 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
44538 o|  215 (scheme#cdr pair)
44539 o|  5 (scheme#cdar (pair pair *))
44540 o|  12 (scheme#integer? *)
44541 o|  159 (scheme#car pair)
44542 o|  16 (scheme#- fixnum fixnum)
44543 o|  1 (chicken.irregex#irregex-names (struct regexp))
44544 o|  1 (scheme#* integer integer)
44545 o|  215 (scheme#+ fixnum fixnum)
44546 (o e)|safe calls: 3628
44547 (o e)|assignments to immediate values: 13
44548 o|safe globals: (chicken.irregex#%irregex-match-fail-set! chicken.irregex#%irregex-match-fail chicken.irregex#%irregex-match-end-index chicken.irregex#irregex-match-chunker-set! chicken.irregex#irregex-match-names chicken.irregex#irregex-match-chunker chicken.irregex#irregex-match-num-submatches chicken.irregex#irregex-match-data? chicken.irregex#irregex-copy-matches chicken.irregex#irregex-reset-matches! chicken.irregex#irregex-new-matches chicken.irregex#irregex-names chicken.irregex#irregex-lengths chicken.irregex#irregex-num-submatches chicken.irregex#irregex-flags chicken.irregex#irregex-nfa chicken.irregex#irregex-dfa/search chicken.irregex#irregex-dfa chicken.irregex#irregex? chicken.irregex#vector-copy)
44549 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-dfa/search
44550 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-flags
44551 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-lengths
44552 o|substituted constant variable: a7639
44553 o|substituted constant variable: a7637
44554 o|inlining procedure: k7656
44555 o|inlining procedure: k7656
44556 o|substituted constant variable: a7701
44557 o|inlining procedure: k7783
44558 o|contracted procedure: "(irregex-core.scm:233) g794795"
44559 o|inlining procedure: k7783
44560 o|inlining procedure: k7808
44561 o|contracted procedure: "(irregex-core.scm:236) g803804"
44562 o|inlining procedure: k7808
44563 o|inlining procedure: k7837
44564 o|contracted procedure: "(irregex-core.scm:239) g812813"
44565 o|inlining procedure: k7837
44566 o|inlining procedure: k7866
44567 o|inlining procedure: k7866
44568 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-start-chunk-set!
44569 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-start-index-set!
44570 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-end-chunk-set!
44571 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-end-index-set!
44572 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunk&index-from-tag-set!
44573 o|inlining procedure: k7956
44574 o|inlining procedure: k7956
44575 o|inlining procedure: k7971
44576 o|inlining procedure: k7971
44577 o|inlining procedure: k7987
44578 o|inlining procedure: k8023
44579 o|inlining procedure: k8023
44580 o|contracted procedure: "(irregex-core.scm:278) g860861"
44581 o|inlining procedure: k8031
44582 o|inlining procedure: k8031
44583 o|contracted procedure: "(irregex-core.scm:277) g853854"
44584 o|inlining procedure: k8001
44585 o|substituted constant variable: a8019
44586 o|inlining procedure: k8001
44587 o|inlining procedure: k7987
44588 o|inlining procedure: k8068
44589 o|inlining procedure: k8068
44590 o|inlining procedure: k8086
44591 o|inlining procedure: k8086
44592 o|contracted procedure: "(irregex-core.scm:288) g874875"
44593 o|inlining procedure: k8143
44594 o|contracted procedure: "(irregex-core.scm:299) g882883"
44595 o|inlining procedure: k8161
44596 o|substituted constant variable: a8179
44597 o|inlining procedure: k8161
44598 o|inlining procedure: k8143
44599 o|contracted procedure: "(irregex-core.scm:300) chicken.irregex#irregex-match-valid-named-index?"
44600 o|inlining procedure: k7767
44601 o|inlining procedure: k7767
44602 o|inlining procedure: k8209
44603 o|contracted procedure: "(irregex-core.scm:309) g905906"
44604 o|contracted procedure: "(irregex-core.scm:308) g901902"
44605 o|contracted procedure: "(irregex-core.scm:307) g897898"
44606 o|inlining procedure: "(irregex-core.scm:306) chicken.irregex#chunker-get-substring"
44607 o|inlining procedure: k8209
44608 o|inlining procedure: "(irregex-core.scm:304) chicken.irregex#irregex-match-chunker"
44609 o|inlining procedure: k8293
44610 o|inlining procedure: k8293
44611 o|contracted procedure: "(irregex-core.scm:321) g924925"
44612 o|contracted procedure: "(irregex-core.scm:320) g920921"
44613 o|contracted procedure: "(irregex-core.scm:319) g916917"
44614 o|inlining procedure: "(irregex-core.scm:315) chicken.irregex#chunker-get-subchunk"
44615 o|inlining procedure: "(irregex-core.scm:314) chicken.irregex#irregex-match-chunker"
44616 o|inlining procedure: k8417
44617 o|inlining procedure: k8429
44618 o|inlining procedure: k8429
44619 o|inlining procedure: k8417
44620 o|inlining procedure: k8448
44621 o|inlining procedure: k8448
44622 o|inlining procedure: k8475
44623 o|inlining procedure: k8475
44624 o|inlining procedure: k8645
44625 o|inlining procedure: "(irregex-core.scm:380) chicken.irregex#chunker-get-end"
44626 o|inlining procedure: "(irregex-core.scm:379) chicken.irregex#chunker-get-str"
44627 o|inlining procedure: k8645
44628 o|contracted procedure: "(irregex-core.scm:377) chicken.irregex#chunker-prev-chunk"
44629 o|inlining procedure: k8609
44630 o|inlining procedure: k8609
44631 o|inlining procedure: k8627
44632 o|inlining procedure: k8627
44633 o|inlining procedure: "(irregex-core.scm:369) chicken.irregex#chunker-get-next"
44634 o|inlining procedure: k8678
44635 o|inlining procedure: "(irregex-core.scm:386) chicken.irregex#chunker-get-start"
44636 o|inlining procedure: "(irregex-core.scm:385) chicken.irregex#chunker-get-str"
44637 o|inlining procedure: k8678
44638 o|inlining procedure: "(irregex-core.scm:383) chicken.irregex#chunker-get-next"
44639 o|inlining procedure: k8832
44640 o|inlining procedure: k8832
44641 o|substituted constant variable: a8849
44642 o|inlining procedure: k9029
44643 o|inlining procedure: k9029
44644 o|removed side-effect free assignment to unused variable: chicken.irregex#%substring=?
44645 o|removed side-effect free assignment to unused variable: chicken.irregex#%%string-copy!
44646 o|contracted procedure: "(irregex-core.scm:483) chicken.irregex#string-cat-reverse/aux"
44647 o|substituted constant variable: u11411146
44648 o|inlining procedure: k9139
44649 o|inlining procedure: k9139
44650 o|inlining procedure: k9160
44651 o|inlining procedure: k9160
44652 o|inlining procedure: k9176
44653 o|inlining procedure: k9176
44654 o|inlining procedure: k9203
44655 o|inlining procedure: k9203
44656 o|removed side-effect free assignment to unused variable: chicken.irregex#find-tail
44657 o|inlining procedure: k9258
44658 o|inlining procedure: k9258
44659 o|inlining procedure: k9273
44660 o|inlining procedure: k9273
44661 o|inlining procedure: k9296
44662 o|inlining procedure: k9312
44663 o|inlining procedure: k9312
44664 o|inlining procedure: k9296
44665 o|inlining procedure: k9342
44666 o|inlining procedure: k9342
44667 o|inlining procedure: k9357
44668 o|inlining procedure: k9357
44669 o|inlining procedure: k9390
44670 o|inlining procedure: k9390
44671 o|removed side-effect free assignment to unused variable: chicken.irregex#filter
44672 o|removed side-effect free assignment to unused variable: chicken.irregex#remove
44673 o|removed side-effect free assignment to unused variable: chicken.irregex#bit-shr
44674 o|removed side-effect free assignment to unused variable: chicken.irregex#bit-shl
44675 o|removed side-effect free assignment to unused variable: chicken.irregex#bit-not
44676 o|removed side-effect free assignment to unused variable: chicken.irregex#bit-ior
44677 o|removed side-effect free assignment to unused variable: chicken.irregex#bit-and
44678 o|removed side-effect free assignment to unused variable: chicken.irregex#integer-log
44679 o|inlining procedure: k9714
44680 o|inlining procedure: k9714
44681 o|inlining procedure: k9748
44682 o|inlining procedure: k9748
44683 o|substituted constant variable: a9771
44684 o|inlining procedure: k9781
44685 o|inlining procedure: k9781
44686 o|inlining procedure: k9800
44687 o|inlining procedure: k9800
44688 o|inlining procedure: k9821
44689 o|inlining procedure: k9821
44690 o|substituted constant variable: chicken.irregex#dot-token
44691 o|inlining procedure: k9862
44692 o|substituted constant variable: a9873
44693 o|inlining procedure: k9862
44694 o|substituted constant variable: a9885
44695 o|inlining procedure: k9889
44696 o|inlining procedure: k9889
44697 o|substituted constant variable: a9915
44698 o|inlining procedure: k9920
44699 o|substituted constant variable: a9934
44700 o|substituted constant variable: a9951
44701 o|inlining procedure: k9920
44702 o|substituted constant variable: a9985
44703 o|substituted constant variable: a9987
44704 o|substituted constant variable: a9994
44705 o|substituted constant variable: a10001
44706 o|substituted constant variable: a10004
44707 o|inlining procedure: k10005
44708 o|substituted constant variable: a10016
44709 o|substituted constant variable: a10019
44710 o|inlining procedure: k10026
44711 o|inlining procedure: k10026
44712 o|inlining procedure: k10039
44713 o|inlining procedure: k10039
44714 o|substituted constant variable: a10066
44715 o|inlining procedure: k10071
44716 o|substituted constant variable: a10082
44717 o|substituted constant variable: a10085
44718 o|inlining procedure: k10071
44719 o|substituted constant variable: a10095
44720 o|substituted constant variable: a10097
44721 o|substituted constant variable: a10099
44722 o|inlining procedure: k10005
44723 o|inlining procedure: k10109
44724 o|substituted constant variable: a10120
44725 o|inlining procedure: k10109
44726 o|substituted constant variable: a10138
44727 o|inlining procedure: k10146
44728 o|inlining procedure: k10146
44729 o|substituted constant variable: a10162
44730 o|inlining procedure: k10158
44731 o|inlining procedure: k10158
44732 o|substituted constant variable: a10174
44733 o|substituted constant variable: a10176
44734 o|inlining procedure: k10177
44735 o|substituted constant variable: a10195
44736 o|substituted constant variable: a10196
44737 o|substituted constant variable: a10203
44738 o|inlining procedure: k10177
44739 o|substituted constant variable: a10211
44740 o|substituted constant variable: a10213
44741 o|substituted constant variable: a10215
44742 o|substituted constant variable: a10217
44743 o|substituted constant variable: a10220
44744 o|inlining procedure: k10221
44745 o|substituted constant variable: a10232
44746 o|inlining procedure: k10221
44747 o|substituted constant variable: a10238
44748 o|inlining procedure: k10242
44749 o|inlining procedure: k10261
44750 o|inlining procedure: k10261
44751 o|inlining procedure: k10242
44752 o|inlining procedure: k10280
44753 o|inlining procedure: k10280
44754 o|substituted constant variable: a10284
44755 o|substituted constant variable: a10289
44756 o|substituted constant variable: a10291
44757 o|substituted constant variable: a10293
44758 o|substituted constant variable: a10298
44759 o|substituted constant variable: a10300
44760 o|substituted constant variable: a10302
44761 o|substituted constant variable: a10304
44762 o|substituted constant variable: a10306
44763 o|inlining procedure: k10313
44764 o|inlining procedure: k10313
44765 o|inlining procedure: k10340
44766 o|inlining procedure: k10340
44767 o|inlining procedure: k10359
44768 o|substituted constant variable: chicken.irregex#~case-insensitive?
44769 o|propagated global variable: r1036031189 chicken.irregex#~case-insensitive?
44770 o|inlining procedure: k10359
44771 o|substituted constant variable: chicken.irregex#~multi-line?
44772 o|inlining procedure: k10377
44773 o|substituted constant variable: chicken.irregex#~single-line?
44774 o|propagated global variable: r1037831193 chicken.irregex#~single-line?
44775 o|inlining procedure: k10377
44776 o|substituted constant variable: chicken.irregex#~ignore-space?
44777 o|inlining procedure: k10395
44778 o|substituted constant variable: chicken.irregex#*allow-utf8-mode?*
44779 o|substituted constant variable: chicken.irregex#~utf8?
44780 o|substituted constant variable: chicken.irregex#~none
44781 o|inlining procedure: k10359
44782 o|inlining procedure: k10395
44783 o|substituted constant variable: a10411
44784 o|substituted constant variable: a10413
44785 o|substituted constant variable: a10418
44786 o|substituted constant variable: a10420
44787 o|substituted constant variable: a10425
44788 o|substituted constant variable: a10427
44789 o|substituted constant variable: a10432
44790 o|substituted constant variable: a10434
44791 o|inlining procedure: k10438
44792 o|inlining procedure: k10438
44793 o|substituted constant variable: a10445
44794 o|substituted constant variable: a10447
44795 o|substituted constant variable: a10449
44796 o|substituted constant variable: chicken.irregex#~none
44797 o|inlining procedure: k10457
44798 o|inlining procedure: k10457
44799 o|inlining procedure: k10487
44800 o|inlining procedure: k10487
44801 o|substituted constant variable: chicken.irregex#~case-insensitive?
44802 o|inlining procedure: k10509
44803 o|inlining procedure: k10531
44804 o|inlining procedure: k10531
44805 o|inlining procedure: k10509
44806 o|substituted constant variable: chicken.irregex#~case-insensitive?
44807 o|inlining procedure: k10565
44808 o|inlining procedure: k10565
44809 o|inlining procedure: k10591
44810 o|inlining procedure: k10591
44811 o|inlining procedure: k10625
44812 o|inlining procedure: k10625
44813 o|contracted procedure: "(irregex-core.scm:772) chicken.irregex#utf8-backup-to-initial-char"
44814 o|inlining procedure: k14226
44815 o|inlining procedure: k14226
44816 o|substituted constant variable: a14249
44817 o|substituted constant variable: a14254
44818 o|substituted constant variable: a14256
44819 o|substituted constant variable: chicken.irregex#~utf8?
44820 o|inlining procedure: k10685
44821 o|inlining procedure: k10700
44822 o|substituted constant variable: a10719
44823 o|inlining procedure: k10712
44824 o|inlining procedure: k10712
44825 o|inlining procedure: k10700
44826 o|substituted constant variable: chicken.irregex#~save?
44827 o|inlining procedure: k10685
44828 o|substituted constant variable: a10827
44829 o|inlining procedure: k10820
44830 o|inlining procedure: k10820
44831 o|inlining procedure: k10864
44832 o|inlining procedure: k10864
44833 o|substituted constant variable: a10878
44834 o|substituted constant variable: a10886
44835 o|inlining procedure: k10901
44836 o|inlining procedure: k10901
44837 o|substituted constant variable: a10933
44838 o|substituted constant variable: a10936
44839 o|substituted constant variable: chicken.irregex#~single-line?
44840 o|inlining procedure: k10952
44841 o|substituted constant variable: a10978
44842 o|substituted constant variable: a10981
44843 o|inlining procedure: k10987
44844 o|inlining procedure: k11007
44845 o|inlining procedure: k11007
44846 o|inlining procedure: k11037
44847 o|inlining procedure: k11037
44848 o|inlining procedure: k11067
44849 o|inlining procedure: k11067
44850 o|substituted constant variable: a11095
44851 o|substituted constant variable: a11097
44852 o|substituted constant variable: a11099
44853 o|substituted constant variable: a11101
44854 o|substituted constant variable: a11103
44855 o|substituted constant variable: a11105
44856 o|inlining procedure: k10987
44857 o|inlining procedure: k10952
44858 o|inlining procedure: k11127
44859 o|inlining procedure: k11127
44860 o|substituted constant variable: a11150
44861 o|substituted constant variable: a11153
44862 o|inlining procedure: k11174
44863 o|substituted constant variable: a11185
44864 o|inlining procedure: k11190
44865 o|substituted constant variable: a11201
44866 o|substituted constant variable: a11204
44867 o|substituted constant variable: chicken.irregex#~save?
44868 o|inlining procedure: k11190
44869 o|substituted constant variable: a11218
44870 o|inlining procedure: k11223
44871 o|substituted constant variable: a11240
44872 o|inlining procedure: k11244
44873 o|inlining procedure: k11244
44874 o|substituted constant variable: a11282
44875 o|substituted constant variable: a11290
44876 o|substituted constant variable: a11297
44877 o|inlining procedure: k11223
44878 o|substituted constant variable: a11327
44879 o|inlining procedure: k11328
44880 o|substituted constant variable: a11339
44881 o|substituted constant variable: a11342
44882 o|substituted constant variable: chicken.irregex#~save?
44883 o|inlining procedure: k11328
44884 o|substituted constant variable: a11362
44885 o|substituted constant variable: a11365
44886 o|substituted constant variable: chicken.irregex#~save?
44887 o|inlining procedure: k11374
44888 o|substituted constant variable: a11385
44889 o|substituted constant variable: a11388
44890 o|substituted constant variable: chicken.irregex#~save?
44891 o|inlining procedure: k11374
44892 o|substituted constant variable: a11408
44893 o|inlining procedure: k11403
44894 o|inlining procedure: k11403
44895 o|substituted constant variable: a11427
44896 o|substituted constant variable: a11430
44897 o|substituted constant variable: chicken.irregex#~save?
44898 o|inlining procedure: k11439
44899 o|substituted constant variable: a11450
44900 o|substituted constant variable: a11453
44901 o|substituted constant variable: chicken.irregex#~save?
44902 o|inlining procedure: k11439
44903 o|substituted constant variable: a11501
44904 o|substituted constant variable: chicken.irregex#~save?
44905 o|substituted constant variable: a11513
44906 o|substituted constant variable: a11520
44907 o|substituted constant variable: a11522
44908 o|substituted constant variable: a11524
44909 o|substituted constant variable: a11527
44910 o|inlining procedure: k11528
44911 o|substituted constant variable: a11539
44912 o|substituted constant variable: a11542
44913 o|substituted constant variable: chicken.irregex#~save?
44914 o|inlining procedure: k11528
44915 o|substituted constant variable: a11562
44916 o|inlining procedure: k11557
44917 o|inlining procedure: k11557
44918 o|inlining procedure: k11579
44919 o|inlining procedure: k11579
44920 o|substituted constant variable: a11593
44921 o|substituted constant variable: a11596
44922 o|substituted constant variable: chicken.irregex#~save?
44923 o|substituted constant variable: a11615
44924 o|substituted constant variable: a11618
44925 o|inlining procedure: k11619
44926 o|substituted constant variable: a11636
44927 o|substituted constant variable: a11639
44928 o|substituted constant variable: chicken.irregex#~save?
44929 o|substituted constant variable: a11658
44930 o|substituted constant variable: a11661
44931 o|inlining procedure: k11619
44932 o|substituted constant variable: a11667
44933 o|substituted constant variable: a11670
44934 o|substituted constant variable: chicken.irregex#~save?
44935 o|substituted constant variable: a11685
44936 o|substituted constant variable: a11692
44937 o|inlining procedure: k11693
44938 o|inlining procedure: k11693
44939 o|substituted constant variable: a11707
44940 o|inlining procedure: k11714
44941 o|propagated global variable: r1171531276 chicken.irregex#flag-clear
44942 o|inlining procedure: k11714
44943 o|propagated global variable: r1171531281 chicken.irregex#flag-join
44944 o|inlining procedure: k11729
44945 o|inlining procedure: k11729
44946 o|inlining procedure: k11739
44947 o|inlining procedure: k11739
44948 o|substituted constant variable: chicken.irregex#~utf8?
44949 o|substituted constant variable: chicken.irregex#~utf8?
44950 o|inlining procedure: k11742
44951 o|inlining procedure: k11742
44952 o|substituted constant variable: a11765
44953 o|substituted constant variable: chicken.irregex#~case-insensitive?
44954 o|inlining procedure: k11770
44955 o|substituted constant variable: a11781
44956 o|substituted constant variable: chicken.irregex#~multi-line?
44957 o|inlining procedure: k11770
44958 o|substituted constant variable: a11797
44959 o|substituted constant variable: chicken.irregex#~ignore-space?
44960 o|inlining procedure: k11802
44961 o|substituted constant variable: chicken.irregex#*allow-utf8-mode?*
44962 o|substituted constant variable: a11816
44963 o|substituted constant variable: chicken.irregex#~utf8?
44964 o|substituted constant variable: a11826
44965 o|inlining procedure: k11802
44966 o|substituted constant variable: a11838
44967 o|inlining procedure: k11843
44968 o|substituted constant variable: a11854
44969 o|substituted constant variable: a11857
44970 o|inlining procedure: k11843
44971 o|substituted constant variable: a11877
44972 o|substituted constant variable: a11880
44973 o|substituted constant variable: a11901
44974 o|substituted constant variable: a11903
44975 o|substituted constant variable: a11905
44976 o|substituted constant variable: a11907
44977 o|substituted constant variable: a11909
44978 o|substituted constant variable: a11911
44979 o|substituted constant variable: a11913
44980 o|substituted constant variable: a11915
44981 o|substituted constant variable: a11917
44982 o|substituted constant variable: a11919
44983 o|substituted constant variable: a11921
44984 o|substituted constant variable: a11923
44985 o|substituted constant variable: a11925
44986 o|substituted constant variable: a11927
44987 o|substituted constant variable: a11929
44988 o|substituted constant variable: a11932
44989 o|substituted constant variable: a11937
44990 o|substituted constant variable: a11940
44991 o|substituted constant variable: a11946
44992 o|substituted constant variable: a11949
44993 o|inlining procedure: k11174
44994 o|inlining procedure: k11956
44995 o|inlining procedure: k11956
44996 o|substituted constant variable: a11970
44997 o|substituted constant variable: a11973
44998 o|inlining procedure: k11992
44999 o|substituted constant variable: a12029
45000 o|contracted procedure: "(irregex-core.scm:1014) chicken.irregex#string-parse-cset"
45001 o|inlining procedure: k13406
45002 o|inlining procedure: k13406
45003 o|inlining procedure: k13424
45004 o|substituted constant variable: a13435
45005 o|inlining procedure: k13424
45006 o|contracted procedure: "(irregex-core.scm:1234) chicken.irregex#cset->sre"
45007 o|substituted constant variable: chicken.irregex#~case-insensitive?
45008 o|inlining procedure: k13463
45009 o|substituted constant variable: a13483
45010 o|inlining procedure: k13488
45011 o|inlining procedure: k13488
45012 o|inlining procedure: k13506
45013 o|inlining procedure: k13506
45014 o|inlining procedure: k13530
45015 o|inlining procedure: k13530
45016 o|substituted constant variable: a13560
45017 o|inlining procedure: k13561
45018 o|substituted constant variable: a13583
45019 o|inlining procedure: k13561
45020 o|substituted constant variable: a13589
45021 o|substituted constant variable: a13607
45022 o|substituted constant variable: a13610
45023 o|substituted constant variable: a13611
45024 o|substituted constant variable: a13619
45025 o|substituted constant variable: a13623
45026 o|inlining procedure: k13627
45027 o|inlining procedure: k13627
45028 o|substituted constant variable: a13633
45029 o|substituted constant variable: a13640
45030 o|substituted constant variable: a13647
45031 o|inlining procedure: k13463
45032 o|inlining procedure: k13671
45033 o|substituted constant variable: a13703
45034 o|consed rest parameter at call site: "(irregex-core.scm:1270) chicken.irregex#sre->cset" 2
45035 o|substituted constant variable: a13721
45036 o|substituted constant variable: a13729
45037 o|substituted constant variable: a13740
45038 o|inlining procedure: k13671
45039 o|substituted constant variable: a13758
45040 o|substituted constant variable: a13767
45041 o|substituted constant variable: a13769
45042 o|substituted constant variable: a13771
45043 o|substituted constant variable: a13773
45044 o|substituted constant variable: a13775
45045 o|substituted constant variable: a13776
45046 o|substituted constant variable: a13783
45047 o|inlining procedure: k13784
45048 o|substituted constant variable: a13807
45049 o|consed rest parameter at call site: "(irregex-core.scm:1285) chicken.irregex#sre->cset" 2
45050 o|inlining procedure: k13824
45051 o|substituted constant variable: a13849
45052 o|inlining procedure: k13824
45053 o|substituted constant variable: a13861
45054 o|substituted constant variable: a13870
45055 o|inlining procedure: k13874
45056 o|inlining procedure: k13874
45057 o|inlining procedure: k13886
45058 o|inlining procedure: k13886
45059 o|substituted constant variable: a13899
45060 o|substituted constant variable: a13901
45061 o|substituted constant variable: a13903
45062 o|substituted constant variable: a13905
45063 o|substituted constant variable: a13907
45064 o|substituted constant variable: a13909
45065 o|substituted constant variable: a13912
45066 o|inlining procedure: k13784
45067 o|substituted constant variable: a13946
45068 o|substituted constant variable: a13959
45069 o|substituted constant variable: a13961
45070 o|substituted constant variable: a13963
45071 o|substituted constant variable: a13965
45072 o|inlining procedure: k13966
45073 o|inlining procedure: k13977
45074 o|inlining procedure: k13977
45075 o|inlining procedure: "(irregex-core.scm:1307) chicken.irregex#make-cset"
45076 o|substituted constant variable: chicken.irregex#~multi-line?
45077 o|inlining procedure: k13966
45078 o|inlining procedure: "(irregex-core.scm:1308) chicken.irregex#make-cset"
45079 o|substituted constant variable: chicken.irregex#~utf8?
45080 o|substituted constant variable: a14002
45081 o|inlining procedure: k11992
45082 o|substituted constant variable: a12041
45083 o|inlining procedure: k12036
45084 o|substituted constant variable: a12051
45085 o|inlining procedure: k12036
45086 o|inlining procedure: k12080
45087 o|inlining procedure: k12080
45088 o|substituted constant variable: a12103
45089 o|substituted constant variable: a12106
45090 o|inlining procedure: k12115
45091 o|substituted constant variable: a12123
45092 o|substituted constant variable: a12126
45093 o|inlining procedure: k12115
45094 o|substituted constant variable: a12140
45095 o|substituted constant variable: a12143
45096 o|inlining procedure: k12154
45097 o|inlining procedure: k12154
45098 o|contracted procedure: "(irregex-core.scm:1030) chicken.irregex#string-split-char"
45099 o|inlining procedure: k8980
45100 o|inlining procedure: k8980
45101 o|substituted constant variable: a9004
45102 o|substituted constant variable: a9007
45103 o|substituted constant variable: a9017
45104 o|substituted constant variable: a12201
45105 o|substituted constant variable: a12204
45106 o|inlining procedure: k12212
45107 o|inlining procedure: k12212
45108 o|substituted constant variable: a12218
45109 o|substituted constant variable: a12225
45110 o|substituted constant variable: a12232
45111 o|inlining procedure: k12233
45112 o|substituted constant variable: a12244
45113 o|inlining procedure: k12252
45114 o|substituted constant variable: a12263
45115 o|substituted constant variable: a12266
45116 o|inlining procedure: k12252
45117 o|substituted constant variable: a12286
45118 o|substituted constant variable: a12289
45119 o|inlining procedure: k12302
45120 o|substituted constant variable: a12313
45121 o|substituted constant variable: a12316
45122 o|inlining procedure: k12302
45123 o|substituted constant variable: a12336
45124 o|substituted constant variable: a12339
45125 o|inlining procedure: k12352
45126 o|substituted constant variable: a12363
45127 o|substituted constant variable: a12366
45128 o|inlining procedure: k12352
45129 o|substituted constant variable: a12394
45130 o|substituted constant variable: a12397
45131 o|inlining procedure: k12418
45132 o|substituted constant variable: a12429
45133 o|substituted constant variable: a12432
45134 o|inlining procedure: k12418
45135 o|substituted constant variable: a12456
45136 o|substituted constant variable: a12459
45137 o|inlining procedure: k12468
45138 o|substituted constant variable: a12479
45139 o|substituted constant variable: a12482
45140 o|inlining procedure: k12468
45141 o|substituted constant variable: a12502
45142 o|substituted constant variable: a12505
45143 o|inlining procedure: k12522
45144 o|substituted constant variable: a12533
45145 o|substituted constant variable: a12536
45146 o|inlining procedure: k12522
45147 o|substituted constant variable: a12556
45148 o|substituted constant variable: a12559
45149 o|inlining procedure: k12568
45150 o|substituted constant variable: a12579
45151 o|substituted constant variable: a12582
45152 o|inlining procedure: k12568
45153 o|substituted constant variable: a12602
45154 o|substituted constant variable: a12605
45155 o|inlining procedure: k12614
45156 o|substituted constant variable: a12625
45157 o|substituted constant variable: a12628
45158 o|inlining procedure: k12614
45159 o|substituted constant variable: a12674
45160 o|inlining procedure: k12675
45161 o|inlining procedure: k12705
45162 o|inlining procedure: k12705
45163 o|substituted constant variable: chicken.irregex#~case-insensitive?
45164 o|substituted constant variable: a12749
45165 o|substituted constant variable: a12752
45166 o|contracted procedure: "(irregex-core.scm:1099) chicken.irregex#char-mirror"
45167 o|inlining procedure: k13262
45168 o|inlining procedure: k13262
45169 o|inlining procedure: k13274
45170 o|inlining procedure: k13274
45171 o|substituted constant variable: a13287
45172 o|substituted constant variable: a13289
45173 o|substituted constant variable: a13291
45174 o|substituted constant variable: a13293
45175 o|substituted constant variable: a12755
45176 o|substituted constant variable: a12758
45177 o|inlining procedure: k12675
45178 o|substituted constant variable: a12773
45179 o|inlining procedure: k12777
45180 o|inlining procedure: k12777
45181 o|substituted constant variable: a12801
45182 o|inlining procedure: k12796
45183 o|substituted constant variable: a12808
45184 o|inlining procedure: k12796
45185 o|substituted constant variable: a12824
45186 o|substituted constant variable: a12827
45187 o|substituted constant variable: a12845
45188 o|substituted constant variable: a12846
45189 o|substituted constant variable: a12853
45190 o|substituted constant variable: a12859
45191 o|substituted constant variable: a12860
45192 o|inlining procedure: k12865
45193 o|substituted constant variable: a12876
45194 o|inlining procedure: k12865
45195 o|substituted constant variable: a12930
45196 o|substituted constant variable: chicken.irregex#~case-insensitive?
45197 o|substituted constant variable: a12946
45198 o|contracted procedure: "(irregex-core.scm:1140) chicken.irregex#string-scan-pred"
45199 o|inlining procedure: k8932
45200 o|inlining procedure: k8932
45201 o|substituted constant variable: a8949
45202 o|inlining procedure: k12947
45203 o|substituted constant variable: a12964
45204 o|substituted constant variable: a12967
45205 o|inlining procedure: k12947
45206 o|substituted constant variable: a12988
45207 o|substituted constant variable: a12991
45208 o|substituted constant variable: a12997
45209 o|substituted constant variable: a12999
45210 o|substituted constant variable: a13001
45211 o|substituted constant variable: a13003
45212 o|substituted constant variable: a13005
45213 o|substituted constant variable: a13007
45214 o|substituted constant variable: a13009
45215 o|substituted constant variable: a13011
45216 o|substituted constant variable: a13013
45217 o|substituted constant variable: a13015
45218 o|substituted constant variable: a13017
45219 o|substituted constant variable: a13019
45220 o|substituted constant variable: a13021
45221 o|substituted constant variable: a13023
45222 o|substituted constant variable: a13025
45223 o|substituted constant variable: a13027
45224 o|substituted constant variable: a13029
45225 o|substituted constant variable: a13031
45226 o|substituted constant variable: a13033
45227 o|substituted constant variable: a13036
45228 o|inlining procedure: k12233
45229 o|substituted constant variable: a13048
45230 o|substituted constant variable: a13051
45231 o|inlining procedure: k13060
45232 o|substituted constant variable: a13074
45233 o|substituted constant variable: a13077
45234 o|substituted constant variable: chicken.irregex#~multi-line?
45235 o|inlining procedure: k13060
45236 o|substituted constant variable: a13103
45237 o|substituted constant variable: a13106
45238 o|substituted constant variable: chicken.irregex#~multi-line?
45239 o|inlining procedure: k13118
45240 o|substituted constant variable: a13135
45241 o|substituted constant variable: a13138
45242 o|substituted constant variable: a13148
45243 o|substituted constant variable: chicken.irregex#~ignore-space?
45244 o|inlining procedure: k13118
45245 o|inlining procedure: k13155
45246 o|substituted constant variable: a13183
45247 o|substituted constant variable: a13186
45248 o|inlining procedure: k13155
45249 o|substituted constant variable: a13192
45250 o|substituted constant variable: chicken.irregex#~ignore-space?
45251 o|substituted constant variable: a13198
45252 o|substituted constant variable: a13200
45253 o|substituted constant variable: a13202
45254 o|substituted constant variable: a13204
45255 o|substituted constant variable: a13206
45256 o|substituted constant variable: a13208
45257 o|substituted constant variable: a13210
45258 o|substituted constant variable: a13212
45259 o|substituted constant variable: a13214
45260 o|substituted constant variable: a13216
45261 o|substituted constant variable: a13218
45262 o|substituted constant variable: a13223
45263 o|substituted constant variable: a13225
45264 o|substituted constant variable: a13227
45265 o|substituted constant variable: a13229
45266 o|inlining procedure: k13247
45267 o|inlining procedure: k13247
45268 o|inlining procedure: k13297
45269 o|inlining procedure: k13297
45270 o|inlining procedure: k13315
45271 o|inlining procedure: k13315
45272 o|substituted constant variable: a13345
45273 o|substituted constant variable: a13348
45274 o|contracted procedure: "(irregex-core.scm:1202) chicken.irregex#string-scan-char-escape"
45275 o|inlining procedure: k8875
45276 o|inlining procedure: k8875
45277 o|inlining procedure: k8887
45278 o|substituted constant variable: a8898
45279 o|inlining procedure: k8887
45280 o|substituted constant variable: a8904
45281 o|substituted constant variable: a8906
45282 o|inlining procedure: k13349
45283 o|inlining procedure: k13349
45284 o|substituted constant variable: a13376
45285 o|substituted constant variable: a13382
45286 o|substituted constant variable: a13385
45287 o|substituted constant variable: a13386
45288 o|substituted constant variable: a14013
45289 o|substituted constant variable: table1944
45290 o|inlining procedure: k14041
45291 o|inlining procedure: k14041
45292 o|inlining procedure: k14084
45293 o|inlining procedure: k14084
45294 o|substituted constant variable: a14210
45295 o|substituted constant variable: a14212
45296 o|substituted constant variable: a14214
45297 o|substituted constant variable: a14216
45298 o|inlining procedure: k14264
45299 o|inlining procedure: k14264
45300 o|inlining procedure: k14276
45301 o|inlining procedure: k14276
45302 o|substituted constant variable: a14292
45303 o|substituted constant variable: a14294
45304 o|substituted constant variable: a14296
45305 o|substituted constant variable: a14298
45306 o|inlining procedure: k14343
45307 o|inlining procedure: k14343
45308 o|inlining procedure: k14377
45309 o|inlining procedure: k14377
45310 o|substituted constant variable: a14467
45311 o|substituted constant variable: a14469
45312 o|substituted constant variable: a14471
45313 o|substituted constant variable: a14473
45314 o|inlining procedure: k14616
45315 o|inlining procedure: k14616
45316 o|inlining procedure: k14682
45317 o|contracted procedure: "(irregex-core.scm:1446) g20832092"
45318 o|inlining procedure: k14682
45319 o|inlining procedure: k14718
45320 o|inlining procedure: k14718
45321 o|inlining procedure: k14839
45322 o|inlining procedure: k14839
45323 o|inlining procedure: k14978
45324 o|inlining procedure: k14978
45325 o|inlining procedure: k15481
45326 o|inlining procedure: k15499
45327 o|inlining procedure: k15499
45328 o|inlining procedure: k15481
45329 o|contracted procedure: "(irregex-core.scm:1534) chicken.irregex#unicode-range->utf8-pattern"
45330 o|inlining procedure: k14483
45331 o|contracted procedure: "(irregex-core.scm:1419) chicken.irregex#unicode-range-climb-digits"
45332 o|inlining procedure: k15084
45333 o|contracted procedure: "(irregex-core.scm:1501) g22432252"
45334 o|inlining procedure: k15084
45335 o|contracted procedure: "(irregex-core.scm:1500) chicken.irregex#utf8-highest-digit-of-length"
45336 o|inlining procedure: k14302
45337 o|inlining procedure: k14302
45338 o|inlining procedure: k14314
45339 o|inlining procedure: k14314
45340 o|substituted constant variable: a14330
45341 o|substituted constant variable: a14332
45342 o|substituted constant variable: a14334
45343 o|substituted constant variable: a14336
45344 o|inlining procedure: k15187
45345 o|contracted procedure: "(irregex-core.scm:1512) g22832292"
45346 o|inlining procedure: k15187
45347 o|inlining procedure: k15255
45348 o|inlining procedure: k15255
45349 o|substituted constant variable: a15293
45350 o|inlining procedure: k15325
45351 o|contracted procedure: "(irregex-core.scm:1492) g21902199"
45352 o|inlining procedure: k15325
45353 o|inlining procedure: k15365
45354 o|inlining procedure: k15365
45355 o|inlining procedure: k14483
45356 o|inlining procedure: k14510
45357 o|inlining procedure: k14528
45358 o|inlining procedure: k14528
45359 o|inlining procedure: k14510
45360 o|contracted procedure: "(irregex-core.scm:1433) chicken.irregex#unicode-range-middle"
45361 o|inlining procedure: k15416
45362 o|contracted procedure: "(irregex-core.scm:1521) g23212330"
45363 o|inlining procedure: k15416
45364 o|inlining procedure: k16038
45365 o|inlining procedure: k16038
45366 o|inlining procedure: k16050
45367 o|inlining procedure: k16050
45368 o|inlining procedure: k16068
45369 o|inlining procedure: k16068
45370 o|inlining procedure: k16086
45371 o|inlining procedure: k16086
45372 o|inlining procedure: k16151
45373 o|inlining procedure: k16151
45374 o|inlining procedure: k16212
45375 o|inlining procedure: k16212
45376 o|contracted procedure: "(irregex-core.scm:1639) chicken.irregex#sre->procedure"
45377 o|inlining procedure: "(irregex-core.scm:3135) chicken.irregex#%irregex-match-fail-set!"
45378 o|inlining procedure: k23454
45379 o|consed rest parameter at call site: "(irregex-core.scm:3143) chicken.irregex#sre->cset" 2
45380 o|substituted constant variable: chicken.irregex#~case-insensitive?
45381 o|inlining procedure: k23480
45382 o|consed rest parameter at call site: "(irregex-core.scm:3148) chicken.irregex#sre->cset" 2
45383 o|substituted constant variable: chicken.irregex#~case-insensitive?
45384 o|inlining procedure: k23480
45385 o|inlining procedure: k23509
45386 o|inlining procedure: k23509
45387 o|substituted constant variable: a23575
45388 o|substituted constant variable: a23577
45389 o|inlining procedure: k23580
45390 o|substituted constant variable: chicken.irregex#~case-insensitive?
45391 o|inlining procedure: k23580
45392 o|substituted constant variable: chicken.irregex#~case-insensitive?
45393 o|inlining procedure: k23618
45394 o|substituted constant variable: chicken.irregex#~utf8?
45395 o|inlining procedure: k23618
45396 o|substituted constant variable: chicken.irregex#~utf8?
45397 o|inlining procedure: k23656
45398 o|inlining procedure: k23674
45399 o|inlining procedure: k23674
45400 o|substituted constant variable: a23718
45401 o|substituted constant variable: a23720
45402 o|inlining procedure: k23656
45403 o|inlining procedure: k23749
45404 o|inlining procedure: k23749
45405 o|inlining procedure: k23781
45406 o|inlining procedure: k23781
45407 o|inlining procedure: k23820
45408 o|inlining procedure: k23820
45409 o|inlining procedure: k23880
45410 o|inlining procedure: k23880
45411 o|inlining procedure: k23917
45412 o|inlining procedure: k23917
45413 o|inlining procedure: k23976
45414 o|inlining procedure: k24012
45415 o|inlining procedure: k24012
45416 o|inlining procedure: k24030
45417 o|inlining procedure: k24030
45418 o|inlining procedure: k24053
45419 o|inlining procedure: k24053
45420 o|inlining procedure: k24070
45421 o|inlining procedure: k24070
45422 o|inlining procedure: k24081
45423 o|inlining procedure: k24081
45424 o|inlining procedure: k24089
45425 o|inlining procedure: k24089
45426 o|inlining procedure: k24104
45427 o|inlining procedure: k24104
45428 o|inlining procedure: k23976
45429 o|inlining procedure: k24134
45430 o|inlining procedure: k24164
45431 o|inlining procedure: k24164
45432 o|inlining procedure: k24186
45433 o|inlining procedure: k24186
45434 o|inlining procedure: k24134
45435 o|inlining procedure: k24220
45436 o|inlining procedure: k24220
45437 o|inlining procedure: k24243
45438 o|inlining procedure: k24243
45439 o|inlining procedure: k24251
45440 o|inlining procedure: k24251
45441 o|inlining procedure: k24266
45442 o|inlining procedure: k24266
45443 o|inlining procedure: k24290
45444 o|inlining procedure: k24290
45445 o|inlining procedure: k24348
45446 o|inlining procedure: k24348
45447 o|inlining procedure: k24376
45448 o|inlining procedure: k24376
45449 o|inlining procedure: k24400
45450 o|inlining procedure: k24411
45451 o|inlining procedure: k24411
45452 o|inlining procedure: k24400
45453 o|inlining procedure: k24465
45454 o|inlining procedure: k24465
45455 o|inlining procedure: "(irregex-core.scm:3354) chicken.irregex#chunker-get-end"
45456 o|inlining procedure: "(irregex-core.scm:3352) chicken.irregex#chunker-get-str"
45457 o|contracted procedure: "(irregex-core.scm:3351) chicken.irregex#wrap-end-chunker"
45458 o|inlining procedure: k8738
45459 o|inlining procedure: "(irregex-core.scm:400) chicken.irregex#chunker-get-next"
45460 o|inlining procedure: k8738
45461 o|inlining procedure: k8765
45462 o|inlining procedure: k8765
45463 o|inlining procedure: "(irregex-core.scm:412) chicken.irregex#chunker-get-end"
45464 o|inlining procedure: k8780
45465 o|inlining procedure: "(irregex-core.scm:410) chicken.irregex#chunker-get-next"
45466 o|inlining procedure: k8780
45467 o|inlining procedure: "(irregex-core.scm:409) chicken.irregex#chunker-get-next"
45468 o|inlining procedure: "(irregex-core.scm:414) chicken.irregex#chunker-get-subchunk"
45469 o|inlining procedure: "(irregex-core.scm:413) chicken.irregex#chunker-get-substring"
45470 o|inlining procedure: "(irregex-core.scm:402) chicken.irregex#chunker-get-start"
45471 o|inlining procedure: "(irregex-core.scm:401) chicken.irregex#chunker-get-str"
45472 o|inlining procedure: k24521
45473 o|inlining procedure: k24535
45474 o|inlining procedure: k24535
45475 o|inlining procedure: k24521
45476 o|inlining procedure: k24571
45477 o|inlining procedure: k24585
45478 o|inlining procedure: k24585
45479 o|contracted procedure: "(irregex-core.scm:3392) g48084809"
45480 o|inlining procedure: k24620
45481 o|inlining procedure: k24620
45482 o|inlining procedure: k24571
45483 o|inlining procedure: k24709
45484 o|inlining procedure: k24729
45485 o|inlining procedure: k24729
45486 o|inlining procedure: k24748
45487 o|inlining procedure: k24748
45488 o|inlining procedure: k24798
45489 o|inlining procedure: "(irregex-core.scm:3437) chicken.irregex#chunker-get-end"
45490 o|inlining procedure: "(irregex-core.scm:3436) chicken.irregex#chunker-get-start"
45491 o|inlining procedure: "(irregex-core.scm:3435) chicken.irregex#chunker-get-str"
45492 o|inlining procedure: k24798
45493 o|inlining procedure: "(irregex-core.scm:3432) chicken.irregex#chunker-get-next"
45494 o|inlining procedure: k24866
45495 o|inlining procedure: k24866
45496 o|substituted constant variable: chicken.irregex#~case-insensitive?
45497 o|inlining procedure: k24882
45498 o|inlining procedure: k24882
45499 o|inlining procedure: k24709
45500 o|inlining procedure: k24926
45501 o|contracted procedure: "(irregex-core.scm:3466) g49214922"
45502 o|contracted procedure: "(irregex-core.scm:3465) g49174918"
45503 o|contracted procedure: "(irregex-core.scm:3452) g48874888"
45504 o|inlining procedure: k24926
45505 o|substituted constant variable: a25169
45506 o|substituted constant variable: a25171
45507 o|substituted constant variable: a25176
45508 o|substituted constant variable: a25178
45509 o|substituted constant variable: a25180
45510 o|substituted constant variable: a25185
45511 o|substituted constant variable: a25187
45512 o|substituted constant variable: a25189
45513 o|substituted constant variable: a25191
45514 o|substituted constant variable: a25196
45515 o|substituted constant variable: a25198
45516 o|substituted constant variable: a25200
45517 o|substituted constant variable: a25202
45518 o|substituted constant variable: a25204
45519 o|substituted constant variable: a25206
45520 o|substituted constant variable: a25208
45521 o|substituted constant variable: a25210
45522 o|substituted constant variable: a25212
45523 o|substituted constant variable: a25214
45524 o|substituted constant variable: a25216
45525 o|substituted constant variable: a25218
45526 o|substituted constant variable: a25220
45527 o|substituted constant variable: a25222
45528 o|substituted constant variable: a25224
45529 o|substituted constant variable: a25226
45530 o|substituted constant variable: a25231
45531 o|substituted constant variable: a25233
45532 o|substituted constant variable: a25235
45533 o|substituted constant variable: a25237
45534 o|substituted constant variable: a25239
45535 o|substituted constant variable: a25241
45536 o|substituted constant variable: a25243
45537 o|inlining procedure: k25247
45538 o|inlining procedure: k25247
45539 o|substituted constant variable: a25260
45540 o|substituted constant variable: a25262
45541 o|substituted constant variable: a25264
45542 o|substituted constant variable: a25266
45543 o|inlining procedure: k23454
45544 o|inlining procedure: k25275
45545 o|inlining procedure: k25283
45546 o|inlining procedure: k25283
45547 o|inlining procedure: "(irregex-core.scm:3490) chicken.irregex#chunker-get-end"
45548 o|inlining procedure: "(irregex-core.scm:3489) chicken.irregex#chunker-get-start"
45549 o|inlining procedure: "(irregex-core.scm:3488) chicken.irregex#chunker-get-str"
45550 o|inlining procedure: "(irregex-core.scm:3486) chicken.irregex#chunker-get-next"
45551 o|inlining procedure: k25275
45552 o|inlining procedure: k25341
45553 o|substituted constant variable: a25358
45554 o|substituted constant variable: a25366
45555 o|inlining procedure: k25341
45556 o|inlining procedure: k25398
45557 o|substituted constant variable: a25409
45558 o|inlining procedure: k25398
45559 o|substituted constant variable: a25417
45560 o|inlining procedure: "(irregex-core.scm:3503) chicken.irregex#chunker-get-end"
45561 o|inlining procedure: "(irregex-core.scm:3502) chicken.irregex#chunker-get-start"
45562 o|inlining procedure: "(irregex-core.scm:3501) chicken.irregex#chunker-get-str"
45563 o|inlining procedure: "(irregex-core.scm:3499) chicken.irregex#chunker-get-next"
45564 o|inlining procedure: k25425
45565 o|inlining procedure: k25433
45566 o|inlining procedure: k25433
45567 o|inlining procedure: k25425
45568 o|inlining procedure: k25463
45569 o|inlining procedure: k25463
45570 o|substituted constant variable: a25484
45571 o|inlining procedure: "(irregex-core.scm:3515) chicken.irregex#chunker-get-start"
45572 o|inlining procedure: k25506
45573 o|inlining procedure: k25514
45574 o|inlining procedure: k25514
45575 o|inlining procedure: k25529
45576 o|inlining procedure: k25529
45577 o|inlining procedure: "(irregex-core.scm:3533) chicken.irregex#chunker-get-start"
45578 o|inlining procedure: "(irregex-core.scm:3532) chicken.irregex#chunker-get-str"
45579 o|inlining procedure: "(irregex-core.scm:3529) chicken.irregex#chunker-get-next"
45580 o|inlining procedure: k25596
45581 o|inlining procedure: k25596
45582 o|inlining procedure: "(irregex-core.scm:3523) chicken.irregex#chunker-get-start"
45583 o|inlining procedure: k25506
45584 o|inlining procedure: k25621
45585 o|inlining procedure: k25621
45586 o|inlining procedure: "(irregex-core.scm:3538) chicken.irregex#chunker-get-next"
45587 o|inlining procedure: k25646
45588 o|inlining procedure: k25654
45589 o|inlining procedure: k25654
45590 o|substituted constant variable: a25672
45591 o|inlining procedure: k25683
45592 o|inlining procedure: k25683
45593 o|substituted constant variable: a25692
45594 o|inlining procedure: "(irregex-core.scm:3550) chicken.irregex#chunker-get-start"
45595 o|inlining procedure: "(irregex-core.scm:3549) chicken.irregex#chunker-get-str"
45596 o|inlining procedure: "(irregex-core.scm:3545) chicken.irregex#chunker-get-next"
45597 o|inlining procedure: k25646
45598 o|inlining procedure: k25719
45599 o|inlining procedure: k25719
45600 o|inlining procedure: k25734
45601 o|inlining procedure: k25734
45602 o|inlining procedure: "(irregex-core.scm:3559) chicken.irregex#chunker-get-start"
45603 o|inlining procedure: k25790
45604 o|inlining procedure: k25790
45605 o|inlining procedure: k25800
45606 o|inlining procedure: k25814
45607 o|inlining procedure: k25814
45608 o|inlining procedure: k25826
45609 o|inlining procedure: k25826
45610 o|inlining procedure: "(irregex-core.scm:3570) chicken.irregex#chunker-get-start"
45611 o|inlining procedure: k25800
45612 o|inlining procedure: k25883
45613 o|inlining procedure: k25883
45614 o|substituted constant variable: a25897
45615 o|substituted constant variable: a25899
45616 o|substituted constant variable: a25901
45617 o|substituted constant variable: a25903
45618 o|substituted constant variable: a25905
45619 o|substituted constant variable: a25907
45620 o|substituted constant variable: a25909
45621 o|substituted constant variable: a25911
45622 o|substituted constant variable: a25913
45623 o|substituted constant variable: a25915
45624 o|inlining procedure: k25916
45625 o|inlining procedure: k25930
45626 o|inlining procedure: k25949
45627 o|inlining procedure: "(irregex-core.scm:3597) chicken.irregex#chunker-get-next"
45628 o|inlining procedure: k25986
45629 o|substituted constant variable: a25997
45630 o|inlining procedure: k25986
45631 o|inlining procedure: "(irregex-core.scm:3595) chicken.irregex#chunker-get-end"
45632 o|inlining procedure: "(irregex-core.scm:3594) chicken.irregex#chunker-get-start"
45633 o|inlining procedure: "(irregex-core.scm:3593) chicken.irregex#chunker-get-str"
45634 o|inlining procedure: k25949
45635 o|inlining procedure: "(irregex-core.scm:3591) chicken.irregex#chunker-get-next"
45636 o|inlining procedure: k25930
45637 o|substituted constant variable: a26019
45638 o|inlining procedure: k26029
45639 o|inlining procedure: k26048
45640 o|inlining procedure: "(irregex-core.scm:3615) chicken.irregex#chunker-get-next"
45641 o|inlining procedure: k26085
45642 o|substituted constant variable: a26096
45643 o|inlining procedure: k26085
45644 o|inlining procedure: "(irregex-core.scm:3613) chicken.irregex#chunker-get-end"
45645 o|inlining procedure: "(irregex-core.scm:3612) chicken.irregex#chunker-get-start"
45646 o|inlining procedure: "(irregex-core.scm:3611) chicken.irregex#chunker-get-str"
45647 o|inlining procedure: k26048
45648 o|inlining procedure: "(irregex-core.scm:3609) chicken.irregex#chunker-get-next"
45649 o|inlining procedure: k26029
45650 o|substituted constant variable: a26118
45651 o|substituted constant variable: chicken.irregex#~case-insensitive?
45652 o|inlining procedure: k25916
45653 o|substituted constant variable: chicken.irregex#~none
45654 o|inlining procedure: k16229
45655 o|substituted constant variable: chicken.irregex#~consumer?
45656 o|propagated global variable: r1623031862 chicken.irregex#~consumer?
45657 o|inlining procedure: k16229
45658 o|substituted constant variable: chicken.irregex#~none
45659 o|inlining procedure: k16236
45660 o|substituted constant variable: chicken.irregex#~searcher?
45661 o|propagated global variable: r1623731866 chicken.irregex#~searcher?
45662 o|substituted constant variable: chicken.irregex#~none
45663 o|inlining procedure: k16236
45664 o|substituted constant variable: chicken.irregex#~none
45665 o|contracted procedure: "(irregex-core.scm:1631) chicken.irregex#sre-length-ranges"
45666 o|inlining procedure: k17107
45667 o|inlining procedure: k17107
45668 o|inlining procedure: k17113
45669 o|inlining procedure: k17129
45670 o|inlining procedure: k17129
45671 o|inlining procedure: k17158
45672 o|inlining procedure: k17175
45673 o|inlining procedure: k17189
45674 o|inlining procedure: k17189
45675 o|inlining procedure: k17175
45676 o|inlining procedure: k17224
45677 o|inlining procedure: k17224
45678 o|inlining procedure: k17158
45679 o|inlining procedure: k17253
45680 o|inlining procedure: k17267
45681 o|inlining procedure: k17267
45682 o|inlining procedure: k17277
45683 o|inlining procedure: k17277
45684 o|inlining procedure: k17253
45685 o|inlining procedure: k17306
45686 o|inlining procedure: k17306
45687 o|inlining procedure: k17324
45688 o|inlining procedure: k17394
45689 o|inlining procedure: k17400
45690 o|inlining procedure: k17400
45691 o|inlining procedure: k17394
45692 o|inlining procedure: k17427
45693 o|inlining procedure: k17427
45694 o|inlining procedure: k17324
45695 o|inlining procedure: k17482
45696 o|inlining procedure: k17516
45697 o|inlining procedure: k17516
45698 o|inlining procedure: k17482
45699 o|inlining procedure: k17540
45700 o|inlining procedure: k17540
45701 o|inlining procedure: k17575
45702 o|inlining procedure: k17575
45703 o|inlining procedure: k17618
45704 o|inlining procedure: k17618
45705 o|inlining procedure: k17637
45706 o|inlining procedure: k17637
45707 o|inlining procedure: k17670
45708 o|inlining procedure: k17670
45709 o|inlining procedure: k17706
45710 o|inlining procedure: k17706
45711 o|inlining procedure: k17764
45712 o|inlining procedure: k17764
45713 o|inlining procedure: k17779
45714 o|inlining procedure: k17779
45715 o|inlining procedure: k17803
45716 o|inlining procedure: k17803
45717 o|inlining procedure: k17851
45718 o|inlining procedure: k17851
45719 o|inlining procedure: k17862
45720 o|substituted constant variable: a17899
45721 o|inlining procedure: k17891
45722 o|inlining procedure: k17891
45723 o|inlining procedure: k17862
45724 o|inlining procedure: k17917
45725 o|inlining procedure: k17917
45726 o|inlining procedure: k17948
45727 o|inlining procedure: k17948
45728 o|substituted constant variable: a17961
45729 o|substituted constant variable: a17963
45730 o|substituted constant variable: a17965
45731 o|substituted constant variable: a17967
45732 o|inlining procedure: k17971
45733 o|inlining procedure: k17971
45734 o|substituted constant variable: a17984
45735 o|substituted constant variable: a17986
45736 o|substituted constant variable: a17988
45737 o|substituted constant variable: a17990
45738 o|substituted constant variable: a17995
45739 o|substituted constant variable: a17997
45740 o|substituted constant variable: a17999
45741 o|substituted constant variable: a18004
45742 o|substituted constant variable: a18006
45743 o|substituted constant variable: a18011
45744 o|substituted constant variable: a18013
45745 o|substituted constant variable: a18018
45746 o|substituted constant variable: a18020
45747 o|inlining procedure: k18024
45748 o|inlining procedure: k18024
45749 o|substituted constant variable: a18037
45750 o|substituted constant variable: a18039
45751 o|substituted constant variable: a18041
45752 o|substituted constant variable: a18043
45753 o|substituted constant variable: a18045
45754 o|substituted constant variable: a18047
45755 o|substituted constant variable: a18049
45756 o|inlining procedure: k18053
45757 o|inlining procedure: k18053
45758 o|inlining procedure: k18065
45759 o|inlining procedure: k18065
45760 o|substituted constant variable: a18072
45761 o|substituted constant variable: a18074
45762 o|substituted constant variable: a18076
45763 o|substituted constant variable: a18078
45764 o|substituted constant variable: a18080
45765 o|substituted constant variable: a18082
45766 o|inlining procedure: k18086
45767 o|inlining procedure: k18086
45768 o|substituted constant variable: a18099
45769 o|substituted constant variable: a18101
45770 o|substituted constant variable: a18103
45771 o|substituted constant variable: a18105
45772 o|inlining procedure: k17113
45773 o|inlining procedure: k18117
45774 o|inlining procedure: k18117
45775 o|substituted constant variable: a18135
45776 o|substituted constant variable: a18143
45777 o|inlining procedure: k18139
45778 o|inlining procedure: k18139
45779 o|inlining procedure: k18157
45780 o|inlining procedure: k18157
45781 o|consed rest parameter at call site: "(irregex-core.scm:1627) chicken.irregex#nfa->dfa" 2
45782 o|substituted constant variable: a16258
45783 o|inlining procedure: k16260
45784 o|inlining procedure: k16260
45785 o|consed rest parameter at call site: "(irregex-core.scm:1623) chicken.irregex#nfa->dfa" 2
45786 o|substituted constant variable: a16293
45787 o|substituted constant variable: a16298
45788 o|inlining procedure: k16295
45789 o|inlining procedure: k16295
45790 o|substituted constant variable: chicken.irregex#*allow-utf8-mode?*
45791 o|contracted procedure: "(irregex-core.scm:1610) chicken.irregex#sre-adjust-utf8"
45792 o|inlining procedure: k15599
45793 o|inlining procedure: k15621
45794 o|inlining procedure: k15621
45795 o|inlining procedure: k15666
45796 o|inlining procedure: k15666
45797 o|inlining procedure: k15697
45798 o|inlining procedure: k15727
45799 o|inlining procedure: k15727
45800 o|inlining procedure: k15697
45801 o|inlining procedure: k15767
45802 o|inlining procedure: k15767
45803 o|inlining procedure: k15782
45804 o|inlining procedure: k15782
45805 o|consed rest parameter at call site: "(irregex-core.scm:1555) chicken.irregex#sre->cset" 2
45806 o|inlining procedure: k15799
45807 o|inlining procedure: k15814
45808 o|inlining procedure: k15814
45809 o|inlining procedure: k15837
45810 o|inlining procedure: k15837
45811 o|substituted constant variable: a15869
45812 o|substituted constant variable: a15871
45813 o|inlining procedure: k15799
45814 o|inlining procedure: k15893
45815 o|inlining procedure: k15893
45816 o|substituted constant variable: a15925
45817 o|inlining procedure: k15929
45818 o|inlining procedure: k15929
45819 o|substituted constant variable: a15942
45820 o|substituted constant variable: a15944
45821 o|substituted constant variable: a15946
45822 o|substituted constant variable: a15948
45823 o|substituted constant variable: a15950
45824 o|substituted constant variable: a15952
45825 o|substituted constant variable: a15954
45826 o|substituted constant variable: a15956
45827 o|inlining procedure: k15599
45828 o|inlining procedure: k15963
45829 o|inlining procedure: k15963
45830 o|inlining procedure: k15991
45831 o|inlining procedure: k15991
45832 o|inlining procedure: k16022
45833 o|inlining procedure: k16022
45834 o|substituted constant variable: a16032
45835 o|substituted constant variable: a16034
45836 o|substituted constant variable: chicken.irregex#~case-insensitive?
45837 o|substituted constant variable: chicken.irregex#~utf8?
45838 o|inlining procedure: k16309
45839 o|inlining procedure: k16325
45840 o|inlining procedure: k16325
45841 o|inlining procedure: k16359
45842 o|inlining procedure: k16359
45843 o|inlining procedure: k16376
45844 o|inlining procedure: k16376
45845 o|inlining procedure: k16388
45846 o|inlining procedure: k16388
45847 o|inlining procedure: k16400
45848 o|inlining procedure: k16400
45849 o|substituted constant variable: a16413
45850 o|substituted constant variable: a16415
45851 o|substituted constant variable: a16417
45852 o|substituted constant variable: a16419
45853 o|substituted constant variable: a16421
45854 o|substituted constant variable: a16423
45855 o|substituted constant variable: a16425
45856 o|substituted constant variable: a16427
45857 o|substituted constant variable: a16429
45858 o|substituted constant variable: a16431
45859 o|inlining procedure: k16435
45860 o|inlining procedure: k16435
45861 o|inlining procedure: k16447
45862 o|inlining procedure: k16447
45863 o|substituted constant variable: a16460
45864 o|substituted constant variable: a16462
45865 o|substituted constant variable: a16464
45866 o|substituted constant variable: a16466
45867 o|substituted constant variable: a16468
45868 o|substituted constant variable: a16470
45869 o|inlining procedure: k16309
45870 o|substituted constant variable: a16472
45871 o|inlining procedure: k16479
45872 o|inlining procedure: k16479
45873 o|inlining procedure: k16489
45874 o|inlining procedure: k16504
45875 o|inlining procedure: k16504
45876 o|inlining procedure: k16489
45877 o|substituted constant variable: a16534
45878 o|inlining procedure: k16538
45879 o|inlining procedure: k16538
45880 o|inlining procedure: k16550
45881 o|inlining procedure: k16550
45882 o|substituted constant variable: a16563
45883 o|substituted constant variable: a16565
45884 o|substituted constant variable: a16567
45885 o|substituted constant variable: a16569
45886 o|substituted constant variable: a16571
45887 o|substituted constant variable: a16573
45888 o|substituted constant variable: a16585
45889 o|inlining procedure: k16577
45890 o|substituted constant variable: a16594
45891 o|inlining procedure: k16589
45892 o|inlining procedure: k16601
45893 o|inlining procedure: k16601
45894 o|inlining procedure: k16589
45895 o|inlining procedure: k16577
45896 o|inlining procedure: k16622
45897 o|inlining procedure: k16638
45898 o|inlining procedure: k16638
45899 o|inlining procedure: k16653
45900 o|inlining procedure: k16653
45901 o|substituted constant variable: a16665
45902 o|inlining procedure: k16669
45903 o|inlining procedure: k16669
45904 o|inlining procedure: k16681
45905 o|inlining procedure: k16681
45906 o|substituted constant variable: a16694
45907 o|substituted constant variable: a16696
45908 o|substituted constant variable: a16698
45909 o|substituted constant variable: a16700
45910 o|substituted constant variable: a16702
45911 o|substituted constant variable: a16704
45912 o|inlining procedure: k16622
45913 o|inlining procedure: k16714
45914 o|inlining procedure: k16714
45915 o|inlining procedure: k16724
45916 o|inlining procedure: k16724
45917 o|inlining procedure: k16751
45918 o|inlining procedure: k16751
45919 o|inlining procedure: k16766
45920 o|inlining procedure: k16766
45921 o|substituted constant variable: a16778
45922 o|inlining procedure: k16782
45923 o|inlining procedure: k16782
45924 o|inlining procedure: k16794
45925 o|inlining procedure: k16794
45926 o|substituted constant variable: a16807
45927 o|substituted constant variable: a16809
45928 o|substituted constant variable: a16811
45929 o|substituted constant variable: a16813
45930 o|substituted constant variable: a16815
45931 o|substituted constant variable: a16817
45932 o|substituted constant variable: a16822
45933 o|substituted constant variable: a16824
45934 o|inlining procedure: k16831
45935 o|inlining procedure: k16831
45936 o|inlining procedure: k16841
45937 o|inlining procedure: k16841
45938 o|inlining procedure: k16868
45939 o|inlining procedure: k16868
45940 o|inlining procedure: k16883
45941 o|inlining procedure: k16883
45942 o|substituted constant variable: a16895
45943 o|inlining procedure: k16899
45944 o|inlining procedure: k16899
45945 o|inlining procedure: k16911
45946 o|inlining procedure: k16911
45947 o|substituted constant variable: a16924
45948 o|substituted constant variable: a16926
45949 o|substituted constant variable: a16928
45950 o|substituted constant variable: a16930
45951 o|substituted constant variable: a16932
45952 o|substituted constant variable: a16934
45953 o|substituted constant variable: a16939
45954 o|substituted constant variable: a16941
45955 o|substituted constant variable: a16953
45956 o|inlining procedure: k16945
45957 o|inlining procedure: k16957
45958 o|inlining procedure: k16957
45959 o|inlining procedure: k16945
45960 o|inlining procedure: k16990
45961 o|inlining procedure: k17007
45962 o|inlining procedure: k17007
45963 o|inlining procedure: k17033
45964 o|inlining procedure: k17033
45965 o|substituted constant variable: a17051
45966 o|substituted constant variable: a17053
45967 o|inlining procedure: k17057
45968 o|inlining procedure: k17057
45969 o|substituted constant variable: a17070
45970 o|substituted constant variable: a17072
45971 o|substituted constant variable: a17074
45972 o|substituted constant variable: a17076
45973 o|inlining procedure: k16990
45974 o|inlining procedure: k18193
45975 o|inlining procedure: k18193
45976 o|inlining procedure: k18216
45977 o|inlining procedure: k18216
45978 o|inlining procedure: k18239
45979 o|inlining procedure: k18239
45980 o|inlining procedure: k18266
45981 o|inlining procedure: k18266
45982 o|inlining procedure: k18312
45983 o|inlining procedure: k18312
45984 o|substituted constant variable: a18344
45985 o|substituted constant variable: a18349
45986 o|substituted constant variable: a18351
45987 o|substituted constant variable: a18356
45988 o|substituted constant variable: a18358
45989 o|inlining procedure: k18420
45990 o|inlining procedure: k18420
45991 o|inlining procedure: k18451
45992 o|inlining procedure: k18451
45993 o|inlining procedure: k18512
45994 o|inlining procedure: k18512
45995 o|inlining procedure: k18542
45996 o|inlining procedure: k18542
45997 o|substituted constant variable: a18562
45998 o|substituted constant variable: a18564
45999 o|substituted constant variable: a18569
46000 o|substituted constant variable: a18571
46001 o|inlining procedure: k18575
46002 o|inlining procedure: k18575
46003 o|inlining procedure: k18587
46004 o|inlining procedure: k18587
46005 o|inlining procedure: k18599
46006 o|inlining procedure: k18599
46007 o|inlining procedure: k18611
46008 o|inlining procedure: k18611
46009 o|inlining procedure: k18623
46010 o|inlining procedure: k18623
46011 o|inlining procedure: k18635
46012 o|inlining procedure: k18635
46013 o|inlining procedure: k18647
46014 o|inlining procedure: k18647
46015 o|substituted constant variable: a18654
46016 o|substituted constant variable: a18656
46017 o|substituted constant variable: a18658
46018 o|substituted constant variable: a18660
46019 o|substituted constant variable: a18662
46020 o|substituted constant variable: a18664
46021 o|substituted constant variable: a18666
46022 o|substituted constant variable: a18668
46023 o|substituted constant variable: a18670
46024 o|substituted constant variable: a18672
46025 o|substituted constant variable: a18674
46026 o|substituted constant variable: a18676
46027 o|substituted constant variable: a18678
46028 o|substituted constant variable: a18680
46029 o|substituted constant variable: a18682
46030 o|substituted constant variable: a18684
46031 o|substituted constant variable: a18689
46032 o|substituted constant variable: a18691
46033 o|substituted constant variable: a18696
46034 o|substituted constant variable: a18698
46035 o|inlining procedure: k18706
46036 o|inlining procedure: k18706
46037 o|inlining procedure: k18738
46038 o|inlining procedure: k18754
46039 o|inlining procedure: k18754
46040 o|inlining procedure: k18804
46041 o|inlining procedure: k18827
46042 o|inlining procedure: k18827
46043 o|inlining procedure: k18804
46044 o|substituted constant variable: a18859
46045 o|inlining procedure: k18863
46046 o|inlining procedure: k18863
46047 o|inlining procedure: k18875
46048 o|inlining procedure: k18875
46049 o|inlining procedure: k18887
46050 o|inlining procedure: k18887
46051 o|substituted constant variable: a18900
46052 o|substituted constant variable: a18902
46053 o|substituted constant variable: a18904
46054 o|substituted constant variable: a18906
46055 o|substituted constant variable: a18908
46056 o|substituted constant variable: a18910
46057 o|substituted constant variable: a18912
46058 o|substituted constant variable: a18914
46059 o|inlining procedure: k18738
46060 o|inlining procedure: k18957
46061 o|inlining procedure: k18957
46062 o|inlining procedure: k18971
46063 o|inlining procedure: k18971
46064 o|inlining procedure: k18984
46065 o|inlining procedure: k18984
46066 o|inlining procedure: "(irregex-core.scm:1983) chicken.irregex#irregex-match-chunker-set!"
46067 o|inlining procedure: "(irregex-core.scm:1981) chicken.irregex#chunker-get-start"
46068 o|inlining procedure: k19055
46069 o|inlining procedure: k19067
46070 o|inlining procedure: k19067
46071 o|inlining procedure: k19092
46072 o|inlining procedure: k19125
46073 o|inlining procedure: k19125
46074 o|inlining procedure: k19154
46075 o|inlining procedure: k19154
46076 o|inlining procedure: "(irregex-core.scm:2005) chicken.irregex#chunker-get-next"
46077 o|inlining procedure: "(irregex-core.scm:2004) chicken.irregex#chunker-get-end"
46078 o|inlining procedure: "(irregex-core.scm:2003) chicken.irregex#chunker-get-start"
46079 o|inlining procedure: k19092
46080 o|contracted procedure: "(irregex-core.scm:2000) chicken.irregex#dfa-match/shortest"
46081 o|inlining procedure: k19680
46082 o|inlining procedure: k19695
46083 o|inlining procedure: k19695
46084 o|inlining procedure: k19746
46085 o|substituted constant variable: a19754
46086 o|inlining procedure: k19746
46087 o|inlining procedure: k19765
46088 o|inlining procedure: k19765
46089 o|inlining procedure: k19797
46090 o|inlining procedure: k19797
46091 o|inlining procedure: "(irregex-core.scm:2134) chicken.irregex#dfa-finalizer"
46092 o|inlining procedure: k19680
46093 o|inlining procedure: "(irregex-core.scm:2126) chicken.irregex#dfa-init-state"
46094 o|inlining procedure: "(irregex-core.scm:2124) chicken.irregex#chunker-get-next"
46095 o|inlining procedure: "(irregex-core.scm:2123) chicken.irregex#chunker-get-end"
46096 o|inlining procedure: "(irregex-core.scm:2122) chicken.irregex#chunker-get-start"
46097 o|inlining procedure: "(irregex-core.scm:2121) chicken.irregex#chunker-get-str"
46098 o|substituted constant variable: chicken.irregex#~searcher?
46099 o|inlining procedure: k19055
46100 o|inlining procedure: "(irregex-core.scm:2023) chicken.irregex#%irregex-match-fail-set!"
46101 o|contracted procedure: "(irregex-core.scm:2022) chicken.irregex#irregex-search/backtrack"
46102 o|inlining procedure: k19212
46103 o|inlining procedure: k19212
46104 o|inlining procedure: k19230
46105 o|inlining procedure: k19230
46106 o|inlining procedure: k19266
46107 o|inlining procedure: "(irregex-core.scm:2050) chicken.irregex#chunker-get-end"
46108 o|inlining procedure: "(irregex-core.scm:2049) chicken.irregex#chunker-get-start"
46109 o|inlining procedure: "(irregex-core.scm:2048) chicken.irregex#chunker-get-str"
46110 o|inlining procedure: k19266
46111 o|substituted constant variable: chicken.irregex#~searcher?
46112 o|inlining procedure: "(irregex-core.scm:2030) chicken.irregex#chunker-get-next"
46113 o|inlining procedure: "(irregex-core.scm:2029) chicken.irregex#chunker-get-end"
46114 o|inlining procedure: "(irregex-core.scm:2028) chicken.irregex#chunker-get-str"
46115 o|contracted procedure: "(irregex-core.scm:2027) chicken.irregex#irregex-nfa"
46116 o|contracted procedure: "(irregex-core.scm:1990) chicken.irregex#irregex-dfa"
46117 o|inlining procedure: k19339
46118 o|inlining procedure: k19339
46119 o|inlining procedure: k19353
46120 o|inlining procedure: k19353
46121 o|inlining procedure: k19366
46122 o|inlining procedure: k19366
46123 o|inlining procedure: k19403
46124 o|inlining procedure: k19415
46125 o|inlining procedure: "(irregex-core.scm:2080) chicken.irregex#chunker-get-start"
46126 o|inlining procedure: k19415
46127 o|contracted procedure: "(irregex-core.scm:2074) g33953396"
46128 o|inlining procedure: "(irregex-core.scm:2074) chicken.irregex#chunker-get-end"
46129 o|inlining procedure: "(irregex-core.scm:2073) chicken.irregex#chunker-get-start"
46130 o|inlining procedure: k19403
46131 o|inlining procedure: k19520
46132 o|inlining procedure: "(irregex-core.scm:2096) chicken.irregex#%irregex-match-fail-set!"
46133 o|inlining procedure: k19532
46134 o|inlining procedure: "(irregex-core.scm:2099) chicken.irregex#%irregex-match-fail"
46135 o|inlining procedure: k19532
46136 o|inlining procedure: "(irregex-core.scm:2098) chicken.irregex#%irregex-match-fail"
46137 o|contracted procedure: "(irregex-core.scm:2094) g34353436"
46138 o|inlining procedure: "(irregex-core.scm:2093) chicken.irregex#chunker-get-end"
46139 o|contracted procedure: "(irregex-core.scm:2092) g34293430"
46140 o|inlining procedure: "(irregex-core.scm:2091) chicken.irregex#chunker-get-next"
46141 o|inlining procedure: k19520
46142 o|inlining procedure: "(irregex-core.scm:2086) chicken.irregex#chunker-get-end"
46143 o|inlining procedure: "(irregex-core.scm:2085) chicken.irregex#chunker-get-start"
46144 o|inlining procedure: "(irregex-core.scm:2084) chicken.irregex#chunker-get-str"
46145 o|inlining procedure: "(irregex-core.scm:2068) chicken.irregex#irregex-match-chunker-set!"
46146 o|inlining procedure: k19622
46147 o|inlining procedure: k19622
46148 o|removed unused formal parameters: (dfa3453)
46149 o|removed unused formal parameters: (dfa3456)
46150 o|substituted constant variable: a19843
46151 o|substituted constant variable: a19840
46152 o|inlining procedure: k19845
46153 o|inlining procedure: k19845
46154 o|substituted constant variable: a19859
46155 o|substituted constant variable: a19856
46156 o|inlining procedure: k19861
46157 o|inlining procedure: k19861
46158 o|inlining procedure: k19878
46159 o|inlining procedure: k19878
46160 o|inlining procedure: k20002
46161 o|inlining procedure: k20024
46162 o|inlining procedure: k20050
46163 o|inlining procedure: k20050
46164 o|contracted procedure: "(irregex-core.scm:2216) g36363637"
46165 o|inlining procedure: k20024
46166 o|inlining procedure: k20002
46167 o|inlining procedure: k20123
46168 o|substituted constant variable: a20131
46169 o|substituted constant variable: a20134
46170 o|inlining procedure: k20123
46171 o|substituted constant variable: a20140
46172 o|inlining procedure: k20228
46173 o|contracted procedure: "(irregex-core.scm:2246) g36793697"
46174 o|inlining procedure: k20228
46175 o|inlining procedure: k20251
46176 o|inlining procedure: k20251
46177 o|inlining procedure: k20285
46178 o|inlining procedure: k20285
46179 o|inlining procedure: "(irregex-core.scm:2232) chicken.irregex#dfa-cell-commands"
46180 o|inlining procedure: "(irregex-core.scm:2229) chicken.irregex#dfa-finalizer"
46181 o|inlining procedure: k20314
46182 o|inlining procedure: k20314
46183 o|inlining procedure: k20362
46184 o|inlining procedure: k20362
46185 o|contracted procedure: "(irregex-core.scm:2264) g37553756"
46186 o|inlining procedure: k20394
46187 o|inlining procedure: k20394
46188 o|inlining procedure: k20459
46189 o|inlining procedure: k20459
46190 o|inlining procedure: "(irregex-core.scm:2192) chicken.irregex#dfa-cell-commands"
46191 o|inlining procedure: "(irregex-core.scm:2183) chicken.irregex#dfa-finalizer"
46192 o|contracted procedure: "(irregex-core.scm:2180) chicken.irregex#make-initial-memory"
46193 o|substituted constant variable: a19905
46194 o|inlining procedure: k19915
46195 o|inlining procedure: k19915
46196 o|substituted constant variable: a19929
46197 o|inlining procedure: "(irregex-core.scm:2176) chicken.irregex#dfa-init-state"
46198 o|inlining procedure: "(irregex-core.scm:2175) chicken.irregex#chunker-get-next"
46199 o|inlining procedure: "(irregex-core.scm:2174) chicken.irregex#chunker-get-end"
46200 o|inlining procedure: "(irregex-core.scm:2173) chicken.irregex#chunker-get-start"
46201 o|inlining procedure: "(irregex-core.scm:2172) chicken.irregex#chunker-get-str"
46202 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46203 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46204 o|inlining procedure: k20584
46205 o|inlining procedure: k20584
46206 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46207 o|inlining procedure: k20621
46208 o|contracted procedure: "(irregex-core.scm:2423) chicken.irregex#nfa-set-epsilons!"
46209 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46210 o|inlining procedure: k20621
46211 o|contracted procedure: "(irregex-core.scm:2480) chicken.irregex#nfa-set-state-trans!"
46212 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46213 o|substituted constant variable: a20802
46214 o|inlining procedure: k20806
46215 o|inlining procedure: k20806
46216 o|substituted constant variable: a20820
46217 o|substituted constant variable: a20826
46218 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46219 o|inlining procedure: k20842
46220 o|inlining procedure: k20842
46221 o|inlining procedure: k20862
46222 o|inlining procedure: k20862
46223 o|substituted constant variable: chicken.irregex#~case-insensitive?
46224 o|inlining procedure: k20890
46225 o|inlining procedure: k20890
46226 o|inlining procedure: k20908
46227 o|inlining procedure: k20908
46228 o|inlining procedure: k20923
46229 o|substituted constant variable: a20943
46230 o|inlining procedure: k20947
46231 o|inlining procedure: k20947
46232 o|inlining procedure: k20923
46233 o|inlining procedure: k20993
46234 o|inlining procedure: k21013
46235 o|inlining procedure: k21013
46236 o|inlining procedure: k20993
46237 o|inlining procedure: k21038
46238 o|substituted constant variable: chicken.irregex#~case-insensitive?
46239 o|inlining procedure: k21038
46240 o|inlining procedure: k21101
46241 o|substituted constant variable: a21140
46242 o|inlining procedure: k21134
46243 o|substituted constant variable: chicken.irregex#~case-insensitive?
46244 o|propagated global variable: r2113532478 chicken.irregex#~case-insensitive?
46245 o|inlining procedure: k21134
46246 o|substituted constant variable: chicken.irregex#~utf8?
46247 o|propagated global variable: r2113532480 chicken.irregex#~utf8?
46248 o|substituted constant variable: a21145
46249 o|inlining procedure: k21101
46250 o|consed rest parameter at call site: "(irregex-core.scm:2547) chicken.irregex#sre->cset" 2
46251 o|substituted constant variable: chicken.irregex#~case-insensitive?
46252 o|inlining procedure: k21175
46253 o|inlining procedure: k21187
46254 o|inlining procedure: k21187
46255 o|inlining procedure: k21175
46256 o|inlining procedure: k21276
46257 o|inlining procedure: k21276
46258 o|inlining procedure: k21298
46259 o|inlining procedure: k21319
46260 o|inlining procedure: k21319
46261 o|inlining procedure: k21298
46262 o|inlining procedure: k21370
46263 o|inlining procedure: k21370
46264 o|inlining procedure: k21430
46265 o|inlining procedure: k21460
46266 o|inlining procedure: k21460
46267 o|inlining procedure: k21430
46268 o|inlining procedure: k21516
46269 o|inlining procedure: k21516
46270 o|substituted constant variable: a21563
46271 o|substituted constant variable: a21565
46272 o|substituted constant variable: a21570
46273 o|substituted constant variable: a21572
46274 o|substituted constant variable: a21577
46275 o|substituted constant variable: a21579
46276 o|substituted constant variable: a21581
46277 o|substituted constant variable: a21583
46278 o|inlining procedure: k21587
46279 o|inlining procedure: k21587
46280 o|substituted constant variable: a21600
46281 o|substituted constant variable: a21602
46282 o|substituted constant variable: a21604
46283 o|substituted constant variable: a21606
46284 o|inlining procedure: k21610
46285 o|inlining procedure: k21610
46286 o|substituted constant variable: a21623
46287 o|substituted constant variable: a21625
46288 o|substituted constant variable: a21627
46289 o|substituted constant variable: a21629
46290 o|substituted constant variable: a21634
46291 o|substituted constant variable: a21636
46292 o|inlining procedure: k21661
46293 o|substituted constant variable: a21675
46294 o|inlining procedure: k21679
46295 o|inlining procedure: k21679
46296 o|substituted constant variable: a21693
46297 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46298 o|inlining procedure: k21661
46299 o|inlining procedure: k21718
46300 o|inlining procedure: k21718
46301 o|inlining procedure: k21743
46302 o|inlining procedure: k21743
46303 o|inlining procedure: k21792
46304 o|inlining procedure: k21792
46305 o|substituted constant variable: a21805
46306 o|substituted constant variable: a21807
46307 o|substituted constant variable: a21809
46308 o|substituted constant variable: a21811
46309 o|substituted constant variable: chicken.irregex#*nfa-presize*
46310 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46311 o|substituted constant variable: chicken.irregex#*nfa-presize*
46312 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46313 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46314 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46315 o|inlining procedure: "(irregex-core.scm:2738) chicken.irregex#nfa-num-tags"
46316 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46317 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46318 o|inlining procedure: k21958
46319 o|inlining procedure: k21958
46320 o|inlining procedure: "(irregex-core.scm:2771) chicken.irregex#mst-hash-set!"
46321 o|inlining procedure: k21999
46322 o|inlining procedure: k21999
46323 o|inlining procedure: "(irregex-core.scm:2761) chicken.irregex#mst-mappings-summary"
46324 o|inlining procedure: "(irregex-core.scm:2759) chicken.irregex#mst-num-states-set!"
46325 o|inlining procedure: "(irregex-core.scm:2759) chicken.irregex#mst-num-states"
46326 o|inlining procedure: "(irregex-core.scm:2756) chicken.irregex#mst-hash"
46327 o|inlining procedure: k22298
46328 o|inlining procedure: k22298
46329 o|substituted constant variable: a22312
46330 o|inlining procedure: k22314
46331 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46332 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46333 o|inlining procedure: k22314
46334 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46335 o|merged explicitly consed rest parameter: o4198
46336 o|inlining procedure: k22403
46337 o|contracted procedure: "(irregex-core.scm:2889) chicken.irregex#dfa-renumber"
46338 o|inlining procedure: k22590
46339 o|inlining procedure: k22590
46340 o|substituted constant variable: a22610
46341 o|contracted procedure: "(irregex-core.scm:2941) chicken.irregex#maybe-cset->char"
46342 o|inlining procedure: k26285
46343 o|inlining procedure: k26285
46344 o|substituted constant variable: a26324
46345 o|inlining procedure: k22666
46346 o|inlining procedure: k22666
46347 o|inlining procedure: k22704
46348 o|inlining procedure: k22704
46349 o|inlining procedure: "(irregex-core.scm:2888) chicken.irregex#nfa-highest-map-index"
46350 o|inlining procedure: k22403
46351 o|inlining procedure: k22435
46352 o|inlining procedure: k22435
46353 o|inlining procedure: k22459
46354 o|inlining procedure: k22459
46355 o|contracted procedure: "(irregex-core.scm:2906) chicken.irregex#find-reorder-commands"
46356 o|inlining procedure: k23382
46357 o|inlining procedure: k23382
46358 o|contracted procedure: "(irregex-core.scm:3113) chicken.irregex#nfa-set-reorder-commands!"
46359 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46360 o|inlining procedure: "(irregex-core.scm:2430) chicken.irregex#mst-hash"
46361 o|contracted procedure: "(irregex-core.scm:3112) chicken.irregex#find-reorder-commands-internal"
46362 o|inlining procedure: k23238
46363 o|inlining procedure: k23238
46364 o|inlining procedure: k23265
46365 o|inlining procedure: k23265
46366 o|inlining procedure: k23292
46367 o|inlining procedure: k23292
46368 o|inlining procedure: k23343
46369 o|inlining procedure: k23343
46370 o|inlining procedure: "(irregex-core.scm:3091) chicken.irregex#mst-mappings-summary"
46371 o|contracted procedure: "(irregex-core.scm:3089) chicken.irregex#mst-same-states?"
46372 o|inlining procedure: k22215
46373 o|inlining procedure: k22239
46374 o|inlining procedure: k22239
46375 o|substituted constant variable: a22253
46376 o|substituted constant variable: chicken.irregex#*mst-first-state-index*
46377 o|inlining procedure: "(irregex-core.scm:2809) chicken.irregex#mst-num-states"
46378 o|inlining procedure: "(irregex-core.scm:2809) chicken.irregex#mst-num-states"
46379 o|inlining procedure: k22215
46380 o|inlining procedure: "(irregex-core.scm:2808) chicken.irregex#mst-hash"
46381 o|inlining procedure: "(irregex-core.scm:2808) chicken.irregex#mst-hash"
46382 o|inlining procedure: "(irregex-core.scm:3085) chicken.irregex#mst-mappings-summary"
46383 o|inlining procedure: "(irregex-core.scm:3084) chicken.irregex#nfa-num-tags"
46384 o|contracted procedure: "(irregex-core.scm:3111) chicken.irregex#nfa-get-reorder-commands"
46385 o|inlining procedure: k20648
46386 o|inlining procedure: k20648
46387 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46388 o|inlining procedure: "(irregex-core.scm:2426) chicken.irregex#mst-hash"
46389 o|contracted procedure: "(irregex-core.scm:2896) chicken.irregex#get-distinct-transitions"
46390 o|inlining procedure: k22761
46391 o|inlining procedure: k22761
46392 o|inlining procedure: k22779
46393 o|inlining procedure: k22779
46394 o|inlining procedure: k22838
46395 o|inlining procedure: k22838
46396 o|inlining procedure: k22815
46397 o|inlining procedure: k22815
46398 o|contracted procedure: "(irregex-core.scm:2974) csets-intersect?4286"
46399 o|inlining procedure: k22742
46400 o|inlining procedure: k22742
46401 o|contracted procedure: "(irregex-core.scm:2957) chicken.irregex#nfa-get-state-trans"
46402 o|inlining procedure: k20558
46403 o|inlining procedure: k20558
46404 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46405 o|contracted procedure: "(irregex-core.scm:2873) chicken.irregex#nfa-start-state"
46406 o|substituted constant variable: a20536
46407 o|inlining procedure: k23059
46408 o|inlining procedure: k23059
46409 o|contracted procedure: "(irregex-core.scm:3040) chicken.irregex#nfa-add-closure!"
46410 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46411 o|inlining procedure: "(irregex-core.scm:2438) chicken.irregex#mst-hash"
46412 o|contracted procedure: "(irregex-core.scm:3039) chicken.irregex#nfa-epsilon-closure-internal"
46413 o|inlining procedure: k22938
46414 o|inlining procedure: k22938
46415 o|inlining procedure: k22961
46416 o|inlining procedure: k22961
46417 o|contracted procedure: "(irregex-core.scm:3028) chicken.irregex#mst-add-tagged!"
46418 o|inlining procedure: "(irregex-core.scm:2803) chicken.irregex#mst-hash-set!"
46419 o|inlining procedure: "(irregex-core.scm:2798) chicken.irregex#mst-num-states-set!"
46420 o|inlining procedure: "(irregex-core.scm:2798) chicken.irregex#mst-num-states"
46421 o|inlining procedure: "(irregex-core.scm:2795) chicken.irregex#mst-hash"
46422 o|inlining procedure: k22165
46423 o|inlining procedure: k22165
46424 o|inlining procedure: "(irregex-core.scm:2787) chicken.irregex#mst-mappings-summary"
46425 o|contracted procedure: "(irregex-core.scm:3026) chicken.irregex#next-index-for-tag!"
46426 o|inlining procedure: k22335
46427 o|contracted procedure: "(irregex-core.scm:2835) chicken.irregex#nfa-set-highest-map-index!"
46428 o|inlining procedure: k22335
46429 o|inlining procedure: k22347
46430 o|inlining procedure: k22347
46431 o|inlining procedure: "(irregex-core.scm:2831) chicken.irregex#mst-mappings-summary"
46432 o|inlining procedure: "(irregex-core.scm:2830) chicken.irregex#nfa-highest-map-index"
46433 o|inlining procedure: k22985
46434 o|inlining procedure: k22985
46435 o|contracted procedure: "(irregex-core.scm:3033) chicken.irregex#mst-add/fast!"
46436 o|inlining procedure: "(irregex-core.scm:2780) chicken.irregex#mst-num-states-set!"
46437 o|inlining procedure: "(irregex-core.scm:2780) chicken.irregex#mst-num-states"
46438 o|inlining procedure: "(irregex-core.scm:2777) chicken.irregex#mst-hash-set!"
46439 o|inlining procedure: "(irregex-core.scm:2778) chicken.irregex#mst-hash"
46440 o|contracted procedure: "(irregex-core.scm:3038) chicken.irregex#nfa-get-closure"
46441 o|inlining procedure: k20705
46442 o|inlining procedure: k20705
46443 o|substituted constant variable: chicken.irregex#*nfa-num-fields*
46444 o|inlining procedure: "(irregex-core.scm:2434) chicken.irregex#mst-hash"
46445 o|inlining procedure: k23086
46446 o|inlining procedure: k23086
46447 o|inlining procedure: k23106
46448 o|inlining procedure: k23106
46449 o|inlining procedure: k23148
46450 o|inlining procedure: k23170
46451 o|inlining procedure: k23170
46452 o|inlining procedure: k23194
46453 o|inlining procedure: k23194
46454 o|inlining procedure: k23148
46455 o|inlining procedure: "(irregex-core.scm:3048) chicken.irregex#mst-mappings-summary"
46456 o|inlining procedure: "(irregex-core.scm:3047) chicken.irregex#mst-mappings-summary"
46457 o|inlining procedure: "(irregex-core.scm:3046) chicken.irregex#nfa-num-tags"
46458 o|inlining procedure: k26172
46459 o|substituted constant variable: a26189
46460 o|inlining procedure: k26172
46461 o|inlining procedure: k26224
46462 o|substituted constant variable: a26235
46463 o|inlining procedure: k26224
46464 o|inlining procedure: "(irregex-core.scm:3657) chicken.irregex#chunker-get-end"
46465 o|inlining procedure: "(irregex-core.scm:3656) chicken.irregex#chunker-get-start"
46466 o|inlining procedure: "(irregex-core.scm:3655) chicken.irregex#chunker-get-str"
46467 o|inlining procedure: "(irregex-core.scm:3653) chicken.irregex#chunker-get-next"
46468 o|removed side-effect free assignment to unused variable: chicken.irregex#cset-size
46469 o|substituted constant variable: a26391
46470 o|inlining procedure: k26395
46471 o|inlining procedure: k26395
46472 o|inlining procedure: "(irregex-core.scm:3702) chicken.irregex#make-cset"
46473 o|merged explicitly consed rest parameter: o5232
46474 o|inlining procedure: k26510
46475 o|inlining procedure: k26522
46476 o|inlining procedure: k26522
46477 o|inlining procedure: k26540
46478 o|inlining procedure: k26573
46479 o|inlining procedure: k26573
46480 o|inlining procedure: k26540
46481 o|inlining procedure: k26637
46482 o|inlining procedure: k26637
46483 o|inlining procedure: k26672
46484 o|inlining procedure: k26707
46485 o|inlining procedure: k26707
46486 o|inlining procedure: k26672
46487 o|inlining procedure: k26751
46488 o|inlining procedure: k26751
46489 o|contracted procedure: "(irregex-core.scm:3725) chicken.irregex#plist->cset"
46490 o|inlining procedure: k26445
46491 o|inlining procedure: k26445
46492 o|inlining procedure: "(irregex-core.scm:3694) chicken.irregex#make-cset"
46493 o|contracted procedure: "(irregex-core.scm:3725) chicken.irregex#sre-flatten-ranges"
46494 o|inlining procedure: k18372
46495 o|inlining procedure: k18372
46496 o|inlining procedure: k26763
46497 o|inlining procedure: k26792
46498 o|inlining procedure: k26792
46499 o|inlining procedure: k26763
46500 o|inlining procedure: k26842
46501 o|inlining procedure: k26842
46502 o|substituted constant variable: a26861
46503 o|substituted constant variable: a26863
46504 o|substituted constant variable: a26865
46505 o|substituted constant variable: a26867
46506 o|substituted constant variable: a26869
46507 o|substituted constant variable: a26871
46508 o|substituted constant variable: a26873
46509 o|inlining procedure: k26510
46510 o|inlining procedure: k26882
46511 o|inlining procedure: k26882
46512 o|inlining procedure: k26895
46513 o|inlining procedure: k26895
46514 o|inlining procedure: k26964
46515 o|inlining procedure: k26964
46516 o|inlining procedure: k26979
46517 o|inlining procedure: k26979
46518 o|substituted constant variable: a27007
46519 o|inlining procedure: k27000
46520 o|inlining procedure: k27000
46521 o|inlining procedure: k27023
46522 o|inlining procedure: k27023
46523 o|substituted constant variable: a27039
46524 o|substituted constant variable: a27041
46525 o|inlining procedure: k27054
46526 o|inlining procedure: k27054
46527 o|inlining procedure: k27096
46528 o|inlining procedure: k27096
46529 o|substituted constant variable: a27152
46530 o|inlining procedure: k27144
46531 o|inlining procedure: k27144
46532 o|substituted constant variable: a27178
46533 o|inlining procedure: k27188
46534 o|inlining procedure: k27188
46535 o|inlining procedure: k27291
46536 o|inlining procedure: k27291
46537 o|inlining procedure: k27327
46538 o|inlining procedure: k27327
46539 o|inlining procedure: k27353
46540 o|inlining procedure: k27353
46541 o|inlining procedure: k27378
46542 o|inlining procedure: k27378
46543 o|contracted procedure: "(irregex-core.scm:3831) chicken.irregex#next-char"
46544 o|substituted constant variable: a27261
46545 o|contracted procedure: "(irregex-core.scm:3829) chicken.irregex#prev-char"
46546 o|substituted constant variable: a27273
46547 o|inlining procedure: k27487
46548 o|inlining procedure: k27487
46549 o|inlining procedure: k27520
46550 o|inlining procedure: k27520
46551 o|contracted procedure: "(irregex-core.scm:3858) chicken.irregex#min-char"
46552 o|inlining procedure: k27455
46553 o|inlining procedure: k27455
46554 o|contracted procedure: "(irregex-core.scm:3857) chicken.irregex#max-char"
46555 o|inlining procedure: k27464
46556 o|inlining procedure: k27464
46557 o|consed rest parameter at call site: "(irregex-core.scm:3866) chicken.irregex#sre->cset" 2
46558 o|inlining procedure: k27619
46559 o|inlining procedure: k27619
46560 o|inlining procedure: k27782
46561 o|inlining procedure: k27782
46562 o|inlining procedure: k27832
46563 o|inlining procedure: k27832
46564 o|substituted constant variable: chicken.irregex#~consumer?
46565 o|contracted procedure: "(irregex-core.scm:3916) g55135514"
46566 o|inlining procedure: "(irregex-core.scm:3903) chicken.irregex#irregex-match-chunker-set!"
46567 o|propagated global variable: str74632877 chicken.irregex#irregex-basic-string-chunker
46568 o|inlining procedure: k27877
46569 o|inlining procedure: k27877
46570 o|inlining procedure: k27891
46571 o|inlining procedure: k27891
46572 o|inlining procedure: k27910
46573 o|inlining procedure: k27910
46574 o|inlining procedure: k28016
46575 o|inlining procedure: k28016
46576 o|inlining procedure: k28060
46577 o|inlining procedure: "(irregex-core.scm:3955) chicken.irregex#chunker-get-start"
46578 o|inlining procedure: "(irregex-core.scm:3954) chicken.irregex#chunker-get-next"
46579 o|inlining procedure: "(irregex-core.scm:3953) chicken.irregex#chunker-get-end"
46580 o|inlining procedure: k28060
46581 o|substituted constant variable: chicken.irregex#~consumer?
46582 o|contracted procedure: "(irregex-core.scm:3950) g55655566"
46583 o|inlining procedure: "(irregex-core.scm:3943) chicken.irregex#irregex-match-chunker-set!"
46584 o|inlining procedure: "(irregex-core.scm:3940) chicken.irregex#chunker-get-start"
46585 o|inlining procedure: k28202
46586 o|contracted procedure: "(irregex-core.scm:3975) g55975598"
46587 o|inlining procedure: k28202
46588 o|inlining procedure: k28304
46589 o|inlining procedure: k28304
46590 o|contracted procedure: "(irregex-core.scm:3984) g56105611"
46591 o|inlining procedure: k28342
46592 o|inlining procedure: k28342
46593 o|inlining procedure: k28374
46594 o|inlining procedure: k28374
46595 o|inlining procedure: k28400
46596 o|inlining procedure: k28400
46597 o|inlining procedure: k28405
46598 o|inlining procedure: k28405
46599 o|inlining procedure: k28432
46600 o|contracted procedure: "(irregex-core.scm:4013) g56435644"
46601 o|contracted procedure: "(irregex-core.scm:4011) g56395640"
46602 o|inlining procedure: k28432
46603 o|contracted procedure: "(irregex-core.scm:4016) g56485649"
46604 o|inlining procedure: k28543
46605 o|inlining procedure: k28543
46606 o|substituted constant variable: a28578
46607 o|substituted constant variable: a28580
46608 o|inlining procedure: k28649
46609 o|inlining procedure: k28649
46610 o|contracted procedure: "(irregex-core.scm:4052) g56905691"
46611 o|contracted procedure: "(irregex-core.scm:4049) g56865687"
46612 o|inlining procedure: k28717
46613 o|inlining procedure: k28717
46614 o|inlining procedure: k28735
46615 o|inlining procedure: k28735
46616 o|inlining procedure: k28845
46617 o|inlining procedure: k28845
46618 o|substituted constant variable: a28862
46619 o|inlining procedure: k28889
46620 o|inlining procedure: k28889
46621 o|substituted constant variable: chicken.irregex#rx-special-chars
46622 o|inlining procedure: k29052
46623 o|inlining procedure: k29052
46624 o|inlining procedure: k29074
46625 o|inlining procedure: k29086
46626 o|contracted procedure: "(irregex-utils.scm:47) make-alt5939"
46627 o|inlining procedure: k28935
46628 o|inlining procedure: k28935
46629 o|inlining procedure: k29086
46630 o|substituted constant variable: a29116
46631 o|inlining procedure: k29118
46632 o|inlining procedure: k29118
46633 o|contracted procedure: "(irregex-utils.scm:55) make-seq5940"
46634 o|inlining procedure: k28965
46635 o|inlining procedure: k28965
46636 o|inlining procedure: k29002
46637 o|contracted procedure: "(irregex-utils.scm:36) g59635972"
46638 o|inlining procedure: k28987
46639 o|inlining procedure: k28987
46640 o|inlining procedure: k29002
46641 o|inlining procedure: k29042
46642 o|inlining procedure: k29042
46643 o|inlining procedure: k29074
46644 o|substituted constant variable: a29190
46645 o|inlining procedure: k29211
46646 o|inlining procedure: k29211
46647 o|inlining procedure: k29291
46648 o|inlining procedure: k29307
46649 o|inlining procedure: k29329
46650 o|inlining procedure: k29329
46651 o|inlining procedure: k29307
46652 o|inlining procedure: k29359
46653 o|inlining procedure: k29359
46654 o|inlining procedure: k29382
46655 o|inlining procedure: k29382
46656 o|inlining procedure: k29401
46657 o|inlining procedure: k29423
46658 o|inlining procedure: k29423
46659 o|inlining procedure: k29401
46660 o|inlining procedure: k29473
46661 o|inlining procedure: k29473
46662 o|inlining procedure: k29497
46663 o|inlining procedure: k29532
46664 o|inlining procedure: k29532
46665 o|inlining procedure: k29497
46666 o|inlining procedure: k29592
46667 o|inlining procedure: k29592
46668 o|inlining procedure: k29623
46669 o|inlining procedure: k29623
46670 o|inlining procedure: k29690
46671 o|inlining procedure: k29722
46672 o|inlining procedure: k29722
46673 o|substituted constant variable: a29732
46674 o|consed rest parameter at call site: "(irregex-utils.scm:130) chicken.irregex#sre->cset" 2
46675 o|inlining procedure: k29746
46676 o|inlining procedure: k29746
46677 o|substituted constant variable: a29769
46678 o|inlining procedure: k29690
46679 o|inlining procedure: k29803
46680 o|inlining procedure: k29803
46681 o|inlining procedure: k29831
46682 o|inlining procedure: k29831
46683 o|substituted constant variable: a29859
46684 o|substituted constant variable: a29861
46685 o|inlining procedure: k29865
46686 o|inlining procedure: k29865
46687 o|substituted constant variable: a29878
46688 o|substituted constant variable: a29880
46689 o|substituted constant variable: a29882
46690 o|substituted constant variable: a29884
46691 o|substituted constant variable: a29886
46692 o|substituted constant variable: a29888
46693 o|inlining procedure: k29892
46694 o|inlining procedure: k29892
46695 o|inlining procedure: k29904
46696 o|inlining procedure: k29904
46697 o|substituted constant variable: a29911
46698 o|substituted constant variable: a29913
46699 o|substituted constant variable: a29915
46700 o|substituted constant variable: a29917
46701 o|substituted constant variable: a29919
46702 o|substituted constant variable: a29921
46703 o|substituted constant variable: a29923
46704 o|substituted constant variable: a29925
46705 o|substituted constant variable: a29930
46706 o|substituted constant variable: a29932
46707 o|inlining procedure: k29291
46708 o|inlining procedure: k29939
46709 o|inlining procedure: k29939
46710 o|inlining procedure: k29963
46711 o|inlining procedure: k29963
46712 o|substituted constant variable: a29982
46713 o|substituted constant variable: a29984
46714 o|substituted constant variable: a29989
46715 o|substituted constant variable: a29991
46716 o|substituted constant variable: a29996
46717 o|substituted constant variable: a29998
46718 o|inlining procedure: k29999
46719 o|inlining procedure: k29999
46720 o|inlining procedure: k30052
46721 o|inlining procedure: k30052
46722 o|inlining procedure: k30068
46723 o|inlining procedure: k30068
46724 o|substituted constant variable: a30141
46725 o|inlining procedure: k30137
46726 o|inlining procedure: k30137
46727 o|substituted constant variable: a30153
46728 o|inlining procedure: k30160
46729 o|inlining procedure: k30160
46730 o|substituted constant variable: a30201
46731 o|inlining procedure: k30202
46732 o|inlining procedure: k30202
46733 o|inlining procedure: k30277
46734 o|inlining procedure: k30277
46735 o|substituted constant variable: a30312
46736 o|inlining procedure: k30987
46737 o|inlining procedure: k30987
46738 o|simplifications: ((if . 8))
46739 o|replaced variables: 7205
46740 o|removed binding forms: 699
46741 o|removed conditional forms: 3
46742 o|substituted constant variable: r765731006
46743 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunker
46744 o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunker-set!
46745 o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-fail
46746 o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-fail-set!
46747 o|substituted constant variable: r778431008
46748 o|substituted constant variable: r780931010
46749 o|substituted constant variable: r783831012
46750 o|substituted constant variable: r786731014
46751 o|substituted constant variable: r802431021
46752 o|substituted constant variable: r803231022
46753 o|substituted constant variable: r803231023
46754 o|substituted constant variable: r800231025
46755 o|substituted constant variable: r816231033
46756 o|substituted constant variable: r776831035
46757 o|substituted constant variable: r776831036
46758 o|substituted constant variable: r821031043
46759 o|inlining procedure: k8417
46760 o|substituted constant variable: r843031064
46761 o|inlining procedure: k8417
46762 o|substituted constant variable: r841831065
46763 o|substituted constant variable: r841831065
46764 o|folded constant expression: (scheme#not (quote #f))
46765 o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-next
46766 o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-str
46767 o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-start
46768 o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-end
46769 o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-substring
46770 o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-subchunk
46771 o|substituted constant variable: r864631082
46772 o|substituted constant variable: r861031083
46773 o|substituted constant variable: r867931103
46774 o|removed side-effect free assignment to unused variable: chicken.irregex#*allow-utf8-mode?*
46775 o|substituted constant variable: r883331109
46776 o|substituted constant variable: r916131115
46777 o|substituted constant variable: r920431119
46778 o|substituted constant variable: r929731128
46779 o|removed side-effect free assignment to unused variable: chicken.irregex#~none
46780 o|removed side-effect free assignment to unused variable: chicken.irregex#dot-token
46781 o|converted assignments to bindings: (collect1353)
46782 o|substituted constant variable: r1014731161
46783 o|substituted constant variable: r1014731161
46784 o|inlining procedure: k10146
46785 o|inlining procedure: k10146
46786 o|removed side-effect free assignment to unused variable: chicken.irregex#~save?
46787 o|removed side-effect free assignment to unused variable: chicken.irregex#~multi-line?
46788 o|removed side-effect free assignment to unused variable: chicken.irregex#~ignore-space?
46789 o|substituted constant variable: chicken.irregex#~case-insensitive?
46790 o|substituted constant variable: chicken.irregex#~case-insensitive?
46791 o|inlining procedure: k10359
46792 o|inlining procedure: k10359
46793 o|substituted constant variable: chicken.irregex#~single-line?
46794 o|propagated global variable: r1036033104 chicken.irregex#~single-line?
46795 o|propagated global variable: r1036033104 chicken.irregex#~single-line?
46796 o|inlining procedure: k10359
46797 o|substituted constant variable: r1036031196
46798 o|substituted constant variable: r1036031196
46799 o|inlining procedure: k10359
46800 o|substituted constant variable: r1039631198
46801 o|substituted constant variable: r1422731217
46802 o|converted assignments to bindings: (shift1522)
46803 o|substituted constant variable: r1086531230
46804 o|substituted constant variable: r1174031288
46805 o|substituted constant variable: r1174031288
46806 o|substituted constant variable: r1174031290
46807 o|substituted constant variable: r1174031290
46808 o|substituted constant variable: r1215531354
46809 o|substituted constant variable: c1080
46810 o|converted assignments to bindings: (collect1090)
46811 o|substituted constant variable: r1326331381
46812 o|substituted constant variable: r1327531383
46813 o|substituted constant variable: r893331393
46814 o|substituted constant variable: r887631411
46815 o|substituted constant variable: c1056
46816 o|folded constant expression: (scheme#eq? (quote #\}) (quote #\\))
46817 o|substituted constant variable: c1056
46818 o|converted assignments to bindings: (byte1955)
46819 o|substituted constant variable: r1426531421
46820 o|substituted constant variable: r1427731423
46821 o|substituted constant variable: r1550031440
46822 o|substituted constant variable: r1550031440
46823 o|substituted constant variable: r1430331448
46824 o|substituted constant variable: r1431531450
46825 o|substituted constant variable: r1536631458
46826 o|substituted constant variable: r1536631458
46827 o|folded constant expression: (scheme#integer->char (quote 127))
46828 o|substituted constant variable: r1536631460
46829 o|substituted constant variable: r1536631460
46830 o|folded constant expression: (scheme#integer->char (quote 255))
46831 o|substituted constant variable: r1452931464
46832 o|substituted constant variable: r1452931464
46833 o|substituted constant variable: r2408231524
46834 o|substituted constant variable: r2409031526
46835 o|substituted constant variable: r2410531528
46836 o|substituted constant variable: r2424431539
46837 o|substituted constant variable: r2425231541
46838 o|substituted constant variable: r2426731543
46839 o|substituted constant variable: r873931572
46840 o|substituted constant variable: r878131586
46841 o|substituted constant variable: r2568431756
46842 o|substituted constant variable: r2582731789
46843 o|converted assignments to bindings: (rec4438)
46844 o|substituted constant variable: chicken.irregex#~consumer?
46845 o|substituted constant variable: chicken.irregex#~consumer?
46846 o|substituted constant variable: r1623031864
46847 o|substituted constant variable: r1623031864
46848 o|substituted constant variable: chicken.irregex#~searcher?
46849 o|substituted constant variable: chicken.irregex#~searcher?
46850 o|substituted constant variable: r1623731868
46851 o|substituted constant variable: r1623731868
46852 o|substituted constant variable: r1710831873
46853 o|substituted constant variable: r1710831873
46854 o|inlining procedure: k17189
46855 o|substituted constant variable: r1719031882
46856 o|substituted constant variable: r1719031882
46857 o|inlining procedure: k17224
46858 o|substituted constant variable: r1722531887
46859 o|substituted constant variable: r1722531887
46860 o|inlining procedure: k17267
46861 o|substituted constant variable: r1726831893
46862 o|substituted constant variable: r1726831893
46863 o|substituted constant variable: r1727831897
46864 o|substituted constant variable: r1727831897
46865 o|inlining procedure: k17306
46866 o|substituted constant variable: r1730731902
46867 o|substituted constant variable: r1730731902
46868 o|inlining procedure: k17394
46869 o|substituted constant variable: r1740131908
46870 o|substituted constant variable: r1739531909
46871 o|substituted constant variable: r1739531909
46872 o|inlining procedure: k17575
46873 o|substituted constant variable: r1757631928
46874 o|substituted constant variable: r1757631928
46875 o|inlining procedure: k17706
46876 o|substituted constant variable: r1770731938
46877 o|substituted constant variable: r1770731938
46878 o|substituted constant variable: r1776531941
46879 o|substituted constant variable: r1778031943
46880 o|inlining procedure: k17851
46881 o|substituted constant variable: r1785231948
46882 o|substituted constant variable: r1785231948
46883 o|substituted constant variable: r1789231951
46884 o|substituted constant variable: r1789231951
46885 o|converted assignments to bindings: (grow2855)
46886 o|substituted constant variable: r1626131988
46887 o|substituted constant variable: r1629631990
46888 o|substituted constant variable: r1629631991
46889 o|substituted constant variable: r1581532006
46890 o|substituted constant variable: r1596432016
46891 o|substituted constant variable: r1602332021
46892 o|converted assignments to bindings: (rec2364)
46893 o|substituted constant variable: r1636032026
46894 o|substituted constant variable: r1650532042
46895 o|substituted constant variable: r1660232051
46896 o|substituted constant variable: r1659032052
46897 o|substituted constant variable: r1657832054
46898 o|substituted constant variable: r1663932057
46899 o|substituted constant variable: r1665432059
46900 o|substituted constant variable: r1675232070
46901 o|substituted constant variable: r1676732072
46902 o|substituted constant variable: r1686932082
46903 o|substituted constant variable: r1688432084
46904 o|substituted constant variable: r1694632092
46905 o|substituted constant variable: r1700832094
46906 o|substituted constant variable: r1700832094
46907 o|inlining procedure: k17007
46908 o|substituted constant variable: r1703432099
46909 o|substituted constant variable: r1819432103
46910 o|substituted constant variable: r1821732105
46911 o|substituted constant variable: r1895832153
46912 o|substituted constant variable: r1895832153
46913 o|folded constant expression: (scheme#not (quote #f))
46914 o|substituted constant variable: r1897232157
46915 o|substituted constant variable: r1897232157
46916 o|folded constant expression: (scheme#not (quote #f))
46917 o|substituted constant variable: r1898532160
46918 o|substituted constant variable: r1906832174
46919 o|substituted constant variable: r1915532179
46920 o|substituted constant variable: r1909332195
46921 o|substituted constant variable: r1969632197
46922 o|substituted constant variable: index3464
46923 o|substituted constant variable: index3464
46924 o|folded constant expression: (scheme#* (quote 0) (quote 4))
46925 o|substituted constant variable: index3464
46926 o|folded constant expression: (scheme#* (quote 0) (quote 4))
46927 o|inlining procedure: k19701
46928 o|inlining procedure: k19719
46929 o|inlining procedure: k19731
46930 o|substituted constant variable: r1974732200
46931 o|substituted constant variable: r1979832204
46932 o|substituted constant variable: r1968132211
46933 o|substituted constant variable: x75432240
46934 o|inlining procedure: k19185
46935 o|substituted constant variable: r1926732264
46936 o|substituted constant variable: r1934032282
46937 o|substituted constant variable: r1934032282
46938 o|folded constant expression: (scheme#not (quote #f))
46939 o|substituted constant variable: r1935432286
46940 o|substituted constant variable: r1935432286
46941 o|folded constant expression: (scheme#not (quote #f))
46942 o|substituted constant variable: r1936732289
46943 o|substituted constant variable: r1941632297
46944 o|substituted constant variable: n3398
46945 o|folded constant expression: (scheme#* (quote 0) (quote 4))
46946 o|substituted constant variable: x75432312
46947 o|substituted constant variable: r1953332322
46948 o|substituted constant variable: n3438
46949 o|folded constant expression: (scheme#* (quote 0) (quote 4))
46950 o|substituted constant variable: n3432
46951 o|folded constant expression: (scheme#* (quote 0) (quote 4))
46952 o|substituted constant variable: r1952132338
46953 o|substituted constant variable: r1962332360
46954 o|substituted constant variable: r1962332361
46955 o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-init-state
46956 o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-cell-commands
46957 o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-finalizer
46958 o|substituted constant variable: r1984632364
46959 o|substituted constant variable: r1984632364
46960 o|substituted constant variable: r1986232368
46961 o|substituted constant variable: r1986232368
46962 o|substituted constant variable: r2005132374
46963 o|substituted constant variable: r2005132375
46964 o|inlining procedure: k20056
46965 o|substituted constant variable: r2002532376
46966 o|substituted constant variable: r2031532398
46967 o|inlining procedure: k20320
46968 o|removed side-effect free assignment to unused variable: chicken.irregex#*nfa-presize*
46969 o|removed side-effect free assignment to unused variable: chicken.irregex#*nfa-num-fields*
46970 o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-num-tags
46971 o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-highest-map-index
46972 o|substituted constant variable: r2058532447
46973 o|substituted constant variable: r2084332454
46974 o|substituted constant variable: r2090932460
46975 o|substituted constant variable: chicken.irregex#~case-insensitive?
46976 o|substituted constant variable: chicken.irregex#~case-insensitive?
46977 o|substituted constant variable: chicken.irregex#~utf8?
46978 o|substituted constant variable: chicken.irregex#~utf8?
46979 o|inlining procedure: k21282
46980 o|substituted constant variable: r2127732490
46981 o|inlining procedure: k21382
46982 o|substituted constant variable: r2137132498
46983 o|substituted constant variable: r2166232514
46984 o|removed side-effect free assignment to unused variable: chicken.irregex#*mst-first-state-index*
46985 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-mappings-summary
46986 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-num-states
46987 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-num-states-set!
46988 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-hash
46989 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-hash-set!
46990 o|substituted constant variable: r2323932589
46991 o|substituted constant variable: r2221632617
46992 o|substituted constant variable: r2064932639
46993 o|substituted constant variable: r2274332654
46994 o|substituted constant variable: r2055932655
46995 o|substituted constant variable: r2070632738
46996 o|substituted constant variable: r2317132750
46997 o|substituted constant variable: r2319532752
46998 o|substituted constant variable: r2314932753
46999 o|removed side-effect free assignment to unused variable: chicken.irregex#make-cset
47000 o|removed side-effect free assignment to unused variable: chicken.irregex#cset=?
47001 o|converted assignments to bindings: (rec5240)
47002 o|substituted constant variable: r2696532833
47003 o|substituted constant variable: r2698032836
47004 o|substituted constant variable: r2702432840
47005 o|substituted constant variable: n5516
47006 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47007 o|substituted constant variable: r2787832883
47008 o|substituted constant variable: r2787832883
47009 o|folded constant expression: (scheme#not (quote #f))
47010 o|substituted constant variable: r2789232887
47011 o|substituted constant variable: r2789232887
47012 o|folded constant expression: (scheme#not (quote #f))
47013 o|substituted constant variable: r2791132890
47014 o|substituted constant variable: n5568
47015 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47016 o|substituted constant variable: n5600
47017 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47018 o|substituted constant variable: n5613
47019 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47020 o|substituted constant variable: r2840132933
47021 o|substituted constant variable: r2840132933
47022 o|substituted constant variable: n5646
47023 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47024 o|substituted constant variable: n5642
47025 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47026 o|substituted constant variable: n5651
47027 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47028 o|substituted constant variable: n5693
47029 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47030 o|substituted constant variable: n5689
47031 o|folded constant expression: (scheme#* (quote 0) (quote 4))
47032 o|removed side-effect free assignment to unused variable: chicken.irregex#rx-special-chars
47033 o|substituted constant variable: r2884632949
47034 o|substituted constant variable: r2905332953
47035 o|substituted constant variable: r2938332983
47036 o|substituted constant variable: r2974733004
47037 o|substituted constant variable: r3005333023
47038 o|substituted constant variable: r3027833034
47039 o|simplifications: ((let . 8))
47040 o|replaced variables: 1046
47041 o|removed binding forms: 6510
47042 o|removed conditional forms: 1
47043 o|inlining procedure: k8045
47044 o|inlining procedure: k8045
47045 o|inlining procedure: k8404
47046 o|substituted constant variable: r841833049
47047 o|folded constant expression: (scheme#not (quote #f))
47048 o|substituted constant variable: r841833051
47049 o|folded constant expression: (scheme#not (quote #f))
47050 o|removed side-effect free assignment to unused variable: chicken.irregex#~searcher?
47051 o|removed side-effect free assignment to unused variable: chicken.irregex#~consumer?
47052 o|substituted constant variable: r1014733096
47053 o|removed side-effect free assignment to unused variable: chicken.irregex#~case-insensitive?
47054 o|removed side-effect free assignment to unused variable: chicken.irregex#~utf8?
47055 o|inlining procedure: "(irregex-core.scm:734) chicken.irregex#flag-join"
47056 o|inlining procedure: "(irregex-core.scm:734) chicken.irregex#flag-join"
47057 o|substituted constant variable: r1036033102
47058 o|substituted constant variable: chicken.irregex#~single-line?
47059 o|inlining procedure: "(irregex-core.scm:734) chicken.irregex#flag-join"
47060 o|substituted constant variable: chicken.irregex#~single-line?
47061 o|propagated global variable: b128733565 chicken.irregex#~single-line?
47062 o|propagated global variable: b128733565 chicken.irregex#~single-line?
47063 o|inlining procedure: "(irregex-core.scm:734) chicken.irregex#flag-join"
47064 o|substituted constant variable: r1036033106
47065 o|inlining procedure: "(irregex-core.scm:734) chicken.irregex#flag-join"
47066 o|inlining procedure: "(irregex-core.scm:734) chicken.irregex#flag-join"
47067 o|substituted constant variable: r1036033108
47068 o|inlining procedure: "(irregex-core.scm:756) chicken.irregex#flag-set?"
47069 o|inlining procedure: "(irregex-core.scm:761) chicken.irregex#flag-set?"
47070 o|inlining procedure: "(irregex-core.scm:770) chicken.irregex#flag-set?"
47071 o|inlining procedure: "(irregex-core.scm:814) chicken.irregex#flag-set?"
47072 o|inlining procedure: k10942
47073 o|inlining procedure: k10942
47074 o|inlining procedure: "(irregex-core.scm:849) chicken.irregex#flag-set?"
47075 o|inlining procedure: "(irregex-core.scm:891) chicken.irregex#flag-join"
47076 o|inlining procedure: "(irregex-core.scm:908) chicken.irregex#flag-clear"
47077 o|inlining procedure: "(irregex-core.scm:910) chicken.irregex#flag-clear"
47078 o|inlining procedure: "(irregex-core.scm:913) chicken.irregex#flag-clear"
47079 o|inlining procedure: "(irregex-core.scm:922) chicken.irregex#flag-clear"
47080 o|inlining procedure: "(irregex-core.scm:925) chicken.irregex#flag-clear"
47081 o|inlining procedure: "(irregex-core.scm:932) chicken.irregex#flag-clear"
47082 o|inlining procedure: "(irregex-core.scm:938) chicken.irregex#flag-clear"
47083 o|inlining procedure: "(irregex-core.scm:953) chicken.irregex#flag-clear"
47084 o|inlining procedure: "(irregex-core.scm:958) chicken.irregex#flag-clear"
47085 o|inlining procedure: "(irregex-core.scm:961) chicken.irregex#flag-clear"
47086 o|inlining procedure: chicken.irregex#flag-clear
47087 o|inlining procedure: chicken.irregex#flag-join
47088 o|inlining procedure: "(irregex-core.scm:972) chicken.irregex#flag-set?"
47089 o|inlining procedure: "(irregex-core.scm:971) chicken.irregex#flag-set?"
47090 o|inlining procedure: "(irregex-core.scm:1230) chicken.irregex#cset-adjoin"
47091 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47092 o|inlining procedure: "(irregex-core.scm:1231) chicken.irregex#flag-set?"
47093 o|inlining procedure: "(irregex-core.scm:1229) chicken.irregex#cset-empty?"
47094 o|inlining procedure: "(irregex-core.scm:1241) chicken.irregex#cset-adjoin"
47095 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47096 o|inlining procedure: "(irregex-core.scm:1250) chicken.irregex#range->cset"
47097 o|inlining procedure: "(irregex-core.scm:1258) chicken.irregex#utf8-start-char->length"
47098 o|inlining procedure: "(irregex-core.scm:1278) chicken.irregex#cset-adjoin"
47099 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47100 o|inlining procedure: "(irregex-core.scm:1289) chicken.irregex#cset-adjoin"
47101 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47102 o|inlining procedure: "(irregex-core.scm:1294) chicken.irregex#cset-adjoin"
47103 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47104 o|inlining procedure: "(irregex-core.scm:1300) chicken.irregex#cset-adjoin"
47105 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47106 o|inlining procedure: "(irregex-core.scm:1297) chicken.irregex#utf8-start-char->length"
47107 o|inlining procedure: "(irregex-core.scm:1301) chicken.irregex#cset-adjoin"
47108 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47109 o|inlining procedure: "(irregex-core.scm:1306) chicken.irregex#char->cset"
47110 o|inlining procedure: "(irregex-core.scm:1305) chicken.irregex#flag-set?"
47111 o|inlining procedure: "(irregex-core.scm:1222) chicken.irregex#flag-set?"
47112 o|inlining procedure: "(irregex-core.scm:1103) chicken.irregex#flag-set?"
47113 o|inlining procedure: "(irregex-core.scm:1146) chicken.irregex#flag-set?"
47114 o|inlining procedure: "(irregex-core.scm:451) a12934"
47115 o|inlining procedure: "(irregex-core.scm:1164) chicken.irregex#flag-set?"
47116 o|inlining procedure: "(irregex-core.scm:1167) chicken.irregex#flag-set?"
47117 o|inlining procedure: "(irregex-core.scm:1170) chicken.irregex#flag-set?"
47118 o|inlining procedure: "(irregex-core.scm:1174) chicken.irregex#flag-set?"
47119 o|contracted procedure: k8890
47120 o|removed call to pure procedure with unused result: "(irregex-core.scm:1446) ##sys#slot"
47121 o|removed call to pure procedure with unused result: "(irregex-core.scm:1501) ##sys#slot"
47122 o|inlining procedure: k15128
47123 o|inlining procedure: k15128
47124 o|inlining procedure: k15128
47125 o|inlining procedure: k15128
47126 o|removed call to pure procedure with unused result: "(irregex-core.scm:1512) ##sys#slot"
47127 o|inlining procedure: "(irregex-core.scm:1509) chicken.irregex#utf8-start-char->length"
47128 o|removed call to pure procedure with unused result: "(irregex-core.scm:1492) ##sys#slot"
47129 o|inlining procedure: k15361
47130 o|inlining procedure: k15361
47131 o|removed call to pure procedure with unused result: "(irregex-core.scm:1521) ##sys#slot"
47132 o|inlining procedure: "(irregex-core.scm:1532) chicken.irregex#high-char?"
47133 o|inlining procedure: "(irregex-core.scm:1532) chicken.irregex#high-char?"
47134 o|inlining procedure: "(irregex-core.scm:3143) chicken.irregex#flag-set?"
47135 o|inlining procedure: "(irregex-core.scm:3148) chicken.irregex#flag-set?"
47136 o|inlining procedure: "(irregex-core.scm:3167) chicken.irregex#flag-clear"
47137 o|inlining procedure: "(irregex-core.scm:3172) chicken.irregex#flag-join"
47138 o|inlining procedure: "(irregex-core.scm:3175) chicken.irregex#flag-join"
47139 o|inlining procedure: "(irregex-core.scm:3177) chicken.irregex#flag-clear"
47140 o|inlining procedure: "(irregex-core.scm:3406) chicken.irregex#flag-set?"
47141 o|inlining procedure: "(irregex-core.scm:3587) chicken.irregex#flag-set?"
47142 o|inlining procedure: "(irregex-core.scm:1632) chicken.irregex#flag-join"
47143 o|inlining procedure: "(irregex-core.scm:1632) chicken.irregex#flag-join"
47144 o|inlining procedure: "(irregex-core.scm:1633) chicken.irregex#flag-join"
47145 o|inlining procedure: "(irregex-core.scm:1633) chicken.irregex#flag-join"
47146 o|substituted constant variable: r1719033198
47147 o|substituted constant variable: r1722533200
47148 o|substituted constant variable: r1726833204
47149 o|substituted constant variable: r1730733206
47150 o|substituted constant variable: r1739533210
47151 o|substituted constant variable: r1757633212
47152 o|substituted constant variable: r1770733214
47153 o|substituted constant variable: r1785233216
47154 o|inlining procedure: "(irregex-core.scm:1627) chicken.irregex#nfa-num-states"
47155 o|inlining procedure: "(irregex-core.scm:1623) chicken.irregex#nfa-num-states"
47156 o|inlining procedure: "(irregex-core.scm:1574) chicken.irregex#high-char?"
47157 o|inlining procedure: "(irregex-core.scm:1541) chicken.irregex#flag-set?"
47158 o|inlining procedure: "(irregex-core.scm:1540) chicken.irregex#flag-set?"
47159 o|substituted constant variable: r1700833236
47160 o|inlining procedure: k18950
47161 o|inlining procedure: k18964
47162 o|substituted constant variable: r1972033264
47163 o|folded constant expression: (scheme#+ (quote 3) (quote 0))
47164 o|substituted constant variable: r1973233266
47165 o|folded constant expression: (scheme#+ (quote 2) (quote 0))
47166 o|inlining procedure: "(irregex-core.scm:2147) chicken.irregex#dfa-next-state"
47167 o|inlining procedure: "(irregex-core.scm:2126) chicken.irregex#dfa-next-state"
47168 o|inlining procedure: "(irregex-core.scm:1992) chicken.irregex#flag-set?"
47169 o|inlining procedure: "(irregex-core.scm:2031) chicken.irregex#flag-set?"
47170 o|inlining procedure: k19332
47171 o|inlining procedure: k19346
47172 o|contracted procedure: k19468
47173 o|contracted procedure: k19580
47174 o|contracted procedure: k19608
47175 o|substituted constant variable: r200513237433295
47176 o|substituted constant variable: r200513237533296
47177 o|inlining procedure: k20305
47178 o|inlining procedure: "(irregex-core.scm:2228) chicken.irregex#dfa-next-state"
47179 o|substituted constant variable: r203153239833306
47180 o|inlining procedure: "(irregex-core.scm:2182) chicken.irregex#dfa-next-state"
47181 o|inlining procedure: "(irregex-core.scm:2488) chicken.irregex#char->cset"
47182 o|inlining procedure: "(irregex-core.scm:2488) chicken.irregex#char->cset"
47183 o|inlining procedure: "(irregex-core.scm:2489) chicken.irregex#char->cset"
47184 o|inlining procedure: "(irregex-core.scm:2487) chicken.irregex#flag-set?"
47185 o|inlining procedure: "(irregex-core.scm:2526) chicken.irregex#flag-set?"
47186 o|inlining procedure: "(irregex-core.scm:2548) chicken.irregex#flag-set?"
47187 o|inlining procedure: k21322
47188 o|inlining procedure: "(irregex-core.scm:2737) chicken.irregex#nfa-num-states"
47189 o|inlining procedure: "(irregex-core.scm:2771) chicken.irregex#nfa-num-states"
47190 o|inlining procedure: "(irregex-core.scm:2757) chicken.irregex#mst-state-mappings"
47191 o|inlining procedure: "(irregex-core.scm:2900) chicken.irregex#mst-state-mappings"
47192 o|inlining procedure: k23369
47193 o|inlining procedure: k23369
47194 o|inlining procedure: "(irregex-core.scm:2990) chicken.irregex#cset-empty?"
47195 o|inlining procedure: "(irregex-core.scm:2980) chicken.irregex#cset-empty?"
47196 o|inlining procedure: "(irregex-core.scm:2953) chicken.irregex#cset-empty?"
47197 o|inlining procedure: k22568
47198 o|inlining procedure: "(irregex-core.scm:2402) chicken.irregex#nfa-num-states"
47199 o|inlining procedure: "(irregex-core.scm:2803) chicken.irregex#nfa-num-states"
47200 o|inlining procedure: "(irregex-core.scm:2796) chicken.irregex#mst-state-mappings"
47201 o|inlining procedure: "(irregex-core.scm:2779) chicken.irregex#nfa-num-states"
47202 o|inlining procedure: k22044
47203 o|inlining procedure: "(irregex-core.scm:2776) chicken.irregex#mst-state-mappings"
47204 o|inlining procedure: "(irregex-core.scm:3007) chicken.irregex#nfa-num-states"
47205 o|inlining procedure: "(irregex-core.scm:3701) chicken.irregex#cset-adjoin"
47206 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47207 o|inlining procedure: "(irregex-core.scm:3697) chicken.irregex#range->cset"
47208 o|inlining procedure: "(irregex-core.scm:3738) chicken.irregex#range->cset"
47209 o|inlining procedure: "(irregex-core.scm:3739) chicken.irregex#range->cset"
47210 o|inlining procedure: "(irregex-core.scm:3802) chicken.irregex#char->cset"
47211 o|inlining procedure: k27570
47212 o|inlining procedure: k27570
47213 o|inlining procedure: "(irregex-core.scm:3879) chicken.irregex#range->cset"
47214 o|inlining procedure: "(irregex-core.scm:3921) chicken.irregex#flag-set?"
47215 o|contracted procedure: k27817
47216 o|inlining procedure: k27870
47217 o|inlining procedure: k27884
47218 o|inlining procedure: k27898
47219 o|inlining procedure: k27898
47220 o|inlining procedure: k27925
47221 o|inlining procedure: "(irregex-core.scm:3959) chicken.irregex#flag-set?"
47222 o|contracted procedure: k28051
47223 o|contracted procedure: k28247
47224 o|contracted procedure: k28298
47225 o|contracted procedure: k28470
47226 o|contracted procedure: k28487
47227 o|contracted procedure: k28534
47228 o|contracted procedure: k28677
47229 o|contracted procedure: k28698
47230 o|inlining procedure: k28797
47231 o|inlining procedure: k29092
47232 o|inlining procedure: k29137
47233 o|inlining procedure: k29023
47234 o|replaced variables: 4
47235 o|removed binding forms: 1105
47236 o|substituted constant variable: r804633518
47237 o|substituted constant variable: r804633521
47238 o|removed side-effect free assignment to unused variable: chicken.irregex#flag-set?
47239 o|substituted constant variable: b128733557
47240 o|substituted constant variable: b128733557
47241 o|substituted constant variable: b128733561
47242 o|substituted constant variable: b128733561
47243 o|substituted constant variable: chicken.irregex#~single-line?
47244 o|substituted constant variable: chicken.irregex#~single-line?
47245 o|substituted constant variable: b128733569
47246 o|substituted constant variable: b128733569
47247 o|substituted constant variable: b128733573
47248 o|substituted constant variable: b128733573
47249 o|substituted constant variable: b128733577
47250 o|substituted constant variable: b128733577
47251 o|inlining procedure: k10354
47252 o|substituted constant variable: i128333583
47253 o|substituted constant variable: i128333583
47254 o|substituted constant variable: i128333591
47255 o|substituted constant variable: i128333591
47256 o|substituted constant variable: i128333605
47257 o|substituted constant variable: i128333605
47258 o|substituted constant variable: i128333611
47259 o|substituted constant variable: i128333611
47260 o|substituted constant variable: r1094333617
47261 o|substituted constant variable: r1094333621
47262 o|substituted constant variable: i128333627
47263 o|substituted constant variable: i128333627
47264 o|substituted constant variable: b128733633
47265 o|substituted constant variable: b128733633
47266 o|substituted constant variable: b129133637
47267 o|substituted constant variable: b129133643
47268 o|substituted constant variable: b129133649
47269 o|substituted constant variable: b129133655
47270 o|substituted constant variable: b129133661
47271 o|substituted constant variable: b129133667
47272 o|substituted constant variable: b129133673
47273 o|substituted constant variable: b129133679
47274 o|substituted constant variable: b129133685
47275 o|substituted constant variable: b129133691
47276 o|substituted constant variable: i128333707
47277 o|substituted constant variable: i128333707
47278 o|substituted constant variable: i128333713
47279 o|substituted constant variable: i128333713
47280 o|substituted constant variable: ch541533721
47281 o|substituted constant variable: ch541533721
47282 o|substituted constant variable: ch541533721
47283 o|substituted constant variable: i128333732
47284 o|substituted constant variable: i128333732
47285 o|substituted constant variable: ch541533765
47286 o|substituted constant variable: ch541533765
47287 o|substituted constant variable: ch541533765
47288 o|substituted constant variable: ch520033824
47289 o|substituted constant variable: ch520033824
47290 o|substituted constant variable: i128333830
47291 o|substituted constant variable: i128333830
47292 o|substituted constant variable: i128333838
47293 o|substituted constant variable: i128333838
47294 o|substituted constant variable: i128333846
47295 o|substituted constant variable: i128333846
47296 o|substituted constant variable: i128333854
47297 o|substituted constant variable: i128333854
47298 o|substituted constant variable: i128333867
47299 o|substituted constant variable: i128333867
47300 o|substituted constant variable: i128333873
47301 o|substituted constant variable: i128333873
47302 o|substituted constant variable: i128333879
47303 o|substituted constant variable: i128333879
47304 o|substituted constant variable: i128333885
47305 o|substituted constant variable: i128333885
47306 o|substituted constant variable: r8891
47307 o|removed side-effect free assignment to unused variable: chicken.irregex#utf8-start-char->length
47308 o|contracted procedure: k14707
47309 o|contracted procedure: k15109
47310 o|substituted constant variable: r1512933903
47311 o|folded constant expression: (scheme#integer->char (quote 127))
47312 o|substituted constant variable: r1512933904
47313 o|folded constant expression: (scheme#integer->char (quote 223))
47314 o|substituted constant variable: r1512933905
47315 o|folded constant expression: (scheme#integer->char (quote 239))
47316 o|substituted constant variable: r1512933906
47317 o|folded constant expression: (scheme#integer->char (quote 247))
47318 o|contracted procedure: k15212
47319 o|contracted procedure: k15350
47320 o|substituted constant variable: r1536233918
47321 o|substituted constant variable: r1536233919
47322 o|contracted procedure: k15441
47323 o|contracted procedure: k16206
47324 o|substituted constant variable: i128333938
47325 o|substituted constant variable: i128333938
47326 o|substituted constant variable: i128333944
47327 o|substituted constant variable: i128333944
47328 o|substituted constant variable: b129133950
47329 o|substituted constant variable: b128733956
47330 o|substituted constant variable: b128733956
47331 o|substituted constant variable: b128733960
47332 o|substituted constant variable: b128733960
47333 o|substituted constant variable: b129133964
47334 o|substituted constant variable: i128333972
47335 o|substituted constant variable: i128333972
47336 o|substituted constant variable: i128333982
47337 o|substituted constant variable: i128333982
47338 o|substituted constant variable: b128733990
47339 o|substituted constant variable: b128733990
47340 o|substituted constant variable: b128733994
47341 o|substituted constant variable: b128733994
47342 o|substituted constant variable: b128733998
47343 o|substituted constant variable: a128633997
47344 o|substituted constant variable: b128733998
47345 o|substituted constant variable: a128633997
47346 o|substituted constant variable: b128734002
47347 o|substituted constant variable: a128634001
47348 o|substituted constant variable: b128734002
47349 o|substituted constant variable: a128634001
47350 o|substituted constant variable: i128334039
47351 o|substituted constant variable: i128334039
47352 o|substituted constant variable: i128334045
47353 o|substituted constant variable: i128334045
47354 o|substituted constant variable: r1895134055
47355 o|substituted constant variable: r1896534056
47356 o|contracted procedure: k19715
47357 o|contracted procedure: k19727
47358 o|substituted constant variable: i128334079
47359 o|substituted constant variable: i128334079
47360 o|substituted constant variable: i128334087
47361 o|substituted constant variable: i128334087
47362 o|substituted constant variable: r1933334091
47363 o|substituted constant variable: r1934734092
47364 o|substituted constant variable: r19469
47365 o|folded constant expression: (scheme#+ (quote 2) (quote 0))
47366 o|substituted constant variable: r19581
47367 o|folded constant expression: (scheme#+ (quote 2) (quote 0))
47368 o|substituted constant variable: r19609
47369 o|folded constant expression: (scheme#+ (quote 2) (quote 0))
47370 o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-next-state
47371 o|substituted constant variable: r2030634103
47372 o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-num-states
47373 o|substituted constant variable: i128334143
47374 o|substituted constant variable: i128334143
47375 o|substituted constant variable: i128334151
47376 o|substituted constant variable: i128334151
47377 o|substituted constant variable: i128334157
47378 o|substituted constant variable: i128334157
47379 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-state-mappings
47380 o|substituted constant variable: state405134196
47381 o|folded constant expression: (scheme#+ (quote 0) (quote 3))
47382 o|substituted constant variable: r2337034206
47383 o|folded constant expression: (scheme#not (quote #f))
47384 o|substituted constant variable: r2337034207
47385 o|folded constant expression: (scheme#not (quote #f))
47386 o|contracted procedure: k22993
47387 o|removed side-effect free assignment to unused variable: chicken.irregex#range->cset
47388 o|removed side-effect free assignment to unused variable: chicken.irregex#char->cset
47389 o|removed side-effect free assignment to unused variable: chicken.irregex#cset-empty?
47390 o|removed side-effect free assignment to unused variable: chicken.irregex#cset-adjoin
47391 o|substituted constant variable: i128334351
47392 o|substituted constant variable: i128334351
47393 o|substituted constant variable: r27818
47394 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
47395 o|substituted constant variable: r2787134357
47396 o|substituted constant variable: r2788534358
47397 o|substituted constant variable: r2789934359
47398 o|substituted constant variable: r2789934360
47399 o|substituted constant variable: r2792634361
47400 o|substituted constant variable: i128334364
47401 o|substituted constant variable: i128334364
47402 o|substituted constant variable: r28052
47403 o|folded constant expression: (scheme#+ (quote 2) (quote 0))
47404 o|substituted constant variable: r28248
47405 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
47406 o|substituted constant variable: r28299
47407 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
47408 o|substituted constant variable: r28471
47409 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
47410 o|substituted constant variable: r28488
47411 o|substituted constant variable: r28535
47412 o|substituted constant variable: r28678
47413 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
47414 o|substituted constant variable: r28699
47415 o|folded constant expression: (scheme#+ (quote 1) (quote 0))
47416 o|substituted constant variable: r2879834374
47417 o|replaced variables: 273
47418 o|removed binding forms: 66
47419 o|removed conditional forms: 27
47420 o|removed side-effect free assignment to unused variable: chicken.irregex#~single-line?
47421 o|inlining procedure: k15124
47422 o|inlining procedure: k15124
47423 o|inlining procedure: k15124
47424 o|inlining procedure: k15124
47425 o|inlining procedure: k16249
47426 o|inlining procedure: k16279
47427 o|substituted constant variable: r19716
47428 o|substituted constant variable: r19728
47429 o|contracted procedure: k19464
47430 o|contracted procedure: k19576
47431 o|contracted procedure: k19604
47432 o|inlining procedure: k21904
47433 o|inlining procedure: k21993
47434 o|contracted procedure: k2186634199
47435 o|inlining procedure: k20533
47436 o|inlining procedure: k22119
47437 o|inlining procedure: k22076
47438 o|inlining procedure: k23040
47439 o|contracted procedure: k27813
47440 o|contracted procedure: k28047
47441 o|contracted procedure: k28243
47442 o|contracted procedure: k28294
47443 o|contracted procedure: k28466
47444 o|contracted procedure: k28673
47445 o|contracted procedure: k28694
47446 o|replaced variables: 4
47447 o|removed binding forms: 358
47448 o|substituted constant variable: r1512534719
47449 o|substituted constant variable: r1512534720
47450 o|substituted constant variable: r1512534721
47451 o|substituted constant variable: r1512534722
47452 o|substituted constant variable: r19465
47453 o|substituted constant variable: r19577
47454 o|substituted constant variable: r19605
47455 o|substituted constant variable: r2186734197
47456 o|substituted constant variable: r27814
47457 o|substituted constant variable: r28048
47458 o|substituted constant variable: r28244
47459 o|substituted constant variable: r28295
47460 o|substituted constant variable: r28467
47461 o|substituted constant variable: r28674
47462 o|substituted constant variable: r28695
47463 o|removed binding forms: 14
47464 o|removed binding forms: 15
47465 o|simplifications: ((let . 234) (if . 172) (##core#call . 2979))
47466 o|  call simplifications:
47467 o|    ##sys#check-string
47468 o|    chicken.fixnum#fx>	2
47469 o|    scheme#write-char
47470 o|    scheme#list->string	2
47471 o|    scheme#char>?	5
47472 o|    scheme#char<=?	2
47473 o|    scheme#char>=?	3
47474 o|    scheme#quotient
47475 o|    scheme#assoc	4
47476 o|    scheme#modulo	3
47477 o|    scheme#memv	4
47478 o|    scheme#char?	11
47479 o|    scheme#char=?	7
47480 o|    scheme#cdddr	9
47481 o|    scheme#cadddr	2
47482 o|    scheme#symbol?	7
47483 o|    scheme#caddr	14
47484 o|    scheme#vector-set!	63
47485 o|    chicken.fixnum#fx+	2
47486 o|    chicken.fixnum#fxmod
47487 o|    ##sys#setislot
47488 o|    scheme#length	6
47489 o|    ##sys#check-list	32
47490 o|    chicken.fixnum#fxshr	6
47491 o|    chicken.fixnum#fxshl	6
47492 o|    chicken.fixnum#fx<=	8
47493 o|    scheme#integer->char	27
47494 o|    scheme#char-upper-case?
47495 o|    scheme#char-upcase
47496 o|    scheme#char-downcase
47497 o|    scheme#equal?	9
47498 o|    scheme#assv	4
47499 o|    scheme#char<?	7
47500 o|    scheme#string	10
47501 o|    ##sys#cons	117
47502 o|    scheme#cddr	31
47503 o|    scheme#cadr	64
47504 o|    scheme#>	11
47505 o|    scheme#char->integer	19
47506 o|    chicken.fixnum#fx<
47507 o|    chicken.fixnum#fx>=
47508 o|    scheme#string->list	7
47509 o|    ##sys#setslot	34
47510 o|    ##sys#list	179
47511 o|    scheme#string?	23
47512 o|    scheme#char-whitespace?	2
47513 o|    chicken.fixnum#fxnot	14
47514 o|    chicken.fixnum#fxand	58
47515 o|    chicken.fixnum#fxior	21
47516 o|    scheme#car	78
47517 o|    scheme#<=	5
47518 o|    scheme#char-alphabetic?	7
47519 o|    scheme#char-numeric?	5
47520 o|    scheme#=	66
47521 o|    scheme#-	20
47522 o|    scheme#string-ref	68
47523 o|    scheme#string-length	24
47524 o|    scheme#list	49
47525 o|    scheme#cons	223
47526 o|    scheme#procedure?	10
47527 o|    scheme#vector	26
47528 o|    scheme#vector-ref	170
47529 o|    scheme#assq	13
47530 o|    scheme#not	100
47531 o|    scheme#cdr	60
47532 o|    scheme#pair?	124
47533 o|    scheme#number?	13
47534 o|    scheme#null?	65
47535 o|    scheme#caar	26
47536 o|    scheme#eq?	433
47537 o|    scheme#cdar	15
47538 o|    scheme#exact?	8
47539 o|    scheme#>=	27
47540 o|    scheme#<	21
47541 o|    scheme#apply	16
47542 o|    scheme#*	52
47543 o|    scheme#+	148
47544 o|    ##sys#size	8
47545 o|    chicken.fixnum#fx/
47546 o|    ##sys#make-structure	4
47547 o|    ##sys#check-structure	6
47548 o|    ##sys#slot	220
47549 o|    ##sys#structure?	3
47550 o|    scheme#vector-length	20
47551 o|contracted procedure: k7549
47552 o|contracted procedure: k7597
47553 o|contracted procedure: k7615
47554 o|contracted procedure: k7632
47555 o|contracted procedure: k7647
47556 o|contracted procedure: k7659
47557 o|contracted procedure: k7670
47558 o|contracted procedure: k7674
47559 o|contracted procedure: k7678
47560 o|contracted procedure: k7682
47561 o|contracted procedure: k7694
47562 o|contracted procedure: k7707
47563 o|contracted procedure: k7703
47564 o|contracted procedure: k7698
47565 o|contracted procedure: k7719
47566 o|contracted procedure: k7738
47567 o|contracted procedure: k7746
47568 o|contracted procedure: k7742
47569 o|contracted procedure: k7792
47570 o|contracted procedure: k7796
47571 o|contracted procedure: k7817
47572 o|contracted procedure: k7825
47573 o|contracted procedure: k7821
47574 o|contracted procedure: k7846
47575 o|contracted procedure: k7854
47576 o|contracted procedure: k7850
47577 o|contracted procedure: k7959
47578 o|contracted procedure: k8130
47579 o|contracted procedure: k7968
47580 o|contracted procedure: k8126
47581 o|contracted procedure: k7974
47582 o|contracted procedure: k7984
47583 o|contracted procedure: k7990
47584 o|contracted procedure: k8028
47585 o|contracted procedure: k8042
47586 o|contracted procedure: k8038
47587 o|contracted procedure: k8034
47588 o|contracted procedure: k7998
47589 o|contracted procedure: k8004
47590 o|substituted constant variable: g35658
47591 o|contracted procedure: k8011
47592 o|contracted procedure: k8016
47593 o|contracted procedure: k8071
47594 o|contracted procedure: k8122
47595 o|contracted procedure: k8083
47596 o|contracted procedure: k8095
47597 o|contracted procedure: k8099
47598 o|contracted procedure: k8102
47599 o|contracted procedure: k8184
47600 o|contracted procedure: k8150
47601 o|contracted procedure: k8158
47602 o|contracted procedure: k8164
47603 o|substituted constant variable: g35664
47604 o|contracted procedure: k8171
47605 o|contracted procedure: k8176
47606 o|contracted procedure: k7770
47607 o|contracted procedure: k8190
47608 o|contracted procedure: k8206
47609 o|contracted procedure: k8212
47610 o|contracted procedure: k8225
47611 o|contracted procedure: k8229
47612 o|contracted procedure: k8232
47613 o|contracted procedure: k8242
47614 o|contracted procedure: k8250
47615 o|contracted procedure: k8246
47616 o|contracted procedure: k8253
47617 o|contracted procedure: k8263
47618 o|contracted procedure: k8271
47619 o|contracted procedure: k8267
47620 o|contracted procedure: k8274
47621 o|contracted procedure: k8287
47622 o|contracted procedure: k8290
47623 o|contracted procedure: k8296
47624 o|contracted procedure: k8315
47625 o|contracted procedure: k8319
47626 o|contracted procedure: k8322
47627 o|contracted procedure: k8332
47628 o|contracted procedure: k8340
47629 o|contracted procedure: k8336
47630 o|contracted procedure: k8343
47631 o|contracted procedure: k8353
47632 o|contracted procedure: k8361
47633 o|contracted procedure: k8357
47634 o|contracted procedure: k8364
47635 o|contracted procedure: k8566
47636 o|contracted procedure: k8374
47637 o|contracted procedure: k8377
47638 o|contracted procedure: k8560
47639 o|contracted procedure: k8380
47640 o|contracted procedure: k8556
47641 o|contracted procedure: k8383
47642 o|contracted procedure: k8386
47643 o|contracted procedure: k8543
47644 o|contracted procedure: k8389
47645 o|contracted procedure: k8539
47646 o|contracted procedure: k8392
47647 o|contracted procedure: k8395
47648 o|contracted procedure: k8451
47649 o|contracted procedure: k8469
47650 o|contracted procedure: k8478
47651 o|contracted procedure: k8485
47652 o|contracted procedure: k8508
47653 o|contracted procedure: k8442
47654 o|contracted procedure: k8398
47655 o|contracted procedure: k8438
47656 o|contracted procedure: k8401
47657 o|contracted procedure: k8420
47658 o|contracted procedure: k8426
47659 o|contracted procedure: k8432
47660 o|contracted procedure: k8417
47661 o|contracted procedure: k8652
47662 o|contracted procedure: k8663
47663 o|contracted procedure: k8659
47664 o|contracted procedure: k8612
47665 o|contracted procedure: k8615
47666 o|contracted procedure: k8630
47667 o|contracted procedure: k8672
47668 o|contracted procedure: k8685
47669 o|contracted procedure: k8692
47670 o|contracted procedure: k8812
47671 o|contracted procedure: k8819
47672 o|contracted procedure: k8855
47673 o|contracted procedure: k8826
47674 o|contracted procedure: k8835
47675 o|contracted procedure: k8852
47676 o|contracted procedure: k8841
47677 o|contracted procedure: k9026
47678 o|contracted procedure: k9142
47679 o|contracted procedure: k9146
47680 o|contracted procedure: k9149
47681 o|contracted procedure: k9124
47682 o|contracted procedure: k9163
47683 o|substituted constant variable: g35678
47684 o|contracted procedure: k9170
47685 o|contracted procedure: k9187
47686 o|contracted procedure: k9191
47687 o|contracted procedure: k9206
47688 o|contracted procedure: k9222
47689 o|contracted procedure: k9290
47690 o|contracted procedure: k9261
47691 o|contracted procedure: k9286
47692 o|contracted procedure: k9276
47693 o|contracted procedure: k9299
47694 o|contracted procedure: k9315
47695 o|contracted procedure: k9331
47696 o|contracted procedure: k9339
47697 o|contracted procedure: k9349
47698 o|contracted procedure: k9360
47699 o|contracted procedure: k9376
47700 o|contracted procedure: k9393
47701 o|contracted procedure: k9400
47702 o|contracted procedure: k9727
47703 o|contracted procedure: k9734
47704 o|contracted procedure: k9742
47705 o|contracted procedure: k9751
47706 o|contracted procedure: k9757
47707 o|contracted procedure: k9763
47708 o|contracted procedure: k9784
47709 o|contracted procedure: k9797
47710 o|contracted procedure: k9803
47711 o|contracted procedure: k9852
47712 o|contracted procedure: k9824
47713 o|contracted procedure: k9842
47714 o|contracted procedure: k9848
47715 o|contracted procedure: k9859
47716 o|contracted procedure: k9865
47717 o|contracted procedure: k9877
47718 o|contracted procedure: k9892
47719 o|contracted procedure: k9902
47720 o|contracted procedure: k9909
47721 o|contracted procedure: k9917
47722 o|contracted procedure: k9923
47723 o|contracted procedure: k9926
47724 o|contracted procedure: k9953
47725 o|contracted procedure: k9948
47726 o|contracted procedure: k9938
47727 o|contracted procedure: k9945
47728 o|contracted procedure: k9959
47729 o|contracted procedure: k9965
47730 o|contracted procedure: k9968
47731 o|contracted procedure: k9981
47732 o|contracted procedure: k9988
47733 o|contracted procedure: k9996
47734 o|contracted procedure: k10008
47735 o|contracted procedure: k10029
47736 o|contracted procedure: k10042
47737 o|contracted procedure: k10048
47738 o|contracted procedure: k10054
47739 o|contracted procedure: k10074
47740 o|contracted procedure: k10103
47741 o|contracted procedure: k10106
47742 o|contracted procedure: k10112
47743 o|contracted procedure: k10130
47744 o|contracted procedure: k10149
47745 o|contracted procedure: k10155
47746 o|contracted procedure: k10163
47747 o|contracted procedure: k10180
47748 o|contracted procedure: k10183
47749 o|contracted procedure: k10198
47750 o|contracted procedure: k10190
47751 o|contracted procedure: k10224
47752 o|contracted procedure: k10245
47753 o|contracted procedure: k10271
47754 o|contracted procedure: k10274
47755 o|contracted procedure: k10277
47756 o|contracted procedure: k10316
47757 o|contracted procedure: k10451
47758 o|contracted procedure: k10343
47759 o|contracted procedure: k10350
47760 o|contracted procedure: k10362
47761 o|inlining procedure: k10354
47762 o|contracted procedure: k10371
47763 o|contracted procedure: k10374
47764 o|inlining procedure: k10354
47765 o|contracted procedure: k10380
47766 o|contracted procedure: k10383
47767 o|contracted procedure: k10389
47768 o|contracted procedure: k10392
47769 o|contracted procedure: k10398
47770 o|contracted procedure: k10401
47771 o|contracted procedure: k10435
47772 o|contracted procedure: k10460
47773 o|contracted procedure: k10472
47774 o|contracted procedure: k970833586
47775 o|contracted procedure: k10500
47776 o|substituted constant variable: g35711
47777 o|contracted procedure: k10490
47778 o|contracted procedure: k970833594
47779 o|contracted procedure: k10512
47780 o|substituted constant variable: g35715
47781 o|contracted procedure: k10519
47782 o|contracted procedure: k10534
47783 o|contracted procedure: k10537
47784 o|contracted procedure: k10540
47785 o|contracted procedure: k10548
47786 o|contracted procedure: k10556
47787 o|contracted procedure: k10568
47788 o|contracted procedure: k970833608
47789 o|contracted procedure: k10585
47790 o|substituted constant variable: g35729
47791 o|contracted procedure: k10594
47792 o|contracted procedure: k10603
47793 o|contracted procedure: k10613
47794 o|contracted procedure: k10632
47795 o|inlining procedure: k10625
47796 o|contracted procedure: k10645
47797 o|contracted procedure: k14229
47798 o|substituted constant variable: g35724
47799 o|contracted procedure: k14258
47800 o|contracted procedure: k14232
47801 o|contracted procedure: k14238
47802 o|contracted procedure: k14241
47803 o|substituted constant variable: g35728
47804 o|contracted procedure: k10688
47805 o|contracted procedure: k970833614
47806 o|contracted procedure: k10780
47807 o|substituted constant variable: g35731
47808 o|contracted procedure: k10694
47809 o|contracted procedure: k10777
47810 o|contracted procedure: k10703
47811 o|contracted procedure: k10766
47812 o|contracted procedure: k10709
47813 o|contracted procedure: k10716
47814 o|contracted procedure: k10723
47815 o|contracted procedure: k10730
47816 o|contracted procedure: k10756
47817 o|contracted procedure: k10773
47818 o|contracted procedure: k10817
47819 o|contracted procedure: k10793
47820 o|contracted procedure: k10811
47821 o|contracted procedure: k10824
47822 o|contracted procedure: k10832
47823 o|contracted procedure: k10843
47824 o|contracted procedure: k10857
47825 o|contracted procedure: k10871
47826 o|contracted procedure: k10875
47827 o|contracted procedure: k10879
47828 o|contracted procedure: k10894
47829 o|contracted procedure: k10904
47830 o|contracted procedure: k10910
47831 o|contracted procedure: k10919
47832 o|contracted procedure: k10925
47833 o|contracted procedure: k970833630
47834 o|contracted procedure: k10949
47835 o|substituted constant variable: g35735
47836 o|inlining procedure: k10938
47837 o|inlining procedure: k10938
47838 o|contracted procedure: k10955
47839 o|contracted procedure: k10964
47840 o|contracted procedure: k10970
47841 o|contracted procedure: k10983
47842 o|contracted procedure: k10992
47843 o|contracted procedure: k10999
47844 o|contracted procedure: k11010
47845 o|contracted procedure: k11021
47846 o|contracted procedure: k11017
47847 o|contracted procedure: k11029
47848 o|contracted procedure: k11040
47849 o|contracted procedure: k11051
47850 o|contracted procedure: k11062
47851 o|contracted procedure: k11058
47852 o|contracted procedure: k11070
47853 o|contracted procedure: k11081
47854 o|contracted procedure: k11085
47855 o|contracted procedure: k11077
47856 o|contracted procedure: k11112
47857 o|contracted procedure: k11115
47858 o|contracted procedure: k11170
47859 o|contracted procedure: k11121
47860 o|contracted procedure: k11159
47861 o|contracted procedure: k11163
47862 o|contracted procedure: k11155
47863 o|contracted procedure: k11167
47864 o|contracted procedure: k11177
47865 o|contracted procedure: k11943
47866 o|contracted procedure: k11193
47867 o|contracted procedure: k11206
47868 o|contracted procedure: k11934
47869 o|contracted procedure: k11226
47870 o|contracted procedure: k11292
47871 o|contracted procedure: k11232
47872 o|contracted procedure: k11247
47873 o|contracted procedure: k11260
47874 o|contracted procedure: k11264
47875 o|contracted procedure: k11268
47876 o|contracted procedure: k11284
47877 o|contracted procedure: k11279
47878 o|contracted procedure: k11298
47879 o|contracted procedure: k11304
47880 o|contracted procedure: k11314
47881 o|contracted procedure: k11318
47882 o|contracted procedure: k11331
47883 o|contracted procedure: k972733640
47884 o|contracted procedure: k11344
47885 o|contracted procedure: k11354
47886 o|contracted procedure: k972733646
47887 o|contracted procedure: k11367
47888 o|contracted procedure: k11377
47889 o|contracted procedure: k972733652
47890 o|contracted procedure: k11390
47891 o|contracted procedure: k11400
47892 o|contracted procedure: k11413
47893 o|contracted procedure: k11419
47894 o|contracted procedure: k972733658
47895 o|contracted procedure: k11432
47896 o|contracted procedure: k11442
47897 o|contracted procedure: k972733664
47898 o|contracted procedure: k11455
47899 o|contracted procedure: k11472
47900 o|contracted procedure: k11476
47901 o|contracted procedure: k972733670
47902 o|contracted procedure: k11480
47903 o|contracted procedure: k11484
47904 o|contracted procedure: k11515
47905 o|contracted procedure: k11505
47906 o|contracted procedure: k11531
47907 o|contracted procedure: k972733676
47908 o|contracted procedure: k11544
47909 o|contracted procedure: k11554
47910 o|contracted procedure: k11687
47911 o|contracted procedure: k11570
47912 o|contracted procedure: k11582
47913 o|contracted procedure: k972733682
47914 o|contracted procedure: k11598
47915 o|contracted procedure: k11602
47916 o|contracted procedure: k11680
47917 o|contracted procedure: k11622
47918 o|contracted procedure: k972733688
47919 o|contracted procedure: k11641
47920 o|contracted procedure: k11645
47921 o|contracted procedure: k972733694
47922 o|contracted procedure: k11672
47923 o|contracted procedure: k11696
47924 o|contracted procedure: k972733700
47925 o|contracted procedure: k970833716
47926 o|contracted procedure: k11723
47927 o|substituted constant variable: g35741
47928 o|contracted procedure: k970833710
47929 o|contracted procedure: k11726
47930 o|substituted constant variable: g35739
47931 o|contracted procedure: k11732
47932 o|contracted procedure: k11745
47933 o|contracted procedure: k11751
47934 o|contracted procedure: k11757
47935 o|contracted procedure: k11773
47936 o|contracted procedure: k11789
47937 o|contracted procedure: k11805
47938 o|contracted procedure: k11830
47939 o|contracted procedure: k11840
47940 o|contracted procedure: k11846
47941 o|contracted procedure: k11869
47942 o|contracted procedure: k11890
47943 o|contracted procedure: k11886
47944 o|contracted procedure: k11953
47945 o|contracted procedure: k11959
47946 o|contracted procedure: k11975
47947 o|contracted procedure: k11989
47948 o|contracted procedure: k11979
47949 o|contracted procedure: k11995
47950 o|contracted procedure: k12008
47951 o|contracted procedure: k12012
47952 o|contracted procedure: k12016
47953 o|contracted procedure: k13394
47954 o|contracted procedure: k970833841
47955 o|contracted procedure: k13400
47956 o|substituted constant variable: g35765
47957 o|contracted procedure: k13409
47958 o|contracted procedure: k13415
47959 o|contracted procedure: k13421
47960 o|contracted procedure: k2627933740
47961 o|contracted procedure: k13427
47962 o|contracted procedure: k2626933729
47963 o|contracted procedure: k2724733724
47964 o|contracted procedure: k970833735
47965 o|contracted procedure: k13440
47966 o|substituted constant variable: g35747
47967 o|contracted procedure: k13450
47968 o|contracted procedure: k26945
47969 o|contracted procedure: k26949
47970 o|contracted procedure: k13466
47971 o|contracted procedure: k13472
47972 o|contracted procedure: k2626933751
47973 o|contracted procedure: k2724733746
47974 o|contracted procedure: k13491
47975 o|contracted procedure: k13497
47976 o|contracted procedure: k13509
47977 o|contracted procedure: k2625933757
47978 o|contracted procedure: k13523
47979 o|contracted procedure: k13613
47980 o|contracted procedure: k13527
47981 o|contracted procedure: k13539
47982 o|contracted procedure: k13543
47983 o|contracted procedure: k1402533762
47984 o|contracted procedure: k13567
47985 o|contracted procedure: k13578
47986 o|inlining procedure: k13530
47987 o|inlining procedure: k13530
47988 o|contracted procedure: k13594
47989 o|substituted constant variable: g35749
47990 o|substituted constant variable: g35751
47991 o|contracted procedure: k13597
47992 o|contracted procedure: k13604
47993 o|contracted procedure: k13635
47994 o|contracted procedure: k13653
47995 o|contracted procedure: k13641
47996 o|contracted procedure: k13649
47997 o|contracted procedure: k13659
47998 o|contracted procedure: k13778
47999 o|contracted procedure: k13662
48000 o|contracted procedure: k13665
48001 o|contracted procedure: k13668
48002 o|contracted procedure: k13674
48003 o|contracted procedure: k13683
48004 o|contracted procedure: k13735
48005 o|contracted procedure: k13731
48006 o|contracted procedure: k13726
48007 o|contracted procedure: k13744
48008 o|contracted procedure: k13747
48009 o|contracted procedure: k2626933773
48010 o|contracted procedure: k2724733768
48011 o|contracted procedure: k13787
48012 o|contracted procedure: k13790
48013 o|contracted procedure: k13796
48014 o|contracted procedure: k13821
48015 o|contracted procedure: k13827
48016 o|contracted procedure: k2626933784
48017 o|contracted procedure: k2724733779
48018 o|contracted procedure: k13850
48019 o|contracted procedure: k13853
48020 o|contracted procedure: k2626933795
48021 o|contracted procedure: k2724733790
48022 o|contracted procedure: k13871
48023 o|contracted procedure: k13877
48024 o|contracted procedure: k13883
48025 o|contracted procedure: k13889
48026 o|contracted procedure: k1402533811
48027 o|contracted procedure: k13919
48028 o|contracted procedure: k13926
48029 o|contracted procedure: k2626933806
48030 o|contracted procedure: k2724733801
48031 o|contracted procedure: k2626933822
48032 o|contracted procedure: k2724733817
48033 o|contracted procedure: k13955
48034 o|substituted constant variable: g35756
48035 o|substituted constant variable: g35758
48036 o|contracted procedure: k13973
48037 o|contracted procedure: k970833833
48038 o|contracted procedure: k13980
48039 o|substituted constant variable: g35761
48040 o|contracted procedure: k2626933827
48041 o|inlining procedure: k13977
48042 o|inlining procedure: k13977
48043 o|contracted procedure: k13993
48044 o|contracted procedure: k13996
48045 o|contracted procedure: k14004
48046 o|contracted procedure: k12033
48047 o|contracted procedure: k12058
48048 o|contracted procedure: k12064
48049 o|contracted procedure: k12083
48050 o|contracted procedure: k12095
48051 o|contracted procedure: k12112
48052 o|contracted procedure: k12108
48053 o|contracted procedure: k12132
48054 o|contracted procedure: k12128
48055 o|contracted procedure: k12149
48056 o|contracted procedure: k12145
48057 o|contracted procedure: k12157
48058 o|contracted procedure: k12174
48059 o|contracted procedure: k12170
48060 o|contracted procedure: k12163
48061 o|contracted procedure: k12179
48062 o|contracted procedure: k12186
48063 o|contracted procedure: k12192
48064 o|contracted procedure: k8961
48065 o|contracted procedure: k8983
48066 o|contracted procedure: k9020
48067 o|contracted procedure: k8996
48068 o|contracted procedure: k12227
48069 o|contracted procedure: k12209
48070 o|contracted procedure: k12220
48071 o|contracted procedure: k12212
48072 o|contracted procedure: k12236
48073 o|contracted procedure: k12249
48074 o|contracted procedure: k12255
48075 o|contracted procedure: k12268
48076 o|contracted procedure: k12278
48077 o|contracted procedure: k12295
48078 o|contracted procedure: k12291
48079 o|contracted procedure: k12305
48080 o|contracted procedure: k12318
48081 o|contracted procedure: k12328
48082 o|contracted procedure: k12345
48083 o|contracted procedure: k12341
48084 o|contracted procedure: k12355
48085 o|contracted procedure: k12380
48086 o|contracted procedure: k12372
48087 o|contracted procedure: k12368
48088 o|contracted procedure: k12386
48089 o|contracted procedure: k12415
48090 o|contracted procedure: k12411
48091 o|contracted procedure: k12403
48092 o|contracted procedure: k12399
48093 o|contracted procedure: k12421
48094 o|contracted procedure: k12438
48095 o|contracted procedure: k12434
48096 o|contracted procedure: k12448
48097 o|contracted procedure: k12461
48098 o|contracted procedure: k12471
48099 o|contracted procedure: k12484
48100 o|contracted procedure: k12494
48101 o|contracted procedure: k12511
48102 o|contracted procedure: k12515
48103 o|contracted procedure: k12507
48104 o|contracted procedure: k12525
48105 o|contracted procedure: k12538
48106 o|contracted procedure: k12548
48107 o|contracted procedure: k12561
48108 o|contracted procedure: k12571
48109 o|contracted procedure: k12584
48110 o|contracted procedure: k12594
48111 o|contracted procedure: k12607
48112 o|contracted procedure: k12617
48113 o|contracted procedure: k12630
48114 o|contracted procedure: k12640
48115 o|contracted procedure: k12653
48116 o|contracted procedure: k12657
48117 o|contracted procedure: k12661
48118 o|contracted procedure: k12678
48119 o|contracted procedure: k12681
48120 o|contracted procedure: k12687
48121 o|contracted procedure: k970833849
48122 o|contracted procedure: k12741
48123 o|substituted constant variable: g35773
48124 o|contracted procedure: k12702
48125 o|contracted procedure: k12708
48126 o|contracted procedure: k12718
48127 o|contracted procedure: k12722
48128 o|contracted procedure: k12730
48129 o|contracted procedure: k12726
48130 o|contracted procedure: k13265
48131 o|contracted procedure: k13271
48132 o|contracted procedure: k13277
48133 o|contracted procedure: k13283
48134 o|contracted procedure: k12762
48135 o|contracted procedure: k12780
48136 o|contracted procedure: k12787
48137 o|contracted procedure: k12862
48138 o|contracted procedure: k12793
48139 o|contracted procedure: k12810
48140 o|contracted procedure: k12848
48141 o|contracted procedure: k12816
48142 o|contracted procedure: k12829
48143 o|contracted procedure: k12837
48144 o|contracted procedure: k12868
48145 o|contracted procedure: k12884
48146 o|contracted procedure: k12894
48147 o|contracted procedure: k12900
48148 o|contracted procedure: k970833857
48149 o|contracted procedure: k12931
48150 o|substituted constant variable: g35779
48151 o|contracted procedure: k12903
48152 o|contracted procedure: k12913
48153 o|contracted procedure: k12906
48154 o|contracted procedure: k8919
48155 o|contracted procedure: k8954
48156 o|contracted procedure: k8926
48157 o|contracted procedure: k8935
48158 o|contracted procedure: k8951
48159 o|contracted procedure: k1294133862
48160 o|contracted procedure: k8941
48161 o|contracted procedure: k12950
48162 o|contracted procedure: k12953
48163 o|contracted procedure: k12973
48164 o|contracted procedure: k12969
48165 o|contracted procedure: k13040
48166 o|contracted procedure: k13053
48167 o|contracted procedure: k13063
48168 o|contracted procedure: k970833870
48169 o|contracted procedure: k13086
48170 o|substituted constant variable: g35785
48171 o|contracted procedure: k13066
48172 o|contracted procedure: k13079
48173 o|contracted procedure: k13092
48174 o|contracted procedure: k970833876
48175 o|contracted procedure: k13115
48176 o|substituted constant variable: g35787
48177 o|contracted procedure: k13095
48178 o|contracted procedure: k13108
48179 o|contracted procedure: k13121
48180 o|contracted procedure: k970833882
48181 o|contracted procedure: k13127
48182 o|substituted constant variable: g35789
48183 o|contracted procedure: k13152
48184 o|contracted procedure: k970833888
48185 o|contracted procedure: k13158
48186 o|substituted constant variable: g35791
48187 o|contracted procedure: k13164
48188 o|contracted procedure: k13171
48189 o|contracted procedure: k13175
48190 o|contracted procedure: k13237
48191 o|contracted procedure: k13230
48192 o|contracted procedure: k30949
48193 o|contracted procedure: k30953
48194 o|contracted procedure: k30957
48195 o|contracted procedure: k30961
48196 o|contracted procedure: k30965
48197 o|contracted procedure: k30969
48198 o|contracted procedure: k13241
48199 o|contracted procedure: k13250
48200 o|contracted procedure: k13300
48201 o|contracted procedure: k13388
48202 o|contracted procedure: k13309
48203 o|contracted procedure: k13318
48204 o|contracted procedure: k13337
48205 o|contracted procedure: k8862
48206 o|contracted procedure: k8912
48207 o|contracted procedure: k8869
48208 o|contracted procedure: k8878
48209 o|contracted procedure: k8909
48210 o|contracted procedure: k8884
48211 o|contracted procedure: k13352
48212 o|contracted procedure: k13371
48213 o|contracted procedure: k14015
48214 o|contracted procedure: k14038
48215 o|contracted procedure: k14044
48216 o|contracted procedure: k14053
48217 o|contracted procedure: k14077
48218 o|contracted procedure: k14061
48219 o|contracted procedure: k14065
48220 o|contracted procedure: k14073
48221 o|contracted procedure: k14087
48222 o|contracted procedure: k14130
48223 o|contracted procedure: k14098
48224 o|contracted procedure: k14118
48225 o|contracted procedure: k14102
48226 o|contracted procedure: k14106
48227 o|contracted procedure: k14094
48228 o|contracted procedure: k14114
48229 o|contracted procedure: k14126
48230 o|contracted procedure: k14140
48231 o|contracted procedure: k14199
48232 o|contracted procedure: k14151
48233 o|contracted procedure: k14187
48234 o|contracted procedure: k14155
48235 o|contracted procedure: k14175
48236 o|contracted procedure: k14159
48237 o|contracted procedure: k14163
48238 o|contracted procedure: k14147
48239 o|contracted procedure: k14171
48240 o|contracted procedure: k14183
48241 o|contracted procedure: k14195
48242 o|contracted procedure: k14267
48243 o|contracted procedure: k14273
48244 o|contracted procedure: k14279
48245 o|contracted procedure: k14285
48246 o|contracted procedure: k14340
48247 o|contracted procedure: k14346
48248 o|contracted procedure: k14355
48249 o|contracted procedure: k14374
48250 o|contracted procedure: k14362
48251 o|contracted procedure: k14370
48252 o|contracted procedure: k14366
48253 o|contracted procedure: k14380
48254 o|contracted procedure: k14411
48255 o|contracted procedure: k14387
48256 o|contracted procedure: k14407
48257 o|contracted procedure: k14403
48258 o|contracted procedure: k14391
48259 o|contracted procedure: k14399
48260 o|contracted procedure: k14395
48261 o|contracted procedure: k14417
48262 o|contracted procedure: k14460
48263 o|contracted procedure: k14424
48264 o|contracted procedure: k14456
48265 o|contracted procedure: k14452
48266 o|contracted procedure: k14428
48267 o|contracted procedure: k14448
48268 o|contracted procedure: k14444
48269 o|contracted procedure: k14432
48270 o|contracted procedure: k14440
48271 o|contracted procedure: k14436
48272 o|contracted procedure: k14619
48273 o|contracted procedure: k14626
48274 o|contracted procedure: k14630
48275 o|contracted procedure: k14634
48276 o|contracted procedure: k14646
48277 o|contracted procedure: k14649
48278 o|contracted procedure: k14664
48279 o|contracted procedure: k14673
48280 o|contracted procedure: k14656
48281 o|contracted procedure: k14685
48282 o|contracted procedure: k14703
48283 o|contracted procedure: k14688
48284 o|contracted procedure: k14691
48285 o|contracted procedure: k14699
48286 o|contracted procedure: k14721
48287 o|contracted procedure: k14743
48288 o|contracted procedure: k14739
48289 o|contracted procedure: k14724
48290 o|contracted procedure: k14727
48291 o|contracted procedure: k14735
48292 o|contracted procedure: k14887
48293 o|contracted procedure: k14762
48294 o|contracted procedure: k14758
48295 o|contracted procedure: k14788
48296 o|contracted procedure: k14784
48297 o|contracted procedure: k14780
48298 o|contracted procedure: k14792
48299 o|contracted procedure: k14796
48300 o|contracted procedure: k14808
48301 o|contracted procedure: k14814
48302 o|contracted procedure: k14829
48303 o|contracted procedure: k14825
48304 o|contracted procedure: k14821
48305 o|contracted procedure: k14842
48306 o|contracted procedure: k14864
48307 o|contracted procedure: k14860
48308 o|contracted procedure: k14845
48309 o|contracted procedure: k14848
48310 o|contracted procedure: k14856
48311 o|contracted procedure: k14871
48312 o|contracted procedure: k15026
48313 o|contracted procedure: k14901
48314 o|contracted procedure: k14897
48315 o|contracted procedure: k14927
48316 o|contracted procedure: k14923
48317 o|contracted procedure: k14919
48318 o|contracted procedure: k14931
48319 o|contracted procedure: k14935
48320 o|contracted procedure: k14947
48321 o|contracted procedure: k14953
48322 o|contracted procedure: k14968
48323 o|contracted procedure: k14964
48324 o|contracted procedure: k14960
48325 o|contracted procedure: k14981
48326 o|contracted procedure: k15003
48327 o|contracted procedure: k14999
48328 o|contracted procedure: k14984
48329 o|contracted procedure: k14987
48330 o|contracted procedure: k14995
48331 o|contracted procedure: k15010
48332 o|contracted procedure: k15484
48333 o|contracted procedure: k15502
48334 o|contracted procedure: k15509
48335 o|contracted procedure: k15499
48336 o|contracted procedure: k15573
48337 o|contracted procedure: k1401533933
48338 o|contracted procedure: k15519
48339 o|contracted procedure: k15529
48340 o|contracted procedure: k15533
48341 o|contracted procedure: k14606
48342 o|contracted procedure: k14486
48343 o|contracted procedure: k14493
48344 o|contracted procedure: k15032
48345 o|contracted procedure: k15043
48346 o|contracted procedure: k15047
48347 o|contracted procedure: k15064
48348 o|contracted procedure: k15075
48349 o|contracted procedure: k15056
48350 o|contracted procedure: k15087
48351 o|contracted procedure: k15105
48352 o|contracted procedure: k15090
48353 o|contracted procedure: k15093
48354 o|contracted procedure: k15101
48355 o|contracted procedure: k15116
48356 o|contracted procedure: k15120
48357 o|contracted procedure: k15124
48358 o|contracted procedure: k15132
48359 o|contracted procedure: k14305
48360 o|contracted procedure: k14311
48361 o|contracted procedure: k14317
48362 o|contracted procedure: k14323
48363 o|contracted procedure: k15140
48364 o|contracted procedure: k15146
48365 o|contracted procedure: k15153
48366 o|contracted procedure: k15219
48367 o|contracted procedure: k15227
48368 o|contracted procedure: k15223
48369 o|contracted procedure: k15165
48370 o|contracted procedure: k15169
48371 o|contracted procedure: k15178
48372 o|contracted procedure: k15161
48373 o|contracted procedure: k15190
48374 o|contracted procedure: k15208
48375 o|contracted procedure: k15193
48376 o|contracted procedure: k15196
48377 o|contracted procedure: k15204
48378 o|contracted procedure: k15249
48379 o|contracted procedure: k15245
48380 o|contracted procedure: k15241
48381 o|contracted procedure: k1402533913
48382 o|contracted procedure: k15237
48383 o|contracted procedure: k15258
48384 o|contracted procedure: k15261
48385 o|contracted procedure: k15264
48386 o|contracted procedure: k15272
48387 o|contracted procedure: k15280
48388 o|contracted procedure: k15288
48389 o|contracted procedure: k15374
48390 o|contracted procedure: k15357
48391 o|contracted procedure: k15368
48392 o|substituted constant variable: g35822
48393 o|contracted procedure: k15303
48394 o|contracted procedure: k15307
48395 o|contracted procedure: k15316
48396 o|contracted procedure: k15299
48397 o|contracted procedure: k15328
48398 o|contracted procedure: k15346
48399 o|contracted procedure: k15331
48400 o|contracted procedure: k15334
48401 o|contracted procedure: k15342
48402 o|contracted procedure: k14598
48403 o|contracted procedure: k14602
48404 o|contracted procedure: k14513
48405 o|contracted procedure: k14524
48406 o|contracted procedure: k14531
48407 o|inlining procedure: k14520
48408 o|contracted procedure: k14528
48409 o|inlining procedure: k14520
48410 o|contracted procedure: k14590
48411 o|contracted procedure: k14552
48412 o|contracted procedure: k14559
48413 o|contracted procedure: k14574
48414 o|contracted procedure: k15465
48415 o|contracted procedure: k15461
48416 o|contracted procedure: k15380
48417 o|contracted procedure: k15457
48418 o|contracted procedure: k15453
48419 o|contracted procedure: k15383
48420 o|contracted procedure: k15394
48421 o|contracted procedure: k15398
48422 o|contracted procedure: k15407
48423 o|contracted procedure: k15390
48424 o|contracted procedure: k15419
48425 o|contracted procedure: k15437
48426 o|contracted procedure: k15422
48427 o|contracted procedure: k15425
48428 o|contracted procedure: k15433
48429 o|contracted procedure: k15549
48430 o|contracted procedure: k15560
48431 o|contracted procedure: k15553
48432 o|contracted procedure: k15569
48433 o|contracted procedure: k1401533928
48434 o|contracted procedure: k16047
48435 o|contracted procedure: k16148
48436 o|contracted procedure: k16053
48437 o|contracted procedure: k16144
48438 o|contracted procedure: k16062
48439 o|contracted procedure: k16140
48440 o|contracted procedure: k16071
48441 o|contracted procedure: k16136
48442 o|contracted procedure: k16080
48443 o|contracted procedure: k16132
48444 o|contracted procedure: k16089
48445 o|contracted procedure: k16098
48446 o|contracted procedure: k16101
48447 o|contracted procedure: k16119
48448 o|contracted procedure: k16104
48449 o|contracted procedure: k16115
48450 o|contracted procedure: k16111
48451 o|contracted procedure: k16107
48452 o|contracted procedure: k16122
48453 o|contracted procedure: k16154
48454 o|contracted procedure: k16188
48455 o|contracted procedure: k17086
48456 o|contracted procedure: k16225
48457 o|contracted procedure: k16209
48458 o|contracted procedure: k26146
48459 o|contracted procedure: k23402
48460 o|contracted procedure: k23438
48461 o|contracted procedure: k23442
48462 o|contracted procedure: k23408
48463 o|contracted procedure: k23432
48464 o|contracted procedure: k23411
48465 o|contracted procedure: k23428
48466 o|contracted procedure: k23414
48467 o|contracted procedure: k23424
48468 o|contracted procedure: k23417
48469 o|contracted procedure: k23420
48470 o|contracted procedure: k23457
48471 o|contracted procedure: k23463
48472 o|contracted procedure: k970833941
48473 o|contracted procedure: k23476
48474 o|substituted constant variable: g35833
48475 o|contracted procedure: k23483
48476 o|contracted procedure: k970833947
48477 o|contracted procedure: k23497
48478 o|substituted constant variable: g35835
48479 o|contracted procedure: k23503
48480 o|contracted procedure: k23506
48481 o|contracted procedure: k23512
48482 o|contracted procedure: k23523
48483 o|contracted procedure: k23530
48484 o|contracted procedure: k23555
48485 o|contracted procedure: k23563
48486 o|contracted procedure: k23567
48487 o|contracted procedure: k23571
48488 o|contracted procedure: k23583
48489 o|contracted procedure: k972733953
48490 o|contracted procedure: k23594
48491 o|contracted procedure: k23602
48492 o|contracted procedure: k23613
48493 o|contracted procedure: k23621
48494 o|contracted procedure: k23632
48495 o|contracted procedure: k23640
48496 o|contracted procedure: k972733967
48497 o|contracted procedure: k23651
48498 o|contracted procedure: k23659
48499 o|contracted procedure: k23662
48500 o|contracted procedure: k23665
48501 o|contracted procedure: k23671
48502 o|contracted procedure: k23677
48503 o|contracted procedure: k23684
48504 o|contracted procedure: k23694
48505 o|contracted procedure: k23702
48506 o|contracted procedure: k23710
48507 o|contracted procedure: k23714
48508 o|contracted procedure: k23726
48509 o|contracted procedure: k23752
48510 o|contracted procedure: k23778
48511 o|contracted procedure: k23805
48512 o|contracted procedure: k23823
48513 o|contracted procedure: k23877
48514 o|contracted procedure: k23920
48515 o|contracted procedure: k23935
48516 o|contracted procedure: k23939
48517 o|contracted procedure: k23931
48518 o|contracted procedure: k23927
48519 o|contracted procedure: k23951
48520 o|contracted procedure: k23966
48521 o|contracted procedure: k23970
48522 o|contracted procedure: k23962
48523 o|contracted procedure: k23958
48524 o|contracted procedure: k23979
48525 o|contracted procedure: k23998
48526 o|contracted procedure: k24033
48527 o|contracted procedure: k24043
48528 o|contracted procedure: k24092
48529 o|contracted procedure: k24125
48530 o|contracted procedure: k24101
48531 o|contracted procedure: k24121
48532 o|contracted procedure: k24107
48533 o|contracted procedure: k24131
48534 o|contracted procedure: k24150
48535 o|contracted procedure: k24167
48536 o|contracted procedure: k24177
48537 o|contracted procedure: k24202
48538 o|contracted procedure: k24254
48539 o|contracted procedure: k24287
48540 o|contracted procedure: k24263
48541 o|contracted procedure: k24283
48542 o|contracted procedure: k24269
48543 o|contracted procedure: k24293
48544 o|contracted procedure: k24304
48545 o|contracted procedure: k24300
48546 o|contracted procedure: k24314
48547 o|contracted procedure: k24320
48548 o|contracted procedure: k24339
48549 o|contracted procedure: k24343
48550 o|contracted procedure: k24335
48551 o|contracted procedure: k24331
48552 o|contracted procedure: k24327
48553 o|contracted procedure: k24351
48554 o|contracted procedure: k24362
48555 o|contracted procedure: k24368
48556 o|contracted procedure: k24403
48557 o|contracted procedure: k24438
48558 o|contracted procedure: k24441
48559 o|contracted procedure: k24452
48560 o|contracted procedure: k24459
48561 o|contracted procedure: k24495
48562 o|contracted procedure: k24489
48563 o|contracted procedure: k24468
48564 o|contracted procedure: k24501
48565 o|contracted procedure: k8751
48566 o|contracted procedure: k8741
48567 o|contracted procedure: k8744
48568 o|contracted procedure: k8755
48569 o|contracted procedure: k8759
48570 o|contracted procedure: k8768
48571 o|contracted procedure: k8774
48572 o|contracted procedure: k8797
48573 o|contracted procedure: k8783
48574 o|contracted procedure: k8790
48575 o|contracted procedure: k8804
48576 o|contracted procedure: k8808
48577 o|contracted procedure: k24512
48578 o|contracted procedure: k24524
48579 o|contracted procedure: k24559
48580 o|contracted procedure: k24663
48581 o|contracted procedure: k24574
48582 o|contracted procedure: k24594
48583 o|contracted procedure: k24602
48584 o|contracted procedure: k24598
48585 o|contracted procedure: k24605
48586 o|contracted procedure: k24614
48587 o|contracted procedure: k24617
48588 o|contracted procedure: k24653
48589 o|contracted procedure: k24694
48590 o|contracted procedure: k24666
48591 o|contracted procedure: k24673
48592 o|contracted procedure: k24677
48593 o|contracted procedure: k24698
48594 o|contracted procedure: k24702
48595 o|contracted procedure: k24706
48596 o|contracted procedure: k24712
48597 o|contracted procedure: k24715
48598 o|contracted procedure: k24732
48599 o|contracted procedure: k24742
48600 o|contracted procedure: k24860
48601 o|contracted procedure: k24751
48602 o|contracted procedure: k24764
48603 o|contracted procedure: k24779
48604 o|contracted procedure: k24783
48605 o|contracted procedure: k24792
48606 o|contracted procedure: k24805
48607 o|contracted procedure: k24812
48608 o|contracted procedure: k24819
48609 o|contracted procedure: k24831
48610 o|contracted procedure: k24856
48611 o|contracted procedure: k24852
48612 o|contracted procedure: k24863
48613 o|contracted procedure: k970833975
48614 o|contracted procedure: k24866
48615 o|substituted constant variable: g35853
48616 o|contracted procedure: k24898
48617 o|contracted procedure: k24874
48618 o|contracted procedure: k24879
48619 o|contracted procedure: k24904
48620 o|contracted procedure: k24919
48621 o|contracted procedure: k24915
48622 o|contracted procedure: k24923
48623 o|contracted procedure: k24929
48624 o|contracted procedure: k24932
48625 o|contracted procedure: k24946
48626 o|contracted procedure: k24950
48627 o|contracted procedure: k24953
48628 o|contracted procedure: k24962
48629 o|contracted procedure: k24970
48630 o|contracted procedure: k24966
48631 o|contracted procedure: k24973
48632 o|contracted procedure: k25030
48633 o|contracted procedure: k25034
48634 o|contracted procedure: k24976
48635 o|contracted procedure: k25018
48636 o|contracted procedure: k25026
48637 o|contracted procedure: k25022
48638 o|contracted procedure: k24979
48639 o|contracted procedure: k25010
48640 o|contracted procedure: k25014
48641 o|contracted procedure: k24988
48642 o|contracted procedure: k24998
48643 o|contracted procedure: k25006
48644 o|contracted procedure: k25002
48645 o|contracted procedure: k24991
48646 o|contracted procedure: k25042
48647 o|contracted procedure: k25054
48648 o|contracted procedure: k25062
48649 o|contracted procedure: k25058
48650 o|contracted procedure: k25065
48651 o|contracted procedure: k25129
48652 o|contracted procedure: k25137
48653 o|contracted procedure: k25133
48654 o|contracted procedure: k25071
48655 o|contracted procedure: k25117
48656 o|contracted procedure: k25125
48657 o|contracted procedure: k25121
48658 o|contracted procedure: k25074
48659 o|contracted procedure: k25105
48660 o|contracted procedure: k25113
48661 o|contracted procedure: k25109
48662 o|contracted procedure: k25083
48663 o|contracted procedure: k25093
48664 o|contracted procedure: k25101
48665 o|contracted procedure: k25097
48666 o|contracted procedure: k25086
48667 o|contracted procedure: k25145
48668 o|contracted procedure: k25148
48669 o|contracted procedure: k25159
48670 o|contracted procedure: k25155
48671 o|contracted procedure: k25244
48672 o|contracted procedure: k25250
48673 o|contracted procedure: k25272
48674 o|contracted procedure: k25278
48675 o|contracted procedure: k25286
48676 o|contracted procedure: k25293
48677 o|contracted procedure: k25296
48678 o|contracted procedure: k25305
48679 o|contracted procedure: k25311
48680 o|contracted procedure: k25317
48681 o|contracted procedure: k25327
48682 o|contracted procedure: k25336
48683 o|contracted procedure: k25344
48684 o|contracted procedure: k25368
48685 o|contracted procedure: k25363
48686 o|contracted procedure: k25350
48687 o|contracted procedure: k25371
48688 o|contracted procedure: k25380
48689 o|contracted procedure: k25386
48690 o|contracted procedure: k25392
48691 o|contracted procedure: k25419
48692 o|contracted procedure: k25414
48693 o|contracted procedure: k25401
48694 o|contracted procedure: k25428
48695 o|contracted procedure: k25452
48696 o|contracted procedure: k25445
48697 o|contracted procedure: k25436
48698 o|contracted procedure: k25458
48699 o|contracted procedure: k25469
48700 o|contracted procedure: k25472
48701 o|contracted procedure: k25500
48702 o|contracted procedure: k25486
48703 o|contracted procedure: k25493
48704 o|contracted procedure: k25509
48705 o|contracted procedure: k25532
48706 o|contracted procedure: k25539
48707 o|contracted procedure: k25542
48708 o|contracted procedure: k25559
48709 o|contracted procedure: k25566
48710 o|contracted procedure: k25555
48711 o|contracted procedure: k25607
48712 o|contracted procedure: k25572
48713 o|contracted procedure: k25587
48714 o|contracted procedure: k25583
48715 o|contracted procedure: k25593
48716 o|contracted procedure: k25616
48717 o|contracted procedure: k25633
48718 o|contracted procedure: k25640
48719 o|contracted procedure: k25649
48720 o|contracted procedure: k25666
48721 o|contracted procedure: k25674
48722 o|contracted procedure: k25677
48723 o|contracted procedure: k25686
48724 o|contracted procedure: k25698
48725 o|contracted procedure: k25705
48726 o|contracted procedure: k25694
48727 o|contracted procedure: k25714
48728 o|contracted procedure: k25764
48729 o|contracted procedure: k25737
48730 o|contracted procedure: k25748
48731 o|contracted procedure: k25744
48732 o|contracted procedure: k25754
48733 o|contracted procedure: k25770
48734 o|contracted procedure: k25781
48735 o|contracted procedure: k25787
48736 o|contracted procedure: k25803
48737 o|contracted procedure: k25859
48738 o|contracted procedure: k25845
48739 o|contracted procedure: k25852
48740 o|contracted procedure: k25865
48741 o|contracted procedure: k25877
48742 o|contracted procedure: k25880
48743 o|contracted procedure: k25890
48744 o|contracted procedure: k25919
48745 o|contracted procedure: k970833985
48746 o|contracted procedure: k25925
48747 o|substituted constant variable: g35889
48748 o|contracted procedure: k25933
48749 o|contracted procedure: k25940
48750 o|contracted procedure: k25952
48751 o|contracted procedure: k25958
48752 o|contracted procedure: k25964
48753 o|contracted procedure: k25973
48754 o|contracted procedure: k25980
48755 o|contracted procedure: k26002
48756 o|contracted procedure: k26024
48757 o|contracted procedure: k26032
48758 o|contracted procedure: k26039
48759 o|contracted procedure: k26051
48760 o|contracted procedure: k26057
48761 o|contracted procedure: k26063
48762 o|contracted procedure: k26072
48763 o|contracted procedure: k26079
48764 o|contracted procedure: k26101
48765 o|contracted procedure: k26088
48766 o|contracted procedure: k26123
48767 o|contracted procedure: k26110
48768 o|contracted procedure: k26129
48769 o|contracted procedure: k26159
48770 o|contracted procedure: k26150
48771 o|contracted procedure: k17103
48772 o|contracted procedure: k17107
48773 o|contracted procedure: k17116
48774 o|contracted procedure: k17122
48775 o|contracted procedure: k17132
48776 o|contracted procedure: k17144
48777 o|contracted procedure: k17155
48778 o|contracted procedure: k17161
48779 o|contracted procedure: k17178
48780 o|contracted procedure: k17185
48781 o|contracted procedure: k17189
48782 o|contracted procedure: k17202
48783 o|contracted procedure: k17212
48784 o|contracted procedure: k17216
48785 o|contracted procedure: k17220
48786 o|contracted procedure: k17224
48787 o|contracted procedure: k17242
48788 o|contracted procedure: k17256
48789 o|contracted procedure: k17263
48790 o|contracted procedure: k17267
48791 o|contracted procedure: k17284
48792 o|contracted procedure: k17294
48793 o|contracted procedure: k17298
48794 o|contracted procedure: k17327
48795 o|contracted procedure: k17333
48796 o|contracted procedure: k17362
48797 o|contracted procedure: k17366
48798 o|contracted procedure: k17421
48799 o|contracted procedure: k17414
48800 o|contracted procedure: k17376
48801 o|contracted procedure: k17380
48802 o|contracted procedure: k17390
48803 o|inlining procedure: k17394
48804 o|inlining procedure: k17394
48805 o|contracted procedure: k17439
48806 o|contracted procedure: k17424
48807 o|contracted procedure: k17427
48808 o|contracted procedure: k17443
48809 o|contracted procedure: k17452
48810 o|contracted procedure: k17460
48811 o|contracted procedure: k17475
48812 o|contracted procedure: k17471
48813 o|contracted procedure: k17479
48814 o|contracted procedure: k17485
48815 o|contracted procedure: k17499
48816 o|contracted procedure: k17512
48817 o|contracted procedure: k17505
48818 o|contracted procedure: k17519
48819 o|contracted procedure: k17516
48820 o|contracted procedure: k17531
48821 o|contracted procedure: k17534
48822 o|contracted procedure: k17543
48823 o|contracted procedure: k17593
48824 o|contracted procedure: k17555
48825 o|contracted procedure: k17589
48826 o|contracted procedure: k17561
48827 o|contracted procedure: k17585
48828 o|contracted procedure: k17564
48829 o|contracted procedure: k17571
48830 o|contracted procedure: k17575
48831 o|contracted procedure: k17604
48832 o|contracted procedure: k17600
48833 o|substituted constant variable: g35897
48834 o|contracted procedure: k17634
48835 o|contracted procedure: k17610
48836 o|contracted procedure: k17615
48837 o|contracted procedure: k17640
48838 o|contracted procedure: k17643
48839 o|contracted procedure: k17664
48840 o|contracted procedure: k17667
48841 o|contracted procedure: k17685
48842 o|contracted procedure: k17728
48843 o|contracted procedure: k17724
48844 o|contracted procedure: k17702
48845 o|contracted procedure: k17720
48846 o|contracted procedure: k17716
48847 o|contracted procedure: k17706
48848 o|contracted procedure: k17757
48849 o|contracted procedure: k17753
48850 o|contracted procedure: k17749
48851 o|contracted procedure: k17761
48852 o|contracted procedure: k17767
48853 o|contracted procedure: k17800
48854 o|contracted procedure: k17776
48855 o|contracted procedure: k17796
48856 o|contracted procedure: k17782
48857 o|contracted procedure: k17806
48858 o|contracted procedure: k17823
48859 o|contracted procedure: k17831
48860 o|contracted procedure: k17834
48861 o|contracted procedure: k17851
48862 o|contracted procedure: k17865
48863 o|contracted procedure: k17883
48864 o|contracted procedure: k17879
48865 o|contracted procedure: k17875
48866 o|contracted procedure: k17905
48867 o|contracted procedure: k17914
48868 o|contracted procedure: k17930
48869 o|contracted procedure: k17934
48870 o|contracted procedure: k17945
48871 o|contracted procedure: k17951
48872 o|contracted procedure: k17968
48873 o|contracted procedure: k17974
48874 o|contracted procedure: k18021
48875 o|contracted procedure: k18027
48876 o|contracted procedure: k18050
48877 o|contracted procedure: k18056
48878 o|contracted procedure: k18062
48879 o|contracted procedure: k18083
48880 o|contracted procedure: k18089
48881 o|contracted procedure: k18111
48882 o|contracted procedure: k18120
48883 o|contracted procedure: k18127
48884 o|contracted procedure: k18147
48885 o|contracted procedure: k18169
48886 o|contracted procedure: k18160
48887 o|contracted procedure: k18176
48888 o|contracted procedure: k18183
48889 o|contracted procedure: k2052534014
48890 o|contracted procedure: k16245
48891 o|contracted procedure: k2052534019
48892 o|contracted procedure: k16275
48893 o|contracted procedure: k16290
48894 o|contracted procedure: k16286
48895 o|contracted procedure: k970834048
48896 o|contracted procedure: k15583
48897 o|substituted constant variable: g35918
48898 o|contracted procedure: k970834042
48899 o|contracted procedure: k15587
48900 o|substituted constant variable: g35916
48901 o|contracted procedure: k15602
48902 o|contracted procedure: k15609
48903 o|contracted procedure: k15624
48904 o|contracted procedure: k15639
48905 o|contracted procedure: k15648
48906 o|contracted procedure: k15657
48907 o|contracted procedure: k15669
48908 o|contracted procedure: k15672
48909 o|contracted procedure: k15675
48910 o|contracted procedure: k15683
48911 o|contracted procedure: k15691
48912 o|contracted procedure: k15700
48913 o|contracted procedure: k15709
48914 o|contracted procedure: k15718
48915 o|contracted procedure: k15730
48916 o|contracted procedure: k15733
48917 o|contracted procedure: k15736
48918 o|contracted procedure: k15744
48919 o|contracted procedure: k15752
48920 o|contracted procedure: k15761
48921 o|contracted procedure: k15770
48922 o|contracted procedure: k15802
48923 o|contracted procedure: k15811
48924 o|contracted procedure: k15817
48925 o|contracted procedure: k15824
48926 o|contracted procedure: k15828
48927 o|contracted procedure: k15840
48928 o|contracted procedure: k15843
48929 o|contracted procedure: k15846
48930 o|contracted procedure: k15854
48931 o|contracted procedure: k15862
48932 o|contracted procedure: k15880
48933 o|contracted procedure: k15884
48934 o|contracted procedure: k15896
48935 o|contracted procedure: k15899
48936 o|contracted procedure: k15902
48937 o|contracted procedure: k15910
48938 o|contracted procedure: k15918
48939 o|contracted procedure: k15926
48940 o|contracted procedure: k15932
48941 o|contracted procedure: k15960
48942 o|contracted procedure: k15966
48943 o|contracted procedure: k15979
48944 o|contracted procedure: k15994
48945 o|contracted procedure: k16016
48946 o|contracted procedure: k16012
48947 o|contracted procedure: k15997
48948 o|contracted procedure: k16000
48949 o|contracted procedure: k16008
48950 o|contracted procedure: k16025
48951 o|contracted procedure: k1401534034
48952 o|contracted procedure: k16312
48953 o|contracted procedure: k16319
48954 o|contracted procedure: k16328
48955 o|contracted procedure: k16345
48956 o|contracted procedure: k16341
48957 o|contracted procedure: k16331
48958 o|contracted procedure: k16351
48959 o|contracted procedure: k16362
48960 o|inlining procedure: k16365
48961 o|contracted procedure: k16373
48962 o|inlining procedure: k16365
48963 o|contracted procedure: k16379
48964 o|contracted procedure: k16385
48965 o|contracted procedure: k16391
48966 o|contracted procedure: k16397
48967 o|contracted procedure: k16403
48968 o|contracted procedure: k16432
48969 o|contracted procedure: k16438
48970 o|contracted procedure: k16444
48971 o|contracted procedure: k16450
48972 o|contracted procedure: k16476
48973 o|contracted procedure: k16485
48974 o|contracted procedure: k16492
48975 o|contracted procedure: k16501
48976 o|contracted procedure: k16517
48977 o|contracted procedure: k16507
48978 o|contracted procedure: k16525
48979 o|contracted procedure: k16535
48980 o|contracted procedure: k16541
48981 o|contracted procedure: k16547
48982 o|contracted procedure: k16553
48983 o|contracted procedure: k16580
48984 o|contracted procedure: k16598
48985 o|contracted procedure: k16614
48986 o|contracted procedure: k16604
48987 o|contracted procedure: k16625
48988 o|contracted procedure: k16632
48989 o|contracted procedure: k16641
48990 o|contracted procedure: k16648
48991 o|contracted procedure: k16656
48992 o|contracted procedure: k16666
48993 o|contracted procedure: k16672
48994 o|contracted procedure: k16678
48995 o|contracted procedure: k16684
48996 o|contracted procedure: k16720
48997 o|contracted procedure: k16727
48998 o|contracted procedure: k16730
48999 o|contracted procedure: k16745
49000 o|contracted procedure: k16754
49001 o|contracted procedure: k16761
49002 o|contracted procedure: k16769
49003 o|contracted procedure: k16779
49004 o|contracted procedure: k16785
49005 o|contracted procedure: k16791
49006 o|contracted procedure: k16797
49007 o|contracted procedure: k16837
49008 o|contracted procedure: k16844
49009 o|contracted procedure: k16847
49010 o|contracted procedure: k16862
49011 o|contracted procedure: k16871
49012 o|contracted procedure: k16886
49013 o|contracted procedure: k16896
49014 o|contracted procedure: k16902
49015 o|contracted procedure: k16908
49016 o|contracted procedure: k16914
49017 o|contracted procedure: k16948
49018 o|contracted procedure: k16960
49019 o|contracted procedure: k16971
49020 o|contracted procedure: k16993
49021 o|inlining procedure: k17000
49022 o|contracted procedure: k17010
49023 o|inlining procedure: k17000
49024 o|contracted procedure: k17019
49025 o|contracted procedure: k17026
49026 o|contracted procedure: k17030
49027 o|contracted procedure: k17036
49028 o|contracted procedure: k17047
49029 o|inlining procedure: k17000
49030 o|contracted procedure: k17054
49031 o|contracted procedure: k17060
49032 o|contracted procedure: k18196
49033 o|contracted procedure: k18210
49034 o|contracted procedure: k18202
49035 o|contracted procedure: k18219
49036 o|contracted procedure: k18233
49037 o|contracted procedure: k18225
49038 o|contracted procedure: k18360
49039 o|contracted procedure: k18242
49040 o|contracted procedure: k18245
49041 o|contracted procedure: k18251
49042 o|contracted procedure: k18254
49043 o|contracted procedure: k18269
49044 o|contracted procedure: k18272
49045 o|contracted procedure: k18283
49046 o|contracted procedure: k18289
49047 o|contracted procedure: k18300
49048 o|contracted procedure: k18303
49049 o|contracted procedure: k18315
49050 o|contracted procedure: k18318
49051 o|contracted procedure: k18321
49052 o|contracted procedure: k18329
49053 o|contracted procedure: k18337
49054 o|contracted procedure: k18700
49055 o|contracted procedure: k18423
49056 o|contracted procedure: k18426
49057 o|contracted procedure: k18432
49058 o|contracted procedure: k18435
49059 o|contracted procedure: k18446
49060 o|contracted procedure: k18454
49061 o|contracted procedure: k18457
49062 o|contracted procedure: k18468
49063 o|contracted procedure: k18480
49064 o|contracted procedure: k18476
49065 o|contracted procedure: k18472
49066 o|contracted procedure: k18484
49067 o|contracted procedure: k18490
49068 o|contracted procedure: k18505
49069 o|contracted procedure: k18501
49070 o|contracted procedure: k18509
49071 o|contracted procedure: k18515
49072 o|contracted procedure: k18529
49073 o|contracted procedure: k18532
49074 o|contracted procedure: k18539
49075 o|contracted procedure: k18545
49076 o|contracted procedure: k18548
49077 o|contracted procedure: k18555
49078 o|contracted procedure: k18572
49079 o|contracted procedure: k18578
49080 o|contracted procedure: k18584
49081 o|contracted procedure: k18590
49082 o|contracted procedure: k18596
49083 o|contracted procedure: k18602
49084 o|contracted procedure: k18608
49085 o|contracted procedure: k18614
49086 o|contracted procedure: k18620
49087 o|contracted procedure: k18626
49088 o|contracted procedure: k18632
49089 o|contracted procedure: k18638
49090 o|contracted procedure: k18644
49091 o|contracted procedure: k18709
49092 o|contracted procedure: k18716
49093 o|contracted procedure: k18720
49094 o|contracted procedure: k18741
49095 o|contracted procedure: k18748
49096 o|contracted procedure: k18799
49097 o|contracted procedure: k18757
49098 o|contracted procedure: k18795
49099 o|contracted procedure: k18763
49100 o|contracted procedure: k18788
49101 o|contracted procedure: k18780
49102 o|contracted procedure: k18807
49103 o|contracted procedure: k18814
49104 o|contracted procedure: k18818
49105 o|contracted procedure: k18830
49106 o|contracted procedure: k18833
49107 o|contracted procedure: k18836
49108 o|contracted procedure: k18844
49109 o|contracted procedure: k18852
49110 o|contracted procedure: k18860
49111 o|contracted procedure: k18866
49112 o|contracted procedure: k18872
49113 o|contracted procedure: k18878
49114 o|contracted procedure: k18884
49115 o|contracted procedure: k18890
49116 o|contracted procedure: k18995
49117 o|contracted procedure: k18925
49118 o|contracted procedure: k18928
49119 o|contracted procedure: k18934
49120 o|contracted procedure: k18947
49121 o|contracted procedure: k18957
49122 o|contracted procedure: k18950
49123 o|contracted procedure: k18971
49124 o|contracted procedure: k18964
49125 o|contracted procedure: k18981
49126 o|contracted procedure: k18987
49127 o|contracted procedure: k19006
49128 o|contracted procedure: k18999
49129 o|contracted procedure: k19024
49130 o|contracted procedure: k19031
49131 o|contracted procedure: k19034
49132 o|contracted procedure: k19042
49133 o|contracted procedure: k19046
49134 o|contracted procedure: k7561
49135 o|contracted procedure: k19058
49136 o|contracted procedure: k19178
49137 o|contracted procedure: k970834082
49138 o|contracted procedure: k19064
49139 o|substituted constant variable: g35938
49140 o|contracted procedure: k19084
49141 o|contracted procedure: k19073
49142 o|contracted procedure: k19080
49143 o|contracted procedure: k19076
49144 o|contracted procedure: k19088
49145 o|contracted procedure: k19098
49146 o|contracted procedure: k19101
49147 o|contracted procedure: k19104
49148 o|contracted procedure: k19107
49149 o|contracted procedure: k19142
49150 o|contracted procedure: k19131
49151 o|contracted procedure: k19138
49152 o|contracted procedure: k19134
49153 o|contracted procedure: k19148
49154 o|contracted procedure: k19168
49155 o|contracted procedure: k19173
49156 o|contracted procedure: k19659
49157 o|contracted procedure: k19662
49158 o|contracted procedure: k19665
49159 o|contracted procedure: k19668
49160 o|contracted procedure: k19812
49161 o|contracted procedure: k19808
49162 o|contracted procedure: k1964134076
49163 o|contracted procedure: k19671
49164 o|contracted procedure: k19698
49165 o|contracted procedure: k19723
49166 o|contracted procedure: k19704
49167 o|contracted procedure: k19711
49168 o|contracted procedure: k19701
49169 o|contracted procedure: k19737
49170 o|contracted procedure: k19740
49171 o|contracted procedure: k1964134066
49172 o|contracted procedure: k19756
49173 o|contracted procedure: k19787
49174 o|contracted procedure: k19762
49175 o|contracted procedure: k19780
49176 o|contracted procedure: k19771
49177 o|contracted procedure: k19791
49178 o|contracted procedure: k19185
49179 o|contracted procedure: k7579
49180 o|contracted procedure: k19194
49181 o|contracted procedure: k19197
49182 o|contracted procedure: k19203
49183 o|contracted procedure: k19209
49184 o|contracted procedure: k19297
49185 o|contracted procedure: k970834090
49186 o|contracted procedure: k19215
49187 o|substituted constant variable: g35944
49188 o|contracted procedure: k19247
49189 o|contracted procedure: k19236
49190 o|contracted procedure: k19243
49191 o|contracted procedure: k19239
49192 o|contracted procedure: k19253
49193 o|contracted procedure: k19260
49194 o|contracted procedure: k19273
49195 o|contracted procedure: k19280
49196 o|contracted procedure: k19287
49197 o|contracted procedure: k19377
49198 o|contracted procedure: k19307
49199 o|contracted procedure: k19310
49200 o|contracted procedure: k19316
49201 o|contracted procedure: k19329
49202 o|contracted procedure: k19339
49203 o|contracted procedure: k19332
49204 o|contracted procedure: k19353
49205 o|contracted procedure: k19346
49206 o|contracted procedure: k19363
49207 o|contracted procedure: k19369
49208 o|contracted procedure: k19388
49209 o|contracted procedure: k19381
49210 o|contracted procedure: k19400
49211 o|contracted procedure: k19406
49212 o|contracted procedure: k19443
49213 o|contracted procedure: k19418
49214 o|contracted procedure: k19439
49215 o|contracted procedure: k19421
49216 o|contracted procedure: k19428
49217 o|contracted procedure: k19432
49218 o|contracted procedure: k19424
49219 o|contracted procedure: k19460
49220 o|contracted procedure: k19471
49221 o|contracted procedure: k19475
49222 o|contracted procedure: k19479
49223 o|contracted procedure: k19486
49224 o|contracted procedure: k19489
49225 o|contracted procedure: k19495
49226 o|contracted procedure: k19501
49227 o|contracted procedure: k19507
49228 o|contracted procedure: k19529
49229 o|contracted procedure: k19535
49230 o|contracted procedure: k19542
49231 o|contracted procedure: k19587
49232 o|contracted procedure: k19548
49233 o|contracted procedure: k19555
49234 o|contracted procedure: k19572
49235 o|contracted procedure: k19583
49236 o|contracted procedure: k19600
49237 o|contracted procedure: k19611
49238 o|contracted procedure: k19820
49239 o|contracted procedure: k19823
49240 o|contracted procedure: k19826
49241 o|contracted procedure: k19836
49242 o|contracted procedure: k19845
49243 o|contracted procedure: k19852
49244 o|contracted procedure: k19861
49245 o|contracted procedure: k19869
49246 o|contracted procedure: k19881
49247 o|contracted procedure: k19891
49248 o|contracted procedure: k19895
49249 o|contracted procedure: k19937
49250 o|contracted procedure: k19940
49251 o|contracted procedure: k19943
49252 o|contracted procedure: k19946
49253 o|contracted procedure: k19949
49254 o|contracted procedure: k19952
49255 o|contracted procedure: k19955
49256 o|contracted procedure: k19961
49257 o|contracted procedure: k1964134121
49258 o|contracted procedure: k19964
49259 o|contracted procedure: k19967
49260 o|contracted procedure: k19980
49261 o|contracted procedure: k19984
49262 o|contracted procedure: k20005
49263 o|contracted procedure: k20036
49264 o|contracted procedure: k20044
49265 o|contracted procedure: k20040
49266 o|contracted procedure: k20047
49267 o|contracted procedure: k20053
49268 o|contracted procedure: k20069
49269 o|contracted procedure: k20062
49270 o|contracted procedure: k20072
49271 o|contracted procedure: k20094
49272 o|contracted procedure: k20102
49273 o|contracted procedure: k20098
49274 o|contracted procedure: k20075
49275 o|contracted procedure: k20082
49276 o|contracted procedure: k20090
49277 o|contracted procedure: k20086
49278 o|contracted procedure: k20105
49279 o|contracted procedure: k1964134109
49280 o|contracted procedure: k20114
49281 o|contracted procedure: k20117
49282 o|contracted procedure: k20141
49283 o|contracted procedure: k20165
49284 o|contracted procedure: k20149
49285 o|contracted procedure: k20161
49286 o|contracted procedure: k20152
49287 o|contracted procedure: k20168
49288 o|contracted procedure: k20171
49289 o|contracted procedure: k20182
49290 o|contracted procedure: k20187
49291 o|contracted procedure: k20209
49292 o|contracted procedure: k20190
49293 o|contracted procedure: k20205
49294 o|contracted procedure: k20193
49295 o|contracted procedure: k20196
49296 o|contracted procedure: k20213
49297 o|contracted procedure: k20219
49298 o|contracted procedure: k20231
49299 o|contracted procedure: k20241
49300 o|contracted procedure: k20245
49301 o|contracted procedure: k20254
49302 o|contracted procedure: k20257
49303 o|contracted procedure: k20260
49304 o|contracted procedure: k20268
49305 o|contracted procedure: k20276
49306 o|contracted procedure: k20288
49307 o|contracted procedure: k20298
49308 o|contracted procedure: k20302
49309 o|contracted procedure: k20305
49310 o|contracted procedure: k20345
49311 o|contracted procedure: k20353
49312 o|contracted procedure: k20349
49313 o|contracted procedure: k20326
49314 o|contracted procedure: k20333
49315 o|contracted procedure: k20341
49316 o|contracted procedure: k20337
49317 o|contracted procedure: k20374
49318 o|contracted procedure: k20382
49319 o|contracted procedure: k20378
49320 o|contracted procedure: k20416
49321 o|contracted procedure: k20391
49322 o|contracted procedure: k20409
49323 o|contracted procedure: k20400
49324 o|contracted procedure: k20420
49325 o|contracted procedure: k20423
49326 o|contracted procedure: k20444
49327 o|contracted procedure: k20431
49328 o|contracted procedure: k20440
49329 o|contracted procedure: k20480
49330 o|contracted procedure: k20447
49331 o|contracted procedure: k20450
49332 o|contracted procedure: k20462
49333 o|contracted procedure: k20472
49334 o|contracted procedure: k20476
49335 o|contracted procedure: k20502
49336 o|contracted procedure: k20510
49337 o|contracted procedure: k20506
49338 o|contracted procedure: k20483
49339 o|contracted procedure: k20490
49340 o|contracted procedure: k20498
49341 o|contracted procedure: k20494
49342 o|contracted procedure: k19918
49343 o|contracted procedure: k19921
49344 o|contracted procedure: k30314
49345 o|contracted procedure: k30932
49346 o|contracted procedure: k30928
49347 o|contracted procedure: k30322
49348 o|contracted procedure: k30330
49349 o|contracted procedure: k30338
49350 o|contracted procedure: k30346
49351 o|contracted procedure: k30354
49352 o|contracted procedure: k30362
49353 o|contracted procedure: k30370
49354 o|contracted procedure: k30378
49355 o|contracted procedure: k30386
49356 o|contracted procedure: k30394
49357 o|contracted procedure: k30402
49358 o|contracted procedure: k30410
49359 o|contracted procedure: k30418
49360 o|contracted procedure: k30426
49361 o|contracted procedure: k30434
49362 o|contracted procedure: k30442
49363 o|contracted procedure: k30450
49364 o|contracted procedure: k30458
49365 o|contracted procedure: k30466
49366 o|contracted procedure: k30474
49367 o|contracted procedure: k30482
49368 o|contracted procedure: k30490
49369 o|contracted procedure: k30498
49370 o|contracted procedure: k30506
49371 o|contracted procedure: k30514
49372 o|contracted procedure: k30924
49373 o|contracted procedure: k30522
49374 o|contracted procedure: k30530
49375 o|contracted procedure: k30538
49376 o|contracted procedure: k30542
49377 o|contracted procedure: k30916
49378 o|contracted procedure: k30920
49379 o|contracted procedure: k30546
49380 o|contracted procedure: k30912
49381 o|contracted procedure: k30908
49382 o|contracted procedure: k30550
49383 o|contracted procedure: k30554
49384 o|contracted procedure: k30904
49385 o|contracted procedure: k30558
49386 o|contracted procedure: k30900
49387 o|contracted procedure: k30562
49388 o|contracted procedure: k30896
49389 o|contracted procedure: k30566
49390 o|contracted procedure: k30570
49391 o|contracted procedure: k30574
49392 o|contracted procedure: k30892
49393 o|contracted procedure: k30884
49394 o|contracted procedure: k30888
49395 o|contracted procedure: k30578
49396 o|contracted procedure: k30880
49397 o|contracted procedure: k30856
49398 o|contracted procedure: k30860
49399 o|contracted procedure: k30876
49400 o|contracted procedure: k30864
49401 o|contracted procedure: k30872
49402 o|contracted procedure: k30868
49403 o|contracted procedure: k30582
49404 o|contracted procedure: k30852
49405 o|contracted procedure: k30586
49406 o|contracted procedure: k30848
49407 o|contracted procedure: k30590
49408 o|contracted procedure: k30844
49409 o|contracted procedure: k30816
49410 o|contracted procedure: k30832
49411 o|contracted procedure: k30840
49412 o|contracted procedure: k30836
49413 o|contracted procedure: k30820
49414 o|contracted procedure: k30828
49415 o|contracted procedure: k30824
49416 o|contracted procedure: k30594
49417 o|contracted procedure: k30808
49418 o|contracted procedure: k30812
49419 o|contracted procedure: k30800
49420 o|contracted procedure: k30804
49421 o|contracted procedure: k30598
49422 o|contracted procedure: k30796
49423 o|contracted procedure: k30602
49424 o|contracted procedure: k30792
49425 o|contracted procedure: k30784
49426 o|contracted procedure: k30788
49427 o|contracted procedure: k30780
49428 o|contracted procedure: k30606
49429 o|contracted procedure: k30770
49430 o|contracted procedure: k30762
49431 o|contracted procedure: k30766
49432 o|contracted procedure: k30610
49433 o|contracted procedure: k30758
49434 o|contracted procedure: k30614
49435 o|contracted procedure: k30742
49436 o|contracted procedure: k30750
49437 o|contracted procedure: k30754
49438 o|contracted procedure: k30746
49439 o|contracted procedure: k30618
49440 o|contracted procedure: k30622
49441 o|contracted procedure: k30738
49442 o|contracted procedure: k30626
49443 o|contracted procedure: k30734
49444 o|contracted procedure: k30630
49445 o|contracted procedure: k30730
49446 o|contracted procedure: k30726
49447 o|contracted procedure: k30634
49448 o|contracted procedure: k30722
49449 o|contracted procedure: k30638
49450 o|contracted procedure: k30718
49451 o|contracted procedure: k30642
49452 o|contracted procedure: k30646
49453 o|contracted procedure: k30714
49454 o|contracted procedure: k30650
49455 o|contracted procedure: k30710
49456 o|contracted procedure: k30654
49457 o|contracted procedure: k30662
49458 o|contracted procedure: k30666
49459 o|contracted procedure: k30706
49460 o|contracted procedure: k30670
49461 o|contracted procedure: k30702
49462 o|contracted procedure: k30678
49463 o|contracted procedure: k30698
49464 o|contracted procedure: k30682
49465 o|contracted procedure: k30694
49466 o|contracted procedure: k30690
49467 o|contracted procedure: k30686
49468 o|contracted procedure: k30674
49469 o|contracted procedure: k30658
49470 o|contracted procedure: k30534
49471 o|contracted procedure: k30526
49472 o|contracted procedure: k30518
49473 o|contracted procedure: k30510
49474 o|contracted procedure: k30502
49475 o|contracted procedure: k30494
49476 o|contracted procedure: k30486
49477 o|contracted procedure: k30478
49478 o|contracted procedure: k30470
49479 o|contracted procedure: k30462
49480 o|contracted procedure: k30454
49481 o|contracted procedure: k30446
49482 o|contracted procedure: k30438
49483 o|contracted procedure: k30430
49484 o|contracted procedure: k30422
49485 o|contracted procedure: k30414
49486 o|contracted procedure: k30406
49487 o|contracted procedure: k30398
49488 o|contracted procedure: k30390
49489 o|contracted procedure: k30382
49490 o|contracted procedure: k30374
49491 o|contracted procedure: k30366
49492 o|contracted procedure: k30358
49493 o|contracted procedure: k30350
49494 o|contracted procedure: k30342
49495 o|contracted procedure: k30334
49496 o|contracted procedure: k30326
49497 o|contracted procedure: k30318
49498 o|contracted procedure: k20516
49499 o|contracted procedure: k20587
49500 o|substituted constant variable: g35973
49501 o|contracted procedure: k20598
49502 o|contracted procedure: k20594
49503 o|contracted procedure: k20639
49504 o|contracted procedure: k20624
49505 o|contracted procedure: k20635
49506 o|contracted procedure: k20631
49507 o|contracted procedure: k20612
49508 o|contracted procedure: k20608
49509 o|contracted procedure: k20775
49510 o|contracted procedure: k20578
49511 o|contracted procedure: k20784
49512 o|contracted procedure: k20832
49513 o|contracted procedure: k20836
49514 o|contracted procedure: k20787
49515 o|contracted procedure: k20799
49516 o|contracted procedure: k20809
49517 o|substituted constant variable: g35975
49518 o|contracted procedure: k20822
49519 o|contracted procedure: k20812
49520 o|contracted procedure: k20828
49521 o|contracted procedure: k20853
49522 o|contracted procedure: k970834146
49523 o|contracted procedure: k20865
49524 o|substituted constant variable: g35980
49525 o|contracted procedure: k2626934135
49526 o|contracted procedure: k20876
49527 o|contracted procedure: k2626934130
49528 o|contracted procedure: k20880
49529 o|contracted procedure: k2626934140
49530 o|contracted procedure: k20887
49531 o|contracted procedure: k20893
49532 o|contracted procedure: k21655
49533 o|contracted procedure: k20899
49534 o|contracted procedure: k20902
49535 o|contracted procedure: k20926
49536 o|contracted procedure: k20940
49537 o|contracted procedure: k20950
49538 o|substituted constant variable: g35983
49539 o|contracted procedure: k20957
49540 o|contracted procedure: k20969
49541 o|contracted procedure: k20965
49542 o|contracted procedure: k20979
49543 o|contracted procedure: k20996
49544 o|contracted procedure: k20999
49545 o|inlining procedure: k21009
49546 o|contracted procedure: k21027
49547 o|contracted procedure: k21018
49548 o|inlining procedure: k21009
49549 o|contracted procedure: k21035
49550 o|contracted procedure: k21638
49551 o|contracted procedure: k21041
49552 o|contracted procedure: k970834154
49553 o|contracted procedure: k21056
49554 o|substituted constant variable: g35986
49555 o|contracted procedure: k21067
49556 o|contracted procedure: k21074
49557 o|contracted procedure: k21077
49558 o|contracted procedure: k21083
49559 o|contracted procedure: k21086
49560 o|contracted procedure: k21104
49561 o|contracted procedure: k21142
49562 o|contracted procedure: k21113
49563 o|contracted procedure: k21126
49564 o|contracted procedure: k21151
49565 o|contracted procedure: k970834160
49566 o|contracted procedure: k21172
49567 o|substituted constant variable: g35988
49568 o|contracted procedure: k21178
49569 o|contracted procedure: k21262
49570 o|contracted procedure: k21190
49571 o|contracted procedure: k21230
49572 o|contracted procedure: k21246
49573 o|contracted procedure: k21270
49574 o|contracted procedure: k21289
49575 o|contracted procedure: k21301
49576 o|contracted procedure: k21304
49577 o|contracted procedure: k21335
49578 o|contracted procedure: k21328
49579 o|contracted procedure: k21339
49580 o|contracted procedure: k21355
49581 o|contracted procedure: k21358
49582 o|contracted procedure: k21425
49583 o|contracted procedure: k21421
49584 o|contracted procedure: k21361
49585 o|contracted procedure: k21364
49586 o|contracted procedure: k21399
49587 o|contracted procedure: k21411
49588 o|contracted procedure: k21433
49589 o|contracted procedure: k21436
49590 o|contracted procedure: k21503
49591 o|contracted procedure: k21499
49592 o|contracted procedure: k21439
49593 o|contracted procedure: k21442
49594 o|contracted procedure: k21477
49595 o|contracted procedure: k21556
49596 o|contracted procedure: k21508
49597 o|contracted procedure: k21549
49598 o|contracted procedure: k21519
49599 o|contracted procedure: k21526
49600 o|contracted procedure: k21538
49601 o|contracted procedure: k21545
49602 o|contracted procedure: k21584
49603 o|contracted procedure: k21590
49604 o|contracted procedure: k21607
49605 o|contracted procedure: k21613
49606 o|contracted procedure: k21672
49607 o|contracted procedure: k21682
49608 o|substituted constant variable: g35991
49609 o|contracted procedure: k21695
49610 o|contracted procedure: k21685
49611 o|contracted procedure: k21704
49612 o|contracted procedure: k21700
49613 o|contracted procedure: k21708
49614 o|contracted procedure: k21712
49615 o|contracted procedure: k21822
49616 o|contracted procedure: k21721
49617 o|contracted procedure: k21731
49618 o|contracted procedure: k21724
49619 o|contracted procedure: k21727
49620 o|contracted procedure: k21818
49621 o|contracted procedure: k21737
49622 o|contracted procedure: k21740
49623 o|contracted procedure: k21746
49624 o|contracted procedure: k21760
49625 o|contracted procedure: k21768
49626 o|contracted procedure: k21764
49627 o|contracted procedure: k21789
49628 o|contracted procedure: k21795
49629 o|contracted procedure: k21876
49630 o|contracted procedure: k21885
49631 o|contracted procedure: k21888
49632 o|contracted procedure: k21891
49633 o|contracted procedure: k21899
49634 o|contracted procedure: k2052534172
49635 o|contracted procedure: k21914
49636 o|contracted procedure: k21922
49637 o|contracted procedure: k21937
49638 o|contracted procedure: k21946
49639 o|contracted procedure: k21951
49640 o|contracted procedure: k21955
49641 o|contracted procedure: k21976
49642 o|contracted procedure: k21961
49643 o|contracted procedure: k21965
49644 o|contracted procedure: k21972
49645 o|contracted procedure: k21979
49646 o|contracted procedure: k2052534177
49647 o|contracted procedure: k21989
49648 o|contracted procedure: k22002
49649 o|contracted procedure: k22012
49650 o|contracted procedure: k22016
49651 o|contracted procedure: k2186634185
49652 o|contracted procedure: k22038
49653 o|contracted procedure: k22019
49654 o|contracted procedure: k22023
49655 o|contracted procedure: k22034
49656 o|contracted procedure: k22030
49657 o|contracted procedure: k22289
49658 o|contracted procedure: k22301
49659 o|contracted procedure: k22304
49660 o|contracted procedure: k22571
49661 o|contracted procedure: k22371
49662 o|contracted procedure: k22564
49663 o|contracted procedure: k22560
49664 o|contracted procedure: k22556
49665 o|contracted procedure: k22552
49666 o|contracted procedure: k22386
49667 o|contracted procedure: k22393
49668 o|contracted procedure: k22397
49669 o|contracted procedure: k22406
49670 o|contracted procedure: k22426
49671 o|contracted procedure: k22422
49672 o|contracted procedure: k22409
49673 o|contracted procedure: k22593
49674 o|contracted procedure: k22618
49675 o|contracted procedure: k22643
49676 o|contracted procedure: k22635
49677 o|contracted procedure: k22639
49678 o|contracted procedure: k22631
49679 o|contracted procedure: k22648
49680 o|contracted procedure: k26295
49681 o|contracted procedure: k26321
49682 o|contracted procedure: k26298
49683 o|contracted procedure: k26317
49684 o|contracted procedure: k26305
49685 o|contracted procedure: k26313
49686 o|contracted procedure: k26309
49687 o|contracted procedure: k22657
49688 o|contracted procedure: k22614
49689 o|contracted procedure: k22602
49690 o|contracted procedure: k22669
49691 o|contracted procedure: k22672
49692 o|contracted procedure: k22675
49693 o|contracted procedure: k22683
49694 o|contracted procedure: k22691
49695 o|contracted procedure: k22698
49696 o|contracted procedure: k22707
49697 o|contracted procedure: k22714
49698 o|contracted procedure: k22718
49699 o|contracted procedure: k22730
49700 o|contracted procedure: k22726
49701 o|contracted procedure: k22722
49702 o|contracted procedure: k22545
49703 o|contracted procedure: k22438
49704 o|contracted procedure: k22462
49705 o|contracted procedure: k22465
49706 o|contracted procedure: k22480
49707 o|contracted procedure: k22472
49708 o|contracted procedure: k22476
49709 o|contracted procedure: k22489
49710 o|contracted procedure: k22495
49711 o|contracted procedure: k22504
49712 o|contracted procedure: k22520
49713 o|contracted procedure: k22524
49714 o|contracted procedure: k22516
49715 o|contracted procedure: k22512
49716 o|contracted procedure: k22508
49717 o|contracted procedure: k22534
49718 o|contracted procedure: k20667
49719 o|contracted procedure: k20663
49720 o|contracted procedure: k20659
49721 o|contracted procedure: k20655
49722 o|contracted procedure: k20645
49723 o|contracted procedure: k23379
49724 o|contracted procedure: k20696
49725 o|contracted procedure: k20692
49726 o|contracted procedure: k20673
49727 o|contracted procedure: k20684
49728 o|contracted procedure: k20688
49729 o|contracted procedure: k20680
49730 o|contracted procedure: k23388
49731 o|contracted procedure: k23226
49732 o|contracted procedure: k23229
49733 o|contracted procedure: k23241
49734 o|contracted procedure: k23365
49735 o|contracted procedure: k23259
49736 o|contracted procedure: k23268
49737 o|contracted procedure: k23275
49738 o|contracted procedure: k23282
49739 o|contracted procedure: k23286
49740 o|contracted procedure: k23295
49741 o|contracted procedure: k23301
49742 o|contracted procedure: k23308
49743 o|contracted procedure: k23315
49744 o|contracted procedure: k23321
49745 o|contracted procedure: k23328
49746 o|contracted procedure: k23335
49747 o|contracted procedure: k23339
49748 o|contracted procedure: k23346
49749 o|contracted procedure: k23353
49750 o|contracted procedure: k23343
49751 o|contracted procedure: k23373
49752 o|contracted procedure: k22279
49753 o|contracted procedure: k22283
49754 o|contracted procedure: k22218
49755 o|contracted procedure: k22271
49756 o|contracted procedure: k22275
49757 o|contracted procedure: k22224
49758 o|contracted procedure: k22227
49759 o|contracted procedure: k22236
49760 o|contracted procedure: k22267
49761 o|contracted procedure: k22255
49762 o|contracted procedure: k22263
49763 o|contracted procedure: k22259
49764 o|contracted procedure: k22245
49765 o|contracted procedure: k22541
49766 o|contracted procedure: k22764
49767 o|contracted procedure: k22771
49768 o|contracted procedure: k22782
49769 o|contracted procedure: k22789
49770 o|contracted procedure: k22914
49771 o|contracted procedure: k22799
49772 o|contracted procedure: k22809
49773 o|contracted procedure: k22910
49774 o|contracted procedure: k2627934226
49775 o|contracted procedure: k22749
49776 o|contracted procedure: k22745
49777 o|contracted procedure: k22812
49778 o|contracted procedure: k22826
49779 o|contracted procedure: k2627934216
49780 o|contracted procedure: k22841
49781 o|contracted procedure: k22848
49782 o|contracted procedure: k22867
49783 o|contracted procedure: k22863
49784 o|contracted procedure: k22874
49785 o|contracted procedure: k2627934221
49786 o|contracted procedure: k22884
49787 o|contracted procedure: k22877
49788 o|contracted procedure: k22888
49789 o|contracted procedure: k22892
49790 o|contracted procedure: k22904
49791 o|contracted procedure: k20561
49792 o|substituted constant variable: g36033
49793 o|contracted procedure: k20568
49794 o|contracted procedure: k2052534236
49795 o|contracted procedure: k20724
49796 o|contracted procedure: k20720
49797 o|contracted procedure: k20716
49798 o|contracted procedure: k20712
49799 o|contracted procedure: k20702
49800 o|contracted procedure: k23056
49801 o|contracted procedure: k20753
49802 o|contracted procedure: k20749
49803 o|contracted procedure: k20730
49804 o|contracted procedure: k20741
49805 o|contracted procedure: k20745
49806 o|contracted procedure: k20737
49807 o|contracted procedure: k23065
49808 o|contracted procedure: k22941
49809 o|contracted procedure: k22944
49810 o|contracted procedure: k22964
49811 o|contracted procedure: k22970
49812 o|contracted procedure: k23036
49813 o|contracted procedure: k22976
49814 o|contracted procedure: k22979
49815 o|contracted procedure: k22982
49816 o|contracted procedure: k22090
49817 o|contracted procedure: k22093
49818 o|contracted procedure: k22099
49819 o|contracted procedure: k2052534241
49820 o|contracted procedure: k22115
49821 o|contracted procedure: k22111
49822 o|contracted procedure: k23000
49823 o|contracted procedure: k23008
49824 o|contracted procedure: k23004
49825 o|contracted procedure: k22137
49826 o|contracted procedure: k22122
49827 o|contracted procedure: k22126
49828 o|contracted procedure: k22133
49829 o|contracted procedure: k2186634247
49830 o|contracted procedure: k22159
49831 o|contracted procedure: k22140
49832 o|contracted procedure: k22144
49833 o|contracted procedure: k22155
49834 o|contracted procedure: k22151
49835 o|contracted procedure: k22168
49836 o|contracted procedure: k22175
49837 o|contracted procedure: k22209
49838 o|contracted procedure: k22181
49839 o|contracted procedure: k22192
49840 o|contracted procedure: k22188
49841 o|contracted procedure: k22203
49842 o|contracted procedure: k22326
49843 o|contracted procedure: k22365
49844 o|contracted procedure: k22329
49845 o|contracted procedure: k22338
49846 o|contracted procedure: k22335
49847 o|contracted procedure: k22361
49848 o|contracted procedure: k22350
49849 o|contracted procedure: k22357
49850 o|contracted procedure: k23027
49851 o|contracted procedure: k23023
49852 o|contracted procedure: k2186634263
49853 o|contracted procedure: k22084
49854 o|contracted procedure: k22050
49855 o|contracted procedure: k22080
49856 o|contracted procedure: k22072
49857 o|contracted procedure: k2052534256
49858 o|contracted procedure: k22068
49859 o|contracted procedure: k22053
49860 o|contracted procedure: k22064
49861 o|contracted procedure: k22060
49862 o|contracted procedure: k22044
49863 o|contracted procedure: k2052534272
49864 o|contracted procedure: k23050
49865 o|contracted procedure: k23071
49866 o|contracted procedure: k23074
49867 o|contracted procedure: k23077
49868 o|contracted procedure: k23089
49869 o|contracted procedure: k23096
49870 o|contracted procedure: k23100
49871 o|contracted procedure: k23109
49872 o|contracted procedure: k23116
49873 o|contracted procedure: k23220
49874 o|contracted procedure: k23122
49875 o|contracted procedure: k23143
49876 o|contracted procedure: k23139
49877 o|contracted procedure: k23216
49878 o|contracted procedure: k23151
49879 o|contracted procedure: k23188
49880 o|contracted procedure: k23173
49881 o|contracted procedure: k23180
49882 o|contracted procedure: k23184
49883 o|contracted procedure: k23212
49884 o|contracted procedure: k23197
49885 o|contracted procedure: k23204
49886 o|contracted procedure: k23208
49887 o|contracted procedure: k26175
49888 o|contracted procedure: k26194
49889 o|contracted procedure: k26197
49890 o|contracted procedure: k26206
49891 o|contracted procedure: k26212
49892 o|contracted procedure: k26218
49893 o|contracted procedure: k26240
49894 o|contracted procedure: k26388
49895 o|contracted procedure: k26398
49896 o|substituted constant variable: g36069
49897 o|contracted procedure: k26405
49898 o|contracted procedure: k26429
49899 o|contracted procedure: k26413
49900 o|contracted procedure: k26425
49901 o|contracted procedure: k26421
49902 o|contracted procedure: k26417
49903 o|contracted procedure: k26409
49904 o|contracted procedure: k2626934289
49905 o|contracted procedure: k2724734284
49906 o|contracted procedure: k26484
49907 o|contracted procedure: k26924
49908 o|contracted procedure: k26498
49909 o|contracted procedure: k26513
49910 o|contracted procedure: k26519
49911 o|contracted procedure: k26543
49912 o|contracted procedure: k26558
49913 o|contracted procedure: k26561
49914 o|contracted procedure: k26564
49915 o|contracted procedure: k26576
49916 o|contracted procedure: k26579
49917 o|contracted procedure: k26582
49918 o|contracted procedure: k26590
49919 o|contracted procedure: k26598
49920 o|contracted procedure: k26605
49921 o|contracted procedure: k26611
49922 o|contracted procedure: k26622
49923 o|contracted procedure: k26625
49924 o|contracted procedure: k26628
49925 o|contracted procedure: k26640
49926 o|contracted procedure: k26643
49927 o|contracted procedure: k26646
49928 o|contracted procedure: k26654
49929 o|contracted procedure: k26662
49930 o|contracted procedure: k26669
49931 o|contracted procedure: k26675
49932 o|contracted procedure: k26692
49933 o|contracted procedure: k26695
49934 o|contracted procedure: k26698
49935 o|contracted procedure: k26710
49936 o|contracted procedure: k26713
49937 o|contracted procedure: k26716
49938 o|contracted procedure: k26724
49939 o|contracted procedure: k26732
49940 o|contracted procedure: k26739
49941 o|contracted procedure: k26745
49942 o|contracted procedure: k26439
49943 o|contracted procedure: k26448
49944 o|contracted procedure: k26455
49945 o|contracted procedure: k2625934301
49946 o|contracted procedure: k26463
49947 o|contracted procedure: k18375
49948 o|contracted procedure: k18414
49949 o|contracted procedure: k18384
49950 o|contracted procedure: k18408
49951 o|contracted procedure: k26766
49952 o|contracted procedure: k26777
49953 o|contracted procedure: k26780
49954 o|contracted procedure: k26783
49955 o|contracted procedure: k26795
49956 o|contracted procedure: k26798
49957 o|contracted procedure: k26801
49958 o|contracted procedure: k26809
49959 o|contracted procedure: k26817
49960 o|contracted procedure: k26824
49961 o|contracted procedure: k26830
49962 o|contracted procedure: k26845
49963 o|contracted procedure: k26879
49964 o|contracted procedure: k2625934317
49965 o|contracted procedure: k26889
49966 o|contracted procedure: k2625934323
49967 o|contracted procedure: k26898
49968 o|contracted procedure: k26905
49969 o|contracted procedure: k26908
49970 o|contracted procedure: k26918
49971 o|contracted procedure: k26961
49972 o|contracted procedure: k26967
49973 o|contracted procedure: k26973
49974 o|contracted procedure: k26976
49975 o|contracted procedure: k27035
49976 o|contracted procedure: k26994
49977 o|contracted procedure: k26997
49978 o|contracted procedure: k27011
49979 o|contracted procedure: k27020
49980 o|contracted procedure: k27026
49981 o|contracted procedure: k27072
49982 o|contracted procedure: k27076
49983 o|contracted procedure: k27066
49984 o|contracted procedure: k27050
49985 o|contracted procedure: k27057
49986 o|contracted procedure: k27099
49987 o|contracted procedure: k27120
49988 o|contracted procedure: k27138
49989 o|contracted procedure: k27141
49990 o|contracted procedure: k27237
49991 o|contracted procedure: k27149
49992 o|contracted procedure: k27233
49993 o|contracted procedure: k27154
49994 o|contracted procedure: k27163
49995 o|contracted procedure: k27170
49996 o|contracted procedure: k27175
49997 o|contracted procedure: k27185
49998 o|contracted procedure: k27191
49999 o|contracted procedure: k27198
50000 o|contracted procedure: k27215
50001 o|contracted procedure: k27294
50002 o|contracted procedure: k27307
50003 o|contracted procedure: k27321
50004 o|contracted procedure: k27324
50005 o|contracted procedure: k27445
50006 o|contracted procedure: k27449
50007 o|contracted procedure: k27330
50008 o|contracted procedure: k27339
50009 o|contracted procedure: k27345
50010 o|contracted procedure: k27426
50011 o|contracted procedure: k27356
50012 o|contracted procedure: k27378
50013 o|contracted procedure: k27390
50014 o|contracted procedure: k27258
50015 o|contracted procedure: k27397
50016 o|contracted procedure: k27408
50017 o|contracted procedure: k27270
50018 o|contracted procedure: k27417
50019 o|contracted procedure: k27490
50020 o|contracted procedure: k27493
50021 o|contracted procedure: k27503
50022 o|contracted procedure: k27506
50023 o|contracted procedure: k27586
50024 o|contracted procedure: k27590
50025 o|contracted procedure: k27512
50026 o|contracted procedure: k27523
50027 o|contracted procedure: k27467
50028 o|contracted procedure: k27566
50029 o|contracted procedure: k27458
50030 o|contracted procedure: k27531
50031 o|contracted procedure: k27557
50032 o|contracted procedure: k27538
50033 o|contracted procedure: k27549
50034 o|contracted procedure: k27542
50035 o|contracted procedure: k27546
50036 o|contracted procedure: k27622
50037 o|contracted procedure: k2625934346
50038 o|contracted procedure: k27660
50039 o|contracted procedure: k27672
50040 o|contracted procedure: k27676
50041 o|contracted procedure: k27684
50042 o|contracted procedure: k27715
50043 o|contracted procedure: k27734
50044 o|contracted procedure: k27724
50045 o|contracted procedure: k27941
50046 o|contracted procedure: k27749
50047 o|contracted procedure: k27752
50048 o|contracted procedure: k27761
50049 o|contracted procedure: k27764
50050 o|contracted procedure: k27773
50051 o|contracted procedure: k27785
50052 o|contracted procedure: k27797
50053 o|contracted procedure: k27809
50054 o|contracted procedure: k27820
50055 o|contracted procedure: k27866
50056 o|contracted procedure: k970834354
50057 o|contracted procedure: k27835
50058 o|substituted constant variable: g36102
50059 o|contracted procedure: k27844
50060 o|contracted procedure: k27851
50061 o|contracted procedure: k27855
50062 o|contracted procedure: k27862
50063 o|contracted procedure: k27877
50064 o|contracted procedure: k27870
50065 o|contracted procedure: k27891
50066 o|contracted procedure: k27884
50067 o|contracted procedure: k27907
50068 o|contracted procedure: k27913
50069 o|contracted procedure: k27920
50070 o|contracted procedure: k27898
50071 o|contracted procedure: k27931
50072 o|contracted procedure: k27925
50073 o|contracted procedure: k27952
50074 o|contracted procedure: k27945
50075 o|contracted procedure: k27980
50076 o|contracted procedure: k27973
50077 o|contracted procedure: k28161
50078 o|contracted procedure: k27992
50079 o|contracted procedure: k27995
50080 o|contracted procedure: k28001
50081 o|contracted procedure: k28007
50082 o|contracted procedure: k28019
50083 o|contracted procedure: k28031
50084 o|contracted procedure: k28043
50085 o|contracted procedure: k28054
50086 o|contracted procedure: k28096
50087 o|contracted procedure: k28069
50088 o|contracted procedure: k28072
50089 o|contracted procedure: k28082
50090 o|contracted procedure: k28092
50091 o|contracted procedure: k28121
50092 o|contracted procedure: k970834367
50093 o|contracted procedure: k28111
50094 o|substituted constant variable: g36110
50095 o|contracted procedure: k28125
50096 o|contracted procedure: k28131
50097 o|contracted procedure: k28151
50098 o|contracted procedure: k28139
50099 o|contracted procedure: k28145
50100 o|contracted procedure: k28190
50101 o|contracted procedure: k28183
50102 o|contracted procedure: k28209
50103 o|contracted procedure: k28225
50104 o|contracted procedure: k28239
50105 o|contracted procedure: k28250
50106 o|contracted procedure: k28258
50107 o|contracted procedure: k28269
50108 o|contracted procedure: k28262
50109 o|contracted procedure: k28290
50110 o|contracted procedure: k28301
50111 o|contracted procedure: k28307
50112 o|contracted procedure: k28325
50113 o|contracted procedure: k28335
50114 o|contracted procedure: k28345
50115 o|contracted procedure: k28342
50116 o|contracted procedure: k28362
50117 o|contracted procedure: k28355
50118 o|contracted procedure: k28377
50119 o|contracted procedure: k28384
50120 o|contracted procedure: k28393
50121 o|contracted procedure: k28408
50122 o|contracted procedure: k28417
50123 o|contracted procedure: k28428
50124 o|contracted procedure: k28435
50125 o|contracted procedure: k28444
50126 o|contracted procedure: k28483
50127 o|contracted procedure: k28490
50128 o|contracted procedure: k28452
50129 o|contracted procedure: k28462
50130 o|contracted procedure: k28473
50131 o|contracted procedure: k28496
50132 o|contracted procedure: k28530
50133 o|contracted procedure: k28537
50134 o|contracted procedure: k28499
50135 o|contracted procedure: k28508
50136 o|contracted procedure: k28520
50137 o|contracted procedure: k28540
50138 o|contracted procedure: k28556
50139 o|contracted procedure: k28560
50140 o|contracted procedure: k28552
50141 o|contracted procedure: k28587
50142 o|contracted procedure: k28628
50143 o|contracted procedure: k28621
50144 o|contracted procedure: k28814
50145 o|contracted procedure: k28637
50146 o|contracted procedure: k28690
50147 o|contracted procedure: k28701
50148 o|contracted procedure: k28652
50149 o|contracted procedure: k28669
50150 o|contracted procedure: k28680
50151 o|contracted procedure: k28720
50152 o|contracted procedure: k28784
50153 o|contracted procedure: k28726
50154 o|contracted procedure: k28738
50155 o|contracted procedure: k28745
50156 o|inlining procedure: k28735
50157 o|inlining procedure: k28735
50158 o|contracted procedure: k28760
50159 o|contracted procedure: k28764
50160 o|contracted procedure: k28778
50161 o|contracted procedure: k28787
50162 o|contracted procedure: k28806
50163 o|contracted procedure: k28797
50164 o|contracted procedure: k28825
50165 o|contracted procedure: k28818
50166 o|contracted procedure: k28832
50167 o|contracted procedure: k28868
50168 o|contracted procedure: k28839
50169 o|contracted procedure: k28848
50170 o|contracted procedure: k28865
50171 o|contracted procedure: k28854
50172 o|contracted procedure: k28892
50173 o|contracted procedure: k28898
50174 o|contracted procedure: k28917
50175 o|contracted procedure: k28913
50176 o|contracted procedure: k28926
50177 o|contracted procedure: k29055
50178 o|contracted procedure: k29193
50179 o|contracted procedure: k29061
50180 o|contracted procedure: k29077
50181 o|contracted procedure: k29089
50182 o|substituted constant variable: g36137
50183 o|contracted procedure: k28959
50184 o|contracted procedure: k28938
50185 o|inlining procedure: k29092
50186 o|inlining procedure: k29092
50187 o|contracted procedure: k29105
50188 o|contracted procedure: k29108
50189 o|contracted procedure: k29121
50190 o|contracted procedure: k29127
50191 o|inlining procedure: k29118
50192 o|inlining procedure: k29118
50193 o|contracted procedure: k29141
50194 o|contracted procedure: k29049
50195 o|contracted procedure: k28968
50196 o|inlining procedure: k29118
50197 o|contracted procedure: k28982
50198 o|contracted procedure: k29005
50199 o|contracted procedure: k29011
50200 o|contracted procedure: k29019
50201 o|contracted procedure: k29027
50202 o|contracted procedure: k28990
50203 o|contracted procedure: k29023
50204 o|contracted procedure: k29039
50205 o|contracted procedure: k29148
50206 o|contracted procedure: k29151
50207 o|contracted procedure: k29157
50208 o|contracted procedure: k29165
50209 o|contracted procedure: k29185
50210 o|contracted procedure: k29177
50211 o|contracted procedure: k29168
50212 o|contracted procedure: k29214
50213 o|contracted procedure: k29225
50214 o|contracted procedure: k29246
50215 o|contracted procedure: k29242
50216 o|contracted procedure: k29258
50217 o|contracted procedure: k29254
50218 o|contracted procedure: k29269
50219 o|contracted procedure: k29294
50220 o|contracted procedure: k29301
50221 o|contracted procedure: k29304
50222 o|contracted procedure: k29317
50223 o|contracted procedure: k29332
50224 o|contracted procedure: k29342
50225 o|contracted procedure: k29346
50226 o|contracted procedure: k29350
50227 o|contracted procedure: k29362
50228 o|contracted procedure: k29372
50229 o|contracted procedure: k29376
50230 o|contracted procedure: k29379
50231 o|contracted procedure: k29396
50232 o|contracted procedure: k29385
50233 o|contracted procedure: k29392
50234 o|contracted procedure: k29404
50235 o|contracted procedure: k29411
50236 o|contracted procedure: k29426
50237 o|contracted procedure: k29436
50238 o|contracted procedure: k29440
50239 o|contracted procedure: k29446
50240 o|contracted procedure: k29458
50241 o|contracted procedure: k29461
50242 o|contracted procedure: k29476
50243 o|contracted procedure: k29486
50244 o|contracted procedure: k29490
50245 o|contracted procedure: k29494
50246 o|contracted procedure: k29500
50247 o|contracted procedure: k29517
50248 o|contracted procedure: k29520
50249 o|contracted procedure: k29535
50250 o|contracted procedure: k29545
50251 o|contracted procedure: k29549
50252 o|contracted procedure: k29553
50253 o|contracted procedure: k29559
50254 o|contracted procedure: k29620
50255 o|contracted procedure: k29573
50256 o|contracted procedure: k29580
50257 o|contracted procedure: k29595
50258 o|contracted procedure: k29605
50259 o|contracted procedure: k29609
50260 o|contracted procedure: k29616
50261 o|contracted procedure: k29626
50262 o|contracted procedure: k29666
50263 o|contracted procedure: k29655
50264 o|contracted procedure: k29672
50265 o|contracted procedure: k29693
50266 o|contracted procedure: k29702
50267 o|contracted procedure: k29725
50268 o|contracted procedure: k29722
50269 o|contracted procedure: k29739
50270 o|contracted procedure: k29749
50271 o|contracted procedure: k29755
50272 o|contracted procedure: k29762
50273 o|contracted procedure: k29775
50274 o|contracted procedure: k29778
50275 o|contracted procedure: k29791
50276 o|contracted procedure: k29806
50277 o|contracted procedure: k29816
50278 o|contracted procedure: k29820
50279 o|contracted procedure: k29823
50280 o|contracted procedure: k29834
50281 o|contracted procedure: k29841
50282 o|contracted procedure: k29862
50283 o|contracted procedure: k29868
50284 o|contracted procedure: k29889
50285 o|contracted procedure: k29895
50286 o|contracted procedure: k29901
50287 o|contracted procedure: k29936
50288 o|contracted procedure: k29942
50289 o|contracted procedure: k29945
50290 o|contracted procedure: k29954
50291 o|contracted procedure: k29957
50292 o|contracted procedure: k29966
50293 o|contracted procedure: k29969
50294 o|contracted procedure: k30002
50295 o|contracted procedure: k30015
50296 o|contracted procedure: k30026
50297 o|contracted procedure: k30035
50298 o|contracted procedure: k30055
50299 o|contracted procedure: k30058
50300 o|contracted procedure: k30065
50301 o|contracted procedure: k30115
50302 o|contracted procedure: k30099
50303 o|contracted procedure: k30111
50304 o|contracted procedure: k30107
50305 o|contracted procedure: k30103
50306 o|contracted procedure: k30083
50307 o|contracted procedure: k30095
50308 o|contracted procedure: k30091
50309 o|contracted procedure: k30087
50310 o|contracted procedure: k30075
50311 o|contracted procedure: k30134
50312 o|contracted procedure: k30130
50313 o|contracted procedure: k30122
50314 o|contracted procedure: k30300
50315 o|contracted procedure: k30163
50316 o|contracted procedure: k30296
50317 o|contracted procedure: k30172
50318 o|contracted procedure: k30198
50319 o|contracted procedure: k30188
50320 o|contracted procedure: k30179
50321 o|contracted procedure: k30212
50322 o|contracted procedure: k30220
50323 o|contracted procedure: k30216
50324 o|contracted procedure: k30264
50325 o|contracted procedure: k30232
50326 o|contracted procedure: k30239
50327 o|contracted procedure: k30247
50328 o|contracted procedure: k30243
50329 o|contracted procedure: k30259
50330 o|contracted procedure: k30274
50331 o|contracted procedure: k30290
50332 o|contracted procedure: k30280
50333 o|contracted procedure: k30945
50334 o|contracted procedure: k30993
50335 o|contracted procedure: k30996
50336 o|simplifications: ((if . 14) (let . 673))
50337 o|replaced variables: 210
50338 o|removed binding forms: 2711
50339 o|inlining procedure: "(irregex-core.scm:242) chicken.irregex#%irregex-match-end-index"
50340 o|inlining procedure: "(irregex-core.scm:310) chicken.irregex#%irregex-match-end-index"
50341 o|inlining procedure: "(irregex-core.scm:322) chicken.irregex#%irregex-match-end-index"
50342 (o x)|known list op on rest arg sublist: ##core#rest-car o931 0
50343 (o x)|known list op on rest arg sublist: ##core#rest-cdr o931 0
50344 (o x)|known list op on rest arg sublist: ##core#rest-car o1045 0
50345 o|contracted procedure: k9895
50346 o|inlining procedure: "(irregex-core.scm:758) chicken.irregex#char-altcase"
50347 o|contracted procedure: k10850
50348 o|contracted procedure: k13397
50349 o|contracted procedure: k13624
50350 o|inlining procedure: k8771
50351 o|inlining procedure: k8771
50352 o|inlining procedure: k8771
50353 o|inlining procedure: "(irregex-core.scm:3454) chicken.irregex#%irregex-match-end-index"
50354 o|inlining procedure: "(irregex-core.scm:3528) chicken.irregex#char-alphanumeric?"
50355 o|inlining procedure: "(irregex-core.scm:3531) chicken.irregex#char-alphanumeric?"
50356 o|inlining procedure: "(irregex-core.scm:3524) chicken.irregex#char-alphanumeric?"
50357 o|inlining procedure: "(irregex-core.scm:3526) chicken.irregex#char-alphanumeric?"
50358 o|inlining procedure: "(irregex-core.scm:3560) chicken.irregex#char-alphanumeric?"
50359 o|inlining procedure: "(irregex-core.scm:3562) chicken.irregex#char-alphanumeric?"
50360 o|inlining procedure: "(irregex-core.scm:3556) chicken.irregex#char-alphanumeric?"
50361 o|inlining procedure: "(irregex-core.scm:3558) chicken.irregex#char-alphanumeric?"
50362 o|inlining procedure: "(irregex-core.scm:3575) chicken.irregex#char-alphanumeric?"
50363 o|inlining procedure: "(irregex-core.scm:3576) chicken.irregex#char-alphanumeric?"
50364 o|inlining procedure: "(irregex-core.scm:3574) chicken.irregex#char-alphanumeric?"
50365 o|contracted procedure: k17336
50366 o|substituted constant variable: r1739536263
50367 o|inlining procedure: k17007
50368 o|inlining procedure: k19322
50369 o|inlining procedure: "(irregex-core.scm:2075) chicken.irregex#%irregex-match-end-index"
50370 o|inlining procedure: "(irregex-core.scm:2095) chicken.irregex#%irregex-match-end-index"
50371 o|contracted procedure: k19829
50372 o|inlining procedure: "(irregex-core.scm:2486) chicken.irregex#char-altcase"
50373 o|inlining procedure: "(irregex-core.scm:2760) chicken.irregex#mst-state-mappings-set!"
50374 o|inlining procedure: k26288
50375 o|inlining procedure: k26288
50376 o|contracted procedure: k22758
50377 o|inlining procedure: "(irregex-core.scm:2799) chicken.irregex#mst-state-mappings-set!"
50378 o|inlining procedure: "(irregex-core.scm:2781) chicken.irregex#mst-state-mappings-set!"
50379 o|inlining procedure: "(irregex-core.scm:2781) chicken.irregex#mst-state-mappings-set!"
50380 o|inlining procedure: "(irregex-core.scm:3880) chicken.irregex#char-altcase"
50381 o|inlining procedure: "(irregex-core.scm:3879) chicken.irregex#char-altcase"
50382 o|inlining procedure: "(irregex-core.scm:3917) chicken.irregex#%irregex-match-end-index"
50383 o|inlining procedure: "(irregex-core.scm:3951) chicken.irregex#%irregex-match-end-index"
50384 o|inlining procedure: "(irregex-core.scm:3973) chicken.irregex#%irregex-match-end-index"
50385 o|inlining procedure: "(irregex-core.scm:4019) chicken.irregex#%irregex-match-end-index"
50386 (o x)|known list op on rest arg sublist: ##core#rest-car o5917 0
50387 o|inlining procedure: k29137
50388 o|simplifications: ((if . 3) (let . 6))
50389 o|replaced variables: 7
50390 o|removed binding forms: 270
50391 o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-end-index
50392 o|removed side-effect free assignment to unused variable: chicken.irregex#char-alphanumeric?
50393 o|contracted procedure: k10638
50394 o|removed side-effect free assignment to unused variable: chicken.irregex#char-altcase
50395 o|substituted constant variable: r877236533
50396 o|substituted constant variable: n74936620
50397 o|substituted constant variable: n74936625
50398 o|removed side-effect free assignment to unused variable: chicken.irregex#mst-state-mappings-set!
50399 o|substituted constant variable: r2628936668
50400 o|contracted procedure: k22432
50401 o|substituted constant variable: n74936747
50402 o|contracted procedure: k28063
50403 o|substituted constant variable: n74936754
50404 o|substituted constant variable: n74936761
50405 o|substituted constant variable: n74936766
50406 o|simplifications: ((if . 2) (let . 9))
50407 o|replaced variables: 74
50408 o|removed binding forms: 14
50409 o|removed conditional forms: 1
50410 o|inlining procedure: k8278
50411 o|inlining procedure: k8368
50412 o|inlining procedure: k10497
50413 o|inlining procedure: k25579
50414 o|inlining procedure: k25603
50415 o|inlining procedure: k25777
50416 o|inlining procedure: k25797
50417 o|inlining procedure: k25842
50418 o|inlining procedure: k19562
50419 o|inlining procedure: k27668
50420 o|inlining procedure: k28254
50421 o|inlining procedure: k28516
50422 o|removed binding forms: 76
50423 o|contracted procedure: k25068
50424 o|contracted procedure: k25832
50425 o|contracted procedure: k19450
50426 o|contracted procedure: k20859
50427 o|contracted procedure: k21943
50428 o|contracted procedure: k22105
50429 o|contracted procedure: k27664
50430 o|contracted procedure: k27823
50431 o|contracted procedure: k28057
50432 o|simplifications: ((let . 5))
50433 o|removed binding forms: 21
50434 o|direct leaf routine/allocation: lp1131 0
50435 o|direct leaf routine/allocation: lp1179 0
50436 o|direct leaf routine/allocation: cased-char1457 9
50437 o|direct leaf routine/allocation: join1643 0
50438 o|direct leaf routine/allocation: new-res1644 6
50439 o|direct leaf routine/allocation: g18841885 6
50440 o|direct leaf routine/allocation: byte1955 0
50441 o|direct leaf routine/allocation: chicken.irregex#sre-repeater? 0
50442 o|direct leaf routine/allocation: chicken.irregex#sre-sequence 3
50443 o|direct leaf routine/allocation: chicken.irregex#sre-alternate 3
50444 o|direct leaf routine/allocation: g35143521 20
50445 o|direct leaf routine/allocation: g36693687 3
50446 o|direct leaf routine/allocation: g35853592 3
50447 o|direct leaf routine/allocation: chicken.irregex#nfa-get-epsilons 0
50448 o|direct leaf routine/allocation: g40874094 3
50449 o|direct leaf routine/allocation: doloop41874188 0
50450 o|direct leaf routine/allocation: chicken.irregex#char-ranges-union 6
50451 o|contracted procedure: k9133
50452 o|converted assignments to bindings: (lp1131)
50453 o|converted assignments to bindings: (lp1179)
50454 o|contracted procedure: "(irregex-core.scm:762) k10552"
50455 o|contracted procedure: "(irregex-core.scm:810) k10682"
50456 o|contracted procedure: "(irregex-core.scm:813) k10691"
50457 o|contracted procedure: "(irregex-core.scm:828) k10734"
50458 o|contracted procedure: "(irregex-core.scm:831) k10748"
50459 o|contracted procedure: "(irregex-core.scm:832) k10752"
50460 o|contracted procedure: "(irregex-core.scm:878) k11130"
50461 o|contracted procedure: "(irregex-core.scm:982) k11767"
50462 o|contracted procedure: "(irregex-core.scm:984) k11783"
50463 o|contracted procedure: "(irregex-core.scm:986) k11799"
50464 o|contracted procedure: "(irregex-core.scm:989) k11818"
50465 o|contracted procedure: "(irregex-core.scm:994) k11859"
50466 o|contracted procedure: "(irregex-core.scm:997) k11882"
50467 o|inlining procedure: "(irregex-core.scm:1251) k13530"
50468 o|contracted procedure: "(irregex-core.scm:1362) k14081"
50469 o|contracted procedure: "(irregex-core.scm:1363) k14069"
50470 o|contracted procedure: "(irregex-core.scm:1366) k14134"
50471 o|contracted procedure: "(irregex-core.scm:1367) k14122"
50472 o|contracted procedure: "(irregex-core.scm:1368) k14110"
50473 o|contracted procedure: "(irregex-core.scm:1371) k14203"
50474 o|contracted procedure: "(irregex-core.scm:1372) k14191"
50475 o|contracted procedure: "(irregex-core.scm:1373) k14179"
50476 o|contracted procedure: "(irregex-core.scm:1374) k14167"
50477 o|contracted procedure: "(irregex-core.scm:1443) k14638"
50478 o|contracted procedure: "(irregex-core.scm:1455) k14766"
50479 o|contracted procedure: "(irregex-core.scm:1462) k14800"
50480 o|contracted procedure: "(irregex-core.scm:1471) k14905"
50481 o|contracted procedure: "(irregex-core.scm:1478) k14939"
50482 o|contracted procedure: "(irregex-core.scm:1486) k14497"
50483 o|inlining procedure: "(irregex-core.scm:1419) k15537"
50484 o|contracted procedure: "(irregex-core.scm:1489) k15295"
50485 o|contracted procedure: "(irregex-core.scm:1506) k15157"
50486 o|contracted procedure: "(irregex-core.scm:1519) k14582"
50487 o|contracted procedure: "(irregex-core.scm:3156) k23551"
50488 o|contracted procedure: "(irregex-core.scm:3165) k23590"
50489 o|contracted procedure: "(irregex-core.scm:3170) k23609"
50490 o|contracted procedure: "(irregex-core.scm:3175) k23628"
50491 o|contracted procedure: "(irregex-core.scm:3177) k23647"
50492 o|contracted procedure: "(irregex-core.scm:3183) k23698"
50493 o|contracted procedure: "(irregex-core.scm:3189) k23744"
50494 o|contracted procedure: "(irregex-core.scm:3194) k23770"
50495 o|contracted procedure: "(irregex-core.scm:3203) k23809"
50496 o|contracted procedure: "(irregex-core.scm:3200) k23815"
50497 o|contracted procedure: "(irregex-core.scm:3215) k23851"
50498 o|contracted procedure: "(irregex-core.scm:3210) k23869"
50499 o|contracted procedure: "(irregex-core.scm:3234) k23894"
50500 o|contracted procedure: "(irregex-core.scm:3229) k23912"
50501 o|contracted procedure: "(irregex-core.scm:3258) k24001"
50502 o|contracted procedure: "(irregex-core.scm:3292) k24153"
50503 o|contracted procedure: "(irregex-core.scm:3325) k24392"
50504 o|contracted procedure: "(irregex-core.scm:3335) k24427"
50505 o|contracted procedure: "(irregex-core.scm:3345) k24505"
50506 o|contracted procedure: "(irregex-core.scm:3362) k24548"
50507 o|contracted procedure: "(irregex-core.scm:3444) k24911"
50508 o|contracted procedure: "(irregex-core.scm:3447) k25038"
50509 o|contracted procedure: "(irregex-core.scm:3626) k26136"
50510 o|contracted procedure: "(irregex-core.scm:1786) k17467"
50511 o|contracted procedure: "(irregex-core.scm:1810) k17653"
50512 o|contracted procedure: "(irregex-core.scm:1821) k17692"
50513 o|contracted procedure: "(irregex-core.scm:1825) k17739"
50514 o|contracted procedure: "(irregex-core.scm:1829) k17813"
50515 o|contracted procedure: "(irregex-core.scm:1833) k17841"
50516 o|contracted procedure: "(irregex-core.scm:1546) k15616"
50517 o|contracted procedure: "(irregex-core.scm:1547) k15631"
50518 o|contracted procedure: "(irregex-core.scm:1562) k15805"
50519 o|contracted procedure: "(irregex-core.scm:1688) k16737"
50520 o|contracted procedure: "(irregex-core.scm:1699) k16854"
50521 o|contracted procedure: "(irregex-core.scm:1888) k18261"
50522 o|contracted procedure: "(irregex-core.scm:1889) k18279"
50523 o|contracted procedure: "(irregex-core.scm:1890) k18296"
50524 o|contracted procedure: "(irregex-core.scm:1910) k18442"
50525 o|contracted procedure: "(irregex-core.scm:1912) k18464"
50526 o|contracted procedure: "(irregex-core.scm:1916) k18497"
50527 o|contracted procedure: "(irregex-core.scm:2153) k19884"
50528 o|contracted procedure: "(irregex-core.scm:2237) k20291"
50529 o|contracted procedure: "(irregex-core.scm:2189) k20465"
50530 o|contracted procedure: "(irregex-core.scm:2421) k20618"
50531 o|contracted procedure: "(irregex-core.scm:2560) k21254"
50532 o|contracted procedure: "(irregex-core.scm:2633) k21407"
50533 o|contracted procedure: "(irregex-core.scm:2646) k21485"
50534 o|contracted procedure: "(irregex-core.scm:2762) k22005"
50535 o|contracted procedure: "(irregex-core.scm:3013) k22953"
50536 o|contracted procedure: k22332
50537 o|converted assignments to bindings: (doloop41874188)
50538 o|contracted procedure: "(irregex-core.scm:3732) k26837"
50539 o|contracted procedure: "(irregex-core.scm:3734) k26852"
50540 o|contracted procedure: "(irregex-core.scm:3795) k27204"
50541 o|contracted procedure: "(irregex-core.scm:3799) k27219"
50542 o|simplifications: ((if . 1) (let . 3))
50543 o|removed binding forms: 86
50544 o|contracted procedure: "(irregex-core.scm:1788) k17495"
50545 o|replaced variables: 10
50546 o|removed binding forms: 1
50547 o|simplifications: ((if . 6))
50548 o|removed binding forms: 10
50549 o|contracted procedure: k24015
50550 o|contracted procedure: k24056
50551 o|contracted procedure: k24189
50552 o|contracted procedure: k24215
50553 o|removed binding forms: 4
50554 o|direct leaf routine/allocation: shift1522 6
50555 o|direct leaf routine/allocation: chicken.irregex#nfa-add-epsilon! 6
50556 o|contracted procedure: "(irregex-core.scm:813) k10787"
50557 o|contracted procedure: "(irregex-core.scm:835) k10802"
50558 o|contracted procedure: "(irregex-core.scm:2498) k20914"
50559 o|contracted procedure: "(irregex-core.scm:2572) k21212"
50560 o|contracted procedure: "(irregex-core.scm:2573) k21215"
50561 o|contracted procedure: "(irregex-core.scm:2582) k21282"
50562 o|contracted procedure: "(irregex-core.scm:2597) k21322"
50563 o|inlining procedure: "(irregex-core.scm:2599) k21319"
50564 o|contracted procedure: "(irregex-core.scm:2637) k21385"
50565 o|contracted procedure: "(irregex-core.scm:2638) k21382"
50566 o|contracted procedure: "(irregex-core.scm:2650) k21463"
50567 o|contracted procedure: "(irregex-core.scm:2651) k21460"
50568 o|removed binding forms: 11
50569 o|contracted procedure: "(irregex-core.scm:2599) k21319"
50570 o|removed binding forms: 1
50571 o|customizable procedures: (k30205 loop26289 loop6274 k29562 k29696 for-each-loop62266236 k29705 k29632 chicken.irregex#cset->string for-each-loop61716181 g61346141 for-each-loop61336145 for-each-loop61126122 for-each-loop60936103 k29310 for-each-loop60766086 lp6034 for-each-loop60576067 lp6016 lp15983 k29008 map-loop59575975 lp25986 loop5928 scan5919 k28640 k28711 lp5696 g56585659 lp5621 chicken.irregex#irregex-apply-match lp5558 chicken.irregex#irregex-copy-matches k27755 k27758 chicken.irregex#irregex-reset-matches! lp5504 k27635 lp5471 intersect5452 k27364 k27367 k27374 diff5423 union-range5398 lp5379 map-loop53315348 lp3090 lp5222 map-loop53045321 map-loop52765293 rec5240 map-loop52505267 lp5233 lp5216 k23125 lp24373 lp4370 k23014 g43424343 k22990 lp4134 k22102 k22108 lp24328 lp4322 chicken.irregex#mst-fold g43074308 chicken.irregex#cset-difference chicken.irregex#mst-copy k22832 lp4295 chicken.irregex#nfa-state->mst chicken.irregex#nfa-epsilon-closure lp4163 k23247 lp34404 lp24400 lp4398 k22486 chicken.irregex#tag-set-commands-for-closure lp24220 lp4209 lp4239 g42584267 map-loop42524274 doloop42444245 k22627 lp4175 k21940 for-each-loop40864105 chicken.irregex#make-mst chicken.irregex#mst-add! k21749 lp3844 doloop40294030 k21107 k21154 g40194020 chicken.irregex#string->cset add-char-state!3878 lp23910 lp3870 extend-state!3877 new-state-number3875 add-state!3876 doloop38833884 k20781 doloop35443545 k19970 for-each-loop35843596 k20359 k20317 for-each-loop36683692 g37083717 map-loop37023724 for-each-loop36783731 lp23610 k20008 chicken.irregex#finalize! lp13601 for-each-loop35133534 k19526 lp3419 k19313 lp3335 lp13470 chicken.irregex#find chicken.irregex#cset-contains? lp23477 lp23301 lp13297 chicken.irregex#dfa-match/longest chicken.irregex#irregex-new-matches chicken.irregex#irregex-search/matches k18931 k18751 map-loop32053222 k18518 chicken.irregex#sre-sequence-names map-loop30643081 k17013 k16865 k16748 k16635 k16495 k16322 k16365 chicken.irregex#every k15972 map-loop25042521 k15764 map-loop24702487 rec2364 map-loop24442461 chicken.irregex#any chicken.irregex#cset->utf8-pattern g24072416 map-loop24012419 g23802389 map-loop23742392 adjust2356 g26142615 chicken.irregex#sre->nfa g26252626 chicken.irregex#nfa->dfa k17135 k17164 k17488 k17868 k17908 g30273028 k17887 k17673 k17676 k17546 k17352 lp22897 lp22885 lp2845 grow2855 chicken.irregex#sre-names lp5129 lp5105 k25817 chicken.irregex#chunker-next-char k25731 k25722 k25657 k25624 k25526 k25517 chicken.irregex#chunker-prev-char k23486 k24721 lp4844 k24577 k24137 k24140 k23985 k23988 chicken.irregex#sre-count-submatches rec4438 chicken.irregex#sre-cset->procedure lp4429 chicken.irregex#cset->plist k15522 chicken.irregex#char->utf8-list map-loop23152336 chicken.irregex#unicode-range-up-from lp2033 map-loop21842205 g22202229 map-loop22142265 map-loop22772298 chicken.irregex#utf8-lowest-digit-of-length k15060 chicken.irregex#zero-to map-loop22372258 chicken.irregex#unicode-range-up-to lp2345 map-loop21482165 map-loop21132130 map-loop20512068 map-loop20772098 chicken.irregex#unicode-range-helper scan1059 chicken.irregex#symbol-list->flags scan1071 lp21773 k12693 k12043 lp1082 collect1090 k12086 k13916 k13799 k13686 chicken.irregex#sre->cset k13475 k13552 k13564 chicken.irregex#string-parse-hex-escape chicken.irregex#cset-case-insensitive chicken.irregex#cset-complement go1850 lp21635 chicken.irregex#with-read-from-string k11250 save1462 collect/single1460 k10987 lp1451 collect/terms1461 collect1459 chicken.irregex#last k10660 k10663 lp1514 lp1977 chicken.irregex#utf8-string-ref k10597 cased-string1458 map-loop14711488 k10365 k10354 lp1416 k10248 scan1386 scan1349 collect1353 k9962 skip1331 lp1317 read1304 lp1208 lp1199 lp1186 lp1160 lp1153 chicken.irregex#fold scan1047 lp983 k8410 loop955 chicken.irregex#string-cat-reverse lp866 k8020 chicken.irregex#irregex-match-numeric-index chicken.irregex#vector-copy)
50572 o|calls to known targets: 1141
50573 o|identified direct recursive calls: f_8066 2
50574 o|identified direct recursive calls: f_8830 1
50575 o|identified direct recursive calls: f_9137 1
50576 o|identified direct recursive calls: f_9174 1
50577 o|identified direct recursive calls: f_9271 1
50578 o|identified direct recursive calls: f_9887 1
50579 o|identified direct recursive calls: f_10021 1
50580 o|identified direct recursive calls: f_9746 4
50581 o|identified direct recursive calls: f_10529 1
50582 o|identified direct recursive calls: f_14224 1
50583 o|identified direct recursive calls: f_10673 2
50584 o|identified direct recursive calls: f_11709 5
50585 o|identified direct recursive calls: f_8968 1
50586 o|identified direct recursive calls: f_12775 2
50587 o|identified direct recursive calls: f_8930 1
50588 o|identified direct recursive calls: f_10482 3
50589 o|identified direct recursive calls: f_8873 1
50590 o|identified direct recursive calls: f_14680 1
50591 o|identified direct recursive calls: f_14716 1
50592 o|identified direct recursive calls: f_14837 1
50593 o|identified direct recursive calls: f_14976 1
50594 o|identified direct recursive calls: f_15082 1
50595 o|identified direct recursive calls: f_15185 1
50596 o|identified direct recursive calls: f_15323 1
50597 o|identified direct recursive calls: f_15414 1
50598 o|identified direct recursive calls: f_14508 1
50599 o|identified direct recursive calls: f_17094 1
50600 o|identified direct recursive calls: f_15989 1
50601 o|identified direct recursive calls: f_15591 2
50602 o|identified direct recursive calls: f_16575 1
50603 o|identified direct recursive calls: f_18237 3
50604 o|identified direct recursive calls: f_18418 3
50605 o|identified direct recursive calls: f_19876 1
50606 o|identified direct recursive calls: f_20283 1
50607 o|identified direct recursive calls: f_20457 1
50608 o|identified direct recursive calls: f_20804 1
50609 o|identified direct recursive calls: f_20766 4
50610 o|identified direct recursive calls: f_21677 1
50611 o|identified direct recursive calls: f_21716 1
50612 o|identified direct recursive calls: f_21997 1
50613 o|identified direct recursive calls: f_22296 1
50614 o|identified direct recursive calls: f_22702 1
50615 o|identified direct recursive calls: f_23290 2
50616 o|identified direct recursive calls: f_22234 1
50617 o|identified direct recursive calls: f_22401 1
50618 o|identified direct recursive calls: f_22163 1
50619 o|identified direct recursive calls: f_22345 1
50620 o|identified direct recursive calls: f_22959 1
50621 o|identified direct recursive calls: f_26393 1
50622 o|identified direct recursive calls: f_18370 1
50623 o|identified direct recursive calls: f_26502 2
50624 o|identified direct recursive calls: f_26992 2
50625 o|identified direct recursive calls: f_27094 4
50626 o|identified direct recursive calls: f_27289 3
50627 o|identified direct recursive calls: f_27485 3
50628 o|identified direct recursive calls: f_28372 1
50629 o|identified direct recursive calls: f_28715 2
50630 o|identified direct recursive calls: f_28843 1
50631 o|identified direct recursive calls: f_29084 2
50632 o|identified direct recursive calls: f_29072 1
50633 o|identified direct recursive calls: f_30050 4
50634 o|fast box initializations: 141
50635 o|fast global references: 362
50636 o|fast global assignments: 77
50637 o|dropping unused closure argument: f_10332
50638 o|dropping unused closure argument: f_13295
50639 o|dropping unused closure argument: f_14029
50640 o|dropping unused closure argument: f_14262
50641 o|dropping unused closure argument: f_14338
50642 o|dropping unused closure argument: f_14614
50643 o|dropping unused closure argument: f_14752
50644 o|dropping unused closure argument: f_14891
50645 o|dropping unused closure argument: f_15469
50646 o|dropping unused closure argument: f_16575
50647 o|dropping unused closure argument: f_16982
50648 o|dropping unused closure argument: f_18191
50649 o|dropping unused closure argument: f_18214
50650 o|dropping unused closure argument: f_18418
50651 o|dropping unused closure argument: f_18704
50652 o|dropping unused closure argument: f_19053
50653 o|dropping unused closure argument: f_19816
50654 o|dropping unused closure argument: f_19935
50655 o|dropping unused closure argument: f_20582
50656 o|dropping unused closure argument: f_20616
50657 o|dropping unused closure argument: f_20757
50658 o|dropping unused closure argument: f_21880
50659 o|dropping unused closure argument: f_21909
50660 o|dropping unused closure argument: f_21926
50661 o|dropping unused closure argument: f_21935
50662 o|dropping unused closure argument: f_22287
50663 o|dropping unused closure argument: f_22369
50664 o|dropping unused closure argument: f_23054
50665 o|dropping unused closure argument: f_23069
50666 o|dropping unused closure argument: f_26168
50667 o|dropping unused closure argument: f_26381
50668 o|dropping unused closure argument: f_26472
50669 o|dropping unused closure argument: f_26492
50670 o|dropping unused closure argument: f_26959
50671 o|dropping unused closure argument: f_27044
50672 o|dropping unused closure argument: f_27275
50673 o|dropping unused closure argument: f_27597
50674 o|dropping unused closure argument: f_27607
50675 o|dropping unused closure argument: f_28366
50676 o|dropping unused closure argument: f_29197
50677 o|dropping unused closure argument: f_7540
50678 o|dropping unused closure argument: f_7622
50679 o|dropping unused closure argument: f_7645
50680 o|dropping unused closure argument: f_7654
50681 o|dropping unused closure argument: f_7954
50682 o|dropping unused closure argument: f_8640
50683 o|dropping unused closure argument: f_8670
50684 o|dropping unused closure argument: f_9108
50685 o|dropping unused closure argument: f_9158
50686 o|dropping unused closure argument: f_9195
50687 o|dropping unused closure argument: f_9256
50688 o|dropping unused closure argument: f_9271
50689 o|dropping unused closure argument: f_9294
50690 o|dropping unused closure argument: f_9337
50691 o|dropping unused closure argument: f_9382
50692 o|dropping unused closure argument: f_9739
50693 */
50694 /* end of file */
50695