*** empty log message ***

diff --git a/lily/beam.cc b/lily/beam.cc
index 34601e1b99613e29ea81c1db57a8219ff4f81fa6..ed397d98bdab97b16e70b52c855fe78fc016b590 100644 (file)
--- 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 5e91cdd04355ace399bc20be3538b1aea1e50dd7..38d0079d2aa6c2c407734bf45677267fec9ad0e6 100644 (file)
--- 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) )