anchor.diff:  %% form(Form) -> {ok,[Warning]} | {error,[Error],[Warning]}.
   
   form(F) ->
  -    module([{['define-module',dummy],1},
  -            {F,2}]).
  -
  -%% module(Forms) -> {ok,[Warning]} | {error,[Error],[Warning]}.
  -%% module(Forms, CompInfo) -> {ok,[Warning]} | {error,[Error],[Warning]}.
  +    case module([{['define-module',dummy],1},{F,2}]) of
  +	{ok,_,Ws} -> {ok,Ws};
  +	Error -> Error
  +    end.
  +
  +return_status(#lint{errors=[]}=St) ->
  +    {ok,St#lint.warnings};
  +return_status(St) ->
  +    {error,St#lint.errors,St#lint.warnings}.
  +
  +%% module(Forms) -> {ok,Module,[Warning]} | {error,[Error],[Warning]}.
  +%% module(Forms, CompInfo) ->
  +%%     {ok,Module,[Warning]} | {error,[Error],[Warning]}.
   %%  Lint the forms in a module.
   
   module(Fs) -> module(Fs, #cinfo{file="nofile",opts=[]}).
  
positive.code:         false -> ok
      end.
  
  return_status(#lint{errors=[]}=St) ->
      {ok,St#lint.warnings};
  return_status(St) ->
      {error,St#lint.errors,St#lint.warnings}.
  
  %% collect_form(Form, Line, State) -> {[Ret],State}.
  
negative.code:     {Fs1,St1} = lfe_lib:proc_forms(fun collect_form/3, Fs0, St0),
      St2 = check_module(Fs1, St1),
      debug_print("#lint: ~p\n", [St2], Os),
      return_module_status(St2).
  
  debug_print(Format, Args, Opts) ->
      case member(debug_print, Opts) of
  