cmp 100 src/compare.c int (*cmp)(ScmObj, ScmObj, ScmObj), ScmObj data) cmp 106 src/compare.c } else if (cmp(elts[l*2-1], elts[l*2], data) < 0) { cmp 111 src/compare.c if (cmp(elts[l-1], elts[maxchild], data) < 0) { cmp 123 src/compare.c int (*cmp)(ScmObj, ScmObj, ScmObj), ScmObj data) cmp 127 src/compare.c shift_up(elts, l, nelts, cmp, data); cmp 133 src/compare.c shift_up(elts, 0, r, cmp, data); cmp 139 src/compare.c int (*cmp)(ScmObj, ScmObj, ScmObj), ScmObj data) cmp 143 src/compare.c sort_h(elts+lo, (hi-lo+1), cmp, data); cmp 149 src/compare.c while (l <= r && cmp(elts[l], pivot, data) < 0) l++; cmp 150 src/compare.c while (l <= r && cmp(pivot, elts[r], data) < 0) r--; cmp 156 src/compare.c if (lo < r) sort_q(elts, lo, r, depth+1, limit, cmp, data);