From fbddf24d1f95485c421fa170fc10daba142b40c6 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Thu, 2 Jun 2016 21:56:02 +0200
Subject: [PATCH] Function (_ ...) takes only one argument
---
scm/define-context-properties.scm | 2 +-
scm/define-event-classes.scm | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
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
--
2.39.5