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

sets: improving the speed of set=.

db4
John Benediktsson 2010-12-27 19:33:18 -08:00
parent 47faf5f6ae
commit 7ee7f41334
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/sets/sets.factor
View File

@ -61,7 +61,7 @@ M: set subset?
sequence/tester all? ; sequence/tester all? ;
M: set set= M: set set=
2dup subset? [ swap subset? ] [ 2drop f ] if ; 2dup [ cardinality ] bi@ = [ subset? ] [ 2drop f ] if ;
M: set fast-set ; M: set fast-set ;