assocs.extras: adding "of".

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index ac5150ad44bd7b2a6dc58537042aff821ff223b0..383da2802cff845207632eb83a32093be229a71e 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -5,6 +5,8 @@ USING: arrays assocs assocs.private kernel math sequences ;
 
 IN: assocs.extras
 
+: of ( assoc key -- value ) swap at ; inline
+
 : assoc-harvest ( assoc -- assoc' )
     [ nip empty? not ] assoc-filter ; inline