* scm/grob-description.scm (all-grob-descriptions): set

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

diff --git a/lily/clef-engraver.cc b/lily/clef-engraver.cc
index b36fc2dc8aba81cd337d54b71a8c7af98ce1796d..e7b4dfa94ed9bbf51a0cc9efe3de4ef8c19e2577 100644 (file)
--- a/lily/clef-engraver.cc
+++ b/lily/clef-engraver.cc
@@ -111,7 +111,7 @@ Clef_engraver::create_clef ()
       g->set_parent (clef_, Y_AXIS);
       g->set_parent (clef_, X_AXIS);
 
-      g->set_grob_property ("direction", gh_int2scm (sign (gh_scm2int (oct))));
+      g->set_grob_property ("direction", scm_int2num (sign (gh_scm2int (oct))));
       octavate_ = g;
       announce_grob(octavate_, SCM_EOL);
     }