;; glib message loop (define glib-main-loop (lambda () (_glib_main_loop_call) (callback (+ (now) 2000) 'glib-main-loop)))