handle user operators as "prolog" operators.

2009-11-25 00:38:29 +00:00
parent 2ab3308a56
commit ccaab728af
1 changed files with 2 additions and 0 deletions
--- a/C/init.c
+++ b/C/init.c
@@ -231,6 +231,8 @@ OpDec(int p, char *type, Atom a, Term m)

  if (m == TermProlog)
    m = PROLOG_MODULE;
+  else if (m == USER_MODULE)
+    m = PROLOG_MODULE;
  for (i = 1; i <= 7; ++i)
    if (strcmp(type, optypes[i]) == 0)
      break;