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

sets: use = instead of eq? in M\ set set=.

char-rename
John Benediktsson 2017-02-07 14:54:57 -08:00
parent bfcd68e2e9
commit 846d2315ff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sets/sets.factor
View File

@ -41,7 +41,7 @@ M: set ?adjoin 2dup in? [ 2drop f ] [ adjoin t ] if ;
M: set ?delete 2dup in? [ delete t ] [ 2drop f ] if ; M: set ?delete 2dup in? [ delete t ] [ 2drop f ] if ;
M: set null? cardinality zero? ; inline M: set null? cardinality 0 = ; inline
M: set cardinality members length ; M: set cardinality members length ;
@ -98,7 +98,7 @@ M: set subset?
2dup [ cardinality ] bi@ > [ 2drop f ] [ (subset?) ] if ; 2dup [ cardinality ] bi@ > [ 2drop f ] [ (subset?) ] if ;
M: set set= M: set set=
2dup [ cardinality ] bi@ eq? [ (subset?) ] [ 2drop f ] if ; 2dup [ cardinality ] bi@ = [ (subset?) ] [ 2drop f ] if ;
M: set fast-set ; M: set fast-set ;