From ca845a76e8e584eb9ef0d8a25f28b226335797da Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 2 Feb 2012 23:43:21 +0100
Subject: [PATCH] safe_close() did not return output flag.

---
 src/c/file.d | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/c/file.d b/src/c/file.d
index ebbddf920..d13d4ea3e 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -2571,6 +2571,7 @@ safe_close(int f)
 	ecl_disable_interrupts_env(the_env);
 	output = close(f);
 	ecl_enable_interrupts_env(the_env);
+	return output;
 }
 
 static FILE *