anchor.diff:  							   Toks31= lists:takewhile(fun(T)-> token_loc(T) =< EndLoc end, Toks3),
   							   NewLen = length(Toks31),
   							   case NewLen >=MinLength of 
  -							       true ->  NewRange = trim_range(tl(Range), {Len1, Len2}),
  -									{StartLn, StartCol} = StartLoc,
  -									{EndLn, EndCol} = EndLoc,
  -									[{[{{File1, StartLn, StartCol}, {File1, EndLn, EndCol}}|NewRange], NewLen, F}];
  -							       false -> []
  +							       true ->  
  +								   NewRange = trim_range(tl(Range), {Len1, Len2}),
  +								   {StartLn, StartCol} = StartLoc,
  +								   {EndLn, EndCol} = EndLoc,
  +								   [{[{{File1, StartLn, StartCol}, {File1, EndLn, EndCol}}|NewRange], NewLen, F}];
  +							       false -> 
  +								   []
   							   end
   						   end,
   					      lists:append(lists:map(Fun2, Units));
  
positive.code: 	ok -> case  catch call_port({get, MinLength, MinClones, OutFileName}) of
  		  {ok, _Res} ->
  		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
  		      {ok, [Cs]} = file:consult(OutFileName),
  		      file:delete(OutFileName),
  		      {Toks, Cs};
  
negative.code:     {Cs5, FileNames} = duplicated_code_detection(DirFileList, MinClones1, MinLength1),
      ?debug("Filtering out sub-clones.\n", []),
      Cs6 = remove_sub_clones(Cs5),
      ?debug("current time:~p\n", [time()]),
      case length(FileNames) of
           1 -> display_clones(Cs6);
  