module-qualify incomplete goals in expand_goal/3

2021-12-12 10:58:42 -07:00
parent 708c3bc3ce
commit b056d40eba
4 changed files with 3 additions and 11 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -643,6 +643,7 @@ expand_meta_predicate_subgoals([SG | SGs], [MS | MSs], M, [ESG | ESGs], HeadVars
          MS >= 0
       )  ->
       (  var(SG),
+          MS =:= 0,
          pairs:same_key(SG, HeadVars, [_|_], _) ->
          expand_subgoal(SG, MS, M, ESG, HeadVars)
       ;  expand_subgoal(SG, MS, M, ESG0, HeadVars),