(write-system-signature): explicitly

-well, superfluously- close output port.

diff --git a/ChangeLog b/ChangeLog
index 31b63cd4035e956b725106b439ee45424989e642..5e8963831e63ab5471737ee40cece722f726e6c7 100644 (file)
--- 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 39f16ea5261b67b9d7580b1e0e34affcc4caa12d..5f3413df8f64a24395a3334f207dd397446cd4c9 100644 (file)
--- 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))