* lib.c (getplist_f): New function.

* lib.h (getplist_f): Declared.

* match.c (v_collect, h_coll): Use getplist_f to distinguish
the case that :vars is explicitly specified as (). In this
case, no bindings escape from the collect.

* tests/008/soundex.txr: This test case broke due to using
:vars () and yet counting on the variable to exist.

* RELNOTES: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 4ad5e7a0..e6677a51 100644
--- a/lib.h
+++ b/lib.h
@@ -315,6 +315,7 @@ val listp(val obj);
 val proper_listp(val obj);
 val length(val list);
 val getplist(val list, val key);
+val getplist_f(val list, val key, val *found);
 val proper_plist_to_alist(val list);
 val improper_plist_to_alist(val list, val boolean_keys);
 val num(cnum val);