[Super-tux-commit] supertux/src lispreader.cpp,1.12,1.13

[Ricardo C. <rm...@us...>]

Update of /cvsroot/super-tux/supertux/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16629/src

Modified Files:
	lispreader.cpp 
Log Message:
Just made lispreader to send an error message to stderr when the file could not be open, as suggested by Arkadiusz Miskiewicz.

Index: lispreader.cpp
===================================================================
RCS file: /cvsroot/super-tux/supertux/src/lispreader.cpp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- lispreader.cpp	3 Apr 2004 13:31:14 -0000	1.12
+++ lispreader.cpp	25 Apr 2004 10:02:14 -0000	1.13
@@ -21,6 +21,7 @@
  * Boston, MA 02111-1307, USA.
  */
 
+#include <iostream>
 #include <string>
 #include <assert.h>
 #include <ctype.h>
@@ -1338,8 +1339,11 @@
         {
           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;
     }