Another attemp to get call_cleanup/2-3 right. Third is the charm (I hope...).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1769 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

pl/utils.yap

@@ -189,8 +189,7 @@ call_cleanup(Goal, Cleanup) :-
 call_cleanup(Goal, Catcher, Cleanup) :-
 	catch('$call_cleanup'(Goal,Cleanup,Result),
 	      Exception,
-	      '$cleanup_exception'(Exception,Catcher,Cleanup)),
-	Result = exit.
+	      '$cleanup_exception'(Exception,Catcher,Cleanup)).
 
 '$cleanup_exception'(Exception, exception(Exception), Cleanup) :-
 	call(Cleanup).
@@ -205,7 +204,8 @@ call_cleanup(Goal, Catcher, Cleanup) :-
 	    	Result = exit, !
 		;	true
 		)
-	;	Result = fail
+	;	Result = fail,
+		fail
 	).
 
 '$clean_call'(Cleanup) :-