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

fix setof to use catch instead of trying to do its own thing;

Browse Source 
fix unnecessary white lines when outputting solutions.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@788 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2003-02-24 11:01:01 +00:00
parent 540d9639cb
commit 51ea20683f
9 changed files with 48 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pl/setof.yap
View File

@@ -53,9 +53,12 @@ findall(Template, Generator, Answers, SoFar) :-
'$findall'(_, _, Ref, SoFar, Answers) :-
'$collect_for_findall'(Ref, SoFar, Answers).
'$clean_findall'(Ref,_) :-
'$db_dequeue'(Ref,_),
fail.
% error handling: be careful to recover all the space we used up
% in implementing findall.
%
'$clean_findall'(Ref,Ball) :-
'$db_dequeue'(Ref,_), !,
'$clean_findall'(Ref,Ball).
'$clean_findall'(_,Ball) :-
% get this off the unwound computation.
copy_term(Ball,NewBall),