2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: fileEOF.c,v 1.3 1998/12/02 13:27:22 simonm Exp $
6 * hIsEOF Runtime Support
16 IOFileObject* fo = (IOFileObject*)ptr;
18 if ( FILEOBJ_IS_EOF(fo) )
21 if (fileLookAhead(ptr) != EOF)
23 else if (ghc_errtype == ERR_EOF)