]> gitweb.factorcode.org Git - factor.git/commitdiff
sets: reverting push-unsafe change for now, seems to slow it down a little?
authorJohn Benediktsson <mrjbq7@gmail.com>
Sat, 23 Mar 2013 22:22:52 +0000 (15:22 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sat, 23 Mar 2013 22:31:46 +0000 (15:31 -0700)
core/sets/sets.factor

index 571ad3c6930d78e4e494c049650f7413d7dd2899..0d36241b1c7610544e028ec9e774e36c1e7fce05 100644 (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 )