fix ^c abort for PCs: registers were not being reset properly.

fix error message in abort.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@628 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-10-08 14:32:42 +00:00
parent bfbc9c9dfc
commit 935665ec92
4 changed files with 11 additions and 6 deletions

View File

@@ -489,6 +489,7 @@ exec_top_level(int BootMode, char *filename)
livegoal = YAP_FullLookupAtom("$live");
atomfalse = YAP_MkAtomTerm (YAP_LookupAtom("false"));
while (YAP_GetValue (livegoal) != atomfalse) {
YAP_Reset();
do_top_goal (YAP_MkAtomTerm (livegoal));
}
YAP_Exit(EXIT_SUCCESS);