fix bad call.

This commit is contained in:
Vitor Santos Costa 2009-04-17 14:18:05 -05:00
parent 7e98e5acdb
commit e42083a2bb

View File

@ -899,7 +899,7 @@ current_predicate(A,T) :-
functor(T,A,_), functor(T,A,_),
current_module(M), current_module(M),
M \= prolog, M \= prolog,
'$pred_exists'(M,A,T). '$pred_exists'(T,M).
current_predicate(A) :- current_predicate(A) :-
'$current_predicate_inside'(A). '$current_predicate_inside'(A).