Skip to content
This repository
Browse code

Revert "add basic .Str"

This reverts commit 740cde8.
  • Loading branch information...
commit c37e3b219ec87d3cf74d77e188edad4dd90186ed 1 parent 17e95c9
Will Coleda coke authored

Showing 1 changed file with 0 additions and 2 deletions. Show diff stats Hide diff stats

  1. +0 2  Pugs/src/Pugs/Prim.hs
2  Pugs/src/Pugs/Prim.hs
@@ -218,7 +218,6 @@ op1 "list" = op1Cast VList
218 218 op1 "pair" = op1Cast $ VList . (map $ \(k, v) -> castV ((VStr k, v) :: VPair))
219 219 op1 "~" = op1Cast VStr
220 220 op1 "gist" = op1Cast VStr -- Cheat
221   -op1 "Str" = op1Cast VStr
222 221 op1 "?" = op1Cast VBool
223 222 op1 "so" = op1Cast VBool
224 223 op1 "Bool" = op1Cast VBool
@@ -1898,7 +1897,6 @@ initSyms = seq (length syms) $ do
1898 1897 \\n Num spre - safe (Num)\
1899 1898 \\n Str spre ~ safe (Str)\
1900 1899 \\n Str pre gist safe (Any)\
1901   -\\n Str pre Str safe (Any)\
1902 1900 \\n Bool spre ? safe (Bool)\
1903 1901 \\n Bool pre so safe (Any)\
1904 1902 \\n Str spre = unsafe (?IO)\

0 comments on commit c37e3b2

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