assocs.extras: adding deep-at.

[factor.git] / extra / assocs / extras / extras.factor

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 8fd267cbc83830e1988eeae3f6c280c6e3cde9fa..18b84780421a86e47be588e634c266ab87aa10e3 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -11,3 +11,5 @@ IN: assocs.extras
 : assoc-sift ( assoc -- assoc' )
     [ nip ] assoc-filter ; inline
 
+: deep-at ( assoc seq -- value/f )
+    [ swap at ] each ;