Instantiation error for looping :- meta_predicate P.

This commit is contained in:
Ulrich Neumerkel 2009-06-05 09:54:25 +02:00 committed by Costa Vitor
parent 04674cd584
commit 7ae4c887fc
1 changed files with 3 additions and 0 deletions

View File

@ -400,6 +400,9 @@ module(N) :-
:- multifile '$meta_predicate'/4.
'$meta_predicate'(P, M) :-
var(P),
'$do_error'(instantiation_error,module(M)).
'$meta_predicate'((P,Ps), M) :- !,
'$meta_predicate'(P, M),
'$meta_predicate'(Ps, M).