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)
|
Term Yap_eval_unary(Int f, Term t)
|
||||||
{
|
{
|
||||||
return Yap_FoundArithError(eval1(f,t), t);
|
return eval1(f,t);
|
||||||
}
|
}
|
||||||
|
|
||||||
static InitUnEntry InitUnTab[] = {
|
static InitUnEntry InitUnTab[] = {
|
||||||
|
@ -1076,7 +1076,7 @@ eval2(Int fi, Term t1, Term t2) {
|
|||||||
|
|
||||||
Term Yap_eval_binary(Int f, 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[] = {
|
static InitBinEntry InitBinTab[] = {
|
||||||
|
Reference in New Issue
Block a user