fix bad patch

This commit is contained in:
Vítor Santos Costa 2018-10-10 19:20:32 +01:00
parent 7666a005dc
commit 6096c6407a

View File

@ -596,9 +596,9 @@ Defines the relation: _P_ is a currently defined predicate whose name is the at
*/ */
current_predicate(A,T0) :- current_predicate(A,T0) :-
'$yap_strip_module'(T0, M, T), '$yap_strip_module'(T0, M, T),
( var(Mod) ( var(M)
-> ->
'$all_current_modules'(Mod) '$all_current_modules'(M)
; ;
true true
), ),