diff options
Diffstat (limited to 'src/sort.c')
| -rw-r--r-- | src/sort.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/sort.c b/src/sort.c index 7f079cecd45..fb00f5cc8ea 100644 --- a/src/sort.c +++ b/src/sort.c @@ -198,7 +198,7 @@ typedef struct merge_state static bool order_pred_lisp (merge_state *ms, Lisp_Object a, Lisp_Object b) { - return !NILP (call2 (ms->predicate, a, b)); + return !NILP (calln (ms->predicate, a, b)); } static bool @@ -1127,7 +1127,7 @@ tim_sort (Lisp_Object predicate, Lisp_Object keyfunc, (any call to keyfunc might trigger a GC). */ if (!NILP (keyfunc)) for (ptrdiff_t i = 0; i < length; i++) - keys[i] = call1 (keyfunc, seq[i]); + keys[i] = calln (keyfunc, seq[i]); /* FIXME: This is where we would check the keys for interesting properties for more optimized comparison (such as all being fixnums |