(define (music-property-description symbol type? description)
(if (not (equal? #f (object-property symbol 'music-doc)))
(begin
- (ly:warn (string-append "Redefining " (symbol->string symbol) "\n"))
+ (ly:warn "Redefining ~S" symbol)
(exit 2)
))
(set-object-property! symbol 'music-type? type?)
(set-object-property! symbol 'music-doc description)
- symbol )
-
+ symbol)
(define-public all-music-properties
(map
(text-type ,symbol? "Particular type of text script (e.g. finger, dynamic).")
(tempo-unit ,ly:duration? "The unit for the metronome count.")
(tonic ,ly:pitch? "Base of the scale")
+ (error-found ,boolean? "If true, a parsing error was found in this expression")
(element ,ly:music? "The single child of a Music_wrapper music object, or the body of a repeat.")
(elements ,ly:music-list? "A list of elements for sequential of simultaneous music, or the alternatives of repeated music. ")
(force-accidental ,boolean? "If set, a cautionary accidental should always be printed on this note")
"Do these operations for instantiating the context.")
(predicate ,procedure? "the predicate of a \\outputproperty.")
(quoted-events ,vector? "A vector of with moment/event-list entries.")
+ (quoted-music-name ,string? "The name of the voice to quote.")
(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