assocs.extras: adding assoc-sift.

2014-02-13 20:08:12 -08:00 · 2014-02-13 20:08:12 -08:00 · e9e4115de1
parent 5ad200a41a
commit e9e4115de1
1 changed files with 3 additions and 0 deletions
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@ -5,6 +5,9 @@ USING: arrays assocs assocs.private kernel math sequences ;

 IN: assocs.extras

+: assoc-sift ( assoc -- assoc' )
+    [ nip ] assoc-filter ; inline
+
 : assoc-harvest ( assoc -- assoc' )
    [ nip empty? not ] assoc-filter ; inline