[project @ 1998-04-07 08:23:07 by sof]

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

diff --git a/ghc/lib/std/cbits/filePutc.lc b/ghc/lib/std/cbits/filePutc.lc
index 4e6b85b..980aa63 100644 (file)
--- a/ghc/lib/std/cbits/filePutc.lc
+++ b/ghc/lib/std/cbits/filePutc.lc
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1994
 %
-\subsection[filePuc.lc]{hPutChar Runtime Support}
+\subsection[filePut.lc]{hPutChar Runtime Support}
 
 \begin{code}
 
@@ -16,7 +16,7 @@ StgInt c;
 {
     int rc;
 
-    /* Try to read a character */
+    /* Try to write a character */
     while ((rc = putc((int) c, (FILE *) fp)) == EOF && errno == EINTR)
        clearerr((FILE *) fp);