Imported Upstream version 2.18.0

[lilypond.git] / scm / lily-sort.scm

diff --git a/scm/lily-sort.scm b/scm/lily-sort.scm
index 19fba423d42e398b80336014d4982eccdbafa68e..95d3e33ffbe163c75f5a67d26df1d9acfc5b8fb9 100644 (file)
--- a/scm/lily-sort.scm
+++ b/scm/lily-sort.scm
@@ -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))))