assocs.extras: add change values-of word to not sift

fix using

diff --git a/basis/slots/syntax/syntax.factor b/basis/slots/syntax/syntax.factor
index dff8b7db23441f3585b0f53b7b67a71003bfb9e4..a0ad5a9bf4ea5dfe14a11111bfe201a48d03e0c8 100644 (file)
--- a/basis/slots/syntax/syntax.factor
+++ b/basis/slots/syntax/syntax.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2010 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators combinators.smart fry kernel lexer quotations
+USING: combinators combinators.smart kernel lexer quotations
 sequences sequences.generalizations slots words ;
 IN: slots.syntax
 

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 116fa43c3d721ff29ea353512daee3fda21e0a08..addd66b5fdff6a9f60ccdc89fa549332324c9239 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -217,8 +217,8 @@ PRIVATE>
 : intersect-keys ( assoc seq -- elts )
     [ of ] with zip-with sift-values ; inline
 
-: values-of ( assoc seq -- elts )
-    [ of ] with map sift ; inline
+: values-of ( assoc seq -- seq' )
+    [ of ] with map ; inline
 
 : counts ( seq elts -- counts )
     [ histogram ] dip intersect-keys ;