Merge branch 'master' of ssh://git.dcc.fc.up.pt/yap-6.3

This commit is contained in:
Vítor Santos Costa 2012-03-30 09:50:41 +01:00
commit 88411f4b40

View File

@ -132,9 +132,6 @@
phrase(PhraseDef, WordList) :-
phrase(PhraseDef, WordList, []).
phrase(_:[], S, S) :- !.
phrase(_:[H|T], S0, S) :- !,
lists:append([H|T], S, S0).
phrase(P, S0, S) :-
call(P, S0, S).
@ -142,6 +139,8 @@ phrase(P, S0, S) :-
[](S, S).
[](H, T, S0, S) :- lists:append([H|T], S, S0).
'.'(H,T, S0, S) :-
lists:append([H|T], S, S0).