expand attributed variable goals

2021-02-02 21:47:59 -07:00
parent a2447ecaa3
commit e928a0aaea
2 changed files with 3 additions and 2 deletions
--- a/src/machine/attributed_variables.pl
+++ b/src/machine/attributed_variables.pl
@@ -51,6 +51,7 @@ call_goals_0([Module-GoalList | GoalLists]) :-
 call_goals_0([]).

 call_goals_1([Goal | Goals], Module) :-
-    call(Module:Goal),
+    expand_goal(Goal, Module, Goal1), % TODO: remove this when goal expansions are added to call/N.
+    call(Module:Goal1),
    call_goals_1(Goals, Module).
 call_goals_1([], _).