From: Ricardo Cruz <rick2@aeiou.pt>
Date: Sun, 25 Apr 2004 14:16:10 +0000 (+0000)
Subject: Ooops, did a mistake. Fixed by Arkadiusz Miskiewicz.
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=70b3a8239bd5dcf088bb25ed5b3508784e41ae5c;p=supertux.git

Ooops, did a mistake. Fixed by Arkadiusz Miskiewicz.
Aparentaly, fclose(NULL) causes a segfault.

SVN-Revision: 704
---

diff --git a/src/lispreader.cpp b/src/lispreader.cpp
index 4dc6d4fda..30b38021c 100644
--- a/src/lispreader.cpp
+++ b/src/lispreader.cpp
@@ -1339,11 +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;
     }