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/lib.h b/lib.h
index d54ac735..76e2f143 100644
--- a/lib.h
+++ b/lib.h
@@ -658,6 +658,9 @@ val none_satisfy(val list, val pred, val key);
 val multi(val func, struct args *lists);
 val eql(val left, val right);
 val equal(val left, val right);
+val meq(val item, varg args);
+val meql(val item, varg args);
+val mequal(val item, varg args);
 mem_t *chk_malloc(size_t size);
 mem_t *chk_malloc_gc_more(size_t size);
 mem_t *chk_calloc(size_t n, size_t size);