undef should obey flag.
This commit is contained in:
parent
68633a9c34
commit
7d3053b906
@ -1019,7 +1019,7 @@ Term Yap_UnknownFlag(Term mod) {
|
|||||||
|
|
||||||
ModEntry *fv = Yap_GetModuleEntry(mod);
|
ModEntry *fv = Yap_GetModuleEntry(mod);
|
||||||
if (fv == NULL)
|
if (fv == NULL)
|
||||||
fv = Yap_GetModuleEntry(AtomUser);
|
fv = Yap_GetModuleEntry(TermUser);
|
||||||
if (fv->flags & UNKNOWN_ERROR)
|
if (fv->flags & UNKNOWN_ERROR)
|
||||||
return TermError;
|
return TermError;
|
||||||
if (fv->flags & UNKNOWN_WARNING)
|
if (fv->flags & UNKNOWN_WARNING)
|
||||||
|
Reference in New Issue
Block a user