fix some bugs in new dbterm code.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1986 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-11-08 15:52:15 +00:00
parent f0e5441dc2
commit 7b6c96e3d7
3 changed files with 21 additions and 13 deletions
--- a/C/modules.c
+++ b/C/modules.c
@@ -207,7 +207,9 @@ init_current_module(void)
      Yap_Error(TYPE_ERROR_ATOM,t,"module name must be an atom");
      return FALSE;
    }
-    return (FetchModuleEntry(AtomOfTerm(t)) != NULL);
+    if (FetchModuleEntry(AtomOfTerm(t)) != NULL)
+      cut_succeed();
+    cut_fail();
  }
  EXTRA_CBACK_ARG(1,1) = MkIntegerTerm((Int)CurrentModules);
  return cont_current_module();