From 7367ff19c4efda81577edc836a6431a312ce9e37 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 8 Oct 2010 08:42:19 -0700
Subject: [PATCH] Add a method on url-addr for local ports Remove test for code
 that got reverted

---
 basis/io/servers/servers.factor       | 2 ++
 basis/io/sockets/sockets-tests.factor | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/io/servers/servers.factor b/basis/io/servers/servers.factor
index 6f598b3110..0ef461697b 100644
--- a/basis/io/servers/servers.factor
+++ b/basis/io/servers/servers.factor
@@ -230,6 +230,8 @@ M: inet6 connect-addr [ "::1" ] dip port>> <inet6> ;
 
 M: secure connect-addr addrspec>> connect-addr <secure> ;
 
+M: local connect-addr ;
+
 PRIVATE>
 
 : server-addrs ( -- addrspecs )
diff --git a/basis/io/sockets/sockets-tests.factor b/basis/io/sockets/sockets-tests.factor
index 9c9f677278..d601512753 100644
--- a/basis/io/sockets/sockets-tests.factor
+++ b/basis/io/sockets/sockets-tests.factor
@@ -38,8 +38,6 @@ IN: io.sockets.tests
 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } ]
 [ "::" T{ inet6 } inet-pton ] unit-test
 
-[ f T{ inet6 } inet-pton ] [ reason>> empty-ipv6? ] must-fail-with
-
 [ "0:0:0:0:0:0:0:0" ]
 [ B{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } T{ inet6 } inet-ntop ] unit-test