int index)
{
SCM alist = tg->get_property ("scriptDefinitions");
- SCM art = scm_assoc (event->get_mus_property ("articulation-type"), alist);
+ SCM art_type= event->get_mus_property ("articulation-type");
+ SCM art = scm_assoc (art_type, alist);
if (art == SCM_BOOL_F)
{
- String a = ly_scm2string (event->get_mus_property ("articulation-type"));
- event->origin ()->warning (_f ("Don't know how to interpret articulation `%s'", a.to_str0 ()));
+ event->origin ()->warning (_("Don't know how to interpret articulation:"));
+ event->origin ()->warning (_("Scheme encoding: "));
+ scm_write (art_type, scm_current_error_port ());
return 0 ;
}
*descr = art;
SCM force_dir = event->get_mus_property ("direction");
- if (ly_dir_p (force_dir) && to_dir (force_dir))
+ if (is_direction (force_dir) && to_dir (force_dir))
p->set_grob_property ("direction", force_dir);
copy_property (p, ly_symbol2scm ("script-molecule"), art);