/* ,file-id archive://[lord]/394/vu/./panic.c/1998-05-18
*/
/* classes: src_files */

/*	Copyright (C) 1997 Tom Lord
 * 
 * This program is provided to you under the terms of the Liberty Software
 * License.  You are NOT permitted to redistribute, modify, or use it
 * except in very specific ways described by that license.
 *
 * This software comes with NO WARRANTY.
 * 
 * You should have received a copy of the Liberty Software License
 * along with this software; see the file =LICENSE.  If not, write to
 * the Tom Lord, 1810 Francisco St. #2, Berkeley CA, 94703, USA.  
 */


#include "panic.h"


int
panic (char * str)
{
  return panic_fn (str);
}

int
panic_and_exit (char * str)
{
  write (2, str, strlen (str));
  write (2, "\n", 1);
  exit (1);
  return 0;
}

int (*panic_fn) (char * str) = panic_and_exit;
