try to make initialisation process more robust

try to make name more robust (in case Lookup new atom fails) git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1254 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-03-02 18:35:49 +00:00
parent 14f9382666
commit f11ab09a60
10 changed files with 369 additions and 136 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1450,11 +1450,14 @@ JumpToEnv(Term t) {
 #ifdef TABLING
  abolish_incomplete_subgoals(B);
 #endif /* TABLING */
-  return(FALSE);
+  return FALSE;
 }

 Int
 Yap_JumpToEnv(Term t) {
+  if (Yap_PrologMode & BootMode) {
+    return FALSE;
+  } 
  return JumpToEnv(t);
 }