X-Git-Url: https://git.xandkar.net/?p=hope.git;a=blobdiff_plain;f=src%2Fhope_kv_list.erl;h=ebc4176b1231c29cbf5c2ce4a1a58001c1f2477c;hp=3ca9d07af593d51e5e7a6479947f369ba3508356;hb=70cf8e86a06d8721fcc8b658bb2be1f7b401326f;hpb=126c888082556366e73dfa5fb5fe3eedf2818dfc

diff --git a/src/hope_kv_list.erl b/src/hope_kv_list.erl
index 3ca9d07..ebc4176 100644
--- a/src/hope_kv_list.erl
+++ b/src/hope_kv_list.erl
@@ -14,6 +14,7 @@
     , get/2
     , set/3
     , update/3
+    , pop/2
     , iter/2
     , map/2
     , filter/2
@@ -51,6 +52,12 @@ update(T, K, F) ->
     % TODO: Eliminate the 2nd lookup.
     set(T, K, V2).
 
+pop(T1, K) ->
+    case lists:keytake(K, 1, T1)
+    of  {value, {K, V}, T2} -> {{some, V}, T2}
+    ;   false               -> {none     , T1}
+    end.
+
 iter(T, F1) ->
     F2 = lift_map(F1),
     lists:foreach(F2, T).