-
-/*
- internally called once, statically, for each translator
- listener. Connects the name of an event class with a procedure that
- fetches the corresponding listener.
-
- The method should only be called from the macro
- IMPLEMENT_TRANSLATOR_LISTENER.
- */
-void
-Translator::add_translator_listener (translator_listener_record **listener_list,
- translator_listener_record *r,
- Listener (*get_listener) (void *, SCM),
- const char *ev_class)