release: 1.1.31

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 378fa22ebb985ecaf139ca9b6313a233d7171190..4cea79ddbfa5e2a63ce6ef57d62a2b6794ce1903 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -180,8 +180,10 @@
     (define minht (* 2 mudelapaperstaffheight))
     (define maxht (* 7 minht))
     (string-append
-     "{\\bracefont " (char  (/  (- (min y (- maxht step)) minht)   step)) "}"))
-  
+     "{\\bracefont " (char (max
+                           0
+                           (/  (- (min y (- maxht step)) minht) step))) "}"))
+
 
 
   (define (rulesym h w)