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

polish changes to undefp

Browse Source 
get rid of a few warnings


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1207 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-12-08 04:45:04 +00:00
parent 730b9badad
commit 84a0996e13
5 changed files with 62 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pl/utils.yap
View File

@@ -288,6 +288,14 @@ 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),