Use last-form-evaled mechanism for pattern language.

We need this now, since file system errors aren't
handled in the pattern language any more, after
the complex_open refactoring.

* eval.c (set_last_form_evaled): New function.

* eval.h (set_last_form_evaled): Declared.

* match.c (do_match_line, match_files):
Save, set up and restore last_form_evaled
via set_last_form_evaled function.

1 files changed, 7 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index c754136d..384408af 100644
--- a/eval.c
+++ b/eval.c
@@ -228,6 +228,13 @@ static val set_origin(val form, val origin)
   return form;
 }
 
+val set_last_form_evaled(val form)
+{
+  val prev = last_form_evaled;
+  last_form_evaled = form;
+  return prev;
+}
+
 void error_trace(val exsym, val exvals, val out_stream, val prefix)
 {
   val last = last_form_evaled;