inform that we started from restore

2017-09-02 23:43:08 +01:00
parent d91b06bb6c
commit d49a7387ef
3 changed files with 7 additions and 2 deletions
--- a/C/save.c
+++ b/C/save.c
@@ -1430,6 +1430,7 @@ OpenRestore(const char *inpf, const char *YapLibDir, CELL *Astate, CELL *ATrail,
    return FAIL_RESTORE;
  if (fname[0] &&
      (mode = try_open(fname,Astate,ATrail,AStack,AHeap,streamp)) != FAIL_RESTORE) {
+    setAtomicGlobalPrologFlag( RESOURCE_DATABASE_FLAG, MkAtomTerm(Yap_LookupAtom(fname)) );
    return mode;
  }
  /* try to open from current directory */