* eval.c (eval_init): New functions registered as intrinsics.

* lib.c (copy_vec, sub_vec): New functions.

* lib.h (copy_vec, sub_vec): Declared.

* txr.1: Stub sections created.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 3052f2db..f67b21af 100644
--- a/eval.c
+++ b/eval.c
@@ -1388,6 +1388,8 @@ void eval_init(void)
   reg_fun(intern(lit("size-vec"), user_package), func_n1(size_vec));
   reg_fun(intern(lit("vector-list"), user_package), func_n1(vector_list));
   reg_fun(intern(lit("list-vector"), user_package), func_n1(list_vector));
+  reg_fun(intern(lit("copy-vec"), user_package), func_n1(copy_vec));
+  reg_fun(intern(lit("sub-vec"), user_package), func_n3(sub_vec));
 
   reg_fun(intern(lit("assoc"), user_package), func_n2(assoc));
   reg_fun(intern(lit("assq"), user_package), func_n2(assq));