From 13b90982007d031a9cd9c64e52e2021b7b0249eb Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 18 May 2009 07:39:01 -0700
Subject: [PATCH] Ulrich: [PATCH-YAP] Permit | in DCGs.

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

diff --git a/pl/grammar.yap b/pl/grammar.yap
index bf4bed709..db3d58d16 100644
--- a/pl/grammar.yap
+++ b/pl/grammar.yap
@@ -85,6 +85,9 @@
 '$t_body'((T;R), _ToFill, _, S, SR, (Tt;Rt)) :- !,
 	'$t_body'(T, _, last, S, SR, Tt),
 	'$t_body'(R, _, last, S, SR, Rt).
+'$t_body'((T|R), _ToFill, _, S, SR, (Tt;Rt)) :- !,
+       '$t_body'(T, _, last, S, SR, Tt),
+       '$t_body'(R, _, last, S, SR, Rt).
 '$t_body'(M:G, ToFill, Last, S, SR, M:NG) :- !,
 	'$t_body'(G, ToFill, Last, S, SR, NG).
 '$t_body'(T, filled_in, _, S, SR, Tt) :-