Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(39)

Unified Diff: scm/chord-ignatzek-names.scm

Issue 555490045: Run find -name \*.scm -exec scripts/auxiliar/fixscm.sh {} + (Closed)
Patch Set: Created 4 years ago
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « scm/chord-entry.scm ('k') | scm/chord-name.scm » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
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)))
« no previous file with comments | « scm/chord-entry.scm ('k') | scm/chord-name.scm » ('j') | no next file with comments »

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b