Handle unwritable midi file.

diff --git a/ChangeLog b/ChangeLog
index 75d9fd9d7946bc18ec679d9070a5cb35ac4fe250..836e7e72ca1da11ff295c646b0c15ceebae00145 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-04-05  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * lily/midi-stream.cc: Handle unwritable midi file.
+
        * Documentation/user/: Fix links.
 
 2005-04-05  Han-Wen Nienhuys  <hanwen@xs4all.nl>

diff --git a/lily/midi-stream.cc b/lily/midi-stream.cc
index 0112fdb73f67c09995cbcbb56b2111fc8c22eb15..185287732d20563c0253b5f5e096ff5ae280c230 100644 (file)
--- a/lily/midi-stream.cc
+++ b/lily/midi-stream.cc
@@ -20,6 +20,8 @@ Midi_stream::Midi_stream (String file_name)
 {
   file_name_string_ = file_name;
   out_file_ = fopen (file_name.to_str0 (), "wb");
+  if (!out_file_)
+    error (_f ("can't open for write: %s: %s", file_name, strerror (errno)));
 }
 
 Midi_stream::~Midi_stream ()