Apply scripts/auxiliar/fixscm.sh

[lilypond.git] / scm / c++.scm

diff --git a/scm/c++.scm b/scm/c++.scm
index f0c5d3aea9f546980949318d6498d1dcef483ba8..8f4986a257ba72fe1ef0cefba10f792062cb2c6f 100644 (file)
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -98,8 +98,8 @@
   (if (null? alist)
       "Unknown type"
       (if (apply (caar alist) obj)
-         (cdar alist)
-         (match-predicate obj (cdr alist)))))
+          (cdar alist)
+          (match-predicate obj (cdr alist)))))
 
 (define-public (object-type obj)
   (match-predicate obj type-p-name-alist))