defer installation of inference counter for call_with_inference_limit til after goals expanded

2021-12-06 18:08:38 -07:00
parent cd129e32a7
commit 8ba61a1da1
6 changed files with 82 additions and 71 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -257,8 +257,8 @@ expand_term_goals(Terms0, Terms) :-
             Terms = (Module:Head2 :- Body1)
          ;  type_error(atom, Module, load/1)
          )
-       ;  prolog_load_context(module, Target),
-          module_expanded_head_variables(Head1, HeadVars),
+       ;  module_expanded_head_variables(Head1, HeadVars),
+          prolog_load_context(module, Target),
          expand_goal(Body0, Target, Body1, HeadVars),
          Terms = (Head1 :- Body1)
       )