urls: more correct fix for unicode, but maybe slower than it could be.

diff --git a/basis/urls/encoding/encoding.factor b/basis/urls/encoding/encoding.factor
index 569a89c31631b34f56879f0dc2fcf99d38e0d5bc..fd341b50380e5b28ec2def2affb0c533c7e0f062 100644 (file)
--- a/basis/urls/encoding/encoding.factor
+++ b/basis/urls/encoding/encoding.factor
@@ -75,7 +75,7 @@ PRIVATE>
         2dup nth dup CHAR: % = [
             drop 2dup url-decode-hex [ 3 + ] dip
         ] [
-            , [ 1 + ] dip
+            1string utf8 encode % [ 1 + ] dip
         ] if url-decode-iter
     ] if ;
 

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 1660bebddcb8114cb58fb522c1d828fbe7dbb3bd..a0edf38a84cee17627c28b7831109497784273ef 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -73,7 +73,7 @@ url      = (protocol ":"~)?
 PRIVATE>
 
 M: string >url
-    [ <url> ] dip utf8 encode parse-url 5 firstn {
+    [ <url> ] dip parse-url 5 firstn {
         [ >lower >>protocol ]
         [
             [