From a7235fae6f128e60319488f2821b0fd065aea190 Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Wed, 13 Mar 2013 14:02:48 +0000
Subject: change result type of close_file to long, decrement number_of_files
 if the file with the highest number is closed

---
 ufileIO2.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ufileIO2.c b/ufileIO2.c
index 6c57ae1..b9804f4 100644
--- a/ufileIO2.c
+++ b/ufileIO2.c
@@ -389,7 +389,7 @@ long open_stderr (void)
 	return 0;
 }
 
-int close_file (long fn)
+long close_file (long fn)
 {
 	if (fn<FIRST_REAL_FILE){
 		if (fn==1){
@@ -422,6 +422,9 @@ int close_file (long fn)
 		
 		f->file=NULL;
 
+		if (fn==number_of_files-1)
+			--number_of_files;
+
 		return result;
 	}
 }
-- 
cgit v1.2.3