fix call_with_args(a, 1, 2, 3, 4, 5, 6, 7).
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@258 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
842af4d40b
commit
698f6d2c04
2
C/exec.c
2
C/exec.c
@ -674,7 +674,7 @@ p_execute_7(void)
|
|||||||
ARG5 = ARG6;
|
ARG5 = ARG6;
|
||||||
ARG6 = ARG7;
|
ARG6 = ARG7;
|
||||||
ARG7 = ARG8;
|
ARG7 = ARG8;
|
||||||
pe = PredPropByFunc(MkFunctor(a, 6),mod);
|
pe = PredPropByFunc(MkFunctor(a, 7),mod);
|
||||||
return (CallPredicate(RepPredProp(pe), B));
|
return (CallPredicate(RepPredProp(pe), B));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user