Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Revert "add basic .Str"

This reverts commit 740cde8.
  • Loading branch information...
commit c37e3b219ec87d3cf74d77e188edad4dd90186ed 1 parent 17e95c9
Will Coleda coke authored
Showing with 0 additions and 2 deletions.
  1. +0 −2  Pugs/src/Pugs/Prim.hs
2  Pugs/src/Pugs/Prim.hs
View
@@ -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)\
Please sign in to comment.
Something went wrong with that request. Please try again.