anchor.diff:        _ -> {Node, false}
       end.
   
  -format(none) ->
  +prettyprint(none) ->
       none;
  -format(Node) -> 
  +prettyprint(Node) -> 
       refac_prettypr:format(Node).
   
   
  
positive.code: check_records_in_target_file(UsedRecords, UsedRecordDefs, UsedRecordDefsInTargetFile) ->
      case length(UsedRecords) > length(UsedRecordDefsInTargetFile) of
        true ->
  	  Msg = io_lib:format("\n Records used by the function selected "
  			      "are not defined in the target module: ~p.",
  			      [UsedRecords -- element(1, lists:unzip(UsedRecordDefsInTargetFile))]),
  	  ?wrangler_io(Msg, []),
  	  throw({error, Msg});
        _ ->
  	  case lists:keysort(1, UsedRecordDefs) == lists:keysort(1, UsedRecordDefsInTargetFile) of
  	    true -> true;
  	    _ ->
  		Msg1 = io_lib:format("\n Records used by the function selected "
  				     "are defined differently in the target module: ~p.",
  				     [element(1, lists:unzip(lists:keysort(1, UsedRecordDefs)
  							     -- lists:keysort(1, UsedRecordDefsInTargetFile)))]),
  		?wrangler_io(Msg1, []),
  		throw({error, Msg1})
  	  end
      end.
  
  
negative.code: 	      Info = get_mod_info_from_parse_tree(AST),
  	      case lists:keysearch(records, 1, Info) of
  		{value, {records, RecordDefs}} ->
  		    [{Name, lists:keysort(1, [{F, prettyprint(FDef)} || {F, FDef} <- Fields])}
  		     || {Name, Fields} <- RecordDefs, lists:member(Name, UsedRecords)];
  		_ -> []
  	      end
  