cptr-int and cptr-obj can make typed cptr objects.

* eval.c (eval_init): Update registration of cptr-int and
cptr-obj with one optional argument.

* lib.c (cptr_int): New type symbol argument, defaulting
to nil. Also, don't bother defaulting the integer argument;
the function isn't registered for that being optional.
(cptr_obj): New type symbol argument, defaulting to nil.

* lib.h (cptr_int, cptr_obj): Declarations updated.

* txr.1: Documented cptr-int and cptr-obj function changes.
Added discussion of type tag to introductory paragraph.
Also added neglected documentation of the FFI cptr type,
both unparametrized and parametrized.

1 files changed, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index d1c3cc8c..46c9bb72 100644
--- a/eval.c
+++ b/eval.c
@@ -6157,8 +6157,8 @@ void eval_init(void)
   reg_fun(intern(lit("rlcp"), user_package), func_n2(rlcp));
   reg_fun(intern(lit("rlcp-tree"), user_package), func_n2(rlcp_tree));
 
-  reg_fun(intern(lit("cptr-int"), user_package), func_n1(cptr_int));
-  reg_fun(intern(lit("cptr-obj"), user_package), func_n1(cptr_obj));
+  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-zap"), user_package), func_n1(cptr_zap));
   reg_fun(intern(lit("cptr-free"), user_package), func_n1(cptr_free));
   reg_fun(intern(lit("cptrp"), user_package), func_n1(cptrp));