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

bad argument

This commit is contained in:
Vitor Santos Costa 2016-05-19 08:47:40 +01:00
parent 9fcbfca1fa
commit ef676f68b0
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pl/setof.yap
View File

@ -106,24 +106,20 @@ no
*/
findall(Template, Generator, Answers) :-
( '$is_list_or_partial_list'(Answers) ->
true
;
'$do_error'(type_error(list,Answers), findall(Template, Generator, Answers))
),
'$findall'(Template, Generator, [], Answers).
must_be_of_type( list_or_partial_list, Answers ),
'$findall'(Template, Generator, [], Answers).
% If some answers have already been found
/** @pred findall( _T_,+ _G_,+ _L_,- _L0_)
/** @pred findall( ?Key, +Goal, +InitialSolutions, -Solutions )
Similar to findall/3, but appends all answers to list _L0_.
*/
findall(Template, Generator, Answers, SoFar) :-
must_be_of_type( list_or_partial_list, Template ),
'$findall'(Template, Generator, SoFar, Answers).
must_be_of_type( list_or_partial_list, Answers ),
'$findall'(Template, Generator, SoFar, Answers).
% starts by calling the generator,
% and recording the answers