urls: remove unnecessary >secure-addr indirection.

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 3e3822452262b759afe20eedb21cfca7423d72fa..5f31a0c27d613a33408af34df2203c937ef5fe46 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -168,22 +168,16 @@ PRIVATE>
 : secure-protocol? ( protocol -- ? )
     "https" = ;
 
-<PRIVATE
-
-GENERIC# >secure-addr 1 ( addrspec host -- addrspec' )
-
-PRIVATE>
-
 : url-addr ( url -- addr )
     [
         [ host>> ]
         [ port>> ]
         [ protocol>> protocol-port ]
         tri or <inet>
-    ]
-    [ host>> ]
-    [ protocol>> ] tri
-    secure-protocol? [ >secure-addr ] [ drop ] if ;
+    ] [
+        dup protocol>> secure-protocol?
+        [ host>> <secure> ] [ drop ] if
+    ] bi ;
 
 : set-url-addr ( url addr -- url )
     [ host>> >>host ] [ port>> >>port ] bi ;
@@ -191,11 +185,6 @@ PRIVATE>
 : ensure-port ( url -- url' )
     clone dup protocol>> '[ _ protocol-port or ] change-port ;
 
-! Secure sockets
-UNION: abstract-inet inet inet4 inet6 ;
-
-M: abstract-inet >secure-addr <secure> ;
-
 ! Literal syntax
 SYNTAX: URL" lexer get skip-blank parse-string >url suffix! ;