[project @ 1998-04-10 11:33:12 by simonm]
[ghc-hetmet.git] / ghc / lib / std / cbits / removeFile.lc
similarity index 72%
rename from ghc/lib/std/cbits/removeFile.c
rename to ghc/lib/std/cbits/removeFile.lc
index 12f2e99..095b621 100644 (file)
@@ -1,12 +1,11 @@
-/* 
- * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
- *
- * $Id: removeFile.c,v 1.1 1998/04/10 10:54:45 simonm Exp $
- *
- * removeFile Runtime Support
- */
+%
+% (c) The GRASP/AQUA Project, Glasgow University, 1995
+%
+\subsection[removeFile.lc]{removeFile Runtime Support}
 
-#include "Rts.h"
+\begin{code}
+
+#include "rtsdefs.h"
 #include "stgio.h"
 
 #ifdef HAVE_SYS_TYPES_H
@@ -18,7 +17,8 @@
 #endif
 
 StgInt
-removeFile(StgByteArray path)
+removeFile(path)
+StgByteArray path;
 {
     struct stat sb;
 
@@ -44,3 +44,5 @@ removeFile(StgByteArray path)
     }
     return 0;
 }
+
+\end{code}