summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-02-05 07:20:14 -0800
committerKaz Kylheku <kaz@kylheku.com>2017-02-05 07:20:14 -0800
commitb15b71016f255e91e6663a22ab61719330246c87 (patch)
treef61c2b9c44591ef81f761eebe7912c968377b355
parent89e1929a51f5f8f150e105936603429c88edeb94 (diff)
downloadtxr-b15b71016f255e91e6663a22ab61719330246c87.tar.gz
txr-b15b71016f255e91e6663a22ab61719330246c87.tar.bz2
txr-b15b71016f255e91e6663a22ab61719330246c87.zip
bugfix: incorrect keepql due to spurious statement.
* lib.c (keepql): Remove repeated list_collect_nconc call.
-rw-r--r--lib.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 9c3a700c..11f9b520 100644
--- a/lib.c
+++ b/lib.c
@@ -1644,7 +1644,6 @@ val keepql(val obj, val list_orig, val key)
for (; list; list = cdr(list)) {
if (!eql(funcall1(key, car(list)), obj)) {
ptail = list_collect_nconc(ptail, ldiff(cdr(lastmatch), list));
- ptail = list_collect_nconc(ptail, ldiff(cdr(lastmatch), list));
lastmatch = list;
}
}