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

don't blow up with bad modules

This commit is contained in:
Vitor Santos Costa 2016-06-02 10:52:06 +01:00
parent 66709db4bb
commit f7c3aef830
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/modules.c
View File

@ -405,7 +405,9 @@ restart:
Term t1 = ArgOfTerm(1, t); Term t1 = ArgOfTerm(1, t);
tmod = t1; tmod = t1;
if (!IsVarTerm(tmod) && !IsAtomTerm(tmod)) { if (!IsVarTerm(tmod) && !IsAtomTerm(tmod)) {
return 0L; if (modp)
*modp = tmod;
return t;
} }
t = ArgOfTerm(2, t); t = ArgOfTerm(2, t);
goto restart; goto restart;
@ -423,7 +425,7 @@ static Int yap_strip_module(USES_REGS1) {
tmod = TermProlog; tmod = TermProlog;
} }
t1 = Yap_YapStripModule(t1, &tmod); t1 = Yap_YapStripModule(t1, &tmod);
if (!t1) { if (!t1 || (!IsVarTerm(tmod) && !IsAtomTerm(tmod))) {
Yap_Error(TYPE_ERROR_CALLABLE, t1, "trying to obtain module"); Yap_Error(TYPE_ERROR_CALLABLE, t1, "trying to obtain module");
return FALSE; return FALSE;
} }