anchor.diff:  %%--------------------------------------------------------------------
   %%% Internal functions
   %%--------------------------------------------------------------------
  -
   create_file_process(Path, S) ->
  -    Pid = file_process:start_link(Path),
  +    {ok, Pid} = file_process:start_link(Path),
       NewDict = dict:store(Path, Pid, S#state.file_process_dict),
       {ok, Pid, S#state{ file_process_dict = NewDict }}.
   
  
positive.code: 	    write_piece_data(Remaining, Rest, NS)
      end.
  
  read_piece(PieceNum, S) ->
      FilesToRead = dict:fetch(PieceNum, S#state.file_dict),
      {ok, Data, NS} = read_pieces_and_assemble(FilesToRead, [], S),
      {reply, {ok, Data}, NS}.
  
  write_piece(PieceNum, Data, S) ->
      FilesToWrite = dict:fetch(PieceNum, S#state.file_dict),
      {ok, NS} = write_piece_data(Data, FilesToWrite, S),
      {reply, ok, NS}.
  
  remove_file_process(Pid, Dict) ->
      erase_value(Pid, Dict).
  
negative.code: stop(Pid) ->
      gen_server:cast(Pid, stop).
  
  read_piece(Pid, Pn) ->
      gen_server:call(Pid, {read_piece, Pn}).
  
  write_piece(Pid, Pn, Data) ->
      gen_server:call(Pid, {write_piece, Pn, Data}).
  
  %%====================================================================
  %% gen_server callbacks
  %%====================================================================
  