From 130f7b3c4e347c6d5dd8c1e506a38df1bf808c5e Mon Sep 17 00:00:00 2001
From: Ricardo Cruz <rick2@aeiou.pt>
Date: Sun, 25 Apr 2004 10:02:14 +0000
Subject: [PATCH] Just made lispreader to send an error message to stderr when
 the file could not be open, as suggested by Arkadiusz Miskiewicz.

SVN-Revision: 690
---
 src/lispreader.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/lispreader.cpp b/src/lispreader.cpp
index 0ece43d83..4dc6d4fda 100644
--- 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;
     }
-- 
2.11.0