Function (_ ...) takes only one argument

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index 3ee68e5e6a5ebceba368c151b01e13effddc64aa..75f1807e61818507374bfc420aa654c381a37257 100644 (file)
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -28,7 +28,7 @@
 
 
   (if (not (equal? #f (object-property symbol 'translation-doc)))
-      (ly:error (_ "symbol ~S redefined" symbol)))
+      (ly:error (_ "symbol ~S redefined") symbol))
 
   (set-object-property! symbol 'translation-type? type?)
   (set-object-property! symbol 'translation-doc description)

diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm
index 4eebdfac0ee7627aec9cdc616fbafe7e58bcb2b1..8695bc5b78874801405a36288a8c5757e0679bfd 100644 (file)
--- a/scm/define-event-classes.scm
+++ b/scm/define-event-classes.scm
@@ -107,7 +107,7 @@ previously defined event class."
      ((ly:make-event-class class)
       (ly:error (_ "Cannot redefine event class `~S'") class))
      ((not parentclass)
-      (ly:error (_ "Undefined parent event class `~S'" parentclass)))
+      (ly:error (_ "Undefined parent event class `~S'") parentclass))
      (else
       (hashq-set! ancestor-lookup
                   class