make ground.yap use new C-code.

This commit is contained in:
Vítor Santos Costa 2011-11-03 07:49:06 +09:00
parent d2c50b72c6
commit d690ffdb18

View File

@ -48,8 +48,6 @@ ground(Term) :-
ground(ArgN),
'$ground'(M, Term).
*/
numbervars(Term, M, N) :-
'$variables_in_term'(Term, [], L),
'$numbermarked_vars'(L, M, N).
@ -62,3 +60,5 @@ numbervars(Term, M, N) :-
M1 is M+1,
'$numbermarked_vars'(L, M1, N).
*/