StdMisc.icl 523 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
implementation module StdMisc

// ****************************************************************************************
//	Concurrent Clean Standard Library Module Version 2.0
//	Copyright 1995 University of Nijmegen
// ****************************************************************************************

abort :: !{#Char} -> .a		// stop reduction and print argument
abort a = code inline {
	.d 1 0
	jsr print_string_
	.o 0 0
	halt
	}

undef:: .a
undef = abort "Run-time error! Program evaluated undefined value?!"