diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid infinite loops where undef calls undef for ever.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1199 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-12-07 04:35:22 +00:00
parent 037f478b31
commit 8437a80a1d
2 changed files with 25 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pl/utils.yap
View File

@@ -288,14 +288,6 @@ restore(S) :- '$restore'(S).
%%% current ....
recordaifnot(K,T,R) :-
recorded(K,T,R), % force non-det binding to R.
'$still_variant'(R,T),
!,
fail.
recordaifnot(K,T,R) :-
recorda(K,T,R).
recordzifnot(K,T,R) :-
recorded(K,T,R),
'$still_variant'(R,T),