*** empty log message ***

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

diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index e856460f7987fc77ecd89b6427fc7dca5dadc9bc..2b1142fa9ba1011075b98fce9172c5b822071ad0 100644 (file)
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -156,7 +156,7 @@ Key_engraver::read_ev (Music const * r)
     }
   
   for (SCM s = n ; ly_c_pair_p (s); s = ly_cdr (s))
-    if (ly_scm2int (ly_cdar (s)))
+    if (scm_to_int (ly_cdar (s)))
       accs = scm_cons (ly_car (s), accs);
 
   context ()->set_property ("keySignature", accs);