fix matrix mess

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1778 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-01-24 10:01:40 +00:00
parent d2f974d292
commit 48fdba3f1e
12 changed files with 4171 additions and 13798 deletions
--- a/C/init.c
+++ b/C/init.c
@@ -1028,6 +1028,9 @@ InitCodes(void)
    at = Yap_FullLookupAtom("$spy");
    pred = RepPredProp(PredPropByFunc(Yap_MkFunctor(at, 1),0));
    Yap_heap_regs->spy_code = pred;
+    Yap_heap_regs->env_for_trustfail_code.p =
+      Yap_heap_regs->env_for_trustfail_code.p0 =
+      RepPredProp(PredPropByAtom(Yap_FullLookupAtom("fail"),PROLOG_MODULE));
  }
 #if DEBUG
  Yap_heap_regs->new_cps = 0;