steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.units: Rename redefine-error.

db4
Doug Coleman 2013-03-23 17:14:53 -07:00
parent fb4eb84f7c
commit 918208aeb6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/compiler/units/units.factor
View File

@ -13,13 +13,13 @@ SYMBOL: new-definitions
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 ;
@ -33,7 +33,7 @@ PRIVATE>
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 -- ? )