rary all write exceptions will propagate in the first
instance out of this procedure so that they may be caught locally, say
by putting a catch expression around the call to this procedure.
</p>
<p>Here is how EPIPE might be tested for:
</p><div class="example">
<pre class="example">(set-default-event-loop!) ;; if none has yet been set
(a-sync (lambda (await resume)
	  (catch 'c-write-error
		 (lambda ()
		   (await-put-string! await resume port &quot;test&quot;))
		 (lambda (key . args)
		   (if (and (&gt;