anchor.diff:      expr({call,Line,{atom,Lf,is_record},[E,A]}, Vt, St0);
   expr({call,L,{tuple,Lt,[{atom,Lm,erlang},{atom,Lf,is_record}]},As}, Vt, St) ->
       expr({call,L,{remote,Lt,{atom,Lm,erlang},{atom,Lf,is_record}},As}, Vt, St);
  +expr({call,Line,{remote,_Lr,{atom,_Lm,M},{atom,Lf,F}},As}, Vt, St0) ->
  +    St1 = keyword_warning(Lf, F, St0),
  +    St2 = check_remote_function(Line, M, F, As, St1),
  +    expr_list(As, Vt, St2);
   expr({call,Line,{remote,_Lr,M,F},As}, Vt, St0) ->
  -    case expand_package(M, St0) of
  -        {error, _} ->
  -            expr_list([M,F|As], Vt, St0);
  -        {{atom,_La,M1}, St1} ->
  -            case F of
  -                {atom,Lf,F1} ->
  -                    St2 = keyword_warning(Lf, F1, St1),
  -                    St3 = check_remote_function(Line, M1, F1, As, St2),
  -                    expr_list(As, Vt, St3);
  -                _ ->
  -                    expr_list([F|As], Vt, St1)
  -            end
  -    end;
  +    St1 = keyword_warning(Line, M, St0),
  +    St2 = keyword_warning(Line, F, St1),
  +    expr_list([M,F|As], Vt, St2);
   expr({call,Line,{atom,La,F},As}, Vt, St0) ->
       St1 = keyword_warning(La, F, St0),
       {Asvt,St2} = expr_list(As, Vt, St1),
  
positive.code: 
  %% start_state(Form, State) -> State'
  
  start_state({attribute,L,module,{M,Ps}}, St) ->
      St1 = set_module(M, L, St),
      Arity = length(Ps),
      Ps1 = if is_atom(St1#lint.extends) ->
  		  ['BASE', 'THIS' | Ps];
  
negative.code:         true ->
              Usage = St0#lint.usage,
              Unused = ordsets:subtract(St0#lint.imports, Usage#usage.imported),
              Imports = [{{FA,Mod},L} ||
  		 {attribute,L,import,{Mod,Fs}} <- Forms,
  		 FA <- lists:usort(Fs)],
              Bad = [{FM,L} || FM <- Unused, {FM2,L} <- Imports, FM =:= FM2],
              func_line_warning(unused_import, Bad, St0)
      end.
  