diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-02-05 07:46:48 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-02-05 07:46:48 -0800 |
| commit | b1a8da709c6fc23122cd0f1c1999688ceff27a38 (patch) | |
| tree | 994d78354ddd42da0bc0614eb6c18e7af3044283 /lib.h | |
| parent | b15b71016f255e91e6663a22ab61719330246c87 (diff) | |
| download | txr-b1a8da709c6fc23122cd0f1c1999688ceff27a38.tar.gz txr-b1a8da709c6fc23122cd0f1c1999688ceff27a38.tar.bz2 txr-b1a8da709c6fc23122cd0f1c1999688ceff27a38.zip | |
keep/remove: reduce duplication, optimize.
* lib.c (rem_impl): New static function.
(remove_if): Rewritten similarly to rem_impl.
(remq, remql, remqual, keepq, keepql, keepqual): Reduced to
wrappers around rem_impl.
(keep_if): Wrapper around remove_if with test negated.
* lib.c (remq, remql, remqual, remove_if, keepq, keepql,
keepqual, keep_if): Argument names adjusted.
Diffstat (limited to 'lib.h')
| -rw-r--r-- | lib.h | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -557,14 +557,14 @@ val member(val item, val list, val testfun, val keyfun); val rmember(val item, val list, val testfun, val keyfun); val member_if(val pred, val list, val key); val rmember_if(val pred, val list, val key); -val remq(val obj, val list, val keyfun); -val remql(val obj, val list, val keyfun); -val remqual(val obj, val list, val keyfun); -val remove_if(val pred, val list, val key); -val keepq(val obj, val list_orig, val key); -val keepql(val obj, val list_orig, val key); -val keepqual(val obj, val list_orig, val key); -val keep_if(val pred, val list, val key); +val remq(val obj, val seq, val keyfun); +val remql(val obj, val seq, val keyfun); +val remqual(val obj, val seq, val keyfun); +val remove_if(val pred, val seq, val keyfun); +val keepq(val obj, val seq, val keyfun); +val keepql(val obj, val seq, val keyfun); +val keepqual(val obj, val seq, val keyfun); +val keep_if(val pred, val seq, val keyfun); val remq_lazy(val obj, val list); val remql_lazy(val obj, val list); val remqual_lazy(val obj, val list); |