2001-03-06 08:17:54 +00:00
|
|
|
/* public domain rewrite of finite(3) */
|
|
|
|
|
|
2010-07-28 08:12:01 +00:00
|
|
|
#include "ruby/missing.h"
|
|
|
|
|
|
1999-08-13 05:45:20 +00:00
|
|
|
int
|
2005-10-22 01:28:00 +00:00
|
|
|
finite(double n)
|
1999-08-13 05:45:20 +00:00
|
|
|
{
|
|
|
|
|
return !isnan(n) && !isinf(n);
|
|
|
|
|
}
|
