* eval.c (eval_init): Register streamp, real_time_stream_p,

stream_get_prop and stream_set_prop as intrinsics.

* stream.c (stream_get_prop): New function.

* stream.h (stream_get_prop): Declared.

* syslog.c (syslog_get_prop): Bugfix: check for prio_k not real_time_k.

* txr.1: Updated.

1 files changed, 4 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 2184ffc3..6f99308a 100644
--- a/eval.c
+++ b/eval.c
@@ -2385,7 +2385,10 @@ void eval_init(void)
   reg_fun(intern(lit("flush-stream"), user_package), func_n1(flush_stream));
   reg_fun(intern(lit("seek-stream"), user_package), func_n3(seek_stream));
   reg_fun(intern(lit("stat"), user_package), func_n1(statf));
-
+  reg_fun(intern(lit("streamp"), user_package), func_n1(streamp));
+  reg_fun(intern(lit("real-time-stream-p"), user_package), func_n1(real_time_stream_p));
+  reg_fun(intern(lit("stream-set-prop"), user_package), func_n3(stream_set_prop));
+  reg_fun(intern(lit("stream-get-prop"), user_package), func_n2(stream_get_prop));
   reg_var(intern(lit("s-ifmt"), user_package), &s_ifmt);
   reg_var(intern(lit("s-iflnk"), user_package), &s_iflnk);
   reg_var(intern(lit("s-ifreg"), user_package), &s_ifreg);