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

strip modules from GRBody in phrase/3 (#1565)

Browse Source
This commit is contained in:
Mark Thom
2022-08-13 20:46:52 -06:00
parent b51460a59a
commit 78278c804f
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/lib/dcgs.pl
View File

@@ -20,12 +20,14 @@ phrase(GRBody, S0) :-
phrase(GRBody, S0, []). phrase(GRBody, S0, []).
phrase(GRBody, S0, S) :- phrase(GRBody, S0, S) :-
strip_module(GRBody, M, GRBody1),
( var(GRBody) -> ( var(GRBody) ->
instantiation_error(phrase/3) instantiation_error(phrase/3)
; dcg_constr(GRBody), ; nonvar(GRBody1),
dcg_body(GRBody, S0, S, GRBody1) -> dcg_constr(GRBody1),
call(GRBody1) dcg_body(GRBody1, S0, S, GRBody2) ->
; call(GRBody, S0, S) call(GRBody2)
; call(M:GRBody1, S0, S)
). ).