patch::: 1.3.95.tca2

[lilypond.git] / lily / grace-align-item.cc

diff --git a/lily/grace-align-item.cc b/lily/grace-align-item.cc
index d58bd8e7b3c4192dddd7b733438b616b45ef83c9..f18b7d03550642ed79b697ca728585c1106d0889 100644 (file)
--- a/lily/grace-align-item.cc
+++ b/lily/grace-align-item.cc
@@ -13,18 +13,16 @@
 #include "paper-column.hh"
 #include "paper-def.hh"
 
-MAKE_SCHEME_CALLBACK(Grace_align_item,before_line_breaking);
+MAKE_SCHEME_CALLBACK(Grace_align_item,before_line_breaking,1);
 SCM
 Grace_align_item::before_line_breaking (SCM smob)
 {
   Score_element*me = unsmob_element (smob);
 
   SCM space = me->get_elt_property ("horizontal-space");
-  Real ss = me->paper_l ()->get_var ("staffspace");
-  
   me->set_elt_property ("threshold",
-                   gh_cons (gh_double2scm (ss  *gh_scm2double (space)),
-                            gh_double2scm (infinity_f)));
+                       gh_cons (space,
+                                gh_double2scm (infinity_f)));
   dynamic_cast<Item*>(me)->column_l ()->set_elt_property ("contains-grace", SCM_BOOL_T);
 
   return SCM_UNSPECIFIED;