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, 27 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index ec17d81b..011da356 100644
--- a/lib.c
+++ b/lib.c
@@ -2898,6 +2898,33 @@ val equal(val left, val right)
   return nil;
 }
 
+val meq(val item, varg args)
+{
+  cnum index = 0;
+  while (args_more(args, index))
+    if (eq(item, args_get(args, &index)))
+      return t;
+  return nil;
+}
+
+val meql(val item, varg args)
+{
+  cnum index = 0;
+  while (args_more(args, index))
+    if (eql(item, args_get(args, &index)))
+      return t;
+  return nil;
+}
+
+val mequal(val item, varg args)
+{
+  cnum index = 0;
+  while (args_more(args, index))
+    if (equal(item, args_get(args, &index)))
+      return t;
+  return nil;
+}
+
 alloc_bytes_t malloc_bytes;
 
 static void oom(void)