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

more fixes for all/3

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1046 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-04-22 20:06:24 +00:00
parent a68263845d
commit 38b965d2fa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/setof.yap
View File

@ -213,7 +213,7 @@ all(T,G,S) :-
% $$set does its best to preserve space % $$set does its best to preserve space
'$$set'(S,R) :- '$$set'(S,R) :-
'$$build'(S0,R), '$$build'(S0,R),
copy_term(S0,S). S = S0.
'$$build'(Ns,R) :- '$db_dequeue'(R,X), !, '$$build'(Ns,R) :- '$db_dequeue'(R,X), !,
'$$build'(S,R), '$$join'(S,X,Ns). '$$build'(S,R), '$$join'(S,X,Ns).