RosettaCodeData/Task/Assertions/Forth/assertions.fth

5 lines
55 B
Forth
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
variable a
: assert a @ 42 <> throw ;
41 a ! assert