assocs: Add of and ?of. Change all the things at once! Fixes #701.

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

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 8c8c97438c8ee244b40d31dc5c5faf6597e56c59..21d0044c516391c49b5ba3ed1ef2badc1059a32b 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -5,13 +5,11 @@ 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
 
 : deep-at ( assoc seq -- value/f )
-    [ swap at ] each ; inline
+    [ of ] each ; inline
 
 : zip-as ( keys values exemplar -- assoc )
     dup sequence? [