1 files changed, 8 insertions, 3 deletions

diff --git a/stream.c b/stream.c
index 240db1eb..6e85012f 100644
--- a/stream.c
+++ b/stream.c
@@ -83,9 +83,10 @@ void strm_base_mark(struct strm_base *s)
   (void) s;
 }
 
-void stream_print_op(val stream, val out)
+void stream_print_op(val stream, val out, val pretty)
 {
   val name = stream_get_prop(stream, name_k);
+  (void) pretty;
   format(out, lit("#<~a ~p>"), name, stream, nao);
 }
 
@@ -303,12 +304,14 @@ struct stdio_handle {
   unsigned is_real_time;
 };
 
-static void stdio_stream_print(val stream, val out)
+static void stdio_stream_print(val stream, val out, val pretty)
 {
   struct stdio_handle *h = coerce(struct stdio_handle *, stream->co.handle);
   struct strm_ops *ops = coerce(struct strm_ops *, stream->co.ops);
   val name = static_str(ops->name);
 
+  (void) pretty;
+
   if (h->pid)
     format(out, lit("#<~a ~s ~s ~p>"), name, h->descr, num(h->pid), stream, nao);
   else
@@ -1693,12 +1696,14 @@ struct cat_strm {
   val streams;
 };
 
-static void cat_stream_print(val stream, val out)
+static void cat_stream_print(val stream, val out, val pretty)
 {
   struct cat_strm *s = coerce(struct cat_strm *, stream->co.handle);
   struct strm_ops *ops = coerce(struct strm_ops *, stream->co.ops);
   val name = static_str(ops->name);
 
+  (void) pretty;
+
   format(out, lit("#<~a ~s>"), name, s->streams, nao);
 }