add acos, asin

perl6 · Apr 16, 2012 · f7180f8 · f7180f8
1 parent 1f8d97f
commit f7180f8
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Pugs/src/Pugs/Prim.hs b/Pugs/src/Pugs/Prim.hs
@@ -159,6 +159,8 @@ op1 "sin"  = op1Floating sin
 op1 "tan"  = op1Floating tan
 op1 "sqrt" = op1Floating sqrt
 op1 "atan" = op1Floating atan
+op1 "acos"  = op1Floating cos
+op1 "asin"  = op1Floating sin
 op1 "post:i" = \x -> do
     n <- fromVal x
     return $ VComplex (0 :+ n)
@@ -1885,6 +1887,8 @@ initSyms = seq (length syms) $ do
 \\n   Num       pre     cos     safe   (Num)\
 \\n   Num       pre     sin     safe   (Num)\
 \\n   Num       pre     tan     safe   (Num)\
+\\n   Num       pre     acos    safe   (Num)\
+\\n   Num       pre     asin    safe   (Num)\
 \\n   Any       pre     Pugs::Internals::pi      safe   ()\
 \\n   Any       pre     self    safe,macro   ()\
 \\n   Bool      pre     nothing safe   ()\