The identity function gets an alias: use.

* eval.c (eval_init): Register "use" as alias for identity.

* txr.1: Documented use function.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 0cd8087d..43b49bb2 100644
--- a/eval.c
+++ b/eval.c
@@ -4674,6 +4674,7 @@ void eval_init(void)
   reg_fun(list_s, list_f);
   reg_fun(intern(lit("list*"), user_package), func_n0v(list_star_intrinsic));
   reg_fun(identity_s, identity_f);
+  reg_fun(intern(lit("use"), user_package), identity_f);
   reg_fun(intern(lit("typeof"), user_package), func_n1(typeof));
   reg_fun(intern(lit("subtypep"), user_package), func_n2(subtypep));
   reg_fun(intern(lit("typep"), user_package), func_n2(typep));