anchor.diff:      end.
   
   slurp_file(Name) ->
  -    %% Parse, expand macros and lint file.
  -    case lfe_io:parse_file(Name) of
  -        {ok,Fs0} ->
  -            case lfe_macro:expand_forms(Fs0, lfe_env:new()) of
  -                {ok,Fs1,Fenv,_} ->
  -                    case lfe_comp:group_modules(Fs1) of
  -                        [{ok,_,Fs2,_}] ->       %Only single module
  -                            case lfe_lint:module(Fs2) of
  -                                {ok,_,Ws} -> {ok,Fs2,Fenv,Ws};
  -                                {error,_,_}=Error -> Error
  -                            end;
  -                        _ -> {error,[{0,lfe_lint,{bad_mdef,multi}}],[]}
  -                    end;
  -                {error,_,_}=Error -> Error
  -            end;
  -        {error,E} -> {error,[E],[]}
  +    case lfe_comp:file(Name, [binary,to_lint,return]) of
  +	{ok,[{ok,Mod,Fs,Mws}|_],Ws} ->		%Only do first module
  +	    {ok,Mod,Fs,Ws ++ Mws};
  +	{error,_,_}=Error ->
  +	    Error
       end.
   
   slurp_errors(File, Es) -> slurp_ews(File, "~s:~w: ~s\n", Es).
  
positive.code:     foldl(fun (F, {_,S}) -> eval_form_1(F, S) end,
            {[],St}, Eforms);
  eval_form_1(['extend-module'|_], St) ->         %Maybe from macro expansion
      {[],St};
  eval_form_1([set|Rest], St0) ->
      {Value,St1} = set(Rest, St0),
  
negative.code: collect_form(['extend-module'|Mdef], _, St0) ->
      St1 = collect_mdef(Mdef, St0),
      {[],St1};
  collect_form(['eval-when-compile'|_], _, St) ->
      %% Can safely ignore this, everything already in environment.
      {[],St};
  collect_form(['define-function',F,Def], _, St) ->
      Ar = function_arity(Def),
      {[{F,Ar,Def}],St}.
  