fix -h without size core dumping

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@544 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

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);
 }
 

console/yap.c

@@ -310,7 +310,7 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
 		  --argc, p = *++argv;
 		else
 		  {
-		    fprintf(stderr,"[ YAP unrecoverable error: missing size in flag %s ]", argv[-1]);
+		    fprintf(stderr,"[ YAP unrecoverable error: missing size in flag %s ]", argv[0]);
 		  YapExit(1);
 		  }
 	      }