\ groupcatch   10/04/97   gwj
\ implement catch/throw on top of
\ group words
require group

: catch   ( xt -- exception# | 0 )
   group{ execute }group dup
   if >r group!depth drop r> then ;

: throw ( exception# -- )  reregroup ;