* match.c (h_fun, v_fun): Slightly more informative tracing from failed

function calls.

2 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 8ba8382f..a7453262 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2011-11-09  Kaz Kylheku  <kaz@kylheku.com>
 
+	* match.c (h_fun, v_fun): Slightly more informative tracing from failed
+	function calls.
+
+2011-11-09  Kaz Kylheku  <kaz@kylheku.com>
+
 	* txr.vim: Missing coll keyword added.
 
 2011-11-08  Kaz Kylheku  <kaz@kylheku.com>
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;
       }