New function: cptr-buf.

* eval.c (eval_init): Register cptr-buf intrinsic.

* lib.c (cptr_buf): New function.

* lib.h (cptr_buf): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index b85e73d0..eda2c857 100644
--- a/eval.c
+++ b/eval.c
@@ -6888,6 +6888,7 @@ void eval_init(void)
 
   reg_fun(intern(lit("cptr-int"), user_package), func_n2o(cptr_int, 1));
   reg_fun(intern(lit("cptr-obj"), user_package), func_n2o(cptr_obj, 1));
+  reg_fun(intern(lit("cptr-buf"), user_package), func_n2o(cptr_buf, 1));
   reg_fun(intern(lit("cptr-zap"), user_package), func_n1(cptr_zap));
   reg_fun(intern(lit("cptr-free"), user_package), func_n1(cptr_free));
   reg_fun(intern(lit("cptr-cast"), user_package), func_n2(cptr_cast));