diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-19 16:36:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-19 16:36:12 (GMT) |
commit | b6c5d8274c62b2e355d45b6b0e824c276f97ff8a (patch) | |
tree | db8829a23d4a43c6731bdb5a653363c4075655bd /library | |
parent | ec4858f861d24ec351c82adc8ddf2ef7fad0931c (diff) | |
parent | 5b97aedd0b32abe3c3ab134c08fe01f6f496c2c6 (diff) | |
download | tcl-b6c5d8274c62b2e355d45b6b0e824c276f97ff8a.zip tcl-b6c5d8274c62b2e355d45b6b0e824c276f97ff8a.tar.gz tcl-b6c5d8274c62b2e355d45b6b0e824c276f97ff8a.tar.bz2 |
Fix [7be97a6859]: Reviewing chan.n changes
Diffstat (limited to 'library')
-rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 4522081..1a3e35e 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -1639,7 +1639,7 @@ proc tcltest::Replace::puts {args} { # return [Puts [lindex $args 0]] } 2 { - # Either -nonewline or channelId has been specified + # Either -nonewline or channel has been specified if {[lindex $args 0] eq "-nonewline"} { append outData [lindex $args end] return @@ -1651,7 +1651,7 @@ proc tcltest::Replace::puts {args} { } 3 { if {[lindex $args 0] eq "-nonewline"} { - # Both -nonewline and channelId are specified, unless + # Both -nonewline and channel are specified, unless # it's an error. -nonewline is supposed to be argv[0]. set channel [lindex $args 1] set newline "" |