call_cleanup/3 should allow exceptions to go through, even if cleaner

itself calls an exception (obs from Ulrich Neumerkel).
2009-04-24 18:06:33 -05:00 · 2009-04-24 18:06:33 -05:00 · e3aeb48af6
commit e3aeb48af6
parent eef4b3cad2
1 changed files with 2 additions and 1 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@ -64,7 +64,8 @@ call_cleanup(Goal, Catcher, Cleanup) :-
 	      '$cleanup_exception'(Exception,Catcher,Cleanup)).

 '$cleanup_exception'(Exception, exception(Exception), Cleanup) :- !,
-	'$clean_call'(Cleanup),
+	% whatever happens, let exception go through 
+	catch('$clean_call'(Cleanup),_,true),
 	throw(Exception).
 '$cleanup_exception'(Exception, _, _) :-
 	throw(Exception).