* eval.c (eval_init): Register match-fun.

* match.c (v_do): Store match context.
(match_fun): New function.

* match.h (match_fun): Declared.

* stream.c (streamp): New function.

* stream.h (streamp): Declared.

* txr.1: Stub section for match-fun.

* txr.vim: Highlight match-fun.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 4aa1019b..3375b15b 100644
--- a/eval.c
+++ b/eval.c
@@ -2228,6 +2228,8 @@ void eval_init(void)
   reg_fun(intern(lit("throwf"), user_package), func_n2v(uw_throwfv));
   reg_fun(error_s, func_n1v(uw_errorfv));
 
+  reg_fun(intern(lit("match-fun"), user_package), func_n4(match_fun));
+
   eval_error_s = intern(lit("eval-error"), user_package);
   uw_register_subtype(eval_error_s, error_s);
 }