From 955bebb03c1d9f1887669ab21a95a31591290a42 Mon Sep 17 00:00:00 2001 From: Matthias Kilian Date: Wed, 15 Nov 2006 00:11:52 +0100 Subject: [PATCH] Fix another fd leak (cherry picked from eef1bef0ea99951dbcc0f21f998f4c2f0884af87 commit) --- scm/backend-library.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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) "" 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") "") -- 2.39.5