anchor.diff:      ok.
   
   delete_helper(Name, Kind, Commit, StoreMod) ->
  -    ok.
  +    case delete_check(Name, Kind) of
  +	{error, _}=E ->
  +	    E;
  +	ok ->
  +	    Tree = wallaroo_commit:get_tree(get_commit(Commit, StoreMod), StoreMod),
  +	    OtherEntities = immediately_affected_entities(Name, Kind, Tree, StoreMod),
  +	    {_, TmpTree} = 
  +		lists:foldl(fun({Path, Obj}, {_H, TreeAcc}) ->
  +				    wallaroo_tree:put_path(Path, Obj, TreeAcc, StoreMod)
  +			    end, 
  +			    {unchanged, Tree},
  +			    OtherEntities),
  +	    {NewHash, _NewTree} = 
  +		wallaroo_tree:del_path([xlate_what(Kind), Name], TmpTree, StoreMod),		    
  +	    wallaroo_commit:store(wallaroo_commit:new([Commit], NewHash, [], [{deletes,<<(xlate_what(Kind))/binary, 47, Name/binary>>}]), StoreMod)
  +    end.
   
   immediately_affected_entities(_Name, node, _Tree, _StoreMod) ->
       % removing a node doesn't affect anything else
  
positive.code: 		error_logger:warning_msg("No groups for tree with hash ~p~n", [wallaroo_db:identity(Tree)]),
  		[]
  	end,
      Groups ++ Features.
  
  % eliminates the feature named DelF from the feature object Fobj
  -spec elim_feature(binary(), wallaby_feature:feature()) -> wallaby_feature:feature().
  
negative.code: elim_param(DelP, {wallaby_subsystem, _}=Obj) ->
      wallaby_subsystem:set_parameters(Obj, [P || P <- wallaby_subsystem:parameters(Obj),
  						P =/= DelP]).
  
  handle_info(_X, State) ->
      {noreply, State}.
  