(module mylib mzscheme
  (require (lib "foreign.ss"))
  (unsafe!)

  (provide
   add-foo-callback
   notify-once
   notify-n-times
   )

  (define mylib-lib (ffi-lib "mylib"))

  (define _foo-callback (_fun _pointer -> _bool))

  (define add-foo-callback (get-ffi-obj "add_foo_callback" mylib-lib
                                        (_fun _foo-callback -> _void)))

  (define notify-once (get-ffi-obj "notify_once" mylib-lib
                                   (_fun -> _void)))

  (define notify-n-times (get-ffi-obj "notify_n_times" mylib-lib
                                      (_fun _int -> _void))))