shuffle/nshuffle: take optional random state argument.

* eval.c (eval_init): Register shuffle and nshuffle as
two-argument functions with optional argument.

* lib.c (nshuffle): Take random-state argument, defaulting to
value of random_state special variable.
(shuffle): Take random-state argument, pass down to nshuffle.

* lib.h (shuffle, nshuffle): Declarations updated.

* txr.1: Updated.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.h b/lib.h
index 535c2c45..c1951a88 100644
--- a/lib.h
+++ b/lib.h
@@ -1129,8 +1129,8 @@ val interpose(val sep, val seq);
 val merge(val list1, val list2, val lessfun, val keyfun);
 val nsort(val seq, val lessfun, val keyfun);
 val sort(val seq, val lessfun, val keyfun);
-val nshuffle(val seq);
-val shuffle(val seq);
+val nshuffle(val seq, val randstate);
+val shuffle(val seq, val randstate);
 val multi_sort(val lists, val funcs, val key_funcs);
 val sort_group(val seq, val keyfun, val lessfun);
 val unique(val seq, val keyfun, struct args *hashv_args);