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.

1 files 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);