X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fhairpin.cc;h=c757f4ce1e645facc3dc3761c6a85a6ca23f53c7;hb=1753b1a73742a5b0893037116bb6f2febba277f3;hp=ba4427a6eec58666c33dc81e7d49a7485a9cd3ec;hpb=5320f6d196dd67186178adcb6e5debdbbec8aee8;p=lilypond.git

diff --git a/lily/hairpin.cc b/lily/hairpin.cc
index ba4427a6ee..c757f4ce1e 100644
--- a/lily/hairpin.cc
+++ b/lily/hairpin.cc
@@ -27,7 +27,7 @@ Hairpin::brew_molecule (SCM smob)
   Real line = me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));  
   
   SCM s = me->get_grob_property ("grow-direction");
-  if (!ly_dir_p (s))
+  if (!is_direction (s))
     {
       me->suicide ();
       return SCM_EOL;