fix meta-call on system predicates bug

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1181 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-11-22 05:48:43 +00:00
parent 9dfcbc1de9
commit fda0b76f18
3 changed files with 15 additions and 11 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -77,7 +77,11 @@ inline static Int
 CallMetaCall(Term mod) {
  ARG2 = cp_as_integer(B); /* p_save_cp */
  ARG3 = ARG1;
-  ARG4 = mod;
+  if (mod) {
+    ARG4 = mod;
+  } else {
+    ARG4 = TermProlog;
+  }
  return (CallPredicate(PredMetaCall, B, PredMetaCall->CodeOfPred));
 }