RosettaCodeData/Task/Assertions/Forth/assertions.fth

variable a
: assert   a @ 42 <> throw ;

41 a ! assert