Work in progress fixing evaluable type error terms

C/arith2.c

@@ -1199,13 +1199,7 @@ p_binary_is( USES_REGS1 )
     Term out;
 
     if (EndOfPAEntr(p = RepExpProp(Yap_GetExpProp(name, 2)))) {
-      Term ti[2];
-
-      /* error */
-      ti[0] = t;
-      ti[1] = MkIntTerm(1);
-      t = Yap_MkApplTerm(FunctorSlash, 2, ti);
-      Yap_EvalError(TYPE_ERROR_EVALUABLE, t,
+      Yap_EvalError(TYPE_ERROR_EVALUABLE, takeName(t),
 		"functor %s/2 for arithmetic expression",
 		RepAtom(name)->StrOfAE);
       P = FAILCODE;