keep phrase goal qualified even if qualifier is a variable

2023-02-17 00:20:15 -07:00
parent 56783b8e4b
commit 601ff567e3
1 changed files with 4 additions and 1 deletions
--- a/src/lib/dcgs.pl
+++ b/src/lib/dcgs.pl
@@ -215,6 +215,9 @@ user:goal_expansion(phrase(GRBody, S, S0), GRBody2) :-
          E,
          dcgs:error_goal(E, GRBody1)
         ),
-    module_call_qualified(M, GRBody1, GRBody2).
+    (  GRBody = (_:_) ->
+       GRBody2 = M:GRBody1
+    ;  GRBody2 = GRBody1
+    ).

 user:goal_expansion(phrase(GRBody, S), phrase(GRBody, S, [])).