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.11.0-1~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dbc28ccfa5a0813630681646c2e36a8b4079b32d;p=lilypond.git

Fix another fd leak
---

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")
   "")