new version of throw using Bart's idea

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@327 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-24 23:55:34 +00:00
parent d04be23513
commit 5e938b92c4
8 changed files with 61 additions and 75 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -1750,7 +1750,7 @@ Error (yap_error_number type, Term where, char *format,...)
  nt[1] = MkAtomTerm(LookupAtom(p));
  if (serious) {
    choiceptr newb;
-    PredEntry *p = RepPredProp(PredPropByFunc(FunctorThrow,0));
+    PredEntry *p = PredThrow;
      
    CreepFlag = CalculateStackGap();
    ASP--;