aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2024-09-06 14:32:34 +1000
committerSteve Bennett <steveb@workware.net.au>2024-09-20 11:21:04 +1000
commit33f5083ed4c7dab6a668a153133f9fe5a6a6f329 (patch)
treeedd5f26392b04564463af758bbcb4de3807de654
parent2cae913525c0e265419dd2645d70300b5d037735 (diff)
downloadjimtcl-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.tcl1
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
}