move call_residue_vars/2 from atts.pl to iso_ext.pl

This commit is contained in:
Mark
2024-01-25 12:37:46 -07:00
parent 99131131af
commit bc616ca7d8
6 changed files with 15 additions and 17 deletions

View File

@@ -1,6 +1,5 @@
:- module('$toplevel', []).
:- use_module(library(atts), [call_residue_vars/2]).
:- use_module(library(charsio)).
:- use_module(library(error)).
:- use_module(library(files)).
@@ -28,7 +27,7 @@ load_scryerrc :-
).
'$repl' :-
asserta('$toplevel':started),
asserta('$toplevel':started),
raw_argv(Args0),
( append(Args1, ["--"|_], Args0) ->
Args = Args1
@@ -186,7 +185,7 @@ submit_query_and_print_results_(Term, VarList) :-
bb_put('$report_all', false),
bb_put('$report_n_more', 0),
expand_goal(Term, user, Term0),
atts:call_residue_vars(user:Term0, AttrVars),
call_residue_vars(user:Term0, AttrVars),
write_eqs_and_read_input(B, VarList, AttrVars),
!.
submit_query_and_print_results_(_, _) :-
@@ -451,4 +450,3 @@ print_exception_with_check(E) :-
% is expected to be printed instead.
; print_exception(E)
).