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

10
pl/setof.yap
View File

@ -106,23 +106,19 @@ no
*/ */
findall(Template, Generator, Answers) :- findall(Template, Generator, Answers) :-
( '$is_list_or_partial_list'(Answers) -> must_be_of_type( list_or_partial_list, Answers ),
true
;
'$do_error'(type_error(list,Answers), findall(Template, Generator, Answers))
),
'$findall'(Template, Generator, [], Answers). '$findall'(Template, Generator, [], Answers).
% If some answers have already been found % 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_. Similar to findall/3, but appends all answers to list _L0_.
*/ */
findall(Template, Generator, Answers, SoFar) :- findall(Template, Generator, Answers, SoFar) :-
must_be_of_type( list_or_partial_list, Template ), must_be_of_type( list_or_partial_list, Answers ),
'$findall'(Template, Generator, SoFar, Answers). '$findall'(Template, Generator, SoFar, Answers).
% starts by calling the generator, % starts by calling the generator,