fix warning

This commit is contained in:
Vítor Santos Costa II 2010-04-22 16:29:08 +01:00
parent 6b98791e53
commit a22aca2f81

View File

@ -719,7 +719,7 @@ append_args(Term, Args, NewTerm) :-
append(OldArgs, Args, GoalArgs),
NewTerm =.. [Meta|GoalArgs].
aux_preds(Meta, MetaVars, Pred, PredVars, Proto) :-
aux_preds(Meta, _, _, _, _) :-
var(Meta), !,
fail.
aux_preds(_:Meta, MetaVars, Pred, PredVars, Proto) :- !,