cleanup unnecessary MkFunctor

2008-12-23 02:20:22 +00:00
parent a8ac9bfb43
commit f679f21a71
7 changed files with 165 additions and 80 deletions
--- a/C/eval.c
+++ b/C/eval.c
@@ -47,7 +47,7 @@ Eval(Term t)
      ti[0] = t;
      ti[1] = MkIntegerTerm(0);
      /* error */
-      terror = Yap_MkApplTerm(Yap_MkFunctor(AtomSlash,2), 2, ti);
+      terror = Yap_MkApplTerm(FunctorSlash, 2, ti);
      Yap_Error(TYPE_ERROR_EVALUABLE, terror,
 	    "atom %s for arithmetic expression",
 	    RepAtom(name)->StrOfAE);