From 70b3a8239bd5dcf088bb25ed5b3508784e41ae5c Mon Sep 17 00:00:00 2001
From: Ricardo Cruz <rick2@aeiou.pt>
Date: Sun, 25 Apr 2004 14:16:10 +0000
Subject: [PATCH] Ooops, did a mistake. Fixed by Arkadiusz Miskiewicz.
 Aparentaly, fclose(NULL) causes a segfault.

SVN-Revision: 704
---
 src/lispreader.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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