fix calling SWI C-Predicates.

This commit is contained in:
Vitor Santos Costa 2009-03-13 19:36:38 +00:00
parent 08acf82266
commit 1161f80426
1 changed files with 1 additions and 1 deletions

View File

@ -1099,7 +1099,7 @@ typedef Int (*CPredicateV)(Int,Int,struct context *);
Int
YAP_Execute(PredEntry *pe, CPredicate exec_code)
{
if (pe->PredFlags & CArgsPredFlag) {
if (pe->PredFlags & SWIEnvPredFlag) {
CPredicateV codev = exec_code;
struct context ctx;