* eval.c (mapcarv): Changed to external linkage.

* eval.h (mapcarv): Declaration added.
(eval_init): New intrinsic multi-sort registered.

* lib.c (multi_sort_less): New static function.
(multi_sort): New function.

* lib.h (multi_sort): Declared.

* txr.1: stub section added.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index a3429221..475dfe7b 100644
--- a/lib.h
+++ b/lib.h
@@ -635,6 +635,7 @@ 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 seq, val lessfun, val keyfun);
+val multi_sort(val funcs, val lists);
 val find(val list, val key, val testfun, val keyfun);
 val find_if(val pred, val list, val key);
 val set_diff(val list1, val list2, val testfun, val keyfun);