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

Browse Source
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);
tmod = t1;
if (!IsVarTerm(tmod) && !IsAtomTerm(tmod)) {
return 0L;
if (modp)
*modp = tmod;
return t;
}
t = ArgOfTerm(2, t);
goto restart;
@ -423,7 +425,7 @@ static Int yap_strip_module(USES_REGS1) {
tmod = TermProlog;
}
t1 = Yap_YapStripModule(t1, &tmod);
if (!t1) {
if (!t1 || (!IsVarTerm(tmod) && !IsAtomTerm(tmod))) {
Yap_Error(TYPE_ERROR_CALLABLE, t1, "trying to obtain module");
return FALSE;
}