From 0b6bcee36059830e0198ae48cac961afc77d4e38 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 10 Dec 2002 23:43:21 +0000
Subject: [PATCH] *** empty log message ***

---
 lily/font-metric.cc |  1 -
 lily/parser.yy      | 12 ++----------
 scm/drums.scm       |  5 ++---
 3 files changed, 4 insertions(+), 14 deletions(-)

diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index 93592ee4cf..86f9700083 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -143,7 +143,6 @@ Font_metric::find_by_name (String) const
   return m;
 }
 
-
 LY_DEFINE(ly_find_glyph_by_name, "ly:find-glyph-by-name", 2 , 0, 0,
 	  (SCM font, SCM name),
 	  "This function retrieves a Molecule for the glyph named @var{name} in "
diff --git a/lily/parser.yy b/lily/parser.yy
index 3483bbc3f6..7dccfe006b 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -11,20 +11,12 @@
 
 /*
   Two shift/reduce problems:
-    - empty music-list
-    - empty pre-events
-
-
-
-(bullshit.
-
-s/r:
 
 1.	foo = bar.
 
-	"bar" -> String -> Lyric -> Music
+	"bar" -> String -> Lyric -> Music -> music-assignment
 
-	"bar" -> String
+	"bar" -> String -> string-assignment
 
 
 2.  \repeat
diff --git a/scm/drums.scm b/scm/drums.scm
index 9162e6821f..07420c0ef3 100644
--- a/scm/drums.scm
+++ b/scm/drums.scm
@@ -188,11 +188,10 @@
  )
 
 (define (make-head-type-elem t)
-   (let* ( (m (make-music-by-name 'Music)))
+   (let* ( (m (make-music-by-name 'OverrideProperty)))
      (set-mus-properties!
       m
-      `((iterator-ctor . ,Push_property_iterator::constructor)
-	(symbol . NoteHead)
+      `((symbol . NoteHead)
 	(grob-property . style)
 	(grob-value . ,t)
 	(pop-first  . #t)))
-- 
2.39.5