it looks like mod for execute_in_mod may be instantiated.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@446 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
0ddc85551f
commit
d3942df58c
@ -11465,7 +11465,7 @@ absmi(int inp)
|
|||||||
BOp(p_execute, sla);
|
BOp(p_execute, sla);
|
||||||
{
|
{
|
||||||
PredEntry *pen;
|
PredEntry *pen;
|
||||||
SMALLUNSGN mod = IntOfTerm(ARG2);
|
SMALLUNSGN mod = IntOfTerm(Deref(ARG2));
|
||||||
|
|
||||||
CACHE_Y_AS_ENV(Y);
|
CACHE_Y_AS_ENV(Y);
|
||||||
#ifndef NO_CHECKING
|
#ifndef NO_CHECKING
|
||||||
|
2
C/exec.c
2
C/exec.c
@ -283,7 +283,7 @@ p_execute(void)
|
|||||||
static Int
|
static Int
|
||||||
p_execute_in_mod(void)
|
p_execute_in_mod(void)
|
||||||
{ /* '$execute'(Goal) */
|
{ /* '$execute'(Goal) */
|
||||||
return(do_execute(Deref(ARG1), IntOfTerm(ARG2)));
|
return(do_execute(Deref(ARG1), IntOfTerm(Deref(ARG2))));
|
||||||
}
|
}
|
||||||
|
|
||||||
inline static Int
|
inline static Int
|
||||||
|
Reference in New Issue
Block a user