assocs.extras: adding delete-value-at.

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

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 257288977af5125f22c5694de32b79684e5d7b2c..0b2aec41f038fffbee0d7b96e2f15789edf16488 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -52,3 +52,8 @@ IN: assocs.extras
 
 : assoc-merge ( seq -- merge )
     H{ } clone [ (assoc-merge) ] reduce ;
+
+GENERIC: delete-value-at ( value assoc -- )
+
+M: assoc delete-value-at
+    [ value-at* ] keep swap [ delete-at ] [ 2drop ] if ;