add basic .Str

perl6 · Apr 16, 2012 · 740cde8 · 740cde8
1 parent f7180f8
commit 740cde8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Pugs/src/Pugs/Prim.hs b/Pugs/src/Pugs/Prim.hs
@@ -218,6 +218,7 @@ op1 "list" = op1Cast VList
 op1 "pair" = op1Cast $ VList . (map $ \(k, v) -> castV ((VStr k, v) :: VPair))
 op1 "~"    = op1Cast VStr
 op1 "gist" = op1Cast VStr -- Cheat
+op1 "Str"  = op1Cast VStr
 op1 "?"    = op1Cast VBool
 op1 "so"   = op1Cast VBool
 op1 "Bool" = op1Cast VBool
@@ -1897,6 +1898,7 @@ initSyms = seq (length syms) $ do
 \\n   Num       spre    -       safe   (Num)\
 \\n   Str       spre    ~       safe   (Str)\
 \\n   Str       pre     gist    safe   (Any)\
+\\n   Str       pre     Str     safe   (Any)\
 \\n   Bool      spre    ?       safe   (Bool)\
 \\n   Bool      pre     so      safe   (Any)\
 \\n   Str       spre    =       unsafe (?IO)\