diff --git a/extra/io/sockets/sockets.factor b/extra/io/sockets/sockets.factor index ae2b7872b9..a8ee5008af 100755 --- a/extra/io/sockets/sockets.factor +++ b/extra/io/sockets/sockets.factor @@ -217,7 +217,7 @@ TUPLE: datagram-port < port addr ; HOOK: (datagram) io-backend ( addr -- datagram ) -: ( addr -- datagram ) +: ( addrspec -- datagram ) [ [ (datagram) |dispose ] keep [ drop datagram-port ] [ get-local-address ] 2bi