X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=6e03a3b967d186cb79c2012e5317ac03a7755a2a;hb=264fa8be61f503a1c9952b70633018e752afd226;hp=bc6599c70bae1d3390c1e92195340c0e96b67753;hpb=4164bfb62950c46517a21ad1d80131ce27868aa1;p=lilypond.git

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)