From 3ace73ec00d6175dc7b9e7e7c4268c0284fd1875 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 27 Apr 2012 11:39:20 -0700 Subject: [PATCH] assocs.extras: adding assoc-harvest and assoc-sift. --- extra/assocs/extras/extras.factor | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 extra/assocs/extras/extras.factor diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor new file mode 100644 index 0000000000..8fd267cbc8 --- /dev/null +++ b/extra/assocs/extras/extras.factor @@ -0,0 +1,13 @@ +! Copyright (C) 2012 John Benediktsson +! See http://factorcode.org/license.txt for BSD license + +USING: assocs kernel sequences ; + +IN: assocs.extras + +: assoc-harvest ( assoc -- assoc' ) + [ nip empty? not ] assoc-filter ; inline + +: assoc-sift ( assoc -- assoc' ) + [ nip ] assoc-filter ; inline + -- 2.34.1