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

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

Revision: 578
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=578&view=rev
Author:   agraef
Date:     2008-08-23 11:09:12 +0000 (Sat, 23 Aug 2008)

Log Message:
-----------
Bugfix in (^) operation.

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

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-08-23 10:45:28 UTC (rev 577)
+++ pure/trunk/lib/math.pure	2008-08-23 11:09:12 UTC (rev 578)
@@ -293,10 +293,10 @@
 
 /* Complex powers. */
 
-z1@(_+:_)^z2	|
-z1^z2@(_+:_)	|
-z1@(_<:_)^z2	|
-z1^z2@(_<:_)	= exp (ln z1*z2);
+z1@(_+:_)^x2	|
+z1@(_<:_)^x2	= exp (ln z1*x2);
+x1^z2@(_+:_)	|
+x1^z2@(_<:_)	= exp (ln (complex x1)*z2);
 
 /* Equality. */
 


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