2012-04-27 14:39:20 -04:00
|
|
|
! 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
|
|
|
|
|
|
2012-05-14 20:04:52 -04:00
|
|
|
: deep-at ( assoc seq -- value/f )
|
|
|
|
|
[ swap at ] each ;
|
