From: Patrick McCarty <pnorcks@gmail.com>
Date: Thu, 27 Aug 2009 05:31:31 +0000 (-0700)
Subject: lily-library.scm: Remove duplicate bindings
X-Git-Tag: release/2.13.4-1~135
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9e1484c0bff5612d3f10a60a17bf9cadbb7f10f4;p=lilypond.git

lily-library.scm: Remove duplicate bindings
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index c24683a75e..58a5702f27 100644
--- 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