urls: allow + in protocols, e.g. git+https://

diff --git a/basis/urls/urls-tests.factor b/basis/urls/urls-tests.factor
index a9d04bda046d79c0f784cb46882d4121477302e6..9de547848fd252333006dc5ef4901962ea875847 100644 (file)
--- a/basis/urls/urls-tests.factor
+++ b/basis/urls/urls-tests.factor
@@ -275,3 +275,6 @@ urls [
     }
 }
 [ URL" https://google.com/" url-addr ] unit-test
+
+{ "git+https" }
+[ URL" git+https://google.com/git/factor.git" >url protocol>> ] unit-test

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 2e1f98080662dab2e3329e0f26c063db928fdd2e..f149f499d96bd1f6efa58a9ac6765431dc8d7ef8 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -43,7 +43,7 @@ M: url >url ;
 
 EBNF: parse-url
 
-protocol = [a-z]+                   => [[ url-decode ]]
+protocol = [a-z+]+                   => [[ url-decode ]]
 username = [^/:@#?]+                => [[ url-decode ]]
 password = [^/:@#?]+                => [[ url-decode ]]
 pathname = [^#?]+                   => [[ url-decode ]]