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