New metacall mechanism

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@169 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-10-30 16:42:05 +00:00
parent 8cc0f4e803
commit 458a0a857f
50 changed files with 1234 additions and 960 deletions
--- a/C/corout.c
+++ b/C/corout.c
@@ -1159,7 +1159,7 @@ void InitCoroutPreds(void)
 #endif /* FIXED_STACKS */
  at = LookupAtom("$wake_up_goal");
  pred = RepPredProp(PredProp(at, 2));
-  WakeUpCode = (CELL *) & (pred->CodeOfPred);
+  WakeUpCode = (CELL *) pred;
  InitAttVarPreds();
 #endif /* COROUTINING */
  InitCPred("$read_svar_list", 2, p_read_svar_list, SafePredFlag);