SCM lst = get_property ("finalizations");
set_property ("finalizations", SCM_EOL);
for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
-
- /* TODO: make safe. */
- scm_primitive_eval (scm_car (s));
+ scm_apply_0 (scm_caar (s), scm_cdar (s));
}
/* Add a function to execute before stepping to the next time step. */
if (once)
{
Global_context *tg = get_outlet ()->get_global_context ();
- tg->add_finalization (scm_list_n (once_finalization_proc,
+ tg->add_finalization (scm_list_4 (once_finalization_proc,
o->self_scm (), m->self_scm (),
- ly_quote_scm (previous_value), SCM_UNDEFINED));
+ previous_value));
}
Simple_music_iterator::process (mom);
SCM music = get_music ()->self_scm ();
Global_context *tg = get_outlet ()->get_global_context ();
- tg->add_finalization (scm_list_n (once_finalization_proc,
- trans, music, SCM_UNDEFINED));
+ tg->add_finalization (scm_list_3 (once_finalization_proc,
+ trans, music));
}
}