From 42494c126671d9b70f7274ef502c9dc33e72177f Mon Sep 17 00:00:00 2001
From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Sun, 24 May 2015 14:28:43 +0900
Subject: 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
---
 scm/ps-to-png.scm | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 3b6b6c2452..8a476f36c5 100644
--- 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))))
 
-- 
cgit v1.2.3