don't keep source for log update facts, just execute them to find out the

arguments. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@932 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-11-18 19:24:46 +00:00
parent 9851882dc7
commit ff20288236
6 changed files with 130 additions and 108 deletions
--- a/C/compiler.c
+++ b/C/compiler.c
@@ -2868,7 +2868,7 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod)
    Yap_ShowCode();
 #endif
  /* phase 3: assemble code                                                */
-  acode = Yap_assemble(ASSEMBLING_CLAUSE);
+  acode = Yap_assemble(ASSEMBLING_CLAUSE, inp_clause, CurrentPred, body == MkAtomTerm(AtomTrue));


  /* check first if there was space for us */