From 72ecd1faae47e8698022a217d767dd64b8ea51f4 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 30 Jan 2022 12:15:13 -0600 Subject: [PATCH] assocs.extras: add change values-of word to not sift fix using --- basis/slots/syntax/syntax.factor | 2 +- extra/assocs/extras/extras.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 ; -- 2.34.1