9 lines
357 B
Scheme
9 lines
357 B
Scheme
|
(define (g-main-loop-new context is-running)
|
||
|
|
((foreign-procedure "g_main_loop_new" (void* boolean) void*) context is-running))
|
||
|
|
(define (g-main-loop-run loop)
|
||
|
|
((foreign-procedure "g_main_loop_run" (void*) void) loop))
|
||
|
|
(define (g-main-loop-quit loop)
|
||
|
|
((foreign-procedure "g_main_loop_quit" (void*) void) loop))
|
||
|
|
|
||
|
|
(load-shared-object "libglib-2.0.so"))
|