diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

recursive throw

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-06-17 10:44:38 +01:00
parent d92191874a
commit 4fefb762f2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/errors.c
View File

@ -962,10 +962,11 @@ yap_error_descriptor_t *Yap_GetException(yap_error_descriptor_t *i) {
void Yap_PrintException(void) { printErr(LOCAL_ActiveError); } void Yap_PrintException(void) { printErr(LOCAL_ActiveError); }
bool Yap_RaiseException(void) { bool Yap_RaiseException(void) {
if (LOCAL_CommittedError == NULL || if (LOCAL_ActiveError == NULL ||
LOCAL_CommittedError->errorNo == YAP_NO_ERROR) LOCAL_ActiveError->errorNo == YAP_NO_ERROR)
return false; return false;
return Yap_JumpToEnv(); Yap_RestartYap(5);
//return Yap_JumpToEnv();
} }
bool Yap_ResetException(yap_error_descriptor_t *i) { bool Yap_ResetException(yap_error_descriptor_t *i) {