Skip to content
Browse files

compiler.units: Oops, meant not to commit this one.

  • Loading branch information...
1 parent a85969e commit a20adde72b5a37b81ea89acc5b36e32e40732360 @erg erg committed May 4, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 core/compiler/units/units.factor
View
3 core/compiler/units/units.factor
@@ -3,7 +3,7 @@
USING: accessors arrays assocs classes classes.private
classes.tuple classes.tuple.private continuations definitions
generic init kernel kernel.private math namespaces sequences
-sets source-files.errors vocabs words classes.algebra ;
+sets source-files.errors vocabs words ;
FROM: namespaces => set ;
IN: compiler.units
@@ -18,7 +18,6 @@ TUPLE: redefine-error def ;
<PRIVATE
: add-once ( key assoc -- )
- ! 2dup keys swap [ class= ] curry any? [ over redefine-error ] when conjoin ;
2dup key? [ over redefine-error ] when conjoin ;
: (remember-definition) ( definition loc assoc -- )

0 comments on commit a20adde

Please sign in to comment.
Something went wrong with that request. Please try again.