From 1ff8a0cde0e4c604941be4354fe09c0be96e482e Mon Sep 17 00:00:00 2001
From: Milan Zamazal <pdm@brailcom.org>
Date: Wed, 14 Feb 2007 09:14:15 +0100
Subject: [PATCH] Close .xml output file in singing

---
 scm/song.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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