\ redefine  10/18/97  gwj
\ detect redefinitions
\ for best effect include before
\ everything except safe

: redef:  ( ; name -- )
   >in @ >r ' r> >in ! create , 
   does> >r
     >in @ >r bl word dup find nip
     if count type
        ."  is redefined" cr
     else drop
     then r> >in ! r> @ execute
   ;

redef: :
redef: create
redef: constant
redef: variable
redef: 2constant
redef: 2variable