anchor.diff:  -define(Threshold, 5).
   
   -define(StartChildTimeout, 6000).
  +
  +-record(child_state, {pid, id, spec}).
   
   %%%===================================================================
   %%% API functions
  
positive.code: 	    ChildList
      end;
  restart_child(Pid, ChildList, _Reason) ->
      case lists:keyfind(Pid, 1, ChildList) of
  	{Pid, ChildSpec} ->
  	      case start_child(ChildSpec) of
  		{ok, NewPid, ChildSpec} ->
  		    [{NewPid, ChildSpec}|lists:keydelete(Pid, 1, ChildList)];
  		{error, child_not_started, ChildSpec} ->
  		    lists:keydelete(Pid, 1, ChildList)
  	    end;
  
negative.code: 
  %% API
  -export([start_link/1, stop/0]).
  %-export([start_child/1, stop_child/1]).
  
  %% Supervisor callbacks
  -export([init/1]).
  