add feed:// since firefox and safari support it, throw a better error than "fall...

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 4f2639975bd669b4c2ffa1719c32f7ffa7b4a4f9..f4a6a7d792a51306bdfe8432d7c0b25cb010df66 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -212,11 +212,15 @@ PRIVATE>
     [ [ host>> ] [ port>> ] bi <inet> ] [ protocol>> ] bi
     secure-protocol? [ <secure> ] when ;
 
+ERROR: no-protocol-found protocol ;
+
 : protocol-port ( protocol -- port )
     {
         { "http" [ 80 ] }
         { "https" [ 443 ] }
+        { "feed" [ 80 ] }
         { "ftp" [ 21 ] }
+        [ no-protocol-found ]
     } case ;
 
 : ensure-port ( url -- url' )