diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-11-09 13:05:48 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-11-09 13:05:48 -0800 |
commit | 4e26a4cb5c396d2714f326c165a4c3bd7a5a3726 (patch) | |
tree | 3648e0ee91f1b85828774809991b5643bc31eb04 /match.c | |
parent | d12b107c5a4bbd912769ebd0d53081de5caf9571 (diff) | |
download | txr-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |