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

2022-08-13 20:46:52 -06:00
parent b51460a59a
commit 78278c804f
1 changed files with 6 additions and 4 deletions
--- a/src/lib/dcgs.pl
+++ b/src/lib/dcgs.pl
@@ -20,12 +20,14 @@ phrase(GRBody, S0) :-
    phrase(GRBody, S0, []).

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