From e1841e6982a68ec90fc7c80901a98a66f21318b3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 24 Nov 2011 22:43:52 -0800
Subject: * 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.
---
 tests/008/soundex.txr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/008/soundex.txr')

diff --git a/tests/008/soundex.txr b/tests/008/soundex.txr
index d01fb76d..b192bb62 100644
--- a/tests/008/soundex.txr
+++ b/tests/008/soundex.txr
@@ -56,7 +56,7 @@
 @###
 @# process arguments and list soundex codes
 @###
-@(collect :vars ())
+@(collect :vars (input))
 @input
 @  (output :filter (:fun soundex))
 @input
-- 
cgit v1.2.3