diff options
Diffstat (limited to 'library/tcltest1.0/tcltest.tcl')
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl index daec879..50dbe6f 100644 --- a/library/tcltest1.0/tcltest.tcl +++ b/library/tcltest1.0/tcltest.tcl @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.11 1999/08/27 18:12:26 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.12 1999/08/31 21:43:46 jenn Exp $ package provide tcltest 1.0 @@ -354,8 +354,6 @@ proc ::tcltest::initConstraintsHook {} {} proc ::tcltest::initConstraints {} { global tcl_platform tcl_interactive tk_version - catch {unset ::tcltest::testConstraints} - # The following trace procedure makes it so that we can safely refer to # non-existent members of the ::tcltest::testConstraints array without # causing an error. Instead, reading a non-existent member will return 0. |