fix error handling on entry arguments.

2010-02-22 22:48:13 +00:00
parent 10c0f7a175
commit f137773011
2 changed files with 7 additions and 4 deletions
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -797,8 +797,9 @@ p_unary_is(void)
    return FALSE;
  }
  top = Yap_Eval(Deref(ARG3));
-  if (top == 0L)
+  if (!Yap_FoundArithError(top, ARG3)) {
    return FALSE;
+  }
  if (IsIntTerm(t)) {
    Term tout = Yap_FoundArithError(eval1(IntegerOfTerm(t), top), Deref(ARG3));
    if (!tout)