* 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.h b/lib.h
index 43a31740..869d3c31 100644
--- a/lib.h
+++ b/lib.h
@@ -771,6 +771,8 @@ val *list_collect_append(val *pptail, val obj);
 #define zero num_fast(0)
 #define one num_fast(1)
 #define two num_fast(2)
+#define three num_fast(3)
+#define four num_fast(4)
 #define negone num_fast(-1)
 #define maxint num_fast(NUM_MAX)
 #define minint num_fast(NUM_MIN)