anchor.diff:  		Gs2 = [[N || {N, _B} <- G] || G <- Gs1],
   		G = [[B || {_N, B} <- G] || G <- Gs1],
   		Node2 = refac_syntax:make_tree(refac_syntax:type(Node1), Gs2),
  -		{refac_misc:rewrite(Node1, Node2), lists:member(true, lists:flatten(G))}
  +		{rewrite(Node1, Node2), lists:member(true, lists:flatten(G))}
   	  end
       end.
   
  
positive.code: 		Gs2 = [[N || {N, _B} <- G] || G <- Gs1],
  		G = [[B || {_N, B} <- G] || G <- Gs1],
  		Node2 = refac_syntax:make_tree(refac_syntax:type(Node1), Gs2),
  		{refac_misc:rewrite(Node1, Node2), Changed or lists:member(true, lists:flatten(G))}
  	  end
      end.
  
  
negative.code:       Gs ->
  	  Gs1 = [[full_buTP(Fun, T, Others) || T <- G] || G <- Gs],
  	  Tree1 = refac_syntax:make_tree(refac_syntax:type(Tree), Gs1),
  	  Fun(rewrite(Tree, Tree1), Others)
      end.
  
  rewrite(Tree, Tree1) ->
      refac_syntax:copy_attrs(Tree, Tree1).
  
  
  %% stop_tdTU(Function, S, Node) ->
  