From: fred <fred>
Date: Tue, 26 Mar 2002 21:47:15 +0000 (+0000)
Subject: lilypond-1.1.31
X-Git-Tag: release/1.5.59~2580
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=aa2af15e815a8e1b10187981c347aa0167c02d09;p=lilypond.git

lilypond-1.1.31
---

diff --git a/scm/lily.scm b/scm/lily.scm
index 378fa22ebb..4cea79ddbf 100644
--- 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)