abort

 check flag. If true emit some text and throw  exception -2 

Stackeffects

( n*x -- )
R( n*y -- )

Definition

: abort
   compile
compile
   here    compile
compile
   .    compile
compile
   compile
compile
   compile
compile
   here    swap    i!
;

Used by