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

bit-sets: use adjoin-all.

db4
John Benediktsson 2013-03-23 22:07:22 -07:00
parent da84d1ce21
commit 2621fff99e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/bit-sets/bit-sets.factor
View File

@ -76,7 +76,7 @@ M: bit-set members
over bit-set? [ 2dup [ table>> length ] same? ] [ f ] if over bit-set? [ 2dup [ table>> length ] same? ] [ f ] if
[ drop ] [ [ drop ] [
[ members ] dip table>> length <bit-set> [ members ] dip table>> length <bit-set>
[ [ adjoin ] curry each ] keep [ adjoin-all ] keep
] if ; ] if ;
PRIVATE> PRIVATE>