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:
parent
a68263845d
commit
38b965d2fa
@ -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).
|
||||
|
Reference in New Issue
Block a user