Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index fca7748bb8f88e384d511949eea24c30d9b3c210..d178c6926c80d7a6c1d1b6c9e9c1d8cb3dcf16b9 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -383,8 +383,7 @@ found."
   (not (or  (nan? (car i))
            (inf? (car i))
            (nan? (cdr i))
-           (inf? (cdr i))
-           (> (car i) (cdr i)))))
+           (inf? (cdr i)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -452,9 +451,6 @@ possibly turned off."
       0
       (if (< x 0) -1 1)))
 
-(define-public (car< a b) (< (car a) (car b)))
-
-
 (define-public (symbol<? lst r)
   (string<? (symbol->string lst) (symbol->string r)))