compact source mode.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@934 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-11-21 16:56:20 +00:00
parent 8d3f30de9c
commit f5edbc8aa7
16 changed files with 254 additions and 88 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -843,7 +843,7 @@ YAP_CompileClause(Term t)

  Yap_ErrorMessage = NULL;
  ARG1 = t;
-  codeaddr = Yap_cclause (t,0, mod);
+  codeaddr = Yap_cclause (t,0, mod, t);
  if (codeaddr != NULL) {
    t = Deref(ARG1); /* just in case there was an heap overflow */
    Yap_addclause (t, codeaddr, TRUE, mod);