summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/lib.c b/lib.c
index 7c15a864..69de8369 100644
--- a/lib.c
+++ b/lib.c
@@ -3996,20 +3996,20 @@ val sort(val seq, val lessfun, val keyfun)
static val multi_sort_less(val funcs, val llist, val rlist)
{
- val less = nil;
+ val less = t;
while (funcs) {
val func = pop(&funcs);
val left = pop(&llist);
val right = pop(&rlist);
- if (funcall2(func, left, right)) {
- less = t;
+ if (funcall2(func, left, right))
break;
- }
- if (funcall2(func, right, left))
+ if (funcall2(func, right, left)) {
+ less = nil;
break;
+ }
}
return less;