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