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

[factor.git] / core / assocs / assocs.factor

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 6f296ab5b39657ae277592f46b974275018bce1c..afd722b7978b6c74512fdd07a5451bcb2b7ac2e4 100644 (file)
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -97,6 +97,12 @@ PRIVATE>
 : at ( key assoc -- value/f )
     at* drop ; inline
 
+: ?of ( assoc key -- value/key ? )
+    swap ?at ; inline
+
+: of ( assoc key -- value/f )
+    swap at ; inline
+
 M: assoc assoc-clone-like ( assoc exemplar -- newassoc )
     [ dup assoc-size ] dip new-assoc
     [ [ set-at ] with-assoc assoc-each ] keep ; inline