anchor.diff:  		  ||R<-Ranges])).
   
   
  +create_temp_dir()->
  +    case find_homedir() of 
  +        none ->
  +            {error, "Wrangler could not infer home directory"};
  +        Path ->
  +            DotWranglerDir=filename:join(Path, ".wrangler"),
  +            TempDir=filename:join(DotWranglerDir, "temp"),
  +            case filelib:is_dir(DotWranglerDir) of
  +                true ->
  +                    case filelib:is_dir(TempDir) of 
  +                        true ->
  +                            ok;
  +                        _ ->
  +                            file:make_dir(TempDir)
  +                    end;
  +                false ->
  +                    case file:make_dir(DotWranglerDir) of 
  +                        ok ->
  +                            file:make_dir(TempDir);
  +                        {error, Reason} ->
  +                            {error, Reason}
  +                    end
  +            end
  +    end.
  +                                
  +                                                        
  +                
  +                    
  
positive.code:     spawn_link(fun()->clone_check_loop([],[], Tabs) end).
  
  stop_clone_check_process(Pid) ->
      Pid ! stop.
  
  add_new_clones(Pid, Clones) ->
      Pid ! {add_clone, Clones}.
  
negative.code: -define(Threshold, get_temp_file_path("threshold")).
  %% record the store the ets/dets table names.
  
  find_homedir() ->
      case os:getenv("HOME") of 
          false ->
              %% are we on Windows?
              case {os:getenv("HOMEDRIVE"),os:getenv("HOMEPATH")} of
                  {false, _} -> false;
                  {Drive, false} -> Drive;
                  {Drive, Path} -> Drive ++ Path
              end;
          Path ->
              Path
      end.
  
  get_temp_file_path(Tab) ->
      list_to_atom(case find_homedir() of
                       false ->
                           "none";
                       Dir ->
                           filename:join([Dir, ".wrangler","temp", Tab])
                   end).
  -record(tabs, 
  	{ast_tab,
  	 var_tab, 
  