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

fix modularized grammar.yap.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-03 08:54:41 +01:00
parent 510c7cdeee
commit ad2ee8225d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/grammar.yap
View File

@ -239,19 +239,19 @@ prolog:','(A,B, S0, S) :-
t_body((A,B), _, last, S0, S, Goal), t_body((A,B), _, last, S0, S, Goal),
'$execute'(Goal). '$execute'(Goal).
prolog:;(A,B, S0, S) :- prolog:';'(A,B, S0, S) :-
t_body((A;B), _, last, S0, S, Goal), t_body((A;B), _, last, S0, S, Goal),
'$execute'(Goal). '$execute'(Goal).
prolog:'|'(A,B, S0, S) :- prolog:('|'(A,B, S0, S)) :-
t_body((A|B), _, last, S0, S, Goal), t_body((A|B), _, last, S0, S, Goal),
'$execute'(Goal). '$execute'(Goal).
prolog:->(A,B, S0, S) :- prolog:'->'(A,B, S0, S) :-
t_body((A->B), _, last, S0, S, Goal), t_body((A->B), _, last, S0, S, Goal),
'$execute'(Goal). '$execute'(Goal).
prolog:\+(A, S0, S) :- prolog:'\\+'(A, S0, S) :-
t_body(\+ A, _, last, S0, S, Goal), t_body(\+ A, _, last, S0, S, Goal),
'$execute'(Goal). '$execute'(Goal).