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

make lists parse properly when used as dcg rules

Browse Source
This commit is contained in:
Mark Thom
2018-10-20 23:37:09 -06:00
parent 4c76920489
commit 1e3891204e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,10 +4,10 @@
:- op(1200, xfx, -->).
phrase(G, G) :-
nonvar(G), G = [_|_], !. %, append(G, _, Ls0).
phrase(G, Ls0) :-
nonvar(G), G = [_|_], !, append(G, _, Ls0).
phrase(G, Ls0) :-
nonvar(G), G = (G1, G2), !, phrase(G1, Ls0, Ls1), phrase(G2, Ls1).
nonvar(G), G = (G1, G2), !, phrase(G1, Ls0, Ls1), phrase(G2, Ls1, []).
phrase(G, Ls0) :-
call(G, Ls0, []).