diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

beautifications.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-19 01:50:11 +01:00
parent 18506025c3
commit e668908a6f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/arith1.c
View File

@ -987,8 +987,7 @@ p_unary_is( USES_REGS1 )
return FALSE; return FALSE;
} }
return Yap_unify_constant(ARG1,tout); return Yap_unify_constant(ARG1,tout);
} } else if (IsAtomTerm(t)) {
if (IsAtomTerm(t)) {
Atom name = AtomOfTerm(t); Atom name = AtomOfTerm(t);
ExpEntry *p; ExpEntry *p;
Term out; Term out;
@ -1002,8 +1001,8 @@ p_unary_is( USES_REGS1 )
ti[1] = MkIntTerm(1); ti[1] = MkIntTerm(1);
t = Yap_MkApplTerm(FunctorSlash, 2, ti); t = Yap_MkApplTerm(FunctorSlash, 2, ti);
Yap_EvalError(TYPE_ERROR_EVALUABLE, t, Yap_EvalError(TYPE_ERROR_EVALUABLE, t,
"functor %s/%d for arithmetic expression", "functor %s/1 for arithmetic expression",
RepAtom(name)->StrOfAE,1); RepAtom(name)->StrOfAE);
return FALSE; return FALSE;
} }
out= eval1(p->FOfEE, top PASS_REGS); out= eval1(p->FOfEE, top PASS_REGS);