diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-02-05 07:20:14 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-02-05 07:20:14 -0800 |
commit | b15b71016f255e91e6663a22ab61719330246c87 (patch) | |
tree | f61c2b9c44591ef81f761eebe7912c968377b355 | |
parent | 89e1929a51f5f8f150e105936603429c88edeb94 (diff) | |
download | txr-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.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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; } } |