* generic/tclEvent.c (NewThreadProc): Fixed broken build on

Windows caused by missing TCL_THREAD_CREATE_RETURN.
* tests/stack.test (stack-3.1): Corrected nuisance error in
threaded builds.

1 files changed, 7 insertions, 7 deletions

diff --git a/tests/stack.test b/tests/stack.test
index dfcf9c2..362133b 100644
--- a/tests/stack.test
+++ b/tests/stack.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: stack.test,v 1.16 2004/05/03 17:04:31 kennykb Exp $
+# RCS: @(#) $Id: stack.test,v 1.17 2004/06/22 19:41:25 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -62,7 +62,6 @@ test stack-3.1 {enough room for regexp near recursion limit} \
     -constraints { win } \
     -setup {
 	set ::limit [interp recursionlimit {} 10000]
-	set ::depth 0
 	proc a { max } {
 	    if { [info level] < $max } {
 		set ::depth [info level]
@@ -71,15 +70,16 @@ test stack-3.1 {enough room for regexp near recursion limit} \
 		regexp {^ ?} x
 	    }
 	}
+    } -body {
+	set ::depth 0
 	catch { a 10001 }
-	incr depth -2
 	set depth2 $depth
-    } -body {
-	list [catch { a $::depth } result] \
-	    $result [expr { $::depth2 - $::depth }]
+	catch { a $::depth }
+	expr { $depth2 - $depth }
     } -cleanup {
 	interp recursionlimit {} $::limit
-    } -result {0 1 1}
+	rename a {}
+    } -result {1}
 
 # cleanup
 ::tcltest::cleanupTests