summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-11-09 13:05:48 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-11-09 13:05:48 -0800
commit4e26a4cb5c396d2714f326c165a4c3bd7a5a3726 (patch)
tree3648e0ee91f1b85828774809991b5643bc31eb04 /match.c
parentd12b107c5a4bbd912769ebd0d53081de5caf9571 (diff)
downloadtxr-4e26a4cb5c396d2714f326c165a4c3bd7a5a3726.tar.gz
txr-4e26a4cb5c396d2714f326c165a4c3bd7a5a3726.tar.bz2
txr-4e26a4cb5c396d2714f326c165a4c3bd7a5a3726.zip
* match.c (h_fun, v_fun): Slightly more informative tracing from failed
function calls.
Diffstat (limited to 'match.c')
-rw-r--r--match.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/match.c b/match.c
index d7336f97..3e8a4375 100644
--- a/match.c
+++ b/match.c
@@ -946,7 +946,7 @@ static val h_fun(match_line_ctx c, match_line_ctx *cout)
uw_block_end;
if (!result) {
- debuglf(c.spec_lineno, lit("function failed"), nao);
+ debuglf(c.spec_lineno, lit("function (~s ~s) failed"), sym, args, nao);
return nil;
}
@@ -2868,7 +2868,7 @@ static val v_fun(match_files_ctx *c)
uw_block_end;
if (!result) {
- debuglf(spec_linenum, lit("function failed"), nao);
+ debuglf(spec_linenum, lit("function (~s ~s) failed"), sym, args, nao);
return nil;
}