diff options
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | match.c | 3 |
2 files changed, 7 insertions, 1 deletions
@@ -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. @@ -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); |