* match.c (dest_bind): More detailed log message for variable

mismatch.

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);