anchor.diff:  %%                          current code will be returned.
   
   passes() ->
  -    [{do,fun do_macro_expand/1},
  +    [
  +     %% Split input file into separate modules.
  +     {do,fun do_split_file/1},
  +     {when_flag,to_split,{done,fun split_pp/1}},
  +     %% Do per-module macro processing.
  +     {do,fun do_user_macros/1},
  +     {when_flag,to_umac,{done,fun umac_pp/1}},
  +     %% Now we expand and trim remaining macros.
  +     {do,fun do_expand_macros/1},
        {when_flag,to_exp,{done,fun expand_pp/1}},
  -%%     {do,fun do_group_modules/1},               %Now we group modules
  -%%     {when_flag,to_group,{done,fun group_pp/1}},
  -%%     {do,fun do_user_macros/1},
  -%%     {when_flag,to_umac,{done,fun umac_pp/1}},
        {do,fun do_lfe_pmod/1},
        {when_flag,to_pmod,{done,fun pmod_pp/1}},
        {do,fun do_lfe_lint/1},
  
positive.code: %%  Translate from LFE to erlang standard options for lfe compiler.
  
  lfe_comp_opts(Opts) ->
      Fun = fun ('to-exp') -> to_exp;
                ('to-group') -> to_group;
                ('to-umac') -> to_umac;
                ('to-pmod') -> to_pmod;
                ('to-lint') -> to_lint;
                ('to-core0') -> to_core0;
  
negative.code:      {when_flag,to_core,{done,fun erl_core_pp/1}},
       {when_flag,to_kernel,{done,fun erl_kernel_pp/1}},
       {when_flag,to_asm,{done,fun erl_asm_pp/1}},
       {unless_test,fun werror/1,{done,fun beam_write/1}} %Should be last
      ].
  
  do_passes([{when_flag,Flag,Cmd}|Ps], #comp{opts=Opts}=St) ->
      case member(Flag, Opts)  of
  