add Complex.Complex

perl6 · Apr 16, 2012 · 1f8d97f · 1f8d97f
1 parent adac868
commit 1f8d97f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Pugs/src/Pugs/Prim.hs b/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)\