New function: identity*

An version of identity with lax argument conventions.

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

* lib.c (identity_star_f): New symbol variable.
(identity_star): New function.
(obj_init): gc-protect identity_star_f variable, and
initialize it.

* lib.h (identity_star_f): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 27ae3a20..4ac4f3b1 100644
--- a/lib.h
+++ b/lib.h
@@ -516,7 +516,8 @@ extern val nothrow_k, args_k, colon_k, auto_k, fun_k;
 extern val null_string;
 extern val null_list; /* (nil) */
 
-extern val identity_f, equal_f, eql_f, eq_f, car_f, cdr_f, null_f;
+extern val identity_f, identity_star_f;
+extern val equal_f, eql_f, eq_f, car_f, cdr_f, null_f;
 extern val list_f, less_f, greater_f;
 
 extern val prog_string;