Skip to content
Browse files

add Complex.Complex

  • Loading branch information...
1 parent adac868 commit 1f8d97f1bb3ed5b407b5355959445de8e9752e61 @coke coke committed Apr 16, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 Pugs/src/Pugs/Prim.hs
View
2 Pugs/src/Pugs/Prim.hs
@@ -223,6 +223,7 @@ op1 "int" = op1Cast VInt
op1 "Int" = op1Cast VInt
op1 "Num" = op1Cast VNum
op1 "Rat" = op1Cast VRat
+op1 "Complex" = op1Cast VComplex
op1 "+^" = op1Cast (VInt . pred . negate) -- Arbitrary precision complement- 0 ==> -1 / 1 ==> -2
op1 "~^" = op1Cast (VStr . mapStr complement)
op1 "?^" = op1 "!"
@@ -1921,6 +1922,7 @@ initSyms = seq (length syms) $ do
\\n Rat pre Rat safe (Rat: Any)\
\\n Rat pre Rat safe (Bool)\
\\n Rat pre Rat safe (Bool: Any)\
+\\n Complex pre Complex safe (Complex)\
\\n Bool pre Bool safe ()\
\\n Bool pre Bool safe (Int)\
\\n Bool pre Bool safe (Num)\

0 comments on commit 1f8d97f

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