Improved printing of stream objects.

* stream.c (null_stream_print): Static function removed.
(stream_print_op): New function. Prints stream's name and address.
(null_get_prop): Pull stream name from strm_ops structure
rather than hard-coding to "null-stream".
(null_ops, stdio_ops, tail_ops, pipe_ops, string_in_ops,
byte_in_ops, string_out_ops, strlist_out_ops, dir_ops,
cat_stream_ops): Use stream_print_op in place of cobj_print_op.
Initialize name.
(stdio_stream_print): Use name from ops structure,
and include object address.
(string_in_get_prop): Likewise.
(cat_stream_print): Likewise.

* stream.h (struct strm_ops): New member, name.
(strm_ops_init): Initialize name.
(stream_print_op): Declared.

* syslog.c (syslog_strm_ops): Use stream_print_op. Initialize name.

1 files changed, 2 insertions, 1 deletions

diff --git a/syslog.c b/syslog.c
index cfc24cb8..4a603d2e 100644
--- a/syslog.c
+++ b/syslog.c
@@ -204,10 +204,11 @@ static val syslog_set_prop(val stream, val ind, val prop)
 
 static struct strm_ops syslog_strm_ops =
   strm_ops_init(cobj_ops_init(eq,
-                              cobj_print_op,
+                              stream_print_op,
                               cobj_destroy_stub_op,
                               syslog_mark,
                               cobj_hash_op),
+                wli("syslog-stream"),
                 syslog_put_string,
                 syslog_put_char,
                 syslog_put_byte,