fix error message (Ulrich's #184).

This commit is contained in:
Vitor Santos Costa
2010-10-08 10:50:23 +01:00
parent 361c5ad78f
commit afa0799504

View File

@@ -301,7 +301,7 @@ eval1(Int fi, Term t) {
out = asin(dbl); out = asin(dbl);
#if HAVE_ISNAN #if HAVE_ISNAN
if (isnan(out)) { if (isnan(out)) {
return Yap_ArithError(DOMAIN_ERROR_OUT_OF_RANGE, t, "atanh(%f)", dbl); return Yap_ArithError(EVALUATION_ERROR_UNDEFINED, t, "asin(%f)", dbl);
} }
#endif #endif
RFLOAT(out); RFLOAT(out);
@@ -314,7 +314,7 @@ eval1(Int fi, Term t) {
out = acos(dbl); out = acos(dbl);
#if HAVE_ISNAN #if HAVE_ISNAN
if (isnan(out)) { if (isnan(out)) {
return Yap_ArithError(DOMAIN_ERROR_OUT_OF_RANGE, t, "atanh(%f)", dbl); return Yap_ArithError(EVALUATION_ERROR_UNDEFINED, t, "acos(%f)", dbl);
} }
#endif #endif
RFLOAT(out); RFLOAT(out);