more fixes for all/3

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

View File

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