perform goal expansion in call/N (#788, #797)

2021-02-04 16:59:16 -07:00
parent a9e0a51059
commit 75a52f032b
9 changed files with 835 additions and 98 deletions
--- a/src/machine/attributed_variables.pl
+++ b/src/machine/attributed_variables.pl
@@ -51,7 +51,6 @@ call_goals_0([Module-GoalList | GoalLists]) :-
 call_goals_0([]).

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