handle integer(0.0/0.0) (obs from David Vaz).

C/arith1.c

@@ -555,6 +555,17 @@ eval1(Int fi, Term t) {
       case db_ref_e:
 	RERROR();
       }
+#if HAVE_ISNAN
+      if (isnan(dbl)) {
+	return Yap_ArithError(DOMAIN_ERROR_OUT_OF_RANGE, t, "integer(%f)", dbl);
+      }
+#endif
+#if HAVE_ISNAN
+      if (isinf(dbl)) {
+	return Yap_ArithError(EVALUATION_ERROR_INT_OVERFLOW, MkFloatTerm(dbl), "integer\
+(%f)",dbl);
+      }
+#endif
       if (dbl <= (Float)Int_MAX && dbl >= (Float)Int_MIN) {
 	RINT((Int) dbl);
       } else {