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

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

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

Modified Files:
	lispreader.cpp 
Log Message:
Ooops, did a mistake. Fixed by Arkadiusz Miskiewicz.
Aparentaly, fclose(NULL) causes a segfault.

Index: lispreader.cpp
===================================================================
RCS file: /cvsroot/super-tux/supertux/src/lispreader.cpp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- lispreader.cpp	25 Apr 2004 10:02:14 -0000	1.13
+++ lispreader.cpp	25 Apr 2004 14:16:10 -0000	1.14
@@ -1339,11 +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;
     }