From d3a749d17a547ac22d7ce2077b0c32b3af795406 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 3 Aug 2015 17:38:13 -0700
Subject: [PATCH] urls: allow + in protocols, e.g. git+https://

---
 basis/urls/urls-tests.factor | 3 +++
 basis/urls/urls.factor       | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/urls/urls-tests.factor b/basis/urls/urls-tests.factor
index a9d04bda04..9de547848f 100644
--- 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 2e1f980806..f149f499d9 100644
--- 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 ]]