1 /* -----------------------------------------------------------------------------
2 * $Id: PatErrorHdr.c,v 1.2 1998/12/02 13:29:15 simonm Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
11 PatErrorHdrHook (long fd)
13 const char msg[] = "\nFail: ";
14 write(fd,msg,sizeof(msg)-1);