Added KrancError function for throwing errors to be caught at top

level.  Removed printing of stack backtrace as it doesn't work.  I
have an email from Wolfram support with some advice on how to do stack
backtraces; I will investigate soon.

1 files changed, 5 insertions, 3 deletions

diff --git a/Tools/MathematicaMisc/Errors.m b/Tools/MathematicaMisc/Errors.m
index 02e50f5..b7c38b2 100644
--- a/Tools/MathematicaMisc/Errors.m
+++ b/Tools/MathematicaMisc/Errors.m
@@ -3,6 +3,7 @@ BeginPackage["Errors`"];
 
 PrintError::usage = "";
 ThrowError::usage = "";
+KrancError::usage = "";
 
 Begin["`Private`"];
 
@@ -36,8 +37,9 @@ PrintError[err_] :=
           stack = err[[2]];
 
           Map[PrintStructure, objs];
-          Print["Error stack:"];
-          PrintStructure[stack]],
+(*          Print["Error stack:"];
+          PrintStructure[stack]*)
+],
         err]];
 
 
@@ -45,7 +47,7 @@ ThrowError[objects__] :=
   Module[{s = Stack[_], s2},
     
     s2 = removeBits[s];
-    Throw[KrancError[{objects}, s2]]];
+    Throw[KrancError[{objects}, s2], KrancError]];
 
 End[];