release: 1.3.18

[lilypond.git] / flower / text-stream.cc

diff --git a/flower/text-stream.cc b/flower/text-stream.cc
index 737b41196075b6487944aa75f4097e46b486a4b3..cb88bcd498165d5db03eff0170050c90c5b524cf 100644 (file)
--- a/flower/text-stream.cc
+++ b/flower/text-stream.cc
@@ -1,3 +1,4 @@
+#include <iostream.h>
 #include "text-stream.hh"
 
 Text_stream::Text_stream (String fn)
@@ -39,3 +40,11 @@ Text_stream::eof_b ()
       // !pushback.size () && 
       feof (f);
 }
+
+Text_stream::~Text_stream()
+{
+    if (!eof_b()) 
+      cerr <<__FUNCTION__<< ": closing unended file";
+    
+    fclose (f);
+  }