summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--match.c3
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 633eaecd..20896801 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2014-10-16 Kaz Kylheku <kaz@kylheku.com>
+ * match.c (dest_bind): More detailed log message for variable
+ mismatch.
+
+2014-10-16 Kaz Kylheku <kaz@kylheku.com>
+
New @(line) and @(chr) directives.
* match.c (line_s): New variable.
diff --git a/match.c b/match.c
index 44779f61..fff9180b 100644
--- a/match.c
+++ b/match.c
@@ -286,7 +286,8 @@ static val dest_bind(val spec, val bindings, val pattern,
return bindings;
if (tree_find(cdr(existing), value, testfun))
return bindings;
- debuglf(spec, lit("bind variable mismatch: ~a"), pattern, nao);
+ debuglf(spec, lit("variable ~a binding mismatch (~s vs. ~s)"),
+ pattern, cdr(existing), value, nao);
return t;
}
return cons(cons(pattern, value), bindings);