diff options
author | Steve Bennett <steveb@workware.net.au> | 2024-09-06 14:32:34 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2024-09-20 11:21:04 +1000 |
commit | 33f5083ed4c7dab6a668a153133f9fe5a6a6f329 (patch) | |
tree | edd5f26392b04564463af758bbcb4de3807de654 | |
parent | 2cae913525c0e265419dd2645d70300b5d037735 (diff) | |
download | jimtcl-33f5083ed4c7dab6a668a153133f9fe5a6a6f329.zip jimtcl-33f5083ed4c7dab6a668a153133f9fe5a6a6f329.tar.gz jimtcl-33f5083ed4c7dab6a668a153133f9fe5a6a6f329.tar.bz2 |
tcltest.tcl: remove leftover debug output
When running under tclsh
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tcltest.tcl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index 1f13365..9027a44 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -185,7 +185,6 @@ if {[catch {info version}]} { incr skip for {set level $skip} {$level < [info frame] - $last} {incr level} { set frame [info frame -$level] - puts $frame if {[dict get $frame type] ne "source"} { continue } |