rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

throw error when trying to use partial lists as DCG terminal-sequence (#286)

Browse Source
This commit is contained in:
Mark Thom
2020-04-11 22:40:29 -06:00
parent aedffb3cfe
commit 0499005db5
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/prolog/lib/dcgs.pl
View File

@@ -3,6 +3,7 @@
phrase/2, phrase/2,
phrase/3]). phrase/3]).
:- use_module(library(error)).
:- use_module(library(lists), [append/3]). :- use_module(library(lists), [append/3]).
user:term_expansion(Term0, Term) :- user:term_expansion(Term0, Term) :-
@@ -108,6 +109,7 @@ dcg_constr((_->_)). % 7.14.12 - if-then (existence implementation dep.)
% the construct to be expanded. % the construct to be expanded.
dcg_cbody([], S0, S, S0 = S). dcg_cbody([], S0, S, S0 = S).
dcg_cbody([T|Ts], S0, S, Goal) :- dcg_cbody([T|Ts], S0, S, Goal) :-
must_be(list, [T|Ts]),
dcg_terminals([T|Ts], S0, S, Goal). dcg_terminals([T|Ts], S0, S, Goal).
dcg_cbody(( GRFirst, GRSecond ), S0, S, ( First, Second )) :- dcg_cbody(( GRFirst, GRSecond ), S0, S, ( First, Second )) :-
dcg_body(GRFirst, S0, S1, First), dcg_body(GRFirst, S0, S1, First),