Broken pipe handling in server

client.janet

(with [conn (net/connect "127.0.0.1" "8000")]
  (printf "Connected to %q!" conn)
  (:write conn "Echo...")
  (print "Wrote to connection...")
  (def res (:read conn 1024))
  (print "client done")
  (pp res))

repro

#!/bin/bash

# Start server
janet server.janet &
SERVER_PID=$!

sleep 1

# Start client
janet client.janet &
CLIENT_PID=$!

# Wait a bit, and then kill client before it completes to trigger broken pipe.
sleep 0.5
kill -SIGINT $CLIENT_PID

wait $SERVER_PID
echo "Done"

server.janet

(net/server
  "127.0.0.1" "8000"
  (fn handler
    [stream]
    (defer (:close stream)
      (def b @"")
      (while (:read stream 1024 b)
        (for i 0 5
          (os/sleep 2)
          (print "write return value " i ": " (:write stream b))))
      (os/exit 0))))