2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: fileLookAhead.c,v 1.1 1998/04/10 10:54:24 simonm Exp $
6 * hLookAhead Runtime Support
13 fileLookAhead(StgAddr fp)
17 if ((c = fileGetc((FILE *)fp)) == EOF) {
19 } else if (ungetc(c, (FILE *)fp) == EOF) {