Bugfix in printed rep of stdio stream.

* stream.c (stdio_stream_print): Wrong way test on h->pid;
if it is nonzero it must be printed. Was printed wrong:
argument of integer type passed to ~s which expects a val.

1 files changed, 3 insertions, 2 deletions

diff --git a/stream.c b/stream.c
index e0bf5bd8..5f4fcc3f 100644
--- a/stream.c
+++ b/stream.c
@@ -276,9 +276,10 @@ static void stdio_stream_print(val stream, val out)
 {
   struct stdio_handle *h = coerce(struct stdio_handle *, stream->co.handle);
   if (h->pid)
-    format(out, lit("#<~s ~s>"), stream->co.cls, h->descr, nao);
+    format(out, lit("#<~s ~s ~s>"), stream->co.cls, h->descr,
+           num(h->pid), nao);
   else
-    format(out, lit("#<~s ~s ~s>"), stream->co.cls, h->descr, h->pid, nao);
+    format(out, lit("#<~s ~s>"), stream->co.cls, h->descr, nao);
 }
 
 static void stdio_stream_destroy(val stream)