From 9be640ece5174020b85e293ec6d36c3a0b432977 Mon Sep 17 00:00:00 2001
From: Jay Anderson <horndude77@gmail.com>
Date: Sat, 31 Dec 2011 16:53:59 -0700
Subject: [PATCH] Workaround lilypond segfault. Add missing tags to horn part.

---
 ChevillardAllegroOp18/defs.ily | 10 ++++++++--
 ChevillardAllegroOp18/horn.ily |  4 ++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChevillardAllegroOp18/defs.ily b/ChevillardAllegroOp18/defs.ily
index 41ecfa7..01a1f26 100644
--- a/ChevillardAllegroOp18/defs.ily
+++ b/ChevillardAllegroOp18/defs.ily
@@ -1,7 +1,6 @@
 \version "2.15.21"
 
-%pocoF = #(make-dynamic-script (markup #:normal-text #:italic "poco" #:dynamic "f"))
-pocoF = #(make-dynamic-script #{ \markup {\normal-text \italic "poco" \dynamic "f"} #})
+pocoF = #(make-dynamic-script #{ \markup { \normal-text \italic "poco" \dynamic "f" } #})
 pDolce = #(make-dynamic-script (markup #:dynamic "p" #:normal-text #:italic "dolce"))
 pTresTranquille = #(make-dynamic-script (markup #:dynamic "p" #:normal-text #:italic "très tranquille"))
 
@@ -40,6 +39,13 @@ afterGraceFraction = #(cons 15 16)
                                ,(make-accidental-rule 'any-octave 0)
                                ,(make-accidental-rule 'same-octave 1))
   }
+
+  \context
+  {
+    \PianoStaff
+    %TODO: Remove this later. It currently causes a segfault.
+    \remove "Span_bar_stub_engraver"
+  }
 }
 
 \midi
diff --git a/ChevillardAllegroOp18/horn.ily b/ChevillardAllegroOp18/horn.ily
index 63e49cf..5156724 100644
--- a/ChevillardAllegroOp18/horn.ily
+++ b/ChevillardAllegroOp18/horn.ily
@@ -1,9 +1,9 @@
 \relative c''
 {
   \transposition f
-  \tempoTextLengthOn
+  \tag #'part \tempoTextLengthOn
   R1*8 |
-  \tempoTextLengthOff
+  \tag #'part \tempoTextLengthOff
   r4 g-.\p d'2~ |
   d4 b8( a g4) a-. |
   g-. \times 2/3 {d8 g b} d2~ |