fclose: Fix mistake earlier today.

[pspp] / lib / fclose.c

diff --git a/lib/fclose.c b/lib/fclose.c
index c0dfa27e9fe0443ab22ac66beace09301d6e06c3..27f6836584aeba124d94f61e6a63374ea2a9de4c 100644 (file)
--- a/lib/fclose.c
+++ b/lib/fclose.c
@@ -65,7 +65,7 @@ rpl_fclose (FILE *fp)
      Some other thread could open fd between our calls to fclose and
      _gl_unregister_fd.  */
   result = fclose (fp);
-  if (result >= 0)
+  if (result == 0)
     _gl_unregister_fd (fd);
 # else
   /* No race condition here.  */