anchor.diff:  	end.
   	
   
  -compile_reload_ast([H | T], ModuleName, FunctionName, RelDir) ->
  -    {List, Args} = case transl(H, T, [], [], RelDir) of
  +compile_reload_ast([H | T], ModuleName, FunctionName, RelDir, Ext) ->
  +    {List, Args} = case transl(H, T, [], [], RelDir, Ext) of
   	    {regular, List0, Args0} ->
   		    {[inplace_block(X) ||  X <- List0], Args0};
   		{inherited, List0, Arg0} ->
  
positive.code:             {regular, [{var, Line, Key} | Out], Args}
      end;
      
  transl(nil, [{tag, _Line, [TagName | TagArgs]}], Out, Args, _) ->
      io:format("TRACE ~p:~p {TagName, TagArgs} ~p~n",[?MODULE, ?LINE, {TagName, TagArgs}]),
      Out2 = load_tag(TagName, TagArgs, Out, default),    
      {regular, Out2, Args};
  
  transl(nil, [Token], Out, Args, _) ->
      {regular, [Token | Out], Args}; 
  	
  transl([H | T], [{var, Line, Val}], Out, Args, DocRoot) ->
      case lists:keysearch(Val, 2, Args) of
          false ->           
              Key = list_to_atom(lists:concat(["A", length(Args) + 1])),
              transl(H, T, [{var, Line, Key} | Out], [{Key, Val} | Args], DocRoot);
          {value, {Key, _}} ->  
              transl(H, T, [{var, Line, Key} | Out], Args, DocRoot)
  	end;	 
  	
  transl([H | T], [{tag, _Line, [TagName | TagArgs]}], Out, Args, DocRoot) ->
      io:format("TRACE ~p:~p {TagName, TagArgs} ~p~n",[?MODULE, ?LINE, {TagName, TagArgs}]),
      Out2 = load_tag(TagName, TagArgs, Out, default),
      transl(H, T, Out2, Args, DocRoot);
  	
  transl([H | T], [Token], Out, Args, DocRoot) ->      
      transl(H, T, [Token | Out], Args, DocRoot).
  
  
  replace_block({block, _Line, Name, [nil, Val]}, List, Args) ->
  	case lists:keysearch(Name, 3, List) of
  		false -> 
  			{Val, Args};
  		{value, {_, _, _, [H | T]}} ->  
  		    {_, List2, Args2} = transl(H, T, [], Args, undefined),
  		    {lists:reverse(List2), Args2} 
   	end;
  replace_block(Other, _What, Args) ->	
  	{Other, Args}.
      
  	
  
negative.code: 		     {regular, Out, Args}			
      end;
  	
  transl(nil, [{var, Line, Val}], Out, Args, _, _) ->
      case lists:keysearch(Val, 2, Args) of
          false ->
              Key = list_to_atom(lists:concat(["A", length(Args) + 1])),
  