From f5af9dd56254dd90f5985eb3e1dcbab042d72431 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 7 Oct 2011 17:54:35 -0700 Subject: * lib.c (flatten_helper): Function removed. (flatten): Recurse directly, using func_n1. --- ChangeLog | 5 +++++ lib.c | 7 +------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index c03eec78..11e76f2b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-10-07 Kaz Kylheku + + * lib.c (flatten_helper): Function removed. + (flatten): Recurse directly, using func_n1. + 2011-10-07 Kaz Kylheku * txr.1: fxed wrong word. diff --git a/lib.c b/lib.c index ed1e737a..02c08171 100644 --- a/lib.c +++ b/lib.c @@ -357,11 +357,6 @@ val ldiff(val list1, val list2) return out; } -static val flatten_helper(val env, val item) -{ - return flatten(item); -} - val memq(val obj, val list) { while (list && car(list) != obj) @@ -432,7 +427,7 @@ val flatten(val list) if (atom(list)) return cons(list, nil); - return mappend(func_f1(nil, flatten_helper), list); + return mappend(func_n1(flatten), list); } cnum c_num(val num); -- cgit v1.2.3