release: 1.3.4

[lilypond.git] / lily / staff-bar.cc

diff --git a/lily/staff-bar.cc b/lily/staff-bar.cc
index df97770e25032b42c33183d059eaa16bc9e9ea6c..55167bbd3266f5edafe562d547ca8083f7818da7 100644 (file)
--- a/lily/staff-bar.cc
+++ b/lily/staff-bar.cc
@@ -12,9 +12,16 @@
 Real
 Staff_bar::get_bar_size () const
 {
-  SCM size_sym = get_elt_property (bar_size_scm_sym);
-  if (size_sym != SCM_BOOL_F)
-    return gh_scm2double (SCM_CDR(size_sym));
+  SCM size = get_elt_property ("bar-size");
+  if (gh_number_p (size))
+    return gh_scm2double (size);
   else
     return (lines_i () -1) * staff_line_leading_f ();
 }
+
+void
+Staff_bar::do_pre_processing ()
+{
+  Bar::do_pre_processing ();
+  Staff_symbol_referencer::do_pre_processing ();
+}