From f6cb6a21745822874789a33e150ef7ddbbf58979 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 2 May 2023 19:25:40 -0700 Subject: sort: correct name in error reporting. * lib.c (sort_vec): Take self argument instead of assuming that we are sort; this can be called by nsort. (nsort, sort): Pass self to sort_vec. --- lib.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lib.c b/lib.c index fdc2d382..c721a01f 100644 --- a/lib.c +++ b/lib.c @@ -10868,9 +10868,8 @@ static void quicksort(val vec, val lessfun, val keyfun, cnum from, cnum to) } } -static void sort_vec(val vec, val lessfun, val keyfun) +static void sort_vec(val vec, val lessfun, val keyfun, val self) { - val self = lit("sort"); cnum len = c_fixnum(length(vec), self); quicksort(vec, lessfun, keyfun, 0, len); } @@ -10888,7 +10887,7 @@ val nsort(val seq, val lessfun, val keyfun) return nil; case SEQ_VECLIKE: case SEQ_HASHLIKE: - sort_vec(seq, lessfun, keyfun); + sort_vec(seq, lessfun, keyfun, self); return seq; case SEQ_LISTLIKE: return sort_list(seq, lessfun, keyfun); @@ -10914,7 +10913,7 @@ val sort(val seq, val lessfun, val keyfun) case SEQ_VECLIKE: case SEQ_HASHLIKE: seq = copy(seq); - sort_vec(seq, lessfun, keyfun); + sort_vec(seq, lessfun, keyfun, self); return seq; case SEQ_LISTLIKE: return sort_list(copy_list(seq), lessfun, keyfun); -- cgit v1.2.3