lily-library.scm: Remove duplicate bindings

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index c24683a75ef1543d5a697f6db8c57907efc7d682..58a5702f278e164228004d5c53d12fe2a104d4ca 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -405,13 +405,10 @@ found."
   "Length of the number-pair X, when an interval"
   (max 0 (- (cdr x) (car x))))
 
-(define-public interval-start car)
 (define-public (ordered-cons a b)
   (cons (min a b)
        (max a b)))
 
-(define-public interval-end cdr)
-
 (define-public (interval-bound interval dir)
   ((if (= dir RIGHT) cdr car) interval))
 
@@ -429,7 +426,9 @@ found."
       (/ (+ (car x) (cdr x)) 2)))
 
 (define-public interval-start car)
+
 (define-public interval-end cdr)
+
 (define-public (interval-translate iv amount)
   (cons (+ amount (car iv))
        (+ amount (cdr iv))))
@@ -441,7 +440,6 @@ found."
    (cons (- (car iv) amount)
          (+ (cdr iv) amount)))
 
-
 (define-public (interval-empty? iv)
    (> (car iv) (cdr iv)))
 
@@ -460,7 +458,6 @@ found."
   (cons (min (interval-start interval) p)
         (max (interval-end interval) p)))
 
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; string