X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily-sort.scm;h=19fba423d42e398b80336014d4982eccdbafa68e;hb=5d19ffa19f6c98aa6ba3bb95641b6759d6b1cb51;hp=33526d7f35f3f0d48a54cd68277ceacf762f13ea;hpb=1c846b2c2348b4e0ca4a3c2e8fb267047ba2d203;p=lilypond.git

diff --git a/scm/lily-sort.scm b/scm/lily-sort.scm
index 33526d7f35..19fba423d4 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--2012 Mark Polesky <markpolesky@yahoo.com>
 
 
 ;; This file implements a LilyPond-specific character-sorting algorithm
@@ -103,14 +103,14 @@
 
 (define (ly:alist<? a b)
   "Return #t if the first key of alist A is less than the first key of
-  alist B, using case-sensitive LilyPond sort order. Keys are assumed to
+  alist B, using case-sensitive LilyPond sort order.  Keys are assumed to
   be symbols."
   (ly:string<? (symbol->string (car a))
                (symbol->string (car b))))
 
 (define (ly:alist-ci<? a b)
   "Return #t if the first key of alist A is less than the first key of
-  alist B, using case-insensitive LilyPond sort order. Keys are assumed
+  alist B, using case-insensitive LilyPond sort order.  Keys are assumed
   to be symbols."
   (ly:string-ci<? (symbol->string (car a))
                   (symbol->string (car b))))