1 /*Generated by genstub. Do not edit.*/
2
3 #line 32 "./lib_treemap.stub"
4
5 #define LIBSAGITTARIUS_BODY
6
7
8 #line 33 "./lib_treemap.stub"
9
10 #include <sagittarius/private.h>
11
12 static struct sg__rc_cgen13336Rec {
13 SgObject d13337[236];
14 SgWord d13566[685];
15 SgCodeBuilder d13567[24];
16 } sg__rc_cgen13336 = {
17 { /* SgObject d13337 */
18 SG_UNBOUND,
19 SG_UNBOUND,
20 SG_UNBOUND,
21 SG_UNBOUND,
22 SG_UNBOUND,
23 SG_UNBOUND,
24 SG_UNBOUND,
25 SG_UNBOUND,
26 SG_UNBOUND,
27 SG_UNBOUND,
28 SG_UNBOUND,
29 SG_UNBOUND,
30 SG_UNBOUND,
31 SG_UNBOUND,
32 SG_UNBOUND,
33 SG_UNBOUND,
34 SG_UNBOUND,
35 SG_UNBOUND,
36 SG_UNBOUND,
37 SG_UNBOUND,
38 SG_UNBOUND,
39 SG_UNBOUND,
40 SG_UNBOUND,
41 SG_UNBOUND,
42 SG_UNBOUND,
43 SG_UNBOUND,
44 SG_UNBOUND,
45 SG_UNBOUND,
46 SG_UNBOUND,
47 SG_UNBOUND,
48 SG_UNBOUND,
49 SG_UNBOUND,
50 SG_UNBOUND,
51 SG_UNBOUND,
52 SG_UNBOUND,
53 SG_UNBOUND,
54 SG_UNBOUND,
55 SG_UNBOUND,
56 SG_UNBOUND,
57 SG_UNBOUND,
58 SG_UNBOUND,
59 SG_UNBOUND,
60 SG_UNBOUND,
61 SG_UNBOUND,
62 SG_UNBOUND,
63 SG_UNBOUND,
64 SG_UNBOUND,
65 SG_UNBOUND,
66 SG_UNBOUND,
67 SG_UNBOUND,
68 SG_UNBOUND,
69 SG_UNBOUND,
70 SG_UNBOUND,
71 SG_UNBOUND,
72 SG_UNBOUND,
73 SG_UNBOUND,
74 SG_UNBOUND,
75 SG_UNBOUND,
76 SG_UNBOUND,
77 SG_UNBOUND,
78 SG_UNBOUND,
79 SG_UNBOUND,
80 SG_UNBOUND,
81 SG_UNBOUND,
82 SG_UNBOUND,
83 SG_UNBOUND,
84 SG_UNBOUND,
85 SG_UNBOUND,
86 SG_UNBOUND,
87 SG_UNBOUND,
88 SG_UNBOUND,
89 SG_UNBOUND,
90 SG_UNBOUND,
91 SG_UNBOUND,
92 SG_UNBOUND,
93 SG_UNBOUND,
94 SG_UNBOUND,
95 SG_UNBOUND,
96 SG_UNBOUND,
97 SG_UNBOUND,
98 SG_UNBOUND,
99 SG_UNBOUND,
100 SG_UNBOUND,
101 SG_UNBOUND,
102 SG_UNBOUND,
103 SG_UNBOUND,
104 SG_UNBOUND,
105 SG_UNBOUND,
106 SG_UNBOUND,
107 SG_UNBOUND,
108 SG_UNBOUND,
109 SG_UNBOUND,
110 SG_UNBOUND,
111 SG_UNBOUND,
112 SG_UNBOUND,
113 SG_UNBOUND,
114 SG_UNBOUND,
115 SG_UNBOUND,
116 SG_UNBOUND,
117 SG_UNBOUND,
118 SG_UNBOUND,
119 SG_UNBOUND,
120 SG_UNBOUND,
121 SG_UNBOUND,
122 SG_UNBOUND,
123 SG_UNBOUND,
124 SG_UNBOUND,
125 SG_UNBOUND,
126 SG_UNBOUND,
127 SG_UNBOUND,
128 SG_UNBOUND,
129 SG_UNBOUND,
130 SG_UNBOUND,
131 SG_UNBOUND,
132 SG_UNBOUND,
133 SG_UNBOUND,
134 SG_UNBOUND,
135 SG_UNBOUND,
136 SG_UNBOUND,
137 SG_UNBOUND,
138 SG_UNBOUND,
139 SG_UNBOUND,
140 SG_UNBOUND,
141 SG_UNBOUND,
142 SG_UNBOUND,
143 SG_UNBOUND,
144 SG_UNBOUND,
145 SG_UNBOUND,
146 SG_UNBOUND,
147 SG_UNBOUND,
148 SG_UNBOUND,
149 SG_UNBOUND,
150 SG_UNBOUND,
151 SG_UNBOUND,
152 SG_UNBOUND,
153 SG_UNBOUND,
154 SG_UNBOUND,
155 SG_UNBOUND,
156 SG_UNBOUND,
157 SG_UNBOUND,
158 SG_UNBOUND,
159 SG_UNBOUND,
160 SG_UNBOUND,
161 SG_UNBOUND,
162 SG_UNBOUND,
163 SG_UNBOUND,
164 SG_UNBOUND,
165 SG_UNBOUND,
166 SG_UNBOUND,
167 SG_UNBOUND,
168 SG_UNBOUND,
169 SG_UNBOUND,
170 SG_UNBOUND,
171 SG_UNBOUND,
172 SG_UNBOUND,
173 SG_UNBOUND,
174 SG_UNBOUND,
175 SG_UNBOUND,
176 SG_UNBOUND,
177 SG_UNBOUND,
178 SG_UNBOUND,
179 SG_UNBOUND,
180 SG_UNBOUND,
181 SG_UNBOUND,
182 SG_UNBOUND,
183 SG_UNBOUND,
184 SG_UNBOUND,
185 SG_UNBOUND,
186 SG_UNBOUND,
187 SG_UNBOUND,
188 SG_UNBOUND,
189 SG_UNBOUND,
190 SG_UNBOUND,
191 SG_UNBOUND,
192 SG_UNBOUND,
193 SG_UNBOUND,
194 SG_UNBOUND,
195 SG_UNBOUND,
196 SG_UNBOUND,
197 SG_UNBOUND,
198 SG_UNBOUND,
199 SG_UNBOUND,
200 SG_UNBOUND,
201 SG_UNBOUND,
202 SG_UNBOUND,
203 SG_UNBOUND,
204 SG_UNBOUND,
205 SG_UNBOUND,
206 SG_UNBOUND,
207 SG_UNBOUND,
208 SG_UNBOUND,
209 SG_UNBOUND,
210 SG_UNBOUND,
211 SG_UNBOUND,
212 SG_UNBOUND,
213 SG_UNBOUND,
214 SG_UNBOUND,
215 SG_UNBOUND,
216 SG_UNBOUND,
217 SG_UNBOUND,
218 SG_UNBOUND,
219 SG_UNBOUND,
220 SG_UNBOUND,
221 SG_UNBOUND,
222 SG_UNBOUND,
223 SG_UNBOUND,
224 SG_UNBOUND,
225 SG_UNBOUND,
226 SG_UNBOUND,
227 SG_UNBOUND,
228 SG_UNBOUND,
229 SG_UNBOUND,
230 SG_UNBOUND,
231 SG_UNBOUND,
232 SG_UNBOUND,
233 SG_UNBOUND,
234 SG_UNBOUND,
235 SG_UNBOUND,
236 SG_UNBOUND,
237 SG_UNBOUND,
238 SG_UNBOUND,
239 SG_UNBOUND,
240 SG_UNBOUND,
241 SG_UNBOUND,
242 SG_UNBOUND,
243 SG_UNBOUND,
244 SG_UNBOUND,
245 SG_UNBOUND,
246 SG_UNBOUND,
247 SG_UNBOUND,
248 SG_UNBOUND,
249 SG_UNBOUND,
250 SG_UNBOUND,
251 SG_UNBOUND,
252 SG_UNBOUND,
253 SG_UNBOUND,
254 },
255 { /* SgWord d13566 */
256 /* treemap-entries */0x00000030 /* 0 FRAME */,
257 SG_WORD(4),
258 0x00000045 /* 2 LREF_PUSH */,
259 0x0000014a /* 3 GREF_CALL */,
260 SG_WORD(SG_UNDEF) /* #<identifier treemap-entries-list#(sagittarius treemap)> */,
261 0x00000228 /* 5 RECEIVE */,
262 0x00000030 /* 6 FRAME */,
263 SG_WORD(4),
264 0x00000145 /* 8 LREF_PUSH */,
265 0x0000014a /* 9 GREF_CALL */,
266 SG_WORD(SG_UNDEF) /* #<identifier list->vector#(sagittarius treemap)> */,
267 0x0000000b /* 11 PUSH */,
268 0x00000030 /* 12 FRAME */,
269 SG_WORD(4),
270 0x00000245 /* 14 LREF_PUSH */,
271 0x0000014a /* 15 GREF_CALL */,
272 SG_WORD(SG_UNDEF) /* #<identifier list->vector#(sagittarius treemap)> */,
273 0x0000023a /* 17 VALUES */,
274 0x0000002f /* 18 RET */,
275 /* treemap-keys */0x00000030 /* 0 FRAME */,
276 SG_WORD(4),
277 0x00000045 /* 2 LREF_PUSH */,
278 0x0000014a /* 3 GREF_CALL */,
279 SG_WORD(SG_UNDEF) /* #<identifier treemap-keys-list#(sagittarius treemap)> */,
280 0x0000000b /* 5 PUSH */,
281 0x0000014b /* 6 GREF_TAIL_CALL */,
282 SG_WORD(SG_UNDEF) /* #<identifier list->vector#(sagittarius treemap)> */,
283 0x0000002f /* 8 RET */,
284 /* treemap-values */0x00000030 /* 0 FRAME */,
285 SG_WORD(4),
286 0x00000045 /* 2 LREF_PUSH */,
287 0x0000014a /* 3 GREF_CALL */,
288 SG_WORD(SG_UNDEF) /* #<identifier treemap-values-list#(sagittarius treemap)> */,
289 0x0000000b /* 5 PUSH */,
290 0x0000014b /* 6 GREF_TAIL_CALL */,
291 SG_WORD(SG_UNDEF) /* #<identifier list->vector#(sagittarius treemap)> */,
292 0x0000002f /* 8 RET */,
293 /* wrong-type-argument-message */0x00000205 /* 0 LREF */,
294 0x00000021 /* 1 BNNULL */,
295 SG_WORD(8),
296 0x00000048 /* 3 CONST_PUSH */,
297 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */,
298 0x00000045 /* 5 LREF_PUSH */,
299 0x00000145 /* 6 LREF_PUSH */,
300 0x0000034b /* 7 GREF_TAIL_CALL */,
301 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
302 0x0000002f /* 9 RET */,
303 0x00000048 /* 10 CONST_PUSH */,
304 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */,
305 0x00000045 /* 12 LREF_PUSH */,
306 0x00000145 /* 13 LREF_PUSH */,
307 0x0000025b /* 14 LREF_CAR_PUSH */,
308 0x0000044b /* 15 GREF_TAIL_CALL */,
309 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
310 0x0000002f /* 17 RET */,
311 /* %treemap-fold */0x00000030 /* 0 FRAME */,
312 SG_WORD(4),
313 0x00000045 /* 2 LREF_PUSH */,
314 0x0000014a /* 3 GREF_CALL */,
315 SG_WORD(SG_UNDEF) /* #<identifier procedure?#(sagittarius treemap)> */,
316 0x00000017 /* 5 TEST */,
317 SG_WORD(4),
318 0x00000002 /* 7 UNDEF */,
319 0x00000018 /* 8 JUMP */,
320 SG_WORD(35),
321 0x00000030 /* 10 FRAME */,
322 SG_WORD(33),
323 0x00000146 /* 12 FREF_PUSH */,
324 0x00000104 /* 13 CONSTI */,
325 0x00000138 /* 14 LIST */,
326 0x0000000b /* 15 PUSH */,
327 0x00000a05 /* 16 LREF */,
328 0x00000021 /* 17 BNNULL */,
329 SG_WORD(12),
330 0x00000030 /* 19 FRAME */,
331 SG_WORD(8),
332 0x00000048 /* 21 CONST_PUSH */,
333 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */,
334 0x00000048 /* 23 CONST_PUSH */,
335 SG_WORD(SG_UNDEF) /* procedure */,
336 0x00000045 /* 25 LREF_PUSH */,
337 0x0000034a /* 26 GREF_CALL */,
338 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
339 0x00000018 /* 28 JUMP */,
340 SG_WORD(11),
341 0x00000030 /* 30 FRAME */,
342 SG_WORD(9),
343 0x00000048 /* 32 CONST_PUSH */,
344 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */,
345 0x00000048 /* 34 CONST_PUSH */,
346 SG_WORD(SG_UNDEF) /* procedure */,
347 0x00000045 /* 36 LREF_PUSH */,
348 0x00000a5b /* 37 LREF_CAR_PUSH */,
349 0x0000044a /* 38 GREF_CALL */,
350 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
351 0x00000132 /* 40 LEAVE */,
352 0x0000000b /* 41 PUSH */,
353 0x0000024a /* 42 GREF_CALL */,
354 SG_WORD(SG_UNDEF) /* #<identifier assertion-violation#(sagittarius treemap)> */,
355 0x00000030 /* 44 FRAME */,
356 SG_WORD(4),
357 0x00000145 /* 46 LREF_PUSH */,
358 0x0000014a /* 47 GREF_CALL */,
359 SG_WORD(SG_UNDEF) /* #<identifier treemap?#(sagittarius treemap)> */,
360 0x00000017 /* 49 TEST */,
361 SG_WORD(4),
362 0x00000002 /* 51 UNDEF */,
363 0x00000018 /* 52 JUMP */,
364 SG_WORD(35),
365 0x00000030 /* 54 FRAME */,
366 SG_WORD(33),
367 0x00000146 /* 56 FREF_PUSH */,
368 0x00000204 /* 57 CONSTI */,
369 0x00000138 /* 58 LIST */,
370 0x0000000b /* 59 PUSH */,
371 0x00000a05 /* 60 LREF */,
372 0x00000021 /* 61 BNNULL */,
373 SG_WORD(12),
374 0x00000030 /* 63 FRAME */,
375 SG_WORD(8),
376 0x00000048 /* 65 CONST_PUSH */,
377 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */,
378 0x00000048 /* 67 CONST_PUSH */,
379 SG_WORD(SG_UNDEF) /* treemap */,
380 0x00000145 /* 69 LREF_PUSH */,
381 0x0000034a /* 70 GREF_CALL */,
382 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
383 0x00000018 /* 72 JUMP */,
384 SG_WORD(11),
385 0x00000030 /* 74 FRAME */,
386 SG_WORD(9),
387 0x00000048 /* 76 CONST_PUSH */,
388 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */,
389 0x00000048 /* 78 CONST_PUSH */,
390 SG_WORD(SG_UNDEF) /* treemap */,
391 0x00000145 /* 80 LREF_PUSH */,
392 0x00000a5b /* 81 LREF_CAR_PUSH */,
393 0x0000044a /* 82 GREF_CALL */,
394 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
395 0x00000132 /* 84 LEAVE */,
396 0x0000000b /* 85 PUSH */,
397 0x0000024a /* 86 GREF_CALL */,
398 SG_WORD(SG_UNDEF) /* #<identifier assertion-violation#(sagittarius treemap)> */,
399 0x00000030 /* 88 FRAME */,
400 SG_WORD(4),
401 0x00000145 /* 90 LREF_PUSH */,
402 0x00000007 /* 91 FREF */,
403 0x0000012b /* 92 CALL */,
404 0x0000000b /* 93 PUSH */,
405 0x00000048 /* 94 CONST_PUSH */,
406 SG_WORD(SG_TRUE) /* #t */,
407 0x00000003 /* 96 CONST */,
408 SG_WORD(SG_TRUE) /* #t */,
409 0x00000054 /* 98 CONS_PUSH */,
410 0x00000245 /* 99 LREF_PUSH */,
411 0x00000030 /* 100 FRAME */,
412 SG_WORD(4),
413 0x00000445 /* 102 LREF_PUSH */,
414 0x00000305 /* 103 LREF */,
415 0x0000012b /* 104 CALL */,
416 0x00000228 /* 105 RECEIVE */,
417 0x00000645 /* 106 LREF_PUSH */,
418 0x00000405 /* 107 LREF */,
419 0x0000001f /* 108 BNEQ */,
420 SG_WORD(3),
421 0x00000505 /* 110 LREF */,
422 0x0000002f /* 111 RET */,
423 0x00000030 /* 112 FRAME */,
424 SG_WORD(6),
425 0x00000645 /* 114 LREF_PUSH */,
426 0x00000745 /* 115 LREF_PUSH */,
427 0x00000545 /* 116 LREF_PUSH */,
428 0x00000005 /* 117 LREF */,
429 0x0000032b /* 118 CALL */,
430 0x0000000b /* 119 PUSH */,
431 0x00500119 /* 120 SHIFTJ */,
432 0x00000018 /* 121 JUMP */,
433 SG_WORD(-22),
434 0x0000002f /* 123 RET */,
435 /* %treemap-fold */0x00000045 /* 0 LREF_PUSH */,
436 0x00000145 /* 1 LREF_PUSH */,
437 0x00000029 /* 2 CLOSURE */,
438 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[4])) /* #<code-builder %treemap-fold (3 0 2)> */,
439 0x0000002f /* 4 RET */,
440 /* #f */0x00000030 /* 0 FRAME */,
441 SG_WORD(5),
442 0x00000045 /* 2 LREF_PUSH */,
443 0x00000145 /* 3 LREF_PUSH */,
444 0x00000007 /* 4 FREF */,
445 0x0000022b /* 5 CALL */,
446 0x00000205 /* 6 LREF */,
447 0x0000002f /* 7 RET */,
448 /* treemap-for-each */0x00000045 /* 0 LREF_PUSH */,
449 0x00000029 /* 1 CLOSURE */,
450 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[6])) /* #<code-builder #f (3 0 1)> */,
451 0x0000000b /* 3 PUSH */,
452 0x00000145 /* 4 LREF_PUSH */,
453 0x00000048 /* 5 CONST_PUSH */,
454 SG_WORD(SG_UNDEF) /* #<unspecified> */,
455 0x0000034b /* 7 GREF_TAIL_CALL */,
456 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold#(sagittarius treemap)> */,
457 0x0000002f /* 9 RET */,
458 /* #f */0x00000030 /* 0 FRAME */,
459 SG_WORD(5),
460 0x00000045 /* 2 LREF_PUSH */,
461 0x00000145 /* 3 LREF_PUSH */,
462 0x00000007 /* 4 FREF */,
463 0x0000022b /* 5 CALL */,
464 0x0000000b /* 6 PUSH */,
465 0x00000205 /* 7 LREF */,
466 0x00000037 /* 8 CONS */,
467 0x0000002f /* 9 RET */,
468 /* treemap-map */0x00000030 /* 0 FRAME */,
469 SG_WORD(10),
470 0x00000045 /* 2 LREF_PUSH */,
471 0x00000029 /* 3 CLOSURE */,
472 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[8])) /* #<code-builder #f (3 0 1)> */,
473 0x0000000b /* 5 PUSH */,
474 0x00000145 /* 6 LREF_PUSH */,
475 0x00000048 /* 7 CONST_PUSH */,
476 SG_WORD(SG_NIL) /* () */,
477 0x0000034a /* 9 GREF_CALL */,
478 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold#(sagittarius treemap)> */,
479 0x0000000b /* 11 PUSH */,
480 0x0000014b /* 12 GREF_TAIL_CALL */,
481 SG_WORD(SG_UNDEF) /* #<identifier reverse!#(sagittarius treemap)> */,
482 0x0000002f /* 14 RET */,
483 /* #f */0x00000030 /* 0 FRAME */,
484 SG_WORD(5),
485 0x00000045 /* 2 LREF_PUSH */,
486 0x00000145 /* 3 LREF_PUSH */,
487 0x00000007 /* 4 FREF */,
488 0x0000022b /* 5 CALL */,
489 0x00000205 /* 6 LREF */,
490 0x0000002f /* 7 RET */,
491 /* treemap-for-each-reverse */0x00000045 /* 0 LREF_PUSH */,
492 0x00000029 /* 1 CLOSURE */,
493 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[10])) /* #<code-builder #f (3 0 1)> */,
494 0x0000000b /* 3 PUSH */,
495 0x00000145 /* 4 LREF_PUSH */,
496 0x00000048 /* 5 CONST_PUSH */,
497 SG_WORD(SG_UNDEF) /* #<unspecified> */,
498 0x0000034b /* 7 GREF_TAIL_CALL */,
499 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold-reverse#(sagittarius treemap)> */,
500 0x0000002f /* 9 RET */,
501 /* #f */0x00000030 /* 0 FRAME */,
502 SG_WORD(5),
503 0x00000045 /* 2 LREF_PUSH */,
504 0x00000145 /* 3 LREF_PUSH */,
505 0x00000007 /* 4 FREF */,
506 0x0000022b /* 5 CALL */,
507 0x0000000b /* 6 PUSH */,
508 0x00000205 /* 7 LREF */,
509 0x00000037 /* 8 CONS */,
510 0x0000002f /* 9 RET */,
511 /* treemap-map-reverse */0x00000030 /* 0 FRAME */,
512 SG_WORD(10),
513 0x00000045 /* 2 LREF_PUSH */,
514 0x00000029 /* 3 CLOSURE */,
515 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[12])) /* #<code-builder #f (3 0 1)> */,
516 0x0000000b /* 5 PUSH */,
517 0x00000145 /* 6 LREF_PUSH */,
518 0x00000048 /* 7 CONST_PUSH */,
519 SG_WORD(SG_NIL) /* () */,
520 0x0000034a /* 9 GREF_CALL */,
521 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold-reverse#(sagittarius treemap)> */,
522 0x0000000b /* 11 PUSH */,
523 0x0000014b /* 12 GREF_TAIL_CALL */,
524 SG_WORD(SG_UNDEF) /* #<identifier reverse!#(sagittarius treemap)> */,
525 0x0000002f /* 14 RET */,
526 /* %treemap-find/index */0x00000205 /* 0 LREF */,
527 0x00000021 /* 1 BNNULL */,
528 SG_WORD(5),
529 0x00000003 /* 3 CONST */,
530 SG_WORD(SG_FALSE) /* #f */,
531 0x00000018 /* 5 JUMP */,
532 SG_WORD(2),
533 0x00000255 /* 7 LREF_CAR */,
534 0x0000000b /* 8 PUSH */,
535 0x00000205 /* 9 LREF */,
536 0x00000021 /* 10 BNNULL */,
537 SG_WORD(5),
538 0x00000003 /* 12 CONST */,
539 SG_WORD(SG_NIL) /* () */,
540 0x00000018 /* 14 JUMP */,
541 SG_WORD(2),
542 0x00000256 /* 16 LREF_CDR */,
543 0x0000000b /* 17 PUSH */,
544 0x00000405 /* 18 LREF */,
545 0x00000021 /* 19 BNNULL */,
546 SG_WORD(4),
547 0x00000002 /* 21 UNDEF */,
548 0x00000018 /* 22 JUMP */,
549 SG_WORD(11),
550 0x00000030 /* 24 FRAME */,
551 SG_WORD(9),
552 0x00000048 /* 26 CONST_PUSH */,
553 SG_WORD(SG_UNDEF) /* lambda */,
554 0x00000048 /* 28 CONST_PUSH */,
555 SG_WORD(SG_UNDEF) /* too many argument for */,
556 0x00000048 /* 30 CONST_PUSH */,
557 SG_WORD(SG_UNDEF) /* ((unless (procedure? pred) (assertion-violation who (wrong-type-argument-message procedure pred 1))) (unless (treemap? tm) (assertion-violation who (wrong-type-argument-message treemap tm 2))) (let ((itr (iter tm)) (eof (cons #t #t))) (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))))))) */,
558 0x0000034a /* 32 GREF_CALL */,
559 SG_WORD(SG_UNDEF) /* #<identifier error#(sagittarius compiler)> */,
560 0x00000030 /* 34 FRAME */,
561 SG_WORD(4),
562 0x00000045 /* 36 LREF_PUSH */,
563 0x0000014a /* 37 GREF_CALL */,
564 SG_WORD(SG_UNDEF) /* #<identifier procedure?#(sagittarius treemap)> */,
565 0x00000017 /* 39 TEST */,
566 SG_WORD(4),
567 0x00000002 /* 41 UNDEF */,
568 0x00000018 /* 42 JUMP */,
569 SG_WORD(35),
570 0x00000030 /* 44 FRAME */,
571 SG_WORD(33),
572 0x00000146 /* 46 FREF_PUSH */,
573 0x00000104 /* 47 CONSTI */,
574 0x00000138 /* 48 LIST */,
575 0x0000000b /* 49 PUSH */,
576 0x00000c05 /* 50 LREF */,
577 0x00000021 /* 51 BNNULL */,
578 SG_WORD(12),
579 0x00000030 /* 53 FRAME */,
580 SG_WORD(8),
581 0x00000048 /* 55 CONST_PUSH */,
582 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */,
583 0x00000048 /* 57 CONST_PUSH */,
584 SG_WORD(SG_UNDEF) /* procedure */,
585 0x00000045 /* 59 LREF_PUSH */,
586 0x0000034a /* 60 GREF_CALL */,
587 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
588 0x00000018 /* 62 JUMP */,
589 SG_WORD(11),
590 0x00000030 /* 64 FRAME */,
591 SG_WORD(9),
592 0x00000048 /* 66 CONST_PUSH */,
593 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */,
594 0x00000048 /* 68 CONST_PUSH */,
595 SG_WORD(SG_UNDEF) /* procedure */,
596 0x00000045 /* 70 LREF_PUSH */,
597 0x00000c5b /* 71 LREF_CAR_PUSH */,
598 0x0000044a /* 72 GREF_CALL */,
599 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
600 0x00000132 /* 74 LEAVE */,
601 0x0000000b /* 75 PUSH */,
602 0x0000024a /* 76 GREF_CALL */,
603 SG_WORD(SG_UNDEF) /* #<identifier assertion-violation#(sagittarius treemap)> */,
604 0x00000030 /* 78 FRAME */,
605 SG_WORD(4),
606 0x00000145 /* 80 LREF_PUSH */,
607 0x0000014a /* 81 GREF_CALL */,
608 SG_WORD(SG_UNDEF) /* #<identifier treemap?#(sagittarius treemap)> */,
609 0x00000017 /* 83 TEST */,
610 SG_WORD(4),
611 0x00000002 /* 85 UNDEF */,
612 0x00000018 /* 86 JUMP */,
613 SG_WORD(35),
614 0x00000030 /* 88 FRAME */,
615 SG_WORD(33),
616 0x00000146 /* 90 FREF_PUSH */,
617 0x00000204 /* 91 CONSTI */,
618 0x00000138 /* 92 LIST */,
619 0x0000000b /* 93 PUSH */,
620 0x00000c05 /* 94 LREF */,
621 0x00000021 /* 95 BNNULL */,
622 SG_WORD(12),
623 0x00000030 /* 97 FRAME */,
624 SG_WORD(8),
625 0x00000048 /* 99 CONST_PUSH */,
626 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */,
627 0x00000048 /* 101 CONST_PUSH */,
628 SG_WORD(SG_UNDEF) /* treemap */,
629 0x00000145 /* 103 LREF_PUSH */,
630 0x0000034a /* 104 GREF_CALL */,
631 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
632 0x00000018 /* 106 JUMP */,
633 SG_WORD(11),
634 0x00000030 /* 108 FRAME */,
635 SG_WORD(9),
636 0x00000048 /* 110 CONST_PUSH */,
637 SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */,
638 0x00000048 /* 112 CONST_PUSH */,
639 SG_WORD(SG_UNDEF) /* treemap */,
640 0x00000145 /* 114 LREF_PUSH */,
641 0x00000c5b /* 115 LREF_CAR_PUSH */,
642 0x0000044a /* 116 GREF_CALL */,
643 SG_WORD(SG_UNDEF) /* #<identifier format#(sagittarius treemap)> */,
644 0x00000132 /* 118 LEAVE */,
645 0x0000000b /* 119 PUSH */,
646 0x0000024a /* 120 GREF_CALL */,
647 SG_WORD(SG_UNDEF) /* #<identifier assertion-violation#(sagittarius treemap)> */,
648 0x00000030 /* 122 FRAME */,
649 SG_WORD(4),
650 0x00000145 /* 124 LREF_PUSH */,
651 0x00000007 /* 125 FREF */,
652 0x0000012b /* 126 CALL */,
653 0x0000000b /* 127 PUSH */,
654 0x00000048 /* 128 CONST_PUSH */,
655 SG_WORD(SG_TRUE) /* #t */,
656 0x00000003 /* 130 CONST */,
657 SG_WORD(SG_TRUE) /* #t */,
658 0x00000054 /* 132 CONS_PUSH */,
659 0x00000049 /* 133 CONSTI_PUSH */,
660 0x00000030 /* 134 FRAME */,
661 SG_WORD(4),
662 0x00000645 /* 136 LREF_PUSH */,
663 0x00000505 /* 137 LREF */,
664 0x0000012b /* 138 CALL */,
665 0x00000228 /* 139 RECEIVE */,
666 0x00000845 /* 140 LREF_PUSH */,
667 0x00000605 /* 141 LREF */,
668 0x0000001f /* 142 BNEQ */,
669 SG_WORD(3),
670 0x00000305 /* 144 LREF */,
671 0x0000002f /* 145 RET */,
672 0x00000030 /* 146 FRAME */,
673 SG_WORD(5),
674 0x00000745 /* 148 LREF_PUSH */,
675 0x00000845 /* 149 LREF_PUSH */,
676 0x00000005 /* 150 LREF */,
677 0x0000022b /* 151 CALL */,
678 0x00000017 /* 152 TEST */,
679 SG_WORD(3),
680 0x00000905 /* 154 LREF */,
681 0x0000002f /* 155 RET */,
682 0x00000705 /* 156 LREF */,
683 0x0000010f /* 157 ADDI */,
684 0x0000000b /* 158 PUSH */,
685 0x00700119 /* 159 SHIFTJ */,
686 0x00000018 /* 160 JUMP */,
687 SG_WORD(-27),
688 0x0000002f /* 162 RET */,
689 /* %treemap-find/index */0x00000045 /* 0 LREF_PUSH */,
690 0x00000145 /* 1 LREF_PUSH */,
691 0x00000029 /* 2 CLOSURE */,
692 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[14])) /* #<code-builder %treemap-find/index (2 1 2)> */,
693 0x0000002f /* 4 RET */,
694 /* #f */0x00000145 /* 0 LREF_PUSH */,
695 0x00000007 /* 1 FREF */,
696 0x0000012d /* 2 TAIL_CALL */,
697 0x0000002f /* 3 RET */,
698 /* treemap-find */0x00000205 /* 0 LREF */,
699 0x00000021 /* 1 BNNULL */,
700 SG_WORD(5),
701 0x00000003 /* 3 CONST */,
702 SG_WORD(SG_FALSE) /* #f */,
703 0x00000018 /* 5 JUMP */,
704 SG_WORD(2),
705 0x00000255 /* 7 LREF_CAR */,
706 0x0000000b /* 8 PUSH */,
707 0x00000205 /* 9 LREF */,
708 0x00000021 /* 10 BNNULL */,
709 SG_WORD(5),
710 0x00000003 /* 12 CONST */,
711 SG_WORD(SG_NIL) /* () */,
712 0x00000018 /* 14 JUMP */,
713 SG_WORD(2),
714 0x00000256 /* 16 LREF_CDR */,
715 0x0000000b /* 17 PUSH */,
716 0x00000405 /* 18 LREF */,
717 0x00000021 /* 19 BNNULL */,
718 SG_WORD(4),
719 0x00000002 /* 21 UNDEF */,
720 0x00000018 /* 22 JUMP */,
721 SG_WORD(11),
722 0x00000030 /* 24 FRAME */,
723 SG_WORD(9),
724 0x00000048 /* 26 CONST_PUSH */,
725 SG_WORD(SG_UNDEF) /* lambda */,
726 0x00000048 /* 28 CONST_PUSH */,
727 SG_WORD(SG_UNDEF) /* too many argument for */,
728 0x00000048 /* 30 CONST_PUSH */,
729 SG_WORD(SG_UNDEF) /* ((treemap-find/index (lambda (i k) (pred k)) tm fallback)) */,
730 0x0000034a /* 32 GREF_CALL */,
731 SG_WORD(SG_UNDEF) /* #<identifier error#(sagittarius compiler)> */,
732 0x00000045 /* 34 LREF_PUSH */,
733 0x00000029 /* 35 CLOSURE */,
734 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[16])) /* #<code-builder #f (2 0 1)> */,
735 0x0000000b /* 37 PUSH */,
736 0x00000145 /* 38 LREF_PUSH */,
737 0x00000345 /* 39 LREF_PUSH */,
738 0x0000034b /* 40 GREF_TAIL_CALL */,
739 SG_WORD(SG_UNDEF) /* #<identifier treemap-find/index#(sagittarius treemap)> */,
740 0x0000002f /* 42 RET */,
741 /* #f */0x00000145 /* 0 LREF_PUSH */,
742 0x00000007 /* 1 FREF */,
743 0x0000012d /* 2 TAIL_CALL */,
744 0x0000002f /* 3 RET */,
745 /* treemap-reverse-find */0x00000205 /* 0 LREF */,
746 0x00000021 /* 1 BNNULL */,
747 SG_WORD(5),
748 0x00000003 /* 3 CONST */,
749 SG_WORD(SG_FALSE) /* #f */,
750 0x00000018 /* 5 JUMP */,
751 SG_WORD(2),
752 0x00000255 /* 7 LREF_CAR */,
753 0x0000000b /* 8 PUSH */,
754 0x00000205 /* 9 LREF */,
755 0x00000021 /* 10 BNNULL */,
756 SG_WORD(5),
757 0x00000003 /* 12 CONST */,
758 SG_WORD(SG_NIL) /* () */,
759 0x00000018 /* 14 JUMP */,
760 SG_WORD(2),
761 0x00000256 /* 16 LREF_CDR */,
762 0x0000000b /* 17 PUSH */,
763 0x00000405 /* 18 LREF */,
764 0x00000021 /* 19 BNNULL */,
765 SG_WORD(4),
766 0x00000002 /* 21 UNDEF */,
767 0x00000018 /* 22 JUMP */,
768 SG_WORD(11),
769 0x00000030 /* 24 FRAME */,
770 SG_WORD(9),
771 0x00000048 /* 26 CONST_PUSH */,
772 SG_WORD(SG_UNDEF) /* lambda */,
773 0x00000048 /* 28 CONST_PUSH */,
774 SG_WORD(SG_UNDEF) /* too many argument for */,
775 0x00000048 /* 30 CONST_PUSH */,
776 SG_WORD(SG_UNDEF) /* ((treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback)) */,
777 0x0000034a /* 32 GREF_CALL */,
778 SG_WORD(SG_UNDEF) /* #<identifier error#(sagittarius compiler)> */,
779 0x00000045 /* 34 LREF_PUSH */,
780 0x00000029 /* 35 CLOSURE */,
781 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[18])) /* #<code-builder #f (2 0 1)> */,
782 0x0000000b /* 37 PUSH */,
783 0x00000145 /* 38 LREF_PUSH */,
784 0x00000345 /* 39 LREF_PUSH */,
785 0x0000034b /* 40 GREF_TAIL_CALL */,
786 SG_WORD(SG_UNDEF) /* #<identifier treemap-reverse-find/index#(sagittarius treemap)> */,
787 0x0000002f /* 42 RET */,
788 /* #f */0x00000030 /* 0 FRAME */,
789 SG_WORD(5),
790 0x00000045 /* 2 LREF_PUSH */,
791 0x00000145 /* 3 LREF_PUSH */,
792 0x00000007 /* 4 FREF */,
793 0x0000022b /* 5 CALL */,
794 0x0000000b /* 6 PUSH */,
795 0x00000205 /* 7 LREF */,
796 0x00000037 /* 8 CONS */,
797 0x0000002f /* 9 RET */,
798 /* treemap->alist */0x00000047 /* 0 GREF_PUSH */,
799 SG_WORD(SG_UNDEF) /* #<identifier cons#(sagittarius treemap)> */,
800 0x00000030 /* 2 FRAME */,
801 SG_WORD(10),
802 0x00000145 /* 4 LREF_PUSH */,
803 0x00000029 /* 5 CLOSURE */,
804 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[20])) /* #<code-builder #f (3 0 1)> */,
805 0x0000000b /* 7 PUSH */,
806 0x00000045 /* 8 LREF_PUSH */,
807 0x00000048 /* 9 CONST_PUSH */,
808 SG_WORD(SG_NIL) /* () */,
809 0x0000034a /* 11 GREF_CALL */,
810 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold#(sagittarius treemap)> */,
811 0x0000000b /* 13 PUSH */,
812 0x0000014b /* 14 GREF_TAIL_CALL */,
813 SG_WORD(SG_UNDEF) /* #<identifier reverse!#(sagittarius treemap)> */,
814 0x0000002f /* 16 RET */,
815 /* alist->treemap */0x00000030 /* 0 FRAME */,
816 SG_WORD(4),
817 0x00000145 /* 2 LREF_PUSH */,
818 0x0000014a /* 3 GREF_CALL */,
819 SG_WORD(SG_UNDEF) /* #<identifier make-rb-treemap#(sagittarius treemap)> */,
820 0x0000000b /* 5 PUSH */,
821 0x00000045 /* 6 LREF_PUSH */,
822 0x00000305 /* 7 LREF */,
823 0x00000021 /* 8 BNNULL */,
824 SG_WORD(3),
825 0x00000205 /* 10 LREF */,
826 0x0000002f /* 11 RET */,
827 0x0000035b /* 12 LREF_CAR_PUSH */,
828 0x00000030 /* 13 FRAME */,
829 SG_WORD(6),
830 0x00000245 /* 15 LREF_PUSH */,
831 0x0000045b /* 16 LREF_CAR_PUSH */,
832 0x0000045c /* 17 LREF_CDR_PUSH */,
833 0x0000034a /* 18 GREF_CALL */,
834 SG_WORD(SG_UNDEF) /* #<identifier treemap-set!#(sagittarius treemap)> */,
835 0x00000132 /* 20 LEAVE */,
836 0x0000035c /* 21 LREF_CDR_PUSH */,
837 0x00300119 /* 22 SHIFTJ */,
838 0x00000018 /* 23 JUMP */,
839 SG_WORD(-17),
840 0x0000002f /* 25 RET */,
841 /* #f */0x00000034 /* 0 LIBRARY */,
842 SG_WORD(SG_UNDEF) /* #<library (sagittarius treemap)> */,
843 0x00000029 /* 2 CLOSURE */,
844 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[0])) /* #<code-builder treemap-entries (1 0 0)> */,
845 0x00000033 /* 4 DEFINE */,
846 SG_WORD(SG_UNDEF) /* #<identifier treemap-entries#(sagittarius treemap)> */,
847 0x00000029 /* 6 CLOSURE */,
848 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[1])) /* #<code-builder treemap-keys (1 0 0)> */,
849 0x00000033 /* 8 DEFINE */,
850 SG_WORD(SG_UNDEF) /* #<identifier treemap-keys#(sagittarius treemap)> */,
851 0x00000029 /* 10 CLOSURE */,
852 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[2])) /* #<code-builder treemap-values (1 0 0)> */,
853 0x00000033 /* 12 DEFINE */,
854 SG_WORD(SG_UNDEF) /* #<identifier treemap-values#(sagittarius treemap)> */,
855 0x00000029 /* 14 CLOSURE */,
856 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[3])) /* #<code-builder wrong-type-argument-message (2 1 0)> */,
857 0x00000033 /* 16 DEFINE */,
858 SG_WORD(SG_UNDEF) /* #<identifier wrong-type-argument-message#(sagittarius treemap)> */,
859 0x00000029 /* 18 CLOSURE */,
860 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[5])) /* #<code-builder %treemap-fold (2 0 0)> */,
861 0x00000033 /* 20 DEFINE */,
862 SG_WORD(SG_UNDEF) /* #<identifier %treemap-fold#(sagittarius treemap)> */,
863 0x00000030 /* 22 FRAME */,
864 SG_WORD(7),
865 0x00000048 /* 24 CONST_PUSH */,
866 SG_WORD(SG_UNDEF) /* treemap-fold */,
867 0x00000047 /* 26 GREF_PUSH */,
868 SG_WORD(SG_UNDEF) /* #<identifier treemap-iterator#(sagittarius treemap)> */,
869 0x0000024a /* 28 GREF_CALL */,
870 SG_WORD(SG_UNDEF) /* #<identifier %treemap-fold#(sagittarius treemap)> */,
871 0x00000033 /* 30 DEFINE */,
872 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold#(sagittarius treemap)> */,
873 0x00000030 /* 32 FRAME */,
874 SG_WORD(7),
875 0x00000048 /* 34 CONST_PUSH */,
876 SG_WORD(SG_UNDEF) /* treemap-fold-reverse */,
877 0x00000047 /* 36 GREF_PUSH */,
878 SG_WORD(SG_UNDEF) /* #<identifier treemap-reverse-iterator#(sagittarius treemap)> */,
879 0x0000024a /* 38 GREF_CALL */,
880 SG_WORD(SG_UNDEF) /* #<identifier %treemap-fold#(sagittarius treemap)> */,
881 0x00000033 /* 40 DEFINE */,
882 SG_WORD(SG_UNDEF) /* #<identifier treemap-fold-reverse#(sagittarius treemap)> */,
883 0x00000029 /* 42 CLOSURE */,
884 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[7])) /* #<code-builder treemap-for-each (2 0 0)> */,
885 0x00000033 /* 44 DEFINE */,
886 SG_WORD(SG_UNDEF) /* #<identifier treemap-for-each#(sagittarius treemap)> */,
887 0x00000029 /* 46 CLOSURE */,
888 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[9])) /* #<code-builder treemap-map (2 0 0)> */,
889 0x00000033 /* 48 DEFINE */,
890 SG_WORD(SG_UNDEF) /* #<identifier treemap-map#(sagittarius treemap)> */,
891 0x00000029 /* 50 CLOSURE */,
892 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[11])) /* #<code-builder treemap-for-each-reverse (2 0 0)> */,
893 0x00000033 /* 52 DEFINE */,
894 SG_WORD(SG_UNDEF) /* #<identifier treemap-for-each-reverse#(sagittarius treemap)> */,
895 0x00000029 /* 54 CLOSURE */,
896 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[13])) /* #<code-builder treemap-map-reverse (2 0 0)> */,
897 0x00000033 /* 56 DEFINE */,
898 SG_WORD(SG_UNDEF) /* #<identifier treemap-map-reverse#(sagittarius treemap)> */,
899 0x00000029 /* 58 CLOSURE */,
900 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[15])) /* #<code-builder %treemap-find/index (2 0 0)> */,
901 0x00000033 /* 60 DEFINE */,
902 SG_WORD(SG_UNDEF) /* #<identifier %treemap-find/index#(sagittarius treemap)> */,
903 0x00000030 /* 62 FRAME */,
904 SG_WORD(7),
905 0x00000048 /* 64 CONST_PUSH */,
906 SG_WORD(SG_UNDEF) /* treemap-find/index */,
907 0x00000047 /* 66 GREF_PUSH */,
908 SG_WORD(SG_UNDEF) /* #<identifier treemap-iterator#(sagittarius treemap)> */,
909 0x0000024a /* 68 GREF_CALL */,
910 SG_WORD(SG_UNDEF) /* #<identifier %treemap-find/index#(sagittarius treemap)> */,
911 0x00000033 /* 70 DEFINE */,
912 SG_WORD(SG_UNDEF) /* #<identifier treemap-find/index#(sagittarius treemap)> */,
913 0x00000030 /* 72 FRAME */,
914 SG_WORD(7),
915 0x00000048 /* 74 CONST_PUSH */,
916 SG_WORD(SG_UNDEF) /* treemap-reverse-find/index */,
917 0x00000047 /* 76 GREF_PUSH */,
918 SG_WORD(SG_UNDEF) /* #<identifier treemap-reverse-iterator#(sagittarius treemap)> */,
919 0x0000024a /* 78 GREF_CALL */,
920 SG_WORD(SG_UNDEF) /* #<identifier %treemap-find/index#(sagittarius treemap)> */,
921 0x00000033 /* 80 DEFINE */,
922 SG_WORD(SG_UNDEF) /* #<identifier treemap-reverse-find/index#(sagittarius treemap)> */,
923 0x00000029 /* 82 CLOSURE */,
924 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[17])) /* #<code-builder treemap-find (2 1 0)> */,
925 0x00000033 /* 84 DEFINE */,
926 SG_WORD(SG_UNDEF) /* #<identifier treemap-find#(sagittarius treemap)> */,
927 0x00000029 /* 86 CLOSURE */,
928 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[19])) /* #<code-builder treemap-reverse-find (2 1 0)> */,
929 0x00000033 /* 88 DEFINE */,
930 SG_WORD(SG_UNDEF) /* #<identifier treemap-reverse-find#(sagittarius treemap)> */,
931 0x00000029 /* 90 CLOSURE */,
932 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[21])) /* #<code-builder treemap->alist (1 0 0)> */,
933 0x00000033 /* 92 DEFINE */,
934 SG_WORD(SG_UNDEF) /* #<identifier treemap->alist#(sagittarius treemap)> */,
935 0x00000029 /* 94 CLOSURE */,
936 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[22])) /* #<code-builder alist->treemap (2 0 0)> */,
937 0x00000033 /* 96 DEFINE */,
938 SG_WORD(SG_UNDEF) /* #<identifier alist->treemap#(sagittarius treemap)> */,
939 0x00000002 /* 98 UNDEF */,
940 0x0000002f /* 99 RET */,
941 },
942 { /* SgCodeBuilder d13567 */
943
944 SG_STATIC_CODE_BUILDER( /* treemap-entries */
945 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[0]), SG_FALSE, 1, 0, 0, 12, 19),
946
947 SG_STATIC_CODE_BUILDER( /* treemap-keys */
948 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[19]), SG_FALSE, 1, 0, 0, 9, 9),
949
950 SG_STATIC_CODE_BUILDER( /* treemap-values */
951 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[28]), SG_FALSE, 1, 0, 0, 9, 9),
952
953 SG_STATIC_CODE_BUILDER( /* wrong-type-argument-message */
954 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[37]), SG_FALSE, 2, 1, 0, 17, 18),
955
956 SG_STATIC_CODE_BUILDER( /* %treemap-fold */
957 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[55]), SG_FALSE, 3, 0, 2, 23, 124),
958
959 SG_STATIC_CODE_BUILDER( /* %treemap-fold */
960 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[179]), SG_FALSE, 2, 0, 0, 8, 5),
961
962 SG_STATIC_CODE_BUILDER( /* #f */
963 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[184]), SG_FALSE, 3, 0, 1, 11, 8),
964
965 SG_STATIC_CODE_BUILDER( /* treemap-for-each */
966 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[192]), SG_FALSE, 2, 0, 0, 11, 10),
967
968 SG_STATIC_CODE_BUILDER( /* #f */
969 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[202]), SG_FALSE, 3, 0, 1, 11, 10),
970
971 SG_STATIC_CODE_BUILDER( /* treemap-map */
972 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[212]), SG_FALSE, 2, 0, 0, 12, 15),
973
974 SG_STATIC_CODE_BUILDER( /* #f */
975 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[227]), SG_FALSE, 3, 0, 1, 11, 8),
976
977 SG_STATIC_CODE_BUILDER( /* treemap-for-each-reverse */
978 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[235]), SG_FALSE, 2, 0, 0, 11, 10),
979
980 SG_STATIC_CODE_BUILDER( /* #f */
981 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[245]), SG_FALSE, 3, 0, 1, 11, 10),
982
983 SG_STATIC_CODE_BUILDER( /* treemap-map-reverse */
984 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[255]), SG_FALSE, 2, 0, 0, 12, 15),
985
986 SG_STATIC_CODE_BUILDER( /* %treemap-find/index */
987 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[270]), SG_FALSE, 2, 1, 2, 27, 163),
988
989 SG_STATIC_CODE_BUILDER( /* %treemap-find/index */
990 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[433]), SG_FALSE, 2, 0, 0, 8, 5),
991
992 SG_STATIC_CODE_BUILDER( /* #f */
993 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[438]), SG_FALSE, 2, 0, 1, 9, 4),
994
995 SG_STATIC_CODE_BUILDER( /* treemap-find */
996 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[442]), SG_FALSE, 2, 1, 0, 18, 43),
997
998 SG_STATIC_CODE_BUILDER( /* #f */
999 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[485]), SG_FALSE, 2, 0, 1, 9, 4),
1000
1001 SG_STATIC_CODE_BUILDER( /* treemap-reverse-find */
1002 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[489]), SG_FALSE, 2, 1, 0, 18, 43),
1003
1004 SG_STATIC_CODE_BUILDER( /* #f */
1005 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[532]), SG_FALSE, 3, 0, 1, 11, 10),
1006
1007 SG_STATIC_CODE_BUILDER( /* treemap->alist */
1008 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[542]), SG_FALSE, 1, 0, 0, 13, 17),
1009
1010 SG_STATIC_CODE_BUILDER( /* alist->treemap */
1011 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[559]), SG_FALSE, 2, 0, 0, 18, 26),
1012
1013 SG_STATIC_CODE_BUILDER( /* #f */
1014 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[585]), SG_FALSE, 0, 0, 0, 0, 100),
1015 },
1016 };
sagittarius_treemap_make_rb_treemap(SgObject * SG_FP,int SG_ARGC,void * data_)1017 static SgObject sagittarius_treemap_make_rb_treemap(SgObject *SG_FP, int SG_ARGC, void *data_)
1018 {
1019 SgObject cmp_scm;
1020 SgProcedure* cmp;
1021 SG_ENTER_SUBR("make-rb-treemap");
1022 if (SG_ARGC != 1)
1023 Sg_WrongNumberOfArgumentsViolation(
1024 SG_INTERN("make-rb-treemap"), 1, SG_ARGC, SG_NIL);
1025 cmp_scm = SG_ARGREF(0);
1026 if (!SG_PROCEDUREP(cmp_scm))
1027 Sg_WrongTypeOfArgumentViolation(
1028 sg__rc_cgen13336.d13337[0], SG_MAKE_STRING("procedure"), cmp_scm, SG_NIL);
1029 cmp = SG_PROCEDURE(cmp_scm);
1030 {
1031 {
1032 SgObject SG_RESULT = (SgObject)NULL;
1033 SG_RESULT=(Sg_MakeSchemeRBTreeMap(cmp));
1034 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1035 }
1036 }
1037 }
1038 static SG_DEFINE_SUBR(sagittarius_treemap_make_rb_treemap__STUB, 1, 0,sagittarius_treemap_make_rb_treemap, SG_FALSE, NULL);
1039
sagittarius_treemap_make_rb_treemap_2fcomparator(SgObject * SG_FP,int SG_ARGC,void * data_)1040 static SgObject sagittarius_treemap_make_rb_treemap_2fcomparator(SgObject *SG_FP, int SG_ARGC, void *data_)
1041 {
1042 SgObject c_scm;
1043 SgComparator * c;
1044 SG_ENTER_SUBR("make-rb-treemap/comparator");
1045 if (SG_ARGC != 1)
1046 Sg_WrongNumberOfArgumentsViolation(
1047 SG_INTERN("make-rb-treemap/comparator"), 1, SG_ARGC, SG_NIL);
1048 c_scm = SG_ARGREF(0);
1049 if (!SG_COMPARATORP(c_scm))
1050 Sg_WrongTypeOfArgumentViolation(
1051 sg__rc_cgen13336.d13337[1], SG_MAKE_STRING("comparator"), c_scm, SG_NIL);
1052 c = SG_COMPARATOR(c_scm);
1053 {
1054 {
1055 SgObject SG_RESULT = (SgObject)NULL;
1056
1057 #line 38 "./lib_treemap.stub"
1058 {SgObject p=(c)->compFn;
1059 if ((!((SG_PROCEDUREP(p))&&(
1060 (SG_PROCEDURE_REQUIRED(p))>=(2))))){{
1061 Sg_AssertionViolation(sg__rc_cgen13336.d13337[2],
1062 SG_MAKE_STRING("given comparator doesn't support compare"),c);}}
1063 #line 44 "./lib_treemap.stub"
1064 SG_RESULT=(Sg_MakeSchemeRBTreeMap(p));}
1065 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1066 }
1067 }
1068 }
1069 static SG_DEFINE_SUBR(sagittarius_treemap_make_rb_treemap_2fcomparator__STUB, 1, 0,sagittarius_treemap_make_rb_treemap_2fcomparator, SG_FALSE, NULL);
1070
sagittarius_treemap_treemapP(SgObject * SG_FP,int SG_ARGC,void * data_)1071 static SgObject sagittarius_treemap_treemapP(SgObject *SG_FP, int SG_ARGC, void *data_)
1072 {
1073 SgObject o_scm;
1074 SgObject o;
1075 SG_ENTER_SUBR("treemap?");
1076 if (SG_ARGC != 1)
1077 Sg_WrongNumberOfArgumentsViolation(
1078 SG_INTERN("treemap?"), 1, SG_ARGC, SG_NIL);
1079 o_scm = SG_ARGREF(0);
1080 o = (o_scm);
1081 {
1082 {
1083 int SG_RESULT = (int)FALSE;
1084 SG_RESULT=(SG_TREEMAP_P(o));
1085 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1086 }
1087 }
1088 }
1089 static SG_DEFINE_SUBR(sagittarius_treemap_treemapP__STUB, 1, 0,sagittarius_treemap_treemapP, SG_FALSE, NULL);
1090
sagittarius_treemap_treemap_ref(SgObject * SG_FP,int SG_ARGC,void * data_)1091 static SgObject sagittarius_treemap_treemap_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
1092 {
1093 SgObject tm_scm;
1094 SgTreeMap* tm;
1095 SgObject key_scm;
1096 SgObject key;
1097 SgObject fallback_scm;
1098 SgObject fallback;
1099 SG_ENTER_SUBR("treemap-ref");
1100 if ((SG_ARGC > 3 &&
1101 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
1102 SG_ARGC < 2)
1103 Sg_WrongNumberOfArgumentsBetweenViolation(
1104 SG_INTERN("treemap-ref"), 2, 3, SG_ARGC, SG_NIL);
1105 tm_scm = SG_ARGREF(0);
1106 if (!SG_TREEMAP_P(tm_scm))
1107 Sg_WrongTypeOfArgumentViolation(
1108 sg__rc_cgen13336.d13337[4], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1109 tm = SG_TREEMAP(tm_scm);
1110 key_scm = SG_ARGREF(1);
1111 key = (key_scm);
1112 if (SG_ARGC > 2+1) {
1113 fallback_scm = SG_ARGREF(2);
1114 } else {
1115 fallback_scm = SG_FALSE;
1116 }
1117 fallback = (fallback_scm);
1118 {
1119 {
1120 SgObject SG_RESULT = (SgObject)NULL;
1121 SG_RESULT=(Sg_TreeMapRef(tm,key,fallback));
1122 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1123 }
1124 }
1125 }
1126 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_ref__STUB, 2, 2,sagittarius_treemap_treemap_ref, SG_FALSE, NULL);
1127
sagittarius_treemap_treemap_setX(SgObject * SG_FP,int SG_ARGC,void * data_)1128 static SgObject sagittarius_treemap_treemap_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
1129 {
1130 SgObject tm_scm;
1131 SgTreeMap* tm;
1132 SgObject key_scm;
1133 SgObject key;
1134 SgObject value_scm;
1135 SgObject value;
1136 SG_ENTER_SUBR("treemap-set!");
1137 if (SG_ARGC != 3)
1138 Sg_WrongNumberOfArgumentsViolation(
1139 SG_INTERN("treemap-set!"), 3, SG_ARGC, SG_NIL);
1140 tm_scm = SG_ARGREF(0);
1141 if (!SG_TREEMAP_P(tm_scm))
1142 Sg_WrongTypeOfArgumentViolation(
1143 sg__rc_cgen13336.d13337[5], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1144 tm = SG_TREEMAP(tm_scm);
1145 key_scm = SG_ARGREF(1);
1146 key = (key_scm);
1147 value_scm = SG_ARGREF(2);
1148 value = (value_scm);
1149 {
1150
1151 #line 51 "./lib_treemap.stub"
1152 Sg_TreeMapSet(tm,key,value,0);
1153 SG_RETURN(SG_UNDEF);
1154 }
1155 }
1156 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_setX__STUB, 3, 0,sagittarius_treemap_treemap_setX, SG_FALSE, NULL);
1157
sagittarius_treemap_treemap_deleteX(SgObject * SG_FP,int SG_ARGC,void * data_)1158 static SgObject sagittarius_treemap_treemap_deleteX(SgObject *SG_FP, int SG_ARGC, void *data_)
1159 {
1160 SgObject tm_scm;
1161 SgTreeMap* tm;
1162 SgObject key_scm;
1163 SgObject key;
1164 SG_ENTER_SUBR("treemap-delete!");
1165 if (SG_ARGC != 2)
1166 Sg_WrongNumberOfArgumentsViolation(
1167 SG_INTERN("treemap-delete!"), 2, SG_ARGC, SG_NIL);
1168 tm_scm = SG_ARGREF(0);
1169 if (!SG_TREEMAP_P(tm_scm))
1170 Sg_WrongTypeOfArgumentViolation(
1171 sg__rc_cgen13336.d13337[6], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1172 tm = SG_TREEMAP(tm_scm);
1173 key_scm = SG_ARGREF(1);
1174 key = (key_scm);
1175 {
1176 Sg_TreeMapDelete(tm,key);
1177 SG_RETURN(SG_UNDEF);
1178 }
1179 }
1180 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_deleteX__STUB, 2, 0,sagittarius_treemap_treemap_deleteX, SG_FALSE, NULL);
1181
sagittarius_treemap_treemap_clearX(SgObject * SG_FP,int SG_ARGC,void * data_)1182 static SgObject sagittarius_treemap_treemap_clearX(SgObject *SG_FP, int SG_ARGC, void *data_)
1183 {
1184 SgObject tm_scm;
1185 SgTreeMap* tm;
1186 SG_ENTER_SUBR("treemap-clear!");
1187 if (SG_ARGC != 1)
1188 Sg_WrongNumberOfArgumentsViolation(
1189 SG_INTERN("treemap-clear!"), 1, SG_ARGC, SG_NIL);
1190 tm_scm = SG_ARGREF(0);
1191 if (!SG_TREEMAP_P(tm_scm))
1192 Sg_WrongTypeOfArgumentViolation(
1193 sg__rc_cgen13336.d13337[7], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1194 tm = SG_TREEMAP(tm_scm);
1195 {
1196 Sg_TreeMapClear(tm);
1197 SG_RETURN(SG_UNDEF);
1198 }
1199 }
1200 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_clearX__STUB, 1, 0,sagittarius_treemap_treemap_clearX, SG_FALSE, NULL);
1201
sagittarius_treemap_treemap_copy(SgObject * SG_FP,int SG_ARGC,void * data_)1202 static SgObject sagittarius_treemap_treemap_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
1203 {
1204 SgObject tm_scm;
1205 SgTreeMap* tm;
1206 SG_ENTER_SUBR("treemap-copy");
1207 if (SG_ARGC != 1)
1208 Sg_WrongNumberOfArgumentsViolation(
1209 SG_INTERN("treemap-copy"), 1, SG_ARGC, SG_NIL);
1210 tm_scm = SG_ARGREF(0);
1211 if (!SG_TREEMAP_P(tm_scm))
1212 Sg_WrongTypeOfArgumentViolation(
1213 sg__rc_cgen13336.d13337[8], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1214 tm = SG_TREEMAP(tm_scm);
1215 {
1216 {
1217 SgObject SG_RESULT = (SgObject)NULL;
1218 SG_RESULT=(Sg_TreeMapCopy(tm));
1219 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1220 }
1221 }
1222 }
1223 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_copy__STUB, 1, 0,sagittarius_treemap_treemap_copy, SG_FALSE, NULL);
1224
sagittarius_treemap_treemap_containsP(SgObject * SG_FP,int SG_ARGC,void * data_)1225 static SgObject sagittarius_treemap_treemap_containsP(SgObject *SG_FP, int SG_ARGC, void *data_)
1226 {
1227 SgObject tm_scm;
1228 SgTreeMap* tm;
1229 SgObject key_scm;
1230 SgObject key;
1231 SG_ENTER_SUBR("treemap-contains?");
1232 if (SG_ARGC != 2)
1233 Sg_WrongNumberOfArgumentsViolation(
1234 SG_INTERN("treemap-contains?"), 2, SG_ARGC, SG_NIL);
1235 tm_scm = SG_ARGREF(0);
1236 if (!SG_TREEMAP_P(tm_scm))
1237 Sg_WrongTypeOfArgumentViolation(
1238 sg__rc_cgen13336.d13337[9], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1239 tm = SG_TREEMAP(tm_scm);
1240 key_scm = SG_ARGREF(1);
1241 key = (key_scm);
1242 {
1243 {
1244 int SG_RESULT = (int)FALSE;
1245
1246 #line 61 "./lib_treemap.stub"
1247 {SgObject mark=((SG_SCHEME_TREEMAP_P(tm))?(SG_UNBOUND):(NULL));SgObject r=
1248 Sg_TreeMapRef(tm,key,mark);
1249 SG_RESULT=((!((r)==(mark))));}
1250 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1251 }
1252 }
1253 }
1254 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_containsP__STUB, 2, 0,sagittarius_treemap_treemap_containsP, SG_FALSE, NULL);
1255
sagittarius_treemap_treemap_keys_list(SgObject * SG_FP,int SG_ARGC,void * data_)1256 static SgObject sagittarius_treemap_treemap_keys_list(SgObject *SG_FP, int SG_ARGC, void *data_)
1257 {
1258 SgObject tm_scm;
1259 SgTreeMap* tm;
1260 SG_ENTER_SUBR("treemap-keys-list");
1261 if (SG_ARGC != 1)
1262 Sg_WrongNumberOfArgumentsViolation(
1263 SG_INTERN("treemap-keys-list"), 1, SG_ARGC, SG_NIL);
1264 tm_scm = SG_ARGREF(0);
1265 if (!SG_TREEMAP_P(tm_scm))
1266 Sg_WrongTypeOfArgumentViolation(
1267 sg__rc_cgen13336.d13337[10], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1268 tm = SG_TREEMAP(tm_scm);
1269 {
1270 {
1271 SgObject SG_RESULT = (SgObject)NULL;
1272 SG_RESULT=(Sg_TreeMapKeys(tm));
1273 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1274 }
1275 }
1276 }
1277 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_keys_list__STUB, 1, 0,sagittarius_treemap_treemap_keys_list, SG_FALSE, NULL);
1278
sagittarius_treemap_treemap_values_list(SgObject * SG_FP,int SG_ARGC,void * data_)1279 static SgObject sagittarius_treemap_treemap_values_list(SgObject *SG_FP, int SG_ARGC, void *data_)
1280 {
1281 SgObject tm_scm;
1282 SgTreeMap* tm;
1283 SG_ENTER_SUBR("treemap-values-list");
1284 if (SG_ARGC != 1)
1285 Sg_WrongNumberOfArgumentsViolation(
1286 SG_INTERN("treemap-values-list"), 1, SG_ARGC, SG_NIL);
1287 tm_scm = SG_ARGREF(0);
1288 if (!SG_TREEMAP_P(tm_scm))
1289 Sg_WrongTypeOfArgumentViolation(
1290 sg__rc_cgen13336.d13337[11], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1291 tm = SG_TREEMAP(tm_scm);
1292 {
1293 {
1294 SgObject SG_RESULT = (SgObject)NULL;
1295 SG_RESULT=(Sg_TreeMapValues(tm));
1296 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1297 }
1298 }
1299 }
1300 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_values_list__STUB, 1, 0,sagittarius_treemap_treemap_values_list, SG_FALSE, NULL);
1301
sagittarius_treemap_treemap_entries_list(SgObject * SG_FP,int SG_ARGC,void * data_)1302 static SgObject sagittarius_treemap_treemap_entries_list(SgObject *SG_FP, int SG_ARGC, void *data_)
1303 {
1304 SgObject tm_scm;
1305 SgTreeMap* tm;
1306 SG_ENTER_SUBR("treemap-entries-list");
1307 if (SG_ARGC != 1)
1308 Sg_WrongNumberOfArgumentsViolation(
1309 SG_INTERN("treemap-entries-list"), 1, SG_ARGC, SG_NIL);
1310 tm_scm = SG_ARGREF(0);
1311 if (!SG_TREEMAP_P(tm_scm))
1312 Sg_WrongTypeOfArgumentViolation(
1313 sg__rc_cgen13336.d13337[12], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1314 tm = SG_TREEMAP(tm_scm);
1315 {
1316 {
1317 SgObject SG_RESULT = (SgObject)NULL;
1318 SG_RESULT=(Sg_TreeMapEntries(tm));
1319 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1320 }
1321 }
1322 }
1323 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_entries_list__STUB, 1, 0,sagittarius_treemap_treemap_entries_list, SG_FALSE, NULL);
1324
sagittarius_treemap_treemap_size(SgObject * SG_FP,int SG_ARGC,void * data_)1325 static SgObject sagittarius_treemap_treemap_size(SgObject *SG_FP, int SG_ARGC, void *data_)
1326 {
1327 SgObject tm_scm;
1328 SgTreeMap* tm;
1329 SG_ENTER_SUBR("treemap-size");
1330 if (SG_ARGC != 1)
1331 Sg_WrongNumberOfArgumentsViolation(
1332 SG_INTERN("treemap-size"), 1, SG_ARGC, SG_NIL);
1333 tm_scm = SG_ARGREF(0);
1334 if (!SG_TREEMAP_P(tm_scm))
1335 Sg_WrongTypeOfArgumentViolation(
1336 sg__rc_cgen13336.d13337[13], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1337 tm = SG_TREEMAP(tm_scm);
1338 {
1339 {
1340 long SG_RESULT = (long)0;
1341
1342 #line 80 "./lib_treemap.stub"
1343 SG_RESULT=((tm)->entryCount);
1344 SG_RETURN(SG_MAKE_INT(SG_RESULT));
1345 }
1346 }
1347 }
1348 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_size__STUB, 1, 0,sagittarius_treemap_treemap_size, SG_FALSE, NULL);
1349
treemap_update_cc(SgObject result,void ** data)1350 static SgObject treemap_update_cc(SgObject result,void** data){{
1351 #line 83 "./lib_treemap.stub"
1352 {SgDictEntry* e=((SgDictEntry* )((data)[0]));
1353 ((void )(SG_DICT_ENTRY_SET_VALUE(e,result)));
1354 return (result);}}}
sagittarius_treemap_treemap_updateX(SgObject * SG_FP,int SG_ARGC,void * data_)1355 static SgObject sagittarius_treemap_treemap_updateX(SgObject *SG_FP, int SG_ARGC, void *data_)
1356 {
1357 SgObject tm_scm;
1358 SgTreeMap* tm;
1359 SgObject key_scm;
1360 SgObject key;
1361 SgObject proc_scm;
1362 SgProcedure* proc;
1363 SgObject default__scm;
1364 SgObject default_;
1365 SG_ENTER_SUBR("treemap-update!");
1366 if (SG_ARGC != 4)
1367 Sg_WrongNumberOfArgumentsViolation(
1368 SG_INTERN("treemap-update!"), 4, SG_ARGC, SG_NIL);
1369 tm_scm = SG_ARGREF(0);
1370 if (!SG_TREEMAP_P(tm_scm))
1371 Sg_WrongTypeOfArgumentViolation(
1372 sg__rc_cgen13336.d13337[14], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1373 tm = SG_TREEMAP(tm_scm);
1374 key_scm = SG_ARGREF(1);
1375 key = (key_scm);
1376 proc_scm = SG_ARGREF(2);
1377 if (!SG_PROCEDUREP(proc_scm))
1378 Sg_WrongTypeOfArgumentViolation(
1379 sg__rc_cgen13336.d13337[14], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
1380 proc = SG_PROCEDURE(proc_scm);
1381 default__scm = SG_ARGREF(3);
1382 default_ = (default__scm);
1383 {
1384 {
1385 SgObject SG_RESULT = (SgObject)NULL;
1386
1387 #line 108 "./lib_treemap.stub"
1388 {SgDictEntry* e;void* data[2];e=(Sg_TreeMapCoreSearch(SG_TREEMAP(tm),((intptr_t )(key)),SG_DICT_CREATE,0));if ((!((e)->value))){{((void )(SG_DICT_ENTRY_SET_VALUE(e,default_)));}}(data)[0]=(((void* )(e)));(data)[1]=(((void* )(tm)));Sg_VMPushCC(treemap_update_cc,data,2);SG_RESULT=(Sg_VMApply1(proc,SG_DICT_ENTRY_VALUE(e)));}
1389 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1390 }
1391 }
1392 }
1393 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_updateX__STUB, 4, 0,sagittarius_treemap_treemap_updateX, SG_FALSE, NULL);
1394
treemap_itr(SgObject * args,int argc,void * data)1395 static SgObject treemap_itr(SgObject* args,int argc,void* data){{
1396 #line 112 "./lib_treemap.stub"
1397 {SgTreeIter* itr=((SgTreeIter* )(data));SgTreeEntry* e=
1398 Sg_TreeIterNext(itr);SgObject eofval=
1399 (args)[0];
1400 if ((e)==(NULL)){
1401 return (Sg_Values2(eofval,eofval));} else {
1402 return (Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}}}}
sagittarius_treemap_treemap_iterator(SgObject * SG_FP,int SG_ARGC,void * data_)1403 static SgObject sagittarius_treemap_treemap_iterator(SgObject *SG_FP, int SG_ARGC, void *data_)
1404 {
1405 SgObject tm_scm;
1406 SgTreeMap* tm;
1407 SG_ENTER_SUBR("treemap-iterator");
1408 if (SG_ARGC != 1)
1409 Sg_WrongNumberOfArgumentsViolation(
1410 SG_INTERN("treemap-iterator"), 1, SG_ARGC, SG_NIL);
1411 tm_scm = SG_ARGREF(0);
1412 if (!SG_TREEMAP_P(tm_scm))
1413 Sg_WrongTypeOfArgumentViolation(
1414 sg__rc_cgen13336.d13337[15], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1415 tm = SG_TREEMAP(tm_scm);
1416 {
1417 {
1418 SgObject SG_RESULT = (SgObject)NULL;
1419
1420 #line 119 "./lib_treemap.stub"
1421 {SgTreeIter* itr=SG_NEW(SgTreeIter);
1422 Sg_TreeIterInit(itr,tm,NULL);
1423 SG_RESULT=(Sg_MakeSubr(treemap_itr,itr,1,0,
1424 SG_MAKE_STRING("treemap-iterator")));}
1425 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1426 }
1427 }
1428 }
1429 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_iterator__STUB, 1, 0,sagittarius_treemap_treemap_iterator, SG_FALSE, NULL);
1430
sagittarius_treemap_treemap_reverse_iterator(SgObject * SG_FP,int SG_ARGC,void * data_)1431 static SgObject sagittarius_treemap_treemap_reverse_iterator(SgObject *SG_FP, int SG_ARGC, void *data_)
1432 {
1433 SgObject tm_scm;
1434 SgTreeMap* tm;
1435 SG_ENTER_SUBR("treemap-reverse-iterator");
1436 if (SG_ARGC != 1)
1437 Sg_WrongNumberOfArgumentsViolation(
1438 SG_INTERN("treemap-reverse-iterator"), 1, SG_ARGC, SG_NIL);
1439 tm_scm = SG_ARGREF(0);
1440 if (!SG_TREEMAP_P(tm_scm))
1441 Sg_WrongTypeOfArgumentViolation(
1442 sg__rc_cgen13336.d13337[16], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1443 tm = SG_TREEMAP(tm_scm);
1444 {
1445 {
1446 SgObject SG_RESULT = (SgObject)NULL;
1447
1448 #line 125 "./lib_treemap.stub"
1449 {SgTreeIter* itr=SG_NEW(SgTreeIter);
1450 Sg_TreeReverseIterInit(itr,tm,NULL);
1451 SG_RESULT=(Sg_MakeSubr(treemap_itr,itr,1,0,
1452 SG_MAKE_STRING("treemap-iterator")));}
1453 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1454 }
1455 }
1456 }
1457 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_reverse_iterator__STUB, 1, 0,sagittarius_treemap_treemap_reverse_iterator, SG_FALSE, NULL);
1458
sagittarius_treemap_treemap_higher_entry(SgObject * SG_FP,int SG_ARGC,void * data_)1459 static SgObject sagittarius_treemap_treemap_higher_entry(SgObject *SG_FP, int SG_ARGC, void *data_)
1460 {
1461 SgObject tm_scm;
1462 SgTreeMap* tm;
1463 SgObject key_scm;
1464 SgObject key;
1465 SgObject failure_scm;
1466 SgProcedure* failure;
1467 SG_ENTER_SUBR("treemap-higher-entry");
1468 if (SG_ARGC != 3)
1469 Sg_WrongNumberOfArgumentsViolation(
1470 SG_INTERN("treemap-higher-entry"), 3, SG_ARGC, SG_NIL);
1471 tm_scm = SG_ARGREF(0);
1472 if (!SG_TREEMAP_P(tm_scm))
1473 Sg_WrongTypeOfArgumentViolation(
1474 sg__rc_cgen13336.d13337[17], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1475 tm = SG_TREEMAP(tm_scm);
1476 key_scm = SG_ARGREF(1);
1477 key = (key_scm);
1478 failure_scm = SG_ARGREF(2);
1479 if (!SG_PROCEDUREP(failure_scm))
1480 Sg_WrongTypeOfArgumentViolation(
1481 sg__rc_cgen13336.d13337[17], SG_MAKE_STRING("procedure"), failure_scm, SG_NIL);
1482 failure = SG_PROCEDURE(failure_scm);
1483 {
1484 {
1485 SgObject SG_RESULT = (SgObject)NULL;
1486
1487 #line 215 "./lib_treemap.stub"
1488 {SgTreeEntry* e;if (((tm)->entryCount)==(0)){{Sg_AssertionViolation(sg__rc_cgen13336.d13337[18],SG_MAKE_STRING("treemap is empty"),tm);}}e=(Sg_TreeMapHigherEntry(tm,key));if ((e)==(NULL)){SG_RESULT=(Sg_VMApply0(
1489 Sg_VMApply0(failure)));} else {SG_RESULT=(Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}}
1490 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1491 }
1492 }
1493 }
1494 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_higher_entry__STUB, 3, 0,sagittarius_treemap_treemap_higher_entry, SG_FALSE, NULL);
1495
sagittarius_treemap_treemap_lower_entry(SgObject * SG_FP,int SG_ARGC,void * data_)1496 static SgObject sagittarius_treemap_treemap_lower_entry(SgObject *SG_FP, int SG_ARGC, void *data_)
1497 {
1498 SgObject tm_scm;
1499 SgTreeMap* tm;
1500 SgObject key_scm;
1501 SgObject key;
1502 SgObject failure_scm;
1503 SgProcedure* failure;
1504 SG_ENTER_SUBR("treemap-lower-entry");
1505 if (SG_ARGC != 3)
1506 Sg_WrongNumberOfArgumentsViolation(
1507 SG_INTERN("treemap-lower-entry"), 3, SG_ARGC, SG_NIL);
1508 tm_scm = SG_ARGREF(0);
1509 if (!SG_TREEMAP_P(tm_scm))
1510 Sg_WrongTypeOfArgumentViolation(
1511 sg__rc_cgen13336.d13337[19], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1512 tm = SG_TREEMAP(tm_scm);
1513 key_scm = SG_ARGREF(1);
1514 key = (key_scm);
1515 failure_scm = SG_ARGREF(2);
1516 if (!SG_PROCEDUREP(failure_scm))
1517 Sg_WrongTypeOfArgumentViolation(
1518 sg__rc_cgen13336.d13337[19], SG_MAKE_STRING("procedure"), failure_scm, SG_NIL);
1519 failure = SG_PROCEDURE(failure_scm);
1520 {
1521 {
1522 SgObject SG_RESULT = (SgObject)NULL;
1523
1524 #line 218 "./lib_treemap.stub"
1525 {SgTreeEntry* e;if (((tm)->entryCount)==(0)){{Sg_AssertionViolation(sg__rc_cgen13336.d13337[20],SG_MAKE_STRING("treemap is empty"),tm);}}e=(Sg_TreeMapLowerEntry(tm,key));if ((e)==(NULL)){SG_RESULT=(Sg_VMApply0(
1526 Sg_VMApply0(failure)));} else {SG_RESULT=(Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}}
1527 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1528 }
1529 }
1530 }
1531 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_lower_entry__STUB, 3, 0,sagittarius_treemap_treemap_lower_entry, SG_FALSE, NULL);
1532
sagittarius_treemap_treemap_first_entry(SgObject * SG_FP,int SG_ARGC,void * data_)1533 static SgObject sagittarius_treemap_treemap_first_entry(SgObject *SG_FP, int SG_ARGC, void *data_)
1534 {
1535 SgObject tm_scm;
1536 SgTreeMap* tm;
1537 SG_ENTER_SUBR("treemap-first-entry");
1538 if (SG_ARGC != 1)
1539 Sg_WrongNumberOfArgumentsViolation(
1540 SG_INTERN("treemap-first-entry"), 1, SG_ARGC, SG_NIL);
1541 tm_scm = SG_ARGREF(0);
1542 if (!SG_TREEMAP_P(tm_scm))
1543 Sg_WrongTypeOfArgumentViolation(
1544 sg__rc_cgen13336.d13337[21], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1545 tm = SG_TREEMAP(tm_scm);
1546 {
1547 {
1548 SgObject SG_RESULT = (SgObject)NULL;
1549
1550 #line 221 "./lib_treemap.stub"
1551 {SgTreeEntry* e;if (((tm)->entryCount)==(0)){{Sg_AssertionViolation(sg__rc_cgen13336.d13337[22],SG_MAKE_STRING("treemap is empty"),tm);}}e=(Sg_TreeMapFirstEntry(tm));if ((e)==(NULL)){Sg_AssertionViolation(sg__rc_cgen13336.d13337[22],SG_MAKE_STRING("treemap is empty"),tm);} else {SG_RESULT=(Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}}
1552 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1553 }
1554 }
1555 }
1556 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_first_entry__STUB, 1, 0,sagittarius_treemap_treemap_first_entry, SG_FALSE, NULL);
1557
sagittarius_treemap_treemap_last_entry(SgObject * SG_FP,int SG_ARGC,void * data_)1558 static SgObject sagittarius_treemap_treemap_last_entry(SgObject *SG_FP, int SG_ARGC, void *data_)
1559 {
1560 SgObject tm_scm;
1561 SgTreeMap* tm;
1562 SG_ENTER_SUBR("treemap-last-entry");
1563 if (SG_ARGC != 1)
1564 Sg_WrongNumberOfArgumentsViolation(
1565 SG_INTERN("treemap-last-entry"), 1, SG_ARGC, SG_NIL);
1566 tm_scm = SG_ARGREF(0);
1567 if (!SG_TREEMAP_P(tm_scm))
1568 Sg_WrongTypeOfArgumentViolation(
1569 sg__rc_cgen13336.d13337[23], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL);
1570 tm = SG_TREEMAP(tm_scm);
1571 {
1572 {
1573 SgObject SG_RESULT = (SgObject)NULL;
1574
1575 #line 223 "./lib_treemap.stub"
1576 {SgTreeEntry* e;if (((tm)->entryCount)==(0)){{Sg_AssertionViolation(sg__rc_cgen13336.d13337[24],SG_MAKE_STRING("treemap is empty"),tm);}}e=(Sg_TreeMapLastEntry(tm));if ((e)==(NULL)){Sg_AssertionViolation(sg__rc_cgen13336.d13337[24],SG_MAKE_STRING("treemap is empty"),tm);} else {SG_RESULT=(Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}}
1577 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1578 }
1579 }
1580 }
1581 static SG_DEFINE_SUBR(sagittarius_treemap_treemap_last_entry__STUB, 1, 0,sagittarius_treemap_treemap_last_entry, SG_FALSE, NULL);
1582
1583 static SgCodeBuilder *toplevel =
1584 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[23]));
Sg__Init_sagittarius_treemap()1585 void Sg__Init_sagittarius_treemap () {
1586 SgLibrary *lib = SG_LIBRARY(Sg_FindLibrary(SG_INTERN("(sagittarius treemap)"), TRUE));
1587 SgObject save = Sg_VM()->currentLibrary;
1588 SgObject t = SG_NIL, h = SG_NIL;
1589
1590 sg__rc_cgen13336.d13337[0] = SG_MAKE_STRING("make-rb-treemap");
1591 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[0]), &sagittarius_treemap_make_rb_treemap__STUB);
1592 SG_PROCEDURE_NAME(&sagittarius_treemap_make_rb_treemap__STUB) = sg__rc_cgen13336.d13337[0];
1593 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_make_rb_treemap__STUB) = SG_PROC_NO_SIDE_EFFECT;
1594 sg__rc_cgen13336.d13337[1] = SG_MAKE_STRING("make-rb-treemap/comparator");
1595 sg__rc_cgen13336.d13337[2] = Sg_Intern(sg__rc_cgen13336.d13337[1]); /* make-rb-treemap/comparator */
1596 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[1]), &sagittarius_treemap_make_rb_treemap_2fcomparator__STUB);
1597 SG_PROCEDURE_NAME(&sagittarius_treemap_make_rb_treemap_2fcomparator__STUB) = sg__rc_cgen13336.d13337[1];
1598 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_make_rb_treemap_2fcomparator__STUB) = SG_PROC_NO_SIDE_EFFECT;
1599 sg__rc_cgen13336.d13337[3] = SG_MAKE_STRING("treemap?");
1600 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[3]), &sagittarius_treemap_treemapP__STUB);
1601 SG_PROCEDURE_NAME(&sagittarius_treemap_treemapP__STUB) = sg__rc_cgen13336.d13337[3];
1602 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemapP__STUB) = SG_PROC_TRANSPARENT;
1603 sg__rc_cgen13336.d13337[4] = SG_MAKE_STRING("treemap-ref");
1604 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[4]), &sagittarius_treemap_treemap_ref__STUB);
1605 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_ref__STUB) = sg__rc_cgen13336.d13337[4];
1606 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_ref__STUB) = SG_PROC_NO_SIDE_EFFECT;
1607 sg__rc_cgen13336.d13337[5] = SG_MAKE_STRING("treemap-set!");
1608 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[5]), &sagittarius_treemap_treemap_setX__STUB);
1609 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_setX__STUB) = sg__rc_cgen13336.d13337[5];
1610 sg__rc_cgen13336.d13337[6] = SG_MAKE_STRING("treemap-delete!");
1611 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[6]), &sagittarius_treemap_treemap_deleteX__STUB);
1612 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_deleteX__STUB) = sg__rc_cgen13336.d13337[6];
1613 sg__rc_cgen13336.d13337[7] = SG_MAKE_STRING("treemap-clear!");
1614 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[7]), &sagittarius_treemap_treemap_clearX__STUB);
1615 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_clearX__STUB) = sg__rc_cgen13336.d13337[7];
1616 sg__rc_cgen13336.d13337[8] = SG_MAKE_STRING("treemap-copy");
1617 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[8]), &sagittarius_treemap_treemap_copy__STUB);
1618 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_copy__STUB) = sg__rc_cgen13336.d13337[8];
1619 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_copy__STUB) = SG_PROC_NO_SIDE_EFFECT;
1620 sg__rc_cgen13336.d13337[9] = SG_MAKE_STRING("treemap-contains?");
1621 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[9]), &sagittarius_treemap_treemap_containsP__STUB);
1622 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_containsP__STUB) = sg__rc_cgen13336.d13337[9];
1623 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_containsP__STUB) = SG_PROC_NO_SIDE_EFFECT;
1624 sg__rc_cgen13336.d13337[10] = SG_MAKE_STRING("treemap-keys-list");
1625 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[10]), &sagittarius_treemap_treemap_keys_list__STUB);
1626 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_keys_list__STUB) = sg__rc_cgen13336.d13337[10];
1627 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_keys_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
1628 sg__rc_cgen13336.d13337[11] = SG_MAKE_STRING("treemap-values-list");
1629 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[11]), &sagittarius_treemap_treemap_values_list__STUB);
1630 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_values_list__STUB) = sg__rc_cgen13336.d13337[11];
1631 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_values_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
1632 sg__rc_cgen13336.d13337[12] = SG_MAKE_STRING("treemap-entries-list");
1633 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[12]), &sagittarius_treemap_treemap_entries_list__STUB);
1634 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_entries_list__STUB) = sg__rc_cgen13336.d13337[12];
1635 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_entries_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
1636 sg__rc_cgen13336.d13337[13] = SG_MAKE_STRING("treemap-size");
1637 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[13]), &sagittarius_treemap_treemap_size__STUB);
1638 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_size__STUB) = sg__rc_cgen13336.d13337[13];
1639 SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_size__STUB) = SG_PROC_NO_SIDE_EFFECT;
1640 sg__rc_cgen13336.d13337[14] = SG_MAKE_STRING("treemap-update!");
1641 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[14]), &sagittarius_treemap_treemap_updateX__STUB);
1642 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_updateX__STUB) = sg__rc_cgen13336.d13337[14];
1643 sg__rc_cgen13336.d13337[15] = SG_MAKE_STRING("treemap-iterator");
1644 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[15]), &sagittarius_treemap_treemap_iterator__STUB);
1645 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_iterator__STUB) = sg__rc_cgen13336.d13337[15];
1646 sg__rc_cgen13336.d13337[16] = SG_MAKE_STRING("treemap-reverse-iterator");
1647 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[16]), &sagittarius_treemap_treemap_reverse_iterator__STUB);
1648 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_reverse_iterator__STUB) = sg__rc_cgen13336.d13337[16];
1649 sg__rc_cgen13336.d13337[17] = SG_MAKE_STRING("treemap-higher-entry");
1650 sg__rc_cgen13336.d13337[18] = Sg_Intern(sg__rc_cgen13336.d13337[17]); /* treemap-higher-entry */
1651 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[17]), &sagittarius_treemap_treemap_higher_entry__STUB);
1652 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_higher_entry__STUB) = sg__rc_cgen13336.d13337[17];
1653 sg__rc_cgen13336.d13337[19] = SG_MAKE_STRING("treemap-lower-entry");
1654 sg__rc_cgen13336.d13337[20] = Sg_Intern(sg__rc_cgen13336.d13337[19]); /* treemap-lower-entry */
1655 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[19]), &sagittarius_treemap_treemap_lower_entry__STUB);
1656 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_lower_entry__STUB) = sg__rc_cgen13336.d13337[19];
1657 sg__rc_cgen13336.d13337[21] = SG_MAKE_STRING("treemap-first-entry");
1658 sg__rc_cgen13336.d13337[22] = Sg_Intern(sg__rc_cgen13336.d13337[21]); /* treemap-first-entry */
1659 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[21]), &sagittarius_treemap_treemap_first_entry__STUB);
1660 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_first_entry__STUB) = sg__rc_cgen13336.d13337[21];
1661 sg__rc_cgen13336.d13337[23] = SG_MAKE_STRING("treemap-last-entry");
1662 sg__rc_cgen13336.d13337[24] = Sg_Intern(sg__rc_cgen13336.d13337[23]); /* treemap-last-entry */
1663 Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[23]), &sagittarius_treemap_treemap_last_entry__STUB);
1664 SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_last_entry__STUB) = sg__rc_cgen13336.d13337[23];
1665 sg__rc_cgen13336.d13337[27] = SG_MAKE_STRING("(sagittarius treemap)");
1666 sg__rc_cgen13336.d13337[26] = Sg_Intern(sg__rc_cgen13336.d13337[27]); /* (sagittarius treemap) */
1667 sg__rc_cgen13336.d13337[25] = Sg_FindLibrary(SG_SYMBOL(sg__rc_cgen13336.d13337[26]), TRUE);
1668 sg__rc_cgen13336.d13337[28] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1669
1670 sg__rc_cgen13336.d13337[29] = Sg_Intern(sg__rc_cgen13336.d13337[12]); /* treemap-entries-list */
1671 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[28],SG_SYMBOL(sg__rc_cgen13336.d13337[29]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-entries-list */
1672 sg__rc_cgen13336.d13337[30] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1673
1674 sg__rc_cgen13336.d13337[32] = SG_MAKE_STRING("list->vector");
1675 sg__rc_cgen13336.d13337[31] = Sg_Intern(sg__rc_cgen13336.d13337[32]); /* list->vector */
1676 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[30],SG_SYMBOL(sg__rc_cgen13336.d13337[31]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* list->vector */
1677 sg__rc_cgen13336.d13337[33] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1678
1679 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[33],SG_SYMBOL(sg__rc_cgen13336.d13337[31]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* list->vector */
1680 sg__rc_cgen13336.d13337[35] = SG_MAKE_STRING("treemap-entries");
1681 sg__rc_cgen13336.d13337[34] = Sg_Intern(sg__rc_cgen13336.d13337[35]); /* treemap-entries */
1682 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[0]))->name = sg__rc_cgen13336.d13337[34];/* treemap-entries */
1683 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[0]))[4] = SG_WORD(sg__rc_cgen13336.d13337[28]);
1684 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[0]))[10] = SG_WORD(sg__rc_cgen13336.d13337[30]);
1685 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[0]))[16] = SG_WORD(sg__rc_cgen13336.d13337[33]);
1686 sg__rc_cgen13336.d13337[36] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1687
1688 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[36],SG_SYMBOL(sg__rc_cgen13336.d13337[34]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-entries */
1689 sg__rc_cgen13336.d13337[37] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1690
1691 sg__rc_cgen13336.d13337[38] = Sg_Intern(sg__rc_cgen13336.d13337[10]); /* treemap-keys-list */
1692 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[37],SG_SYMBOL(sg__rc_cgen13336.d13337[38]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-keys-list */
1693 sg__rc_cgen13336.d13337[39] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1694
1695 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[39],SG_SYMBOL(sg__rc_cgen13336.d13337[31]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* list->vector */
1696 sg__rc_cgen13336.d13337[41] = SG_MAKE_STRING("treemap-keys");
1697 sg__rc_cgen13336.d13337[40] = Sg_Intern(sg__rc_cgen13336.d13337[41]); /* treemap-keys */
1698 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[1]))->name = sg__rc_cgen13336.d13337[40];/* treemap-keys */
1699 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[19]))[4] = SG_WORD(sg__rc_cgen13336.d13337[37]);
1700 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[19]))[7] = SG_WORD(sg__rc_cgen13336.d13337[39]);
1701 sg__rc_cgen13336.d13337[42] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1702
1703 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[42],SG_SYMBOL(sg__rc_cgen13336.d13337[40]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-keys */
1704 sg__rc_cgen13336.d13337[43] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1705
1706 sg__rc_cgen13336.d13337[44] = Sg_Intern(sg__rc_cgen13336.d13337[11]); /* treemap-values-list */
1707 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[43],SG_SYMBOL(sg__rc_cgen13336.d13337[44]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-values-list */
1708 sg__rc_cgen13336.d13337[45] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1709
1710 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[45],SG_SYMBOL(sg__rc_cgen13336.d13337[31]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* list->vector */
1711 sg__rc_cgen13336.d13337[47] = SG_MAKE_STRING("treemap-values");
1712 sg__rc_cgen13336.d13337[46] = Sg_Intern(sg__rc_cgen13336.d13337[47]); /* treemap-values */
1713 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[2]))->name = sg__rc_cgen13336.d13337[46];/* treemap-values */
1714 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[28]))[4] = SG_WORD(sg__rc_cgen13336.d13337[43]);
1715 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[28]))[7] = SG_WORD(sg__rc_cgen13336.d13337[45]);
1716 sg__rc_cgen13336.d13337[48] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1717
1718 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[48],SG_SYMBOL(sg__rc_cgen13336.d13337[46]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-values */
1719 sg__rc_cgen13336.d13337[49] = SG_MAKE_STRING("expected ~a, but got ~a");
1720 sg__rc_cgen13336.d13337[50] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1721
1722 sg__rc_cgen13336.d13337[52] = SG_MAKE_STRING("format");
1723 sg__rc_cgen13336.d13337[51] = Sg_Intern(sg__rc_cgen13336.d13337[52]); /* format */
1724 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[50],SG_SYMBOL(sg__rc_cgen13336.d13337[51]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* format */
1725 sg__rc_cgen13336.d13337[53] = SG_MAKE_STRING("expected ~a, but got ~a, as argument ~a");
1726 sg__rc_cgen13336.d13337[54] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1727
1728 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[54],SG_SYMBOL(sg__rc_cgen13336.d13337[51]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* format */
1729 sg__rc_cgen13336.d13337[56] = SG_MAKE_STRING("wrong-type-argument-message");
1730 sg__rc_cgen13336.d13337[55] = Sg_Intern(sg__rc_cgen13336.d13337[56]); /* wrong-type-argument-message */
1731 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[3]))->name = sg__rc_cgen13336.d13337[55];/* wrong-type-argument-message */
1732 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[4] = SG_WORD(sg__rc_cgen13336.d13337[49]);
1733 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[8] = SG_WORD(sg__rc_cgen13336.d13337[50]);
1734 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[11] = SG_WORD(sg__rc_cgen13336.d13337[53]);
1735 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[16] = SG_WORD(sg__rc_cgen13336.d13337[54]);
1736 sg__rc_cgen13336.d13337[57] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1737
1738 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[57],SG_SYMBOL(sg__rc_cgen13336.d13337[55]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* wrong-type-argument-message */
1739 sg__rc_cgen13336.d13337[58] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1740
1741 sg__rc_cgen13336.d13337[60] = SG_MAKE_STRING("procedure?");
1742 sg__rc_cgen13336.d13337[59] = Sg_Intern(sg__rc_cgen13336.d13337[60]); /* procedure? */
1743 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[58],SG_SYMBOL(sg__rc_cgen13336.d13337[59]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* procedure? */
1744 sg__rc_cgen13336.d13337[61] = SG_MAKE_STRING("procedure");
1745 sg__rc_cgen13336.d13337[62] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1746
1747 sg__rc_cgen13336.d13337[64] = SG_MAKE_STRING("assertion-violation");
1748 sg__rc_cgen13336.d13337[63] = Sg_Intern(sg__rc_cgen13336.d13337[64]); /* assertion-violation */
1749 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[62],SG_SYMBOL(sg__rc_cgen13336.d13337[63]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* assertion-violation */
1750 sg__rc_cgen13336.d13337[65] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1751
1752 sg__rc_cgen13336.d13337[66] = Sg_Intern(sg__rc_cgen13336.d13337[3]); /* treemap? */
1753 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[65],SG_SYMBOL(sg__rc_cgen13336.d13337[66]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap? */
1754 sg__rc_cgen13336.d13337[67] = SG_MAKE_STRING("treemap");
1755 sg__rc_cgen13336.d13337[68] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1756
1757 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[68],SG_SYMBOL(sg__rc_cgen13336.d13337[63]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* assertion-violation */
1758 sg__rc_cgen13336.d13337[70] = SG_MAKE_STRING("%treemap-fold");
1759 sg__rc_cgen13336.d13337[69] = Sg_Intern(sg__rc_cgen13336.d13337[70]); /* %treemap-fold */
1760 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[4]))->name = sg__rc_cgen13336.d13337[69];/* %treemap-fold */
1761 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[4] = SG_WORD(sg__rc_cgen13336.d13337[58]);
1762 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[22] = SG_WORD(sg__rc_cgen13336.d13337[49]);
1763 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[24] = SG_WORD(sg__rc_cgen13336.d13337[61]);
1764 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[27] = SG_WORD(sg__rc_cgen13336.d13337[50]);
1765 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[33] = SG_WORD(sg__rc_cgen13336.d13337[53]);
1766 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[35] = SG_WORD(sg__rc_cgen13336.d13337[61]);
1767 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[39] = SG_WORD(sg__rc_cgen13336.d13337[54]);
1768 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[43] = SG_WORD(sg__rc_cgen13336.d13337[62]);
1769 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[48] = SG_WORD(sg__rc_cgen13336.d13337[65]);
1770 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[66] = SG_WORD(sg__rc_cgen13336.d13337[49]);
1771 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[68] = SG_WORD(sg__rc_cgen13336.d13337[67]);
1772 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[71] = SG_WORD(sg__rc_cgen13336.d13337[50]);
1773 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[77] = SG_WORD(sg__rc_cgen13336.d13337[53]);
1774 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[79] = SG_WORD(sg__rc_cgen13336.d13337[67]);
1775 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[83] = SG_WORD(sg__rc_cgen13336.d13337[54]);
1776 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[87] = SG_WORD(sg__rc_cgen13336.d13337[68]);
1777 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[5]))->name = sg__rc_cgen13336.d13337[69];/* %treemap-fold */
1778 sg__rc_cgen13336.d13337[71] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1779
1780 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[71],SG_SYMBOL(sg__rc_cgen13336.d13337[69]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* %treemap-fold */
1781 sg__rc_cgen13336.d13337[73] = SG_MAKE_STRING("treemap-fold");
1782 sg__rc_cgen13336.d13337[72] = Sg_Intern(sg__rc_cgen13336.d13337[73]); /* treemap-fold */
1783 sg__rc_cgen13336.d13337[74] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1784
1785 sg__rc_cgen13336.d13337[75] = Sg_Intern(sg__rc_cgen13336.d13337[15]); /* treemap-iterator */
1786 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[74],SG_SYMBOL(sg__rc_cgen13336.d13337[75]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-iterator */
1787 sg__rc_cgen13336.d13337[76] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1788
1789 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[76],SG_SYMBOL(sg__rc_cgen13336.d13337[69]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* %treemap-fold */
1790 sg__rc_cgen13336.d13337[77] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1791
1792 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[77],SG_SYMBOL(sg__rc_cgen13336.d13337[72]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-fold */
1793 sg__rc_cgen13336.d13337[79] = SG_MAKE_STRING("treemap-fold-reverse");
1794 sg__rc_cgen13336.d13337[78] = Sg_Intern(sg__rc_cgen13336.d13337[79]); /* treemap-fold-reverse */
1795 sg__rc_cgen13336.d13337[80] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1796
1797 sg__rc_cgen13336.d13337[81] = Sg_Intern(sg__rc_cgen13336.d13337[16]); /* treemap-reverse-iterator */
1798 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[80],SG_SYMBOL(sg__rc_cgen13336.d13337[81]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-reverse-iterator */
1799 sg__rc_cgen13336.d13337[82] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1800
1801 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[82],SG_SYMBOL(sg__rc_cgen13336.d13337[69]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* %treemap-fold */
1802 sg__rc_cgen13336.d13337[83] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1803
1804 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[83],SG_SYMBOL(sg__rc_cgen13336.d13337[78]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-fold-reverse */
1805 sg__rc_cgen13336.d13337[84] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1806
1807 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[84],SG_SYMBOL(sg__rc_cgen13336.d13337[72]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-fold */
1808 sg__rc_cgen13336.d13337[86] = SG_MAKE_STRING("treemap-for-each");
1809 sg__rc_cgen13336.d13337[85] = Sg_Intern(sg__rc_cgen13336.d13337[86]); /* treemap-for-each */
1810 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[7]))->name = sg__rc_cgen13336.d13337[85];/* treemap-for-each */
1811 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[192]))[8] = SG_WORD(sg__rc_cgen13336.d13337[84]);
1812 sg__rc_cgen13336.d13337[87] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1813
1814 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[87],SG_SYMBOL(sg__rc_cgen13336.d13337[85]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-for-each */
1815 sg__rc_cgen13336.d13337[88] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1816
1817 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[88],SG_SYMBOL(sg__rc_cgen13336.d13337[72]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-fold */
1818 sg__rc_cgen13336.d13337[89] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1819
1820 sg__rc_cgen13336.d13337[91] = SG_MAKE_STRING("reverse!");
1821 sg__rc_cgen13336.d13337[90] = Sg_Intern(sg__rc_cgen13336.d13337[91]); /* reverse! */
1822 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[89],SG_SYMBOL(sg__rc_cgen13336.d13337[90]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* reverse! */
1823 sg__rc_cgen13336.d13337[93] = SG_MAKE_STRING("treemap-map");
1824 sg__rc_cgen13336.d13337[92] = Sg_Intern(sg__rc_cgen13336.d13337[93]); /* treemap-map */
1825 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[9]))->name = sg__rc_cgen13336.d13337[92];/* treemap-map */
1826 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[212]))[10] = SG_WORD(sg__rc_cgen13336.d13337[88]);
1827 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[212]))[13] = SG_WORD(sg__rc_cgen13336.d13337[89]);
1828 sg__rc_cgen13336.d13337[94] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1829
1830 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[94],SG_SYMBOL(sg__rc_cgen13336.d13337[92]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-map */
1831 sg__rc_cgen13336.d13337[95] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1832
1833 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[95],SG_SYMBOL(sg__rc_cgen13336.d13337[78]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-fold-reverse */
1834 sg__rc_cgen13336.d13337[97] = SG_MAKE_STRING("treemap-for-each-reverse");
1835 sg__rc_cgen13336.d13337[96] = Sg_Intern(sg__rc_cgen13336.d13337[97]); /* treemap-for-each-reverse */
1836 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[11]))->name = sg__rc_cgen13336.d13337[96];/* treemap-for-each-reverse */
1837 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[235]))[8] = SG_WORD(sg__rc_cgen13336.d13337[95]);
1838 sg__rc_cgen13336.d13337[98] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1839
1840 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[98],SG_SYMBOL(sg__rc_cgen13336.d13337[96]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-for-each-reverse */
1841 sg__rc_cgen13336.d13337[99] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1842
1843 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[99],SG_SYMBOL(sg__rc_cgen13336.d13337[78]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-fold-reverse */
1844 sg__rc_cgen13336.d13337[100] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1845
1846 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[100],SG_SYMBOL(sg__rc_cgen13336.d13337[90]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* reverse! */
1847 sg__rc_cgen13336.d13337[102] = SG_MAKE_STRING("treemap-map-reverse");
1848 sg__rc_cgen13336.d13337[101] = Sg_Intern(sg__rc_cgen13336.d13337[102]); /* treemap-map-reverse */
1849 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[13]))->name = sg__rc_cgen13336.d13337[101];/* treemap-map-reverse */
1850 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[255]))[10] = SG_WORD(sg__rc_cgen13336.d13337[99]);
1851 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[255]))[13] = SG_WORD(sg__rc_cgen13336.d13337[100]);
1852 sg__rc_cgen13336.d13337[103] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
1853
1854 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[103],SG_SYMBOL(sg__rc_cgen13336.d13337[101]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-map-reverse */
1855 sg__rc_cgen13336.d13337[105] = SG_MAKE_STRING("lambda");
1856 sg__rc_cgen13336.d13337[104] = Sg_Intern(sg__rc_cgen13336.d13337[105]); /* lambda */
1857 sg__rc_cgen13336.d13337[106] = SG_MAKE_STRING("too many argument for");
1858 sg__rc_cgen13336.d13337[110] = SG_MAKE_STRING("unless");
1859 sg__rc_cgen13336.d13337[109] = Sg_Intern(sg__rc_cgen13336.d13337[110]); /* unless */
1860 sg__rc_cgen13336.d13337[113] = SG_MAKE_STRING("pred");
1861 sg__rc_cgen13336.d13337[112] = Sg_Intern(sg__rc_cgen13336.d13337[113]); /* pred */
1862 do {
1863 /* (procedure? pred) */
1864 SgObject G13568 = SG_NIL, G13569 = SG_NIL;
1865 SG_APPEND1(G13568, G13569, sg__rc_cgen13336.d13337[59]); /* procedure? */
1866 SG_APPEND1(G13568, G13569, sg__rc_cgen13336.d13337[112]); /* pred */
1867 sg__rc_cgen13336.d13337[111] = G13568;
1868 } while (0);
1869 sg__rc_cgen13336.d13337[116] = SG_MAKE_STRING("who");
1870 sg__rc_cgen13336.d13337[115] = Sg_Intern(sg__rc_cgen13336.d13337[116]); /* who */
1871 do {
1872 /* (wrong-type-argument-message "procedure" pred 1) */
1873 SgObject G13570 = SG_NIL, G13571 = SG_NIL;
1874 SG_APPEND1(G13570, G13571, sg__rc_cgen13336.d13337[55]); /* wrong-type-argument-message */
1875 SG_APPEND1(G13570, G13571, sg__rc_cgen13336.d13337[61]); /* "procedure" */
1876 SG_APPEND1(G13570, G13571, sg__rc_cgen13336.d13337[112]); /* pred */
1877 SG_APPEND1(G13570, G13571, SG_MAKE_INT(1U)); /* 1 */
1878 sg__rc_cgen13336.d13337[117] = G13570;
1879 } while (0);
1880 do {
1881 /* (assertion-violation who (wrong-type-argument-message "procedure" pred 1)) */
1882 SgObject G13572 = SG_NIL, G13573 = SG_NIL;
1883 SG_APPEND1(G13572, G13573, sg__rc_cgen13336.d13337[63]); /* assertion-violation */
1884 SG_APPEND1(G13572, G13573, sg__rc_cgen13336.d13337[115]); /* who */
1885 SG_APPEND1(G13572, G13573, sg__rc_cgen13336.d13337[117]); /* (wrong-type-argument-message "procedure" pred 1) */
1886 sg__rc_cgen13336.d13337[114] = G13572;
1887 } while (0);
1888 do {
1889 /* (unless (procedure? pred) (assertion-violation who (wrong-type-argument-message "procedure" pred 1))) */
1890 SgObject G13574 = SG_NIL, G13575 = SG_NIL;
1891 SG_APPEND1(G13574, G13575, sg__rc_cgen13336.d13337[109]); /* unless */
1892 SG_APPEND1(G13574, G13575, sg__rc_cgen13336.d13337[111]); /* (procedure? pred) */
1893 SG_APPEND1(G13574, G13575, sg__rc_cgen13336.d13337[114]); /* (assertion-violation who (wrong-type-argument-message "procedure" pred 1)) */
1894 sg__rc_cgen13336.d13337[108] = G13574;
1895 } while (0);
1896 sg__rc_cgen13336.d13337[121] = SG_MAKE_STRING("tm");
1897 sg__rc_cgen13336.d13337[120] = Sg_Intern(sg__rc_cgen13336.d13337[121]); /* tm */
1898 do {
1899 /* (treemap? tm) */
1900 SgObject G13576 = SG_NIL, G13577 = SG_NIL;
1901 SG_APPEND1(G13576, G13577, sg__rc_cgen13336.d13337[66]); /* treemap? */
1902 SG_APPEND1(G13576, G13577, sg__rc_cgen13336.d13337[120]); /* tm */
1903 sg__rc_cgen13336.d13337[119] = G13576;
1904 } while (0);
1905 do {
1906 /* (wrong-type-argument-message "treemap" tm 2) */
1907 SgObject G13578 = SG_NIL, G13579 = SG_NIL;
1908 SG_APPEND1(G13578, G13579, sg__rc_cgen13336.d13337[55]); /* wrong-type-argument-message */
1909 SG_APPEND1(G13578, G13579, sg__rc_cgen13336.d13337[67]); /* "treemap" */
1910 SG_APPEND1(G13578, G13579, sg__rc_cgen13336.d13337[120]); /* tm */
1911 SG_APPEND1(G13578, G13579, SG_MAKE_INT(2U)); /* 2 */
1912 sg__rc_cgen13336.d13337[123] = G13578;
1913 } while (0);
1914 do {
1915 /* (assertion-violation who (wrong-type-argument-message "treemap" tm 2)) */
1916 SgObject G13580 = SG_NIL, G13581 = SG_NIL;
1917 SG_APPEND1(G13580, G13581, sg__rc_cgen13336.d13337[63]); /* assertion-violation */
1918 SG_APPEND1(G13580, G13581, sg__rc_cgen13336.d13337[115]); /* who */
1919 SG_APPEND1(G13580, G13581, sg__rc_cgen13336.d13337[123]); /* (wrong-type-argument-message "treemap" tm 2) */
1920 sg__rc_cgen13336.d13337[122] = G13580;
1921 } while (0);
1922 do {
1923 /* (unless (treemap? tm) (assertion-violation who (wrong-type-argument-message "treemap" tm 2))) */
1924 SgObject G13582 = SG_NIL, G13583 = SG_NIL;
1925 SG_APPEND1(G13582, G13583, sg__rc_cgen13336.d13337[109]); /* unless */
1926 SG_APPEND1(G13582, G13583, sg__rc_cgen13336.d13337[119]); /* (treemap? tm) */
1927 SG_APPEND1(G13582, G13583, sg__rc_cgen13336.d13337[122]); /* (assertion-violation who (wrong-type-argument-message "treemap" tm 2)) */
1928 sg__rc_cgen13336.d13337[118] = G13582;
1929 } while (0);
1930 sg__rc_cgen13336.d13337[126] = SG_MAKE_STRING("let");
1931 sg__rc_cgen13336.d13337[125] = Sg_Intern(sg__rc_cgen13336.d13337[126]); /* let */
1932 sg__rc_cgen13336.d13337[130] = SG_MAKE_STRING("itr");
1933 sg__rc_cgen13336.d13337[129] = Sg_Intern(sg__rc_cgen13336.d13337[130]); /* itr */
1934 sg__rc_cgen13336.d13337[133] = SG_MAKE_STRING("iter");
1935 sg__rc_cgen13336.d13337[132] = Sg_Intern(sg__rc_cgen13336.d13337[133]); /* iter */
1936 do {
1937 /* (iter tm) */
1938 SgObject G13584 = SG_NIL, G13585 = SG_NIL;
1939 SG_APPEND1(G13584, G13585, sg__rc_cgen13336.d13337[132]); /* iter */
1940 SG_APPEND1(G13584, G13585, sg__rc_cgen13336.d13337[120]); /* tm */
1941 sg__rc_cgen13336.d13337[131] = G13584;
1942 } while (0);
1943 do {
1944 /* (itr (iter tm)) */
1945 SgObject G13586 = SG_NIL, G13587 = SG_NIL;
1946 SG_APPEND1(G13586, G13587, sg__rc_cgen13336.d13337[129]); /* itr */
1947 SG_APPEND1(G13586, G13587, sg__rc_cgen13336.d13337[131]); /* (iter tm) */
1948 sg__rc_cgen13336.d13337[128] = G13586;
1949 } while (0);
1950 sg__rc_cgen13336.d13337[136] = SG_MAKE_STRING("eof");
1951 sg__rc_cgen13336.d13337[135] = Sg_Intern(sg__rc_cgen13336.d13337[136]); /* eof */
1952 sg__rc_cgen13336.d13337[139] = SG_MAKE_STRING("cons");
1953 sg__rc_cgen13336.d13337[138] = Sg_Intern(sg__rc_cgen13336.d13337[139]); /* cons */
1954 do {
1955 /* (cons #t #t) */
1956 SgObject G13588 = SG_NIL, G13589 = SG_NIL;
1957 SG_APPEND1(G13588, G13589, sg__rc_cgen13336.d13337[138]); /* cons */
1958 SG_APPEND1(G13588, G13589, SG_TRUE); /* #t */
1959 SG_APPEND1(G13588, G13589, SG_TRUE); /* #t */
1960 sg__rc_cgen13336.d13337[137] = G13588;
1961 } while (0);
1962 do {
1963 /* (eof (cons #t #t)) */
1964 SgObject G13590 = SG_NIL, G13591 = SG_NIL;
1965 SG_APPEND1(G13590, G13591, sg__rc_cgen13336.d13337[135]); /* eof */
1966 SG_APPEND1(G13590, G13591, sg__rc_cgen13336.d13337[137]); /* (cons #t #t) */
1967 sg__rc_cgen13336.d13337[134] = G13590;
1968 } while (0);
1969 do {
1970 /* ((itr (iter tm)) (eof (cons #t #t))) */
1971 SgObject G13592 = SG_NIL, G13593 = SG_NIL;
1972 SG_APPEND1(G13592, G13593, sg__rc_cgen13336.d13337[128]); /* (itr (iter tm)) */
1973 SG_APPEND1(G13592, G13593, sg__rc_cgen13336.d13337[134]); /* (eof (cons #t #t)) */
1974 sg__rc_cgen13336.d13337[127] = G13592;
1975 } while (0);
1976 sg__rc_cgen13336.d13337[142] = SG_MAKE_STRING("loop");
1977 sg__rc_cgen13336.d13337[141] = Sg_Intern(sg__rc_cgen13336.d13337[142]); /* loop */
1978 sg__rc_cgen13336.d13337[146] = SG_MAKE_STRING("i");
1979 sg__rc_cgen13336.d13337[145] = Sg_Intern(sg__rc_cgen13336.d13337[146]); /* i */
1980 do {
1981 /* (i 0) */
1982 SgObject G13594 = SG_NIL, G13595 = SG_NIL;
1983 SG_APPEND1(G13594, G13595, sg__rc_cgen13336.d13337[145]); /* i */
1984 SG_APPEND1(G13594, G13595, SG_MAKE_INT(0)); /* 0 */
1985 sg__rc_cgen13336.d13337[144] = G13594;
1986 } while (0);
1987 do {
1988 /* ((i 0)) */
1989 SgObject G13596 = SG_NIL, G13597 = SG_NIL;
1990 SG_APPEND1(G13596, G13597, sg__rc_cgen13336.d13337[144]); /* (i 0) */
1991 sg__rc_cgen13336.d13337[143] = G13596;
1992 } while (0);
1993 sg__rc_cgen13336.d13337[149] = SG_MAKE_STRING("let-values");
1994 sg__rc_cgen13336.d13337[148] = Sg_Intern(sg__rc_cgen13336.d13337[149]); /* let-values */
1995 sg__rc_cgen13336.d13337[154] = SG_MAKE_STRING("k");
1996 sg__rc_cgen13336.d13337[153] = Sg_Intern(sg__rc_cgen13336.d13337[154]); /* k */
1997 sg__rc_cgen13336.d13337[156] = SG_MAKE_STRING("v");
1998 sg__rc_cgen13336.d13337[155] = Sg_Intern(sg__rc_cgen13336.d13337[156]); /* v */
1999 do {
2000 /* (k v) */
2001 SgObject G13598 = SG_NIL, G13599 = SG_NIL;
2002 SG_APPEND1(G13598, G13599, sg__rc_cgen13336.d13337[153]); /* k */
2003 SG_APPEND1(G13598, G13599, sg__rc_cgen13336.d13337[155]); /* v */
2004 sg__rc_cgen13336.d13337[152] = G13598;
2005 } while (0);
2006 do {
2007 /* (itr eof) */
2008 SgObject G13600 = SG_NIL, G13601 = SG_NIL;
2009 SG_APPEND1(G13600, G13601, sg__rc_cgen13336.d13337[129]); /* itr */
2010 SG_APPEND1(G13600, G13601, sg__rc_cgen13336.d13337[135]); /* eof */
2011 sg__rc_cgen13336.d13337[157] = G13600;
2012 } while (0);
2013 do {
2014 /* ((k v) (itr eof)) */
2015 SgObject G13602 = SG_NIL, G13603 = SG_NIL;
2016 SG_APPEND1(G13602, G13603, sg__rc_cgen13336.d13337[152]); /* (k v) */
2017 SG_APPEND1(G13602, G13603, sg__rc_cgen13336.d13337[157]); /* (itr eof) */
2018 sg__rc_cgen13336.d13337[151] = G13602;
2019 } while (0);
2020 do {
2021 /* (((k v) (itr eof))) */
2022 SgObject G13604 = SG_NIL, G13605 = SG_NIL;
2023 SG_APPEND1(G13604, G13605, sg__rc_cgen13336.d13337[151]); /* ((k v) (itr eof)) */
2024 sg__rc_cgen13336.d13337[150] = G13604;
2025 } while (0);
2026 sg__rc_cgen13336.d13337[160] = SG_MAKE_STRING("cond");
2027 sg__rc_cgen13336.d13337[159] = Sg_Intern(sg__rc_cgen13336.d13337[160]); /* cond */
2028 sg__rc_cgen13336.d13337[164] = SG_MAKE_STRING("eq?");
2029 sg__rc_cgen13336.d13337[163] = Sg_Intern(sg__rc_cgen13336.d13337[164]); /* eq? */
2030 do {
2031 /* (eq? k eof) */
2032 SgObject G13606 = SG_NIL, G13607 = SG_NIL;
2033 SG_APPEND1(G13606, G13607, sg__rc_cgen13336.d13337[163]); /* eq? */
2034 SG_APPEND1(G13606, G13607, sg__rc_cgen13336.d13337[153]); /* k */
2035 SG_APPEND1(G13606, G13607, sg__rc_cgen13336.d13337[135]); /* eof */
2036 sg__rc_cgen13336.d13337[162] = G13606;
2037 } while (0);
2038 sg__rc_cgen13336.d13337[166] = SG_MAKE_STRING("fallback");
2039 sg__rc_cgen13336.d13337[165] = Sg_Intern(sg__rc_cgen13336.d13337[166]); /* fallback */
2040 do {
2041 /* ((eq? k eof) fallback) */
2042 SgObject G13608 = SG_NIL, G13609 = SG_NIL;
2043 SG_APPEND1(G13608, G13609, sg__rc_cgen13336.d13337[162]); /* (eq? k eof) */
2044 SG_APPEND1(G13608, G13609, sg__rc_cgen13336.d13337[165]); /* fallback */
2045 sg__rc_cgen13336.d13337[161] = G13608;
2046 } while (0);
2047 do {
2048 /* (pred i k) */
2049 SgObject G13610 = SG_NIL, G13611 = SG_NIL;
2050 SG_APPEND1(G13610, G13611, sg__rc_cgen13336.d13337[112]); /* pred */
2051 SG_APPEND1(G13610, G13611, sg__rc_cgen13336.d13337[145]); /* i */
2052 SG_APPEND1(G13610, G13611, sg__rc_cgen13336.d13337[153]); /* k */
2053 sg__rc_cgen13336.d13337[168] = G13610;
2054 } while (0);
2055 do {
2056 /* ((pred i k) v) */
2057 SgObject G13612 = SG_NIL, G13613 = SG_NIL;
2058 SG_APPEND1(G13612, G13613, sg__rc_cgen13336.d13337[168]); /* (pred i k) */
2059 SG_APPEND1(G13612, G13613, sg__rc_cgen13336.d13337[155]); /* v */
2060 sg__rc_cgen13336.d13337[167] = G13612;
2061 } while (0);
2062 sg__rc_cgen13336.d13337[171] = SG_MAKE_STRING("else");
2063 sg__rc_cgen13336.d13337[170] = Sg_Intern(sg__rc_cgen13336.d13337[171]); /* else */
2064 sg__rc_cgen13336.d13337[175] = SG_MAKE_STRING("+");
2065 sg__rc_cgen13336.d13337[174] = Sg_Intern(sg__rc_cgen13336.d13337[175]); /* + */
2066 do {
2067 /* (+ i 1) */
2068 SgObject G13614 = SG_NIL, G13615 = SG_NIL;
2069 SG_APPEND1(G13614, G13615, sg__rc_cgen13336.d13337[174]); /* + */
2070 SG_APPEND1(G13614, G13615, sg__rc_cgen13336.d13337[145]); /* i */
2071 SG_APPEND1(G13614, G13615, SG_MAKE_INT(1U)); /* 1 */
2072 sg__rc_cgen13336.d13337[173] = G13614;
2073 } while (0);
2074 do {
2075 /* (loop (+ i 1)) */
2076 SgObject G13616 = SG_NIL, G13617 = SG_NIL;
2077 SG_APPEND1(G13616, G13617, sg__rc_cgen13336.d13337[141]); /* loop */
2078 SG_APPEND1(G13616, G13617, sg__rc_cgen13336.d13337[173]); /* (+ i 1) */
2079 sg__rc_cgen13336.d13337[172] = G13616;
2080 } while (0);
2081 do {
2082 /* (else (loop (+ i 1))) */
2083 SgObject G13618 = SG_NIL, G13619 = SG_NIL;
2084 SG_APPEND1(G13618, G13619, sg__rc_cgen13336.d13337[170]); /* else */
2085 SG_APPEND1(G13618, G13619, sg__rc_cgen13336.d13337[172]); /* (loop (+ i 1)) */
2086 sg__rc_cgen13336.d13337[169] = G13618;
2087 } while (0);
2088 do {
2089 /* (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))) */
2090 SgObject G13620 = SG_NIL, G13621 = SG_NIL;
2091 SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[159]); /* cond */
2092 SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[161]); /* ((eq? k eof) fallback) */
2093 SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[167]); /* ((pred i k) v) */
2094 SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[169]); /* (else (loop (+ i 1))) */
2095 sg__rc_cgen13336.d13337[158] = G13620;
2096 } while (0);
2097 do {
2098 /* (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1))))) */
2099 SgObject G13622 = SG_NIL, G13623 = SG_NIL;
2100 SG_APPEND1(G13622, G13623, sg__rc_cgen13336.d13337[148]); /* let-values */
2101 SG_APPEND1(G13622, G13623, sg__rc_cgen13336.d13337[150]); /* (((k v) (itr eof))) */
2102 SG_APPEND1(G13622, G13623, sg__rc_cgen13336.d13337[158]); /* (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))) */
2103 sg__rc_cgen13336.d13337[147] = G13622;
2104 } while (0);
2105 do {
2106 /* (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))))) */
2107 SgObject G13624 = SG_NIL, G13625 = SG_NIL;
2108 SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[125]); /* let */
2109 SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[141]); /* loop */
2110 SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[143]); /* ((i 0)) */
2111 SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[147]); /* (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1))))) */
2112 sg__rc_cgen13336.d13337[140] = G13624;
2113 } while (0);
2114 do {
2115 /* (let ((itr (iter tm)) (eof (cons #t #t))) (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1))))))) */
2116 SgObject G13626 = SG_NIL, G13627 = SG_NIL;
2117 SG_APPEND1(G13626, G13627, sg__rc_cgen13336.d13337[125]); /* let */
2118 SG_APPEND1(G13626, G13627, sg__rc_cgen13336.d13337[127]); /* ((itr (iter tm)) (eof (cons #t #t))) */
2119 SG_APPEND1(G13626, G13627, sg__rc_cgen13336.d13337[140]); /* (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))))) */
2120 sg__rc_cgen13336.d13337[124] = G13626;
2121 } while (0);
2122 do {
2123 /* ((unless (procedure? pred) (assertion-violation who (wrong-type-argument-message "procedure" pred 1))) (unless (treemap? tm) (assertion-violation who (wrong-type-argument-message "treemap" tm 2))) (let ((itr (iter tm)) (eof (cons #t #t))) (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))))))) */
2124 SgObject G13628 = SG_NIL, G13629 = SG_NIL;
2125 SG_APPEND1(G13628, G13629, sg__rc_cgen13336.d13337[108]); /* (unless (procedure? pred) (assertion-violation who (wrong-type-argument-message "procedure" pred 1))) */
2126 SG_APPEND1(G13628, G13629, sg__rc_cgen13336.d13337[118]); /* (unless (treemap? tm) (assertion-violation who (wrong-type-argument-message "treemap" tm 2))) */
2127 SG_APPEND1(G13628, G13629, sg__rc_cgen13336.d13337[124]); /* (let ((itr (iter tm)) (eof (cons #t #t))) (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1))))))) */
2128 sg__rc_cgen13336.d13337[107] = G13628;
2129 } while (0);
2130 sg__rc_cgen13336.d13337[176] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2131
2132 sg__rc_cgen13336.d13337[178] = SG_MAKE_STRING("error");
2133 sg__rc_cgen13336.d13337[177] = Sg_Intern(sg__rc_cgen13336.d13337[178]); /* error */
2134 sg__rc_cgen13336.d13337[181] = SG_MAKE_STRING("(sagittarius compiler)");
2135 sg__rc_cgen13336.d13337[180] = Sg_Intern(sg__rc_cgen13336.d13337[181]); /* (sagittarius compiler) */
2136 sg__rc_cgen13336.d13337[179] = Sg_FindLibrary(SG_SYMBOL(sg__rc_cgen13336.d13337[180]), TRUE);
2137 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[176],SG_SYMBOL(sg__rc_cgen13336.d13337[177]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[179]),FALSE); /* error */
2138 sg__rc_cgen13336.d13337[182] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2139
2140 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[182],SG_SYMBOL(sg__rc_cgen13336.d13337[59]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* procedure? */
2141 sg__rc_cgen13336.d13337[183] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2142
2143 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[183],SG_SYMBOL(sg__rc_cgen13336.d13337[63]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* assertion-violation */
2144 sg__rc_cgen13336.d13337[184] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2145
2146 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[184],SG_SYMBOL(sg__rc_cgen13336.d13337[66]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap? */
2147 sg__rc_cgen13336.d13337[185] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2148
2149 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[185],SG_SYMBOL(sg__rc_cgen13336.d13337[63]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* assertion-violation */
2150 sg__rc_cgen13336.d13337[187] = SG_MAKE_STRING("%treemap-find/index");
2151 sg__rc_cgen13336.d13337[186] = Sg_Intern(sg__rc_cgen13336.d13337[187]); /* %treemap-find/index */
2152 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[14]))->name = sg__rc_cgen13336.d13337[186];/* %treemap-find/index */
2153 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[27] = SG_WORD(sg__rc_cgen13336.d13337[104]);
2154 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[29] = SG_WORD(sg__rc_cgen13336.d13337[106]);
2155 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[31] = SG_WORD(sg__rc_cgen13336.d13337[107]);
2156 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[33] = SG_WORD(sg__rc_cgen13336.d13337[176]);
2157 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[38] = SG_WORD(sg__rc_cgen13336.d13337[182]);
2158 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[56] = SG_WORD(sg__rc_cgen13336.d13337[49]);
2159 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[58] = SG_WORD(sg__rc_cgen13336.d13337[61]);
2160 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[61] = SG_WORD(sg__rc_cgen13336.d13337[50]);
2161 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[67] = SG_WORD(sg__rc_cgen13336.d13337[53]);
2162 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[69] = SG_WORD(sg__rc_cgen13336.d13337[61]);
2163 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[73] = SG_WORD(sg__rc_cgen13336.d13337[54]);
2164 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[77] = SG_WORD(sg__rc_cgen13336.d13337[183]);
2165 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[82] = SG_WORD(sg__rc_cgen13336.d13337[184]);
2166 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[100] = SG_WORD(sg__rc_cgen13336.d13337[49]);
2167 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[102] = SG_WORD(sg__rc_cgen13336.d13337[67]);
2168 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[105] = SG_WORD(sg__rc_cgen13336.d13337[50]);
2169 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[111] = SG_WORD(sg__rc_cgen13336.d13337[53]);
2170 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[113] = SG_WORD(sg__rc_cgen13336.d13337[67]);
2171 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[117] = SG_WORD(sg__rc_cgen13336.d13337[54]);
2172 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[121] = SG_WORD(sg__rc_cgen13336.d13337[185]);
2173 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[15]))->name = sg__rc_cgen13336.d13337[186];/* %treemap-find/index */
2174 sg__rc_cgen13336.d13337[188] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2175
2176 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[188],SG_SYMBOL(sg__rc_cgen13336.d13337[186]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* %treemap-find/index */
2177 sg__rc_cgen13336.d13337[190] = SG_MAKE_STRING("treemap-find/index");
2178 sg__rc_cgen13336.d13337[189] = Sg_Intern(sg__rc_cgen13336.d13337[190]); /* treemap-find/index */
2179 sg__rc_cgen13336.d13337[191] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2180
2181 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[191],SG_SYMBOL(sg__rc_cgen13336.d13337[75]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-iterator */
2182 sg__rc_cgen13336.d13337[192] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2183
2184 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[192],SG_SYMBOL(sg__rc_cgen13336.d13337[186]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* %treemap-find/index */
2185 sg__rc_cgen13336.d13337[193] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2186
2187 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[193],SG_SYMBOL(sg__rc_cgen13336.d13337[189]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-find/index */
2188 sg__rc_cgen13336.d13337[195] = SG_MAKE_STRING("treemap-reverse-find/index");
2189 sg__rc_cgen13336.d13337[194] = Sg_Intern(sg__rc_cgen13336.d13337[195]); /* treemap-reverse-find/index */
2190 sg__rc_cgen13336.d13337[196] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2191
2192 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[196],SG_SYMBOL(sg__rc_cgen13336.d13337[81]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-reverse-iterator */
2193 sg__rc_cgen13336.d13337[197] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2194
2195 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[197],SG_SYMBOL(sg__rc_cgen13336.d13337[186]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* %treemap-find/index */
2196 sg__rc_cgen13336.d13337[198] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2197
2198 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[198],SG_SYMBOL(sg__rc_cgen13336.d13337[194]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-reverse-find/index */
2199 do {
2200 /* (i k) */
2201 SgObject G13630 = SG_NIL, G13631 = SG_NIL;
2202 SG_APPEND1(G13630, G13631, sg__rc_cgen13336.d13337[145]); /* i */
2203 SG_APPEND1(G13630, G13631, sg__rc_cgen13336.d13337[153]); /* k */
2204 sg__rc_cgen13336.d13337[202] = G13630;
2205 } while (0);
2206 do {
2207 /* (pred k) */
2208 SgObject G13632 = SG_NIL, G13633 = SG_NIL;
2209 SG_APPEND1(G13632, G13633, sg__rc_cgen13336.d13337[112]); /* pred */
2210 SG_APPEND1(G13632, G13633, sg__rc_cgen13336.d13337[153]); /* k */
2211 sg__rc_cgen13336.d13337[203] = G13632;
2212 } while (0);
2213 do {
2214 /* (lambda (i k) (pred k)) */
2215 SgObject G13634 = SG_NIL, G13635 = SG_NIL;
2216 SG_APPEND1(G13634, G13635, sg__rc_cgen13336.d13337[104]); /* lambda */
2217 SG_APPEND1(G13634, G13635, sg__rc_cgen13336.d13337[202]); /* (i k) */
2218 SG_APPEND1(G13634, G13635, sg__rc_cgen13336.d13337[203]); /* (pred k) */
2219 sg__rc_cgen13336.d13337[201] = G13634;
2220 } while (0);
2221 do {
2222 /* (treemap-find/index (lambda (i k) (pred k)) tm fallback) */
2223 SgObject G13636 = SG_NIL, G13637 = SG_NIL;
2224 SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[189]); /* treemap-find/index */
2225 SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[201]); /* (lambda (i k) (pred k)) */
2226 SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[120]); /* tm */
2227 SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[165]); /* fallback */
2228 sg__rc_cgen13336.d13337[200] = G13636;
2229 } while (0);
2230 do {
2231 /* ((treemap-find/index (lambda (i k) (pred k)) tm fallback)) */
2232 SgObject G13638 = SG_NIL, G13639 = SG_NIL;
2233 SG_APPEND1(G13638, G13639, sg__rc_cgen13336.d13337[200]); /* (treemap-find/index (lambda (i k) (pred k)) tm fallback) */
2234 sg__rc_cgen13336.d13337[199] = G13638;
2235 } while (0);
2236 sg__rc_cgen13336.d13337[204] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2237
2238 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[204],SG_SYMBOL(sg__rc_cgen13336.d13337[189]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-find/index */
2239 sg__rc_cgen13336.d13337[206] = SG_MAKE_STRING("treemap-find");
2240 sg__rc_cgen13336.d13337[205] = Sg_Intern(sg__rc_cgen13336.d13337[206]); /* treemap-find */
2241 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[17]))->name = sg__rc_cgen13336.d13337[205];/* treemap-find */
2242 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[27] = SG_WORD(sg__rc_cgen13336.d13337[104]);
2243 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[29] = SG_WORD(sg__rc_cgen13336.d13337[106]);
2244 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[31] = SG_WORD(sg__rc_cgen13336.d13337[199]);
2245 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[33] = SG_WORD(sg__rc_cgen13336.d13337[176]);
2246 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[41] = SG_WORD(sg__rc_cgen13336.d13337[204]);
2247 sg__rc_cgen13336.d13337[207] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2248
2249 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[207],SG_SYMBOL(sg__rc_cgen13336.d13337[205]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-find */
2250 do {
2251 /* (treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback) */
2252 SgObject G13640 = SG_NIL, G13641 = SG_NIL;
2253 SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[194]); /* treemap-reverse-find/index */
2254 SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[201]); /* (lambda (i k) (pred k)) */
2255 SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[120]); /* tm */
2256 SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[165]); /* fallback */
2257 sg__rc_cgen13336.d13337[209] = G13640;
2258 } while (0);
2259 do {
2260 /* ((treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback)) */
2261 SgObject G13642 = SG_NIL, G13643 = SG_NIL;
2262 SG_APPEND1(G13642, G13643, sg__rc_cgen13336.d13337[209]); /* (treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback) */
2263 sg__rc_cgen13336.d13337[208] = G13642;
2264 } while (0);
2265 sg__rc_cgen13336.d13337[210] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2266
2267 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[210],SG_SYMBOL(sg__rc_cgen13336.d13337[194]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-reverse-find/index */
2268 sg__rc_cgen13336.d13337[212] = SG_MAKE_STRING("treemap-reverse-find");
2269 sg__rc_cgen13336.d13337[211] = Sg_Intern(sg__rc_cgen13336.d13337[212]); /* treemap-reverse-find */
2270 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[19]))->name = sg__rc_cgen13336.d13337[211];/* treemap-reverse-find */
2271 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[27] = SG_WORD(sg__rc_cgen13336.d13337[104]);
2272 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[29] = SG_WORD(sg__rc_cgen13336.d13337[106]);
2273 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[31] = SG_WORD(sg__rc_cgen13336.d13337[208]);
2274 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[33] = SG_WORD(sg__rc_cgen13336.d13337[176]);
2275 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[41] = SG_WORD(sg__rc_cgen13336.d13337[210]);
2276 sg__rc_cgen13336.d13337[213] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2277
2278 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[213],SG_SYMBOL(sg__rc_cgen13336.d13337[211]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-reverse-find */
2279 sg__rc_cgen13336.d13337[214] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2280
2281 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[214],SG_SYMBOL(sg__rc_cgen13336.d13337[138]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* cons */
2282 sg__rc_cgen13336.d13337[216] = SG_MAKE_STRING("treemap->alist");
2283 sg__rc_cgen13336.d13337[215] = Sg_Intern(sg__rc_cgen13336.d13337[216]); /* treemap->alist */
2284 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[21]))->name = sg__rc_cgen13336.d13337[215];/* treemap->alist */
2285 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[542]))[1] = SG_WORD(sg__rc_cgen13336.d13337[214]);
2286 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[542]))[12] = SG_WORD(sg__rc_cgen13336.d13337[88]);
2287 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[542]))[15] = SG_WORD(sg__rc_cgen13336.d13337[89]);
2288 sg__rc_cgen13336.d13337[217] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2289
2290 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[217],SG_SYMBOL(sg__rc_cgen13336.d13337[215]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap->alist */
2291 sg__rc_cgen13336.d13337[218] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2292
2293 sg__rc_cgen13336.d13337[219] = Sg_Intern(sg__rc_cgen13336.d13337[0]); /* make-rb-treemap */
2294 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[218],SG_SYMBOL(sg__rc_cgen13336.d13337[219]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* make-rb-treemap */
2295 sg__rc_cgen13336.d13337[220] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2296
2297 sg__rc_cgen13336.d13337[221] = Sg_Intern(sg__rc_cgen13336.d13337[5]); /* treemap-set! */
2298 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[220],SG_SYMBOL(sg__rc_cgen13336.d13337[221]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* treemap-set! */
2299 sg__rc_cgen13336.d13337[223] = SG_MAKE_STRING("alist->treemap");
2300 sg__rc_cgen13336.d13337[222] = Sg_Intern(sg__rc_cgen13336.d13337[223]); /* alist->treemap */
2301 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[22]))->name = sg__rc_cgen13336.d13337[222];/* alist->treemap */
2302 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[559]))[4] = SG_WORD(sg__rc_cgen13336.d13337[218]);
2303 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[559]))[19] = SG_WORD(sg__rc_cgen13336.d13337[220]);
2304 sg__rc_cgen13336.d13337[224] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0);
2305
2306 SG_INIT_IDENTIFIER(sg__rc_cgen13336.d13337[224],SG_SYMBOL(sg__rc_cgen13336.d13337[222]),SG_NIL,SG_FALSE,SG_LIBRARY(sg__rc_cgen13336.d13337[25]),FALSE); /* alist->treemap */
2307 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[1] = SG_WORD(sg__rc_cgen13336.d13337[25]);
2308 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[5] = SG_WORD(sg__rc_cgen13336.d13337[36]);
2309 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[9] = SG_WORD(sg__rc_cgen13336.d13337[42]);
2310 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[13] = SG_WORD(sg__rc_cgen13336.d13337[48]);
2311 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[17] = SG_WORD(sg__rc_cgen13336.d13337[57]);
2312 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[21] = SG_WORD(sg__rc_cgen13336.d13337[71]);
2313 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[25] = SG_WORD(sg__rc_cgen13336.d13337[72]);
2314 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[27] = SG_WORD(sg__rc_cgen13336.d13337[74]);
2315 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[29] = SG_WORD(sg__rc_cgen13336.d13337[76]);
2316 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[31] = SG_WORD(sg__rc_cgen13336.d13337[77]);
2317 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[35] = SG_WORD(sg__rc_cgen13336.d13337[78]);
2318 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[37] = SG_WORD(sg__rc_cgen13336.d13337[80]);
2319 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[39] = SG_WORD(sg__rc_cgen13336.d13337[82]);
2320 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[41] = SG_WORD(sg__rc_cgen13336.d13337[83]);
2321 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[45] = SG_WORD(sg__rc_cgen13336.d13337[87]);
2322 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[49] = SG_WORD(sg__rc_cgen13336.d13337[94]);
2323 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[53] = SG_WORD(sg__rc_cgen13336.d13337[98]);
2324 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[57] = SG_WORD(sg__rc_cgen13336.d13337[103]);
2325 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[61] = SG_WORD(sg__rc_cgen13336.d13337[188]);
2326 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[65] = SG_WORD(sg__rc_cgen13336.d13337[189]);
2327 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[67] = SG_WORD(sg__rc_cgen13336.d13337[191]);
2328 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[69] = SG_WORD(sg__rc_cgen13336.d13337[192]);
2329 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[71] = SG_WORD(sg__rc_cgen13336.d13337[193]);
2330 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[75] = SG_WORD(sg__rc_cgen13336.d13337[194]);
2331 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[77] = SG_WORD(sg__rc_cgen13336.d13337[196]);
2332 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[79] = SG_WORD(sg__rc_cgen13336.d13337[197]);
2333 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[81] = SG_WORD(sg__rc_cgen13336.d13337[198]);
2334 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[85] = SG_WORD(sg__rc_cgen13336.d13337[207]);
2335 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[89] = SG_WORD(sg__rc_cgen13336.d13337[213]);
2336 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[93] = SG_WORD(sg__rc_cgen13336.d13337[217]);
2337 ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[97] = SG_WORD(sg__rc_cgen13336.d13337[224]);
2338 sg__rc_cgen13336.d13337[226] = SG_MAKE_STRING("(core)");
2339 sg__rc_cgen13336.d13337[225] = Sg_Intern(sg__rc_cgen13336.d13337[226]); /* (core) */
2340 Sg_ImportLibrary(sg__rc_cgen13336.d13337[25], sg__rc_cgen13336.d13337[225]);
2341
2342 sg__rc_cgen13336.d13337[228] = SG_MAKE_STRING("(sagittarius)");
2343 sg__rc_cgen13336.d13337[227] = Sg_Intern(sg__rc_cgen13336.d13337[228]); /* (sagittarius) */
2344 Sg_ImportLibrary(sg__rc_cgen13336.d13337[25], sg__rc_cgen13336.d13337[227]);
2345
2346 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[34]); /* treemap-entries */
2347 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[40]); /* treemap-keys */
2348 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[46]); /* treemap-values */
2349 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[55]); /* wrong-type-argument-message */
2350 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[69]); /* %treemap-fold */
2351 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[72]); /* treemap-fold */
2352 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[78]); /* treemap-fold-reverse */
2353 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[85]); /* treemap-for-each */
2354 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[92]); /* treemap-map */
2355 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[96]); /* treemap-for-each-reverse */
2356 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[101]); /* treemap-map-reverse */
2357 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[186]); /* %treemap-find/index */
2358 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[189]); /* treemap-find/index */
2359 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[194]); /* treemap-reverse-find/index */
2360 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[205]); /* treemap-find */
2361 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[211]); /* treemap-reverse-find */
2362 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[215]); /* treemap->alist */
2363 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[222]); /* alist->treemap */
2364 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[219]); /* make-rb-treemap */
2365 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[2]); /* make-rb-treemap/comparator */
2366 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[66]); /* treemap? */
2367 sg__rc_cgen13336.d13337[229] = Sg_Intern(sg__rc_cgen13336.d13337[4]); /* treemap-ref */
2368 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[229]); /* treemap-ref */
2369 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[221]); /* treemap-set! */
2370 sg__rc_cgen13336.d13337[230] = Sg_Intern(sg__rc_cgen13336.d13337[6]); /* treemap-delete! */
2371 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[230]); /* treemap-delete! */
2372 sg__rc_cgen13336.d13337[231] = Sg_Intern(sg__rc_cgen13336.d13337[7]); /* treemap-clear! */
2373 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[231]); /* treemap-clear! */
2374 sg__rc_cgen13336.d13337[232] = Sg_Intern(sg__rc_cgen13336.d13337[8]); /* treemap-copy */
2375 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[232]); /* treemap-copy */
2376 sg__rc_cgen13336.d13337[233] = Sg_Intern(sg__rc_cgen13336.d13337[9]); /* treemap-contains? */
2377 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[233]); /* treemap-contains? */
2378 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[38]); /* treemap-keys-list */
2379 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[44]); /* treemap-values-list */
2380 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[29]); /* treemap-entries-list */
2381 sg__rc_cgen13336.d13337[234] = Sg_Intern(sg__rc_cgen13336.d13337[13]); /* treemap-size */
2382 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[234]); /* treemap-size */
2383 sg__rc_cgen13336.d13337[235] = Sg_Intern(sg__rc_cgen13336.d13337[14]); /* treemap-update! */
2384 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[235]); /* treemap-update! */
2385 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[75]); /* treemap-iterator */
2386 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[81]); /* treemap-reverse-iterator */
2387 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[18]); /* treemap-higher-entry */
2388 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[20]); /* treemap-lower-entry */
2389 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[22]); /* treemap-first-entry */
2390 SG_APPEND1(h, t, sg__rc_cgen13336.d13337[24]); /* treemap-last-entry */
2391 Sg_LibraryExportedSet(sg__rc_cgen13336.d13337[25], Sg_Cons(h, SG_NIL));
2392
2393 SG_LIBRARY_AUTO_EXPORT(sg__rc_cgen13336.d13337[25]) = TRUE;
2394
2395 Sg_VM()->currentLibrary = sg__rc_cgen13336.d13337[25];
2396 Sg_VMExecute(SG_OBJ(toplevel));
2397 Sg_VM()->currentLibrary = save;
2398 }
2399