Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

add Complex.Complex

  • Loading branch information...
commit 1f8d97f1bb3ed5b407b5355959445de8e9752e61 1 parent adac868
@coke coke authored
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)\
Please sign in to comment.
Something went wrong with that request. Please try again.