(once): add 'once

diff --git a/ChangeLog b/ChangeLog
index 6db48f4a9a003e784bc93be90225a49784b35df0..6a6816ecf19f8643ffdbdc2df7917694fd4f8df7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-14  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * scm/music-property-description.scm (once): add 'once
+
 2002-09-13  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * lily/simultaneous-music-iterator.cc (skip): call quit()

diff --git a/lily/music.cc b/lily/music.cc
index 4eb6a68514659e2e54fbb36d12cc4272011b7ecb..1c7843d976c1376beee99f3d0ba697c01a34af64 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -34,6 +34,7 @@ ly_deep_mus_copy (SCM m)
 
 Music::Music ()
 {
+  self_scm_ = SCM_EOL; 
   immutable_property_alist_ = SCM_EOL;
   mutable_property_alist_ = SCM_EOL;
   smobify_self ();

diff --git a/scm/music-property-description.scm b/scm/music-property-description.scm
index 0f92f40fda24c313b9aca66f3ca641b71a2ebf17..726aa92d4e1d0cf956f38a0d8b6a2ace3e434778 100644 (file)
--- a/scm/music-property-description.scm
+++ b/scm/music-property-description.scm
@@ -49,6 +49,7 @@ TODO: consider making type into symbol ")
 (music-property-description 'last-pitch pitch? "The last pitch after relativization.")
 (music-property-description 'length procedure? "How to compute the duration of this music")
 (music-property-description 'numerator integer? "numerator of a time signature")
+(music-property-description 'once boolean? "Apply this operation only during one time step?")
 (music-property-description 'origin ly-input-location? "where was this piece of music defined?")
 (music-property-description 'penalty number? "Penalty for break hint.")
 (music-property-description 'pitch pitch? "the pitch of this note")