From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 30 Jan 2022 18:15:13 +0000 (-0600)
Subject: assocs.extras: add change values-of word to not sift
X-Git-Tag: 0.99~1605
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=72ecd1faae47e8698022a217d767dd64b8ea51f4

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 dff8b7db23..a0ad5a9bf4 100644
--- 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 116fa43c3d..addd66b5fd 100644
--- 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 ;