whitespace

1 files changed, 19 insertions, 17 deletions

diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index e09b52c..12fb46e 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -22,7 +22,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclNamesp.c,v 1.208 2010/06/07 21:25:00 ferrieux Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.209 2010/06/08 12:54:38 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -4902,12 +4902,13 @@ Tcl_LogCommandInfo(
         }
         overflow = (length > limit);
         Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
-                                                       "\n    %s\n\"%.*s%s\"", ((iPtr->errorInfo == NULL)
-                                                                                ? "while executing" : "invoked from within"),
-                                                       (overflow ? limit : length), command, (overflow ? "..." : "")));
+		"\n    %s\n\"%.*s%s\"", ((iPtr->errorInfo == NULL)
+		? "while executing" : "invoked from within"),
+		(overflow ? limit : length), command,
+		(overflow ? "..." : "")));
 
         varPtr = TclObjLookupVarEx(interp, iPtr->eiVar, NULL, TCL_GLOBAL_ONLY,
-                                   NULL, 0, 0, &arrayPtr);
+		NULL, 0, 0, &arrayPtr);
         if ((varPtr == NULL) || !TclIsVarTraced(varPtr)) {
             /*
              * Should not happen.
@@ -4915,22 +4916,23 @@ Tcl_LogCommandInfo(
 
             return;
         } else {
-            Tcl_HashEntry *hPtr = Tcl_FindHashEntry(&iPtr->varTraces,
-                                                    (char *) varPtr);
+            Tcl_HashEntry *hPtr
+		    = Tcl_FindHashEntry(&iPtr->varTraces, (char *) varPtr);
             VarTrace *tracePtr = Tcl_GetHashValue(hPtr);
 
             if (tracePtr->traceProc != EstablishErrorInfoTraces) {
                 /*
                  * The most recent trace set on ::errorInfo is not the one the
-                 * core itself puts on last. This means some other code is tracing
-                 * the variable, and the additional trace(s) might be write traces
-                 * that expect the timing of writes to ::errorInfo that existed
-                 * Tcl releases before 8.5. To satisfy that compatibility need, we
-                 * write the current -errorinfo value to the ::errorInfo variable.
+                 * core itself puts on last. This means some other code is
+		 * tracing the variable, and the additional trace(s) might be
+		 * write traces that expect the timing of writes to
+		 * ::errorInfo that existed Tcl releases before 8.5. To
+		 * satisfy that compatibility need, we write the current
+		 * -errorinfo value to the ::errorInfo variable.
                  */
 
                 Tcl_ObjSetVar2(interp, iPtr->eiVar, NULL, iPtr->errorInfo,
-                               TCL_GLOBAL_ONLY);
+			TCL_GLOBAL_ONLY);
             }
         }
     }
@@ -4962,13 +4964,13 @@ Tcl_LogCommandInfo(
         /* uplevel case, [lappend errorstack UP $relativelevel] */
 
         Tcl_ListObjAppendElement(NULL, iPtr->errorStack, iPtr->upLiteral);
-        Tcl_ListObjAppendElement(NULL, iPtr->errorStack, Tcl_NewIntObj(iPtr->framePtr->level - iPtr->varFramePtr->level));
+        Tcl_ListObjAppendElement(NULL, iPtr->errorStack, Tcl_NewIntObj(
+		iPtr->framePtr->level - iPtr->varFramePtr->level));
     } else if (iPtr->framePtr != iPtr->rootFramePtr) {
         /* normal case, [lappend errorstack CALL [info level 0]] */
         Tcl_ListObjAppendElement(NULL, iPtr->errorStack, iPtr->callLiteral);
-        Tcl_ListObjAppendElement(NULL, iPtr->errorStack,
-                                 Tcl_NewListObj(iPtr->framePtr->objc,
-                                                iPtr->framePtr->objv));
+        Tcl_ListObjAppendElement(NULL, iPtr->errorStack, Tcl_NewListObj(
+		iPtr->framePtr->objc, iPtr->framePtr->objv));
     }
 }