Work in progress fixing evaluable type error terms

2015-04-09 01:51:36 +01:00
parent 580bc9eb27
commit b91c535ea3
4 changed files with 10 additions and 30 deletions
--- a/H/eval.h
+++ b/H/eval.h
@@ -415,6 +415,13 @@ Yap_FoundArithError__(USES_REGS1)
  return YAP_NO_ERROR;
 }

+static inline Term takeName(Term t) {
+	if (IsAtomTerm(t)) return t;
+	MkAtomTerm(NameOfFunctor(FunctorOfTerm(t)));
+	if (IsPairTerm(t)) return TermNil;
+	return t;
+}
+
 Atom Yap_NameOfUnaryOp(int i);
 Atom Yap_NameOfBinaryOp(int i);