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

hack around phrase

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-03-28 10:58:53 +01:00
parent d3fd980474
commit d149d041a3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/grammar.yap
View File

@ -132,8 +132,12 @@
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).
!(S, S). !(S, S).
[](S, S). [](S, S).