assocs: Add ?delete-at.

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 9f4a4170429a09e1198e53649623f7fd0139b426..515fdcb26ee3aca8c17fdbd0444e23f7b9d4f688 100644 (file)
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -131,6 +131,9 @@ M: assoc values [ nip ] { } assoc>map ;
 : delete-at* ( key assoc -- old ? )
     [ at* ] 2keep delete-at ;
 
+: ?delete-at ( key assoc -- old ? )
+    [ ?at ] 2keep delete-at ;
+
 : rename-at ( newkey key assoc -- )
     [ delete-at* ] keep [ set-at ] with-assoc [ 2drop ] if ;