anchor.diff:                      ignore -> Acc;
                       NName  -> [ ["fun", App, Mod++":"++NName, Summary] | Acc ]
                   end;
  -            ({name, [{name, Name}, {arity, Arity}], []}, Acc) ->
  +            ({name, [{name,Name}, {arity,Arity}], []}, Acc) ->
  +                [ ["fun", App, Mod++":"++Name++"/"++Arity, Summary] | Acc ];
  +            ({name, [{name,Name}, {arity,Arity}, {clause_i,"1"}], []}, Acc) ->
                   [ ["fun", App, Mod++":"++Name++"/"++Arity, Summary] | Acc ];
               (_Else, Acc) -> Acc
           end,
  
positive.code:                                    , [ {typename,[],_}
                                       , {string,[],S} ] } <- Subtypes]
              end,
              {TheSpec, TheName}
      end;
  find_spec (Name, Arity, [_ | Rest]) ->
      find_spec(Name, Arity, Rest).
  
negative.code:                         , {li, [], {code, [], [Child]}} }
      end;
  
  tr_erlref ({name, [{name,Name}, {arity,N}, {clause_i,"1"}], []}, Acc) ->
      tr_erlref({name, [{name,Name}, {arity,N}], []}, Acc);
  tr_erlref ({name, [{name,Name}, {arity,N}], []}, Acc) ->
      [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
      NName = inc_name(Name, Ids, 0),
      ID = Name ++ "/" ++ N,
      Found = find_spec(Name, N, Types),
      {SpecsFound, Names} = lists:unzip(Found),
      Specs = merge_specs(SpecsFound),
      NSpecs = [ {li, [], [{code, [], [Spec]}]} || Spec <- Specs ],
      Tags = case Names of
                 []             ->
                     [{h3, [{id,ID}], [ID]}];
                 [PName|PNames] ->
                     [{h3, [{id,ID}], [PName]}]
                         ++ [ {h3, [], [PNameK]} || PNameK <- PNames ]
             end,
      { Tags ++ ["\n    ", {ul, [{class,"type_desc"}], NSpecs}]
      , [{ids,[NName|Ids]}, List, {functions,[NName|Funs]}, {types,Types}] };
  tr_erlref ({name, [], Child}, Acc) ->
      [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
  