anchor.diff:  substitute_file(FieldAndDefaultAndRemainder) ->
       case get_field_and_default(FieldAndDefaultAndRemainder) of 
   	{ error, Reason, Rem } ->
  +	    ?warning("Could not retrieve $file field from: ~p: ~p", 
  +		     [ FieldAndDefaultAndRemainder, Reason ]),
   	    { lists:reverse("ERR:"++atom_to_list(Reason)), Rem };
   
   	{ ok, FileName, Default, Rem } ->
  
positive.code: 
  -module(rvi_config).
  
  %%-include_lib("lhttpc/include/lhttpc.hrl").
  %%-include_lib("lager/include/log.hrl").
  
  -export([substitute/2]).
  
  
  
  
  %% We hit the end of the list before we saw a closing paranthesis.
  get_default(_FieldName, [], Acc) ->
  
negative.code: substitute(Other, Acc)  ->
      [ Other | Acc ].
  
  setup_substitution(App) ->
      Env = application:get_all_env(App),
      Subst = substitute(Env,[]),
      case is_list(Subst) of
  	false -> ok;
  	true ->
  	    lists:map(fun({K, V}) ->
  			      application:set_env(App, K, V)
  		      end, Subst),
  	    ok
      end,
      ok.
  
  
      
  