anchor.diff:      {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},
  +    Ms1 = lists:map(fun (M) -> beam_write_module(M, St0) end, St0#comp.code),
  +    St1 = St0#comp{code=Ms1},
       %% Check return status.
  -    case all_ok(Res) of
  -        true -> {ok,St1};
  -        false -> {error,St1}
  -    end.
  +    ?IF(all_ok(Ms1), {ok,St1}, {error,St1}).
   
   beam_write_module({ok,M,Beam,_}=Mod, St) ->
       Name = filename:join(St#comp.odir, lists:concat([M,".beam"])),
  
positive.code:            end,
      Ms1 = lists:map(Emac, Ms0),
      St1 = St0#comp{code=Ms1},
      case all_ok(Ms1) of
          true -> {ok,St1};
          false -> {error,St1}
      end.
  
  expand_form(F0, L, {Env0,St0}) ->
      case lfe_macro:expand_form(F0, L, Env0, St0) of
  
negative.code:     ].
  
  do_passes([{when_flag,Flag,Cmd}|Ps], #comp{opts=Opts}=St) ->
      do_passes(?IF(member(Flag, Opts), [Cmd|Ps], Ps), St);
  do_passes([{unless_flag,Flag,Cmd}|Ps], #comp{opts=Opts}=St) ->
      do_passes(?IF(member(Flag, Opts), Ps, [Cmd|Ps]), St);
  do_passes([{when_test,Test,Cmd}|Ps], St) ->
      do_passes(?IF(Test(St), [Cmd|Ps], Ps), St);
  do_passes([{unless_test,Test,Cmd}|Ps], St) ->
      do_passes(?IF(Test(St), Ps, [Cmd|Ps]), St);
  do_passes([{do,Fun}|Ps], St0) ->
      case Fun(St0) of
          {ok,St1} -> do_passes(Ps, St1);
  