* stream.c (make_stdio_stream_common): Initialize new

mode member of struct stdio_ops to nil.

2 files changed, 6 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index d6266302..de4a6333 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2013-11-28  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (make_stdio_stream_common): Initialize new
+	mode member of struct stdio_ops to nil.
+
+2013-11-28  Kaz Kylheku  <kaz@kylheku.com>
+
 	* stream.c (struct stdio_handle): New member, mode.
 	(stdio_stream_mark): Mark the new member during gc.
 	(stdio_seek): When we seek, we should reset the utf8 machine.
diff --git a/stream.c b/stream.c
index c90d4c18..41876d85 100644
--- a/stream.c
+++ b/stream.c
@@ -873,6 +873,7 @@ static val make_stdio_stream_common(FILE *f, val descr, struct cobj_ops *ops)
   val stream = cobj((mem_t *) h, stream_s, ops);
   h->f = f;
   h->descr = descr;
+  h->mode = nil;
   utf8_decoder_init(&h->ud);
   h->pid = 0;
   return stream;