New function: delcons.

* eval.c (eval_init): Register delcons intrinsic.

* lib.[ch] (delcons): New function.

* tests/010/cons.tl: New file.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 8a9fada6..006861b1 100644
--- a/eval.c
+++ b/eval.c
@@ -6916,6 +6916,7 @@ void eval_init(void)
   reg_fun(intern(lit("split*"), user_package), func_n2(split_star));
   reg_fun(intern(lit("partition*"), user_package), func_n2(partition_star));
   reg_fun(intern(lit("tailp"), user_package), func_n2(tailp));
+  reg_fun(intern(lit("delcons"), user_package), func_n2(delcons));
   reg_fun(memq_s, func_n2(memq));
   reg_fun(memql_s, func_n2(memql));
   reg_fun(memqual_s, func_n2(memqual));