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

lookup global modules.

Browse Source
This commit is contained in:
ubu32 2011-02-15 07:50:55 -08:00
parent 8c975eca5d
commit 82f3af4f23
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/c_interface.c
View File

@ -3495,8 +3495,12 @@ int YAP_OpInfo(Atom at, Term module, int opkind, int *yap_type, int *prio)
WRITE_LOCK(ae->ARWLock); WRITE_LOCK(ae->ARWLock);
info = Yap_GetOpPropForAModuleHavingALock(ae, module); info = Yap_GetOpPropForAModuleHavingALock(ae, module);
if (!info) { if (!info) {
WRITE_UNLOCK(ae->ARWLock); /* try system operators */
return 0; info = Yap_GetOpPropForAModuleHavingALock(ae, PROLOG_MODULE);
if (!info) {
WRITE_UNLOCK(ae->ARWLock);
return 0;
}
} }
if (opkind == PREFIX_OP) { if (opkind == PREFIX_OP) {
SMALLUNSGN p = info->Prefix; SMALLUNSGN p = info->Prefix;