[pure-lang-svn] SF.net SVN: pure-lang:[590] pure/trunk/lib/math.pure

[<ag...@us...>]

Revision: 590
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=590&view=rev
Author:   agraef
Date:     2008-08-23 22:36:04 +0000 (Sat, 23 Aug 2008)

Log Message:
-----------
Add missing type guard to atan2 function.

Modified Paths:
--------------
    pure/trunk/lib/math.pure

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-08-23 22:24:50 UTC (rev 589)
+++ pure/trunk/lib/math.pure	2008-08-23 22:36:04 UTC (rev 590)
@@ -472,8 +472,8 @@
 acos (x%y)	= acos (x/y);
 atan (x%y)	= atan (x/y);
 
-atan2 (x%y) z	= atan2 (x/y) z;
-atan2 x (y%z)	= atan2 x (y/z);
+atan2 (x%y) z	= atan2 (x/y) z if realp z;
+atan2 x (y%z)	= atan2 x (y/z) if realp x;
 
 sinh (x%y)	= sinh (x/y);
 cosh (x%y)	= cosh (x/y);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.