From ad1c520d13ad01d40617b80783e7866e0ecf4acf Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 19 Sep 2008 15:46:12 -0500
Subject: [PATCH] Fix stack effects

---
 basis/urls/urls.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index e16f62d1f1..4f2639975b 100644
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -14,7 +14,7 @@ IN: urls
         [ letter? ]
         [ LETTER? ]
         [ digit? ]
-        [ "/_-." member? ]
+        [ "/_-.:" member? ]
     } 1|| ; foldable
 
 <PRIVATE
@@ -25,7 +25,7 @@ IN: urls
 
 PRIVATE>
 
-: url-encode ( str -- str )
+: url-encode ( str -- encoded )
     [
         [ dup url-quotable? [ , ] [ push-utf8 ] if ] each
     ] "" make ;
@@ -58,7 +58,7 @@ PRIVATE>
 
 PRIVATE>
 
-: url-decode ( str -- str )
+: url-decode ( str -- decoded )
     [ 0 swap url-decode-iter ] "" make utf8 decode ;
 
 <PRIVATE