From 894aec019d3ce82f861a5777236ac079c2f2388d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 25 Dec 2011 00:42:19 -0800 Subject: * eval.c (eval_init): New function interned. * lib.c:x (lazy_flatten_scan, lazy_flatten_func): New static functions. (lazy_flatten): New function. * lib.h (lazy_flatten): Declared. * match.c (v_next): Use lazy_flatten instead of flatten for processing a :list source. This means that @(next :list ...) can be used to process infinite lazy lists. * txr.1: Documented lazy-flatten. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 4bef95a0..6b3bf0a9 100644 --- a/lib.h +++ b/lib.h @@ -333,6 +333,7 @@ val nappend2(val list1, val list2); val appendv(val lists); val ldiff(val list1, val list2); val flatten(val list); +val lazy_flatten(val list); val memq(val obj, val list); val memql(val obj, val list); val memqual(val obj, val list); -- cgit v1.2.3