gopher: don't url-encode that paths

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index effc6cce95548bcdcaf2f20028e1f7a267c83abb..c19ffb50fe19ee82bf06a146e8c81730e8d40618 100644 (file)
--- a/extra/gopher/gopher.factor
+++ b/extra/gopher/gopher.factor
@@ -50,7 +50,7 @@ ERROR: not-a-gopher-url url ;
     >url dup protocol>> "gopher" = [ not-a-gopher-url ] unless {
         [ host>> ]
         [ port>> 70 or <inet> binary ]
-        [ path>> rest url-encode [ "1/" ] when-empty ]
+        [ path>> rest [ "1/" ] when-empty ]
         [ query>> [ assoc>query url-decode "?" glue ] when* ]
     } cleave '[
         1 minutes input-stream get set-timeout