acyclic_term/1 should be builtin(ISO WG17, UD #174).

This commit is contained in:
Vitor Santos Costa
2010-08-04 21:50:19 +01:00
parent cf3cb21fd7
commit 0449bf1e7f
3 changed files with 7 additions and 8 deletions

View File

@@ -1009,9 +1009,9 @@ Yap_InitUnify(void)
{
Term cm = CurrentModule;
Yap_InitCPred("unify_with_occurs_check", 2, p_ocunify, SafePredFlag);
Yap_InitCPred("acyclic_term", 1, p_acyclic, SafePredFlag|TestPredFlag);
CurrentModule = TERMS_MODULE;
Yap_InitCPred("cyclic_term", 1, p_cyclic, SafePredFlag|TestPredFlag);
Yap_InitCPred("acyclic_term", 1, p_acyclic, SafePredFlag|TestPredFlag);
Yap_InitCPred("protected_unifiable", 3, p_unifiable, 0);
CurrentModule = cm;
}