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

compiler.units: use ?adjoin.

db4
John Benediktsson 2013-03-23 22:13:14 -07:00
parent 00450e468a
commit 244fca37a9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,7 +19,7 @@ TUPLE: redefine-error def ;
<PRIVATE <PRIVATE
: add-once ( key set -- ) : add-once ( key set -- )
2dup in? [ over throw-redefine-error ] when adjoin ; dupd ?adjoin [ drop ] [ throw-redefine-error ] if ;
: (remember-definition) ( definition loc set -- ) : (remember-definition) ( definition loc set -- )
[ over set-where ] dip add-once ; [ over set-where ] dip add-once ;