From: Matthias Kilian <kili@outback.escape.de>
Date: Tue, 14 Nov 2006 23:11:52 +0000 (+0100)
Subject: Fix another fd leak
X-Git-Tag: release/2.10.1-1~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=955bebb03c1d9f1887669ab21a95a31591290a42;p=lilypond.git

Fix another fd leak
(cherry picked from eef1bef0ea99951dbcc0f21f998f4c2f0884af87 commit)
---

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index aa432017db..07ab29ecd7 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -158,7 +158,10 @@
 	      (if (equal? "-" file-name) "<stdout>" file-name))
   (if (equal? file-name "-")
       (display value)
-      (display value (open-file file-name "w")))
+      (let ((port (open-file file-name "w")))
+	(display value port)
+	(close-port port)))
+
   (ly:progress "\n")
   "")