add relative-url to urls

basis/urls/urls-docs.factor

@@ -135,6 +135,12 @@ HELP: relative-url
     }
 } ;
 
+HELP: relative-url?
+{ $values
+     { "url" url }
+     { "?" "a boolean" } }
+{ $description "Tests whether a given url is relative to a domain." } ;
+
 HELP: secure-protocol?
 { $values { "protocol" string } { "?" "a boolean" } }
 { $description "Tests if protocol connections must be made with secure sockets (SSL/TLS)." }

basis/urls/urls.factor

@@ -155,6 +155,8 @@ PRIVATE>
         f >>host
         f >>port ;
 
+: relative-url? ( url -- ? ) protocol>> not ;
+
 ! Half-baked stuff follows
 : secure-protocol? ( protocol -- ? )
     "https" = ;