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

Avoid using repeated fiels names ( u -> ut ).

Browse Source
This commit is contained in:
Vítor Santos Costa
2014-03-12 15:47:53 +00:00
parent b815e64740
commit c3d0504a54
7 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/eval.c
View File

@@ -104,7 +104,13 @@ Eval(Term t USES_REGS)
return Yap_eval_atom(p->FOfEE);
} else if (IsApplTerm(t)) {
Functor fun = FunctorOfTerm(t);
if ((Atom)fun == AtomFoundVar) {
if (fun == FunctorString) {
const char *s = StringOfTerm(t);
if (s[1] == '\0')
return MkIntegerTerm(s[0]);
return Yap_ArithError(TYPE_ERROR_EVALUABLE, t,
"string in arithmetic expression");
} else if ((Atom)fun == AtomFoundVar) {
return Yap_ArithError(TYPE_ERROR_EVALUABLE, TermNil,
"cyclic term in arithmetic expression");
} else {