-
-/*
- STUBS
-*/
-void
-Translator_group::stop_translation_timestep ()
-{
- each (&Translator::pre_move_processing);
-}
-
-void
-Translator_group::start_translation_timestep ()
-{
- each (&Translator::post_move_processing);
-}
-
-void
-Translator_group::do_announces ()
-{
- each (&Translator::announces);
-}
-
-void
-Translator_group::initialize ()
-{
- each (&Translator::initialize);
-}
-
-void
-Translator_group::finalize ()
-{
- each (&Translator::removal_processing);
-}
-
-
-bool
-type_check_assignment (SCM val, SCM sym, SCM type_symbol)
-{
- bool ok = true;
- SCM type_p = SCM_EOL;
-
- if (gh_symbol_p (sym))
- type_p = scm_object_property (sym, type_symbol);
-
- if (type_p != SCM_EOL && !gh_procedure_p (type_p))
- {
- warning (_f ("Can't find property type-check for `%s'. Perhaps you made a typing error?",
- ly_symbol2string (sym).ch_C ()));
- }
- else