* scm/define-grobs.scm (all-grob-descriptions): make NonMusicalPaperColumn

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 8ba25d53479865eae93627b4dbf131117400a757..bb7e7a32a82028ba18cc2bcb37f6571bba6ef682 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -383,7 +383,8 @@ found."
   (not (or  (nan? (car i))
            (inf? (car i))
            (nan? (cdr i))
-           (inf? (cdr i)))))
+           (inf? (cdr i))
+           (> (car i) (cdr i)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -428,6 +429,7 @@ possibly turned off."
   (define matches '())
   (define end-of-prev-match 0)
   (define (notice match)
+
     (set! matches (cons (substring (match:string match)
                                   end-of-prev-match
                                   (match:start match))