incorporate term_expansion phase in compilation

2018-09-18 22:44:03 -06:00
parent 78ef18ad75
commit 908972eff1
10 changed files with 211 additions and 89 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],