Fix bug #15786: System File Creation crashes if directoy is

nonexistent.

diff --git a/src/language/data-io/ChangeLog b/src/language/data-io/ChangeLog
index 37047d67f6713a389e2e47aa174105858fcf3529..22d8e675bfab85e8565802d6cec413003409b439 100644 (file)
--- a/src/language/data-io/ChangeLog
+++ b/src/language/data-io/ChangeLog
@@ -1,3 +1,11 @@
+Sat Jul  1 20:44:22 2006  Ben Pfaff  <blp@gnu.org>
+
+       Fix bug #15786: System File Creation crashes if directoy is
+       nonexistent.
+       
+       * get.c (parse_write_command): Check that the any_writer open
+       succeeds.
+
 Tue Jun 27 22:44:28 2006  Ben Pfaff  <blp@gnu.org>
 
        Fix regression in command name completion reported by John

diff --git a/src/language/data-io/get.c b/src/language/data-io/get.c
index 651d222af9745684a337c7c29d7bc242660f6753..0f0824772c216eee796fa5b173155f3578c41efb 100644 (file)
--- a/src/language/data-io/get.c
+++ b/src/language/data-io/get.c
@@ -440,6 +440,8 @@ parse_write_command (enum writer_type writer_type,
     }
   else
     aw->writer = any_writer_open (handle, dict);
+  if (aw->writer == NULL)
+    goto error;
   dict_destroy (dict);
   
   return aw;