Just made lispreader to send an error message to stderr when the file could not be...

SVN-Revision: 690

diff --git a/src/lispreader.cpp b/src/lispreader.cpp
index 0ece43d..4dc6d4f 100644 (file)
--- a/src/lispreader.cpp
+++ b/src/lispreader.cpp
@@ -21,6 +21,7 @@
  * Boston, MA 02111-1307, USA.
  */
 
+#include <iostream>
 #include <string>
 #include <assert.h>
 #include <ctype.h>
@@ -1338,8 +1339,11 @@ lisp_object_t* lisp_read_from_file(const std::string& filename)
         {
           lisp_stream_init_file(&stream, in);
           obj = lisp_read(&stream);
-          fclose(in);
         }
+      else
+        std::cerr << "LispReader: File not found: " << filename << endl;
+
+      fclose(in);
 
       return obj;
     }