[project @ 1998-04-22 13:03:52 by sof]

[ghc-hetmet.git] / ghc / lib / std / cbits / directoryAux.lc

diff --git a/ghc/lib/std/cbits/directoryAux.lc b/ghc/lib/std/cbits/directoryAux.lc
index 2b352c3..cc67e00 100644 (file)
--- a/ghc/lib/std/cbits/directoryAux.lc
+++ b/ghc/lib/std/cbits/directoryAux.lc
@@ -64,7 +64,7 @@ StgAddr dir;
         cvtErrno();
         stdErrno();
        (void) closedir((DIR*)dir);
-       return 1;
+       return NULL;
     }
     errno = 0;
   }