Fix another fd leak

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index aa432017db6301e658dd77d65822f229333d6a8b..07ab29ecd70880bc94dd5fdaa08c011ae7f29ff0 100644 (file)
--- 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")
   "")