pesky ^C and abort fixes (I hope)

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@236 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-12-18 22:01:26 +00:00
parent 7e22cb486f
commit 2b78d7ce14
12 changed files with 42 additions and 32 deletions

View File

@@ -653,7 +653,7 @@ p_atom_concat(void)
if (cptr+sz >= top-1024) {
ReleasePreAllocCodeSpace((ADDR)cpt0);
if (!growheap(FALSE)) {
Abort("[ SYSTEM ERROR: YAP could not grow heap in recorda/3 ]\n");
Error(SYSTEM_ERROR, TermNil, "YAP could not grow heap in recorda/3 ]\n");
return(FALSE);
}
goto restart;