- SCM tab = get_outlet()->get_property ("quotes");
- if (scm_hash_table_p (tab) != SCM_BOOL_T)
- {
- get_music ()->origin ()->warning ("Context property `quotes' unset; cannot process quote.");
- return ;
- }
-
- SCM name = get_music ()->get_mus_property ("quoted-name");
- SCM dur = get_music ()->get_mus_property ("duration");
-
- if (!unsmob_duration (dur))
- return ;
-
- set_translator (get_outlet ()->get_default_interpreter ());
-
- Moment now = get_outlet ()->now_mom ();
- Moment stop = now + unsmob_duration (dur)->get_length ();