New functions: meq, meql and mequal.

* eval.c (eval_init): Register meq, meql an mequal intrinsics.

* lib.c (meq, meql, mequal): New functions.

* lib.h (meq, meql, mequal): Declared.

* txr.1: Documented.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index c43dcb32..6cf58fcb 100644
--- a/eval.c
+++ b/eval.c
@@ -6554,6 +6554,9 @@ void eval_init(void)
   reg_fun(eq_s, eq_f);
   reg_fun(eql_s, eql_f);
   reg_fun(equal_s, equal_f);
+  reg_fun(intern(lit("meq"), user_package), func_n1v(meq));
+  reg_fun(intern(lit("meql"), user_package), func_n1v(meql));
+  reg_fun(intern(lit("mequal"), user_package), func_n1v(mequal));
   reg_fun(intern(lit("neq"), user_package), func_n2(neq));
   reg_fun(intern(lit("neql"), user_package), func_n2(neql));
   reg_fun(intern(lit("nequal"), user_package), func_n2(nequal));