steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unicode.case: fix stack effect for replace.

db4
John Benediktsson 2013-01-03 15:33:19 -08:00
parent a9d7359b9e
commit f71d01ea7e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unicode/case/case.factor
View File

@ -14,7 +14,7 @@ SYMBOL: locale ! Just casing locale, or overall?
: split-subseq ( string sep -- strings ) : split-subseq ( string sep -- strings )
[ dup ] swap '[ _ split1-slice swap ] produce nip ; [ dup ] swap '[ _ split1-slice swap ] produce nip ;
: replace ( old new str -- newstr ) : replace ( str old new -- newstr )
[ split-subseq ] dip join ; inline [ split-subseq ] dip join ; inline
: i-dot? ( locale -- ? ) : i-dot? ( locale -- ? )