From f71d01ea7e2ce2aa9c2e0552337454bebb3bb496 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 3 Jan 2013 15:33:19 -0800
Subject: [PATCH] unicode.case: fix stack effect for replace.
---
basis/unicode/case/case.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index e19fd2ba84..a08e482c3e 100644
--- 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 -- ? )