attempt to improve error handliong in SWI emulation.

This commit is contained in:
Vitor Santos Costa
2011-02-11 14:17:27 +00:00
parent 07b17f473a
commit 6617a63b7e
4 changed files with 48 additions and 14 deletions

View File

@@ -1710,8 +1710,8 @@ p_debug_on(void)
return TRUE;
}
static Term
GetException(void)
Term
Yap_GetException(void)
{
Term t = 0L;
if (BallTerm) {
@@ -1743,7 +1743,7 @@ p_reset_exception(void)
{
Term t;
EX = NULL;
t = GetException();
t = Yap_GetException();
if (!t)
return FALSE;
return Yap_unify(t, ARG1);
@@ -1759,7 +1759,7 @@ Yap_ResetExceptionTerm(void)
static Int
p_get_exception(void)
{
Term t = GetException();
Term t = Yap_GetException();
if (!t)
return FALSE;
return Yap_unify(t, ARG1);