only call profile-measurements when appropriate.

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

diff --git a/lily/key-performer.cc b/lily/key-performer.cc
index 9bb8b11a48edcabdfbb3330ebb24d85a2f60bee0..762e8c48086269c86739ef92db2c878ee012c1ea 100644 (file)
--- a/lily/key-performer.cc
+++ b/lily/key-performer.cc
@@ -52,7 +52,7 @@ Key_performer::process_music ()
 
       Pitch key_do (0,
                    scm_to_int (scm_caar (pitchlist)),
-                   scm_to_int (scm_cdar (pitchlist)));
+                   ly_scm2rational (scm_cdar (pitchlist)));
 
       Pitch c_do (0, 0, 0);