*** empty log message ***

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

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index 8d851236b8278b5e6bcd4993e4bb8c5f38bc7d51..977be9691fd3505d6b20682cabe36369d97a0106 100644 (file)
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -10,9 +10,7 @@
 
 (define (translator-property-description symbol type? description)
  (if (not (equal? #f (object-property symbol 'translation-doc)))
-      (begin
-       (ly:warn "Redefining ~S " symbol)
-       (exit 2)))
+     (ly:erorr (_ "symbol ~S redefined" symbol)))
   
   (set-object-property! symbol 'translation-type? type?)
   (set-object-property! symbol 'translation-doc description)