From 93b8e741fcf0b4349653000eca67ffb8f8c95d01 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 5 Dec 2014 19:14:12 -0800 Subject: * lib.c (set_diff): Bugfix: use member rather than find, so that a nil set element is handled properly. --- ChangeLog | 5 +++++ lib.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 493645d3..766378f7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-12-05 Kaz Kylheku + + * lib.c (set_diff): Bugfix: use member rather than find, + so that a nil set element is handled properly. + 2014-12-05 Kaz Kylheku * Makefile (INSTALL): Bugfix: touch -r $(2) does not work diff --git a/lib.c b/lib.c index aba04b39..82eb4755 100644 --- a/lib.c +++ b/lib.c @@ -5998,7 +5998,7 @@ val set_diff(val list1, val list2, val testfun, val keyfun) val item = car(list1); val list1_key = funcall1(keyfun, item); - if (!find(list1_key, list2, testfun, keyfun)) + if (!member(list1_key, list2, testfun, keyfun)) ptail = list_collect(ptail, item); } } -- cgit v1.2.3