[project @ 1998-04-10 10:54:14 by simonm]

[ghc-hetmet.git] / ghc / lib / std / cbits / renameFile.c

diff --git a/ghc/lib/std/cbits/renameFile.lc b/ghc/lib/std/cbits/renameFile.c
similarity index 91%
rename from ghc/lib/std/cbits/renameFile.lc
rename to ghc/lib/std/cbits/renameFile.c
index 2bcb9c0..c52d575 100644 (file)
--- a/ghc/lib/std/cbits/renameFile.lc
+++ b/ghc/lib/std/cbits/renameFile.c
@@ -1,11 +1,12 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1995
-%
-\subsection[renameFile.lc]{renameFile Runtime Support}
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: renameFile.c,v 1.1 1998/04/10 10:54:48 simonm Exp $
+ *
+ * renameFile Runtime Support
+ */
 
-\begin{code}
-
-#include "rtsdefs.h"
+#include "Rts.h"
 #include "stgio.h"
 
 #ifdef HAVE_SYS_TYPES_H
@@ -21,9 +22,7 @@
 #endif
 
 StgInt
-renameFile(opath, npath)
-StgByteArray opath;
-StgByteArray npath;
+renameFile(StgByteArray opath, StgByteArray npath)
 {
     struct stat sb;
     int fd;
@@ -129,4 +128,3 @@ StgByteArray npath;
     close(fd);    
     return 0;
 }
-\end{code}