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

diff --git a/stream.c b/stream.c
index ac14a83c..023e8390 100644
--- a/stream.c
+++ b/stream.c
@@ -680,6 +680,11 @@ val make_dir_stream(DIR *dir)
   return cobj((mem_t *) dir, stream_s, &dir_ops.cobj_ops);
 }
 
+val streamp(val obj)
+{
+  return typeof(obj) == stream_s ? t : nil;
+}
+
 val close_stream(val stream, val throw_on_error)
 {
   type_check (stream, COBJ);