anchor.diff:  
   
   in_ua(Pred, L) ->
  -    lists:any(
  -      fun(X) ->
  -              case X of
  -                  {ua, UA} -> Pred(UA);
  -                  _ -> false
  -              end
  -      end, L).
  +    lists:any(fun({ua, UA}) -> Pred(UA);
  +                 (_)        -> false
  +              end, L).
   
   in_comment(_Pred, []) ->
       false;
   in_comment(Pred, [{comment, Cs}|T]) ->
       case in_comment_l(Pred, Cs) of
  -        true ->
  -            true;
  -        false ->
  -            in_comment(Pred, T)
  +        true  -> true;
  +        false -> in_comment(Pred, T)
       end;
   in_comment(Pred, [_|T]) ->
       in_comment(Pred, T).
   
   
   in_comment_l(Pred, Cs) ->
  -    lists:any(fun(X) ->
  -                      case X of
  -                          {comment, Cs1} ->
  -                              in_comment_l(Pred, Cs1);
  -                          error -> false;
  -                          L -> Pred(L)
  -                      end
  +    lists:any(fun({comment, Cs1}) -> in_comment_l(Pred, Cs1);
  +                 (error)          -> false;
  +                 (L)              -> Pred(L)
                 end, Cs).
   
  +
   %% imperative out header management
  -
   outh_set_status_code(Code) ->
       put(outh, (get(outh))#outh{status = Code}),
       ok.
  
positive.code:          id_dir/1, ctl_file/1]).
  
  
  
  
  -import(lists, [reverse/1, reverse/2]).
  
  
  start() ->
      application:start(yaws, permanent).
  
  
negative.code:     Flags.
  
  
  %% Setup vhost configuration
  setup_sconf(DocRoot, D, SL) ->
      #sconf{port                  = lkup(port, SL, D#sconf.port),
             flags                 = set_sc_flags(lkup(flags, SL, []),
  