From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 04:39:24 +0000 (-0300)
Subject: use simple-format by default, fancy-format for ice-9
X-Git-Tag: release/2.10.29-1~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ddf0e0d7785aa66b1d63e601dce19ea328c41d82;p=lilypond.git

use simple-format by default, fancy-format for ice-9
---

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 42c04b6e57..da44cf84cf 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -56,7 +56,7 @@
 	 (is-eps (string-match "\\.eps$" name))
 	 (paper-size-string (if is-eps
 				" -dEPSCrop "
-				(format "-dDEVICEWIDTHPOINTS=~,2f \
+				(fancy-format "-dDEVICEWIDTHPOINTS=~,2f \
 -dDEVICEHEIGHTPOINTS=~,2f "
 					paper-width paper-height )))
 
diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 2792ef7956..302ff25315 100644
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -287,10 +287,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)))))
        (ly:stencil-translate-axis 
            (sans-serif-stencil layout props (* size label-font-mag) label-text) 
                        (* size (+ fret-count label-vertical-offset)) Y)))
diff --git a/scm/lily.scm b/scm/lily.scm
index 045ac460d6..3eb98f71f3 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -85,16 +85,26 @@ on errors, and print a stack trace.")
 
 (use-modules (ice-9 regex)
 	     (ice-9 safe)
+	     (ice-9 format)
              (ice-9 optargs)
 	     (oop goops)
 	     (srfi srfi-1)
 	     (srfi srfi-13)
 	     (srfi srfi-14)
 	     (scm clip-region)
-
 	     )
 
 
+(define-public (ergonomic-simple-format dest . rest)
+  "Like ice-9 format, but without the memory consumption."
+  
+  (if (string? dest)
+      (apply simple-format (cons #f (cons dest rest)))
+      (apply simple-format (cons dest rest))))
+
+(define-public fancy-format format)
+(define format ergonomic-simple-format)
+
 ;; my display
 (define-public (myd k v) (display k) (display ": ") (display v) (display ", "))
 
diff --git a/scm/stencil.scm b/scm/stencil.scm
index 320b54ee73..4e6a7e5d59 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -211,9 +211,9 @@ encloses the contents.
                                               ((interval-empty? extent)
                                                (format "empty"))
                                               (is-length
-                                               (format "~$" (interval-length extent)))
+                                               (fancy-format "~$" (interval-length extent)))
                                               (else
-                                               (format "(~$,~$)"
+                                               (fancy-format "(~$,~$)"
                                                        (car extent) (cdr extent)))))))
 	      (arrows (ly:stencil-translate-axis 
 		       (dimension-arrows (cons 0 (interval-length extent)))