anchor.diff:              Forms1 ->
                   [{eof,_} = EOF | Rest] = lists:reverse(Forms1),
                   lists:reverse([EOF|Functions]++Rest)
  +                %case lists:reverse(Forms1) of
  +                %    [{eof,_} = EOF | Rest] ->
  +                %        lists:reverse([EOF|Functions]++Rest);
  +                %    RevForms ->
  +                %        ?L("RevForms ~p~n", [RevForms]),
  +                %        Forms
  +                %end
           end
       catch
           _:Error ->
  
positive.code:             Forms
      end.
  
  ins_exprts(Exprts, [_|_] = Forms) ->
      case lists:usort([lists:member(E, Forms) || E <- Exprts]) of
          [false] -> ins_exprts(Exprts, {[], Forms});
          _ -> Forms
      end;
  ins_exprts([], {Heads,Tail}) -> lists:reverse(Heads)++Tail;
  ins_exprts(Exports, {Heads, [{attribute,_,export,_} = E | Tail]}) ->
      ins_exprts([], {[E | Exports] ++ Heads, Tail});
  ins_exprts(Exports, {Heads, [F | Tail]}) ->
  
negative.code:     try
          {Functions, Exports} =
          lists:foldl(
            fun({attribute,_,record,{Record,RFields}}, {Funcs, Exports}) ->
                    FieldNames = [case R of
                                      {record_field,_,{atom,_,N}} -> N;
                                      {record_field,_,{atom,_,N},_} -> N;
  