*** empty log message ***

[lilypond.git] / scm / stencil.scm

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 1bfa43a74557f5e897daa2794c4fa445c97eb31e..58b19346186c5654af29992d43c69d23b36a4254 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -177,7 +177,7 @@ encloses the contents.
 ;; spacing variables 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define-public (annotate-y-interval layout name extent is-length?)
+(define-public (annotate-y-interval layout name extent is-length)
   ;; do something sensible for 0,0 intervals. 
   (set! extent (interval-widen extent 0.001))
   (let*
@@ -192,10 +192,15 @@ encloses the contents.
                      (make-whiteout-markup (make-simple-markup name))
                      (make-whiteout-markup
                       (make-simple-markup
-                       (if is-length?
-                           (format "~$" (interval-length extent))
-                           (format "(~$,~$)" (car extent)
-                                   (cdr extent)))))))))
+                       (begin
+                         (display extent)
+                       (cond
+                        ((interval-empty? extent) "empty")
+                        ((not (interval-sane? extent)) "insane")
+                        (is-length (format "~$" (interval-length extent)))
+                        (else
+                         (format "(~$,~$)" (car extent)
+                                   (cdr extent)))))))))))
        (arrows
        (ly:stencil-translate-axis 
         (dimension-arrows (cons 0 (interval-length extent)))