* eval.c (eval_init): Register uniq function.

* lib.c (uniq): New function.

* lib.h (uniq): Declared.

* txr.1: Documented uniq.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 359c4988..9119b0f4 100644
--- a/eval.c
+++ b/eval.c
@@ -3772,6 +3772,7 @@ void eval_init(void)
   reg_fun(intern(lit("hash-diff"), user_package), func_n2(hash_diff));
   reg_fun(intern(lit("hash-isec"), user_package), func_n3o(hash_isec, 2));
   reg_fun(intern(lit("group-by"), user_package), func_n2v(group_by));
+  reg_fun(intern(lit("uniq"), user_package), func_n1(uniq));
   reg_fun(intern(lit("hash-update"), user_package), func_n2(hash_update));
   reg_fun(intern(lit("hash-update-1"), user_package),
           func_n4o(hash_update_1, 3));