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

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

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 ]]