functions: provide accessors for basic properties.

* eval.c (eval_init): Register intrinsic functions
fun-fixparam-count, fun-optparam-count, fun-variadic.

* lib.c (get_param_counts): New static function.
(fun_fixparam_count, fun_optparam_count, fun_variadic): New
functions.

* lib.h (fun_fixparam_count, fun_optparam_count,
fun_variadic): Declared.

* txr.1: Documented.

1 files changed, 3 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 35da0a43..a1763d77 100644
--- a/lib.h
+++ b/lib.h
@@ -966,6 +966,9 @@ val us_func_set_env(val fun, val env);
 val functionp(val);
 val interp_fun_p(val);
 val vm_fun_p(val);
+val fun_fixparam_count(val obj);
+val fun_optparam_count(val obj);
+val fun_variadic(val obj);
 val generic_funcall(val fun, struct args *);
 val funcall(val fun);
 val funcall1(val fun, val arg);