anchor.diff:  -module(keylist).
   -export([fetch/2, keys/1, from_list/1, append/2, prepend/2,
  -	 deletefirst/2, set/3]).
  +	 delete/2, deletefirstvalue/2, set/3]).
   
   listfetch(Key, []) ->
       [];
  
positive.code: 			 lists:append([Value], Valuelist)
  		 end, List).
  
  deletefirst(Key, List) ->
      Casekey = httpd_util:to_lower(Key),
      mod(Casekey, fun (Valuelist) ->
  			 case Valuelist of
  
negative.code:     [{Key, Func(Valuelist)} | List];
  mod(Key, Func, [{Key2, Valuelist} | List]) ->
      [{Key2, Valuelist} | mod(Key, Func, List)].
  
  del(Key, []) ->
      [];
  del(Key, [{Key, Valuelist} | List]) ->
      List;
  del(Key, [{Key2, Valuelist} | List]) ->
      [{Key2, Valuelist} | del(Key, List)].
  