Fix array over-run; issue 1723

[lilypond.git] / lily / slur-score-parameters.cc

diff --git a/lily/slur-score-parameters.cc b/lily/slur-score-parameters.cc
index 1683aeea2feace61a84496e7247cecb57fd81e6d..8d392ff1dcff49ed235dc08114a43ec07a697c52 100644 (file)
--- a/lily/slur-score-parameters.cc
+++ b/lily/slur-score-parameters.cc
@@ -18,19 +18,17 @@
   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
-
 #include "slur-score-parameters.hh"
 #include "grob.hh"
 
-
 Real
 get_detail (SCM alist, SCM sym)
 {
   SCM entry = scm_assq (sym, alist);
   return robust_scm2double (scm_is_pair (entry)
-                           ? scm_cdr (entry)
-                           : SCM_EOL,
-                           0.0);
+                            ? scm_cdr (entry)
+                            : SCM_EOL,
+                            0.0);
 }
 
 void
@@ -44,8 +42,6 @@ Slur_score_parameters::fill (Grob *me)
     = get_detail (details, ly_symbol2scm ("head-encompass-penalty"));
   stem_encompass_penalty_
     = get_detail (details, ly_symbol2scm ("stem-encompass-penalty"));
-  closeness_factor_
-    = get_detail (details, ly_symbol2scm ("closeness-factor"));
   edge_attraction_factor_
     = get_detail (details, ly_symbol2scm ("edge-attraction-factor"));
   same_slope_penalty_
@@ -78,4 +74,8 @@ Slur_score_parameters::fill (Grob *me)
     = get_detail (details, ly_symbol2scm ("free-slur-distance"));
   edge_slope_exponent_
     = get_detail (details, ly_symbol2scm ("edge-slope-exponent"));
-}
+  close_to_edge_length_
+    = get_detail (details, ly_symbol2scm ("close-to-edge-length"));
+  encompass_object_range_overshoot_
+    = get_detail (details, ly_symbol2scm ("encompass-object-range-overshoot"));
+  }