diff options
Diffstat (limited to 'doc/while.n')
| -rw-r--r-- | doc/while.n | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/doc/while.n b/doc/while.n index e1c2ec3..bd74f45 100644 --- a/doc/while.n +++ b/doc/while.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: while.n,v 1.4 2004/05/05 22:08:10 dkf Exp $ +'\" RCS: @(#) $Id: while.n,v 1.5 2004/10/27 14:43:54 dkf Exp $ '\" .so man.macros .TH while n "" Tcl "Tcl Built-In Commands" @@ -45,9 +45,9 @@ For an example, try the following script with and without the braces around \fB$x<10\fR: .CS set x 0 -while {$x<10} { - puts "x is $x" - incr x +\fBwhile\fR {$x<10} { + puts "x is $x" + incr x } .CE .SH EXAMPLE @@ -55,8 +55,8 @@ Read lines from a channel until we get to the end of the stream, and print them out with a line-number prepended: .CS set lineCount 0 -while {[gets $chan line] >= 0} { - puts "[incr lineCount]: $line" +\fBwhile\fR {[gets $chan line] >= 0} { + puts "[incr lineCount]: $line" } .CE |