Revert "Errors.m: Add function execution tracing option"

This reverts commit c2d8c677cb8be7c549391d8dca41a3e2ef830921.

It was causing Kranc to run much more slowly.

1 files changed, 2 insertions, 15 deletions

diff --git a/Tools/MathematicaMisc/Errors.m b/Tools/MathematicaMisc/Errors.m
index 53cfcd7..f75bb3b 100644
--- a/Tools/MathematicaMisc/Errors.m
+++ b/Tools/MathematicaMisc/Errors.m
@@ -11,7 +11,6 @@ InfoMessage;
 SetDebugLevel;
 ErrorDefinition::usage = "ErrorDefinition[f] creates a default definition of a function f which throws an exception.  This can be used to catch programming errors where f is called with incorrect arguments.";
 PrintError;
-TraceExecution;
 
 DebugQuiet = 0;
 Warnings = 1
@@ -98,23 +97,11 @@ ErrorDefinition[x_] :=
 
 SetAttributes[DefFn, HoldAll];
 
-TraceExecution = False;
-TraceExecutionIndent = "";
-
 DefFn[def:(fn_[args___] := body_)] :=
   Module[
-    {result = Unique["result"]},
+    {},
     ErrorDefinition[fn];
-    Quiet[
-      fn[args] := 
-      Module[
-        {result},
-        If[TraceExecution, Print[TraceExecutionIndent, fn," ", Map[InputForm[First[#]] &,{args}]]];
-        TraceExecutionIndent="| "<>TraceExecutionIndent;
-        result2 = body;
-        TraceExecutionIndent=StringDrop[TraceExecutionIndent,2];
-        If[TraceExecution, Print[TraceExecutionIndent, "-> ", InputForm@result2]];
-        result2], RuleDelayed::rhs]];
+    fn[args] := (*Profile[fn,*)body(*]*)];
 
 End[];