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

hash-sets: inline >hash-set to speed up set operations.

db4
John Benediktsson 2013-03-26 17:51:59 -07:00
parent e6d4b9054e
commit 3d9b1f4adb
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/hash-sets/hash-sets.factor
View File

@ -127,7 +127,7 @@ M: hash-set equal?
over hash-set? [ set= ] [ 2drop f ] if ; over hash-set? [ set= ] [ 2drop f ] if ;
: >hash-set ( members -- hash-set ) : >hash-set ( members -- hash-set )
dup length <hash-set> [ (rehash) ] keep ; dup length <hash-set> [ (rehash) ] keep ; inline
M: hash-set set-like M: hash-set set-like
drop dup hash-set? [ ?members >hash-set ] unless ; inline drop dup hash-set? [ ?members >hash-set ] unless ; inline