Index: scm/chord-ignatzek-names.scm |
diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm |
index 77c3d46ff59ef9686fee981b6a1a7fc055773f76..b1faf885cbddcadb286c7b2ea78ab76b09225e1f 100644 |
--- a/scm/chord-ignatzek-names.scm |
+++ b/scm/chord-ignatzek-names.scm |
@@ -171,11 +171,11 @@ work than classifying the pitches." |
(args (list num-markup)) |
(major-seven-symbol (ly:context-property context 'majorSevenSymbol)) |
(total |
- (if (and (= (ly:pitch-alteration pitch) 0) |
- (= (pitch-step pitch) 7) |
- (markup? major-seven-symbol)) |
- (list major-seven-symbol) |
- (cons (accidental->markup (step-alteration pitch)) args)))) |
+ (if (and (= (ly:pitch-alteration pitch) 0) |
+ (= (pitch-step pitch) 7) |
+ (markup? major-seven-symbol)) |
+ (list major-seven-symbol) |
+ (cons (accidental->markup (step-alteration pitch)) args)))) |
(make-line-markup total))) |