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

diff --git a/lily/arpeggio.cc b/lily/arpeggio.cc
index daf53c6eac..ed040e70c5 100644
--- a/lily/arpeggio.cc
+++ b/lily/arpeggio.cc
@@ -67,7 +67,7 @@ Arpeggio::brew_molecule (SCM smob)
 
   SCM ad = me->get_grob_property ("arpeggio-direction");
   Direction dir = CENTER;
-  if (ly_dir_p (ad))
+  if (is_direction (ad))
     {
       dir = to_dir (ad);
     }