;; call message loop (define gst-main-loop (lambda () (_gst_main_loop_call) (callback (+ (now) 2000) 'gst-main-loop)))