fix bad test faster interface to eval (obs from Jose Santos)

2010-01-11 10:35:36 +00:00
parent 5fc26e1b45
commit e86a995dd2
3 changed files with 38 additions and 47 deletions
--- a/H/eval.h
+++ b/H/eval.h
@@ -175,7 +175,7 @@ Int     STD_PROTO(Yap_ArithError,(yap_error_number,Term,char *msg, ...));
 inline EXTERN Term
 Yap_Eval(Term t)
 {
-  if (t == 0L || !IsVarTerm(t) || IsNumTerm(t))
+  if (t == 0L || ( !IsVarTerm(t) && IsNumTerm(t) ))
    return t;
  return Yap_InnerEval(t);
 }