From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 4 Jul 2003 00:28:16 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.24~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=093de9a526465977e41643495b802ccc9784980f;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/beam.cc b/lily/beam.cc
index 34601e1b99..ed397d98bd 100644
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -893,6 +893,10 @@ Beam::least_squares (SCM smob)
 /*
   We can't combine with previous function, since check concave and
   slope damping comes first.
+
+TODO: we should use the concaveness to control the amount of damping
+applied.
+  
  */
 MAKE_SCHEME_CALLBACK (Beam, shift_region_to_valid, 1);
 SCM
diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index 5e91cdd043..38d0079d2a 100644
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -217,7 +217,7 @@ for the reader.
        (dot (ly:find-glyph-by-name font "dots-dot"))
        (dotwid  (interval-length (ly:molecule-get-extent dot X)))
        (dots (if (> dot-count 0)
-		 (ly:molecule-add
+		 (apply ly:molecule-add
 		  (map (lambda (x)
 			 (ly:molecule-translate-axis
 			  dot  (* (+ 1 (* 2 x)) dotwid) X) )