* eval.c (rperm_list, rperm_vec, rperm_str): n variable renamed

to k, for consistency with rperm.
(rperm): Likewise, and the behavior in the k == zero case is
changed to return a single empty permutation.
(perm_while_fun, perm_index, perm_gen_fun_common, perm_init_common,
perm_vec_gen_fill, perm_vec_gen_fun, perm_vec,
perm_list_gen_fill, perm_list_gen_fun, perm_list,
perm_str_gen_fill, perm_str_gen_fun, perm_str, perm): New
static functions.
(eval_init): perm registered as intrinsic.

* lib.c (vecref_l): Bugfix: allow negative indices, just like vecref.

* lib.h (three, four): New macros.

* txr.1: Updated documentation for rperm. Documented perm.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 39928568..67784f4d 100644
--- a/lib.c
+++ b/lib.c
@@ -3918,6 +3918,8 @@ val *vecref_l(val vec, val ind)
 {
   cnum index = c_num(ind);
   cnum len = c_num(length_vec(vec));
+  if (index < 0)
+    index = len + index;
   if (index < 0 || index >= len)
     uw_throwf(error_s, lit("vecref: ~s is out of range for vector ~s"),
               ind, vec, nao);