From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Fri, 8 Jul 2016 16:16:39 +0000 (+0900)
Subject: Issue 4923/1: Add closing a file in `is-collection-fonts?`
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=264fa8be61f503a1c9952b70633018e752afd226;p=lilypond.git

Issue 4923/1: Add closing a file in `is-collection-fonts?`

This commit adds `close-port` for closing a file
in `is-collection-fonts?`.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index bc6599c70b..6e03a3b967 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -288,16 +288,19 @@
 
   (define (load-font-via-GS font-name-filename)
     (define (is-collection-font? file-name)
-      (let ((port (open-file file-name "rb")))
-        (if (eq? (read-char port) #\t)
-            (if (eq? (read-char port) #\t)
-                (if (eq? (read-char port) #\c)
-                    (if (eq? (read-char port) #\f)
-                        #t
-                        #f)
-                    #f)
-                #f)
-            #f)))
+      (let* ((port (open-file file-name "rb"))
+             (retval
+              (if (eq? (read-char port) #\t)
+                  (if (eq? (read-char port) #\t)
+                      (if (eq? (read-char port) #\c)
+                          (if (eq? (read-char port) #\f)
+                              #t
+                              #f)
+                          #f)
+                      #f)
+                  #f)))
+        (close-port port)
+        retval))
 
     (define (ps-load-file file-name)
       (if (string? file-name)