From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 5 Jun 2006 18:27:44 +0000 (+0000)
Subject: (write-system-signature): explicitly
X-Git-Tag: release/2.10.0-2~572
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c91a252cddb293dc1cdb2831ef61a70757617734;p=lilypond.git

(write-system-signature): explicitly
-well, superfluously- close output port.
---

diff --git a/ChangeLog b/ChangeLog
index 31b63cd403..5e8963831e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-06-05  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* scm/stencil.scm (write-system-signature): explicitly 
+	-well, superfluously- close output port.
+
 	* buildscripts/output-distance.py (main): oops. Add extra argument.
 
 2006-06-05  Graham Percival  <gpermus@gmail.com>
diff --git a/scm/stencil.scm b/scm/stencil.scm
index 39f16ea526..5f3413df8f 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -379,5 +379,8 @@ grestore
 		 output)
 	(interpret-for-signature found-grob (lambda (x) #f)
 				 (ly:stencil-expr
-				  (paper-system-stencil paper-system))))))
+				  (paper-system-stencil paper-system)))))
+
+  ;; should be superfluous, but leaking "too many open files"?
+  (close-port output))