fix warning.

This commit is contained in:
Vitor Santos Costa 2011-10-13 16:46:29 +01:00
parent d4ea15811e
commit 98cc029b66

View File

@ -756,6 +756,8 @@ ReadHash(IOSTREAM *stream)
if (omod) { if (omod) {
mod = MkAtomTerm(AtomAdjust(omod)); mod = MkAtomTerm(AtomAdjust(omod));
if (mod == TermProlog) mod = 0; if (mod == TermProlog) mod = 0;
} else {
mod = TermProlog;
} }
if (mod != IDB_MODULE) { if (mod != IDB_MODULE) {