1 /* -----------------------------------------------------------------------------
2 * $Id: PatErrorHdr.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
15 PatErrorHdrHook (long fd)
17 const char msg[] = "\nFail: ";
18 write(fd,msg,sizeof(msg)-1);