change result type of close_file to long,

decrement number_of_files if the file with the highest number is closed

1 files changed, 4 insertions, 1 deletions

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