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

diff --git a/syslog.c b/syslog.c
index 3ae0d137..0bcd1cd3 100644
--- a/syslog.c
+++ b/syslog.c
@@ -178,7 +178,7 @@ static val syslog_put_byte(val stream, int ch)
 
 static val syslog_get_prop(val stream, val ind)
 {
-  if (ind == real_time_k) {
+  if (ind == prio_k) {
     val cell = (val) stream->co.handle;
     return car(cell);
   }