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

fix phrase/3

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-03-29 22:32:56 +01:00
parent 24b466db4e
commit f8972365f8
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(_:[], 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).