correct and load numbervars

2018-09-18 17:20:34 -03:00
parent d0ac258c77
commit 4d6590c6aa
2 changed files with 2 additions and 2 deletions
--- a/src/prolog/lib/numbervars.pl
+++ b/src/prolog/lib/numbervars.pl
@@ -10,8 +10,6 @@ numbervars(Term, NewTerm, N) :-

 numbervars(Term, NewTerm, N1, N2) :-
    var(Term), !, NewTerm = '$VAR'(N1), N2 is N1 + 1.
-numbervars([Arg | Args], NewTerms, N1, N2) :- !,
-    fold_numbervars([Arg | Args], NewTerms, N1, N2).
 numbervars(Term, NewTerm, N1, N2) :- compound(Term), !,
    Term =.. [Name | Args],
    NewTerm =.. [Name | NewArgs],