diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

always pass B to meta-calls.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@755 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-01-30 19:34:26 +00:00
parent d3b8ad429d
commit c8c4c76e01
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/exec.c
View File

@ -278,7 +278,7 @@ do_execute(Term t, SMALLUNSGN mod)
P = NEXTOP(COMMA_CODE,sla); P = NEXTOP(COMMA_CODE,sla);
t = ArgOfTerm(1,t); t = ArgOfTerm(1,t);
goto restart_exec; goto restart_exec;
} else if (mod != CurrentModule) { } else if (mod != CurrentModule) {
return(CallMetaCall(mod)); return(CallMetaCall(mod));
} }
} }
@ -411,7 +411,7 @@ p_execute_within(void)
XREGS[i] = *pt++; XREGS[i] = *pt++;
#endif #endif
} }
return (CallPredicate(pen, cut_pt)); return (CallPredicate(pen, B));
} }
} }
} else if (IsAtomOrIntTerm(t)) { } else if (IsAtomOrIntTerm(t)) {
@ -447,7 +447,7 @@ p_execute_within(void)
return(CallMetaCallWithin(mod, B)); return(CallMetaCallWithin(mod, B));
} }
pe = PredPropByAtom(a, mod); pe = PredPropByAtom(a, mod);
return (CallPredicate(RepPredProp(pe), cut_pt)); return (CallPredicate(RepPredProp(pe), B));
} }
} else { } else {
/* Is Pair Term */ /* Is Pair Term */