introduce expand_call_goal/3 to expand goals in control meta-predicates (#1568)

2022-08-14 13:18:34 -06:00
parent 0ab355eada
commit 4e6c138099
2 changed files with 102 additions and 69 deletions
--- a/src/lib/dcgs.pl
+++ b/src/lib/dcgs.pl
@@ -26,7 +26,7 @@ phrase(GRBody, S0, S) :-
    ;  nonvar(GRBody1),
       dcg_constr(GRBody1),
       dcg_body(GRBody1, S0, S, GRBody2) ->
-       call(GRBody2)
+       call(M:GRBody2)
    ;  call(M:GRBody1, S0, S)
    ).