RosettaCodeData/Task/Assertions/ALGOL-68/assertions-1.alg

6 lines
176 B
Plaintext

OP ASSERT = (VECTOR [] CHAR assertion,BOOL valid) VOID:
IF NOT valid
THEN type line on terminal(assertion);
terminal error( 661 {invalid assertion } )
FI;