From: Neil Puttock <n.puttock@gmail.com>
Date: Tue, 29 Jul 2008 20:31:21 +0000 (+0100)
Subject: Remove debug code.
X-Git-Tag: release/2.11.55-1~17^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fe1d64b08f28aa449f2731f3dc4313f759ff23fe;p=lilypond.git

Remove debug code.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 1af92b3b7f..c04f8ee58b 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -2478,7 +2478,6 @@ and continue with double letters.
      (number->markletter-string number->mark-alphabet-vector num)))
 
 (define-public (horizontal-slash-interval num forward number-interval mag)
-  (ly:message "Mag step: ~a" mag)
   (if forward
     (cond ;((= num 6) (interval-widen number-interval (* mag 0.5)))
           ;((= num 5) (interval-widen number-interval (* mag 0.5)))
@@ -2530,7 +2529,6 @@ and continue with double letters.
                                          ,(cdr num-x) ,(+ (interval-center num-y) dy))
                              num-x num-y)
                             #f)))
-(ly:message "Num: ~a, X-interval: ~a" num num-x)
     (if (ly:stencil? slash-stencil)
       (begin
         ; for some numbers we need to shift the slash/backslash up or down to make