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

Unified Diff: scm/modal-transforms.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/markup-macros.scm ('k') | scm/music-functions.scm » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
Index: scm/modal-transforms.scm
diff --git a/scm/modal-transforms.scm b/scm/modal-transforms.scm
index 133601b9462cb44527d55af4953673d1f1aab9a2..2d37c597aecbc1178ab6962164220c67ab842553 100644
--- a/scm/modal-transforms.scm
+++ b/scm/modal-transforms.scm
@@ -318,10 +318,10 @@ and transposes from @var{around} to @var{to}.")
;; Notes may not have been entered from bottom to top;
;; sort them depending on their pitch.
(notes (sort-list elts
- (lambda (a b)
- (ly:pitch<?
- (ly:music-property a 'pitch)
- (ly:music-property b 'pitch))))))
+ (lambda (a b)
+ (ly:pitch<?
+ (ly:music-property a 'pitch)
+ (ly:music-property b 'pitch))))))
(if (< -1 count-from l)
(let* ((note (list-ref notes count-from))
(oct (ly:music-property note 'octavation 0))
« no previous file with comments | « scm/markup-macros.scm ('k') | scm/music-functions.scm » ('j') | no next file with comments »

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