gc bugs: more instances of wrong mutations.

* socket.c (dgram_set_sock_peer): Assign to struct
dgram_stream using using set macro.

* stream.c (stdio_set_sock_peer): Assign to struct
stdio_handle peer using set macro.

1 files changed, 1 insertions, 1 deletions

diff --git a/socket.c b/socket.c
index 4e56334a..ab6b4e6c 100644
--- a/socket.c
+++ b/socket.c
@@ -564,7 +564,7 @@ static val dgram_set_sock_peer(val stream, val peer)
 {
   struct dgram_stream *d = coerce(struct dgram_stream *, stream->co.handle);
   sockaddr_in(peer, d->family, &d->peer_addr, &d->pa_len);
-  return d->peer = peer;
+  return set(mkloc(d->peer, stream), peer);
 }
 
 static_def(struct strm_ops dgram_strm_ops =