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

from Paulo Moura: fix bad expansion of once/1.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-02-10 22:47:47 +00:00
parent 1b41a08e74
commit 8dbda5580d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LGPL/apply_macros.pl
View File

@ -132,7 +132,7 @@ expand_apply(Maplist, Goal) :-
callable(Callable), !,
expand_maplist(Callable, Lists, Goal).
expand_apply(forall(Cond, Action), \+((Cond, \+(Action)))).
expand_apply(once(Goal), (Goal->true)).
expand_apply(once(Goal), (Goal->true;fail)).
expand_apply(ignore(Goal), (Goal->true;true)).
expand_apply(phrase(NT,Xs), NTXsNil) :-
expand_apply(phrase(NT,Xs,[]), NTXsNil).