lib: new function, relate.

* eval.c (eval_init): Register new intrinsic relate.

* lib.c (do_relate, do_relate_dfl): New static functions.
(relate): New function.

* lib.h (relate): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 63771912..a9024443 100644
--- a/lib.h
+++ b/lib.h
@@ -1043,6 +1043,7 @@ val search(val seq, val key, val from, val to);
 val rsearch(val seq, val key, val from, val to);
 val where(val func, val seq);
 val sel(val seq, val where);
+val relate(val domain_seq, val range_seq, val dfl_val);
 val rcons(val from, val to);
 val rangep(val obj);
 val from(val range);