* stream.c (put_byte): Bugfix: was checking whether the put_char

virtual function is not null, rather than put_byte.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 7ef91d5c..e7cf8b04 100644
--- a/stream.c
+++ b/stream.c
@@ -1777,7 +1777,7 @@ val put_byte(val byte, val stream)
 
   {
     struct strm_ops *ops = (struct strm_ops *) stream->co.ops;
-    return ops->put_char ? ops->put_byte(stream, b) : nil;
+    return ops->put_byte ? ops->put_byte(stream, b) : nil;
   }
 }