From facdfbaf35edae7afb51f6c3dc4d5baa119ea605 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 14 Jul 2014 07:07:48 -0700 Subject: * eval.c (eval_init): Register interpose and lconsp as intrinsics. * lib.c (lconsp, interpose): New functions. (lazy_interpose_func, lazy_interpose): New static functions. * lib.h (lconsp, interpose): Declared. * txr.1: Documented lconsp and interpose. --- lib.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index a20382da..81fea9b8 100644 --- a/lib.h +++ b/lib.h @@ -480,6 +480,7 @@ val make_half_lazy_cons(val func, val car); val lcons_fun(val lcons); val list(val first, ...); /* terminated by nao */ val consp(val obj); +val lconsp(val obj); val atom(val obj); val listp(val obj); val proper_listp(val obj); @@ -741,6 +742,7 @@ val mapcar_listout(val fun, val list); val mapcar(val fun, val list); val mapcon(val fun, val list); val mappend(val fun, val list); +val interpose(val sep, val seq); val merge(val list1, val list2, val lessfun, val keyfun); val sort(val seq, val lessfun, val keyfun); val multi_sort(val lists, val funcs, val key_funcs); -- cgit v1.2.3