* eval.c (eval_init): Intrinsic bindings for sub, ref, refset

and replace.

* lib.c (do_sort): Static function renamed to sort_list.
(swap, quicksort, sort_vec): New static functions.
(sort): Made generic over lists, vectors and strings.
(refset): New function.

* lib.h (sort): Declaration updated (parameter name change).
(refset): Declared.

* txr.1: Mention refset.

* txr.vim: Updated with refset.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 1930a765..c4bb50e4 100644
--- a/lib.h
+++ b/lib.h
@@ -560,12 +560,13 @@ val mapcar(val fun, val list);
 val mapcon(val fun, val list);
 val mappend(val fun, val list);
 val merge(val list1, val list2, val lessfun, val keyfun);
-val sort(val list, val lessfun, val keyfun);
+val sort(val seq, val lessfun, val keyfun);
 val find(val list, val key, val testfun, val keyfun);
 val set_diff(val list1, val list2, val testfun, val keyfun);
 val length(val seq);
 val sub(val seq, val from, val to);
 val ref(val seq, val ind);
+val refset(val seq, val ind, val newval);
 val replace(val seq, val items, val from, val to);
 val env(void);
 val obj_print(val obj, val stream);