compiler.units: use ?adjoin.

2013-03-23 22:13:14 -07:00 · 2013-03-23 22:13:14 -07:00 · 244fca37a9
parent 00450e468a
commit 244fca37a9
1 changed files with 1 additions and 1 deletions
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@ -19,7 +19,7 @@ TUPLE: redefine-error def ;
 <PRIVATE

 : add-once ( key set -- )
-    2dup in? [ over throw-redefine-error ] when adjoin ;
+    dupd ?adjoin [ drop ] [ throw-redefine-error ] if ;

 : (remember-definition) ( definition loc set -- )
    [ over set-where ] dip add-once ;