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

[lilypond.git] / scm / ly-syntax-constructors.scm

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 423726900b6ad3a0708de74f78bab3033e730f72..c987a675ca3782408cfe953ca6ff0e60613fc943 100644 (file)
--- 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.