avoid excessive error testing
This commit is contained in:
@@ -746,7 +746,7 @@ eval1(Int fi, Term t) {
|
||||
|
||||
Term Yap_eval_unary(Int f, Term t)
|
||||
{
|
||||
return Yap_FoundArithError(eval1(f,t), t);
|
||||
return eval1(f,t);
|
||||
}
|
||||
|
||||
static InitUnEntry InitUnTab[] = {
|
||||
|
@@ -1076,7 +1076,7 @@ eval2(Int fi, Term t1, Term t2) {
|
||||
|
||||
Term Yap_eval_binary(Int f, Term t1, Term t2)
|
||||
{
|
||||
return Yap_FoundArithError(eval2(f,t1,t2), 0L);
|
||||
return eval2(f,t1,t2);
|
||||
}
|
||||
|
||||
static InitBinEntry InitBinTab[] = {
|
||||
|
Reference in New Issue
Block a user