handle user operators as "prolog" operators.

This commit is contained in:
Vitor Santos Costa 2009-11-25 00:38:29 +00:00
parent 2ab3308a56
commit ccaab728af

View File

@ -231,6 +231,8 @@ OpDec(int p, char *type, Atom a, Term m)
if (m == TermProlog) if (m == TermProlog)
m = PROLOG_MODULE; m = PROLOG_MODULE;
else if (m == USER_MODULE)
m = PROLOG_MODULE;
for (i = 1; i <= 7; ++i) for (i = 1; i <= 7; ++i)
if (strcmp(type, optypes[i]) == 0) if (strcmp(type, optypes[i]) == 0)
break; break;