From 9e1484c0bff5612d3f10a60a17bf9cadbb7f10f4 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Wed, 26 Aug 2009 22:31:31 -0700 Subject: [PATCH] lily-library.scm: Remove duplicate bindings --- scm/lily-library.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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 -- 2.39.5