sets: reverting push-unsafe change for now, seems to slow it down a little?

db4
John Benediktsson 2013-03-23 15:22:52 -07:00
parent e0e12fd5ea
commit d6053dd81e
1 changed files with 2 additions and 3 deletions

View File

@ -1,7 +1,6 @@
! Copyright (C) 2010 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: assocs hashtables growable.private kernel math sequences
vectors ;
USING: assocs hashtables kernel math sequences vectors ;
FROM: assocs => change-at ;
IN: sets
@ -102,7 +101,7 @@ M: set all-unique? drop t ;
: (pruned) ( elt set accum -- )
2over in? [ 3drop ] [
[ drop adjoin ] [ nip push-unsafe ] 3bi
[ drop adjoin ] [ nip push ] 3bi
] if ; inline
: pruned ( seq -- newseq )