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

View File

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