diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-09-02 21:49:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-09-02 21:49:42 (GMT) |
| commit | 4987b1d19342fec6bd46b4b7f7dffd75c48e056a (patch) | |
| tree | 3f5468de64864c036d6708bb58266aba1b0ecfef /doc/return.n | |
| parent | 939fc495ba9d67066a354099307650390209b7ca (diff) | |
| download | tcl-4987b1d19342fec6bd46b4b7f7dffd75c48e056a.zip tcl-4987b1d19342fec6bd46b4b7f7dffd75c48e056a.tar.gz tcl-4987b1d19342fec6bd46b4b7f7dffd75c48e056a.tar.bz2 | |
Corrected typo and broken example.
Diffstat (limited to 'doc/return.n')
| -rw-r--r-- | doc/return.n | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/doc/return.n b/doc/return.n index 7afe66c..bd9592f 100644 --- a/doc/return.n +++ b/doc/return.n @@ -6,7 +6,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: return.n,v 1.6 2003/09/02 18:51:31 dgp Exp $ +'\" RCS: @(#) $Id: return.n,v 1.7 2003/09/02 21:49:42 dgp Exp $ '\" .so man.macros .TH return n 8.5 Tcl "Tcl Built-In Commands" @@ -289,8 +289,8 @@ proc myReturn {args} { set result [lindex $args end] set args [lrange $args 0 end-1] } - set options [dict create -level 1] - eval [list dict replace $options] $args + set options [eval \\ + [list dict create -level 1] $args] dict incr options -level return -options $options $result } |