[project @ 1997-03-14 05:17:06 by sof]

[ghc-hetmet.git] / ghc / lib / cbits / closeFile.lc

diff --git a/ghc/lib/cbits/closeFile.lc b/ghc/lib/cbits/closeFile.lc
index f3efb34..9f4c80e 100644 (file)
--- a/ghc/lib/cbits/closeFile.lc
+++ b/ghc/lib/cbits/closeFile.lc
@@ -10,11 +10,14 @@
 
 StgInt
 closeFile(fp)
-StgAddr fp;
+StgForeignObj fp;
 {
     int rc;
 
-    unlockFile(fileno((FILE *) fp));
+    if (unlockFile(fileno((FILE *) fp))) {
+       /* If it has been unlocked, don't bother fclose()ing */
+       return 0;
+    }
 
     while ((rc = fclose((FILE *) fp)) != 0) {
        if (errno != EINTR) {