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

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

db4
Doug Coleman 2012-05-04 09:05:15 -07:00
parent 3c29b4c131
commit da1747ffed
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
USING: accessors arrays assocs classes classes.private USING: accessors arrays assocs classes classes.private
classes.tuple classes.tuple.private continuations definitions classes.tuple classes.tuple.private continuations definitions
generic init kernel kernel.private math namespaces sequences 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 ; FROM: namespaces => set ;
IN: compiler.units IN: compiler.units
@ -18,7 +18,6 @@ TUPLE: redefine-error def ;
<PRIVATE <PRIVATE
: add-once ( key assoc -- ) : add-once ( key assoc -- )
! 2dup keys swap [ class= ] curry any? [ over redefine-error ] when conjoin ;
2dup key? [ over redefine-error ] when conjoin ; 2dup key? [ over redefine-error ] when conjoin ;
: (remember-definition) ( definition loc assoc -- ) : (remember-definition) ( definition loc assoc -- )