RosettaCodeData/Task/Assertions/Forth/assertions.fth
2015-11-18 06:14:39 +00:00

4 lines
55 B
Forth

variable a
: assert a @ 42 <> throw ;
41 a ! assert