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

Unified Diff: scm/chord-name.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-ignatzek-names.scm ('k') | scm/color.scm » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
Index: scm/chord-name.scm
diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 8152bcdadb52532bc481faeb45a2b0b43fff7ee6..3ec61b435ab157e01046ef546f5b1c32c3b78f5c 100644
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -76,15 +76,15 @@ other @var{language} is specified."
(let* ((pitch-alist
(if (null? language) pitchnames
(assoc-get (car language)
- language-pitch-names '())))
+ language-pitch-names '())))
(result (rassoc pitch
- (filter (lambda (p)
- ;; TODO: add exception for German B?
- (eq? (ly:pitch-alteration (cdr p)) 0))
- pitch-alist)
- (lambda (a b)
- (= (ly:pitch-notename a)
- (ly:pitch-notename b))))))
+ (filter (lambda (p)
+ ;; TODO: add exception for German B?
+ (eq? (ly:pitch-alteration (cdr p)) 0))
+ pitch-alist)
+ (lambda (a b)
+ (= (ly:pitch-notename a)
+ (ly:pitch-notename b))))))
(if result (symbol->string (car result)))))
(define-public (note-name->markup pitch lowercase?)
@@ -143,7 +143,7 @@ If @var{re-with-eacute} is set to @code{#t}, french `ré' is returned for
pitch@tie{}D instead of `re'."
(let* ((name (note-name->string pitch
- (if french? 'français 'italiano)))
+ (if french? 'français 'italiano)))
(alt (ly:pitch-alteration pitch)))
(make-line-markup
(list
« no previous file with comments | « scm/chord-ignatzek-names.scm ('k') | scm/color.scm » ('j') | no next file with comments »

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