From: David Kastrup <dak@gnu.org>
Date: Sat, 27 Jun 2015 11:45:02 +0000 (+0200)
Subject: Run scripts/auxiliar/fixscm.sh scm/ly-syntax-constructors.scm
X-Git-Tag: release/2.19.23-1~15
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bc7e3d9a7b1a171e13bbd37b76ed00d9394b4d22;p=lilypond.git

Run scripts/auxiliar/fixscm.sh scm/ly-syntax-constructors.scm
---

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 423726900b..c987a675ca 100644
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -35,10 +35,10 @@
   (let* ((sig (ly:music-function-signature fun))
          (pred (if (pair? (car sig)) (caar sig) (car sig))))
     (ly:parser-error
-                     (format #f (_ "~a function cannot return ~a")
-                             (type-name pred)
-                             (value->lily-string m))
-                     (*location*))
+     (format #f (_ "~a function cannot return ~a")
+             (type-name pred)
+             (value->lily-string m))
+     (*location*))
     (and (pair? (car sig)) (cdar sig))))
 
 ;; Music function: Apply function and check return value.