fix loop in db_dynamic.

This commit is contained in:
Vítor Santos Costa 2012-07-13 14:56:50 -05:00
parent d78a55ca83
commit ec0437664c
1 changed files with 1 additions and 0 deletions

View File

@ -893,6 +893,7 @@ predicate_statistics(P,NCls,Sz,ISz) :-
'$static_pred_statistics'(P,M,NCls,Sz,ISz).
predicate_erased_statistics(P,NCls,Sz,ISz) :-
var(P), !,
current_predicate(_,P),
predicate_erased_statistics(P,NCls,Sz,ISz).
predicate_erased_statistics(M:P,NCls,Sz,ISz) :- !,