e))
				      ((= u8 (char-&gt;integer #\newline))
				       (make-outstring))
				      (else
				       (append-byte! u8)
				       (if (char-ready? port)
					   (next)
					   'more)))))))
			   loop))
     (let next ((res (await)))
       (if (eq? res 'more)
	   (next (await))
	   (begin
	     (event-loop-remove-read-watch! port loop)
	     res))))))
</pre></div>
</dd></dl>

<dl class="def">
<dt id="index-await_002dgetline_0021"><span class="category">Scheme Procedure: </span><span><strong>await-getl