ADDED: meta_predicate/1 declarations for (',')//2 and (;)//2

This addresses #2366.

diff --git a/src/lib/dcgs.pl b/src/lib/dcgs.pl
index 4ee763f0f13276ffb15078689fc2a4e3d5060437..787f2babaf492462164bffd7b0b432940ddc78ba 100644 (file)
--- a/src/lib/dcgs.pl
+++ b/src/lib/dcgs.pl
@@ -33,6 +33,10 @@ to learn more about them.
 
 :- meta_predicate phrase(2, ?, ?, ?, ?).
 
+:- meta_predicate(','(2, 2, ?, ?)).
+
+:- meta_predicate(;(2, 2, ?, ?)).
+
 %% phrase(+Body, ?Ls).
 %
 % True iff Body describes the list Ls. Body must be a DCG body.