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 a7f04601be9d469e2e0f208e9c315ca108526b48..ce6c91e7ee65a38d77a2a455e5d4d2ddad3b58ae 100644 (file)
--- a/scm/music-property-description.scm
+++ b/scm/music-property-description.scm
@@ -2,17 +2,23 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 1998--2000  Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2001  Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 
 (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")