TUPLE: redefine-error def ;
-: redefine-error ( definition -- )
+: throw-redefine-error ( definition -- )
\ redefine-error boa throw-continue ;
<PRIVATE
: add-once ( key set -- )
- 2dup in? [ over redefine-error ] when adjoin ;
+ 2dup in? [ over throw-redefine-error ] when adjoin ;
: (remember-definition) ( definition loc set -- )
[ over set-where ] dip add-once ;
old-definitions get [ delete ] with each ;
: remember-class ( class loc -- )
- [ dup new-definitions get first in? [ dup redefine-error ] when ] dip
+ [ dup new-definitions get first in? [ dup throw-redefine-error ] when ] dip
new-definitions get second (remember-definition) ;
: forward-reference? ( word -- ? )