\ 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