fix integer as DBRef

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@971 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-02-09 14:19:05 +00:00
parent 0df93ffc6e
commit cfd3683891
18 changed files with 182 additions and 108 deletions
--- a/C/unify.c
+++ b/C/unify.c
@@ -616,8 +616,10 @@ void
 Yap_InitUnify(void)
 {
  Yap_InitCPred("unify_with_occurs_check", 2, p_ocunify, SafePredFlag);
+  CurrentModule = TERMS_MODULE;
  Yap_InitCPred("cyclic_term", 1, p_cyclic, SafePredFlag|TestPredFlag);
  Yap_InitCPred("acyclic_term", 1, p_acyclic, SafePredFlag|TestPredFlag);
+  CurrentModule = PROLOG_MODULE;
 }