\ groupext   10/04/97   gwj
\ extensions to the group words
require group

: ?regroup.again
   ( group# test# -- group# )
    over = if regroup then ;

: regroup.again:   ( group# ; name -- )
   create  , does> @ ?regroup.again ;

unique.constant key-group#

\ thanks to Tuyen Tran
: key.regroup   ( -- )
   ekey  if cr
         ." Paused. Do you want to quit?"
         y/n? key-group# ?regroup
    then ;

key-group#
regroup.again: ?key.regroup.again

: abort     -1 regroup ;
: abortq   ( addr cnt -- ) 
cr type -2 regroup ;
: abort"  ( "ccc<">" -- )
    postpone s" postpone abortq ;
immediate