fix -h without size core dumping

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@544 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-06-18 04:27:33 +00:00
parent d065440d5a
commit 77d112fa10
2 changed files with 3 additions and 2 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -196,7 +196,8 @@ exit_yap (int value)
 #if defined(YAPOR)
  unmap_memory();
 #endif /* YAPOR || TABLING */
-  ShutdownLoadForeign();
+  if (PrologMode != BootMode)
+    ShutdownLoadForeign();
  exit(value);
 }