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

improve DCG support #72

This commit is contained in:
Vitor Santos Costa 2009-06-12 14:08:03 -05:00
parent e6265e9d84
commit 9dff291be2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/grammar.yap
View File

@ -15,6 +15,12 @@
* *
*************************************************************************/
:- meta_predicate ^(?,0,?).
^(Xs, Goal, Xs) :- call(Goal).
:- meta_predicate ^(?,1,?,?).
^(Xs0, Goal, Xs0, Xs) :- call(Goal, Xs).
/*
Variables X in grammar rule bodies are translated as
if phrase(X) had been written, where phrase/3 is obvious.