[pure-lang-svn] SF.net SVN: pure-lang: [361] pure/trunk/lib/math.pure
Status: Beta
Brought to you by:
agraef
From: <ag...@us...> - 2008-07-02 01:05:56
|
Revision: 361 http://pure-lang.svn.sourceforge.net/pure-lang/?rev=361&view=rev Author: agraef Date: 2008-07-01 18:06:03 -0700 (Tue, 01 Jul 2008) Log Message: ----------- Rename nump -> numberp. Modified Paths: -------------- pure/trunk/lib/math.pure Modified: pure/trunk/lib/math.pure =================================================================== --- pure/trunk/lib/math.pure 2008-07-02 01:05:10 UTC (rev 360) +++ pure/trunk/lib/math.pure 2008-07-02 01:06:03 UTC (rev 361) @@ -550,10 +550,10 @@ complexp x = case x of x+:y | x<:y = realp x && realp y; _ = 0 end; rationalp x = case x of x%y = bigintp x && bigintp y; _ = 0 end; realp x = intp x || bigintp x || doublep x || rationalp x; -nump x = realp x || complexp x; +numberp x = realp x || complexp x; exactp x = intp x || bigintp x || rationalp || - complexp x && exactp (re x) && exactp (im x) if nump x; + complexp x && exactp (re x) && exactp (im x) if numberp x; infp x::double = not nanp x && nanp (x-x); nanp x::double = x===nan; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |