From: David Kastrup <dak@gnu.org>
Date: Thu, 2 Jun 2016 19:56:02 +0000 (+0200)
Subject: Function (_ ...) takes only one argument
X-Git-Tag: release/2.19.43-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fbddf24d1f95485c421fa170fc10daba142b40c6;p=lilypond.git

Function (_ ...) takes only one argument
---

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index 3ee68e5e6a..75f1807e61 100644
--- 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 4eebdfac0e..8695bc5b78 100644
--- 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