release: 1.3.137

[lilypond.git] / scm / music-property-description.scm

diff --git a/scm/music-property-description.scm b/scm/music-property-description.scm
index e4a228426500aaf70520ce78e8d551c281777fb8..ce6c91e7ee65a38d77a2a455e5d4d2ddad3b58ae 100644 (file)
--- a/scm/music-property-description.scm
+++ b/scm/music-property-description.scm
@@ -9,10 +9,16 @@
 (define all-music-properties '())
 
 (define (music-property-description symbol type? description)
-  (set-object-property! symbol 'music-type? type?)
+ (if (not (equal? #f (object-property symbol 'music-doc)))
+      (begin
+       (ly-warn (string-append "Redefining " (symbol->string symbol) "\n"))
+       (exit 2)
+      ))
+ (set-object-property! symbol 'music-type? type?)
   (set-object-property! symbol 'music-doc description)
   (set! all-music-properties (cons symbol all-music-properties))
   )
+
 (define (true? x) #t)
 
 (music-property-description 'iterator-ctor c++-function? "Function to construct music-event-iterator object for this Music")