manually expand module names in higher-order predicates of lists.pl and give call_residue_vars/2 a meta-predicate definition

2021-02-03 15:37:16 -07:00
parent ae66e299e6
commit cab0e4395a
2 changed files with 8 additions and 6 deletions
--- a/src/lib/atts.pl
+++ b/src/lib/atts.pl
@@ -156,6 +156,8 @@ 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) :-
    '$get_attr_var_queue_delim'(B),
    call(Goal),