StdMisc.dcl 690 Bytes
Newer Older
1 2
system module StdMisc

Camil Staps's avatar
Camil Staps committed
3 4 5 6
/**
 * Miscellaneous functions.
 */

7
// ****************************************************************************************
8 9
//	Concurrent Clean Standard Library Module Version 3.0
//	Copyright 2019 University of Nijmegen
10 11
// ****************************************************************************************

Camil Staps's avatar
Camil Staps committed
12 13 14 15 16 17
/**
 * Print a message and abort the program.
 *
 * @param The message to print
 * @result There is no result; the program will terminate
 */
18
abort		:: !{#Char} -> .a				:== code { .d 1 0 ; jsr print_string_ ; .o 0 0 ; halt }
Camil Staps's avatar
Camil Staps committed
19 20 21 22 23 24 25

/**
 * The undefined value.
 *
 * @result An attempt to evaluate the result will yield a runtime error.
 */
undef		:: .a