From 9dff291be29403c46573a60342151b4b14f8b858 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 12 Jun 2009 14:08:03 -0500
Subject: [PATCH] improve DCG support #72

---
 pl/grammar.yap | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/pl/grammar.yap b/pl/grammar.yap
index db3d58d16..b51919a08 100644
--- a/pl/grammar.yap
+++ b/pl/grammar.yap
@@ -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.