X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-svg.scm;h=8a8960e6d339b1fb04d9fa33a042f7d60e739af8;hb=bec6d0f547819d4003c5ce987f8fe589818e4712;hp=034f831f97bdaa36065b7d671959008544ff55e1;hpb=417cccf66cf072f26767f460e2e58d49b9bc08ce;p=lilypond.git

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 034f831f97..8a8960e6d3 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2002--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2002--2007 Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;;;; http://www.w3.org/TR/SVG11
 ;;;; http://www.w3.org/TR/SVG12/ -- page, pageSet in draft
@@ -23,10 +23,12 @@
 (use-modules
  (guile)
  (ice-9 regex)
+ (ice-9 format)
  (lily)
  (srfi srfi-1)
  (srfi srfi-13))
 
+(define fancy-format format)
 (define format ergonomic-simple-format)
 
 (define lily-unit-length 1.75)
@@ -96,7 +98,7 @@
   (* x x))
 
 (define (integer->entity integer)
-  (format "&#x~x;" integer))
+  (fancy-format "&#x~x;" integer))
 
 (define (char->entity char)
   (integer->entity (char->integer char)))
@@ -282,7 +284,7 @@
 	  expr
 	  ;; FIXME: Not using GNU coding standards [translate ()] here
 	  ;; to work around a bug in Microsoft Internet Explorer 6.0
-	  `(transform . ,(format "translate(~f, ~f)"
+	  `(transform . ,(ly:format "translate(~f, ~f)"
 				 x (- y)))))
 
 (define (polygon coords blot-diameter is-filled)