anchor.diff:  %% unless_opt(Option, Options, Fun) -> ok.
   %%  Call Fun when Option is/is not a member of Options.
   
  -when_opt(Opt, Opts, Fun) ->
  -    case member(Opt, Opts) of
  -        true -> Fun();
  -        false -> ok
  -    end.
  -
  -%% unless_opt(Opt, Opts, Fun) ->
  -%%     case member(Opt, Opts) of
  -%%         true -> ok;
  -%%         false ->  Fun()
  -%%     end.
  +when_opt(Opt, Opts, Fun) -> ?IF(member(Opt, Opts), Fun(), ok).
  +
  +%% unless_opt(Opt, Opts, Fun) -> ?IF(member(Opt, Opts), ok, Fun()).
  
positive.code:     %% Lint the modules, then check if all are ok.
      Ms1 = lists:map(Lint, Ms0),
      St1 = St0#comp{code=Ms1},
      case all_ok(Ms1) of
          true -> {ok,St1};
          false -> {error,St1}
      end.
  
  do_lfe_codegen(#comp{cinfo=Ci,code=Ms0}=St) ->
      Code = fun ({ok,Name,Mfs,Ws,Docs}) ->       %Name consistency check!
  
negative.code:     %% 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},
      ?IF(all_ok(Ms1), {ok,St1}, {error,St1}).
  
  do_erl_comp_mod({ok,Name,Core,Ws,Docs}, ErlOpts) ->
      %% lfe_io:format("~p\n", [Core]),
  