Merge branch 'master' of ssh://git.dcc.fc.up.pt/yap-6.3
This commit is contained in:
commit
88411f4b40
@ -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).
|
||||
|
||||
|
Reference in New Issue
Block a user