agate out of g-main-loop-run.
</p>
<p>As an example of how to use a-sync-glib-read-watch, here is the
implementation of await-glib-getline:
</p><div class="example">
<pre class="example">(define (await-glib-getline await resume port)
  (define chunk-size 128)
  (define text (make-bytevector chunk-size))
  (define text-len 0)
  (define (append-byte! u8)
    (when (= text-len (bytevector-length text))
      (let ((tmp text))
	(set! text (make-bytevector (+ text-len chunk-size)))
	(bytevector-copy! tmp 0 text 