From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 04:09:30 +0000 (-0300)
Subject: use fancy-format for ice-9 format
X-Git-Tag: release/2.11.27-1~15^2~4^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=13aae636a7e8f61db5190cf9057c24cc30512cce;p=lilypond.git

use fancy-format for ice-9 format
---

diff --git a/scm/clip-region.scm b/scm/clip-region.scm
index eaf473058a..c8eb537b25 100644
--- a/scm/clip-region.scm
+++ b/scm/clip-region.scm
@@ -50,13 +50,13 @@
 
 
 (define-public (rhythmic-location->file-string a)
-  (format "~a.~a.~a"
+  (ly:format "~a.~a.~a"
 	  (car a)
 	  (ly:moment-main-numerator (cdr a))
 	  (ly:moment-main-denominator (cdr a))))
 
 (define-public (rhythmic-location->string a)
-  (format "bar ~a ~a"
+  (ly:format "bar ~a ~a"
 	  (car a)
 	  (ly:moment->string  (cdr a))))
 
diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 5f69f817de..6112d8ad77 100644
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -397,10 +397,10 @@ Line thickness is given by @var{th}, fret & string spacing by
           (fret-count (+ (- (cadr fret-range) (car fret-range)) 1))
            (label-text 
               (cond
-	       ((equal?   number-type  'roman-lower) (format #f "~(~:@r~)" base-fret))
-	       ((equal?  number-type 'roman-upper) (format #f "~:@r" base-fret))
-	       ((equal? 'arabic number-type)  (format #f "~d" base-fret))
-	       (else (format #f  "~(~:@r~)" base-fret)))))
+	       ((equal?   number-type  'roman-lower) (fancy-format #f "~(~:@r~)" base-fret))
+	       ((equal?  number-type 'roman-upper) (fancy-format #f "~:@r" base-fret))
+	       ((equal? 'arabic number-type)  (fancy-format #f "~d" base-fret))
+	       (else (fancy-format #f  "~(~:@r~)" base-fret)))))
        (if (eq? orientation 'normal)
            (ly:stencil-translate-axis
                (sans-serif-stencil layout props (* size label-font-mag) label-text)
diff --git a/scm/lily.scm b/scm/lily.scm
index b85f354e00..645e2c192c 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -103,6 +103,7 @@ on errors, and print a stack trace.")
 
 (use-modules (ice-9 regex)
 	     (ice-9 safe)
+	     (ice-9 format)
 	     (ice-9 rdelim)
              (ice-9 optargs)
 	     (oop goops)
@@ -113,6 +114,7 @@ on errors, and print a stack trace.")
 	     (scm memory-trace)
 	     (scm coverage)
 	     )
+(define-public fancy-format format)
 (define-public (ergonomic-simple-format dest . rest)
   "Like ice-9 format, but without the memory consumption."
   
@@ -120,7 +122,6 @@ on errors, and print a stack trace.")
       (apply simple-format (cons #f (cons dest rest)))
       (apply simple-format (cons dest rest))))
 
-
 (define format ergonomic-simple-format)
 
 ;; my display