* input/test/partial-blank.ly (quickmeasure): syntax

* lily/slur.cc (get_attachment): bugfix: don't crash on non-cons
attachment property.

diff --git a/ChangeLog b/ChangeLog
index a283ae4e2302e379cb826bad734c4c31ffbefd24..675402963e7520f4297d19b68a15343a55463b67 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2003-08-23  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * input/test/partial-blank.ly (quickmeasure): syntax
+
+       * lily/slur.cc (get_attachment): bugfix: don't crash on non-cons
+       attachment property.
+
        * Documentation/user/refman.itely: remove superfluous -'s 
        (Grace notes): ) fixes.
 

diff --git a/input/test/beam-dir-functions.ly b/input/test/beam-dir-functions.ly
index 3cdfe1e516bda1b93bfa8cf555fa4b1df70012d7..906f8d64fb97d5f21080187112786784ceac3942 100644 (file)
--- a/input/test/beam-dir-functions.ly
+++ b/input/test/beam-dir-functions.ly
@@ -24,19 +24,19 @@ your favourite algorithm isn't one of these, you can hook up your own.
 \score {
   \notes\relative c'' {\time 3/4
     \property Voice.Beam \set #'dir-function = #beam-dir-majority
-    [c8 g]
+      c8-[ g]
     \property Voice.Beam \set #'dir-function = #beam-dir-mean
-    [c g] 
+      c-[ g] 
     \property Voice.Beam \set #'dir-function = #beam-dir-median
-    [c g]
+      c-[ g]
     
     \time 3/8
     \property Voice.Beam \set #'dir-function = #beam-dir-majority
-    [c8 c g]
+      c8-[ c g]
     \property Voice.Beam \set #'dir-function = #beam-dir-mean
-    [c c g] 
+      c-[ c g] 
     \property Voice.Beam \set #'dir-function = #beam-dir-median
-    [c c g] 
+      c-[ c g] 
   }
 \paper{raggedright = ##t}
 }

diff --git a/input/test/embedded-postscript.ly b/input/test/embedded-postscript.ly
index 77e3789d0fcac4bad944b9ae3c736d95681bc87d..afc2b3628f72ae973c32d7af1eebc24f854068b3 100644 (file)
--- a/input/test/embedded-postscript.ly
+++ b/input/test/embedded-postscript.ly
@@ -14,9 +14,9 @@ insert postscript directly into the output.
 
 \score {
   \notes \relative c'' {
-    a-#"\\embeddedps{3 4 moveto 5 3 rlineto stroke}"
-    -#"\\embeddedps{ [ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke}"
-    b-#"\\embeddedps{3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke}"
+    a-"\\embeddedps{3 4 moveto 5 3 rlineto stroke}"
+    -"\\embeddedps{ [ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke}"
+    b-"\\embeddedps{3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke}"
     s2
     a'1
   }

diff --git a/input/test/partial-blank.ly b/input/test/partial-blank.ly
index d84b3499267556776528ad4e3cd326f16d97ecbb..1fecce06872c31b50c71b4161acea1d445eda278 100644 (file)
--- a/input/test/partial-blank.ly
+++ b/input/test/partial-blank.ly
@@ -7,7 +7,10 @@ same length, etc.  This thing implements it by adding invisible
 staff with lots of fast notes. "
 }
 
-quickmeasure = \notes {[\repeat unfold 16 c''16]}
+quickmeasure = \notes {
+    \repeat unfold 16 c''16
+}
+
 mel = \notes \relative c' {c16 d16 e8 a4 g2 e8 d c2. g'1 e4 d c2}
 
 \score {

diff --git a/input/test/spanner-after-break-tweak.ly b/input/test/spanner-after-break-tweak.ly
index b19d37faee29b1ff8da88400260b958ffd7f5151..1ecf9d8b0fc287383a0ba66b1735524a86050d46 100644 (file)
--- a/input/test/spanner-after-break-tweak.ly
+++ b/input/test/spanner-after-break-tweak.ly
@@ -27,7 +27,7 @@ after the line break is moved around. "
 \score {\notes \relative c'' { 
     \property Voice.Tie \override #'after-line-breaking-callback =
        #my-callback
-    c1\break ~ c2 ~ c
+    c1 ~ \break c2 ~ c
 }
     \paper { raggedright = ##t } 
     }

diff --git a/lily/slur.cc b/lily/slur.cc
index 023c5a20dd1a488eef21b6b50a6d1f3f4955f01f..8e34c59c17b28ae696cee2abd680893c72351e3d 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -288,7 +288,7 @@ Slur::get_attachment (Grob *me, Direction dir,
                      Grob **common) 
 {
   SCM s = me->get_grob_property ("attachment");
-  if (!gh_symbol_p (index_get_cell (s, dir)))
+  if (!gh_pair_p (s) || !gh_symbol_p (index_get_cell (s, dir)))
     {
       s = set_extremities (me);
     }