use copy_term_nat/2
This commit is contained in:
@@ -6168,8 +6168,7 @@ with_local_attributes(Vars, Goal, Result) :-
|
|||||||
% we made during propagation, and unify the variables
|
% we made during propagation, and unify the variables
|
||||||
% in the thrown copy with Vars in order to get the
|
% in the thrown copy with Vars in order to get the
|
||||||
% intended variables in Result.
|
% intended variables in Result.
|
||||||
asserta(nat_copy(Vars-Result)),
|
copy_term_nat(Vars-Result, Copy),
|
||||||
retract(nat_copy(Copy)),
|
|
||||||
throw(local_attributes(Copy))),
|
throw(local_attributes(Copy))),
|
||||||
local_attributes(Vars-Result),
|
local_attributes(Vars-Result),
|
||||||
true).
|
true).
|
||||||
|
|||||||
Reference in New Issue
Block a user