From 04ba9bc11af31780cd8fa259d78d151262c3c756 Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Sun, 12 Mar 2023 16:59:03 -0600
Subject: [PATCH] use new call_residue_vars/2 in toplevel.pl (#847)

---
 src/lib/atts.pl | 6 +++---
 src/toplevel.pl | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/lib/atts.pl b/src/lib/atts.pl
index a5cd9582..0521d429 100644
--- a/src/lib/atts.pl
+++ b/src/lib/atts.pl
@@ -110,6 +110,9 @@ user:goal_expansion(Term, M:get_atts(Var, Attr)) :-
     nonvar(Term),
     Term = get_atts(Var, M, Attr).
 
+term_attributed_variables(Term, Vars) :-
+    '$term_attributed_variables'(Term, Vars).
+
 :- meta_predicate call_residue_vars(0, ?).
 
 call_residue_vars(Goal, Vars) :-
@@ -118,6 +121,3 @@ call_residue_vars(Goal, Vars) :-
     '$get_attr_var_queue_beyond'(B, AttrVars),
     '$project_atts':copy_term(AttrVars, AttrVars, Gs),
     '$term_attributed_variables_without_attrs'(Gs, Vars).
-
-term_attributed_variables(Term, Vars) :-
-    '$term_attributed_variables'(Term, Vars).
diff --git a/src/toplevel.pl b/src/toplevel.pl
index 8caea7ba..0bab4415 100644
--- a/src/toplevel.pl
+++ b/src/toplevel.pl
@@ -1,6 +1,7 @@
 :- module('$toplevel', [argv/1,
                         copy_term/3]).
 
+:- use_module(library(atts), [call_residue_vars/2]).
 :- use_module(library(charsio)).
 :- use_module(library(error)).
 :- use_module(library(files)).
@@ -180,8 +181,8 @@ submit_query_and_print_results_(Term, VarList) :-
     '$get_b_value'(B),
     bb_put('$report_all', false),
     bb_put('$report_n_more', 0),
-    call(user:Term),
-    write_eqs_and_read_input(B, VarList),
+    atts:call_residue_vars(user:Term, AttrVars),
+    write_eqs_and_read_input(B, VarList, AttrVars),
     !.
 submit_query_and_print_results_(_, _) :-
     (   bb_get('$answer_count', 0) ->
@@ -286,11 +287,10 @@ trailing_period_is_ambiguous(Value) :-
 term_variables_under_max_depth(Term, MaxDepth, Vars) :-
     '$term_variables_under_max_depth'(Term, MaxDepth, Vars).
 
-write_eqs_and_read_input(B, VarList) :-
+write_eqs_and_read_input(B, VarList, AttrVars) :-
     gather_query_vars(VarList, OrigVars),
     % one layer of depth added for (=/2) functor
     '$term_variables_under_max_depth'(OrigVars, 22, Vars0),
-    '$term_attributed_variables'(VarList, AttrVars),
     '$project_atts':project_attributes(Vars0, AttrVars),
     copy_term(AttrVars, AttrVars, AttrGoals),
     term_variables(AttrGoals, AttrGoalVars),
-- 
2.54.0