-static
-void call_listen_closure (void *target, SCM ev)
-{
- SCM cl = (SCM) target;
- SCM func = scm_car (cl);
- SCM engraver = scm_cdr (cl);
- scm_call_2 (func, engraver, ev);
-}
-
-static
-void mark_listen_closure (void *target)
-{
- scm_gc_mark ((SCM)target);
-}
-
-Listener_function_table listen_closure = {
- call_listen_closure, mark_listen_closure
-};
-
-/* static */
-Listener
-Scheme_engraver::get_listener (void *arg, SCM name)