ucfirst is gone, replaced by tc.

perl6 · Jul 25, 2012 · f0f0053 · f0f0053
1 parent e7f863c
commit f0f0053
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/Pugs/src/Pugs/CodeGen/PIR/Prelude.hs b/Pugs/src/Pugs/CodeGen/PIR/Prelude.hs
@@ -73,7 +73,7 @@ preludeStr = unlines
     , "    lc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;"
     , "}"
     , ""
-    , "sub ucfirst (Str $str) returns Str is builtin is primitive {"
+    , "sub tc (Str $str) returns Str is builtin is primitive {"
     , "    uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;"
     , "}"
     , ""

diff --git a/Pugs/src/Pugs/Prim.hs b/Pugs/src/Pugs/Prim.hs
@@ -135,7 +135,7 @@ op1 "Str::split" = op1Cast (castV . words)
 op1 "lc"         = op1Cast (VStr . map toLower)
 op1 "lcfirst"    = op1StrFirst toLower
 op1 "uc"         = op1Cast (VStr . map toUpper)
-op1 "ucfirst"    = op1StrFirst toUpper
+op1 "tc"         = op1StrFirst toUpper
 op1 "capitalize" = op1Cast $ VStr . (mapEachWord capitalizeWord)
   where
     mapEachWord _ [] = []
@@ -1996,7 +1996,7 @@ initSyms = seq (length syms) $ do
 \\n   Str       pre     quotemeta safe   (Str)\
 \\n   Str       pre     lcfirst safe   (Str)\
 \\n   Str       pre     uc      safe   (Str)\
-\\n   Str       pre     ucfirst safe   (Str)\
+\\n   Str       pre     tc      safe   (Str)\
 \\n   Str       pre     capitalize safe   (Str)\
 \\n   Str       pre     crypt   safe   (Str, Str)\
 \\n   Str       post    ++      safe   (rw!Str)\

diff --git a/t/spectest.data b/t/spectest.data
@@ -365,6 +365,7 @@ S32-str/pos.t
 S32-str/quotemeta.t
 S32-str/rindex.t
 S32-str/substr.t
+S32-str/tc.t
 S32-str/trim.t
 S32-str/ucfirst.t
 S32-str/uc.t