From 3830cf321258321719865709081a709c97fd4e0a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 22 Feb 2020 00:53:12 -0800
Subject: 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.
---
 lib.c | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'lib.c')

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)
-- 
cgit v1.2.3