(bind-func gui_render_loop
(let ((stop #f))
(lambda (time:i64 delta_t:double)
(if stop
(begin
(set! stop #f)
void)
(begin
(gui_render)
(let ((next_time (+ time (convert (* 44100. delta_t)))))
(callback next_time gui_render_loop next_time delta_t)))))))