improve the interface a bit more.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@476 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-18 04:01:53 +00:00
parent 17728f58f5
commit 008cd709a1
4 changed files with 102 additions and 57 deletions

View File

@@ -398,7 +398,7 @@ debugging :-
'$flags'(G,M,F,F),
F /\ 16'2000 =\= 0, !, % dynamic procedure, immediate semantics
repeat,
'$db_last_age'(M:G,Max),
( '$db_last_age'(M:G,Max) -> true ; !, fail ),
'$get_value'(spy_cl,Cl),
'$get_value'(spy_gn,L),
Maxx is Max+1,