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

2024-01-25 12:37:46 -07:00
parent 99131131af
commit bc616ca7d8
6 changed files with 15 additions and 17 deletions
--- a/src/lib/atts.pl
+++ b/src/lib/atts.pl
@@ -1,5 +1,4 @@
 :- module(atts, [op(1199, fx, attribute),
-                 call_residue_vars/2,
                 term_attributed_variables/2]).

 :- use_module(library(dcgs)).
@@ -111,13 +110,5 @@ user:goal_expansion(Term, M:get_atts(Var, Attr)) :-
    nonvar(Term),
    Term = get_atts(Var, M, Attr).

-:- meta_predicate call_residue_vars(0, ?).
-
-call_residue_vars(Goal, Vars) :-
-    can_be(list, Vars),
-    '$get_attr_var_queue_delim'(B),
-    call(Goal),
-    '$get_attr_var_queue_beyond'(B, Vars).
-
 term_attributed_variables(Term, Vars) :-
    '$term_attributed_variables'(Term, Vars).