correct dcg handling of cuts

2019-10-04 15:41:48 -06:00
parent d4f9d18149
commit 1569cac98f
3 changed files with 5 additions and 3 deletions
--- a/src/prolog/lib/dcgs.pl
+++ b/src/prolog/lib/dcgs.pl
@@ -100,6 +100,7 @@ expand_body_term((P ; Q), (PModTerm ; QModTerm), N0, N) :-
 		  PModTerm = PModTerm0,
 		  N = N1
    ).
+expand_body_term(!, !, N, N) :- !.
 expand_body_term(CommaTerm, ModTerm, N, N) :-
    CommaTerm =.. [{} | BodyTerms], !,
    comma_ify(BodyTerms, ModTerm).