From 573d14c5528c469d132c02f2f60d2c75ad0f30d6 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 13 Sep 2002 23:03:43 +0000 Subject: [PATCH] (once): add 'once --- ChangeLog | 4 ++++ lily/music.cc | 1 + scm/music-property-description.scm | 1 + 3 files changed, 6 insertions(+) diff --git a/ChangeLog b/ChangeLog index 6db48f4a9a..6a6816ecf1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-09-14 Han-Wen Nienhuys + + * scm/music-property-description.scm (once): add 'once + 2002-09-13 Han-Wen Nienhuys * lily/simultaneous-music-iterator.cc (skip): call quit() diff --git a/lily/music.cc b/lily/music.cc index 4eb6a68514..1c7843d976 100644 --- 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 0f92f40fda..726aa92d4e 100644 --- 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") -- 2.39.5