From bb043799e946ad141d3012fdd5b247dfa812efc5 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 16 Oct 2014 07:39:46 -0700 Subject: * match.c (dest_bind): More detailed log message for variable mismatch. --- ChangeLog | 5 +++++ match.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 633eaecd..20896801 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-10-16 Kaz Kylheku + + * match.c (dest_bind): More detailed log message for variable + mismatch. + 2014-10-16 Kaz Kylheku New @(line) and @(chr) directives. 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