//%
// Error Halt module // GERR.SR GYPSY version **


//%b
// get "LUSERSYMS.SR"

//%

// Incoming Procedures

external [
// 	outsb;
// 	outcr;

//%cb
	swat;

//%
	];

// Incoming Statics

external [
	outstream;
	];

// Outgoing Procedures

external [
	errhlt;
	errck;
	];

// Outgoing Statics

external [
	ckperr;
	ckproc;
	];

// Local Statics

static	[
	ckperr;
	ckproc;
	];

// Local Structures

// Local Manifests

manifest [
	chcr = #15;
	];

// E R R H L T
let errhlt(string) be
[
// ** outsb("Error: ");
// ** outsb(string);
// ** outcr();
swat();
];

// E R R C K
and errck(string,perr; numargs N) be
[
if N gr 1 then ckperr = perr;
// ** outsb("Error check: ");
// ** // ** outsb(string);
// ** outcr();
swat();
] // end errck
//&5P0,55,83,146,160;00021!#&@