From 009a9fff79502a87706e490caef5e2a26d3c2292 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Fri, 4 Jul 2003 00:28:16 +0000
Subject: [PATCH] *** empty log message ***

---
 lily/beam.cc       | 4 ++++
 scm/new-markup.scm | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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) )
-- 
2.39.5