fix isfinite

2013-11-23 14:51:56 +00:00 · 2013-11-23 14:51:56 +00:00 · 03879aa778
commit 03879aa778
parent fd58cf10b2
1 changed files with 1 additions and 1 deletions
--- a/C/scanner.c
+++ b/C/scanner.c
@ -237,7 +237,7 @@ float_send(char *s, int sign)
 {
  GET_LD
    Float f = (Float)(sign*atof(s));
-#if HAVE_ISFINITE
+#if HAVE_ISFINITE || defined(isfinite)
  if (truePrologFlag(PLFLAG_ISO)) { /* iso */
    if (!isfinite(f)) {
      LOCAL_ErrorMessage = "Float overflow while scanning";