Redundant addr in printed rep of string-input-stream.

* stream.c (string_in_get_prop): Do not format stream address
 into name; the general stream_print_op already adds that.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 4c6e3584..358c6eac 100644
--- a/stream.c
+++ b/stream.c
@@ -1573,7 +1573,7 @@ static val string_in_get_prop(val stream, val ind)
     struct string_in *s = coerce(struct string_in *, stream->co.handle);
     struct strm_ops *ops = coerce(struct strm_ops *, stream->co.ops);
     val name = static_str(ops->name);
-    return format(nil, lit("~a ~s ~p"), name, s->string, stream, nao);
+    return format(nil, lit("~a ~s"), name, s->string, nao);
   }
 
   return nil;