From a74b516922cd7c45eee255a76d3347c78c9ff2b0 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Tue, 4 May 2004 02:44:23 +0000
Subject: slight improvement to last commit

---
 generic/tclCompile.c | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 52c3487..e75a5a4 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCompile.c,v 1.63 2004/05/04 02:38:07 msofer Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.64 2004/05/04 02:44:23 msofer Exp $
  */
 
 #include "tclInt.h"
@@ -919,6 +919,12 @@ TclCompileScript(interp, script, numBytes, envPtr)
     Tcl_ResetResult(interp);
     isFirstCmd = 1;
 
+    if (envPtr->procPtr != NULL) {
+	cmdNsPtr = envPtr->procPtr->cmdPtr->nsPtr;
+    } else {
+	cmdNsPtr = NULL; /* use current NS */
+    }
+
     /*
      * Each iteration through the following loop compiles the next
      * command from the script.
@@ -1001,12 +1007,6 @@ TclCompileScript(interp, script, numBytes, envPtr)
 	    EnterCmdStartData(envPtr, currCmdIndex,
 	            (parse.commandStart - envPtr->source), startCodeOffset);
 
-	    if (envPtr->procPtr != NULL) {
-		cmdNsPtr = envPtr->procPtr->cmdPtr->nsPtr;
-	    } else {
-		cmdNsPtr = NULL; /* use current NS */
-	    }
-
 	    /*
 	     * Each iteration of the following loop compiles one word
 	     * from the command.
-- 
cgit v0.12