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;
}
|
