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

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

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-03-30 09:50:41 +01:00
commit 88411f4b40
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/grammar.yap
View File

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