it-glib-timeout:
</p><div class="example">
<pre class="example">(define main-loop (g-main-loop-new #f #f))
(a-sync (lambda (await resume)
	  (simple-format #t
			 &quot;Timeout ~A\n&quot;
			 (await-glib-timeout await resume
					     100
					     (lambda ()
					       &quot;expired&quot;)))
	  (g-main-loop-quit main-loop)))
(g-main-loop-run main-loop)
</pre></div>
</dd></dl>

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