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

*** empty log message ***

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2262 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf 2008-06-05 19:33:51 +00:00
parent e26d72905e
commit a3272bb0f9
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
LGPL/maplist.pl
View File

@ -1,4 +1,4 @@
/* $Id: maplist.pl,v 1.1 2008-02-12 17:03:53 vsc Exp $ /* $Id: maplist.pl,v 1.2 2008-06-05 19:33:51 rzf Exp $
Part of SWI-Prolog Part of SWI-Prolog
@ -101,12 +101,3 @@ maplist2([Elem1|Tail1], [Elem2|Tail2], [Elem3|Tail3], [Elem4|Tail4], Goal) :-
call(Goal, Elem1, Elem2, Elem3, Elem4), call(Goal, Elem1, Elem2, Elem3, Elem4),
maplist2(Tail1, Tail2, Tail3, Tail4, Goal). maplist2(Tail1, Tail2, Tail3, Tail4, Goal).
% forall(+Condition, +Action)
%
% True if Action if true for all variable bindings for which Condition
% if true.
:- noprofile(forall/2).
forall(Cond, Action) :-
\+ (Cond, \+ Action).