-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1994
-%
-\subsection[closeFile.lc]{hClose Runtime Support}
-
-\begin{code}
-
-#include "rtsdefs.h"
+/*
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: closeFile.c,v 1.1 1998/04/10 10:54:14 simonm Exp $
+ *
+ * hClose Runtime Support
+ */
+
+#include "Rts.h"
#include "stgio.h"
StgInt
-closeFile(fp)
-StgForeignObj fp;
+closeFile(StgAddr fp)
{
int rc;
return 0;
}
-\end{code}
-