* match.c (vars_to_bindings): Regression fix: recent commit

caused test failure. An empty list not treated as a valid collect
variable list.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index 615b5f38..3451a435 100644
--- a/match.c
+++ b/match.c
@@ -292,7 +292,7 @@ static val vars_to_bindings(val lineno, val vars, val bindings)
   val iter;
   list_collect_decl (fixed_vars, tail);
 
-  if (!consp(vars)) 
+  if (vars && !consp(vars)) 
     sem_error(lineno, lit("not a valid variable list: ~a"), vars, nao);
 
   for (iter = vars; iter; iter = cdr(iter)) {