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

mismatch.

1 files changed, 2 insertions, 1 deletions

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