simplify module access
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@981 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -1145,7 +1145,7 @@ c_goal(Term Goal, int mod, compiler_struct *cglobs)
|
||||
longjmp(cglobs->cint.CompilerBotch, 1);
|
||||
}
|
||||
Goal = ArgOfTerm(2, Goal);
|
||||
mod = Yap_LookupModule(M);
|
||||
mod = M;
|
||||
}
|
||||
if (IsVarTerm(Goal)) {
|
||||
Goal = Yap_MkApplTerm(FunctorCall, 1, &Goal);
|
||||
|
Reference in New Issue
Block a user