From bb043799e946ad141d3012fdd5b247dfa812efc5 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 16 Oct 2014 07:39:46 -0700
Subject: * match.c (dest_bind): More detailed log message for variable
 mismatch.

---
 match.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'match.c')

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);
-- 
cgit v1.2.3