Add basic "so" && run spectest

perl6 · Apr 9, 2012 · 2512b2d · 2512b2d
1 parent 83ce35c
commit 2512b2d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Pugs/src/Pugs/Prim.hs b/Pugs/src/Pugs/Prim.hs
@@ -216,6 +216,7 @@ op1 "list" = op1Cast VList
 op1 "pair" = op1Cast $ VList . (map $ \(k, v) -> castV ((VStr k, v) :: VPair))
 op1 "~"    = op1Cast VStr
 op1 "?"    = op1Cast VBool
+op1 "so"    = op1Cast VBool
 op1 "Bool" = op1Cast VBool
 op1 "int"  = op1Cast VInt
 op1 "Int"  = op1Cast VInt
@@ -1889,6 +1890,7 @@ initSyms = seq (length syms) $ do
 \\n   Num       spre    -       safe   (Num)\
 \\n   Str       spre    ~       safe   (Str)\
 \\n   Bool      spre    ?       safe   (Bool)\
+\\n   Bool      pre     so      safe   (Any)\
 \\n   Str       spre    =       unsafe (?IO)\
 \\n   List      spre    =       unsafe (?IO)\
 \\n   Str       pre     readline unsafe (?IO)\

diff --git a/t/spectest.data b/t/spectest.data
@@ -119,6 +119,7 @@ S03-operators/repeat.t
 S03-operators/scalar-assign.t
 # S03-operators/set.t # NYI
 S03-operators/short-circuit.t
+S03-operators/so.t
 S03-operators/spaceship-and-containers.t
 S03-operators/subscript-vs-lt.t
 S03-operators/ternary.t