factor: use more ?if and ?unless

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

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index a40703e55f50e99339e48dabf385ebfdf1dc5c51..5af8104250055639f6336d2feaf4cd390ee30ceb 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -70,9 +70,9 @@ CATEGORY-NOT: (uncased) Lu Ll Lt Lm Mn Me ;
 :: map-case ( string string-quot char-quot -- case )
     string length <sbuf> :> out
     string [
-        dup special-case
+        [ special-case ]
         [ string-quot call out push-all ]
-        [ char-quot call out push ] ?if-old
+        [ char-quot call out push ] ?if
     ] each out "" like ; inline
 
 : locale>lower ( string -- string' )