From: Mark Thom <markjordanthom@gmail.com>
Date: Mon, 30 Sep 2019 18:21:53 +0000 (-0600)
Subject: fix improper consolidation of DCG variables
X-Git-Tag: v0.8.110~34
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=ecb2cc35182a0435f60bf948ef05c919038262fd;p=scryer-prolog.git

fix improper consolidation of DCG variables
---

diff --git a/src/prolog/lib/dcgs.pl b/src/prolog/lib/dcgs.pl
index 60fe7126..9050f480 100644
--- a/src/prolog/lib/dcgs.pl
+++ b/src/prolog/lib/dcgs.pl
@@ -66,6 +66,11 @@ unfurl_commas(ModTerm, ModTerms, ModTerms1) :-
     unfurl_commas(ModTermIs, ModTerms2, ModTerms1).
 unfurl_commas(ModTermIN, (ModTermIN, ModTerms1), ModTerms1).
 
+unfurl_cond((P -> Q0), (P -> Q), Hole) :-
+    !, unfurl_commas(Q0, Q, Hole).
+unfurl_cond(P, Q, Hole) :-
+    unfurl_commas(P, Q, Hole).
+
 expand_body_term([], true, N, N) :- !.
 expand_body_term([Arg|Args], ModTerm, N0, N) :-
     !, N is N0 + 1,
@@ -80,11 +85,11 @@ expand_body_term((P ; Q), (PModTerm ; QModTerm), N0, N) :-
     ( N1 == N2 -> PModTerm = PModTerm0,
 		  QModTerm = QModTerm0,
 		  N = N1
-    ; N1 < N2  -> unfurl_commas(PModTerm0, PModTerm, Hole),
+    ; N1 < N2  -> unfurl_cond(PModTerm0, PModTerm, Hole),
 		  Hole = ('$VAR'(N1) = '$VAR'(N2) ),
 		  QModTerm = QModTerm0,
 		  N = N2
-    ; N1 > N2  -> unfurl_commas(QModTerm0, QModTerm, Hole),
+    ; N1 > N2  -> unfurl_cond(QModTerm0, QModTerm, Hole),
 		  Hole = ('$VAR'(N1) = '$VAR'(N2) ),
 		  PModTerm = PModTerm0,
 		  N = N1