punycode: change IRL to keep all params decoded (for now).

diff --git a/extra/punycode/punycode.factor b/extra/punycode/punycode.factor
index e19c6ab234fb6a5e785522b7a36d313a3b867251..4156deb73b1afa17f8a47554a7eca9aa6137b59d 100644 (file)
--- a/extra/punycode/punycode.factor
+++ b/extra/punycode/punycode.factor
@@ -270,11 +270,11 @@ M: irl >url
         [ protocol>> >>protocol ]
         [ username>> >>username ]
         [ password>> >>password ]
-        [ host>> [ >idna url-encode ] [ f ] if* >>host ]
+        [ host>> [ >idna ] [ f ] if* >>host ]
         [ port>> >>port ]
-        [ path>> [ url-encode ] [ f ] if* >>path ]
+        [ path>> >>path ]
         [ query>> >>query ]
-        [ anchor>> [ url-encode ] [ f ] if* >>anchor ]
+        [ anchor>> >>anchor ]
     } cleave ;
 
 M: url >irl
@@ -282,11 +282,11 @@ M: url >irl
         [ protocol>> >>protocol ]
         [ username>> >>username ]
         [ password>> >>password ]
-        [ host>> [ url-decode idna> ] [ f ] if* >>host ]
+        [ host>> [ idna> ] [ f ] if* >>host ]
         [ port>> >>port ]
-        [ path>> [ url-decode ] [ f ] if* >>path ]
+        [ path>> >>path ]
         [ query>> >>query ]
-        [ anchor>> [ url-decode ] [ f ] if* >>anchor ]
+        [ anchor>> >>anchor ]
     } cleave ;
 
 SYNTAX: IRL" lexer get skip-blank parse-string >irl suffix! ;