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

make sure call_cleanup makes exception handler fail.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-04 14:02:17 -05:00
parent 9ce8df7bcd
commit 848e1209a2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/utils.yap
View File

@ -65,8 +65,12 @@ call_cleanup(Goal, Catcher, Cleanup) :-
'$cleanup_exception'(Exception, exception(Exception), Cleanup) :- !, '$cleanup_exception'(Exception, exception(Exception), Cleanup) :- !,
% whatever happens, let exception go through % whatever happens, let exception go through
catch('$clean_call'(Cleanup),_,true), (
throw(Exception). catch('$clean_call'(Cleanup),_,fail),
fail
;
throw(Exception)
).
'$cleanup_exception'(Exception, _, _) :- '$cleanup_exception'(Exception, _, _) :-
throw(Exception). throw(Exception).