ack/lang/basic/lib/asrt.c

/* $Header$ */

asrt(b)
{
	if(!b){
		printf("ASSERTION ERROR\n");
		abort();
	}
}
Now using correct RCS identification 1985-01-21 12:47:04 +00:00			`/* $Header$ */`
* empty log message * 1984-11-29 14:22:02 +00:00
			`asrt(b)`
			`{`
			`if(!b){`
			`printf("ASSERTION ERROR\n");`
			`abort();`
			`}`
			`}`