anchor.diff:        underscore -> true;
         variable -> true;
         warning_marker -> true;
  +      type -> true;   %% a temporary fix;
         _ -> false
       end.
   
  
positive.code: %% @see copy_attrs/2
  
  subtrees(T) ->
        case is_leaf(T) of
        true -> [];
        false ->
  	  case type(T) of
  	    application ->
  		[[application_operator(T)], application_arguments(T)];
  	    arity_qualifier ->
  
negative.code:     lists:reverse(list_elements(Node, [])).
  
  list_elements(Node, As) ->
      case type(Node) of
        list ->
  	  As1 = lists:reverse(list_prefix(Node)) ++ As,
  