sequences: Add join-as, which takes an exemplar. Move split-subseq and replace from...

[factor.git] / basis / unicode / case / case.factor

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index a08e482c3e817e2b3651a63ef6417da91d496bef..c8ed8b2d0f3caa1acdaaf6d5f8c7ad5398812639 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -11,12 +11,6 @@ SYMBOL: locale ! Just casing locale, or overall?
 
 <PRIVATE
 
-: split-subseq ( string sep -- strings )
-    [ dup ] swap '[ _ split1-slice swap ] produce nip ;
-
-: replace ( str old new -- newstr )
-    [ split-subseq ] dip join ; inline
-
 : i-dot? ( locale -- ? )
     { "tr" "az" } member? ; inline