X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scm%2Foutput-ps.scm;h=6d3ab63c2fcf30dd78370cd7cb97e9b458abbe0e;hb=ad81ea93a0e1af18561633ddb028e927ac924d91;hp=70b13848e4aa6ad898bac04f79d33c80dfdaf838;hpb=9391b173e05e0752aadd10fad93f01edad33516c;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 70b13848e4..6d3ab63c2f 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -35,25 +35,6 @@
              (scm framework-ps)
              (lily))
 
-;;; helper functions, not part of output interface
-;;;
-
-
-;; ice-9 format uses a lot of memory
-;; using simple-format almost halves lilypond cell usage
-
-(define (str4 num)
-  (if (or (nan? num) (inf? num))
-      (begin
-        (ly:warning (_ "Found infinity or nan in output.  Substituting 0.0"))
-        (if (ly:get-option 'strict-infinity-checking)
-            (exit 1))
-        "0.0")
-      (ly:number->string num)))
-
-(define (number-pair->string4 numpair)
-  (ly:format "~4l" numpair))
-
 ;;;
 ;;; Lily output interface, PostScript implementation --- cleanup and docme
 ;;;