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

[lilypond.git] / lily / accidental.cc

diff --git a/lily/accidental.cc b/lily/accidental.cc
index 658be717d5d25d8d435e64ab7a2d98956128ccd0..9d1ad1a34ef1a6c740fcf6d9b2d09f28f1a74d4b 100644 (file)
--- a/lily/accidental.cc
+++ b/lily/accidental.cc
@@ -132,7 +132,7 @@ Accidental_interface::brew_molecule (SCM smob)
       SCM ac = Font_interface::font_alist_chain (me);
       ac = gh_cons (gh_cons (gh_cons
                             (ly_symbol2scm ("font-relative-size"),
-                             gh_int2scm (-1)), SCM_EOL),
+                             scm_int2num (-1)), SCM_EOL),
                    ac);
       fm = Font_interface::get_font (me, ac);
     }