From dbc28ccfa5a0813630681646c2e36a8b4079b32d 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 --- 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