*** empty log message ***

[lilypond.git] / scm / define-music-properties.scm

diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index bf7545bba2af94138c4cc99501bf56bd6f93b6b2..86f3f5cefc92c3391a09890d4b78e4cf72d79889 100644 (file)
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -10,13 +10,12 @@
 (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
@@ -106,7 +105,7 @@ translation property")
                          "Change to what kind of state? Options are
 solo1, solo2 and unisono")
 
-     (figure ,string? "a `figure' (which may be
+     (figure ,markup? "a `figure' (which may be
 a string) for figured bass")
      (alteration ,number? "alteration for figured bass")
      (bracket-start ,boolean? "start a bracket