anchor.diff:      {name, Name, A};
   used_records({call,_,{atom,_,record_info},[A,{atom,_,Name}]}) ->
       {name, Name, A};
  -used_records({call,Line,{tuple,_,[M,F]},As}) ->
  -    used_records({call,Line,{remote,Line,M,F},As});
  +used_records({call,A,{tuple,_,[M,F]},As}) ->
  +    used_records({call,A,{remote,A,M,F},As});
   used_records({type,_,record,[{atom,_,Name}|Fs]}) ->
     {name, Name, Fs};
   used_records(T) when is_tuple(T) ->
  
positive.code: apply_fun(MForFun, As, _Shell) ->
      apply(MForFun, As).
  
  prep_check({call,Line,{atom,_,f},[{var,_,_Name}]}) ->
      %% Do not emit a warning for f(V) when V is unbound.
      {atom,Line,ok};
  prep_check({value,_CommandN,_Val}) ->
      %% erl_lint cannot handle the history expansion {value,_,_}.
      {atom,a0(),ok};
  
negative.code:     E0;
  expand_records(UsedRecords, E0) ->
      RecordDefs = [Def || {_Name,Def} <- UsedRecords],
      A = erl_anno:new(1),
      E = prep_rec(E0),
      Forms0 = RecordDefs ++ [{function,A,foo,0,[{clause,A,[],[],[E]}]}],
      Forms = erl_expand_records:module(Forms0, [strict_record_tests]),
      {function,A,foo,0,[{clause,A,[],[],[NE]}]} = lists:last(Forms),
      prep_rec(NE).
  
  prep_rec({value,_CommandN,_V}=Value) ->
  