SIG_USR handling seems to be working

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@282 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-09 17:19:36 +00:00
parent 8496030d8a
commit 7849f7b54e
9 changed files with 89 additions and 7 deletions
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -739,6 +739,17 @@ debugging :-
 	    true
 	),
 	'$execute'(M:Goal).
+'$creep'(G) :-
+	'$get_value'('$sig_pending', Signal),
+	\+ Signal = [], !,
+	'$set_value'('$sig_pending', []),
+	( '$recorded'('$sig_handler', action(Signal,A),_) ->
+	    '$execute'(A),
+	    G=[M|Goal] 
+	;
+	    true
+	),
+	'$execute'(M:Goal).
 '$creep'(_) :-
 	'$get_value'('$throw', true), !,
 	'$set_value'('$throw', false),