urls: use split1 instead of replace in remove-dot-segments.

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 84a42f2d907e499f3de19d4a54d0319b0f3d1e4d..73a772546acee3438c60f375bd4cb1324afab5df 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -147,7 +147,7 @@ M: url present
     ] "" make ;
 
 : remove-dot-segments ( path -- path' )
-    [ "/./" over subseq? ] [ "/./" "/" replace ] while
+    [ "/./" split1 ] [ "/" glue ] while*
     [ "/../" split1 ] [ [ "/" split1-last drop ] dip "/" glue ] while*
     "/.." ?tail [ "/" split1-last drop "/" append ] when
     "../" ?head [ "/" prepend ] when