2006-07-29 Ognyan Kulev <ogi@fmi.uni-sofia.bg>

	* migcom.c (myfclose): New function.
	(main): Use myfclose instead of fclose.
	* user.c (WriteUserIndividual): Check for errors when closing file.

1 files changed, 3 insertions, 1 deletions

diff --git a/user.c b/user.c
index 374edbe..8d0a2ab 100644
--- a/user.c
+++ b/user.c
@@ -1320,7 +1320,9 @@ WriteUserIndividual(const statement_t *stats)
 
 		WriteRoutine(file, stat->stRoutine);
 		WriteEpilog(file);
-		fclose(file);
+		if (ferror(file) || fclose(file))
+		    fatal("fclose(): ", filename,
+			  unix_error_string(errno));
 		strfree(filename);
 	    }
 	    break;