Permalink
Browse files

Revert "add basic .Str"

This reverts commit 740cde8.
  • Loading branch information...
1 parent 17e95c9 commit c37e3b219ec87d3cf74d77e188edad4dd90186ed @coke coke committed Apr 18, 2012
Showing with 0 additions and 2 deletions.
  1. +0 −2 Pugs/src/Pugs/Prim.hs
View
2 Pugs/src/Pugs/Prim.hs
@@ -218,7 +218,6 @@ 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
@@ -1898,7 +1897,6 @@ 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)\

0 comments on commit c37e3b2

Please sign in to comment.