ort)
					(apply throw args))))
				  loop)
	     (let next ((res (await)))
	       (if (eq? res 'more)
		   (next (await))
		   (begin
		     (event-loop-remove-write-watch! fd loop)
		     (release-port-handle port)
		     res))))
	   #t)))))
</pre></div>
</dd></dl>

<dl class="def">
<dt id="index-await_002dput_002dbytevector_0021"><span class="category">Scheme Procedure: </span><span><strong>await-put-bytevector!</strong> <em>await resume [loop] port bv</em><a href='#index-await_002dput_002dbytevector_00