Adding mismatch function.

* eval.c (eval_init): Register mismatch intrinsic.

* lib.c (mismatch): New function.

* lib.c (mismatch): Declared.

* txr.1: Documented mismatch.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 3ebc5c22..79af8aad 100644
--- a/lib.h
+++ b/lib.h
@@ -961,6 +961,7 @@ val pos_if(val pred, val list, val key);
 val rpos_if(val pred, val list, val key);
 val pos_max(val seq, val testfun, val keyfun);
 val pos_min(val seq, val testfun, val keyfun);
+val mismatch(val left, val right, val testfun, val keyfun);
 val take(val count, val seq);
 val take_while(val pred, val seq, val keyfun);
 val take_until(val pred, val seq, val keyfun);