resume
				(lambda (yield)
				  (let loop ((count 0))
				    (when (&lt; count 5)
				      (yield (* 2 count))
				      (loop (1+ count)))))
				(lambda (val)
				  (display val)
				  (newline)))
	  (g-main-loop-quit main-loop)))
(g-main-loop-run main-loop)
</pre></div>
</dd></dl>

<dl class="def">
<dt id="index-await_002dglib_002dtimeout"><span class="category">Scheme Procedure: </span><span><strong>await-glib-timeout</strong> <em>await resume msecs thunk</em><a href='#index-await_002dglib_002dtimeout