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

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

Revision: 533
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=533&view=rev
Author:   agraef
Date:     2008-08-18 17:43:57 +0000 (Mon, 18 Aug 2008)

Log Message:
-----------
Add missing rules for pow function, reported by Eddie Rucker.

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

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-08-18 17:30:58 UTC (rev 532)
+++ pure/trunk/lib/math.pure	2008-08-18 17:43:57 UTC (rev 533)
@@ -468,6 +468,9 @@
 			= 1L%1L otherwise;
 pow (x%y) n::double	= pow (x/y) n;
 pow (x%y) (n%m)		= pow (x/y) (n/m);
+pow x::int (n%m)        |
+pow x::bigint (n%m)     |
+pow x::double (n%m)     = pow x (n/m);
 
 // Negative powers of integers.
 pow x::int n::int	|


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