anchor.diff:  
   %% socket
   -export([peername/1, sockname/1, port/1, send/2,
  +	 peernames/1, peernames/2, socknames/1, socknames/2,
   	 setopts/2, getopts/2, 
   	 getifaddrs/0, getifaddrs/1,
   	 getif/1, getif/0, getiflist/0, getiflist/1,
  
positive.code: 	    ok
      end.
  
  -spec peername(Socket) ->  {ok, {Address, Port}} | {error, posix()} when
        Socket :: socket(),
        Address :: ip_address(),
  
negative.code: setpeername(Socket, undefined) ->
      prim_inet:setpeername(Socket, undefined).
  
  -spec peernames(Socket) -> {ok, [{Address, Port}]} | {error, posix()} when
        Socket :: socket(),
        Address :: ip_address(),
        Port :: non_neg_integer().
  
  peernames(Socket) ->
      prim_inet:peernames(Socket).
  
  -spec peernames(Socket, Assoc) ->
  		       {ok, [{Address, Port}]} | {error, posix()} when
        Socket :: socket(),
        Assoc :: #sctp_assoc_change{} | gen_sctp:assoc_id(),
        Address :: ip_address(),
        Port :: non_neg_integer().
  
  peernames(Socket, Assoc) ->
      prim_inet:peernames(Socket, Assoc).
  
  
  -spec sockname(Socket) -> {ok, {Address, Port}} | {error, posix()} when
        Socket :: socket(),
  