misc fixes
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1068 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -122,7 +122,6 @@ bagof(Template, Generator, Bag) :-
|
||||
Key =.. ['$'|LFreeVars],
|
||||
'$init_db_queue'(Ref),
|
||||
'$findall_with_common_vars'(Key-Template, Generator, Ref, Bags0),
|
||||
write(vsc:(Bags0,Bags)),nl,
|
||||
'$keysort'(Bags0, Bags),
|
||||
'$pick'(Bags, Key, Bag).
|
||||
% or we just have a list of answers
|
||||
|
Reference in New Issue
Block a user