From bf2e66d5eff48129c9e773e3a71488082aa3d3d8 Mon Sep 17 00:00:00 2001 From: vsc Date: Thu, 23 May 2002 04:21:54 +0000 Subject: [PATCH] debugger k option would stop at exit port. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@482 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/debug.yap | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/pl/debug.yap b/pl/debug.yap index e512cbda2..6a9a0ac64 100644 --- a/pl/debug.yap +++ b/pl/debug.yap @@ -884,13 +884,12 @@ debugging :- display(user_error,Module:G), nl(user_error) ), '$skipeol'(100), fail. -'$action'(0'k,_,L,_,_,_) :- !, % k quasi skip - '$set_value'(spy_leap,L). '$action'(0'l,_,_,_,_,_) :- !, % l leap '$set_value'(spy_leap,1). '$action'(0'n,_,_,_,_,_) :- !, % n nodebug nodebug. '$action'(0'k,_,_,_,_,_) :- !, % k quasi leap + '$set_value'(spy_leap,1), '$set_yap_flags'(10,0). '$action'(0'r,P,L,_,_,_) :- !, % r retry ( P=call, !, '$ilgl'(114); true),