| author | Francesco Abbate <francesco.bbt@gmail.com> | 2011年10月29日 17:46:16 +0200 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2011年10月29日 17:46:16 +0200 |
| commit | 3ea45399711a9bc8a34a6e6ded7289d0c35be450 (patch) | |
| tree | be39d652c439e559bbb67794368912861d5c24ba | |
| parent | ad7c4dced1f3a8a2e4fe0078f085c21b01a35b0d (diff) | |
| download | gsl-shell-3ea45399711a9bc8a34a6e6ded7289d0c35be450.tar.gz | |
| -rw-r--r-- | gs-types.c | 3 |
diff --git a/gs-types.c b/gs-types.c index a16ac21e..54f781e5 100644 --- a/gs-types.c +++ b/gs-types.c @@ -230,13 +230,12 @@ double gs_check_number (lua_State *L, int index, int check_normal) { double v; - int fpclass; if (!lua_isnumber (L, index)) return gs_type_error (L, index, "real number"); v = lua_tonumber (L, index); if (check_normal) { - if (isinf(v) || isnan(fpclass)) + if (isinf(v) || fpclassify(v) == FP_NAN) return luaL_error (L, "invalid 'nan' or 'inf' number", index); } return v; |