handle user operators as "prolog" operators.
This commit is contained in:
parent
2ab3308a56
commit
ccaab728af
2
C/init.c
2
C/init.c
@ -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;
|
||||||
|
Reference in New Issue
Block a user