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

check for modules everywhere in meta-calls.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@768 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-02-12 13:19:05 +00:00
parent bf12533e9f
commit 8c2af87600
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/absmi.c
View File

@ -11954,7 +11954,7 @@ Yap_absmi(int inp)
E_YREG[-EnvSizeInCells-2] = MkIntegerTerm((Int)PredPropByAtom(AtomOfTerm(d1),mod)); E_YREG[-EnvSizeInCells-2] = MkIntegerTerm((Int)PredPropByAtom(AtomOfTerm(d1),mod));
} else if (IsApplTerm(d1)) { } else if (IsApplTerm(d1)) {
Functor f = FunctorOfTerm(d1); Functor f = FunctorOfTerm(d1);
if (IsExtensionFunctor(f)) { if (IsExtensionFunctor(f) || f == FunctorModule) {
goto execute_metacall_after_comma; goto execute_metacall_after_comma;
} else { } else {
E_YREG[-EnvSizeInCells-2] = MkIntegerTerm((Int)PredPropByFunc(f,mod)); E_YREG[-EnvSizeInCells-2] = MkIntegerTerm((Int)PredPropByFunc(f,mod));
@ -12000,7 +12000,7 @@ Yap_absmi(int inp)
goto execute_comma; goto execute_comma;
} else if (IsApplTerm(d0)) { } else if (IsApplTerm(d0)) {
Functor f = FunctorOfTerm(d0); Functor f = FunctorOfTerm(d0);
if (IsExtensionFunctor(f)) { if (IsExtensionFunctor(f) || f == FunctorModule) {
goto execute_metacall_after_comma; goto execute_metacall_after_comma;
} else { } else {
pen = RepPredProp(PredPropByFunc(f,mod)); pen = RepPredProp(PredPropByFunc(f,mod));