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

diff --git a/stream.h b/stream.h
index a65954ba..14208f7a 100644
--- a/stream.h
+++ b/stream.h
@@ -35,6 +35,7 @@ val get_string_from_stream(val);
 val make_strlist_output_stream(void);
 val get_list_from_stream(val);
 val make_dir_stream(DIR *);
+val streamp(val obj);
 val close_stream(val stream, val throw_on_error);
 val get_line(val);
 val get_char(val);