track spec change

perl6 · May 10, 2013 · 5a99ff9 · 5a99ff9
1 parent 371d836
commit 5a99ff9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Pugs/src/Pugs/Prim.hs b/Pugs/src/Pugs/Prim.hs
@@ -136,7 +136,7 @@ op1 "lc"         = op1Cast (VStr . map toLower)
 op1 "lcfirst"    = op1StrFirst toLower
 op1 "uc"         = op1Cast (VStr . map toUpper)
 op1 "tc"         = op1StrFirst toUpper
-op1 "capitalize" = op1Cast $ VStr . (mapEachWord capitalizeWord)
+op1 "wordcase" = op1Cast $ VStr . (mapEachWord capitalizeWord)
   where
     mapEachWord _ [] = []
     mapEachWord f str@(c:cs)
@@ -2000,7 +2000,7 @@ initSyms = seq (length syms) $ do
 \\n   Str       pre     lcfirst safe   (Str)\
 \\n   Str       pre     uc      safe   (Str)\
 \\n   Str       pre     tc      safe   (Str)\
-\\n   Str       pre     capitalize safe   (Str)\
+\\n   Str       pre     wordcase safe   (Str)\
 \\n   Str       pre     crypt   safe   (Str, Str)\
 \\n   Str       post    ++      safe   (rw!Str)\
 \\n   Str       post    --      safe   (rw!Str)\