X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fdrum-note-engraver.cc;h=f4491965ad3d695a5297d6260d698dd5615212ac;hb=2536405e9584f63d559653183971c0fec57ba037;hp=c66846137cd92aca52475a9af312ce9ed294b410;hpb=a033b0430d27807f0f7617381d2f021a495b1a58;p=lilypond.git

diff --git a/lily/drum-note-engraver.cc b/lily/drum-note-engraver.cc
index c66846137c..f4491965ad 100644
--- a/lily/drum-note-engraver.cc
+++ b/lily/drum-note-engraver.cc
@@ -90,9 +90,9 @@ Drum_notes_engraver::process_music ()
       
       if (scm_is_pair (defn))
 	{
-	  SCM pos = scm_caddr (defn);
-	  SCM style =scm_car (defn);
-	  SCM script = scm_cadr (defn);
+	  SCM pos = ly_caddr (defn);
+	  SCM style =ly_car (defn);
+	  SCM script = ly_cadr (defn);
 	  
 	  if (scm_integer_p (pos) == SCM_BOOL_T)
 	    note->set_property ("staff-position", pos);