From ae05e0eeea47c2d396cf194b2bda85754505251f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 9 Oct 2011 20:46:41 -0700 Subject: * match.c (vars_to_bindings): Regression fix: recent commit caused test failure. An empty list not treated as a valid collect variable list. --- ChangeLog | 6 ++++++ match.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 28802fce..f59cdbef 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2011-10-09 Kaz Kylheku + + * match.c (vars_to_bindings): Regression fix: recent commit + caused test failure. An empty list not treated as a valid collect + variable list. + 2011-10-09 Kaz Kylheku * configure: Fixed indentation. 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)) { -- cgit v1.2.3