assocs.extras: adding "of".

2012-09-26 15:41:36 -07:00 · 2012-09-26 15:41:36 -07:00 · ddbffb6375
parent 2bf2bd0ee2
commit ddbffb6375
1 changed files with 2 additions and 0 deletions
--- 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