it-glib-getline:
</p><div class="example">
<pre class="example">(define main-loop (g-main-loop-new #f #f))
(a-sync (lambda (await resume)
          (display &quot;Enter a line of text at the keyboard\n&quot;)
          (simple-format #t
                         &quot;The line was: ~A\n&quot;
                         (await-glib-getline await resume
					     (open-file-input-port &quot;/dev/tty&quot; (file-options) (buffer-mode none))))
	  (g-main-loop-quit main-loop)))
(g-main-loop-run main-loop)
</pre></d