X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftranslation-functions.scm;h=901bff0944e40e0385d8ce81443de09a569fe599;hb=be352a75321ec4b71df2fe491a5c97dc99ed381c;hp=3767a18be2be9de99549f3541ef00ea2b494dd66;hpb=0dc8d12d04d40386d318a7203620a6753c75dd32;p=lilypond.git

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 3767a18be2..901bff0944 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -236,9 +236,9 @@
   (define (note-pitch a)
     (ly:event-property a 'pitch))
 
-  (define (note-pitch<? a b)
-    (ly:pitch<? (note-pitch a)
-		(note-pitch b)))
+  (define (note-pitch>? a b)
+    (ly:pitch<? (note-pitch b)
+		(note-pitch a)))
 
   (define (note-finger ev)
     (let* ((articulations (ly:event-property ev 'articulations))
@@ -339,6 +339,6 @@
 			   specified-frets))
 			   
 	       )))
-   (sort notes note-pitch<?))
+   (sort notes note-pitch>?))
 
   string-fret-fingering-tuples)