* match.c (match_funcall): Set source location info for

generated function call.

2 files changed, 6 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 2533d4c0..d1a658c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2011-11-24  Kaz Kylheku  <kaz@kylheku.com>
 
+	* match.c (match_funcall): Set source location info for
+	generated function call.
+
+2011-11-24  Kaz Kylheku  <kaz@kylheku.com>
+
 	* parser.y (texts, elem): Fixed incorrect use of rl rather
 	than rlcp.  Added forgotten rlcp on result of optimize_text.
 
diff --git a/match.c b/match.c
index cc61479e..dce83a45 100644
--- a/match.c
+++ b/match.c
@@ -3212,6 +3212,7 @@ val match_funcall(val name, val arg, val other_args)
                        nao), nil);
   match_files_ctx c = mf_all(spec, nil, bindings, nil, num(0));
   (void) first_spec;
+  rlcp(car(spec), specline);
 
   val ret = v_fun(&c);