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, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 7edb9eb2..d3e814ad 100644
--- a/eval.h
+++ b/eval.h
@@ -34,6 +34,7 @@ noreturn val eval_error(val ctx, val fmt, ...);
 val ctx_form(val obj);
 val ctx_name(val obj);
 val lookup_origin(val form);
+val set_last_form_evaled(val form);
 void error_trace(val exsym, val exvals, val out_stream, val prefix);
 val make_env(val fbindings, val vbindings, val up_env);
 val copy_env(val oenv);