unicode.case: fix stack effect for replace.

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index e19fd2ba84510b2f85a30863af9a7d94edd5d824..a08e482c3e817e2b3651a63ef6417da91d496bef 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -14,7 +14,7 @@ SYMBOL: locale ! Just casing locale, or overall?
 : split-subseq ( string sep -- strings )
     [ dup ] swap '[ _ split1-slice swap ] produce nip ;
 
-: replace ( old new str -- newstr )
+: replace ( str old new -- newstr )
     [ split-subseq ] dip join ; inline
 
 : i-dot? ( locale -- ? )