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

hash-sets: use push-unsafe from hashtables.private.

db4
John Benediktsson 2013-03-10 17:08:41 -07:00
parent 7f3f90eb8d
commit 7c39f8134b
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/hash-sets/hash-sets.factor
View File

@ -109,16 +109,6 @@ M: hash-set cardinality
M: hash-set adjoin ( key hash-set -- ) M: hash-set adjoin ( key hash-set -- )
dup ?grow-hash (adjoin) ; dup ?grow-hash (adjoin) ;
<PRIVATE
: push-unsafe ( elt seq -- )
[ length ] keep
[ underlying>> set-array-nth ]
[ [ 1 fixnum+fast { array-capacity } declare ] dip length<< ]
2bi ; inline
PRIVATE>
M: hash-set members M: hash-set members
[ array>> [ length ] keep ] [ cardinality <vector> ] bi [ [ array>> [ length ] keep ] [ cardinality <vector> ] bi [
[ [