From: Milan Zamazal <pdm@brailcom.org>
Date: Wed, 14 Feb 2007 08:14:15 +0000 (+0100)
Subject: Close .xml output file in singing
X-Git-Tag: release/2.11.19-1~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ff8a0cde0e4c604941be4354fe09c0be96e482e;p=lilypond.git

Close .xml output file in singing
---

diff --git a/scm/song.scm b/scm/song.scm
index 313480a85a..8edacdf13c 100644
--- a/scm/song.scm
+++ b/scm/song.scm
@@ -65,7 +65,8 @@
   (let ((port (open-output-file filename)))
     (write-header port tempo)
     (write-lyrics port music)
-    (write-footer port))
+    (write-footer port)
+    (close-port port))
   #f)