Issue 4417 / 1: Delete duplicate procedures in ps-to-png.scm

PLATFORM: lily.scm
search-executable: backend-library.scm
search-gs: backend-library.scm
gulp-port: unused

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 3b6b6c2452c719aa9963685d30861944172af19c..8a476f36c5be350dc040ec053045a1bbf19df17b 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -31,32 +31,9 @@
 
 (define-public _ gettext)
 
-(define PLATFORM
-  (string->symbol
-   (string-downcase
-    (car (string-tokenize (utsname:sysname (uname)) char-set:letter)))))
-
 (define (re-sub re sub string)
   (regexp-substitute/global #f re string 'pre sub 'post))
 
-(define (search-executable names)
-  (define (helper path lst)
-    (if (null? (cdr lst))
-        (car lst)
-        (if (search-path path (car lst)) (car lst)
-            (helper path (cdr lst)))))
-
-  (let ((path (parse-path (getenv "PATH"))))
-    (helper path names)))
-
-(define (search-gs)
-  (search-executable '("gs-nox" "gs-8.15" "gs")))
-
-(define (gulp-port port max-length)
-  (let ((str (make-string max-length)))
-    (read-string!/partial str port 0 max-length)
-    str))
-
 (define-public (gulp-file file-name . max-size)
   (ly:gulp-file file-name (if (pair? max-size) (car max-size))))