X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily-sort.scm;h=a3d951df5cbcb4a95bbbe5bf0590e3c9342570f7;hb=13798e90e8ae32bf341b21440f2687442274759f;hp=ac239a7f50d60ae42d0dd3d18ded7051a35c38f0;hpb=2613eed0a13ce118cb11f83057d9d79fc6973a4e;p=lilypond.git

diff --git a/scm/lily-sort.scm b/scm/lily-sort.scm
index ac239a7f50..a3d951df5c 100644
--- a/scm/lily-sort.scm
+++ b/scm/lily-sort.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; Copyright 2009--2011 Mark Polesky <markpolesky@yahoo.com>
+;;;; Copyright 2009--2015 Mark Polesky <markpolesky@yahoo.com>
 
 
 ;; This file implements a LilyPond-specific character-sorting algorithm
@@ -68,14 +68,14 @@
           ((null? a) (cons #f (car b)))
           ((null? b) (cons (car a) #f))
           ((not ((if ci char-ci=? char=?) (car a) (car b)))
-              (cons (car a) (car b)))
+           (cons (car a) (car b)))
           (else (find-mismatch (cdr a) (cdr b))))))
 
 (define (ly:string-generic-<? a b ci)
   (let ((mismatch (first-diff-chars a b ci)))
     (cond ((and mismatch (car mismatch) (cdr mismatch))
-             ((if ci ly:char-ci<? ly:char<?)
-                   (car mismatch) (cdr mismatch)))
+           ((if ci ly:char-ci<? ly:char<?)
+            (car mismatch) (cdr mismatch)))
           ((and mismatch (cdr mismatch)) #t)
           (else #f))))