9.6.2.0670
ABORT
 
EXCEPTION EXT
 
Extend the semantics of 6.1.0670 ABORT to be: ( i * x -- ) ( R: j * x -- )

Perform the function of -1 THROW.

Implementation:
: ABORT -1 THROW ;
Testing: