* Documentation/topdocs/INSTALL.texi (Top): add GS bugfix requirement.

[lilypond.git] / scm / ps-to-png.scm

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index f43c3f19c3a4bf9eb8cbaf037d7e0ce2f25e28d8..44b32714b554ad5b344d5565754e7ba5d831d685 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -13,6 +13,7 @@
  (srfi srfi-1)
  (srfi srfi-13)
  (srfi srfi-14)
+ (lily)
  )
 
 ;; gettext wrapper for guile < 1.7.2
@@ -47,7 +48,13 @@
    str))
 
 (define (gulp-file nm len)
-  (gulp-port (open-file nm "r") len))
+
+  ;; string routines barf when strlen() != string-length,.
+  ;; which may happen as side effect of read-string!/partial.
+  
+;  (gulp-port (open-file nm "r") len))
+  (ly:gulp-file nm len))
+  
 
 ;;; ARGH - cuases memory usage to explode with GUILE cvs.