From 0fc0b8849ec8f7e72cff64a7468c1c7eba6e983e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 17 Jul 2017 06:44:25 -0700 Subject: 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. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') 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); -- cgit v1.2.3