/*Generated by genstub. Do not edit.*/ #line 32 "./lib_treemap.stub" #define LIBSAGITTARIUS_BODY #line 33 "./lib_treemap.stub" #include static struct sg__rc_cgen13336Rec { SgObject d13337[236]; SgWord d13566[685]; SgCodeBuilder d13567[24]; } sg__rc_cgen13336 = { { /* SgObject d13337 */ SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, SG_UNBOUND, }, { /* SgWord d13566 */ /* treemap-entries */0x00000030 /* 0 FRAME */, SG_WORD(4), 0x00000045 /* 2 LREF_PUSH */, 0x0000014a /* 3 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000228 /* 5 RECEIVE */, 0x00000030 /* 6 FRAME */, SG_WORD(4), 0x00000145 /* 8 LREF_PUSH */, 0x0000014a /* 9 GREF_CALL */, SG_WORD(SG_UNDEF) /* #vector#(sagittarius treemap)> */, 0x0000000b /* 11 PUSH */, 0x00000030 /* 12 FRAME */, SG_WORD(4), 0x00000245 /* 14 LREF_PUSH */, 0x0000014a /* 15 GREF_CALL */, SG_WORD(SG_UNDEF) /* #vector#(sagittarius treemap)> */, 0x0000023a /* 17 VALUES */, 0x0000002f /* 18 RET */, /* treemap-keys */0x00000030 /* 0 FRAME */, SG_WORD(4), 0x00000045 /* 2 LREF_PUSH */, 0x0000014a /* 3 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000000b /* 5 PUSH */, 0x0000014b /* 6 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* #vector#(sagittarius treemap)> */, 0x0000002f /* 8 RET */, /* treemap-values */0x00000030 /* 0 FRAME */, SG_WORD(4), 0x00000045 /* 2 LREF_PUSH */, 0x0000014a /* 3 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000000b /* 5 PUSH */, 0x0000014b /* 6 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* #vector#(sagittarius treemap)> */, 0x0000002f /* 8 RET */, /* wrong-type-argument-message */0x00000205 /* 0 LREF */, 0x00000021 /* 1 BNNULL */, SG_WORD(8), 0x00000048 /* 3 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */, 0x00000045 /* 5 LREF_PUSH */, 0x00000145 /* 6 LREF_PUSH */, 0x0000034b /* 7 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 9 RET */, 0x00000048 /* 10 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */, 0x00000045 /* 12 LREF_PUSH */, 0x00000145 /* 13 LREF_PUSH */, 0x0000025b /* 14 LREF_CAR_PUSH */, 0x0000044b /* 15 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 17 RET */, /* %treemap-fold */0x00000030 /* 0 FRAME */, SG_WORD(4), 0x00000045 /* 2 LREF_PUSH */, 0x0000014a /* 3 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000017 /* 5 TEST */, SG_WORD(4), 0x00000002 /* 7 UNDEF */, 0x00000018 /* 8 JUMP */, SG_WORD(35), 0x00000030 /* 10 FRAME */, SG_WORD(33), 0x00000146 /* 12 FREF_PUSH */, 0x00000104 /* 13 CONSTI */, 0x00000138 /* 14 LIST */, 0x0000000b /* 15 PUSH */, 0x00000a05 /* 16 LREF */, 0x00000021 /* 17 BNNULL */, SG_WORD(12), 0x00000030 /* 19 FRAME */, SG_WORD(8), 0x00000048 /* 21 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */, 0x00000048 /* 23 CONST_PUSH */, SG_WORD(SG_UNDEF) /* procedure */, 0x00000045 /* 25 LREF_PUSH */, 0x0000034a /* 26 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000018 /* 28 JUMP */, SG_WORD(11), 0x00000030 /* 30 FRAME */, SG_WORD(9), 0x00000048 /* 32 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */, 0x00000048 /* 34 CONST_PUSH */, SG_WORD(SG_UNDEF) /* procedure */, 0x00000045 /* 36 LREF_PUSH */, 0x00000a5b /* 37 LREF_CAR_PUSH */, 0x0000044a /* 38 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000132 /* 40 LEAVE */, 0x0000000b /* 41 PUSH */, 0x0000024a /* 42 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 44 FRAME */, SG_WORD(4), 0x00000145 /* 46 LREF_PUSH */, 0x0000014a /* 47 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000017 /* 49 TEST */, SG_WORD(4), 0x00000002 /* 51 UNDEF */, 0x00000018 /* 52 JUMP */, SG_WORD(35), 0x00000030 /* 54 FRAME */, SG_WORD(33), 0x00000146 /* 56 FREF_PUSH */, 0x00000204 /* 57 CONSTI */, 0x00000138 /* 58 LIST */, 0x0000000b /* 59 PUSH */, 0x00000a05 /* 60 LREF */, 0x00000021 /* 61 BNNULL */, SG_WORD(12), 0x00000030 /* 63 FRAME */, SG_WORD(8), 0x00000048 /* 65 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */, 0x00000048 /* 67 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap */, 0x00000145 /* 69 LREF_PUSH */, 0x0000034a /* 70 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000018 /* 72 JUMP */, SG_WORD(11), 0x00000030 /* 74 FRAME */, SG_WORD(9), 0x00000048 /* 76 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */, 0x00000048 /* 78 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap */, 0x00000145 /* 80 LREF_PUSH */, 0x00000a5b /* 81 LREF_CAR_PUSH */, 0x0000044a /* 82 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000132 /* 84 LEAVE */, 0x0000000b /* 85 PUSH */, 0x0000024a /* 86 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 88 FRAME */, SG_WORD(4), 0x00000145 /* 90 LREF_PUSH */, 0x00000007 /* 91 FREF */, 0x0000012b /* 92 CALL */, 0x0000000b /* 93 PUSH */, 0x00000048 /* 94 CONST_PUSH */, SG_WORD(SG_TRUE) /* #t */, 0x00000003 /* 96 CONST */, SG_WORD(SG_TRUE) /* #t */, 0x00000054 /* 98 CONS_PUSH */, 0x00000245 /* 99 LREF_PUSH */, 0x00000030 /* 100 FRAME */, SG_WORD(4), 0x00000445 /* 102 LREF_PUSH */, 0x00000305 /* 103 LREF */, 0x0000012b /* 104 CALL */, 0x00000228 /* 105 RECEIVE */, 0x00000645 /* 106 LREF_PUSH */, 0x00000405 /* 107 LREF */, 0x0000001f /* 108 BNEQ */, SG_WORD(3), 0x00000505 /* 110 LREF */, 0x0000002f /* 111 RET */, 0x00000030 /* 112 FRAME */, SG_WORD(6), 0x00000645 /* 114 LREF_PUSH */, 0x00000745 /* 115 LREF_PUSH */, 0x00000545 /* 116 LREF_PUSH */, 0x00000005 /* 117 LREF */, 0x0000032b /* 118 CALL */, 0x0000000b /* 119 PUSH */, 0x00500119 /* 120 SHIFTJ */, 0x00000018 /* 121 JUMP */, SG_WORD(-22), 0x0000002f /* 123 RET */, /* %treemap-fold */0x00000045 /* 0 LREF_PUSH */, 0x00000145 /* 1 LREF_PUSH */, 0x00000029 /* 2 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[4])) /* # */, 0x0000002f /* 4 RET */, /* #f */0x00000030 /* 0 FRAME */, SG_WORD(5), 0x00000045 /* 2 LREF_PUSH */, 0x00000145 /* 3 LREF_PUSH */, 0x00000007 /* 4 FREF */, 0x0000022b /* 5 CALL */, 0x00000205 /* 6 LREF */, 0x0000002f /* 7 RET */, /* treemap-for-each */0x00000045 /* 0 LREF_PUSH */, 0x00000029 /* 1 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[6])) /* # */, 0x0000000b /* 3 PUSH */, 0x00000145 /* 4 LREF_PUSH */, 0x00000048 /* 5 CONST_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x0000034b /* 7 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 9 RET */, /* #f */0x00000030 /* 0 FRAME */, SG_WORD(5), 0x00000045 /* 2 LREF_PUSH */, 0x00000145 /* 3 LREF_PUSH */, 0x00000007 /* 4 FREF */, 0x0000022b /* 5 CALL */, 0x0000000b /* 6 PUSH */, 0x00000205 /* 7 LREF */, 0x00000037 /* 8 CONS */, 0x0000002f /* 9 RET */, /* treemap-map */0x00000030 /* 0 FRAME */, SG_WORD(10), 0x00000045 /* 2 LREF_PUSH */, 0x00000029 /* 3 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[8])) /* # */, 0x0000000b /* 5 PUSH */, 0x00000145 /* 6 LREF_PUSH */, 0x00000048 /* 7 CONST_PUSH */, SG_WORD(SG_NIL) /* () */, 0x0000034a /* 9 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000000b /* 11 PUSH */, 0x0000014b /* 12 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 14 RET */, /* #f */0x00000030 /* 0 FRAME */, SG_WORD(5), 0x00000045 /* 2 LREF_PUSH */, 0x00000145 /* 3 LREF_PUSH */, 0x00000007 /* 4 FREF */, 0x0000022b /* 5 CALL */, 0x00000205 /* 6 LREF */, 0x0000002f /* 7 RET */, /* treemap-for-each-reverse */0x00000045 /* 0 LREF_PUSH */, 0x00000029 /* 1 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[10])) /* # */, 0x0000000b /* 3 PUSH */, 0x00000145 /* 4 LREF_PUSH */, 0x00000048 /* 5 CONST_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x0000034b /* 7 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 9 RET */, /* #f */0x00000030 /* 0 FRAME */, SG_WORD(5), 0x00000045 /* 2 LREF_PUSH */, 0x00000145 /* 3 LREF_PUSH */, 0x00000007 /* 4 FREF */, 0x0000022b /* 5 CALL */, 0x0000000b /* 6 PUSH */, 0x00000205 /* 7 LREF */, 0x00000037 /* 8 CONS */, 0x0000002f /* 9 RET */, /* treemap-map-reverse */0x00000030 /* 0 FRAME */, SG_WORD(10), 0x00000045 /* 2 LREF_PUSH */, 0x00000029 /* 3 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[12])) /* # */, 0x0000000b /* 5 PUSH */, 0x00000145 /* 6 LREF_PUSH */, 0x00000048 /* 7 CONST_PUSH */, SG_WORD(SG_NIL) /* () */, 0x0000034a /* 9 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000000b /* 11 PUSH */, 0x0000014b /* 12 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 14 RET */, /* %treemap-find/index */0x00000205 /* 0 LREF */, 0x00000021 /* 1 BNNULL */, SG_WORD(5), 0x00000003 /* 3 CONST */, SG_WORD(SG_FALSE) /* #f */, 0x00000018 /* 5 JUMP */, SG_WORD(2), 0x00000255 /* 7 LREF_CAR */, 0x0000000b /* 8 PUSH */, 0x00000205 /* 9 LREF */, 0x00000021 /* 10 BNNULL */, SG_WORD(5), 0x00000003 /* 12 CONST */, SG_WORD(SG_NIL) /* () */, 0x00000018 /* 14 JUMP */, SG_WORD(2), 0x00000256 /* 16 LREF_CDR */, 0x0000000b /* 17 PUSH */, 0x00000405 /* 18 LREF */, 0x00000021 /* 19 BNNULL */, SG_WORD(4), 0x00000002 /* 21 UNDEF */, 0x00000018 /* 22 JUMP */, SG_WORD(11), 0x00000030 /* 24 FRAME */, SG_WORD(9), 0x00000048 /* 26 CONST_PUSH */, SG_WORD(SG_UNDEF) /* lambda */, 0x00000048 /* 28 CONST_PUSH */, SG_WORD(SG_UNDEF) /* too many argument for */, 0x00000048 /* 30 CONST_PUSH */, 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)))))))) */, 0x0000034a /* 32 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 34 FRAME */, SG_WORD(4), 0x00000045 /* 36 LREF_PUSH */, 0x0000014a /* 37 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000017 /* 39 TEST */, SG_WORD(4), 0x00000002 /* 41 UNDEF */, 0x00000018 /* 42 JUMP */, SG_WORD(35), 0x00000030 /* 44 FRAME */, SG_WORD(33), 0x00000146 /* 46 FREF_PUSH */, 0x00000104 /* 47 CONSTI */, 0x00000138 /* 48 LIST */, 0x0000000b /* 49 PUSH */, 0x00000c05 /* 50 LREF */, 0x00000021 /* 51 BNNULL */, SG_WORD(12), 0x00000030 /* 53 FRAME */, SG_WORD(8), 0x00000048 /* 55 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */, 0x00000048 /* 57 CONST_PUSH */, SG_WORD(SG_UNDEF) /* procedure */, 0x00000045 /* 59 LREF_PUSH */, 0x0000034a /* 60 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000018 /* 62 JUMP */, SG_WORD(11), 0x00000030 /* 64 FRAME */, SG_WORD(9), 0x00000048 /* 66 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */, 0x00000048 /* 68 CONST_PUSH */, SG_WORD(SG_UNDEF) /* procedure */, 0x00000045 /* 70 LREF_PUSH */, 0x00000c5b /* 71 LREF_CAR_PUSH */, 0x0000044a /* 72 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000132 /* 74 LEAVE */, 0x0000000b /* 75 PUSH */, 0x0000024a /* 76 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 78 FRAME */, SG_WORD(4), 0x00000145 /* 80 LREF_PUSH */, 0x0000014a /* 81 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000017 /* 83 TEST */, SG_WORD(4), 0x00000002 /* 85 UNDEF */, 0x00000018 /* 86 JUMP */, SG_WORD(35), 0x00000030 /* 88 FRAME */, SG_WORD(33), 0x00000146 /* 90 FREF_PUSH */, 0x00000204 /* 91 CONSTI */, 0x00000138 /* 92 LIST */, 0x0000000b /* 93 PUSH */, 0x00000c05 /* 94 LREF */, 0x00000021 /* 95 BNNULL */, SG_WORD(12), 0x00000030 /* 97 FRAME */, SG_WORD(8), 0x00000048 /* 99 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a */, 0x00000048 /* 101 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap */, 0x00000145 /* 103 LREF_PUSH */, 0x0000034a /* 104 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000018 /* 106 JUMP */, SG_WORD(11), 0x00000030 /* 108 FRAME */, SG_WORD(9), 0x00000048 /* 110 CONST_PUSH */, SG_WORD(SG_UNDEF) /* expected ~a, but got ~a, as argument ~a */, 0x00000048 /* 112 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap */, 0x00000145 /* 114 LREF_PUSH */, 0x00000c5b /* 115 LREF_CAR_PUSH */, 0x0000044a /* 116 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000132 /* 118 LEAVE */, 0x0000000b /* 119 PUSH */, 0x0000024a /* 120 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 122 FRAME */, SG_WORD(4), 0x00000145 /* 124 LREF_PUSH */, 0x00000007 /* 125 FREF */, 0x0000012b /* 126 CALL */, 0x0000000b /* 127 PUSH */, 0x00000048 /* 128 CONST_PUSH */, SG_WORD(SG_TRUE) /* #t */, 0x00000003 /* 130 CONST */, SG_WORD(SG_TRUE) /* #t */, 0x00000054 /* 132 CONS_PUSH */, 0x00000049 /* 133 CONSTI_PUSH */, 0x00000030 /* 134 FRAME */, SG_WORD(4), 0x00000645 /* 136 LREF_PUSH */, 0x00000505 /* 137 LREF */, 0x0000012b /* 138 CALL */, 0x00000228 /* 139 RECEIVE */, 0x00000845 /* 140 LREF_PUSH */, 0x00000605 /* 141 LREF */, 0x0000001f /* 142 BNEQ */, SG_WORD(3), 0x00000305 /* 144 LREF */, 0x0000002f /* 145 RET */, 0x00000030 /* 146 FRAME */, SG_WORD(5), 0x00000745 /* 148 LREF_PUSH */, 0x00000845 /* 149 LREF_PUSH */, 0x00000005 /* 150 LREF */, 0x0000022b /* 151 CALL */, 0x00000017 /* 152 TEST */, SG_WORD(3), 0x00000905 /* 154 LREF */, 0x0000002f /* 155 RET */, 0x00000705 /* 156 LREF */, 0x0000010f /* 157 ADDI */, 0x0000000b /* 158 PUSH */, 0x00700119 /* 159 SHIFTJ */, 0x00000018 /* 160 JUMP */, SG_WORD(-27), 0x0000002f /* 162 RET */, /* %treemap-find/index */0x00000045 /* 0 LREF_PUSH */, 0x00000145 /* 1 LREF_PUSH */, 0x00000029 /* 2 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[14])) /* # */, 0x0000002f /* 4 RET */, /* #f */0x00000145 /* 0 LREF_PUSH */, 0x00000007 /* 1 FREF */, 0x0000012d /* 2 TAIL_CALL */, 0x0000002f /* 3 RET */, /* treemap-find */0x00000205 /* 0 LREF */, 0x00000021 /* 1 BNNULL */, SG_WORD(5), 0x00000003 /* 3 CONST */, SG_WORD(SG_FALSE) /* #f */, 0x00000018 /* 5 JUMP */, SG_WORD(2), 0x00000255 /* 7 LREF_CAR */, 0x0000000b /* 8 PUSH */, 0x00000205 /* 9 LREF */, 0x00000021 /* 10 BNNULL */, SG_WORD(5), 0x00000003 /* 12 CONST */, SG_WORD(SG_NIL) /* () */, 0x00000018 /* 14 JUMP */, SG_WORD(2), 0x00000256 /* 16 LREF_CDR */, 0x0000000b /* 17 PUSH */, 0x00000405 /* 18 LREF */, 0x00000021 /* 19 BNNULL */, SG_WORD(4), 0x00000002 /* 21 UNDEF */, 0x00000018 /* 22 JUMP */, SG_WORD(11), 0x00000030 /* 24 FRAME */, SG_WORD(9), 0x00000048 /* 26 CONST_PUSH */, SG_WORD(SG_UNDEF) /* lambda */, 0x00000048 /* 28 CONST_PUSH */, SG_WORD(SG_UNDEF) /* too many argument for */, 0x00000048 /* 30 CONST_PUSH */, SG_WORD(SG_UNDEF) /* ((treemap-find/index (lambda (i k) (pred k)) tm fallback)) */, 0x0000034a /* 32 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000045 /* 34 LREF_PUSH */, 0x00000029 /* 35 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[16])) /* # */, 0x0000000b /* 37 PUSH */, 0x00000145 /* 38 LREF_PUSH */, 0x00000345 /* 39 LREF_PUSH */, 0x0000034b /* 40 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 42 RET */, /* #f */0x00000145 /* 0 LREF_PUSH */, 0x00000007 /* 1 FREF */, 0x0000012d /* 2 TAIL_CALL */, 0x0000002f /* 3 RET */, /* treemap-reverse-find */0x00000205 /* 0 LREF */, 0x00000021 /* 1 BNNULL */, SG_WORD(5), 0x00000003 /* 3 CONST */, SG_WORD(SG_FALSE) /* #f */, 0x00000018 /* 5 JUMP */, SG_WORD(2), 0x00000255 /* 7 LREF_CAR */, 0x0000000b /* 8 PUSH */, 0x00000205 /* 9 LREF */, 0x00000021 /* 10 BNNULL */, SG_WORD(5), 0x00000003 /* 12 CONST */, SG_WORD(SG_NIL) /* () */, 0x00000018 /* 14 JUMP */, SG_WORD(2), 0x00000256 /* 16 LREF_CDR */, 0x0000000b /* 17 PUSH */, 0x00000405 /* 18 LREF */, 0x00000021 /* 19 BNNULL */, SG_WORD(4), 0x00000002 /* 21 UNDEF */, 0x00000018 /* 22 JUMP */, SG_WORD(11), 0x00000030 /* 24 FRAME */, SG_WORD(9), 0x00000048 /* 26 CONST_PUSH */, SG_WORD(SG_UNDEF) /* lambda */, 0x00000048 /* 28 CONST_PUSH */, SG_WORD(SG_UNDEF) /* too many argument for */, 0x00000048 /* 30 CONST_PUSH */, SG_WORD(SG_UNDEF) /* ((treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback)) */, 0x0000034a /* 32 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000045 /* 34 LREF_PUSH */, 0x00000029 /* 35 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[18])) /* # */, 0x0000000b /* 37 PUSH */, 0x00000145 /* 38 LREF_PUSH */, 0x00000345 /* 39 LREF_PUSH */, 0x0000034b /* 40 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 42 RET */, /* #f */0x00000030 /* 0 FRAME */, SG_WORD(5), 0x00000045 /* 2 LREF_PUSH */, 0x00000145 /* 3 LREF_PUSH */, 0x00000007 /* 4 FREF */, 0x0000022b /* 5 CALL */, 0x0000000b /* 6 PUSH */, 0x00000205 /* 7 LREF */, 0x00000037 /* 8 CONS */, 0x0000002f /* 9 RET */, /* treemap->alist */0x00000047 /* 0 GREF_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 2 FRAME */, SG_WORD(10), 0x00000145 /* 4 LREF_PUSH */, 0x00000029 /* 5 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[20])) /* # */, 0x0000000b /* 7 PUSH */, 0x00000045 /* 8 LREF_PUSH */, 0x00000048 /* 9 CONST_PUSH */, SG_WORD(SG_NIL) /* () */, 0x0000034a /* 11 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000000b /* 13 PUSH */, 0x0000014b /* 14 GREF_TAIL_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000002f /* 16 RET */, /* alist->treemap */0x00000030 /* 0 FRAME */, SG_WORD(4), 0x00000145 /* 2 LREF_PUSH */, 0x0000014a /* 3 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x0000000b /* 5 PUSH */, 0x00000045 /* 6 LREF_PUSH */, 0x00000305 /* 7 LREF */, 0x00000021 /* 8 BNNULL */, SG_WORD(3), 0x00000205 /* 10 LREF */, 0x0000002f /* 11 RET */, 0x0000035b /* 12 LREF_CAR_PUSH */, 0x00000030 /* 13 FRAME */, SG_WORD(6), 0x00000245 /* 15 LREF_PUSH */, 0x0000045b /* 16 LREF_CAR_PUSH */, 0x0000045c /* 17 LREF_CDR_PUSH */, 0x0000034a /* 18 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000132 /* 20 LEAVE */, 0x0000035c /* 21 LREF_CDR_PUSH */, 0x00300119 /* 22 SHIFTJ */, 0x00000018 /* 23 JUMP */, SG_WORD(-17), 0x0000002f /* 25 RET */, /* #f */0x00000034 /* 0 LIBRARY */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 2 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[0])) /* # */, 0x00000033 /* 4 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 6 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[1])) /* # */, 0x00000033 /* 8 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 10 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[2])) /* # */, 0x00000033 /* 12 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 14 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[3])) /* # */, 0x00000033 /* 16 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 18 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[5])) /* # */, 0x00000033 /* 20 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 22 FRAME */, SG_WORD(7), 0x00000048 /* 24 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap-fold */, 0x00000047 /* 26 GREF_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x0000024a /* 28 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000033 /* 30 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 32 FRAME */, SG_WORD(7), 0x00000048 /* 34 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap-fold-reverse */, 0x00000047 /* 36 GREF_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x0000024a /* 38 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000033 /* 40 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 42 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[7])) /* # */, 0x00000033 /* 44 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 46 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[9])) /* # */, 0x00000033 /* 48 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 50 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[11])) /* # */, 0x00000033 /* 52 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 54 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[13])) /* # */, 0x00000033 /* 56 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 58 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[15])) /* # */, 0x00000033 /* 60 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 62 FRAME */, SG_WORD(7), 0x00000048 /* 64 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap-find/index */, 0x00000047 /* 66 GREF_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x0000024a /* 68 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000033 /* 70 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000030 /* 72 FRAME */, SG_WORD(7), 0x00000048 /* 74 CONST_PUSH */, SG_WORD(SG_UNDEF) /* treemap-reverse-find/index */, 0x00000047 /* 76 GREF_PUSH */, SG_WORD(SG_UNDEF) /* # */, 0x0000024a /* 78 GREF_CALL */, SG_WORD(SG_UNDEF) /* # */, 0x00000033 /* 80 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 82 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[17])) /* # */, 0x00000033 /* 84 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 86 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[19])) /* # */, 0x00000033 /* 88 DEFINE */, SG_WORD(SG_UNDEF) /* # */, 0x00000029 /* 90 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[21])) /* #alist (1 0 0)> */, 0x00000033 /* 92 DEFINE */, SG_WORD(SG_UNDEF) /* #alist#(sagittarius treemap)> */, 0x00000029 /* 94 CLOSURE */, SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[22])) /* #treemap (2 0 0)> */, 0x00000033 /* 96 DEFINE */, SG_WORD(SG_UNDEF) /* #treemap#(sagittarius treemap)> */, 0x00000002 /* 98 UNDEF */, 0x0000002f /* 99 RET */, }, { /* SgCodeBuilder d13567 */ SG_STATIC_CODE_BUILDER( /* treemap-entries */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[0]), SG_FALSE, 1, 0, 0, 12, 19), SG_STATIC_CODE_BUILDER( /* treemap-keys */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[19]), SG_FALSE, 1, 0, 0, 9, 9), SG_STATIC_CODE_BUILDER( /* treemap-values */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[28]), SG_FALSE, 1, 0, 0, 9, 9), SG_STATIC_CODE_BUILDER( /* wrong-type-argument-message */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[37]), SG_FALSE, 2, 1, 0, 17, 18), SG_STATIC_CODE_BUILDER( /* %treemap-fold */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[55]), SG_FALSE, 3, 0, 2, 23, 124), SG_STATIC_CODE_BUILDER( /* %treemap-fold */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[179]), SG_FALSE, 2, 0, 0, 8, 5), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[184]), SG_FALSE, 3, 0, 1, 11, 8), SG_STATIC_CODE_BUILDER( /* treemap-for-each */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[192]), SG_FALSE, 2, 0, 0, 11, 10), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[202]), SG_FALSE, 3, 0, 1, 11, 10), SG_STATIC_CODE_BUILDER( /* treemap-map */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[212]), SG_FALSE, 2, 0, 0, 12, 15), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[227]), SG_FALSE, 3, 0, 1, 11, 8), SG_STATIC_CODE_BUILDER( /* treemap-for-each-reverse */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[235]), SG_FALSE, 2, 0, 0, 11, 10), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[245]), SG_FALSE, 3, 0, 1, 11, 10), SG_STATIC_CODE_BUILDER( /* treemap-map-reverse */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[255]), SG_FALSE, 2, 0, 0, 12, 15), SG_STATIC_CODE_BUILDER( /* %treemap-find/index */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[270]), SG_FALSE, 2, 1, 2, 27, 163), SG_STATIC_CODE_BUILDER( /* %treemap-find/index */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[433]), SG_FALSE, 2, 0, 0, 8, 5), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[438]), SG_FALSE, 2, 0, 1, 9, 4), SG_STATIC_CODE_BUILDER( /* treemap-find */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[442]), SG_FALSE, 2, 1, 0, 18, 43), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[485]), SG_FALSE, 2, 0, 1, 9, 4), SG_STATIC_CODE_BUILDER( /* treemap-reverse-find */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[489]), SG_FALSE, 2, 1, 0, 18, 43), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[532]), SG_FALSE, 3, 0, 1, 11, 10), SG_STATIC_CODE_BUILDER( /* treemap->alist */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[542]), SG_FALSE, 1, 0, 0, 13, 17), SG_STATIC_CODE_BUILDER( /* alist->treemap */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[559]), SG_FALSE, 2, 0, 0, 18, 26), SG_STATIC_CODE_BUILDER( /* #f */ (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[585]), SG_FALSE, 0, 0, 0, 0, 100), }, }; static SgObject sagittarius_treemap_make_rb_treemap(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject cmp_scm; SgProcedure* cmp; SG_ENTER_SUBR("make-rb-treemap"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("make-rb-treemap"), 1, SG_ARGC, SG_NIL); cmp_scm = SG_ARGREF(0); if (!SG_PROCEDUREP(cmp_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[0], SG_MAKE_STRING("procedure"), cmp_scm, SG_NIL); cmp = SG_PROCEDURE(cmp_scm); { { SgObject SG_RESULT = (SgObject)NULL; SG_RESULT=(Sg_MakeSchemeRBTreeMap(cmp)); SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_make_rb_treemap__STUB, 1, 0,sagittarius_treemap_make_rb_treemap, SG_FALSE, NULL); static SgObject sagittarius_treemap_make_rb_treemap_2fcomparator(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject c_scm; SgComparator * c; SG_ENTER_SUBR("make-rb-treemap/comparator"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("make-rb-treemap/comparator"), 1, SG_ARGC, SG_NIL); c_scm = SG_ARGREF(0); if (!SG_COMPARATORP(c_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[1], SG_MAKE_STRING("comparator"), c_scm, SG_NIL); c = SG_COMPARATOR(c_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 38 "./lib_treemap.stub" {SgObject p=(c)->compFn; if ((!((SG_PROCEDUREP(p))&&( (SG_PROCEDURE_REQUIRED(p))>=(2))))){{ Sg_AssertionViolation(sg__rc_cgen13336.d13337[2], SG_MAKE_STRING("given comparator doesn't support compare"),c);}} #line 44 "./lib_treemap.stub" SG_RESULT=(Sg_MakeSchemeRBTreeMap(p));} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_make_rb_treemap_2fcomparator__STUB, 1, 0,sagittarius_treemap_make_rb_treemap_2fcomparator, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemapP(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject o_scm; SgObject o; SG_ENTER_SUBR("treemap?"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap?"), 1, SG_ARGC, SG_NIL); o_scm = SG_ARGREF(0); o = (o_scm); { { int SG_RESULT = (int)FALSE; SG_RESULT=(SG_TREEMAP_P(o)); SG_RETURN(SG_MAKE_BOOL(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemapP__STUB, 1, 0,sagittarius_treemap_treemapP, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_ref(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SgObject fallback_scm; SgObject fallback; SG_ENTER_SUBR("treemap-ref"); if ((SG_ARGC > 3 && !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || SG_ARGC < 2) Sg_WrongNumberOfArgumentsBetweenViolation( SG_INTERN("treemap-ref"), 2, 3, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[4], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); if (SG_ARGC > 2+1) { fallback_scm = SG_ARGREF(2); } else { fallback_scm = SG_FALSE; } fallback = (fallback_scm); { { SgObject SG_RESULT = (SgObject)NULL; SG_RESULT=(Sg_TreeMapRef(tm,key,fallback)); SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_ref__STUB, 2, 2,sagittarius_treemap_treemap_ref, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_setX(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SgObject value_scm; SgObject value; SG_ENTER_SUBR("treemap-set!"); if (SG_ARGC != 3) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-set!"), 3, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[5], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); value_scm = SG_ARGREF(2); value = (value_scm); { #line 51 "./lib_treemap.stub" Sg_TreeMapSet(tm,key,value,0); SG_RETURN(SG_UNDEF); } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_setX__STUB, 3, 0,sagittarius_treemap_treemap_setX, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_deleteX(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SG_ENTER_SUBR("treemap-delete!"); if (SG_ARGC != 2) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-delete!"), 2, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[6], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); { Sg_TreeMapDelete(tm,key); SG_RETURN(SG_UNDEF); } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_deleteX__STUB, 2, 0,sagittarius_treemap_treemap_deleteX, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_clearX(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-clear!"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-clear!"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[7], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { Sg_TreeMapClear(tm); SG_RETURN(SG_UNDEF); } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_clearX__STUB, 1, 0,sagittarius_treemap_treemap_clearX, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_copy(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-copy"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-copy"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[8], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; SG_RESULT=(Sg_TreeMapCopy(tm)); SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_copy__STUB, 1, 0,sagittarius_treemap_treemap_copy, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_containsP(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SG_ENTER_SUBR("treemap-contains?"); if (SG_ARGC != 2) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-contains?"), 2, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[9], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); { { int SG_RESULT = (int)FALSE; #line 61 "./lib_treemap.stub" {SgObject mark=((SG_SCHEME_TREEMAP_P(tm))?(SG_UNBOUND):(NULL));SgObject r= Sg_TreeMapRef(tm,key,mark); SG_RESULT=((!((r)==(mark))));} SG_RETURN(SG_MAKE_BOOL(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_containsP__STUB, 2, 0,sagittarius_treemap_treemap_containsP, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_keys_list(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-keys-list"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-keys-list"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[10], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; SG_RESULT=(Sg_TreeMapKeys(tm)); SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_keys_list__STUB, 1, 0,sagittarius_treemap_treemap_keys_list, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_values_list(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-values-list"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-values-list"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[11], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; SG_RESULT=(Sg_TreeMapValues(tm)); SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_values_list__STUB, 1, 0,sagittarius_treemap_treemap_values_list, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_entries_list(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-entries-list"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-entries-list"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[12], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; SG_RESULT=(Sg_TreeMapEntries(tm)); SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_entries_list__STUB, 1, 0,sagittarius_treemap_treemap_entries_list, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_size(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-size"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-size"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[13], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { long SG_RESULT = (long)0; #line 80 "./lib_treemap.stub" SG_RESULT=((tm)->entryCount); SG_RETURN(SG_MAKE_INT(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_size__STUB, 1, 0,sagittarius_treemap_treemap_size, SG_FALSE, NULL); static SgObject treemap_update_cc(SgObject result,void** data){{ #line 83 "./lib_treemap.stub" {SgDictEntry* e=((SgDictEntry* )((data)[0])); ((void )(SG_DICT_ENTRY_SET_VALUE(e,result))); return (result);}}} static SgObject sagittarius_treemap_treemap_updateX(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SgObject proc_scm; SgProcedure* proc; SgObject default__scm; SgObject default_; SG_ENTER_SUBR("treemap-update!"); if (SG_ARGC != 4) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-update!"), 4, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[14], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); proc_scm = SG_ARGREF(2); if (!SG_PROCEDUREP(proc_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[14], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL); proc = SG_PROCEDURE(proc_scm); default__scm = SG_ARGREF(3); default_ = (default__scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 108 "./lib_treemap.stub" {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)));} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_updateX__STUB, 4, 0,sagittarius_treemap_treemap_updateX, SG_FALSE, NULL); static SgObject treemap_itr(SgObject* args,int argc,void* data){{ #line 112 "./lib_treemap.stub" {SgTreeIter* itr=((SgTreeIter* )(data));SgTreeEntry* e= Sg_TreeIterNext(itr);SgObject eofval= (args)[0]; if ((e)==(NULL)){ return (Sg_Values2(eofval,eofval));} else { return (Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}}}} static SgObject sagittarius_treemap_treemap_iterator(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-iterator"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-iterator"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[15], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 119 "./lib_treemap.stub" {SgTreeIter* itr=SG_NEW(SgTreeIter); Sg_TreeIterInit(itr,tm,NULL); SG_RESULT=(Sg_MakeSubr(treemap_itr,itr,1,0, SG_MAKE_STRING("treemap-iterator")));} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_iterator__STUB, 1, 0,sagittarius_treemap_treemap_iterator, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_reverse_iterator(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-reverse-iterator"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-reverse-iterator"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[16], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 125 "./lib_treemap.stub" {SgTreeIter* itr=SG_NEW(SgTreeIter); Sg_TreeReverseIterInit(itr,tm,NULL); SG_RESULT=(Sg_MakeSubr(treemap_itr,itr,1,0, SG_MAKE_STRING("treemap-iterator")));} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_reverse_iterator__STUB, 1, 0,sagittarius_treemap_treemap_reverse_iterator, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_higher_entry(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SgObject failure_scm; SgProcedure* failure; SG_ENTER_SUBR("treemap-higher-entry"); if (SG_ARGC != 3) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-higher-entry"), 3, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[17], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); failure_scm = SG_ARGREF(2); if (!SG_PROCEDUREP(failure_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[17], SG_MAKE_STRING("procedure"), failure_scm, SG_NIL); failure = SG_PROCEDURE(failure_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 215 "./lib_treemap.stub" {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( Sg_VMApply0(failure)));} else {SG_RESULT=(Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_higher_entry__STUB, 3, 0,sagittarius_treemap_treemap_higher_entry, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_lower_entry(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SgObject key_scm; SgObject key; SgObject failure_scm; SgProcedure* failure; SG_ENTER_SUBR("treemap-lower-entry"); if (SG_ARGC != 3) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-lower-entry"), 3, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[19], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); key_scm = SG_ARGREF(1); key = (key_scm); failure_scm = SG_ARGREF(2); if (!SG_PROCEDUREP(failure_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[19], SG_MAKE_STRING("procedure"), failure_scm, SG_NIL); failure = SG_PROCEDURE(failure_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 218 "./lib_treemap.stub" {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( Sg_VMApply0(failure)));} else {SG_RESULT=(Sg_Values2(SG_DICT_ENTRY_KEY(e),SG_DICT_ENTRY_VALUE(e)));}} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_lower_entry__STUB, 3, 0,sagittarius_treemap_treemap_lower_entry, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_first_entry(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-first-entry"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-first-entry"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[21], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 221 "./lib_treemap.stub" {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)));}} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_first_entry__STUB, 1, 0,sagittarius_treemap_treemap_first_entry, SG_FALSE, NULL); static SgObject sagittarius_treemap_treemap_last_entry(SgObject *SG_FP, int SG_ARGC, void *data_) { SgObject tm_scm; SgTreeMap* tm; SG_ENTER_SUBR("treemap-last-entry"); if (SG_ARGC != 1) Sg_WrongNumberOfArgumentsViolation( SG_INTERN("treemap-last-entry"), 1, SG_ARGC, SG_NIL); tm_scm = SG_ARGREF(0); if (!SG_TREEMAP_P(tm_scm)) Sg_WrongTypeOfArgumentViolation( sg__rc_cgen13336.d13337[23], SG_MAKE_STRING("tree-map"), tm_scm, SG_NIL); tm = SG_TREEMAP(tm_scm); { { SgObject SG_RESULT = (SgObject)NULL; #line 223 "./lib_treemap.stub" {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)));}} SG_RETURN(SG_OBJ_SAFE(SG_RESULT)); } } } static SG_DEFINE_SUBR(sagittarius_treemap_treemap_last_entry__STUB, 1, 0,sagittarius_treemap_treemap_last_entry, SG_FALSE, NULL); static SgCodeBuilder *toplevel = SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[23])); void Sg__Init_sagittarius_treemap () { SgLibrary *lib = SG_LIBRARY(Sg_FindLibrary(SG_INTERN("(sagittarius treemap)"), TRUE)); SgObject save = Sg_VM()->currentLibrary; SgObject t = SG_NIL, h = SG_NIL; sg__rc_cgen13336.d13337[0] = SG_MAKE_STRING("make-rb-treemap"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[0]), &sagittarius_treemap_make_rb_treemap__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_make_rb_treemap__STUB) = sg__rc_cgen13336.d13337[0]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_make_rb_treemap__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[1] = SG_MAKE_STRING("make-rb-treemap/comparator"); sg__rc_cgen13336.d13337[2] = Sg_Intern(sg__rc_cgen13336.d13337[1]); /* make-rb-treemap/comparator */ Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[1]), &sagittarius_treemap_make_rb_treemap_2fcomparator__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_make_rb_treemap_2fcomparator__STUB) = sg__rc_cgen13336.d13337[1]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_make_rb_treemap_2fcomparator__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[3] = SG_MAKE_STRING("treemap?"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[3]), &sagittarius_treemap_treemapP__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemapP__STUB) = sg__rc_cgen13336.d13337[3]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemapP__STUB) = SG_PROC_TRANSPARENT; sg__rc_cgen13336.d13337[4] = SG_MAKE_STRING("treemap-ref"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[4]), &sagittarius_treemap_treemap_ref__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_ref__STUB) = sg__rc_cgen13336.d13337[4]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_ref__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[5] = SG_MAKE_STRING("treemap-set!"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[5]), &sagittarius_treemap_treemap_setX__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_setX__STUB) = sg__rc_cgen13336.d13337[5]; sg__rc_cgen13336.d13337[6] = SG_MAKE_STRING("treemap-delete!"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[6]), &sagittarius_treemap_treemap_deleteX__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_deleteX__STUB) = sg__rc_cgen13336.d13337[6]; sg__rc_cgen13336.d13337[7] = SG_MAKE_STRING("treemap-clear!"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[7]), &sagittarius_treemap_treemap_clearX__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_clearX__STUB) = sg__rc_cgen13336.d13337[7]; sg__rc_cgen13336.d13337[8] = SG_MAKE_STRING("treemap-copy"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[8]), &sagittarius_treemap_treemap_copy__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_copy__STUB) = sg__rc_cgen13336.d13337[8]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_copy__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[9] = SG_MAKE_STRING("treemap-contains?"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[9]), &sagittarius_treemap_treemap_containsP__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_containsP__STUB) = sg__rc_cgen13336.d13337[9]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_containsP__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[10] = SG_MAKE_STRING("treemap-keys-list"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[10]), &sagittarius_treemap_treemap_keys_list__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_keys_list__STUB) = sg__rc_cgen13336.d13337[10]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_keys_list__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[11] = SG_MAKE_STRING("treemap-values-list"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[11]), &sagittarius_treemap_treemap_values_list__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_values_list__STUB) = sg__rc_cgen13336.d13337[11]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_values_list__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[12] = SG_MAKE_STRING("treemap-entries-list"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[12]), &sagittarius_treemap_treemap_entries_list__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_entries_list__STUB) = sg__rc_cgen13336.d13337[12]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_entries_list__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[13] = SG_MAKE_STRING("treemap-size"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[13]), &sagittarius_treemap_treemap_size__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_size__STUB) = sg__rc_cgen13336.d13337[13]; SG_PROCEDURE_TRANSPARENT(&sagittarius_treemap_treemap_size__STUB) = SG_PROC_NO_SIDE_EFFECT; sg__rc_cgen13336.d13337[14] = SG_MAKE_STRING("treemap-update!"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[14]), &sagittarius_treemap_treemap_updateX__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_updateX__STUB) = sg__rc_cgen13336.d13337[14]; sg__rc_cgen13336.d13337[15] = SG_MAKE_STRING("treemap-iterator"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[15]), &sagittarius_treemap_treemap_iterator__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_iterator__STUB) = sg__rc_cgen13336.d13337[15]; sg__rc_cgen13336.d13337[16] = SG_MAKE_STRING("treemap-reverse-iterator"); Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[16]), &sagittarius_treemap_treemap_reverse_iterator__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_reverse_iterator__STUB) = sg__rc_cgen13336.d13337[16]; sg__rc_cgen13336.d13337[17] = SG_MAKE_STRING("treemap-higher-entry"); sg__rc_cgen13336.d13337[18] = Sg_Intern(sg__rc_cgen13336.d13337[17]); /* treemap-higher-entry */ Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[17]), &sagittarius_treemap_treemap_higher_entry__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_higher_entry__STUB) = sg__rc_cgen13336.d13337[17]; sg__rc_cgen13336.d13337[19] = SG_MAKE_STRING("treemap-lower-entry"); sg__rc_cgen13336.d13337[20] = Sg_Intern(sg__rc_cgen13336.d13337[19]); /* treemap-lower-entry */ Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[19]), &sagittarius_treemap_treemap_lower_entry__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_lower_entry__STUB) = sg__rc_cgen13336.d13337[19]; sg__rc_cgen13336.d13337[21] = SG_MAKE_STRING("treemap-first-entry"); sg__rc_cgen13336.d13337[22] = Sg_Intern(sg__rc_cgen13336.d13337[21]); /* treemap-first-entry */ Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[21]), &sagittarius_treemap_treemap_first_entry__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_first_entry__STUB) = sg__rc_cgen13336.d13337[21]; sg__rc_cgen13336.d13337[23] = SG_MAKE_STRING("treemap-last-entry"); sg__rc_cgen13336.d13337[24] = Sg_Intern(sg__rc_cgen13336.d13337[23]); /* treemap-last-entry */ Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen13336.d13337[23]), &sagittarius_treemap_treemap_last_entry__STUB); SG_PROCEDURE_NAME(&sagittarius_treemap_treemap_last_entry__STUB) = sg__rc_cgen13336.d13337[23]; sg__rc_cgen13336.d13337[27] = SG_MAKE_STRING("(sagittarius treemap)"); sg__rc_cgen13336.d13337[26] = Sg_Intern(sg__rc_cgen13336.d13337[27]); /* (sagittarius treemap) */ sg__rc_cgen13336.d13337[25] = Sg_FindLibrary(SG_SYMBOL(sg__rc_cgen13336.d13337[26]), TRUE); sg__rc_cgen13336.d13337[28] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[29] = Sg_Intern(sg__rc_cgen13336.d13337[12]); /* treemap-entries-list */ 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 */ sg__rc_cgen13336.d13337[30] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[32] = SG_MAKE_STRING("list->vector"); sg__rc_cgen13336.d13337[31] = Sg_Intern(sg__rc_cgen13336.d13337[32]); /* list->vector */ 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 */ sg__rc_cgen13336.d13337[33] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[35] = SG_MAKE_STRING("treemap-entries"); sg__rc_cgen13336.d13337[34] = Sg_Intern(sg__rc_cgen13336.d13337[35]); /* treemap-entries */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[0]))->name = sg__rc_cgen13336.d13337[34];/* treemap-entries */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[0]))[4] = SG_WORD(sg__rc_cgen13336.d13337[28]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[0]))[10] = SG_WORD(sg__rc_cgen13336.d13337[30]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[0]))[16] = SG_WORD(sg__rc_cgen13336.d13337[33]); sg__rc_cgen13336.d13337[36] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[37] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[38] = Sg_Intern(sg__rc_cgen13336.d13337[10]); /* treemap-keys-list */ 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 */ sg__rc_cgen13336.d13337[39] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[41] = SG_MAKE_STRING("treemap-keys"); sg__rc_cgen13336.d13337[40] = Sg_Intern(sg__rc_cgen13336.d13337[41]); /* treemap-keys */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[1]))->name = sg__rc_cgen13336.d13337[40];/* treemap-keys */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[19]))[4] = SG_WORD(sg__rc_cgen13336.d13337[37]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[19]))[7] = SG_WORD(sg__rc_cgen13336.d13337[39]); sg__rc_cgen13336.d13337[42] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[43] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[44] = Sg_Intern(sg__rc_cgen13336.d13337[11]); /* treemap-values-list */ 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 */ sg__rc_cgen13336.d13337[45] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[47] = SG_MAKE_STRING("treemap-values"); sg__rc_cgen13336.d13337[46] = Sg_Intern(sg__rc_cgen13336.d13337[47]); /* treemap-values */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[2]))->name = sg__rc_cgen13336.d13337[46];/* treemap-values */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[28]))[4] = SG_WORD(sg__rc_cgen13336.d13337[43]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[28]))[7] = SG_WORD(sg__rc_cgen13336.d13337[45]); sg__rc_cgen13336.d13337[48] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[49] = SG_MAKE_STRING("expected ~a, but got ~a"); sg__rc_cgen13336.d13337[50] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[52] = SG_MAKE_STRING("format"); sg__rc_cgen13336.d13337[51] = Sg_Intern(sg__rc_cgen13336.d13337[52]); /* format */ 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 */ sg__rc_cgen13336.d13337[53] = SG_MAKE_STRING("expected ~a, but got ~a, as argument ~a"); sg__rc_cgen13336.d13337[54] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[56] = SG_MAKE_STRING("wrong-type-argument-message"); sg__rc_cgen13336.d13337[55] = Sg_Intern(sg__rc_cgen13336.d13337[56]); /* wrong-type-argument-message */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[3]))->name = sg__rc_cgen13336.d13337[55];/* wrong-type-argument-message */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[4] = SG_WORD(sg__rc_cgen13336.d13337[49]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[8] = SG_WORD(sg__rc_cgen13336.d13337[50]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[11] = SG_WORD(sg__rc_cgen13336.d13337[53]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[37]))[16] = SG_WORD(sg__rc_cgen13336.d13337[54]); sg__rc_cgen13336.d13337[57] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[58] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[60] = SG_MAKE_STRING("procedure?"); sg__rc_cgen13336.d13337[59] = Sg_Intern(sg__rc_cgen13336.d13337[60]); /* procedure? */ 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? */ sg__rc_cgen13336.d13337[61] = SG_MAKE_STRING("procedure"); sg__rc_cgen13336.d13337[62] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[64] = SG_MAKE_STRING("assertion-violation"); sg__rc_cgen13336.d13337[63] = Sg_Intern(sg__rc_cgen13336.d13337[64]); /* assertion-violation */ 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 */ sg__rc_cgen13336.d13337[65] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[66] = Sg_Intern(sg__rc_cgen13336.d13337[3]); /* treemap? */ 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? */ sg__rc_cgen13336.d13337[67] = SG_MAKE_STRING("treemap"); sg__rc_cgen13336.d13337[68] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[70] = SG_MAKE_STRING("%treemap-fold"); sg__rc_cgen13336.d13337[69] = Sg_Intern(sg__rc_cgen13336.d13337[70]); /* %treemap-fold */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[4]))->name = sg__rc_cgen13336.d13337[69];/* %treemap-fold */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[4] = SG_WORD(sg__rc_cgen13336.d13337[58]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[22] = SG_WORD(sg__rc_cgen13336.d13337[49]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[24] = SG_WORD(sg__rc_cgen13336.d13337[61]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[27] = SG_WORD(sg__rc_cgen13336.d13337[50]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[33] = SG_WORD(sg__rc_cgen13336.d13337[53]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[35] = SG_WORD(sg__rc_cgen13336.d13337[61]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[39] = SG_WORD(sg__rc_cgen13336.d13337[54]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[43] = SG_WORD(sg__rc_cgen13336.d13337[62]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[48] = SG_WORD(sg__rc_cgen13336.d13337[65]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[66] = SG_WORD(sg__rc_cgen13336.d13337[49]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[68] = SG_WORD(sg__rc_cgen13336.d13337[67]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[71] = SG_WORD(sg__rc_cgen13336.d13337[50]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[77] = SG_WORD(sg__rc_cgen13336.d13337[53]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[79] = SG_WORD(sg__rc_cgen13336.d13337[67]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[83] = SG_WORD(sg__rc_cgen13336.d13337[54]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[55]))[87] = SG_WORD(sg__rc_cgen13336.d13337[68]); SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[5]))->name = sg__rc_cgen13336.d13337[69];/* %treemap-fold */ sg__rc_cgen13336.d13337[71] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[73] = SG_MAKE_STRING("treemap-fold"); sg__rc_cgen13336.d13337[72] = Sg_Intern(sg__rc_cgen13336.d13337[73]); /* treemap-fold */ sg__rc_cgen13336.d13337[74] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[75] = Sg_Intern(sg__rc_cgen13336.d13337[15]); /* treemap-iterator */ 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 */ sg__rc_cgen13336.d13337[76] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[77] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[79] = SG_MAKE_STRING("treemap-fold-reverse"); sg__rc_cgen13336.d13337[78] = Sg_Intern(sg__rc_cgen13336.d13337[79]); /* treemap-fold-reverse */ sg__rc_cgen13336.d13337[80] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[81] = Sg_Intern(sg__rc_cgen13336.d13337[16]); /* treemap-reverse-iterator */ 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 */ sg__rc_cgen13336.d13337[82] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[83] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[84] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[86] = SG_MAKE_STRING("treemap-for-each"); sg__rc_cgen13336.d13337[85] = Sg_Intern(sg__rc_cgen13336.d13337[86]); /* treemap-for-each */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[7]))->name = sg__rc_cgen13336.d13337[85];/* treemap-for-each */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[192]))[8] = SG_WORD(sg__rc_cgen13336.d13337[84]); sg__rc_cgen13336.d13337[87] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[88] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[89] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[91] = SG_MAKE_STRING("reverse!"); sg__rc_cgen13336.d13337[90] = Sg_Intern(sg__rc_cgen13336.d13337[91]); /* reverse! */ 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! */ sg__rc_cgen13336.d13337[93] = SG_MAKE_STRING("treemap-map"); sg__rc_cgen13336.d13337[92] = Sg_Intern(sg__rc_cgen13336.d13337[93]); /* treemap-map */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[9]))->name = sg__rc_cgen13336.d13337[92];/* treemap-map */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[212]))[10] = SG_WORD(sg__rc_cgen13336.d13337[88]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[212]))[13] = SG_WORD(sg__rc_cgen13336.d13337[89]); sg__rc_cgen13336.d13337[94] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[95] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[97] = SG_MAKE_STRING("treemap-for-each-reverse"); sg__rc_cgen13336.d13337[96] = Sg_Intern(sg__rc_cgen13336.d13337[97]); /* treemap-for-each-reverse */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[11]))->name = sg__rc_cgen13336.d13337[96];/* treemap-for-each-reverse */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[235]))[8] = SG_WORD(sg__rc_cgen13336.d13337[95]); sg__rc_cgen13336.d13337[98] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[99] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[100] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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! */ sg__rc_cgen13336.d13337[102] = SG_MAKE_STRING("treemap-map-reverse"); sg__rc_cgen13336.d13337[101] = Sg_Intern(sg__rc_cgen13336.d13337[102]); /* treemap-map-reverse */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[13]))->name = sg__rc_cgen13336.d13337[101];/* treemap-map-reverse */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[255]))[10] = SG_WORD(sg__rc_cgen13336.d13337[99]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[255]))[13] = SG_WORD(sg__rc_cgen13336.d13337[100]); sg__rc_cgen13336.d13337[103] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[105] = SG_MAKE_STRING("lambda"); sg__rc_cgen13336.d13337[104] = Sg_Intern(sg__rc_cgen13336.d13337[105]); /* lambda */ sg__rc_cgen13336.d13337[106] = SG_MAKE_STRING("too many argument for"); sg__rc_cgen13336.d13337[110] = SG_MAKE_STRING("unless"); sg__rc_cgen13336.d13337[109] = Sg_Intern(sg__rc_cgen13336.d13337[110]); /* unless */ sg__rc_cgen13336.d13337[113] = SG_MAKE_STRING("pred"); sg__rc_cgen13336.d13337[112] = Sg_Intern(sg__rc_cgen13336.d13337[113]); /* pred */ do { /* (procedure? pred) */ SgObject G13568 = SG_NIL, G13569 = SG_NIL; SG_APPEND1(G13568, G13569, sg__rc_cgen13336.d13337[59]); /* procedure? */ SG_APPEND1(G13568, G13569, sg__rc_cgen13336.d13337[112]); /* pred */ sg__rc_cgen13336.d13337[111] = G13568; } while (0); sg__rc_cgen13336.d13337[116] = SG_MAKE_STRING("who"); sg__rc_cgen13336.d13337[115] = Sg_Intern(sg__rc_cgen13336.d13337[116]); /* who */ do { /* (wrong-type-argument-message "procedure" pred 1) */ SgObject G13570 = SG_NIL, G13571 = SG_NIL; SG_APPEND1(G13570, G13571, sg__rc_cgen13336.d13337[55]); /* wrong-type-argument-message */ SG_APPEND1(G13570, G13571, sg__rc_cgen13336.d13337[61]); /* "procedure" */ SG_APPEND1(G13570, G13571, sg__rc_cgen13336.d13337[112]); /* pred */ SG_APPEND1(G13570, G13571, SG_MAKE_INT(1U)); /* 1 */ sg__rc_cgen13336.d13337[117] = G13570; } while (0); do { /* (assertion-violation who (wrong-type-argument-message "procedure" pred 1)) */ SgObject G13572 = SG_NIL, G13573 = SG_NIL; SG_APPEND1(G13572, G13573, sg__rc_cgen13336.d13337[63]); /* assertion-violation */ SG_APPEND1(G13572, G13573, sg__rc_cgen13336.d13337[115]); /* who */ SG_APPEND1(G13572, G13573, sg__rc_cgen13336.d13337[117]); /* (wrong-type-argument-message "procedure" pred 1) */ sg__rc_cgen13336.d13337[114] = G13572; } while (0); do { /* (unless (procedure? pred) (assertion-violation who (wrong-type-argument-message "procedure" pred 1))) */ SgObject G13574 = SG_NIL, G13575 = SG_NIL; SG_APPEND1(G13574, G13575, sg__rc_cgen13336.d13337[109]); /* unless */ SG_APPEND1(G13574, G13575, sg__rc_cgen13336.d13337[111]); /* (procedure? pred) */ SG_APPEND1(G13574, G13575, sg__rc_cgen13336.d13337[114]); /* (assertion-violation who (wrong-type-argument-message "procedure" pred 1)) */ sg__rc_cgen13336.d13337[108] = G13574; } while (0); sg__rc_cgen13336.d13337[121] = SG_MAKE_STRING("tm"); sg__rc_cgen13336.d13337[120] = Sg_Intern(sg__rc_cgen13336.d13337[121]); /* tm */ do { /* (treemap? tm) */ SgObject G13576 = SG_NIL, G13577 = SG_NIL; SG_APPEND1(G13576, G13577, sg__rc_cgen13336.d13337[66]); /* treemap? */ SG_APPEND1(G13576, G13577, sg__rc_cgen13336.d13337[120]); /* tm */ sg__rc_cgen13336.d13337[119] = G13576; } while (0); do { /* (wrong-type-argument-message "treemap" tm 2) */ SgObject G13578 = SG_NIL, G13579 = SG_NIL; SG_APPEND1(G13578, G13579, sg__rc_cgen13336.d13337[55]); /* wrong-type-argument-message */ SG_APPEND1(G13578, G13579, sg__rc_cgen13336.d13337[67]); /* "treemap" */ SG_APPEND1(G13578, G13579, sg__rc_cgen13336.d13337[120]); /* tm */ SG_APPEND1(G13578, G13579, SG_MAKE_INT(2U)); /* 2 */ sg__rc_cgen13336.d13337[123] = G13578; } while (0); do { /* (assertion-violation who (wrong-type-argument-message "treemap" tm 2)) */ SgObject G13580 = SG_NIL, G13581 = SG_NIL; SG_APPEND1(G13580, G13581, sg__rc_cgen13336.d13337[63]); /* assertion-violation */ SG_APPEND1(G13580, G13581, sg__rc_cgen13336.d13337[115]); /* who */ SG_APPEND1(G13580, G13581, sg__rc_cgen13336.d13337[123]); /* (wrong-type-argument-message "treemap" tm 2) */ sg__rc_cgen13336.d13337[122] = G13580; } while (0); do { /* (unless (treemap? tm) (assertion-violation who (wrong-type-argument-message "treemap" tm 2))) */ SgObject G13582 = SG_NIL, G13583 = SG_NIL; SG_APPEND1(G13582, G13583, sg__rc_cgen13336.d13337[109]); /* unless */ SG_APPEND1(G13582, G13583, sg__rc_cgen13336.d13337[119]); /* (treemap? tm) */ SG_APPEND1(G13582, G13583, sg__rc_cgen13336.d13337[122]); /* (assertion-violation who (wrong-type-argument-message "treemap" tm 2)) */ sg__rc_cgen13336.d13337[118] = G13582; } while (0); sg__rc_cgen13336.d13337[126] = SG_MAKE_STRING("let"); sg__rc_cgen13336.d13337[125] = Sg_Intern(sg__rc_cgen13336.d13337[126]); /* let */ sg__rc_cgen13336.d13337[130] = SG_MAKE_STRING("itr"); sg__rc_cgen13336.d13337[129] = Sg_Intern(sg__rc_cgen13336.d13337[130]); /* itr */ sg__rc_cgen13336.d13337[133] = SG_MAKE_STRING("iter"); sg__rc_cgen13336.d13337[132] = Sg_Intern(sg__rc_cgen13336.d13337[133]); /* iter */ do { /* (iter tm) */ SgObject G13584 = SG_NIL, G13585 = SG_NIL; SG_APPEND1(G13584, G13585, sg__rc_cgen13336.d13337[132]); /* iter */ SG_APPEND1(G13584, G13585, sg__rc_cgen13336.d13337[120]); /* tm */ sg__rc_cgen13336.d13337[131] = G13584; } while (0); do { /* (itr (iter tm)) */ SgObject G13586 = SG_NIL, G13587 = SG_NIL; SG_APPEND1(G13586, G13587, sg__rc_cgen13336.d13337[129]); /* itr */ SG_APPEND1(G13586, G13587, sg__rc_cgen13336.d13337[131]); /* (iter tm) */ sg__rc_cgen13336.d13337[128] = G13586; } while (0); sg__rc_cgen13336.d13337[136] = SG_MAKE_STRING("eof"); sg__rc_cgen13336.d13337[135] = Sg_Intern(sg__rc_cgen13336.d13337[136]); /* eof */ sg__rc_cgen13336.d13337[139] = SG_MAKE_STRING("cons"); sg__rc_cgen13336.d13337[138] = Sg_Intern(sg__rc_cgen13336.d13337[139]); /* cons */ do { /* (cons #t #t) */ SgObject G13588 = SG_NIL, G13589 = SG_NIL; SG_APPEND1(G13588, G13589, sg__rc_cgen13336.d13337[138]); /* cons */ SG_APPEND1(G13588, G13589, SG_TRUE); /* #t */ SG_APPEND1(G13588, G13589, SG_TRUE); /* #t */ sg__rc_cgen13336.d13337[137] = G13588; } while (0); do { /* (eof (cons #t #t)) */ SgObject G13590 = SG_NIL, G13591 = SG_NIL; SG_APPEND1(G13590, G13591, sg__rc_cgen13336.d13337[135]); /* eof */ SG_APPEND1(G13590, G13591, sg__rc_cgen13336.d13337[137]); /* (cons #t #t) */ sg__rc_cgen13336.d13337[134] = G13590; } while (0); do { /* ((itr (iter tm)) (eof (cons #t #t))) */ SgObject G13592 = SG_NIL, G13593 = SG_NIL; SG_APPEND1(G13592, G13593, sg__rc_cgen13336.d13337[128]); /* (itr (iter tm)) */ SG_APPEND1(G13592, G13593, sg__rc_cgen13336.d13337[134]); /* (eof (cons #t #t)) */ sg__rc_cgen13336.d13337[127] = G13592; } while (0); sg__rc_cgen13336.d13337[142] = SG_MAKE_STRING("loop"); sg__rc_cgen13336.d13337[141] = Sg_Intern(sg__rc_cgen13336.d13337[142]); /* loop */ sg__rc_cgen13336.d13337[146] = SG_MAKE_STRING("i"); sg__rc_cgen13336.d13337[145] = Sg_Intern(sg__rc_cgen13336.d13337[146]); /* i */ do { /* (i 0) */ SgObject G13594 = SG_NIL, G13595 = SG_NIL; SG_APPEND1(G13594, G13595, sg__rc_cgen13336.d13337[145]); /* i */ SG_APPEND1(G13594, G13595, SG_MAKE_INT(0)); /* 0 */ sg__rc_cgen13336.d13337[144] = G13594; } while (0); do { /* ((i 0)) */ SgObject G13596 = SG_NIL, G13597 = SG_NIL; SG_APPEND1(G13596, G13597, sg__rc_cgen13336.d13337[144]); /* (i 0) */ sg__rc_cgen13336.d13337[143] = G13596; } while (0); sg__rc_cgen13336.d13337[149] = SG_MAKE_STRING("let-values"); sg__rc_cgen13336.d13337[148] = Sg_Intern(sg__rc_cgen13336.d13337[149]); /* let-values */ sg__rc_cgen13336.d13337[154] = SG_MAKE_STRING("k"); sg__rc_cgen13336.d13337[153] = Sg_Intern(sg__rc_cgen13336.d13337[154]); /* k */ sg__rc_cgen13336.d13337[156] = SG_MAKE_STRING("v"); sg__rc_cgen13336.d13337[155] = Sg_Intern(sg__rc_cgen13336.d13337[156]); /* v */ do { /* (k v) */ SgObject G13598 = SG_NIL, G13599 = SG_NIL; SG_APPEND1(G13598, G13599, sg__rc_cgen13336.d13337[153]); /* k */ SG_APPEND1(G13598, G13599, sg__rc_cgen13336.d13337[155]); /* v */ sg__rc_cgen13336.d13337[152] = G13598; } while (0); do { /* (itr eof) */ SgObject G13600 = SG_NIL, G13601 = SG_NIL; SG_APPEND1(G13600, G13601, sg__rc_cgen13336.d13337[129]); /* itr */ SG_APPEND1(G13600, G13601, sg__rc_cgen13336.d13337[135]); /* eof */ sg__rc_cgen13336.d13337[157] = G13600; } while (0); do { /* ((k v) (itr eof)) */ SgObject G13602 = SG_NIL, G13603 = SG_NIL; SG_APPEND1(G13602, G13603, sg__rc_cgen13336.d13337[152]); /* (k v) */ SG_APPEND1(G13602, G13603, sg__rc_cgen13336.d13337[157]); /* (itr eof) */ sg__rc_cgen13336.d13337[151] = G13602; } while (0); do { /* (((k v) (itr eof))) */ SgObject G13604 = SG_NIL, G13605 = SG_NIL; SG_APPEND1(G13604, G13605, sg__rc_cgen13336.d13337[151]); /* ((k v) (itr eof)) */ sg__rc_cgen13336.d13337[150] = G13604; } while (0); sg__rc_cgen13336.d13337[160] = SG_MAKE_STRING("cond"); sg__rc_cgen13336.d13337[159] = Sg_Intern(sg__rc_cgen13336.d13337[160]); /* cond */ sg__rc_cgen13336.d13337[164] = SG_MAKE_STRING("eq?"); sg__rc_cgen13336.d13337[163] = Sg_Intern(sg__rc_cgen13336.d13337[164]); /* eq? */ do { /* (eq? k eof) */ SgObject G13606 = SG_NIL, G13607 = SG_NIL; SG_APPEND1(G13606, G13607, sg__rc_cgen13336.d13337[163]); /* eq? */ SG_APPEND1(G13606, G13607, sg__rc_cgen13336.d13337[153]); /* k */ SG_APPEND1(G13606, G13607, sg__rc_cgen13336.d13337[135]); /* eof */ sg__rc_cgen13336.d13337[162] = G13606; } while (0); sg__rc_cgen13336.d13337[166] = SG_MAKE_STRING("fallback"); sg__rc_cgen13336.d13337[165] = Sg_Intern(sg__rc_cgen13336.d13337[166]); /* fallback */ do { /* ((eq? k eof) fallback) */ SgObject G13608 = SG_NIL, G13609 = SG_NIL; SG_APPEND1(G13608, G13609, sg__rc_cgen13336.d13337[162]); /* (eq? k eof) */ SG_APPEND1(G13608, G13609, sg__rc_cgen13336.d13337[165]); /* fallback */ sg__rc_cgen13336.d13337[161] = G13608; } while (0); do { /* (pred i k) */ SgObject G13610 = SG_NIL, G13611 = SG_NIL; SG_APPEND1(G13610, G13611, sg__rc_cgen13336.d13337[112]); /* pred */ SG_APPEND1(G13610, G13611, sg__rc_cgen13336.d13337[145]); /* i */ SG_APPEND1(G13610, G13611, sg__rc_cgen13336.d13337[153]); /* k */ sg__rc_cgen13336.d13337[168] = G13610; } while (0); do { /* ((pred i k) v) */ SgObject G13612 = SG_NIL, G13613 = SG_NIL; SG_APPEND1(G13612, G13613, sg__rc_cgen13336.d13337[168]); /* (pred i k) */ SG_APPEND1(G13612, G13613, sg__rc_cgen13336.d13337[155]); /* v */ sg__rc_cgen13336.d13337[167] = G13612; } while (0); sg__rc_cgen13336.d13337[171] = SG_MAKE_STRING("else"); sg__rc_cgen13336.d13337[170] = Sg_Intern(sg__rc_cgen13336.d13337[171]); /* else */ sg__rc_cgen13336.d13337[175] = SG_MAKE_STRING("+"); sg__rc_cgen13336.d13337[174] = Sg_Intern(sg__rc_cgen13336.d13337[175]); /* + */ do { /* (+ i 1) */ SgObject G13614 = SG_NIL, G13615 = SG_NIL; SG_APPEND1(G13614, G13615, sg__rc_cgen13336.d13337[174]); /* + */ SG_APPEND1(G13614, G13615, sg__rc_cgen13336.d13337[145]); /* i */ SG_APPEND1(G13614, G13615, SG_MAKE_INT(1U)); /* 1 */ sg__rc_cgen13336.d13337[173] = G13614; } while (0); do { /* (loop (+ i 1)) */ SgObject G13616 = SG_NIL, G13617 = SG_NIL; SG_APPEND1(G13616, G13617, sg__rc_cgen13336.d13337[141]); /* loop */ SG_APPEND1(G13616, G13617, sg__rc_cgen13336.d13337[173]); /* (+ i 1) */ sg__rc_cgen13336.d13337[172] = G13616; } while (0); do { /* (else (loop (+ i 1))) */ SgObject G13618 = SG_NIL, G13619 = SG_NIL; SG_APPEND1(G13618, G13619, sg__rc_cgen13336.d13337[170]); /* else */ SG_APPEND1(G13618, G13619, sg__rc_cgen13336.d13337[172]); /* (loop (+ i 1)) */ sg__rc_cgen13336.d13337[169] = G13618; } while (0); do { /* (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))) */ SgObject G13620 = SG_NIL, G13621 = SG_NIL; SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[159]); /* cond */ SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[161]); /* ((eq? k eof) fallback) */ SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[167]); /* ((pred i k) v) */ SG_APPEND1(G13620, G13621, sg__rc_cgen13336.d13337[169]); /* (else (loop (+ i 1))) */ sg__rc_cgen13336.d13337[158] = G13620; } while (0); do { /* (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1))))) */ SgObject G13622 = SG_NIL, G13623 = SG_NIL; SG_APPEND1(G13622, G13623, sg__rc_cgen13336.d13337[148]); /* let-values */ SG_APPEND1(G13622, G13623, sg__rc_cgen13336.d13337[150]); /* (((k v) (itr eof))) */ SG_APPEND1(G13622, G13623, sg__rc_cgen13336.d13337[158]); /* (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))) */ sg__rc_cgen13336.d13337[147] = G13622; } while (0); do { /* (let loop ((i 0)) (let-values (((k v) (itr eof))) (cond ((eq? k eof) fallback) ((pred i k) v) (else (loop (+ i 1)))))) */ SgObject G13624 = SG_NIL, G13625 = SG_NIL; SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[125]); /* let */ SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[141]); /* loop */ SG_APPEND1(G13624, G13625, sg__rc_cgen13336.d13337[143]); /* ((i 0)) */ 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))))) */ sg__rc_cgen13336.d13337[140] = G13624; } while (0); do { /* (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))))))) */ SgObject G13626 = SG_NIL, G13627 = SG_NIL; SG_APPEND1(G13626, G13627, sg__rc_cgen13336.d13337[125]); /* let */ SG_APPEND1(G13626, G13627, sg__rc_cgen13336.d13337[127]); /* ((itr (iter tm)) (eof (cons #t #t))) */ 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)))))) */ sg__rc_cgen13336.d13337[124] = G13626; } while (0); do { /* ((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)))))))) */ SgObject G13628 = SG_NIL, G13629 = SG_NIL; SG_APPEND1(G13628, G13629, sg__rc_cgen13336.d13337[108]); /* (unless (procedure? pred) (assertion-violation who (wrong-type-argument-message "procedure" pred 1))) */ SG_APPEND1(G13628, G13629, sg__rc_cgen13336.d13337[118]); /* (unless (treemap? tm) (assertion-violation who (wrong-type-argument-message "treemap" tm 2))) */ 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))))))) */ sg__rc_cgen13336.d13337[107] = G13628; } while (0); sg__rc_cgen13336.d13337[176] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[178] = SG_MAKE_STRING("error"); sg__rc_cgen13336.d13337[177] = Sg_Intern(sg__rc_cgen13336.d13337[178]); /* error */ sg__rc_cgen13336.d13337[181] = SG_MAKE_STRING("(sagittarius compiler)"); sg__rc_cgen13336.d13337[180] = Sg_Intern(sg__rc_cgen13336.d13337[181]); /* (sagittarius compiler) */ sg__rc_cgen13336.d13337[179] = Sg_FindLibrary(SG_SYMBOL(sg__rc_cgen13336.d13337[180]), TRUE); 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 */ sg__rc_cgen13336.d13337[182] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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? */ sg__rc_cgen13336.d13337[183] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[184] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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? */ sg__rc_cgen13336.d13337[185] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[187] = SG_MAKE_STRING("%treemap-find/index"); sg__rc_cgen13336.d13337[186] = Sg_Intern(sg__rc_cgen13336.d13337[187]); /* %treemap-find/index */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[14]))->name = sg__rc_cgen13336.d13337[186];/* %treemap-find/index */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[27] = SG_WORD(sg__rc_cgen13336.d13337[104]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[29] = SG_WORD(sg__rc_cgen13336.d13337[106]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[31] = SG_WORD(sg__rc_cgen13336.d13337[107]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[33] = SG_WORD(sg__rc_cgen13336.d13337[176]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[38] = SG_WORD(sg__rc_cgen13336.d13337[182]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[56] = SG_WORD(sg__rc_cgen13336.d13337[49]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[58] = SG_WORD(sg__rc_cgen13336.d13337[61]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[61] = SG_WORD(sg__rc_cgen13336.d13337[50]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[67] = SG_WORD(sg__rc_cgen13336.d13337[53]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[69] = SG_WORD(sg__rc_cgen13336.d13337[61]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[73] = SG_WORD(sg__rc_cgen13336.d13337[54]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[77] = SG_WORD(sg__rc_cgen13336.d13337[183]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[82] = SG_WORD(sg__rc_cgen13336.d13337[184]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[100] = SG_WORD(sg__rc_cgen13336.d13337[49]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[102] = SG_WORD(sg__rc_cgen13336.d13337[67]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[105] = SG_WORD(sg__rc_cgen13336.d13337[50]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[111] = SG_WORD(sg__rc_cgen13336.d13337[53]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[113] = SG_WORD(sg__rc_cgen13336.d13337[67]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[117] = SG_WORD(sg__rc_cgen13336.d13337[54]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[270]))[121] = SG_WORD(sg__rc_cgen13336.d13337[185]); SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[15]))->name = sg__rc_cgen13336.d13337[186];/* %treemap-find/index */ sg__rc_cgen13336.d13337[188] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[190] = SG_MAKE_STRING("treemap-find/index"); sg__rc_cgen13336.d13337[189] = Sg_Intern(sg__rc_cgen13336.d13337[190]); /* treemap-find/index */ sg__rc_cgen13336.d13337[191] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[192] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[193] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[195] = SG_MAKE_STRING("treemap-reverse-find/index"); sg__rc_cgen13336.d13337[194] = Sg_Intern(sg__rc_cgen13336.d13337[195]); /* treemap-reverse-find/index */ sg__rc_cgen13336.d13337[196] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[197] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[198] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ do { /* (i k) */ SgObject G13630 = SG_NIL, G13631 = SG_NIL; SG_APPEND1(G13630, G13631, sg__rc_cgen13336.d13337[145]); /* i */ SG_APPEND1(G13630, G13631, sg__rc_cgen13336.d13337[153]); /* k */ sg__rc_cgen13336.d13337[202] = G13630; } while (0); do { /* (pred k) */ SgObject G13632 = SG_NIL, G13633 = SG_NIL; SG_APPEND1(G13632, G13633, sg__rc_cgen13336.d13337[112]); /* pred */ SG_APPEND1(G13632, G13633, sg__rc_cgen13336.d13337[153]); /* k */ sg__rc_cgen13336.d13337[203] = G13632; } while (0); do { /* (lambda (i k) (pred k)) */ SgObject G13634 = SG_NIL, G13635 = SG_NIL; SG_APPEND1(G13634, G13635, sg__rc_cgen13336.d13337[104]); /* lambda */ SG_APPEND1(G13634, G13635, sg__rc_cgen13336.d13337[202]); /* (i k) */ SG_APPEND1(G13634, G13635, sg__rc_cgen13336.d13337[203]); /* (pred k) */ sg__rc_cgen13336.d13337[201] = G13634; } while (0); do { /* (treemap-find/index (lambda (i k) (pred k)) tm fallback) */ SgObject G13636 = SG_NIL, G13637 = SG_NIL; SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[189]); /* treemap-find/index */ SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[201]); /* (lambda (i k) (pred k)) */ SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[120]); /* tm */ SG_APPEND1(G13636, G13637, sg__rc_cgen13336.d13337[165]); /* fallback */ sg__rc_cgen13336.d13337[200] = G13636; } while (0); do { /* ((treemap-find/index (lambda (i k) (pred k)) tm fallback)) */ SgObject G13638 = SG_NIL, G13639 = SG_NIL; SG_APPEND1(G13638, G13639, sg__rc_cgen13336.d13337[200]); /* (treemap-find/index (lambda (i k) (pred k)) tm fallback) */ sg__rc_cgen13336.d13337[199] = G13638; } while (0); sg__rc_cgen13336.d13337[204] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[206] = SG_MAKE_STRING("treemap-find"); sg__rc_cgen13336.d13337[205] = Sg_Intern(sg__rc_cgen13336.d13337[206]); /* treemap-find */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[17]))->name = sg__rc_cgen13336.d13337[205];/* treemap-find */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[27] = SG_WORD(sg__rc_cgen13336.d13337[104]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[29] = SG_WORD(sg__rc_cgen13336.d13337[106]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[31] = SG_WORD(sg__rc_cgen13336.d13337[199]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[33] = SG_WORD(sg__rc_cgen13336.d13337[176]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[442]))[41] = SG_WORD(sg__rc_cgen13336.d13337[204]); sg__rc_cgen13336.d13337[207] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ do { /* (treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback) */ SgObject G13640 = SG_NIL, G13641 = SG_NIL; SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[194]); /* treemap-reverse-find/index */ SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[201]); /* (lambda (i k) (pred k)) */ SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[120]); /* tm */ SG_APPEND1(G13640, G13641, sg__rc_cgen13336.d13337[165]); /* fallback */ sg__rc_cgen13336.d13337[209] = G13640; } while (0); do { /* ((treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback)) */ SgObject G13642 = SG_NIL, G13643 = SG_NIL; SG_APPEND1(G13642, G13643, sg__rc_cgen13336.d13337[209]); /* (treemap-reverse-find/index (lambda (i k) (pred k)) tm fallback) */ sg__rc_cgen13336.d13337[208] = G13642; } while (0); sg__rc_cgen13336.d13337[210] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[212] = SG_MAKE_STRING("treemap-reverse-find"); sg__rc_cgen13336.d13337[211] = Sg_Intern(sg__rc_cgen13336.d13337[212]); /* treemap-reverse-find */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[19]))->name = sg__rc_cgen13336.d13337[211];/* treemap-reverse-find */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[27] = SG_WORD(sg__rc_cgen13336.d13337[104]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[29] = SG_WORD(sg__rc_cgen13336.d13337[106]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[31] = SG_WORD(sg__rc_cgen13336.d13337[208]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[33] = SG_WORD(sg__rc_cgen13336.d13337[176]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[489]))[41] = SG_WORD(sg__rc_cgen13336.d13337[210]); sg__rc_cgen13336.d13337[213] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[214] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[216] = SG_MAKE_STRING("treemap->alist"); sg__rc_cgen13336.d13337[215] = Sg_Intern(sg__rc_cgen13336.d13337[216]); /* treemap->alist */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[21]))->name = sg__rc_cgen13336.d13337[215];/* treemap->alist */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[542]))[1] = SG_WORD(sg__rc_cgen13336.d13337[214]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[542]))[12] = SG_WORD(sg__rc_cgen13336.d13337[88]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[542]))[15] = SG_WORD(sg__rc_cgen13336.d13337[89]); sg__rc_cgen13336.d13337[217] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ sg__rc_cgen13336.d13337[218] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[219] = Sg_Intern(sg__rc_cgen13336.d13337[0]); /* make-rb-treemap */ 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 */ sg__rc_cgen13336.d13337[220] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); sg__rc_cgen13336.d13337[221] = Sg_Intern(sg__rc_cgen13336.d13337[5]); /* treemap-set! */ 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! */ sg__rc_cgen13336.d13337[223] = SG_MAKE_STRING("alist->treemap"); sg__rc_cgen13336.d13337[222] = Sg_Intern(sg__rc_cgen13336.d13337[223]); /* alist->treemap */ SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[22]))->name = sg__rc_cgen13336.d13337[222];/* alist->treemap */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[559]))[4] = SG_WORD(sg__rc_cgen13336.d13337[218]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[559]))[19] = SG_WORD(sg__rc_cgen13336.d13337[220]); sg__rc_cgen13336.d13337[224] = Sg_MakeRawIdentifier(NULL, NULL, NULL, NULL, 0); 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 */ ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[1] = SG_WORD(sg__rc_cgen13336.d13337[25]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[5] = SG_WORD(sg__rc_cgen13336.d13337[36]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[9] = SG_WORD(sg__rc_cgen13336.d13337[42]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[13] = SG_WORD(sg__rc_cgen13336.d13337[48]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[17] = SG_WORD(sg__rc_cgen13336.d13337[57]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[21] = SG_WORD(sg__rc_cgen13336.d13337[71]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[25] = SG_WORD(sg__rc_cgen13336.d13337[72]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[27] = SG_WORD(sg__rc_cgen13336.d13337[74]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[29] = SG_WORD(sg__rc_cgen13336.d13337[76]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[31] = SG_WORD(sg__rc_cgen13336.d13337[77]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[35] = SG_WORD(sg__rc_cgen13336.d13337[78]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[37] = SG_WORD(sg__rc_cgen13336.d13337[80]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[39] = SG_WORD(sg__rc_cgen13336.d13337[82]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[41] = SG_WORD(sg__rc_cgen13336.d13337[83]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[45] = SG_WORD(sg__rc_cgen13336.d13337[87]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[49] = SG_WORD(sg__rc_cgen13336.d13337[94]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[53] = SG_WORD(sg__rc_cgen13336.d13337[98]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[57] = SG_WORD(sg__rc_cgen13336.d13337[103]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[61] = SG_WORD(sg__rc_cgen13336.d13337[188]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[65] = SG_WORD(sg__rc_cgen13336.d13337[189]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[67] = SG_WORD(sg__rc_cgen13336.d13337[191]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[69] = SG_WORD(sg__rc_cgen13336.d13337[192]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[71] = SG_WORD(sg__rc_cgen13336.d13337[193]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[75] = SG_WORD(sg__rc_cgen13336.d13337[194]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[77] = SG_WORD(sg__rc_cgen13336.d13337[196]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[79] = SG_WORD(sg__rc_cgen13336.d13337[197]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[81] = SG_WORD(sg__rc_cgen13336.d13337[198]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[85] = SG_WORD(sg__rc_cgen13336.d13337[207]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[89] = SG_WORD(sg__rc_cgen13336.d13337[213]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[93] = SG_WORD(sg__rc_cgen13336.d13337[217]); ((SgWord*)SG_OBJ(&sg__rc_cgen13336.d13566[585]))[97] = SG_WORD(sg__rc_cgen13336.d13337[224]); sg__rc_cgen13336.d13337[226] = SG_MAKE_STRING("(core)"); sg__rc_cgen13336.d13337[225] = Sg_Intern(sg__rc_cgen13336.d13337[226]); /* (core) */ Sg_ImportLibrary(sg__rc_cgen13336.d13337[25], sg__rc_cgen13336.d13337[225]); sg__rc_cgen13336.d13337[228] = SG_MAKE_STRING("(sagittarius)"); sg__rc_cgen13336.d13337[227] = Sg_Intern(sg__rc_cgen13336.d13337[228]); /* (sagittarius) */ Sg_ImportLibrary(sg__rc_cgen13336.d13337[25], sg__rc_cgen13336.d13337[227]); SG_APPEND1(h, t, sg__rc_cgen13336.d13337[34]); /* treemap-entries */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[40]); /* treemap-keys */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[46]); /* treemap-values */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[55]); /* wrong-type-argument-message */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[69]); /* %treemap-fold */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[72]); /* treemap-fold */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[78]); /* treemap-fold-reverse */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[85]); /* treemap-for-each */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[92]); /* treemap-map */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[96]); /* treemap-for-each-reverse */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[101]); /* treemap-map-reverse */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[186]); /* %treemap-find/index */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[189]); /* treemap-find/index */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[194]); /* treemap-reverse-find/index */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[205]); /* treemap-find */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[211]); /* treemap-reverse-find */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[215]); /* treemap->alist */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[222]); /* alist->treemap */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[219]); /* make-rb-treemap */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[2]); /* make-rb-treemap/comparator */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[66]); /* treemap? */ sg__rc_cgen13336.d13337[229] = Sg_Intern(sg__rc_cgen13336.d13337[4]); /* treemap-ref */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[229]); /* treemap-ref */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[221]); /* treemap-set! */ sg__rc_cgen13336.d13337[230] = Sg_Intern(sg__rc_cgen13336.d13337[6]); /* treemap-delete! */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[230]); /* treemap-delete! */ sg__rc_cgen13336.d13337[231] = Sg_Intern(sg__rc_cgen13336.d13337[7]); /* treemap-clear! */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[231]); /* treemap-clear! */ sg__rc_cgen13336.d13337[232] = Sg_Intern(sg__rc_cgen13336.d13337[8]); /* treemap-copy */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[232]); /* treemap-copy */ sg__rc_cgen13336.d13337[233] = Sg_Intern(sg__rc_cgen13336.d13337[9]); /* treemap-contains? */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[233]); /* treemap-contains? */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[38]); /* treemap-keys-list */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[44]); /* treemap-values-list */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[29]); /* treemap-entries-list */ sg__rc_cgen13336.d13337[234] = Sg_Intern(sg__rc_cgen13336.d13337[13]); /* treemap-size */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[234]); /* treemap-size */ sg__rc_cgen13336.d13337[235] = Sg_Intern(sg__rc_cgen13336.d13337[14]); /* treemap-update! */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[235]); /* treemap-update! */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[75]); /* treemap-iterator */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[81]); /* treemap-reverse-iterator */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[18]); /* treemap-higher-entry */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[20]); /* treemap-lower-entry */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[22]); /* treemap-first-entry */ SG_APPEND1(h, t, sg__rc_cgen13336.d13337[24]); /* treemap-last-entry */ Sg_LibraryExportedSet(sg__rc_cgen13336.d13337[25], Sg_Cons(h, SG_NIL)); SG_LIBRARY_AUTO_EXPORT(sg__rc_cgen13336.d13337[25]) = TRUE; Sg_VM()->currentLibrary = sg__rc_cgen13336.d13337[25]; Sg_VMExecute(SG_OBJ(toplevel)); Sg_VM()->currentLibrary = save; }