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

fix maplist metapredicates in SWI.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-14 22:57:45 -05:00
parent 65e8ed2908
commit 9aae90680e
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
library/dialect/swi.yap
View File

@ -342,6 +342,13 @@ lists:intersection([_|T], L, R) :-
prolog:(Term1 =@= Term2) :- prolog:(Term1 =@= Term2) :-
variant(Term1, Term2), !. variant(Term1, Term2), !.
% copied from SWI's boot/apply library
:- module_transparent
mpl/2,
mpl/3,
mpl/4,
mpl/5.
mpl(Goal, List) :- mpl(Goal, List) :-
maplist:maplist(Goal, List). maplist:maplist(Goal, List).
@ -354,16 +361,11 @@ mpl(Goal, List1, List2, List3) :-
mpl(Goal, List1, List2, List3, List4) :- mpl(Goal, List1, List2, List3, List4) :-
maplist:maplist(Goal, List1, List2, List3, List4). maplist:maplist(Goal, List1, List2, List3, List4).
% copied from SWI's boot/apply library
:- module_transparent :- module_transparent
prolog:maplist/2, prolog:maplist/2,
maplist2/2,
prolog:maplist/3, prolog:maplist/3,
maplist2/3,
prolog:maplist/4, prolog:maplist/4,
maplist2/4, prolog:maplist/5.
prolog:maplist/5,
maplist2/5.
% maplist(:Goal, +List) % maplist(:Goal, +List)