anchor.diff:             end,
       Ms1 = lists:map(Emac, 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}).
   
   expand_form(F0, L, {Env0,St0}) ->
       case lfe_macro:expand_form(F0, L, Env0, St0) of
  
positive.code:     ].
  
  do_passes([{when_flag,Flag,Cmd}|Ps], #comp{opts=Opts}=St) ->
      case member(Flag, Opts)  of
          true -> do_passes([Cmd|Ps], St);
          false -> do_passes(Ps, St)
      end;
  do_passes([{unless_flag,Flag,Cmd}|Ps], St) ->
      case member(Flag, St#comp.opts) of
          true -> do_passes(Ps, St);
          false -> do_passes([Cmd|Ps], St)
      end;
  do_passes([{when_test,Test,Cmd}|Ps], St) ->
      case Test(St) of
          true -> do_passes([Cmd|Ps], St);
          false -> do_passes(Ps, St)
      end;
  do_passes([{unless_test,Test,Cmd}|Ps], St) ->
      case Test(St) of
          true -> do_passes(Ps, St);
          false -> do_passes([Cmd|Ps], St)
      end;
  do_passes([{do,Fun}|Ps], St0) ->
      case Fun(St0) of
          {ok,St1} -> do_passes(Ps, St1);
  
negative.code:     RetMod = fun (M) -> error_return_mod(M, Report, Return, Lfile) end,
      Err = lists:map(RetMod, Code),
      %% Fix right return.
      ?IF(Return, {error,Err,return_ews(Lfile, Es),return_ews(Lfile, Ws)}, error).
  
  error_return_mod({ok,_,_,Ws}, Rep, _, Lfile) ->
      Rep andalso list_warnings(Lfile, Ws),
  