Skip to content
Browse files

Add basic "so" && run spectest

  • Loading branch information...
1 parent 83ce35c commit 2512b2da720f9a7041736eb0b791858fe9912103 @coke coke committed Apr 9, 2012
Showing with 3 additions and 0 deletions.
  1. +2 −0 Pugs/src/Pugs/Prim.hs
  2. +1 −0 t/spectest.data
View
2 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)\
View
1 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

0 comments on commit 2512b2d

Please sign in to comment.
Something went wrong with that request. Please try again.