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

[lilypond.git] / lily / beam-quanting.cc

diff --git a/lily/beam-quanting.cc b/lily/beam-quanting.cc
index ba6fcf3f9ca4e1e30571c6c28a99081b72357e5a..e9f992c774d7b77fc3bb4f2529b6dec5029ae516 100644 (file)
--- a/lily/beam-quanting.cc
+++ b/lily/beam-quanting.cc
@@ -235,7 +235,7 @@ Beam::quanting (SCM smob)
   // debug quanting
   me->set_grob_property ("quant-score",
                         gh_double2scm (qscores[best_idx].demerits));
-  me->set_grob_property ("best-idx", gh_int2scm (best_idx));
+  me->set_grob_property ("best-idx", scm_int2num (best_idx));
 #endif
 
   return SCM_UNSPECIFIED;