* lily/parser.yy (music_property_def): set property for \once in

the PropertyMusic itself, not the ContextSpec.

* scm/define-music-properties.scm (all-music-properties): clean up.

diff --git a/ChangeLog b/ChangeLog
index 8d124609726ca1395d5c84a5ed3dfb1f4b74e885..3ccf9c0e6c2177f7ead2de16b9558f6ec6cf9bda 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2004-02-13  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * lily/parser.yy (music_property_def): set property for \once in
+       the PropertyMusic itself, not the ContextSpec.
+
+       * scm/define-music-properties.scm (all-music-properties): clean up.
+
        * lily/auto-beam-engraver.cc (test_moment): use
        updated_grob_properties() to retrieve autoBeam settings.
 

diff --git a/lily/parser.yy b/lily/parser.yy
index 7cd980afc5d452346e771d56c97e192916205e6e..ec85f5504d741752c0ce407cb9fe4729d232ae72 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1207,8 +1207,10 @@ music_property_def:
                $$= context_spec_music (gh_car ($2), SCM_UNDEFINED, $$, SCM_EOL);
        }
        | ONCE music_property_def {
+               SCM e = $2->get_mus_property ("element");
+                unsmob_music (e)->set_mus_property ("once", SCM_BOOL_T);
                $$ = $2;
-               $$->set_mus_property ("once", SCM_BOOL_T);
+        
        }
        ;
 

diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index 928c6a6e768d4f1f052dc60148f5e722cb318c88..328997ddadb20922035b76f9813ec01c59db913b 100644 (file)
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -28,9 +28,9 @@
      (span-type ,string? "What kind of spanner should be created?
 
 TODO: consider making type into symbol") 
-     (absolute-octave integer?
+     (absolute-octave ,integer?
                      "The absolute octave for a octave check note.")
-     (articulations music-list?
+     (articulations ,music-list?
                    "Articulation events specifically for this note.")
      (articulation-type ,string? "key for script definitions alist.
 
@@ -76,20 +76,18 @@ For chord inversions, this is negative.")
      (pitch ,ly:pitch? "the pitch of this note")
      (pitch-alist ,list? "list of pitches jointly forming the scale of a key signature")
      (pop-first ,boolean? "Do a revert before we try to do a override on some grob property.")
-     (procedure procedure?
+     (procedure ,procedure?
                "The function to run with \\applycontext. It must take a single argument, being the context.")
-     (property-operations list?
+     (property-operations ,list?
                          "Do these operations for instantiating the context.")
      (predicate ,procedure? "the predicate of a \\outputproperty")
      (type ,symbol? "The type of this music object. Determines iteration in some cases.")
      (types ,list? "The types of this music
 object; determines by what engraver this music expression is
 processed.")
-
      (repeat-count  ,integer? "do a @code{\repeat} how ofen?")
      (span-direction ,ly:dir? "Does this start or stop a spanner?")
      (split-list ,list? "splitting moments for part combiner.")
-
      (start-moment-function ,procedure? "Function to compute the negative length of
 starting grace notes.")
      (string-number ,integer? "The number of the string in a String_number_req")
@@ -100,7 +98,7 @@ starting grace notes.")
      (value ,scheme? "Assignment value for a
 translation property")
      (what ,symbol? "What to change for auto-change. FIXME, naming")
-     (part-combine-status symbol?
+     (part-combine-status ,symbol?
                          "Change to what kind of state? Options are
 solo1, solo2 and unisono")