anonymize singleton variables in iso_ext.pl, charsio.pl

This commit is contained in:
Mark Thom
2021-02-21 19:19:43 -07:00
parent 0ef5f7f9b1
commit f6498f2a7b
2 changed files with 3 additions and 3 deletions

View File

@@ -53,7 +53,7 @@ extend_var_list(Vars, VarList, NewVarList, VarType) :-
extend_var_list_(Vars, 0, VarList, NewVarList0, VarType),
append(VarList, NewVarList0, NewVarList).
extend_var_list_([], _, VarList, [], _).
extend_var_list_([], _, _, [], _).
extend_var_list_([V|Vs], N, VarList, NewVarList, VarType) :-
( var_list_contains_variable(VarList, V) ->
extend_var_list_(Vs, N, VarList, NewVarList, VarType)