anchor.diff:      %% Compile all the modules, then if all are ok.
       Ms1 = lists:map(fun (M) -> do_erl_comp_mod(M, ErlOpts) end, Ms0),
       St1 = St0#comp{code=Ms1},
  -    case all_ok(Ms1) of
  -        true -> {ok,St1};
  -        false -> {error,St1}
  -    end.
  +    ?IF(all_ok(Ms1), {ok,St1}, {error,St1}).
   
   do_erl_comp_mod({ok,Name,Core,Ws,Docs}, ErlOpts) ->
       %% lfe_io:format("~p\n", [Core]),
  
positive.code:     {ok,Mod,add_docs_chunk(Beam, St1),Warns}.
  
  beam_write(St0) ->
      Res = lists:map(fun (M) -> beam_write_module(M, St0) end, St0#comp.code),
      St1 = St0#comp{code=Res},
      %% Check return status.
      case all_ok(Res) of
          true -> {ok,St1};
          false -> {error,St1}
      end.
  
  beam_write_module({ok,M,Beam,_}=Mod, St) ->
      Name = filename:join(St#comp.odir, lists:concat([M,".beam"])),
  
negative.code:     %% Lint the modules, then check if all are ok.
      Ms1 = lists:map(Lint, Ms0),
      St1 = St0#comp{code=Ms1},
      ?IF(all_ok(Ms1), {ok,St1}, {error,St1}).
  
  do_lfe_codegen(#comp{cinfo=Ci,code=Ms0}=St) ->
      Code = fun ({ok,Name,Mfs,Ws,Docs}) ->       %Name consistency check!
  