* mf/GNUmakefile: always trace pfa fonts.

[lilypond.git] / lily / script-engraver.cc

diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc
index a8e21b965373d0d629c666d4aafed00758cd50b6..4a55c1e634c4265155dbe012237aecb24e151ce7 100644 (file)
--- a/lily/script-engraver.cc
+++ b/lily/script-engraver.cc
@@ -1,7 +1,7 @@
 /*
   script-engraver.cc -- implement Script_engraver
 
-  (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "script.hh"
@@ -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);