X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscript-engraver.cc;h=4a55c1e634c4265155dbe012237aecb24e151ce7;hb=1753b1a73742a5b0893037116bb6f2febba277f3;hp=74df559d3bd7145f3e94c7f7b205df8c40b153e5;hpb=5320f6d196dd67186178adcb6e5debdbbec8aee8;p=lilypond.git

diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc
index 74df559d3b..4a55c1e634 100644
--- a/lily/script-engraver.cc
+++ b/lily/script-engraver.cc
@@ -97,7 +97,7 @@ Grob *make_script_from_event (SCM * descr, Translator_group*tg, Music * event,
   *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);