/usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cHClose.c

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cHClose.c


#include "haskell2c.h"


/* foreign import hCloseC :: Addr -> IO () */
void hCloseC (FileDesc *f)
{
  if (f->fp)
    fclose(f->fp);
  f->fp = 0;
  f->bm = -1;
}

(Return to Plan 9 Home Page)