avoid excessive error testing
This commit is contained in:
parent
da4aa804a7
commit
33f3dcc3d1
@ -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