summaryrefslogtreecommitdiffstats
path: root/stream.c
diff options
context:
space:
mode:
Diffstat (limited to 'stream.c')
-rw-r--r--stream.c5
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)