Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-22 07:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing sort when less predicate is given without a key

Browse source
This commit is contained in:
Alex Shinn 2010-02-11 19:00:53 +09:00
parent efb6f24a61
commit b71195955e
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/srfi/95/qsort.c
View file

@ -99,11 +99,19 @@ static sexp sexp_qsort_less (sexp ctx, sexp *vec,
} else {
mid = lo + (hi-lo)/2;
swap(tmp, vec[mid], vec[hi]);
sexp_car(args1) = tmp;
b = sexp_apply(ctx, key, args1);
if (sexp_truep(key)) {
sexp_car(args1) = tmp;
b = sexp_apply(ctx, key, args1);
} else {
b = tmp;
}
for (i=j=lo; i < hi; i++) {
sexp_car(args1) = vec[i];
a = sexp_apply(ctx, key, args1);
if (sexp_truep(key)) {
sexp_car(args1) = vec[i];
a = sexp_apply(ctx, key, args1);
} else {
a = vec[i];
}
sexp_car(args2) = a;
sexp_car(args1) = b;
res = sexp_apply(ctx, less, args2);